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

+ Fix for bug #7205

Browse Source 
git-svn-id: trunk@4332 -
This commit is contained in:
joost 2006-08-02 22:15:37 +00:00
parent 216777f8f1
commit 87828e65a8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fcl/db/sqldb/postgres/pqconnection.pp
View File

@ -481,7 +481,7 @@ begin
end
else
FreeAndNil(ar[i]);
res := PQexecPrepared(tr.PGConn,pchar('prepst'+nr),Aparams.count,@Ar[0],nil,nil,0);
res := PQexecPrepared(tr.PGConn,pchar('prepst'+nr),Aparams.count,@Ar[0],nil,nil,1);
for i := 0 to AParams.count -1 do
FreeMem(ar[i]);
end