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

Timestamp:

02/04/2008 12:59:54 AM (18 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

test

parents:

Rev	Tree	Chgset
12	@64-bit,12	[64-bit,12]
2.1.1	@64-bit,2.1.1	[64-bit,2.1.1]

revision id:

dsowen@fugue88.ws-20080204005954-s1vx8hf9i7l2iqqe

Message:

Merged most of revision 3 from vendor. Vendor made some backtracks from sql-pointer to :long for unknown reason, and added MySQL stuff.

File:

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

64-bit/src/odbc/parameter.lisp

@@ -293 +293 @@
             )
           (progn
-            ;; (break)
             (setf (cffi:mem-ref (slot-value param 'ind-ptr) 'sql-len)
                   (length value))
@@ -426 +425 @@
     ;; we store the position there
     (setf buffer-length (cffi:foreign-type-size 'sql-pointer))
-    (setf value-ptr (cffi:foreign-alloc 'sql-pointer))))
+    (setf value-ptr (cffi:foreign-alloc 'sql-pointer)))
+)
 
 (defmethod set-parameter-value ((param blob-parameter) value)
@@ -437 +437 @@
               (slot-value param 'position))
       (setf (cffi:mem-ref (slot-value param 'ind-ptr) 'sql-len)
-              (%sql-len-data-at-exec (length value))))))
+              (%sql-len-data-at-exec (length value)))
+      )))
 
 (defmethod send-parameter-data ((param blob-parameter) hstmt)
@@ -443 +444 @@
          (len (length temp-val))
          (buffer (cffi:foreign-alloc :uchar
-                                               :count (if (zerop len) 1 len))))
+                                     :count (if (zerop len) 1 len))))
     (put-byte-vector buffer
                  temp-val)