paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 08:30:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* skip temp (de)allocs when looking for store/regdealloc/load and

Browse Source 
regalloc/regdealloc sequences

git-svn-id: trunk@31454 -
This commit is contained in:
Jonas Maebe 2015-08-29 21:06:23 +00:00
parent cd83bc35b6
commit 51864b0458
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/jvm/rgcpu.pas
View File

@ -181,8 +181,8 @@ implementation
and remove. We don't have to check that the load/store
types match, because they have to for this to be
valid JVM code }
dealloc:=nextskipping(p,[ait_comment]);
load:=nextskipping(dealloc,[ait_comment]);
dealloc:=nextskipping(p,[ait_comment,ait_tempalloc]);
load:=nextskipping(dealloc,[ait_comment,ait_tempalloc]);
reg:=NR_NO;
if issimpleregstore(p,reg,true) and
isregallocoftyp(dealloc,ra_dealloc,reg) and
@ -215,7 +215,7 @@ implementation
ait_regalloc:
begin
reg:=NR_NO;
next:=nextskipping(p,[ait_comment]);
next:=nextskipping(p,[ait_comment,ait_tempalloc]);
nextnext:=nextskipping(next,[ait_comment,ait_regalloc]);
if assigned(nextnext) then
begin