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

+ PushPushPopPop2MovMov optimization

Browse Source 
git-svn-id: trunk@34934 -
This commit is contained in:
florian 2016-11-20 16:03:49 +00:00
parent cfb5ebeb23
commit e49a826837
1 changed files with 54 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

79
compiler/avr/aoptcpu.pas
View File

@ -628,43 +628,72 @@ Implementation
push reg1
pop reg3
pop reg2
into
movw reg2,reg0
or
mov reg3,reg1
mov reg2,reg0
}
if (taicpu(p).ops=1) and
(taicpu(p).oper[0]^.typ=top_reg) and
GetNextInstruction(p,hp1) and
(hp1.typ=ait_instruction) and
(taicpu(hp1).opcode=A_PUSH) and
(getsupreg(taicpu(hp1).oper[0]^.reg)=getsupreg(taicpu(p).oper[0]^.reg)+1) and
((getsupreg(taicpu(p).oper[0]^.reg) mod 2)=0) and
if GetNextInstruction(p,hp1) and
MatchInstruction(hp1,A_PUSH) and
GetNextInstruction(hp1,hp2) and
(hp2.typ=ait_instruction) and
(taicpu(hp2).opcode=A_POP) and
MatchInstruction(hp2,A_POP) and
GetNextInstruction(hp2,hp3) and
(hp3.typ=ait_instruction) and
(taicpu(hp3).opcode=A_POP) and
(getsupreg(taicpu(hp2).oper[0]^.reg)=getsupreg(taicpu(hp3).oper[0]^.reg)+1) and
((getsupreg(taicpu(hp3).oper[0]^.reg) mod 2)=0) then
MatchInstruction(hp3,A_POP) then
begin
DebugMsg('Peephole PushPushPopPop2Movw performed', p);
if (getsupreg(taicpu(hp1).oper[0]^.reg)=getsupreg(taicpu(p).oper[0]^.reg)+1) and
((getsupreg(taicpu(p).oper[0]^.reg) mod 2)=0) and
(getsupreg(taicpu(hp2).oper[0]^.reg)=getsupreg(taicpu(hp3).oper[0]^.reg)+1) and
((getsupreg(taicpu(hp3).oper[0]^.reg) mod 2)=0) then
begin
DebugMsg('Peephole PushPushPopPop2Movw performed', p);
taicpu(p).ops:=2;
taicpu(p).opcode:=A_MOVW;
taicpu(p).ops:=2;
taicpu(p).opcode:=A_MOVW;
taicpu(p).loadreg(1, taicpu(p).oper[0]^.reg);
taicpu(p).loadreg(0, taicpu(hp3).oper[0]^.reg);
taicpu(p).loadreg(1, taicpu(p).oper[0]^.reg);
taicpu(p).loadreg(0, taicpu(hp3).oper[0]^.reg);
asml.Remove(hp1);
hp1.Free;
asml.Remove(hp2);
hp2.Free;
asml.Remove(hp3);
hp3.Free;
asml.Remove(hp1);
hp1.Free;
asml.Remove(hp2);
hp2.Free;
asml.Remove(hp3);
hp3.Free;
result:=true;
end
else
begin
DebugMsg('Peephole PushPushPopPop2MovMov performed', p);
taicpu(p).ops:=2;
taicpu(p).opcode:=A_MOV;
taicpu(hp1).ops:=2;
taicpu(hp1).opcode:=A_MOV;
taicpu(p).loadreg(1, taicpu(p).oper[0]^.reg);
taicpu(p).loadreg(0, taicpu(hp3).oper[0]^.reg);
taicpu(hp1).loadreg(1, taicpu(hp1).oper[0]^.reg);
taicpu(hp1).loadreg(0, taicpu(hp2).oper[0]^.reg);
asml.Remove(hp2);
hp2.Free;
asml.Remove(hp3);
hp3.Free;
result:=true;
end
result:=true;
end;
end;
A_MOV: