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

* patch by J. Gareth Moreton, second part of #38841

Browse Source 
git-svn-id: trunk@49341 -
This commit is contained in:
florian 2021-05-06 18:44:18 +00:00
parent 9bad5180bb
commit 964c04aded
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/aarch64/aoptcpu.pas
View File

@ -203,9 +203,9 @@ Implementation
not(RegModifiedBetween(taicpu(hp1).oper[2]^.reg,p,hp1)) then
begin
if taicpu(p).opcode = A_LDR then
DebugMsg('Peephole LdrAdd/Sub2Ldr Postindex done', p)
DebugMsg(SPeepholeOptimization + 'LdrAdd/Sub2Ldr Postindex done', p)
else
DebugMsg('Peephole StrAdd/Sub2Str Postindex done', p);
DebugMsg(SPeepholeOptimization + 'StrAdd/Sub2Str Postindex done', p);
taicpu(p).oper[1]^.ref^.addressmode:=AM_POSTINDEXED;
if taicpu(hp1).opcode=A_ADD then
@ -248,7 +248,7 @@ Implementation
dealloc:=FindRegDeAlloc(taicpu(p).oper[0]^.reg,tai(movp.Next));
if assigned(dealloc) then
begin
DebugMsg('Peephole '+optimizer+' removed superfluous vmov', movp);
DebugMsg(SPeepholeOptimization + optimizer+' removed superfluous vmov', movp);
result:=true;
{ taicpu(p).oper[0]^.reg is not used anymore, try to find its allocation
@ -417,7 +417,7 @@ Implementation
RemoveInstruction(hp1);
RemoveCurrentp(p);
DebugMsg('Peephole FoldShiftProcess done', hp2);
DebugMsg(SPeepholeOptimization + 'FoldShiftProcess done', hp2);
Result:=true;
break;
end;
@ -510,7 +510,7 @@ Implementation
hp3.free;
hp4.free;
p:=hp2;
DebugMsg('Peephole Bl2B done', p);
DebugMsg(SPeepholeOptimization + 'Bl2B done', p);
Result:=true;
end;
end;
@ -525,7 +525,7 @@ Implementation
(taicpu(p).oppostfix=PF_None) then
begin
RemoveCurrentP(p);
DebugMsg('Peephole Mov2None done', p);
DebugMsg(SPeepholeOptimization + 'Mov2None done', p);
Result:=true;
end
@ -691,9 +691,9 @@ Implementation
}
taicpu(p).opcode := TargetOpcode;
if TargetOpcode = A_STP then
DebugMsg('Peephole Optimization: StrStr2Stp', p)
DebugMsg(SPeepholeOptimization + 'StrStr2Stp', p)
else
DebugMsg('Peephole Optimization: LdrLdr2Ldp', p);
DebugMsg(SPeepholeOptimization + 'LdrLdr2Ldp', p);
taicpu(p).ops := 3;
taicpu(p).loadref(2, taicpu(p).oper[1]^.ref^);
taicpu(p).loadreg(1, taicpu(hp1).oper[0]^.reg);
@ -717,9 +717,9 @@ Implementation
}
taicpu(p).opcode := TargetOpcode;
if TargetOpcode = A_STP then
DebugMsg('Peephole Optimization: StrStr2Stp (reverse)', p)
DebugMsg(SPeepholeOptimization + 'StrStr2Stp (reverse)', p)
else
DebugMsg('Peephole Optimization: LdrLdr2Ldp (reverse)', p);
DebugMsg(SPeepholeOptimization + 'LdrLdr2Ldp (reverse)', p);
taicpu(p).ops := 3;
taicpu(p).loadref(2, taicpu(hp1).oper[1]^.ref^);
taicpu(p).loadreg(1, taicpu(p).oper[0]^.reg);
@ -774,7 +774,7 @@ Implementation
p.free;
hp1.free;
p:=hp2;
DebugMsg('Peephole CMPB.E/NE2CBNZ/CBZ done', p);
DebugMsg(SPeepholeOptimization + 'CMPB.E/NE2CBNZ/CBZ done', p);
Result:=true;
end;
end;