* Version 2.10.19
* sql/conditions.lisp: Fix cerror
+20 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
+ * Version 2.10.19
+ * sql/conditions.lisp: Fix cerror
+
19 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
* Version 2.10.18 released: New condition hierarchy to be compatible
with CommonSQL -- not backward compatible with previous CLSQL.
19 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
* Version 2.10.18 released: New condition hierarchy to be compatible
with CommonSQL -- not backward compatible with previous CLSQL.
(let ((envhp (oci-get-handle :type :env)))
(oci-env-init envhp 0 0 +null-void-pointer+)
envhp))
(let ((envhp (oci-get-handle :type :env)))
(oci-env-init envhp 0 0 +null-void-pointer+)
envhp))
;; STREAM which has no more data, and QC is not a STREAM, we signal
;; DBI-ERROR instead.
;; STREAM which has no more data, and QC is not a STREAM, we signal
;; DBI-ERROR instead.
-(uffi:def-type short-pointer '(* :short))
+(uffi:def-type short-array '(:array :short))
(uffi:def-type int-pointer '(* :int))
(uffi:def-type double-pointer '(* :double))
(uffi:def-type int-pointer '(* :int))
(uffi:def-type double-pointer '(* :double))
(value
(let* ((arb (foreign-resource-buffer (cd-indicators cd)))
(indicator (uffi:deref-array arb '(:array :short) irow)))
(value
(let* ((arb (foreign-resource-buffer (cd-indicators cd)))
(indicator (uffi:deref-array arb '(:array :short) irow)))
- (declare (type short-pointer arb))
+ (declare (type short-array arb))
(unless (= indicator -1)
(ecase (cd-oci-data-type cd)
(#.SQLT-STR
(deref-oci-string b irow (cd-sizeof cd)))
(#.SQLT-FLT
(unless (= indicator -1)
(ecase (cd-oci-data-type cd)
(#.SQLT-STR
(deref-oci-string b irow (cd-sizeof cd)))
(#.SQLT-FLT
- (uffi:with-cast-pointer (bd b :double)
- (uffi:deref-array bd '(:array :double) irow)))
+ (uffi:deref-array bd '(:array :double) irow))
- (uffi:with-cast-pointer (bi b :int)
- (uffi:deref-array bi '(:array :int) irow)))
+ (uffi:deref-array bi '(:array :int) irow))
(#.SQLT-DATE
(deref-oci-string b irow (cd-sizeof cd))))))))
(when (and (eq :string (cd-result-type cd))
(#.SQLT-DATE
(deref-oci-string b irow (cd-sizeof cd))))))))
(when (and (eq :string (cd-result-type cd))
(uffi:with-foreign-object (buf '(:array :unsigned-char #.+errbuf-len+))
(oci-server-version (deref-vp svchp)
(deref-vp errhp)
(uffi:with-foreign-object (buf '(:array :unsigned-char #.+errbuf-len+))
(oci-server-version (deref-vp svchp)
(deref-vp errhp)
- buf +errbuf-len+ +oci-htype-svcctx+)
+ (uffi:char-array-to-pointer buf)
+ +errbuf-len+ +oci-htype-svcctx+)
(setf server-version (uffi:convert-from-foreign-string buf)))
(setq db (make-instance 'oracle-database
:name (database-name-from-spec connection-spec
(setf server-version (uffi:convert-from-foreign-string buf)))
(setq db (make-instance 'oracle-database
:name (database-name-from-spec connection-spec
+cl-sql (2.10.19-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Thu, 20 May 2004 04:54:53 -0600
+
cl-sql (2.10.18-1) unstable; urgency=low
* New upstream
cl-sql (2.10.18-1) unstable; urgency=low
* New upstream