Чтв, 17 Июн 2010, Denis Samson писал(а):
>
> I just downloaded fresh copies of 32- and 64-bit stable releases of
> j602a and, lo and behold, they still have the bug in iad and the one
> in the case. SQL_INTEGER inside ddins... (using SQL_C_LONG vs.
> SQL_C_SBIGINT)
This was also fixed in 2008. svn log attached.
Anyway, the 64-bit bug should not affect ddins in 32-bit J. and you
repeatedly questioned the validity of ddins, I really want to know if
you had test ddins using 32-bit. Please response to my question
otherwise we will have no common starting point for discussion.
commit 14be2b2479d5a63cf1a4a77e9e1a091fb2139cf8
Author: chris <ch...@43cb2d34-b325-0410-9358-84604a89f4dd>
Date: Wed Aug 6 06:40:56 2008 +0000
Merged revisions 374-383 via svnmerge from
http://alice/svn/base/branches/cdb
diff --git a/api/odbc/ddins.ijs b/api/odbc/ddins.ijs
index 4f09f7a..5dd06d9 100644
--- a/api/odbc/ddins.ijs
+++ b/api/odbc/ddins.ijs
@@ -16,6 +16,8 @@ SQL_C_BINARY=: _2
SQL_LONGVARBINARY=: _4
SQL_TYPE_DATE=: 91
SQL_TYPE_TIME=: 92
+SQL_C_BIGINT=: _5
+SQL_C_SBIGINT=: (SQL_C_BIGINT+SQL_SIGNED_OFFSET)
SQL_ADD=: 4
SQL_ATTR_CURSOR_TYPE=: 6
@@ -206,7 +208,6 @@ for_i. i.ncol do.
name=. (cvt2str sh),'_',":i
bname=. 'BIND_',name
blname=. 'BINDLN_',name
-NB. (blname)=: (1,1)$2-2
(blname)=: 2-2
select. i{ty
case. SQL_TINYINT;SQL_SMALLINT;SQL_INTEGER;SQL_BIGINT do.
commit 84c5ec3c4c3d6cad9a351a72ebb0ca1cd84e5c46
Author: blam <b...@43cb2d34-b325-0410-9358-84604a89f4dd>
Date: Mon Jul 28 03:48:14 2008 +0000
64-bit support in ddins
git-svn-id: http://www.jsoftware.com/svn/base/tr...@375
43cb2d34-b325-0410-9358-84604a89f4dd
diff --git a/api/odbc/ddins.ijs b/api/odbc/ddins.ijs
index c66d171..4f09f7a 100644
--- a/api/odbc/ddins.ijs
+++ b/api/odbc/ddins.ijs
@@ -90,8 +90,8 @@ if. #ty do.
select. i{ty
case. SQL_INTEGER;SQL_SMALLINT;SQL_BIT;SQL_TINYINT;SQL_BIGINT do.
(bname)=: <. brow&{ >(of+i){x
- (blname)=: (nrows,1)$4
- q=. sh;(>:i);SQL_C_SLONG;(vad bname);4;(<vad blname)
+ (blname)=: (nrows,1)$SZI
+ q=. sh;(>:i);(IF64{SQL_C_SLONG, SQL_C_SBIGINT);(vad bname);SZI;(<vad
blname)
case. SQL_DOUBLE;SQL_FLOAT;SQL_REAL;SQL_DECIMAL;SQL_NUMERIC do.
(bname)=: (_&<.) brow&{ >(of+i){x
(blname)=: (nrows,1)$8
@@ -202,7 +202,6 @@ if. SQL_ERROR=sh=. getstmt y do. errret SQL_HANDLE_DBC,y
return. end.
NB. bind column, need erasebind in freestmt/ddend
ncol=. #ty
bytelen=. ''
-SZI=. IF64{4 8
for_i. i.ncol do.
name=. (cvt2str sh),'_',":i
bname=. 'BIND_',name
--
regards,
====================================================
GPG key 1024D/4434BAB3 2008-08-24
gpg --keyserver subkeys.pgp.net --recv-keys 4434BAB3
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
