r1677: *** empty log message ***
authorKevin M. Rosenberg <kevin@rosenberg.net>
Wed, 27 Mar 2002 09:11:30 +0000 (09:11 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Wed, 27 Mar 2002 09:11:30 +0000 (09:11 +0000)
interfaces/clsql-uffi/clsql-uffi.c
interfaces/clsql-uffi/clsql-uffi.dll [new file with mode: 0644]
interfaces/clsql-uffi/clsql-uffi.lib [new file with mode: 0644]
interfaces/mysql/clsql-mysql.dll
interfaces/mysql/clsql-mysql.lib
test-suite/test-clsql.cl
test-suite/xptest-clsql.cl

index fc404cc38375e7f81a485c41dcea1a2d1d862eb5..951a1ec3cf260ba78cb51ec8b34da1f281273f9a 100644 (file)
@@ -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 (file)
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 (file)
index 0000000..0a1bd6c
Binary files /dev/null and b/interfaces/clsql-uffi/clsql-uffi.lib differ
index 4ad28bdafd73b2792e0348b63b19a272699bdb24..2376b5da72f478e3435a393a39fb7bda4d7039b1 100644 (file)
Binary files a/interfaces/mysql/clsql-mysql.dll and b/interfaces/mysql/clsql-mysql.dll differ
index a136bcc20b028b5500e245a26c7378455a67c63c..c82b053aabd74bd3f2d6985f0178be62a35bac69 100644 (file)
Binary files a/interfaces/mysql/clsql-mysql.lib and b/interfaces/mysql/clsql-mysql.lib differ
index 7c57ae75e436f3d19c8874b6335558d43dc81700..c1c291d3691cf7700a735b8343392fe664ab3058 100644 (file)
@@ -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)
index 5e070a969bb938ec0c6bb1af12d1ff22a03f30f0..fc80d19277ddd9c2345ff2612937aa6cd5a72d54 100644 (file)
@@ -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))