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

* Fixed TAOptObj.CollapseZeroDistJump to properly handle delay slots.

Browse Source 
git-svn-id: trunk@45874 -
This commit is contained in:
yury 2020-07-28 23:27:42 +00:00
parent 2b86651914
commit 2d8873d085
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/aoptobj.pas
View File

@ -2163,8 +2163,8 @@ Unit AoptObj;
tmp, hp1: tai; tmp, hp1: tai;
begin begin
Result := False; Result := False;
hp1 := tai(p.Next); if not GetNextInstruction(p,hp1) then
tmp := hp1; { Might be an align before the label, so keep a note of it } exit;
if (hp1 = BlockEnd) then if (hp1 = BlockEnd) then
Exit; Exit;
@ -2178,6 +2178,7 @@ Unit AoptObj;
{$ifdef cpudelayslot} {$ifdef cpudelayslot}
RemoveDelaySlot(p); RemoveDelaySlot(p);
{$endif cpudelayslot} {$endif cpudelayslot}
tmp := tai(p.Next); { Might be an align before the label, so keep a note of it }
asml.remove(p); asml.remove(p);
p.free; p.free;