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

* fixed test cg/tvec.pp for small CPUs

Browse Source 
git-svn-id: trunk@27652 -
This commit is contained in:
nickysn 2014-04-25 12:12:51 +00:00
parent 300dc15405
commit c5badc8a7c
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/test/cg/tvec.pp
View File

@ -39,11 +39,19 @@ const
min_small_array = 0; min_small_array = 0;
max_small_array = 255; max_small_array = 255;
{$IFDEF CPU16}
min_big_neg_array = -770;
max_big_neg_array = 770;
min_big_array = 0;
max_big_array = 770;
{$ELSE CPU16}
min_big_neg_array = -77000; min_big_neg_array = -77000;
max_big_neg_array = 77000; max_big_neg_array = 77000;
min_big_array = 0; min_big_array = 0;
max_big_array = 77000; max_big_array = 77000;
{$ENDIF CPU16}
min_big_odd_array = 0; min_big_odd_array = 0;
max_big_odd_array = 255; max_big_odd_array = 255;