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

* Free postgres-results, fixed resource-leaking, probably fixes bug #13025

Browse Source 
git-svn-id: trunk@12598 -
This commit is contained in:
joost 2009-01-25 22:30:27 +00:00
parent c07a60f8e0
commit 3ef9342d59
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/sqldb/postgres/pqconnection.pp
View File

@ -544,6 +544,7 @@ begin
begin
if not tr.ErrorOccured then
begin
PQclear(res);
res := pqexec(tr.PGConn,pchar('deallocate prepst'+nr));
if (PQresultStatus(res) <> PGRES_COMMAND_OK) then
begin
@ -568,6 +569,7 @@ begin
begin
if FStatementType in [stInsert,stUpdate,stDelete,stSelect] then
begin
pqclear(res);
if Assigned(AParams) and (AParams.count > 0) then
begin
setlength(ar,Aparams.count);
@ -615,6 +617,8 @@ begin
else
s := Statement;
res := pqexec(tr.PGConn,pchar(s));
if (PQresultStatus(res) in [PGRES_COMMAND_OK,PGRES_TUPLES_OK]) then
pqclear(res);
end;
if not (PQresultStatus(res) in [PGRES_COMMAND_OK,PGRES_TUPLES_OK]) then
begin