Browse Source

- fixed check for determining whether requesting the size of an array is
an invalid operation after r42479, as regular arrays can have high=-1
(mantis #35874, already checked by trange3)

git-svn-id: trunk@42482 -

Jonas Maebe 6 years ago
parent
commit
6eafee72d7
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/symdef.pas

+ 1 - 1
compiler/symdef.pas

@@ -4229,7 +4229,7 @@ implementation
           end;
           end;
 
 
         { Tarraydef.size may never be called for an open array! }
         { Tarraydef.size may never be called for an open array! }
-        if highrange=-1 then
+        if (highrange=-1) and (lowrange=0) then
           internalerror(99080501);
           internalerror(99080501);
         if not (ado_IsBitPacked in arrayoptions) then
         if not (ado_IsBitPacked in arrayoptions) then
           cachedelesize:=elesize
           cachedelesize:=elesize