From: Kevin M. Rosenberg Date: Fri, 29 Mar 2002 09:51:20 +0000 (+0000) Subject: r1702: *** empty log message *** X-Git-Tag: v3.8.6~1183 X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=f4ea78a09386319bf02a8954a2d605ff13a001cf;p=clsql.git r1702: *** empty log message *** --- diff --git a/ChangeLog b/ChangeLog index 4ba5547..13fa209 100644 --- a/ChangeLog +++ b/ChangeLog @@ -6,6 +6,9 @@ * interfaces/postgresql/postgresql-api.cl Added PQisBusy function + * interfaces/clsql-uffi/clsql-uffi.cl + Fixed sign error for 64-bit processing + * Optimizes :types processing if value is nil 27 Mar 2002 Kevin Rosenberg (kevin@rosenberg.net) diff --git a/interfaces/clsql-uffi/clsql-uffi.cl b/interfaces/clsql-uffi/clsql-uffi.cl index a4cb44b..8204087 100644 --- a/interfaces/clsql-uffi/clsql-uffi.cl +++ b/interfaces/clsql-uffi/clsql-uffi.cl @@ -7,7 +7,7 @@ ;;;; Programmers: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: clsql-uffi.cl,v 1.2 2002/03/27 12:09:39 kevin Exp $ +;;;; $Id: clsql-uffi.cl,v 1.3 2002/03/29 09:51:20 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -64,7 +64,7 @@ (uffi:def-function "atol64" ((str (* :unsigned-char)) (high32 (* :int))) - :returning :int) + :returning :unsigned-int) (uffi:def-constant +2^32+ 4294967296) (uffi:def-constant +2^32-1+ (1- +2^32+))