paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 00:38:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed r18981 (conversion of LOC_JUMP to something else must happen before

Browse Source 
before the old jump labels are restored)

git-svn-id: branches/jvmbackend@19155 -
This commit is contained in:
Jonas Maebe 2011-09-19 21:22:35 +00:00
parent 583c9a3360
commit 5332263d46
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/jvm/njvmmem.pas
View File

@ -377,6 +377,13 @@ implementation
end;
secondpass(right);
{ simplify index location if necessary, since array references support
an index in memory, but not an another array index }
if isjump or
((right.location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) and
(right.location.reference.arrayreftype<>art_none)) then
hlcg.location_force_reg(current_asmdata.CurrAsmList,right.location,right.resultdef,right.resultdef,true);
if isjump then
begin
current_procinfo.CurrTrueLabel:=otl;
@ -384,12 +391,6 @@ implementation
end
else if (right.location.loc = LOC_JUMP) then
internalerror(2011090501);
{ simplify index location if necessary, since array references support
an index in memory, but not an another array index }
if (right.location.loc=LOC_JUMP) or
((right.location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) and
(right.location.reference.arrayreftype<>art_none)) then
hlcg.location_force_reg(current_asmdata.CurrAsmList,right.location,right.resultdef,right.resultdef,true);
{ replace enum class instance with the corresponding integer value }
if (right.resultdef.typ=enumdef) then
begin