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

+ x86: MovxMov2Mov optimization

Browse Source 
git-svn-id: trunk@47162 -
This commit is contained in:
florian 2020-10-23 20:05:17 +00:00
parent 6d0ce1c4b6
commit 703941dde5
1 changed files with 51 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
compiler/x86/aoptx86.pas
View File

@ -5626,6 +5626,57 @@ unit aoptx86;
RemoveInstruction(hp1); RemoveInstruction(hp1);
end; end;
end end
else if reg_and_hp1_is_instr and
(taicpu(hp1).opcode = A_MOV) and
MatchOpType(taicpu(hp1),top_reg,top_reg) and
(((taicpu(p).opsize in [S_BW,S_BL,S_WL{$ifdef x86_64},S_BQ,S_WQ,S_LQ{$endif x86_64}]) and
(taicpu(hp1).opsize=S_B)) or
((taicpu(p).opsize in [S_WL{$ifdef x86_64},S_WQ,S_LQ{$endif x86_64}]) and
(taicpu(hp1).opsize=S_W))
{$ifdef x86_64}
or ((taicpu(p).opsize=S_LQ) and
(taicpu(hp1).opsize=S_L))
{$endif x86_64}
) and
SuperRegistersEqual(taicpu(p).oper[1]^.reg,taicpu(hp1).oper[0]^.reg) then
begin
{ change
movx %reg1,%reg2
mov %reg2,%reg3
dealloc %reg2
into
mov %reg1,%reg3
if the second mov accesses only the bits stored in reg1
}
TransferUsedRegs(TmpUsedRegs);
UpdateUsedRegs(TmpUsedRegs, tai(p.next));
if not(RegUsedAfterInstruction(taicpu(p).oper[1]^.reg,hp1,TmpUsedRegs)) then
begin
DebugMsg(SPeepholeOptimization + 'MovxMov2Mov',p);
if taicpu(p).oper[0]^.typ=top_reg then
begin
case taicpu(hp1).opsize of
S_B:
taicpu(hp1).loadreg(0,newreg(R_INTREGISTER,getsupreg(taicpu(p).oper[0]^.reg),R_SUBL));
S_W:
taicpu(hp1).loadreg(0,newreg(R_INTREGISTER,getsupreg(taicpu(p).oper[0]^.reg),R_SUBW));
S_L:
taicpu(hp1).loadreg(0,newreg(R_INTREGISTER,getsupreg(taicpu(p).oper[0]^.reg),R_SUBD));
else
Internalerror(2020102301);
end;
AllocRegBetween(taicpu(hp1).oper[0]^.reg,p,hp1,UsedRegs);
end
else
taicpu(hp1).loadref(0,taicpu(p).oper[0]^.ref^);
RemoveCurrentP(p);
result:=true;
exit;
end;
end
else if reg_and_hp1_is_instr and else if reg_and_hp1_is_instr and
(taicpu(p).oper[0]^.typ = top_reg) and (taicpu(p).oper[0]^.typ = top_reg) and
( (