X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-oracle%2Foracle-api.lisp;fp=db-oracle%2Foracle-api.lisp;h=377c3f3a9c943cee23bdfdaa9a56a1399e92615d;hp=454011fafc5d81f97c63c4cbb8fab72264545c4f;hb=e105d1c4963b50edb966b2a3049bbe02ecdfabff;hpb=0f707b093bdc29389f59db6e50441ac93f47b4b9

diff --git a/db-oracle/oracle-api.lisp b/db-oracle/oracle-api.lisp
index 454011f..377c3f3 100644
--- a/db-oracle/oracle-api.lisp
+++ b/db-oracle/oracle-api.lisp
@@ -132,11 +132,11 @@
   (envhp        :pointer-void)		; env
   (errhp        :pointer-void)		; err
   (svchpp       (* :pointer-void))	; svc
-  (username     :cstring)		; username
+  (username     (* :unsigned-char))	; username
   (uname-len    ub4)			;
-  (passwd       :cstring)		; passwd
+  (passwd       (* :unsigned-char))	; passwd
   (password-len ub4)			;
-  (dsn          :cstring)		; datasource
+  (dsn          (* :unsigned-char))	; datasource
   (dsn-len      ub4))			;
 
 (def-oci-routine ("OCILogoff" oci-logoff)
@@ -159,7 +159,7 @@
     :int
   (stmtp      :pointer-void)
   (errhp      :pointer-void)
-  (stmt       :cstring)
+  (stmt       (* :unsigned-char))
   (stmt_len   ub4)
   (language   ub4)
   (mode       ub4))