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

* fixed peephole opitimizer removing some infinite loops (mantis )

Browse Source 
git-svn-id: trunk@43175 -
This commit is contained in:
Jonas Maebe 2019-10-12 21:39:48 +00:00
parent 6c29ecbd1c
commit 67fc9a7853
1 changed files with 11 additions and 2 deletions

13
compiler/aoptobj.pas
View File

@ -1553,7 +1553,7 @@ Unit AoptObj;
procedure TAOptObj.PeepHoleOptPass1;
var
p,hp1,hp2 : tai;
p,hp1,hp2,hp3 : tai;
stoploop:boolean;
begin
repeat
@ -1649,13 +1649,22 @@ Unit AoptObj;
<code>
lab_2:
}
hp3:=hp1;
if hp1.typ = ait_label then
SkipLabels(hp1,hp1);
if (tai(hp1).typ=ait_instruction) and
IsJumpToLabelUncond(taicpu(hp1)) and
GetNextInstruction(hp1, hp2) and
IsJumpToLabel(taicpu(p)) and
FindLabel(tasmlabel(JumpTargetOp(taicpu(p))^.ref^.symbol), hp2) then
FindLabel(tasmlabel(JumpTargetOp(taicpu(p))^.ref^.symbol), hp2) and
{ prevent removal of infinite loop from
jmp<cond> lab_1
lab_2:
jmp lab2
..
lab_1:
}
not FindLabel(tasmlabel(JumpTargetOp(taicpu(hp1))^.ref^.symbol), hp3) then
begin
if (taicpu(p).opcode=aopt_condjmp)
{$if defined(arm) or defined(aarch64)}