From 9cf82cd7f689990c69f2b18ecc0eebc399ea1b1e Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 31 Jan 2005 16:15:04 +0000
Subject: [PATCH]   * zero based array with elementsize>1 fix

---
 compiler/nadd.pas | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/compiler/nadd.pas b/compiler/nadd.pas
index 7982a9ecc6..df3580abe8 100644
--- a/compiler/nadd.pas
+++ b/compiler/nadd.pas
@@ -1338,7 +1338,14 @@ implementation
                    begin
                      right:=caddnode.create(muln,right,
                        cordconstnode.create(tpointerdef(ld).pointertype.def.size,sinttype,true));
-                   end;
+                   end
+                 else
+                   if is_zero_based_array(ld) and
+                      (tarraydef(ld).elementtype.def.size>1) then
+                     begin
+                       right:=caddnode.create(muln,right,
+                         cordconstnode.create(tarraydef(ld).elementtype.def.size,sinttype,true));
+                     end;
                end
              else
                CGMessage3(type_e_operator_not_supported_for_types,node2opstr(nodetype),ld.typename,rd.typename);
@@ -2130,7 +2137,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.137  2005-01-26 16:23:28  peter
+  Revision 1.138  2005-01-31 16:15:04  peter
+    * zero based array with elementsize>1 fix
+
+  Revision 1.137  2005/01/26 16:23:28  peter
     * detect arithmetic overflows for constants at compile time
     * use try..except instead of setjmp