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

+ ARM: MovMLA2MUL optimization

Browse Source 
git-svn-id: trunk@44243 -
This commit is contained in:
florian 2020-02-25 21:28:52 +00:00
parent 684ef3008f
commit 9132b54b3b
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/arm/aoptcpu.pas
View File

@ -1270,6 +1270,22 @@ Implementation
Result:=true;
exit;
end
else if (taicpu(p).oper[1]^.typ = top_const) and
(taicpu(p).oper[1]^.val=0) and
MatchInstruction(hp1, A_MLA, [taicpu(p).condition], [taicpu(p).oppostfix]) and
MatchOperand(taicpu(p).oper[3]^, taicpu(hp1).oper[1]^) then
begin
TransferUsedRegs(TmpUsedRegs);
UpdateUsedRegs(TmpUsedRegs, tai(p.next));
UpdateUsedRegs(TmpUsedRegs, tai(hp1.next));
DebugMsg('Peephole MovMLA2MUL 1 done', p);
taicpu(hp1).ops:=3;
taicpu(hp1).opcode:=A_MUL;
if not(RegUsedAfterInstruction(taicpu(hp1).oper[0]^.reg,hp1,TmpUsedRegs)) then
RemoveCurrentP(p);
Result:=true;
exit;
end
{
This changes the very common
mov r0, #0