small bugs fixed

DelphiPraxis · Mar 4, 2019 · 253c7e2 · 253c7e2
1 parent a9d031a
commit 253c7e2
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Quick.Threads.pas b/Quick.Threads.pas
@@ -7,7 +7,7 @@
   Author      : Kike Pérez
   Version     : 1.4
   Created     : 09/03/2018
-  Modified    : 28/02/2019
+  Modified    : 04/03/2019
 
   This file is part of QuickLib: https://github.com/exilon/QuickLib
 
@@ -1140,7 +1140,7 @@ procedure TWorker.TerminateTask;
 procedure TWorker.Execute;
 begin
   fStatus := TWorkerStatus.wsIdle;
-  while (not Terminated) and (fTaskQueue.QueueSize > 0) do
+  while not Terminated do
   begin
     fCurrentTask := fTaskQueue.PopItem;
     if fCurrentTask <> nil then
@@ -1193,7 +1193,7 @@ function TScheduledTasks.AddTask_Sync(const aTaskName: string; aParamArray: arra
 
 function TScheduledTasks.AddTask_Sync(const aTaskName: string; aTaskProc: TTaskProc): IScheduledTask;
 begin
-  Result := AddTask_Sync(aTaskName,aTaskProc);
+  Result := AddTask_Sync(aTaskName,[],False,aTaskProc);
 end;
 
 constructor TScheduledTasks.Create;