From f4cc2447a2c9b751c0c31b35dcd9b92e3fd07749 Mon Sep 17 00:00:00 2001
From: Ondrej Pokorny <lazarus@kluug.net>
Date: Wed, 8 Sep 2021 16:43:04 +0200
Subject: [PATCH] * fix memory leak in
TFPCustomSimpleThreadPool.TThreadPoolList
---
packages/fcl-base/src/fpthreadpool.pp | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/packages/fcl-base/src/fpthreadpool.pp b/packages/fcl-base/src/fpthreadpool.pp
index 6f18e5ab70..6063c9a358 100644
--- a/packages/fcl-base/src/fpthreadpool.pp
+++ b/packages/fcl-base/src/fpthreadpool.pp
@@ -189,6 +189,7 @@ Type
Procedure ThreadTerminated(Sender : TObject);
public
Constructor CreateList(aPool : TFPCustomSimpleThreadPool); override;
+ Destructor Destroy; override;
Procedure TerminateThreads; override;
Function GetAvailableThread : TAbstractTaskThread; override;
Function AddThread : TAbstractTaskThread; override;
@@ -446,6 +447,12 @@ begin
FList:=TThreadList.Create;
end;
+destructor TFPCustomSimpleThreadPool.TThreadPoolList.Destroy;
+begin
+ FreeAndNil(FList);
+ Inherited;
+end;
+
function TFPCustomSimpleThreadPool.TThreadPoolList.GetAvailableThread: TAbstractTaskThread;
Var