From a0da139ec66dd7bcc84d567411ca76c645385cf4 Mon Sep 17 00:00:00 2001 From: daniel Date: Tue, 3 Jul 2007 11:31:46 +0000 Subject: [PATCH] * Fix most test suite regressions. git-svn-id: trunk@7931 - --- compiler/nmem.pas | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/compiler/nmem.pas b/compiler/nmem.pas index dc98202a9a..44ebd4e921 100644 --- a/compiler/nmem.pas +++ b/compiler/nmem.pas @@ -722,8 +722,10 @@ implementation if ((right.nodetype<>rangen) and is_integer(right.resultdef)) or (left.resultdef.typ<>arraydef) then case left.resultdef.typ of arraydef: - if ado_IsDynamicArray in Tarraydef(left.resultdef).arrayoptions then - {Convert indexes into dynamic arrays to aword.} +// if ado_IsDynamicArray in Tarraydef(left.resultdef).arrayoptions then + if (Tarraydef(left.resultdef).lowrange=0) and (Tarraydef(left.resultdef).highrange=-1) then + {Arrays without a high bound (dynamic arrays, open arrays) are zero based, + convert indexes into these arrays to aword.} inserttypeconv(right,uinttype) else {Convert array indexes to low_bound..high_bound.}