Преглед на файлове

* fixed test/cg/tcall1.pp for i8086

git-svn-id: trunk@25837 -
nickysn преди 11 години
родител
ревизия
703e3f3ce2
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      tests/test/cg/tcall1.pp

+ 1 - 1
tests/test/cg/tcall1.pp

@@ -85,7 +85,7 @@ type
   tclass2 = class
     constructor create_none;               { class constructor }
   public
-    b: array[1..$66666666] of byte;
+    b: array[1..{$ifdef cpu16}32765{$else}$66666666{$endif}] of byte;
   end;