florian
21 years ago
|
@@ -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
|
