paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 12:49:12 +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} {$mode objfpc}
{$threading on} {$threading on}
uses sysutils;
const const
threadcount = 100; threadcount = 100;
stringlen = 10000; stringlen = 10000;
@ -23,7 +25,7 @@ function f(p : pointer) : longint;
inc(thri); inc(thri);
end; end;
writeln('thread ',longint(p),' finished'); writeln('thread ',longint(p),' finished');
inc(finished); InterLockedIncrement(finished);
f:=0; f:=0;
end; end;