소스 검색

* fixed objpas compilation for CPUs with 16 Bit addresses

git-svn-id: branches/avr@17104 -
florian 14 년 전
부모
커밋
5f06130095
1개의 변경된 파일8개의 추가작업 그리고 0개의 파일을 삭제
  1. 8 0
      rtl/objpas/objpas.pp

+ 8 - 0
rtl/objpas/objpas.pp

@@ -32,10 +32,18 @@ unit objpas;
        PString = PAnsiString;
 
        { array types }
+{$ifdef CPU16}
+       IntegerArray  = array[0..$eff] of Integer;
+{$else CPU16}
        IntegerArray  = array[0..$effffff] of Integer;
+{$endif CPU16}
        TIntegerArray = IntegerArray;
        PIntegerArray = ^IntegerArray;
+{$ifdef CPU16}
+       PointerArray  = array [0..16*1024-2] of Pointer;
+{$else CPU16}
        PointerArray  = array [0..512*1024*1024-2] of Pointer;
+{$endif CPU16}
        TPointerArray = PointerArray;
        PPointerArray = ^PointerArray;
        TBoundArray = array of integer;