[Sbcl-commits] CVS: sbcl/src/compiler/mips char.lisp,1.4,1.5

[Thiemo S. <th...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler/mips
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv8250/src/compiler/mips

Modified Files:
	char.lisp 
Log Message:
1.0.23.44: Nicer code for MIPS, lifted from the SPARC backend.

  * Add some :note annotations.

  * Kill a few magic constants.


Index: char.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/char.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- char.lisp	11 Oct 2005 17:37:27 -0000	1.4
+++ char.lisp	17 Dec 2008 14:39:28 -0000	1.5
@@ -17,19 +17,22 @@
 (define-vop (move-to-character)
   (:args (x :scs (any-reg descriptor-reg)))
   (:results (y :scs (character-reg)))
+  (:note "character untagging")
   (:generator 1
     (inst srl y x n-widetag-bits)))
+
 (define-move-vop move-to-character :move
   (any-reg descriptor-reg) (character-reg))
 
-
 ;;; Move an untagged char to a tagged representation.
 (define-vop (move-from-character)
   (:args (x :scs (character-reg)))
   (:results (y :scs (any-reg descriptor-reg)))
+  (:note "character tagging")
   (:generator 1
     (inst sll y x n-widetag-bits)
-    (inst or y y character-widetag)))
+    (inst or y character-widetag)))
+
 (define-move-vop move-from-character :move
   (character-reg) (any-reg descriptor-reg))
 
@@ -40,10 +43,12 @@
             :load-if (not (location= x y))))
   (:results (y :scs (character-reg)
                :load-if (not (location= x y))))
+  (:note "character move")
   (:effects)
   (:affected)
   (:generator 0
     (move y x)))
+
 (define-move-vop character-move :move
   (character-reg) (character-reg))
 
@@ -54,12 +59,14 @@
          (fp :scs (any-reg)
              :load-if (not (sc-is y character-reg))))
   (:results (y))
+  (:note "character arg move")
   (:generator 0
     (sc-case y
       (character-reg
        (move y x))
       (character-stack
        (storew x fp (tn-offset y))))))
+
 (define-move-vop move-character-arg :move-arg
   (any-reg character-reg) (character-reg))
 
@@ -77,7 +84,7 @@
   (:results (res :scs (any-reg)))
   (:result-types positive-fixnum)
   (:generator 1
-    (inst sll res ch 2)))
+    (inst sll res ch n-fixnum-tag-bits)))
 
 (define-vop (code-char)
   (:translate code-char)
@@ -87,11 +94,9 @@
   (:results (res :scs (character-reg)))
   (:result-types character)
   (:generator 1
-    (inst srl res code 2)))
-
+    (inst srl res code n-fixnum-tag-bits)))
 
 ;;; Comparison of characters.
-;;;
 (define-vop (character-compare)
   (:args (x :scs (character-reg))
          (y :scs (character-reg)))