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

* fix memory leak in TFPPooledConnectionHandler

Browse Source
This commit is contained in:
Ondrej Pokorny 2021-09-08 15:44:34 +02:00 committed by Michael Van Canneyt
parent 008214ca15
commit ef0aea8ca2
1 changed files with 7 additions and 0 deletions

7
packages/fcl-web/src/base/fphttpserver.pp
View File

@ -250,6 +250,7 @@ Type
Procedure CloseSockets; override;
procedure CheckRequests; override;
Constructor Create(aServer : TFPCustomHttpServer); override;
Destructor Destroy; override;
Procedure HandleConnection(aConnection : TFPHTTPConnection); override;
function CreatePool : TFPCustomSimpleThreadPool;
Property Pool : TFPCustomSimpleThreadPool Read FPool;
@ -564,6 +565,12 @@ begin
FPool:=CreatePool;
end;
destructor TFPPooledConnectionHandler.Destroy;
begin
FreeAndNil(FPool);
inherited Destroy;
end;
procedure TFPPooledConnectionHandler.ScheduleRequest(aConnection: TFPHTTPConnection);
begin