From c1e14ef033f89a384d44a005bfa5fc07d669dd35 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Mon, 9 Oct 2000 14:54:27 +0000
Subject: [PATCH]   * fixed another range check error (merged from fixes
 branch)

---
 compiler/msgidx.inc       | 2 +-
 compiler/utils/msg2inc.pp | 9 ++++++---
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/compiler/msgidx.inc b/compiler/msgidx.inc
index 3048003059..2e8b0a33f7 100644
--- a/compiler/msgidx.inc
+++ b/compiler/msgidx.inc
@@ -561,5 +561,5 @@ const
 
   MsgIdxMax : array[1..20] of longint=(
     17,58,165,34,41,41,86,14,35,40,
-    26,1,1,1,1,1,1,1,1,16777217
+    26,1,1,1,1,1,1,1,1,1
   );
diff --git a/compiler/utils/msg2inc.pp b/compiler/utils/msg2inc.pp
index 63454ae23a..761bab41b6 100644
--- a/compiler/utils/msg2inc.pp
+++ b/compiler/utils/msg2inc.pp
@@ -41,7 +41,7 @@ var
   enumsize,
   msgsize    : longint;
 
-  msgidxmax  : array[0..msgparts] of longint;
+  msgidxmax  : array[1..msgparts] of longint;
   msgs       : array[0..msgparts,0..999] of boolean;
 
 procedure LoadMsgFile(const fn:string);
@@ -266,7 +266,7 @@ begin
   { max msg idx table }
   writeln(t,'  MsgIdxMax : array[1..20] of longint=(');
   write(t,'    ');
-  for i:=1to 20 do
+  for i:=1 to 20 do
    begin
      write(t,msgidxmax[i]+1);
      if i<20 then
@@ -805,7 +805,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.5  2000-09-30 13:13:22  peter
+  Revision 1.6  2000-10-09 14:54:27  jonas
+    * fixed another range check error (merged from fixes branch)
+
+  Revision 1.5  2000/09/30 13:13:22  peter
     * range check fix
 
   Revision 1.3  2000/09/27 20:59:55  peter