From f4ea78a09386319bf02a8954a2d605ff13a001cf Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 29 Mar 2002 09:51:20 +0000 Subject: [PATCH] r1702: *** empty log message *** --- ChangeLog | 3 +++ interfaces/clsql-uffi/clsql-uffi.cl | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) 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+)) -- 2.34.1