paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 14:29:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* allocate register correctly for "MovMov2Mov 2"

Browse Source 
+ more debug messages
* debug message naming fixed

git-svn-id: trunk@36284 -
This commit is contained in:
florian 2017-05-21 15:06:22 +00:00
parent 69f41a776e
commit 3c5ec4e76c
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/x86/aoptx86.pas
View File

@ -961,7 +961,7 @@ unit aoptx86;
DebugMsg('Peephole Optimization MovapXOpMovapX2Op ('+
std_op2str[taicpu(p).opcode]+' '+
std_op2str[taicpu(hp1).opcode]+' '+
std_op2str[taicpu(hp2).opcode]+')',p);
std_op2str[taicpu(hp2).opcode]+') done',p);
{ we cannot eliminate the first move if
the operations uses the same register for source and dest }
if not(OpsEqual(taicpu(hp1).oper[1]^,taicpu(hp1).oper[0]^)) then
@ -1096,7 +1096,7 @@ unit aoptx86;
if MatchOperand(taicpu(p).oper[0]^,taicpu(p).oper[1]^) then
begin
GetNextInstruction(p, hp1);
DebugMsg('PeepHole Optimization,Mov2Nop',p);
DebugMsg('PeepHole Optimization Mov2Nop done',p);
asml.remove(p);
p.free;
p:=hp1;
@ -1113,7 +1113,7 @@ unit aoptx86;
S_L:
if (taicpu(hp1).oper[0]^.val = $ffffffff) then
begin
DebugMsg('PeepHole Optimization,MovAnd2Mov',p);
DebugMsg('PeepHole Optimization MovAnd2Mov done',p);
asml.remove(hp1);
hp1.free;
Result:=true;
@ -1151,8 +1151,10 @@ unit aoptx86;
mov %reg, y
}
if taicpu(hp1).oper[1]^.typ=top_reg then
AllocRegBetween(taicpu(hp1).oper[1]^.reg,p,hp1,usedregs);
taicpu(p).loadOper(1,taicpu(hp1).oper[1]^);
DebugMsg('PeepHole Optimization,MovMov2Mov 2',p);
DebugMsg('PeepHole Optimization MovMov2Mov 2 done',p);
asml.remove(hp1);
hp1.free;
ReleaseUsedRegs(TmpUsedRegs);
@ -1171,7 +1173,7 @@ unit aoptx86;
mov mem, %reg"
}
taicpu(p).loadoper(1,taicpu(hp1).oper[1]^);
DebugMsg('PeepHole Optimization,MovMov2Mov 3',p);
DebugMsg('PeepHole Optimization MovMov2Mov 3 done',p);
asml.remove(hp1);
hp1.free;
ReleaseUsedRegs(TmpUsedRegs);
@ -1236,6 +1238,7 @@ unit aoptx86;
begin
taicpu(hp1).loadoper(0,taicpu(p).oper[0]^);
taicpu(hp1).loadoper(1,taicpu(p).oper[0]^);
DebugMsg('PeepHole Optimization MovTestJxx2TestMov done',p);
asml.remove(p);
p.free;
p := hp1;
@ -1257,6 +1260,7 @@ unit aoptx86;
begin
taicpu(hp1).loadoper(0,taicpu(p).oper[0]^);
taicpu(hp1).loadoper(1,taicpu(p).oper[0]^);
DebugMsg('PeepHole Optimization MovTestJxx2ovTestJxx done',p);
end;
ReleaseUsedRegs(TmpUsedRegs);
end
@ -1324,7 +1328,7 @@ unit aoptx86;
begin
if taicpu(p).oper[0]^.typ=top_reg then
AllocRegBetween(taicpu(p).oper[0]^.reg,p,hp1,usedregs);
DebugMsg('PeepHole Optimization,MovMov2Mov 1',p);
DebugMsg('PeepHole Optimization MovMov2Mov 1',p);
asml.remove(hp1);
hp1.free;
Result:=true;
@ -1355,7 +1359,7 @@ unit aoptx86;
taicpu(hp1).loadref(1,taicpu(hp1).oper[0]^.ref^);
taicpu(hp1).loadreg(0,taicpu(p).oper[0]^.reg);
AllocRegBetween(taicpu(p).oper[0]^.reg,p,hp1,UsedRegs);
DebugMsg('Peephole MovMovCmp2MovCmp done',hp1);
DebugMsg('Peephole Optimization MovMovCmp2MovCmp done',hp1);
end;
ReleaseUsedRegs(TmpUsedRegs);
end;
@ -1365,7 +1369,7 @@ unit aoptx86;
begin
AllocRegBetween(taicpu(p).oper[0]^.reg,p,hp1,UsedRegs);
taicpu(hp1).loadreg(0,taicpu(p).oper[0]^.reg);
DebugMsg('PeepHole Optimization,MovMov2MovMov1',p);
DebugMsg('PeepHole Optimization MovMov2MovMov1 done',p);
end
else
begin
@ -1387,7 +1391,7 @@ unit aoptx86;
mov reg2, mem2}
begin
AllocRegBetween(taicpu(hp2).oper[1]^.reg,p,hp2,usedregs);
DebugMsg('PeepHole Optimization,MovMovMov2MovMov 1',p);
DebugMsg('PeepHole Optimization MovMovMov2MovMov 1 done',p);
taicpu(p).loadoper(1,taicpu(hp2).oper[1]^);
taicpu(hp1).loadoper(0,taicpu(hp2).oper[1]^);
asml.remove(hp2);
@ -1647,11 +1651,11 @@ unit aoptx86;
begin
asml.remove(p);
p.free;
DebugMsg('PeepHole Optimization,MovXXMovXX2Nop 1',p);
DebugMsg('PeepHole Optimization MovXXMovXX2Nop 1 done',p);
GetNextInstruction(hp1,p);
end
else
DebugMsg('PeepHole Optimization,MovXXMovXX2MoVXX 1',p);
DebugMsg('PeepHole Optimization MovXXMovXX2MoVXX 1 done',p);
asml.remove(hp1);
hp1.free;
Result:=true;
@ -1685,6 +1689,7 @@ unit aoptx86;
taicpu(hp1).oper[0]^.ref^.base := taicpu(p).oper[0]^.reg;
if (taicpu(hp1).oper[0]^.ref^.index = taicpu(p).oper[1]^.reg) then
taicpu(hp1).oper[0]^.ref^.index := taicpu(p).oper[0]^.reg;
DebugMsg('PeepHole Optimization MovMovXX2MoVXX 1 done',p);
asml.remove(p);
p.free;
p := hp1;