From 2dc3f362829ea6ccaecae32cb7f8cb9adc136629 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 14 Feb 1991 20:46:11 +0000
Subject: [PATCH] Allow DESCRIPTOR-REG where we allow ANY-REG, since we might
 be forcibly passed a T TN.

---
 compiler/mips/char.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/compiler/mips/char.lisp b/compiler/mips/char.lisp
index ffb02b025..39f1a4c5b 100644
--- a/compiler/mips/char.lisp
+++ b/compiler/mips/char.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/char.lisp,v 1.10 1990/11/03 03:25:27 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/char.lisp,v 1.11 1991/02/14 20:46:11 ram Exp $
 ;;; 
 ;;; This file contains the RT VM definition of character operations.
 ;;;
@@ -23,26 +23,26 @@
 ;;; Move a tagged char to an untagged representation.
 ;;;
 (define-vop (move-to-base-character)
-  (:args (x :scs (any-reg)))
+  (:args (x :scs (any-reg descriptor-reg)))
   (:results (y :scs (base-character-reg)))
   (:generator 1
     (inst srl y x vm:type-bits)))
 ;;;
 (define-move-vop move-to-base-character :move
-  (any-reg) (base-character-reg))
+  (any-reg descriptor-reg) (base-character-reg))
 
 
 ;;; Move an untagged char to a tagged representation.
 ;;;
 (define-vop (move-from-base-character)
   (:args (x :scs (base-character-reg)))
-  (:results (y :scs (any-reg)))
+  (:results (y :scs (any-reg descriptor-reg)))
   (:generator 1
     (inst sll y x vm:type-bits)
     (inst or y y vm:base-character-type)))
 ;;;
 (define-move-vop move-from-base-character :move
-  (base-character-reg) (any-reg))
+  (base-character-reg) (any-reg descriptor-reg))
 
 ;;; Move untagged base-character values.
 ;;;
-- 
GitLab