From 44b7972e01bae353b5457c799ae0fdb273fd3938 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 25 Jan 2002 17:41:05 +0000
Subject: [PATCH]   * moved array types to objpas unit

---
 rtl/inc/systemh.inc | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index d996c083b0..59cac59321 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -166,17 +166,6 @@ 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);
@@ -569,7 +558,10 @@ const
 
 {
   $Log$
-  Revision 1.42  2002-01-25 17:39:35  peter
+  Revision 1.43  2002-01-25 17:41:05  peter
+    * moved array types to objpas unit
+
+  Revision 1.42  2002/01/25 17:39:35  peter
     * array types added
 
   Revision 1.41  2002/01/24 18:27:06  peter