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

* patch by J. Gareth Moreton: AArch64 OptPass1Shift register tracking fault fix, resolves #38691

Browse Source 
git-svn-id: trunk@49235 -
This commit is contained in:
florian 2021-04-19 19:54:39 +00:00
parent f718567c95
commit 77681333f5
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/aarch64/aoptcpu.pas
View File

@ -379,15 +379,23 @@ Implementation
taicpu(hp1).oper[0]^.reg, taicpu(p).oper[1]^.reg,
shifterop);
{ Make sure the register used in the shifting is tracked all
the way through, otherwise it may become deallocated while
it's still live and cause incorrect optimisations later }
if (taicpu(hp1).oper[0]^.reg <> taicpu(p).oper[1]^.reg) then
begin
TransferUsedRegs(TmpUsedRegs);
UpdateUsedRegs(TmpUsedRegs, tai(p.Next));
ALlocRegBetween(taicpu(p).oper[1]^.reg, p, hp1, TmpUsedRegs);
end;
taicpu(hp2).fileinfo:=taicpu(hp1).fileinfo;
asml.insertbefore(hp2, hp1);
GetNextInstruction(p, hp2);
asml.remove(p);
asml.remove(hp1);
p.free;
hp1.free;
p:=hp2;
DebugMsg('Peephole FoldShiftProcess done', p);
RemoveInstruction(hp1);
RemoveCurrentp(p);
DebugMsg('Peephole FoldShiftProcess done', hp2);
Result:=true;
break;
end;