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

* RemoveSuperfluousMove uses FindRegDeAlloc to find out if the register used in the move can be removed

Browse Source 
* RemoveSuperfluousMove fixes partially the register allocation changes caused by the mov

git-svn-id: trunk@22192 -
This commit is contained in:
florian 2012-08-22 19:52:23 +00:00
parent 6e62fbc3d2
commit 77e579f59f
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/arm/aoptcpu.pas
View File

@ -277,7 +277,9 @@ Implementation
procedure TCpuAsmOptimizer.RemoveSuperfluousMove(const p: tai; movp: tai; const optimizer: string);
var
TmpUsedRegs: TAllUsedRegs;
alloc,
dealloc : tai_regalloc;
hp1 : tai;
begin
if MatchInstruction(movp, A_MOV, [taicpu(p).condition], [PF_None]) and
(taicpu(movp).ops=2) and {We can't optimize if there is a shiftop}
@ -294,16 +296,16 @@ Implementation
(taicpu(p).oper[1]^.reg = taicpu(movp).oper[0]^.reg)
) then
begin
CopyUsedRegs(TmpUsedRegs);
UpdateUsedRegs(TmpUsedRegs, tai(p.next));
if not(RegUsedAfterInstruction(taicpu(p).oper[0]^.reg,movp,TmpUsedRegs)) then
dealloc:=FindRegDeAlloc(taicpu(p).oper[0]^.reg,tai(movp.Next));
if assigned(dealloc) then
begin
asml.insertbefore(tai_comment.Create(strpnew('Peephole '+optimizer+' removed superfluous mov')), movp);
taicpu(p).loadreg(0,taicpu(movp).oper[0]^.reg);
asml.remove(movp);
asml.Remove(dealloc);
asml.InsertAfter(dealloc,p);
movp.free;
end;
ReleaseUsedRegs(TmpUsedRegs);
end;
end;