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

Changed the move to/from base-char VOPs to hack descriptor-reg operands.

parent fba24e3f
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/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.
;;;
......
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