From a969097a8098a6f34d6d0797c9d0de39d9fa2d85 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 16 Nov 2019 14:04:02 +0000
Subject: [PATCH]   * optimization Move removed 4 fixed

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

diff --git a/compiler/mips/aoptcpu.pas b/compiler/mips/aoptcpu.pas
index 153b5eae92..5e01a6086f 100644
--- a/compiler/mips/aoptcpu.pas
+++ b/compiler/mips/aoptcpu.pas
@@ -25,7 +25,7 @@ unit aoptcpu;
 
 {$i fpcdefs.inc}
 
-{ $define DEBUG_AOPTCPU}
+{$define DEBUG_AOPTCPU}
 
   Interface
 
@@ -340,6 +340,7 @@ unit aoptcpu;
         Assigned(FindRegDealloc(taicpu(p).oper[0]^.reg,tai(next.next)));
       if result then
         begin
+          AllocRegBetween(taicpu(p).oper[1]^.reg,p,next,UsedRegs);
           next.oper[1]^.ref^.base:=taicpu(p).oper[1]^.reg;
           DebugMsg('Peephole: Move removed 4',p);
           asml.remove(p);