paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 12:31:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed memory leak when reading fastcgi records

Browse Source 
git-svn-id: trunk@15863 -
This commit is contained in:
michael 2010-08-20 14:38:45 +00:00
parent 2011328acf
commit 6f1dfa1353
1 changed files with 28 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-web/src/base/custfcgi.pp
View File

@ -525,7 +525,7 @@ begin
repeat
AFCGI_Record:=Read_FCGIRecord;
if assigned(AFCGI_Record) then
begin
try
ARequestID:=BEtoN(AFCGI_Record^.requestID);
if AFCGI_Record^.reqtype = FCGI_BEGIN_REQUEST then
begin
@ -553,6 +553,8 @@ begin
Result := True;
Break;
end;
Finally
FreeMem(AFCGI_Record);
end;
until (1<>1);
end;