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

Added notes for character move/coerce VOPs.

parent af5b3434
Branches
Tags
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; 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. ;;; This file contains the SPARC VM definition of character operations.
;;; ;;;
...@@ -26,6 +26,7 @@ ...@@ -26,6 +26,7 @@
(define-vop (move-to-base-char) (define-vop (move-to-base-char)
(:args (x :scs (any-reg descriptor-reg))) (:args (x :scs (any-reg descriptor-reg)))
(:results (y :scs (base-char-reg))) (:results (y :scs (base-char-reg)))
(:note "character untagging")
(:generator 1 (:generator 1
(inst srl y x vm:type-bits))) (inst srl y x vm:type-bits)))
;;; ;;;
...@@ -38,6 +39,7 @@ ...@@ -38,6 +39,7 @@
(define-vop (move-from-base-char) (define-vop (move-from-base-char)
(:args (x :scs (base-char-reg))) (:args (x :scs (base-char-reg)))
(:results (y :scs (any-reg descriptor-reg))) (:results (y :scs (any-reg descriptor-reg)))
(:note "character tagging")
(:generator 1 (:generator 1
(inst sll y x vm:type-bits) (inst sll y x vm:type-bits)
(inst or y vm:base-char-type))) (inst or y vm:base-char-type)))
...@@ -53,6 +55,7 @@ ...@@ -53,6 +55,7 @@
:load-if (not (location= x y)))) :load-if (not (location= x y))))
(:results (y :scs (base-char-reg) (:results (y :scs (base-char-reg)
:load-if (not (location= x y)))) :load-if (not (location= x y))))
(:node "character move")
(:effects) (:effects)
(:affected) (:affected)
(:generator 0 (:generator 0
...@@ -70,6 +73,7 @@ ...@@ -70,6 +73,7 @@
(fp :scs (any-reg) (fp :scs (any-reg)
:load-if (not (sc-is y base-char-reg)))) :load-if (not (sc-is y base-char-reg))))
(:results (y)) (:results (y))
(:node "character arg move")
(:generator 0 (:generator 0
(sc-case y (sc-case y
(base-char-reg (base-char-reg
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment