[Xsb-commits] CVS: XSB/emu odbc_xsb.c,1.82,1.83

[David S. W. <dw...@us...>]

Update of /cvsroot/xsb/XSB/emu
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv12626

Modified Files:
	odbc_xsb.c 
Log Message:
Even on 64 bit windows, ODBC returns a 32 bit integer for SLONG.
So this fixes that.


Index: odbc_xsb.c
===================================================================
RCS file: /cvsroot/xsb/XSB/emu/odbc_xsb.c,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -r1.82 -r1.83
--- odbc_xsb.c	6 May 2013 21:10:24 -0000	1.82
+++ odbc_xsb.c	15 May 2013 22:03:08 -0000	1.83
@@ -1821,7 +1821,9 @@
   case SQL_C_SLONG:
     {
       Cell h;
-      bld_oint(&h,*(Integer *)(cur->Data[ColCurNum]));
+      Integer intvalue;
+      intvalue = (Integer)(*(long *)(cur->Data[ColCurNum]));
+      bld_oint(&h,intvalue);
       return unify(CTXTc op, h);
     }
   case SQL_C_FLOAT: