From a53f6ba9d46d877849beaa0d335071d842a97c67 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 29 Nov 1998 12:45:59 +0000
Subject: [PATCH]   * hack for arraydef.size overflow

---
 compiler/symdef.inc | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/compiler/symdef.inc b/compiler/symdef.inc
index 94d39bf12f..19ac7866e2 100644
--- a/compiler/symdef.inc
+++ b/compiler/symdef.inc
@@ -1565,7 +1565,11 @@
 
     function tarraydef.size : longint;
       begin
-         size:=(highrange-lowrange+1)*elesize;
+         { dirty hack to overcome an overflow (PFV) }
+         if highrange=$7fffffff then
+          size:=$7fffffff
+         else
+          size:=(highrange-lowrange+1)*elesize;
       end;
 
 
@@ -3219,7 +3223,10 @@
 
 {
   $Log$
-  Revision 1.74  1998-11-27 14:50:47  peter
+  Revision 1.75  1998-11-29 12:45:59  peter
+    * hack for arraydef.size overflow
+
+  Revision 1.74  1998/11/27 14:50:47  peter
     + open strings, $P switch support
 
   Revision 1.73  1998/11/26 14:47:00  michael