From e7fd9b1dd8e88258c8d1b90d41058728dd046396 Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Thu, 5 Aug 1999 22:42:49 +0000
Subject: [PATCH] * Fixed potential bug for open arrays (Their size is not
 known at   compilation time).

---
 compiler/types.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/compiler/types.pas b/compiler/types.pas
index debc3c158d..8df619b812 100644
--- a/compiler/types.pas
+++ b/compiler/types.pas
@@ -528,7 +528,8 @@ implementation
            (def^.deftype = formaldef) or
            { copy directly small records or arrays unless array of const ! PM }
            ((def^.deftype in [arraydef,recorddef]) and
-            ((def^.size>4) or
+            ((Parraydef(def)^.highrange<Parraydef(def)^.lowrange) 
+             or (def^.size>4) or
              ((def^.deftype=arraydef) and
               (parraydef(def)^.IsConstructor or
                parraydef(def)^.isArrayOfConst or
@@ -974,7 +975,11 @@ implementation
 end.
 {
   $Log$
-  Revision 1.79  1999-08-03 22:03:41  peter
+  Revision 1.80  1999-08-05 22:42:49  daniel
+  * Fixed potential bug for open arrays (Their size is not known at
+    compilation time).
+
+  Revision 1.79  1999/08/03 22:03:41  peter
     * moved bitmask constants to sets
     * some other type/const renamings