Changeset 64-bit,16 for 64-bit/src/odbc/odbc-functions.lisp

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.

File:

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

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)