Ignore:
Timestamp:
11/28/2007 03:49:48 AM (19 years ago)
Author:
David Owen <dsowen@…>
branch-nick:
64-bit
revision id:
dsowen@tux-20071128034948-of18hhgvistm196l
Message:

First pass at 64-bit cleanness.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 64-bit/src/odbc/parameter.lisp

    r1 r3  
    5454      param)))
    5555
     56;;;; dso: not so sure about this one and its callers
    5657(defun bind-parameter (hstmt pos param)
    5758  (setf (slot-value param 'ind-ptr)
    58           (cffi:foreign-alloc :long))
     59        (cffi:foreign-alloc 'sql-len))
    5960  (%sql-bind-parameter
    6061   hstmt
    … …  
    175176    (setf parameter-type $SQL_INTEGER)
    176177    (setf buffer-length 4)
    177     (setf value-ptr (cffi:foreign-alloc :long))))
     178    (setf value-ptr (cffi:foreign-alloc 'sql-integer))))
    178179
    179180(defmethod set-parameter-value ((param integer-parameter) value)
    … …  
    324325    ;; we store the position there
    325326    (setf buffer-length 4)
    326     (setf value-ptr (cffi:foreign-alloc :long))))
     327    (setf value-ptr (cffi:foreign-alloc 'sql-len))))
    327328
    328329(defmethod set-parameter-value ((param clob-parameter) value)
    … …  
    374375    ;; we store the position there
    375376    (setf buffer-length 4)
    376     (setf value-ptr (cffi:foreign-alloc :long))))
     377    (setf value-ptr (cffi:foreign-alloc 'sql-len))))
    377378
    378379(defmethod set-parameter-value ((param uclob-parameter) value)
    … …  
    423424    ;; we store the position there
    424425    (setf buffer-length 4)
    425     (setf value-ptr (cffi:foreign-alloc :long))))
     426    (setf value-ptr (cffi:foreign-alloc 'sql-len))))
    426427
    427428(defmethod set-parameter-value ((param blob-parameter) value)
Note: See TracChangeset for help on using the changeset viewer.