paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 00:30:33 +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.FPrepared := False;
AllocSQLDA(curs.SQLDA,0);
AllocSQLDA(curs.in_SQLDA,0);
result := curs;
end;
@ -475,7 +474,9 @@ begin
if (sqltype and 1) = 1 then New(SQLInd);
end;
{$R+}
end;
end
else
AllocSQLDA(in_SQLDA,0);
if FStatementType = stselect then
begin
FPrepared := False;