From 2fcd65b9332742cb0cfa6d7b50fd5e6f09b96833 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 25 Jan 2002 17:39:35 +0000
Subject: [PATCH]   * array types added

---
 rtl/inc/systemh.inc | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 54840a0a37..d996c083b0 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -166,6 +166,17 @@ Type
 { procedure type }
   TProcedure  = Procedure;
 
+{ array types }
+  IntegerArray  = array[0..$effffff] of Integer;
+  TIntegerArray = IntegerArray;
+  PIntegerArray = ^IntegerArray;
+  PointerArray  = array [0..512*1024*1024-2] of Pointer;
+  TPointerArray = PointerArray;
+  PPointerArray = ^PointerArray;
+{$ifdef HASINTF}
+  TBoundArray = array of integer;
+{$endif HASINTF}
+
 const
 { Maximum value of the biggest signed and unsigned integer type available}
   MaxSIntValue = High(ValSInt);
@@ -558,7 +569,10 @@ const
 
 {
   $Log$
-  Revision 1.41  2002-01-24 18:27:06  peter
+  Revision 1.42  2002-01-25 17:39:35  peter
+    * array types added
+
+  Revision 1.41  2002/01/24 18:27:06  peter
     * lowercase() overloaded
 
   Revision 1.40  2002/01/24 12:33:53  jonas