From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 27 Mar 2002 00:25:03 +0000 (+0000)
Subject: r1667: Fixed type specifier
X-Git-Tag: v3.8.6~1209
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=e04478ee7c288f9011ab5b04a5f9001654cc7481;ds=sidebyside

r1667: Fixed type specifier
---

diff --git a/ChangeLog b/ChangeLog
index cd3d796..3b5363b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,9 @@
 	Implemented direct socket reading for field type :double
 
 	* Added usage information for :types to documentation
+
+	* interfaces/mysql/mysql-sql.cl
+	Fixed type specifiers in ato* calls
 	
 25 Mar 2002 Kevin Rosenberg (kevin@rosenberg.net)
 
diff --git a/interfaces/mysql/mysql-sql.cl b/interfaces/mysql/mysql-sql.cl
index 576438e..32db9b6 100644
--- a/interfaces/mysql/mysql-sql.cl
+++ b/interfaces/mysql/mysql-sql.cl
@@ -8,7 +8,7 @@
 ;;;;                Original code by Pierre R. Mai 
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: mysql-sql.cl,v 1.10 2002/03/25 23:48:46 kevin Exp $
+;;;; $Id: mysql-sql.cl,v 1.11 2002/03/27 00:25:03 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@ -85,15 +85,15 @@
     nil)))
 
 (uffi:def-function "atoi"
-    ((str :cstring))
+    ((str (* :unsigned-char)))
   :returning :int)
 
 (uffi:def-function "atol"
-    ((str :cstring))
+    ((str (* :unsigned-char)))
   :returning :long)
 
 (uffi:def-function "atof"
-    ((str :cstring))
+    ((str (* :unsigned-char)))
   :returning :double)
 
 (defun convert-raw-field (char-ptr types index)