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

+ Aarch64: Ldr<Postfix>Mov2Ldr<Postfix> optimization

Browse Source
This commit is contained in:
florian 2021-10-02 16:07:00 +02:00
parent b5c7997c88
commit c1d8e32eae
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/aarch64/aoptcpu.pas
View File

@ -297,11 +297,17 @@ Implementation
function TCpuAsmOptimizer.OptPass1LDR(var p: tai): Boolean; function TCpuAsmOptimizer.OptPass1LDR(var p: tai): Boolean;
var
hp1: tai;
begin begin
Result := False; Result := False;
if inherited OptPass1LDR(p) or if inherited OptPass1LDR(p) or
LookForPostindexedPattern(p) then LookForPostindexedPattern(p) then
Exit(True); Exit(True)
else if (taicpu(p).oppostfix in [PF_B,PF_SB,PF_H,PF_SH,PF_None]) and
GetNextInstructionUsingReg(p, hp1, taicpu(p).oper[0]^.reg) and
RemoveSuperfluousMove(p, hp1, 'Ldr<Postfix>Mov2Ldr<Postfix>') then
Exit(true);
end; end;