Skip to content
Snippets Groups Projects
Commit e3216113 authored by wlott's avatar wlott
Browse files

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.
parent 872cbec6
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; 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 ;;; This file contains the RT VM definition of operand loading/saving and
;;; the Move VOP. ;;; the Move VOP.
...@@ -141,6 +141,10 @@ ...@@ -141,6 +141,10 @@
(sc-case y (sc-case y
(base-character-reg (base-character-reg
(load-stack-tn y x)))) (load-stack-tn y x))))
((any-reg descriptor-reg)
(sc-case y
(base-character-reg
(inst srl y x vm:type-bits))))
(t (t
(unassemble (load-constant-tn x y nil node)))))) (unassemble (load-constant-tn x y nil node))))))
...@@ -160,7 +164,12 @@ ...@@ -160,7 +164,12 @@
(base-character-stack (base-character-stack
(sc-case x (sc-case x
(base-character-reg (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. ;;;; Register saving and restoring VOPs.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment