From 44777f3797dccb1e8cb84fff5586a8d23a64d80e Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Sat, 17 Oct 2015 16:03:18 +0000
Subject: [PATCH] * Use ThreadSwitch.

git-svn-id: trunk@32076 -
---
 tests/test/tinterlockedmt.pp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/test/tinterlockedmt.pp b/tests/test/tinterlockedmt.pp
index f95152ed99..3a64afebda 100644
--- a/tests/test/tinterlockedmt.pp
+++ b/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)