paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 10:10:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* when determining whether taking the address of an array element is

Browse Source 
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:
Jonas Maebe 2011-08-23 20:39:17 +00:00
parent 336420ef46
commit f40c893084
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/jvm/njvmmem.pas
View File

@ -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;