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

* CollapseZeroDistJump no longer updates registers or strips dead labels, instead just setting p to p.Next

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-11-17 11:14:04 +00:00 committed by J. Gareth "Kit" Moreton
parent c21bf747fb
commit e7e4044bf0
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/aoptobj.pas
View File

@ -2185,7 +2185,7 @@ Unit AoptObj;
function TAOptObj.CollapseZeroDistJump(var p: tai; ThisLabel: TAsmLabel): Boolean;
var
tmp, hp1: tai;
hp1: tai;
begin
Result := False;
if not GetNextInstruction(p,hp1) then
@ -2203,15 +2203,11 @@ Unit AoptObj;
{$ifdef cpudelayslot}
RemoveDelaySlot(p);
{$endif cpudelayslot}
tmp := tai(p.Next); { Might be an align before the label, so keep a note of it }
asml.remove(p);
p.free;
StripDeadLabels(tmp, p);
if p.typ <> ait_instruction then
GetNextInstruction(UpdateUsedRegsAndOptimize(p), p);
hp1 := tai(p.Next);
{ Use RemoveInstruction, not RemoveCurrentP, since the latter also
updates the registers }
RemoveInstruction(p);
p := hp1;
Result := True;
end;