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

Use small number for Blocks constant for i8086 CPU also

git-svn-id: trunk@33769 -
pierre 9 years ago
parent
0a9bcf0369
commit
74b3481918
1 changed files with 1 additions and 1 deletions
Split View Show Diff Stats
  1. 1 1
      tests/test/theap.pp

+ 1 - 1
tests/test/theap.pp
View File 

@@ -8,7 +8,7 @@ uses
 
   erroru;
 
 
 const
 
-{$ifdef cpusparc}
 
+{$if defined (cpusparc) or defined(cpui8086)}
 
   Blocks = 1000;
 
 {$else}
 
   Blocks = 10000;