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

git-svn-id: trunk@12965 -

packages/fcl-db/src/sqldb/interbase/ibconnection.pp

@@ -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-}