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

* use AllocRegbetween in TARMAsmOptimizer.RemoveSuperfluousMove, resolves #39921

Browse Source
This commit is contained in:
florian 2022-10-09 21:30:44 +02:00
parent 02aac653d2
commit 3e5f6d3228
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/armgen/aoptarm.pas
View File

@ -315,16 +315,7 @@ Implementation
else
asml.InsertAfter(dealloc,p);
{ try to move the allocation of the target register }
GetLastInstruction(movp,hp1);
alloc:=FindRegAlloc(taicpu(movp).oper[0]^.reg,tai(hp1.Next));
if assigned(alloc) then
begin
asml.Remove(alloc);
asml.InsertBefore(alloc,p);
{ adjust used regs }
IncludeRegInUsedRegs(taicpu(movp).oper[0]^.reg,UsedRegs);
end;
AllocRegBetween(taicpu(movp).oper[0]^.reg,p,movp,UsedRegs);
{ finally get rid of the mov }
taicpu(p).loadreg(0,taicpu(movp).oper[0]^.reg);