diff --git a/compiler/sparc/char.lisp b/compiler/sparc/char.lisp index 138011ec3c207aaa8efbb0daf219a800f8e489b2..494d79a60bc34028d9ca6e0fefade47db6cc4464 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.3 1991/11/11 22:55:58 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/char.lisp,v 1.4 1992/01/14 16:05:05 ram Exp $ ;;; ;;; This file contains the SPARC VM definition of character operations. ;;; @@ -26,6 +26,7 @@ (define-vop (move-to-base-char) (:args (x :scs (any-reg descriptor-reg))) (:results (y :scs (base-char-reg))) + (:note "character untagging") (:generator 1 (inst srl y x vm:type-bits))) ;;; @@ -38,6 +39,7 @@ (define-vop (move-from-base-char) (:args (x :scs (base-char-reg))) (:results (y :scs (any-reg descriptor-reg))) + (:note "character tagging") (:generator 1 (inst sll y x vm:type-bits) (inst or y vm:base-char-type))) @@ -53,6 +55,7 @@ :load-if (not (location= x y)))) (:results (y :scs (base-char-reg) :load-if (not (location= x y)))) + (:node "character move") (:effects) (:affected) (:generator 0 @@ -70,6 +73,7 @@ (fp :scs (any-reg) :load-if (not (sc-is y base-char-reg)))) (:results (y)) + (:node "character arg move") (:generator 0 (sc-case y (base-char-reg