Changeset 64-bit,16 for 64-bit/src/odbc/parameter.lisp

Timestamp:

02/16/2008 06:29:04 PM (18 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

64-bit

revision id:

dsowen@fugue88.ws-20080216182904-v9zd4g515y0vb9qe

Message:

Fix pointer/int cast problem.

File:

• 64-bit/src/odbc/parameter.lisp (modified) (3 diffs)

64-bit/src/odbc/parameter.lisp

@@ -334 +334 @@
       (progn
         (setf (slot-value param 'temp-val) value)
-        (setf (cffi:mem-ref (slot-value param 'value-ptr) 'sql-pointer)
+        (setf (cffi:mem-ref (slot-value param 'value-ptr) 'sql-pointer-as-int)
               (slot-value param 'position))
         (setf (cffi:mem-ref (slot-value param 'ind-ptr) 'sql-len)
@@ -384 +384 @@
     (progn
       (setf (slot-value param 'temp-val) value)
-      (setf (cffi:mem-ref (slot-value param 'value-ptr) 'sql-pointer)
+      (setf (cffi:mem-ref (slot-value param 'value-ptr) 'sql-pointer-as-int)
               (slot-value param 'position))
       (setf (cffi:mem-ref (slot-value param 'ind-ptr) 'sql-len)
@@ -434 +434 @@
     (progn
       (setf (slot-value param 'temp-val) value)
-      (setf (cffi:mem-ref (slot-value param 'value-ptr) 'sql-pointer)
+      (setf (cffi:mem-ref (slot-value param 'value-ptr) 'sql-pointer-as-int)
               (slot-value param 'position))
       (setf (cffi:mem-ref (slot-value param 'ind-ptr) 'sql-len)