Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* smaller number of iterations for ARM in test tw3456.

git-svn-id: trunk@4101 -
yury 19 years ago
parent
a5335f06f0
commit
52946c9418
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      tests/webtbs/tw3456.pp

+ 1 - 1
tests/webtbs/tw3456.pp
View File 

@@ -14,7 +14,7 @@ uses
 
   SysUtils;
 
   SysUtils;
 
 
 
 const
 
 const
 
-{$ifdef cpusparc}
 
+{$if defined(cpusparc) or defined(cpuarm)}
 
   loopcnt = 10000;
 
   loopcnt = 10000;
 
 {$else}
 
 {$else}
 
   loopcnt = 1000000;
 
   loopcnt = 1000000;