paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 02:29:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Hwang Weng Sun to allow more then 128 fields in a SQLDA structure, bug #13340

Browse Source 
git-svn-id: trunk@12965 -
This commit is contained in:
joost 2009-03-26 16:51:03 +00:00
parent 7084dd4192
commit 24d3fb02ce
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/sqldb/interbase/ibconnection.pp
View File

@ -518,7 +518,7 @@ procedure TIBConnection.PrepareStatement(cursor: TSQLCursor;ATransaction : TSQLT
var dh : pointer;
tr : pointer;
x : shortint;
x : Smallint;
info_request : string;
resbuf : array[0..7] of byte;
blockSize : integer;
@ -611,7 +611,7 @@ end;
procedure TIBConnection.FreeSQLDABuffer(var aSQLDA : PXSQLDA);
var x : shortint;
var x : Smallint;
begin
{$R-}