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

* cleaned up do_spill_replace()

Browse Source 
git-svn-id: trunk@27107 -
This commit is contained in:
Jonas Maebe 2014-03-11 23:19:01 +00:00
parent 92fa75838e
commit 7ea92f48cc
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/arm/rgcpu.pas
View File

@ -301,11 +301,8 @@ unit rgcpu;
(get_alias(getsupreg(oper[1]^.reg))<>orgreg) then
begin
{ str expects the register in oper[0] }
oper[0]^.typ:=top_reg;
oper[0]^.reg:=oper[1]^.reg;
oper[1]^.typ:=top_ref;
new(oper[1]^.ref);
oper[1]^.ref^:=spilltemp;
instr.loadreg(0,oper[1]^.reg);
instr.loadref(1,spilltemp);
opcode:=A_STR;
result:=true;
end
@ -313,9 +310,7 @@ unit rgcpu;
(get_alias(getsupreg(oper[1]^.reg))=orgreg) and
(get_alias(getsupreg(oper[0]^.reg))<>orgreg) then
begin
oper[1]^.typ:=top_ref;
new(oper[1]^.ref);
oper[1]^.ref^:=spilltemp;
instr.loadref(1,spilltemp);
opcode:=A_LDR;
result:=true;
end;