Changeset 64-bit,4 for 64-bit/src/odbc/odbc-main.lisp

Timestamp:

11/28/2007 03:50:39 AM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

64-bit

revision id:

dsowen@tux-20071128035039-edmhe5hgjsmjzt4w

Message:

Second pass at 64-bit cleanness. Have now touched all files.

File:

• 64-bit/src/odbc/odbc-main.lisp (modified) (1 diff)

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

@@ -455 +455 @@
                 (send-parameter-data param hstmt)))))))))
 
-;; this functions works only, since we store at 
-;; value-ptr the position of the parameter
-(defun sql-param-data-position (hstmt)  
-  (with-temporary-allocations 
+;; this functions works only, since we store at value-ptr the position
+;; of the parameter
+;; dso--
+(defun sql-param-data-position (hstmt)
+  (with-temporary-allocations
       ((ptr (cffi:foreign-alloc :pointer)))
-    (let ((res (with-error-handling (:hstmt hstmt) (%sql-param-data hstmt ptr))))
-      (values res (if (= res $SQL_NEED_DATA) 
-                    (cffi:mem-ref (cffi:mem-ref ptr :pointer) :long  ))))))
+    (let ((res (with-error-handling (:hstmt hstmt)
+                   (%sql-param-data hstmt ptr))))
+      (values res (if (= res $SQL_NEED_DATA)
+                      (cffi:mem-ref (cffi:mem-ref ptr :pointer) :int32))))))
+                                        ; TODO: The :int32 above
+                                        ; should probably be changed!
 
 (defmethod exec-prepared-query ((query prepared-statement) &rest parameters)