From 13afd5c6c75487336b6ecef0a62cf0220f5e015b Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 15 Jul 2020 08:16:53 +0000
Subject: [PATCH]  Do not set value of stoploop to avoid infinite loop

git-svn-id: trunk@45785 -
---
 compiler/aoptobj.pas | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/compiler/aoptobj.pas b/compiler/aoptobj.pas
index 6175cf463f..6d9ae5f0cd 100644
--- a/compiler/aoptobj.pas
+++ b/compiler/aoptobj.pas
@@ -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);