Skip to content
Snippets Groups Projects
Commit b8cd5753 authored by ram's avatar ram
Browse files

Allow DESCRIPTOR-REG when we allow ANY-REG in move-to-word/fixnum

parent 2dc3f362
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/move.lisp,v 1.26 1991/02/01 21:51:55 ram Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/move.lisp,v 1.27 1991/02/14 20:46:51 ram Exp $
;;;
;;; This file contains the MIPS VM definition of operand loading/saving and
;;; the Move VOP.
......@@ -149,7 +149,7 @@
;;; possible arg SCs (control-stack) overlap with possible bignum arg SCs.
;;;
(define-vop (move-to-word/fixnum)
(:args (x :scs (any-reg)))
(:args (x :scs (any-reg descriptor-reg)))
(:results (y :scs (signed-reg unsigned-reg)))
(:arg-types tagged-num)
(:note "fixnum untagging")
......
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