mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-30 15:20:35 +02:00
- 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 -
This commit is contained in:
parent
18dfdb423e
commit
6eafee72d7
@ -4229,7 +4229,7 @@ implementation
|
||||
end;
|
||||
|
||||
{ Tarraydef.size may never be called for an open array! }
|
||||
if highrange=-1 then
|
||||
if (highrange=-1) and (lowrange=0) then
|
||||
internalerror(99080501);
|
||||
if not (ado_IsBitPacked in arrayoptions) then
|
||||
cachedelesize:=elesize
|
||||
|
Loading…
Reference in New Issue
Block a user