diff --git a/compiler/mips/vm.lisp b/compiler/mips/vm.lisp index 645e3540e539792b75697d1d678d8948c98478d6..ee81598c8b91abeb9c2e8f85e01a75ff091687a2 100644 --- a/compiler/mips/vm.lisp +++ b/compiler/mips/vm.lisp @@ -7,7 +7,7 @@ ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.18 1990/04/05 23:43:52 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.19 1990/04/10 20:02:24 wlott Exp $ ;;; ;;; This file contains the VM definition for the MIPS R2000 and the new ;;; object format. @@ -145,7 +145,15 @@ ;; lui/ori pair. (2 sap-reg)) - ((any-reg descriptor-reg) + ((any-reg) + ;; No conversion necessary for these. + (1 any-reg descriptor-reg) + ;; Must shift and addiu the type code. + (2 base-character-reg) + ;; No type conversion, but we have to write it on the stack. + (5 control-stack)) + + ((descriptor-reg) ;; No conversion necessary for these. (1 any-reg descriptor-reg) ;; Must shift and addiu the type code. @@ -153,7 +161,7 @@ ;; Must indirect the src ptr. (5 sap-reg) ;; No type conversion, but we have to write it on the stack. - (5 control-stack number-stack)) + (5 control-stack)) ((base-character-reg) ;; Just move. @@ -171,9 +179,9 @@ ;; Must store it. (5 sap-stack)) - ((control-stack number-stack constant) + ((control-stack constant) ;; Must indirect the stack/code pointer. - (5 any-reg descriptor-reg non-descriptor-reg)) + (5 any-reg descriptor-reg)) ((base-character-stack) ;; Just indirect.