فهرست منبع

* tinterlockedmt: Minor improvement.

git-svn-id: trunk@32091 -
yury 10 سال پیش
والد
کامیت
3344188f3e
1فایلهای تغییر یافته به همراه4 افزوده شده و 1 حذف شده
  1. 4 1
      tests/test/tinterlockedmt.pp

+ 4 - 1
tests/test/tinterlockedmt.pp

@@ -129,7 +129,10 @@ begin
                 Halt(10);
               end;
               Sleep(1);
-            end;
+            end
+            else
+              if j >= 100 then
+                Sleep(0);
           {$ifdef FPC}
             ThreadSwitch;
           {$else}