From 5f061300956e9963cdc4b7802a516b2b7b78c570 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 9 Mar 2011 19:41:36 +0000
Subject: [PATCH] * fixed objpas compilation for CPUs with 16 Bit addresses

git-svn-id: branches/avr@17104 -
---
 rtl/objpas/objpas.pp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/rtl/objpas/objpas.pp b/rtl/objpas/objpas.pp
index c029f5f585..33696410b6 100644
--- a/rtl/objpas/objpas.pp
+++ b/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;