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

+ VMovVMov2VMov optimization

Browse Source 
git-svn-id: trunk@42727 -
This commit is contained in:
florian 2019-08-18 12:09:03 +00:00
parent 3d5ab366e1
commit 5d1d9858d1
1 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/arm/aoptcpu.pas
View File

@ -26,7 +26,7 @@ Unit aoptcpu;
{$i fpcdefs.inc} {$i fpcdefs.inc}
{ $define DEBUG_PREREGSCHEDULER} { $define DEBUG_PREREGSCHEDULER}
{ $define DEBUG_AOPTCPU} {$define DEBUG_AOPTCPU}
Interface Interface
@ -2258,6 +2258,30 @@ Implementation
DebugMsg('Peephole Bl2B done', p); DebugMsg('Peephole Bl2B done', p);
end; end;
end; end;
A_VMOV:
begin
{
change
vmov reg0,reg1,reg2
vmov reg1,reg2,reg0
into
vmov reg0,reg1,reg2
can be applied regardless if reg0 or reg2 is the vfp register
}
if (taicpu(p).ops = 3) and
GetNextInstruction(p, hp1) and
MatchInstruction(hp1, A_VMOV, [taicpu(p).condition], [taicpu(p).oppostfix]) and
(taicpu(hp1).ops = 3) and
MatchOperand(taicpu(p).oper[0]^, taicpu(hp1).oper[2]^) and
MatchOperand(taicpu(p).oper[1]^, taicpu(hp1).oper[0]^) and
MatchOperand(taicpu(p).oper[2]^, taicpu(hp1).oper[1]^) then
begin
asml.Remove(hp1);
hp1.free;
DebugMsg('Peephole VMovVMov2VMov done', p);
end;
end;
A_VLDR, A_VLDR,
A_VADD, A_VADD,
A_VMUL, A_VMUL,