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

* fixed objpas compilation for CPUs with 16 Bit addresses

Browse Source 
git-svn-id: branches/avr@17104 -
This commit is contained in:
florian 2011-03-09 19:41:36 +00:00
parent de2d504f15
commit 5f06130095
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/objpas.pp
View File

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