Changeset unicode,3 for unicode/src/odbc/odbc-main.lisp

Timestamp:

12/07/2007 02:13:22 PM (19 years ago)

Author:

raverkamp

revision id:

svn-v3-trunk1:1c22b0a8-4d0b-0410-a296-af6a2e6f35e3:plain-odbc%2Ftrunk:8

Message:

included changes for 64 bit linux

File:

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

unicode/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)