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

avr: Add peephole optimization for in+sbr* bit test sequence.

Browse Source 
git-svn-id: trunk@41962 -
(cherry picked from commit 3ad450c636)
This commit is contained in:
Jeppe Johansen 2019-04-30 17:00:30 +00:00 committed by florian
parent f5e34990ae
commit d993e1b9c3
1 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
compiler/avr/aoptcpu.pas
View File

@ -481,6 +481,43 @@ Implementation
l.increfs; l.increfs;
asml.InsertAfter(tai_label.create(l), hp2); asml.InsertAfter(tai_label.create(l), hp2);
result:=true;
end;
end;
A_SBRS,
A_SBRC:
begin
{
Turn
in rx, y
sbr* rx, z
Into
sbi* y, z
}
if (taicpu(p).ops=2) and
(taicpu(p).oper[0]^.typ=top_reg) and
assigned(FindRegDeAlloc(taicpu(p).oper[0]^.reg,tai(p.next))) and
GetLastInstruction(p,hp1) and
(hp1.typ=ait_instruction) and
(taicpu(hp1).opcode=A_IN) and
(taicpu(hp1).ops=2) and
(taicpu(hp1).oper[1]^.typ=top_const) and
(taicpu(hp1).oper[1]^.val in [0..31]) and
MatchOperand(taicpu(hp1).oper[0]^,taicpu(p).oper[0]^.reg) and
(not RegModifiedBetween(taicpu(p).oper[0]^.reg, hp1, p)) then
begin
if taicpu(p).opcode=A_SBRS then
taicpu(p).opcode:=A_SBIS
else
taicpu(p).opcode:=A_SBIC;
taicpu(p).loadconst(0, taicpu(hp1).oper[1]^.val);
DebugMsg('Peephole InSbrx2Sbix performed', p);
asml.Remove(hp1);
hp1.free;
result:=true; result:=true;
end; end;
end; end;