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

*** empty log message ***

Browse Source
This commit is contained in:
florian 2004-11-05 13:11:18 +00:00
parent 67c3e6c17a
commit 89ef29de7e
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/test/tmt1.pp
View File

@ -11,8 +11,18 @@ uses
; ;
const const
{$ifdef cpuarm}
{$define slowcpu}
{$endif cpuarm}
{$ifdef slowcpu}
threadcount = 40;
stringlen = 2000;
{$else slowcpu}
threadcount = 100; threadcount = 100;
stringlen = 10000; stringlen = 10000;
{$endif slowcpu}
var var
finished : longint; finished : longint;
threadvar threadvar