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

* better peephole optimization tracing

Browse Source 
git-svn-id: trunk@34698 -
This commit is contained in:
florian 2016-10-09 13:41:38 +00:00
parent 42760951f9
commit 57ca8647b3
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/x86/aoptx86.pas
View File

@ -582,6 +582,7 @@ unit aoptx86;
mov %reg, y mov %reg, y
} }
taicpu(p).loadOper(1,taicpu(hp1).oper[1]^); taicpu(p).loadOper(1,taicpu(hp1).oper[1]^);
DebugMsg('PeepHole Optimization,MovMov2Mov 2',p);
asml.remove(hp1); asml.remove(hp1);
hp1.free; hp1.free;
ReleaseUsedRegs(TmpUsedRegs); ReleaseUsedRegs(TmpUsedRegs);
@ -599,6 +600,7 @@ unit aoptx86;
mov mem, %reg" mov mem, %reg"
} }
taicpu(p).loadoper(1,taicpu(hp1).oper[1]^); taicpu(p).loadoper(1,taicpu(hp1).oper[1]^);
DebugMsg('PeepHole Optimization,MovMov2Mov 3',p);
asml.remove(hp1); asml.remove(hp1);
hp1.free; hp1.free;
ReleaseUsedRegs(TmpUsedRegs); ReleaseUsedRegs(TmpUsedRegs);
@ -748,7 +750,7 @@ unit aoptx86;
begin begin
if (taicpu(p).oper[0]^.typ = top_reg) then if (taicpu(p).oper[0]^.typ = top_reg) then
AllocRegBetween(taicpu(p).oper[0]^.reg,p,hp1,usedregs); AllocRegBetween(taicpu(p).oper[0]^.reg,p,hp1,usedregs);
DebugMsg('PeepHole Optimization,MovMov2Mov1',p); DebugMsg('PeepHole Optimization,MovMov2Mov 1',p);
asml.remove(hp1); asml.remove(hp1);
hp1.free; hp1.free;
Result:=true; Result:=true;