From 35a172090a7dafd80b36fb579736e80f06e9ff7b Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 8 Jan 2001 21:45:11 +0000
Subject: [PATCH]   * internalerror for string to chararray

---
 compiler/i386/n386cnv.pas | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/compiler/i386/n386cnv.pas b/compiler/i386/n386cnv.pas
index 9c48bd6697..82934e9414 100644
--- a/compiler/i386/n386cnv.pas
+++ b/compiler/i386/n386cnv.pas
@@ -374,7 +374,11 @@ implementation
          regstopush: byte;
       begin
          with parraydef(resulttype)^ do
-           arrsize := highrange-lowrange+1;
+          begin
+            if highrange<lowrange then
+             internalerror(75432653);
+            arrsize := highrange-lowrange+1;
+          end;
 
          if (left.nodetype = stringconstn) and
             { left.length+1 since there's always a terminating #0 character (JM) }
@@ -1493,7 +1497,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.11  2000-12-25 00:07:32  peter
+  Revision 1.12  2001-01-08 21:45:11  peter
+    * internalerror for string to chararray
+
+  Revision 1.11  2000/12/25 00:07:32  peter
     + new tlinkedlist class (merge of old tstringqueue,tcontainer and
       tlinkedlist objects)