Pārlūkot izejas kodu

* fixed objpas compilation for CPUs with 16 Bit addresses

git-svn-id: branches/avr@17104 -
florian 14 gadi atpakaļ
vecāks
revīzija
5f06130095
1 mainītis faili ar 8 papildinājumiem un 0 dzēšanām
  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;