paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 13:50:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Clear in_sqlda when it is not needed

Browse Source 
git-svn-id: trunk@4905 -
This commit is contained in:
joost 2006-10-14 15:31:30 +00:00
parent dc3b37ff73
commit c88d92929e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fcl/db/sqldb/interbase/ibconnection.pp
View File

@ -415,7 +415,6 @@ begin
curs.statement := nil; curs.statement := nil;
curs.FPrepared := False; curs.FPrepared := False;
AllocSQLDA(curs.SQLDA,0); AllocSQLDA(curs.SQLDA,0);
AllocSQLDA(curs.in_SQLDA,0);
result := curs; result := curs;
end; end;
@ -475,7 +474,9 @@ begin
if (sqltype and 1) = 1 then New(SQLInd); if (sqltype and 1) = 1 then New(SQLInd);
end; end;
{$R+} {$R+}
end; end
else
AllocSQLDA(in_SQLDA,0);
if FStatementType = stselect then if FStatementType = stselect then
begin begin
FPrepared := False; FPrepared := False;