mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-17 17:09:09 +02:00
* factored out TARMAsmOptimizer.OptPass1SXTH
* AArch64: use TARMAsmOptimizer.OptPass1SXTH git-svn-id: trunk@44739 -
This commit is contained in:
florian
parent
19a9d4c4ac
commit
9176efbab4
@ -378,6 +378,8 @@ Implementation
|
|||||||
Result:=OptPass1UXTB(p);
|
Result:=OptPass1UXTB(p);
|
||||||
A_SXTB:
|
A_SXTB:
|
||||||
Result:=OptPass1SXTB(p);
|
Result:=OptPass1SXTB(p);
|
||||||
|
A_SXTH:
|
||||||
|
Result:=OptPass1SXTH(p);
|
||||||
else
|
else
|
||||||
;
|
;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -1896,95 +1896,7 @@ Implementation
|
|||||||
A_SXTB:
|
A_SXTB:
|
||||||
Result:=OptPass1SXTB(p);
|
Result:=OptPass1SXTB(p);
|
||||||
A_SXTH:
|
A_SXTH:
|
||||||
begin
|
Result:=OptPass1SXTH(p);
|
||||||
{
|
|
||||||
change
|
|
||||||
sxth reg2,reg1
|
|
||||||
strh reg2,[...]
|
|
||||||
dealloc reg2
|
|
||||||
to
|
|
||||||
strh reg1,[...]
|
|
||||||
}
|
|
||||||
if MatchInstruction(p, taicpu(p).opcode, [C_None], [PF_None]) and
|
|
||||||
(taicpu(p).ops=2) and
|
|
||||||
GetNextInstructionUsingReg(p,hp1,taicpu(p).oper[0]^.reg) and
|
|
||||||
MatchInstruction(hp1, A_STR, [C_None], [PF_H]) and
|
|
||||||
RegEndofLife(taicpu(p).oper[0]^.reg,taicpu(hp1)) and
|
|
||||||
{ the reference in strb might not use reg2 }
|
|
||||||
not(RegInRef(taicpu(p).oper[0]^.reg,taicpu(hp1).oper[1]^.ref^)) and
|
|
||||||
{ reg1 might not be modified inbetween }
|
|
||||||
not(RegModifiedBetween(taicpu(p).oper[1]^.reg,p,hp1)) then
|
|
||||||
begin
|
|
||||||
DebugMsg('Peephole SXTHStrh2Strh done', p);
|
|
||||||
taicpu(hp1).loadReg(0,taicpu(p).oper[1]^.reg);
|
|
||||||
GetNextInstruction(p, hp1);
|
|
||||||
asml.remove(p);
|
|
||||||
p.free;
|
|
||||||
p:=hp1;
|
|
||||||
result:=true;
|
|
||||||
end
|
|
||||||
{
|
|
||||||
change
|
|
||||||
sxth reg2,reg1
|
|
||||||
sxth reg3,reg2
|
|
||||||
dealloc reg2
|
|
||||||
to
|
|
||||||
sxth reg3,reg1
|
|
||||||
}
|
|
||||||
else if MatchInstruction(p, A_SXTH, [C_None], [PF_None]) and
|
|
||||||
(taicpu(p).ops=2) and
|
|
||||||
GetNextInstructionUsingReg(p,hp1,taicpu(p).oper[0]^.reg) and
|
|
||||||
MatchInstruction(hp1, A_SXTH, [C_None], [PF_None]) and
|
|
||||||
(taicpu(hp1).ops=2) and
|
|
||||||
MatchOperand(taicpu(hp1).oper[1]^, taicpu(p).oper[0]^.reg) and
|
|
||||||
RegEndofLife(taicpu(p).oper[0]^.reg,taicpu(hp1)) and
|
|
||||||
{ reg1 might not be modified inbetween }
|
|
||||||
not(RegModifiedBetween(taicpu(p).oper[1]^.reg,p,hp1)) then
|
|
||||||
begin
|
|
||||||
DebugMsg('Peephole SxthSxth2Sxth done', p);
|
|
||||||
AllocRegBetween(taicpu(p).oper[1]^.reg,p,hp1,UsedRegs);
|
|
||||||
taicpu(hp1).opcode:=A_SXTH;
|
|
||||||
taicpu(hp1).loadReg(1,taicpu(p).oper[1]^.reg);
|
|
||||||
GetNextInstruction(p, hp1);
|
|
||||||
asml.remove(p);
|
|
||||||
p.free;
|
|
||||||
p:=hp1;
|
|
||||||
result:=true;
|
|
||||||
end
|
|
||||||
{
|
|
||||||
change
|
|
||||||
sxth reg2,reg1
|
|
||||||
and reg3,reg2,#65535
|
|
||||||
dealloc reg2
|
|
||||||
to
|
|
||||||
sxth reg3,reg1
|
|
||||||
}
|
|
||||||
else if MatchInstruction(p, A_SXTH, [C_None], [PF_None]) and
|
|
||||||
(taicpu(p).ops=2) and
|
|
||||||
GetNextInstructionUsingReg(p,hp1,taicpu(p).oper[0]^.reg) and
|
|
||||||
MatchInstruction(hp1, A_AND, [C_None], [PF_None]) and
|
|
||||||
(taicpu(hp1).ops=3) and
|
|
||||||
(taicpu(hp1).oper[2]^.typ=top_const) and
|
|
||||||
((taicpu(hp1).oper[2]^.val and $FFFF)=$FFFF) and
|
|
||||||
MatchOperand(taicpu(hp1).oper[1]^, taicpu(p).oper[0]^.reg) and
|
|
||||||
RegEndofLife(taicpu(p).oper[0]^.reg,taicpu(hp1)) and
|
|
||||||
{ reg1 might not be modified inbetween }
|
|
||||||
not(RegModifiedBetween(taicpu(p).oper[1]^.reg,p,hp1)) then
|
|
||||||
begin
|
|
||||||
DebugMsg('Peephole SxthAndImm2Sxth done', p);
|
|
||||||
taicpu(hp1).opcode:=A_SXTH;
|
|
||||||
taicpu(hp1).ops:=2;
|
|
||||||
taicpu(hp1).loadReg(1,taicpu(p).oper[1]^.reg);
|
|
||||||
GetNextInstruction(p, hp1);
|
|
||||||
asml.remove(p);
|
|
||||||
p.free;
|
|
||||||
p:=hp1;
|
|
||||||
result:=true;
|
|
||||||
end
|
|
||||||
else if GetNextInstructionUsingReg(p, hp1, taicpu(p).oper[0]^.reg) and
|
|
||||||
RemoveSuperfluousMove(p, hp1, 'SxthMov2Data') then
|
|
||||||
Result:=true;
|
|
||||||
end;
|
|
||||||
A_CMP:
|
A_CMP:
|
||||||
begin
|
begin
|
||||||
{
|
{
|
||||||
|
|||||||
@ -45,6 +45,7 @@ Type
|
|||||||
function OptPass1UXTB(var p: tai): Boolean;
|
function OptPass1UXTB(var p: tai): Boolean;
|
||||||
function OptPass1UXTH(var p: tai): Boolean;
|
function OptPass1UXTH(var p: tai): Boolean;
|
||||||
function OptPass1SXTB(var p: tai): Boolean;
|
function OptPass1SXTB(var p: tai): Boolean;
|
||||||
|
function OptPass1SXTH(var p: tai): Boolean;
|
||||||
End;
|
End;
|
||||||
|
|
||||||
function MatchInstruction(const instr: tai; const op: TCommonAsmOps; const cond: TAsmConds; const postfix: TOpPostfixes): boolean;
|
function MatchInstruction(const instr: tai; const op: TCommonAsmOps; const cond: TAsmConds; const postfix: TOpPostfixes): boolean;
|
||||||
@ -597,5 +598,99 @@ Implementation
|
|||||||
Result:=true;
|
Result:=true;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function TARMAsmOptimizer.OptPass1SXTH(var p : tai) : Boolean;
|
||||||
|
var
|
||||||
|
hp1: tai;
|
||||||
|
begin
|
||||||
|
Result:=false;
|
||||||
|
{
|
||||||
|
change
|
||||||
|
sxth reg2,reg1
|
||||||
|
strh reg2,[...]
|
||||||
|
dealloc reg2
|
||||||
|
to
|
||||||
|
strh reg1,[...]
|
||||||
|
}
|
||||||
|
if MatchInstruction(p, taicpu(p).opcode, [C_None], [PF_None]) and
|
||||||
|
(taicpu(p).ops=2) and
|
||||||
|
GetNextInstructionUsingReg(p,hp1,taicpu(p).oper[0]^.reg) and
|
||||||
|
MatchInstruction(hp1, A_STR, [C_None], [PF_H]) and
|
||||||
|
RegEndofLife(taicpu(p).oper[0]^.reg,taicpu(hp1)) and
|
||||||
|
{ the reference in strb might not use reg2 }
|
||||||
|
not(RegInRef(taicpu(p).oper[0]^.reg,taicpu(hp1).oper[1]^.ref^)) and
|
||||||
|
{ reg1 might not be modified inbetween }
|
||||||
|
not(RegModifiedBetween(taicpu(p).oper[1]^.reg,p,hp1)) then
|
||||||
|
begin
|
||||||
|
DebugMsg('Peephole SXTHStrh2Strh done', p);
|
||||||
|
taicpu(hp1).loadReg(0,taicpu(p).oper[1]^.reg);
|
||||||
|
GetNextInstruction(p, hp1);
|
||||||
|
asml.remove(p);
|
||||||
|
p.free;
|
||||||
|
p:=hp1;
|
||||||
|
result:=true;
|
||||||
|
end
|
||||||
|
{
|
||||||
|
change
|
||||||
|
sxth reg2,reg1
|
||||||
|
sxth reg3,reg2
|
||||||
|
dealloc reg2
|
||||||
|
to
|
||||||
|
sxth reg3,reg1
|
||||||
|
}
|
||||||
|
else if MatchInstruction(p, A_SXTH, [C_None], [PF_None]) and
|
||||||
|
(taicpu(p).ops=2) and
|
||||||
|
GetNextInstructionUsingReg(p,hp1,taicpu(p).oper[0]^.reg) and
|
||||||
|
MatchInstruction(hp1, A_SXTH, [C_None], [PF_None]) and
|
||||||
|
(taicpu(hp1).ops=2) and
|
||||||
|
MatchOperand(taicpu(hp1).oper[1]^, taicpu(p).oper[0]^.reg) and
|
||||||
|
RegEndofLife(taicpu(p).oper[0]^.reg,taicpu(hp1)) and
|
||||||
|
{ reg1 might not be modified inbetween }
|
||||||
|
not(RegModifiedBetween(taicpu(p).oper[1]^.reg,p,hp1)) then
|
||||||
|
begin
|
||||||
|
DebugMsg('Peephole SxthSxth2Sxth done', p);
|
||||||
|
AllocRegBetween(taicpu(p).oper[1]^.reg,p,hp1,UsedRegs);
|
||||||
|
taicpu(hp1).opcode:=A_SXTH;
|
||||||
|
taicpu(hp1).loadReg(1,taicpu(p).oper[1]^.reg);
|
||||||
|
GetNextInstruction(p, hp1);
|
||||||
|
asml.remove(p);
|
||||||
|
p.free;
|
||||||
|
p:=hp1;
|
||||||
|
result:=true;
|
||||||
|
end
|
||||||
|
{
|
||||||
|
change
|
||||||
|
sxth reg2,reg1
|
||||||
|
and reg3,reg2,#65535
|
||||||
|
dealloc reg2
|
||||||
|
to
|
||||||
|
sxth reg3,reg1
|
||||||
|
}
|
||||||
|
else if MatchInstruction(p, A_SXTH, [C_None], [PF_None]) and
|
||||||
|
(taicpu(p).ops=2) and
|
||||||
|
GetNextInstructionUsingReg(p,hp1,taicpu(p).oper[0]^.reg) and
|
||||||
|
MatchInstruction(hp1, A_AND, [C_None], [PF_None]) and
|
||||||
|
(taicpu(hp1).ops=3) and
|
||||||
|
(taicpu(hp1).oper[2]^.typ=top_const) and
|
||||||
|
((taicpu(hp1).oper[2]^.val and $FFFF)=$FFFF) and
|
||||||
|
MatchOperand(taicpu(hp1).oper[1]^, taicpu(p).oper[0]^.reg) and
|
||||||
|
RegEndofLife(taicpu(p).oper[0]^.reg,taicpu(hp1)) and
|
||||||
|
{ reg1 might not be modified inbetween }
|
||||||
|
not(RegModifiedBetween(taicpu(p).oper[1]^.reg,p,hp1)) then
|
||||||
|
begin
|
||||||
|
DebugMsg('Peephole SxthAndImm2Sxth done', p);
|
||||||
|
taicpu(hp1).opcode:=A_SXTH;
|
||||||
|
taicpu(hp1).ops:=2;
|
||||||
|
taicpu(hp1).loadReg(1,taicpu(p).oper[1]^.reg);
|
||||||
|
GetNextInstruction(p, hp1);
|
||||||
|
asml.remove(p);
|
||||||
|
p.free;
|
||||||
|
p:=hp1;
|
||||||
|
result:=true;
|
||||||
|
end
|
||||||
|
else if GetNextInstructionUsingReg(p, hp1, taicpu(p).oper[0]^.reg) and
|
||||||
|
RemoveSuperfluousMove(p, hp1, 'SxthMov2Data') then
|
||||||
|
Result:=true;
|
||||||
|
end;
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user