From 19d5e4361575564889b0d4230a10fd84973c43e9 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Sat, 5 Dec 2020 21:23:09 +0000
Subject: [PATCH]  Avoid internalerror in RemoveCurrentP for arm compiler

git-svn-id: trunk@47690 -
---
 compiler/arm/aoptcpu.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/arm/aoptcpu.pas b/compiler/arm/aoptcpu.pas
index 12160f85bc..3adb81644e 100644
--- a/compiler/arm/aoptcpu.pas
+++ b/compiler/arm/aoptcpu.pas
@@ -1545,7 +1545,7 @@ Implementation
                       asml.InsertAfter(dealloc,hpfar1);
                     end;
 
-                  if not Assigned(hp1) then
+                  if (not Assigned(hp1)) or (p=hp1) then
                     GetNextInstruction(p, hp1);
 
                   RemoveCurrentP(p, hp1);