Changeset combined,2.1.14 for combined/src/odbc/odbc-ff-interface.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:

• combined/src/odbc/odbc-ff-interface.lisp (modified) (1 diff)

combined/src/odbc/odbc-ff-interface.lisp

@@ -32 +32 @@
 (defctype sql-u-len sql-u-integer)
 (defctype sql-return sql-small-int)
+(defctype sql-pointer-as-int
+    #.(ecase (foreign-type-size :pointer)
+        (1 :int8)
+        (2 :int16)
+        (4 :int32)
+        (8 :int64)))
 
 (defctype *sql-small-int :pointer)