mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-06 05:10:52 +02:00
* when determining whether taking the address of an array element is
valid, check for the array's actual lower bound instead of always for zero git-svn-id: branches/jvmbackend@18822 -
This commit is contained in:
parent
336420ef46
commit
f40c893084
@ -141,7 +141,7 @@ implementation
|
||||
(left.nodetype=vecn) and
|
||||
(tvecnode(left).left.resultdef.typ=arraydef) and
|
||||
(tvecnode(left).right.nodetype=ordconstn) and
|
||||
(tordconstnode(tvecnode(left).right).value=0);
|
||||
(tordconstnode(tvecnode(left).right).value=tarraydef(tvecnode(left).left.resultdef).lowrange);
|
||||
end;
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user