* Patch from Luxa Olivetti, fix for issue #33737

loongson · Aug 24, 2022 · 27f8f07 · 27f8f07
1 parent f8bf343
commit 27f8f07
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/packages/fcl-db/src/sqldb/postgres/pqconnection.pp b/packages/fcl-db/src/sqldb/postgres/pqconnection.pp
@@ -987,6 +987,11 @@ procedure TPQConnection.UnPrepareStatement(cursor : TSQLCursor);
     begin
     PQclear(res);
     res:=nil;
+    if ForcedClose then
+    begin
+      FPrepared := False;
+      exit;
+    end;
     if FPrepared then
       begin
       if assigned(tr) and (PQtransactionStatus(tr.PGConn) <> PQTRANS_INERROR) then