From: Kevin M. Rosenberg Date: Wed, 27 Mar 2002 09:11:30 +0000 (+0000) Subject: r1677: *** empty log message *** X-Git-Tag: v3.8.6~1199 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=03a915acbed9fda04e5ad9a5a174421509a00126 r1677: *** empty log message *** --- diff --git a/interfaces/clsql-uffi/clsql-uffi.c b/interfaces/clsql-uffi/clsql-uffi.c index fc404cc..951a1ec 100644 --- a/interfaces/clsql-uffi/clsql-uffi.c +++ b/interfaces/clsql-uffi/clsql-uffi.c @@ -6,7 +6,7 @@ * Programmer: Kevin M. Rosenberg * Date Started: Mar 2002 * - * $Id: clsql-uffi.c,v 1.1 2002/03/27 08:09:25 kevin Exp $ + * $Id: clsql-uffi.c,v 1.2 2002/03/27 09:10:16 kevin Exp $ * * This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg * @@ -41,7 +41,11 @@ DLLEXPORT unsigned int atol64 (const unsigned char* str, int* pHigh32) { +#ifdef WIN32 + __int64 result = 0; +#else long long result = 0; +#endif int minus = 0; int first_char = *str; if (first_char == '+') diff --git a/interfaces/clsql-uffi/clsql-uffi.dll b/interfaces/clsql-uffi/clsql-uffi.dll new file mode 100644 index 0000000..f0bf74e Binary files /dev/null and b/interfaces/clsql-uffi/clsql-uffi.dll differ diff --git a/interfaces/clsql-uffi/clsql-uffi.lib b/interfaces/clsql-uffi/clsql-uffi.lib new file mode 100644 index 0000000..0a1bd6c Binary files /dev/null and b/interfaces/clsql-uffi/clsql-uffi.lib differ diff --git a/interfaces/mysql/clsql-mysql.dll b/interfaces/mysql/clsql-mysql.dll index 4ad28bd..2376b5d 100644 Binary files a/interfaces/mysql/clsql-mysql.dll and b/interfaces/mysql/clsql-mysql.dll differ diff --git a/interfaces/mysql/clsql-mysql.lib b/interfaces/mysql/clsql-mysql.lib index a136bcc..c82b053 100644 Binary files a/interfaces/mysql/clsql-mysql.lib and b/interfaces/mysql/clsql-mysql.lib differ diff --git a/test-suite/test-clsql.cl b/test-suite/test-clsql.cl index 7c57ae7..c1c291d 100644 --- a/test-suite/test-clsql.cl +++ b/test-suite/test-clsql.cl @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: test-clsql.cl,v 1.1 2002/03/27 09:00:15 kevin Exp $ +;;;; $Id: test-clsql.cl,v 1.2 2002/03/27 09:11:30 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -20,7 +20,7 @@ (in-package :cl-user) -(defvar *config-pathname* (make-pathname :name "test-clsql" +(defvar *config-pathname* (make-pathname :name "test" :type "config" :defaults *load-truename*)) (defparameter *config* nil) diff --git a/test-suite/xptest-clsql.cl b/test-suite/xptest-clsql.cl index 5e070a9..fc80d19 100644 --- a/test-suite/xptest-clsql.cl +++ b/test-suite/xptest-clsql.cl @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: xptest-clsql.cl,v 1.1 2002/03/27 09:00:15 kevin Exp $ +;;;; $Id: xptest-clsql.cl,v 1.2 2002/03/27 09:11:30 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -30,7 +30,7 @@ (postgresql-socket-spec :accessor postgresql-socket-spec)) (:documentation "Test fixture for CLSQL testing")) -(defvar *config-pathname* (make-pathname :name "test-clsql" +(defvar *config-pathname* (make-pathname :name "test" :type "config" :defaults *load-truename*)) (defmethod setup ((fix clsql-fixture))