浏览代码

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

git-svn-id: trunk@48262 -
pierre 4 年之前
父节点
当前提交
3bfb995a48
共有 1 个文件被更改,包括 3 次插入1 次删除
  1. 3 1
      packages/fpmkunit/src/fpmkunit.pp

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

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