paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 04:19:28 +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;
begin
Result := False;
hp1 := tai(p.Next);
tmp := hp1; { Might be an align before the label, so keep a note of it }
if not GetNextInstruction(p,hp1) then
exit;
if (hp1 = BlockEnd) then
Exit;
@ -2178,6 +2178,7 @@ 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;