소스 검색

* Use ThreadSwitch.

git-svn-id: trunk@32076 -
yury 10 년 전
부모
커밋
44777f3797
1개의 변경된 파일4개의 추가작업 그리고 0개의 파일을 삭제
  1. 4 0
      tests/test/tinterlockedmt.pp

+ 4 - 0
tests/test/tinterlockedmt.pp

@@ -123,7 +123,11 @@ begin
               writeln('InterLockedCompareExchange seems to be broken.');
               Halt(10);
             end;
+          {$ifdef FPC}
+            ThreadSwitch;
+          {$else}
             Sleep(0);
+          {$endif FPC}
           end;
           if FOption + 2 <> LastCompareVal then
             InterLockedIncrement(Counter3)