projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9550:
[clsql.git]
/
db-oracle
/
oracle-api.lisp
diff --git
a/db-oracle/oracle-api.lisp
b/db-oracle/oracle-api.lisp
index e63351fcde4f5e878d0596fec7ddbd6895fec770..eab4c6b3a78852a917f5cd7d95df7fcb1eb9e571 100644
(file)
--- a/
db-oracle/oracle-api.lisp
+++ b/
db-oracle/oracle-api.lisp
@@
-104,17
+104,17
@@
(xtramem-sz :unsigned-long) ; size_t
(usermempp (* :pointer-void))) ; dvoid **
(xtramem-sz :unsigned-long) ; size_t
(usermempp (* :pointer-void))) ; dvoid **
-#
+oci-8-1-5
+#
-oci7
(def-oci-routine ("OCIEnvCreate" oci-env-create)
:int
(def-oci-routine ("OCIEnvCreate" oci-env-create)
:int
- (
p0 :pointer-void
)
- (
p1
:unsigned-int)
- (
p2
:pointer-void)
- (
p3
:pointer-void)
- (
p4
:pointer-void)
- (
p5
:pointer-void)
- (
p6
:unsigned-long)
- (
p7 :pointer-void
))
+ (
envhpp (* :pointer-void)
)
+ (
mode
:unsigned-int)
+ (
ctxp
:pointer-void)
+ (
malocfp
:pointer-void)
+ (
ralocfp
:pointer-void)
+ (
mfreefp
:pointer-void)
+ (
xtramemsz
:unsigned-long)
+ (
usrmempp (* :pointer-void)
))
(def-oci-routine ("OCIHandleAlloc" oci-handle-alloc)
:int
(def-oci-routine ("OCIHandleAlloc" oci-handle-alloc)
:int
@@
-220,7
+220,7
@@
(valuep :pointer-void)
(value_sz :long)
(dty :unsigned-short)
(valuep :pointer-void)
(value_sz :long)
(dty :unsigned-short)
- (indp
:pointer-void
)
+ (indp
(* :short)
)
(rlenp (* :unsigned-short))
(rcodep (* :unsigned-short))
(mode :unsigned-long))
(rlenp (* :unsigned-short))
(rcodep (* :unsigned-short))
(mode :unsigned-long))