paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 23:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use volatile() to prevent wrong optimizations by llvm

Browse Source 
git-svn-id: trunk@40466 -
This commit is contained in:
Jonas Maebe 2018-12-04 19:53:23 +00:00
parent 122d0d36d6
commit 8846041b23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/test/tmt1.pp
View File

@ -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.