Parcourir la source

* Patch from Joost van der Sluis:
- deallocate SQLDA

michael il y a 21 ans
Parent
commit
312f5cc30f
1 fichiers modifiés avec 1 ajouts et 0 suppressions
  1. 1 0
      fcl/db/sqldb/interbase/ibconnection.pp

+ 1 - 0
fcl/db/sqldb/interbase/ibconnection.pp

@@ -392,6 +392,7 @@ begin
       CheckError('FreeStatement', Status);
     Statement := nil;
     end;
+  reAllocMem((cursor as tibcursor).SQLDA,0);
 end;
 
 procedure TIBConnection.PrepareStatement(cursor: TSQLHandle;ATransaction : TSQLTransaction;buf : string);