فهرست منبع

* use volatile() to prevent wrong optimizations by llvm

git-svn-id: trunk@40466 -
Jonas Maebe 6 سال پیش
والد
کامیت
8846041b23
1فایلهای تغییر یافته به همراه1 افزوده شده و 1 حذف شده
  1. 1 1
      tests/test/tmt1.pp

+ 1 - 1
tests/test/tmt1.pp

@@ -55,7 +55,7 @@ begin
      if BeginThread({$ifdef fpc}@{$endif}f,pointer(i)) <> tthreadid(0) then
      if BeginThread({$ifdef fpc}@{$endif}f,pointer(i)) <> tthreadid(0) then
        inc(started);
        inc(started);
 
 
-   while finished<started do
+   while volatile(finished)<started do
      {$ifdef wince}sleep(10){$endif};
      {$ifdef wince}sleep(10){$endif};
    writeln(finished);
    writeln(finished);
 end.
 end.