From 65631b0e440e22d27d007d603328377cc479d991 Mon Sep 17 00:00:00 2001
From: sg <sg>
Date: Sat, 8 Jan 2000 12:08:58 +0000
Subject: [PATCH] * Set the upper bound of TLineArray to max. possible value so
 that this   unit works correctly with activated range checks

---
 fcl/shedit/doc_text.pp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/fcl/shedit/doc_text.pp b/fcl/shedit/doc_text.pp
index 6711ec7e6d..6638282a83 100644
--- a/fcl/shedit/doc_text.pp
+++ b/fcl/shedit/doc_text.pp
@@ -33,7 +33,7 @@ type
   end;
 
   PLineArray = ^TLineArray;
-  TLineArray = array[0..0] of TLine;
+  TLineArray = array[0..$7fffffff div SizeOf(TLine)] of TLine;
 
 const
 
@@ -261,7 +261,11 @@ end.
 
 {
   $Log$
-  Revision 1.7  2000-01-07 01:24:34  peter
+  Revision 1.8  2000-01-08 12:08:58  sg
+  * Set the upper bound of TLineArray to max. possible value so that this
+    unit works correctly with activated range checks
+
+  Revision 1.7  2000/01/07 01:24:34  peter
     * updated copyright to 2000
 
   Revision 1.6  2000/01/06 01:20:34  peter