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

* Check against operation on unopend statement, patch from Lacak2 Mantis #19943

Browse Source 
git-svn-id: trunk@18949 -
This commit is contained in:
marco 2011-09-02 19:05:24 +00:00
parent db7192c897
commit 3383db43cd
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -615,12 +615,13 @@ procedure TIBConnection.UnPrepareStatement(cursor : TSQLCursor);
begin
with cursor as TIBcursor do
begin
if isc_dsql_free_statement(@Status[0], @Statement, DSQL_Drop) <> 0 then
CheckError('FreeStatement', Status);
Statement := nil;
FPrepared := False;
end;
if assigned(Statement) Then
begin
if isc_dsql_free_statement(@Status[0], @Statement, DSQL_Drop) <> 0 then
CheckError('FreeStatement', Status);
Statement := nil;
FPrepared := False;
end;
end;
procedure TIBConnection.FreeSQLDABuffer(var aSQLDA : PXSQLDA);