From 40f66c54aa056af4ca63c548e0862c5383a07ee8 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 11 Nov 1991 22:55:58 +0000
Subject: [PATCH] Changed the move to/from base-char VOPs to hack
 descriptor-reg operands.

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

diff --git a/compiler/sparc/char.lisp b/compiler/sparc/char.lisp
index 01040f03e..138011ec3 100644
--- a/compiler/sparc/char.lisp
+++ b/compiler/sparc/char.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/char.lisp,v 1.2 1991/11/09 02:38:14 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/char.lisp,v 1.3 1991/11/11 22:55:58 ram Exp $
 ;;; 
 ;;; This file contains the SPARC VM definition of character operations.
 ;;;
@@ -24,26 +24,26 @@
 ;;; Move a tagged char to an untagged representation.
 ;;;
 (define-vop (move-to-base-char)
-  (:args (x :scs (any-reg)))
+  (:args (x :scs (any-reg descriptor-reg)))
   (:results (y :scs (base-char-reg)))
   (:generator 1
     (inst srl y x vm:type-bits)))
 ;;;
 (define-move-vop move-to-base-char :move
-  (any-reg) (base-char-reg))
+  (any-reg descriptor-reg) (base-char-reg))
 
 
 ;;; Move an untagged char to a tagged representation.
 ;;;
 (define-vop (move-from-base-char)
   (:args (x :scs (base-char-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 vm:base-char-type)))
 ;;;
 (define-move-vop move-from-base-char :move
-  (base-char-reg) (any-reg))
+  (base-char-reg) (any-reg descriptor-reg))
 
 ;;; Move untagged base-char values.
 ;;;
-- 
GitLab