From 5f2ff51787d0aeeb6e9fc46cd551cb990f1b0a90 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 23 Oct 2004 15:16:15 +0000 Subject: [PATCH] r10108: Automated commit for Debian build of clsql upstream-version-3.0.10 --- debian/changelog | 6 ++++++ uffi/clsql-uffi.lisp | 6 +++--- uffi/uffi.c | 2 +- 3 files changed, 10 insertions(+), 4 deletions(-) diff --git a/debian/changelog b/debian/changelog index d04ef0c..b2796b9 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-sql (3.0.10-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Sat, 23 Oct 2004 09:16:03 -0600 + cl-sql (3.0.9-1) unstable; urgency=low * New upstream diff --git a/uffi/clsql-uffi.lisp b/uffi/clsql-uffi.lisp index d901481..6e77849 100644 --- a/uffi/clsql-uffi.lisp +++ b/uffi/clsql-uffi.lisp @@ -75,7 +75,7 @@ (uffi:def-function "atol64" ((str (* :unsigned-char)) - (high32 (* :int))) + (high32 (* :unsigned-int))) :module "clsql-uffi" :returning :unsigned-int) @@ -113,9 +113,9 @@ ((:int32 :int) (atoi char-ptr)) (:int64 - (uffi:with-foreign-object (high32-ptr :int) + (uffi:with-foreign-object (high32-ptr :unsigned-int) (let ((low32 (atol64 char-ptr high32-ptr)) - (high32 (uffi:deref-pointer high32-ptr :int))) + (high32 (uffi:deref-pointer high32-ptr :unsigned-int))) (if (zerop high32) low32 (make-64-bit-integer high32 low32))))) diff --git a/uffi/uffi.c b/uffi/uffi.c index f1cfe08..531abf0 100644 --- a/uffi/uffi.c +++ b/uffi/uffi.c @@ -39,7 +39,7 @@ const unsigned int bitmask_32bits = 0xFFFFFFFF; DLLEXPORT unsigned int -atol64 (const unsigned char* str, int* pHigh32) +atol64 (const unsigned char* str, unsigned int* pHigh32) { #ifdef WIN32 __int64 result = 0; -- 2.34.1