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

Timestamp:

02/20/2008 05:22:29 AM (18 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

64-bit

parents:

Rev	Tree	Chgset
16	@64-bit,16	[64-bit,16]
2.1.4	@64-bit,2.1.4	[64-bit,2.1.4]

revision id:

dsowen@fugue88.ws-20080220052229-3uxui9fkezmd5hj9

Message:

Merged from vendor.

File:

• 64-bit/src/odbc/odbc-main.lisp (modified) (2 diffs)

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

@@ -467 +467 @@
 ;; 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
@@ -474 +473 @@
                    (%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!
+                      (cffi:mem-ref (cffi:mem-ref ptr :pointer) :long))))))
+
+
 
 (defmethod exec-prepared-query ((query prepared-statement) &rest parameters)