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

+ slowcpu define

Browse Source
This commit is contained in:
florian 2022-04-03 15:00:26 +02:00
parent 9813eb9048
commit ff64dacf25
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/bench/bdiv.pp
View File

@ -24,7 +24,15 @@ function GetRealTime : Real;
{$pop}
const
{$if defined(cpuarm) or defined(cpuavr) or defined(cpui8086) or defined(cpum68k) or defined(cpumips) or defined(cpuz80)}
{$define slowcpu}
{$endif}
{$ifdef slowcpu}
ITERATIONS = 32768;
{$else slowcpu}
ITERATIONS = 524288;
{$endif slowcpu}
INTERNAL_LOOPS = 64;
{ TTestAncestor }