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

Do not set value of stoploop to avoid infinite loop

Browse Source 
git-svn-id: trunk@45785 -
This commit is contained in:
pierre 2020-07-15 08:16:53 +00:00
parent 7337515137
commit 13afd5c6c7
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/aoptobj.pas
View File

@ -1948,10 +1948,7 @@ Unit AoptObj;
is the same instruction, like 'bne $v0,$zero,.Lj3' for MIPS }
if (taicpu(p).ops>1) or ((hp1.typ=ait_instruction) and
(taicpu(hp1).ops>1)) then
begin
stoploop:=false;
exit;
end;
exit;
while (hp1 <> BlockEnd) do
begin
StripDeadLabels(hp1, hp1);