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

Reduce NumIterations for I8086 cpu to avoid timeout

Browse Source 
git-svn-id: trunk@34052 -
This commit is contained in:
pierre 2016-07-03 07:45:45 +00:00
parent 8df1d1f9b8
commit 1cbc526501
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/tint642.pp
View File

@ -16,12 +16,16 @@ type
end;
const
{$ifdef CPUI8086}
NumIterations = 100;
{$else not CPUI8086}
{$ifdef CPU68K}
{ this test takes ages under m68k otherwise PM }
NumIterations = 10000;
{$else not CPU68K}
NumIterations = 100000;
{$endif not CPU68K}
{$endif not CPUI8086}
procedure dumpqword(q : qword);