From 0c6998bb110a06cc739c3f0657e403aaaf0dc0ab Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Sun, 19 Jul 2020 21:21:18 +0000
Subject: [PATCH] Try to fix mipsel-android by making sure P does not point to
 a freed instruction

git-svn-id: trunk@45812 -
---
 compiler/mips/aoptcpu.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/compiler/mips/aoptcpu.pas b/compiler/mips/aoptcpu.pas
index 71da9bffdb..02ff620eb9 100644
--- a/compiler/mips/aoptcpu.pas
+++ b/compiler/mips/aoptcpu.pas
@@ -876,7 +876,7 @@ unit aoptcpu;
                                             end;
                                           { hp2 is still at b yyy }
                                           GetNextInstruction(hp2,hp1);
-                                          { hp2 is now at xxx: }
+                                          { hp1 is now at xxx: }
                                           condition:=inverse_cond(condition);
                                           GetNextInstruction(hp1,hp1);
                                           { hp1 is now at <several movs 2> }
@@ -891,6 +891,8 @@ unit aoptcpu;
                                           asml.remove(hp3);
                                           hp3.free;
                                           { remove jmp }
+                                          if (p=hp2) then
+                                            GetNextInstruction(hp2,p);
                                           tasmlabel(taicpu(hp2).oper[taicpu(hp2).ops-1]^.ref^.symbol).decrefs;
                                           RemoveDelaySlot(hp2);
                                           asml.remove(hp2);