From e32161137dc2d7d9410c1aa0fc3f27db373b1218 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 11 Apr 1990 16:49:05 +0000
Subject: [PATCH] For some reason, {load,store}-operand wanted to be able to
 load/store to/from registers.  As it's going away, I'm not going to worry
 about it.

---
 compiler/mips/move.lisp | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/compiler/mips/move.lisp b/compiler/mips/move.lisp
index eff8be8fc..6f8c00d83 100644
--- a/compiler/mips/move.lisp
+++ b/compiler/mips/move.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/move.lisp,v 1.10 1990/04/05 23:54:40 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/move.lisp,v 1.11 1990/04/11 16:49:05 wlott Exp $
 ;;;
 ;;;    This file contains the RT VM definition of operand loading/saving and
 ;;; the Move VOP.
@@ -141,6 +141,10 @@
        (sc-case y
 	 (base-character-reg
 	  (load-stack-tn y x))))
+      ((any-reg descriptor-reg)
+       (sc-case y
+	 (base-character-reg
+	  (inst srl y x vm:type-bits))))
       (t
        (unassemble (load-constant-tn x y nil node))))))
 
@@ -160,7 +164,12 @@
       (base-character-stack
        (sc-case x
 	 (base-character-reg
-	  (store-stack-tn y x)))))))
+	  (store-stack-tn y x))))
+      ((any-reg descriptor-reg)
+       (sc-case x
+	 (base-character-reg
+	  (inst sll x x vm:type-bits)
+	  (inst ori y x vm:base-character-type)))))))
 
 
 ;;;; Register saving and restoring VOPs.
-- 
GitLab