소스 검색

* fixed test/cg/tcall1.pp for i8086

git-svn-id: trunk@25837 -
nickysn 12 년 전
부모
커밋
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;