Changeset 64-bit,16

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.

Location:

64-bit/src/odbc

Files:

• odbc-ff-interface.lisp (modified) (1 diff)
• odbc-functions.lisp (modified) (1 diff)
• parameter.lisp (modified) (3 diffs)

64-bit/src/odbc/odbc-ff-interface.lisp

@@ -32 +32 @@
 (defctype sql-u-len sql-u-integer)
 (defctype sql-return sql-small-int)
+(defctype sql-pointer-as-int
+    #.(ecase (foreign-type-size :pointer)
+        (1 :int8)
+        (2 :int16)
+        (4 :int32)
+        (8 :int64)))
 
 (defctype *sql-small-int :pointer)

64-bit/src/odbc/odbc-functions.lisp

@@ -69 +69 @@
        (error-code (cffi:foreign-alloc 'sql-integer))
        (msg-length (cffi:foreign-alloc 'sql-small-int)))
-    (SQLError henv hdbc hstmt sql-state error-code
+    (SQLError (or henv (null-pointer)) (or hdbc (null-pointer))
+              (or hstmt (null-pointer)) sql-state error-code
               error-message $SQL_MAX_MESSAGE_LENGTH msg-length)
     (get-string sql-state 5)          ;(%cstring-to-keyword sql-state)

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)