|
@@ -462,7 +462,6 @@ procedure TFPCustomSimpleThreadPool.TThreadPoolList.TaskDone(Sender: TObject);
|
|
begin
|
|
begin
|
|
If Assigned(Pool) and Assigned(Pool.FThreadDoneEvent) then
|
|
If Assigned(Pool) and Assigned(Pool.FThreadDoneEvent) then
|
|
Pool.FThreadDoneEvent.SetEvent;
|
|
Pool.FThreadDoneEvent.SetEvent;
|
|
-
|
|
|
|
end;
|
|
end;
|
|
|
|
|
|
constructor TFPCustomSimpleThreadPool.TThreadPoolList.CreateList(aPool : TFPCustomSimpleThreadPool);
|
|
constructor TFPCustomSimpleThreadPool.TThreadPoolList.CreateList(aPool : TFPCustomSimpleThreadPool);
|