From 825d5b4ed7d4b6d40c66fe641f4af40f8543a2e5 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sat, 29 Nov 2003 17:36:41 +0000
Subject: [PATCH]   * check for add_move_instruction

---
 compiler/rgobj.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/compiler/rgobj.pas b/compiler/rgobj.pas
index 9a84cf8c4c..549a611046 100644
--- a/compiler/rgobj.pas
+++ b/compiler/rgobj.pas
@@ -859,6 +859,9 @@ implementation
         ssupreg,dsupreg:Tsuperregister;
 
     begin
+      if (instr.oper[O_MOV_SOURCE]^.typ<>top_reg) or
+         (instr.oper[O_MOV_DEST]^.typ<>top_reg) then
+        internalerror(200311291);
       i:=Tmoveins.create;
       i.moveset:=ms_worklist_moves;
       i.instruction:=instr;
@@ -1819,7 +1822,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.96  2003-11-24 15:17:37  florian
+  Revision 1.97  2003-11-29 17:36:41  peter
+    * check for add_move_instruction
+
+  Revision 1.96  2003/11/24 15:17:37  florian
     * changed some types to prevend range check errors
 
   Revision 1.95  2003/11/10 19:05:50  peter