Pārlūkot izejas kodu

+ slowcpu define

florian 3 gadi atpakaļ
vecāks
revīzija
ff64dacf25
1 mainītis faili ar 8 papildinājumiem un 0 dzēšanām
  1. 8 0
      tests/bench/bdiv.pp

+ 8 - 0
tests/bench/bdiv.pp

@@ -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 }