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

* made the test threadsafe :)

Browse Source
This commit is contained in:
Jonas Maebe 2002-11-07 15:01:45 +00:00
parent 4e8a1790e6
commit 1144e7ccce
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/tmt1.pp
View File

@ -3,6 +3,8 @@
{$mode objfpc}
{$threading on}
uses sysutils;
const
threadcount = 100;
stringlen = 10000;
@ -23,7 +25,7 @@ function f(p : pointer) : longint;
inc(thri);
end;
writeln('thread ',longint(p),' finished');
inc(finished);
InterLockedIncrement(finished);
f:=0;
end;