From dc69639db9b1ab93c0c0246a2191388bd7bf8e02 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Mon, 2 Jul 1990 09:33:10 +0000 Subject: [PATCH] Fixed some any-reg/descriptor-reg lossage. --- compiler/mips/char.lisp | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/compiler/mips/char.lisp b/compiler/mips/char.lisp index 1f7854124..dcd6ff732 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.8 1990/06/18 14:47:11 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/char.lisp,v 1.9 1990/07/02 09:33:10 wlott Exp $ ;;; ;;; This file contains the RT VM definition of character operations. ;;; @@ -66,7 +66,7 @@ (define-vop (move-base-character-argument) (:args (x :target y :scs (base-character-reg)) - (fp :scs (descriptor-reg) + (fp :scs (any-reg) :load-if (not (sc-is y base-character-reg)))) (:results (y)) (:generator 0 @@ -95,14 +95,16 @@ (:policy :fast-safe) (:args (ch :scs (base-character-reg) :target res)) (:arg-types base-character) - (:results (res :scs (any-reg descriptor-reg))) + (:results (res :scs (any-reg))) + (:result-types positive-fixnum) (:generator 1 (inst sll res ch 2))) (define-vop (code-char) (:translate code-char) (:policy :fast-safe) - (:args (code :scs (any-reg descriptor-reg) :target res)) + (:args (code :scs (any-reg) :target res)) + (:arg-types positive-fixnum) (:results (res :scs (base-character-reg))) (:result-types base-character) (:generator 1 -- GitLab