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

* Allocate min threads

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-08-17 16:47:00 +02:00
parent 6e8775f2a9
commit 6b36229d3c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-base/src/fpthreadpool.pp
View File

@ -851,6 +851,8 @@ end;
function TFPCustomSimpleThreadPool.AddTask(aTask: TThreadPoolTask): Boolean;
begin
While ThreadCount<MinThreads do
FTaskList.AddThread;
CheckQueuedTasks;
Result:=DoAddTask(aTask);
if (not Result) and QueueTasks then