Przeglądaj źródła

Add sleep inside loop to find package that can be compiled, if none is ready in ProcessThreadResult

git-svn-id: trunk@48262 -
pierre 4 lat temu
rodzic
commit
3bfb995a48
1 zmienionych plików z 3 dodań i 1 usunięć
  1. 3 1
      packages/fpmkunit/src/fpmkunit.pp

+ 3 - 1
packages/fpmkunit/src/fpmkunit.pp

@@ -8621,7 +8621,9 @@ Var
           WriteBarrier;
           AThread.FDone:=False;
           RTLeventSetEvent(AThread.NotifyStartTask);
-          end;
+          end
+        else
+          sleep(100);
         if not PackageAvailable then
           Finished := True;
       end;