1.0.9.19: Less magic constants in the mips backend.
authorThiemo Seufer <ths@networkno.de>
Sat, 1 Sep 2007 14:24:14 +0000 (14:24 +0000)
committerThiemo Seufer <ths@networkno.de>
Sat, 1 Sep 2007 14:24:14 +0000 (14:24 +0000)
src/compiler/mips/type-vops.lisp
version.lisp-expr

index 2f72723..e003314 100644 (file)
@@ -14,7 +14,7 @@
 ;;; Test generation utilities.
 (defun %test-fixnum (value target not-p &key temp)
   (assemble ()
-    (inst and temp value 3)
+    (inst and temp value fixnum-tag-mask)
     (if not-p
         (inst bne temp zero-tn target)
         (inst beq temp zero-tn target))
 (defun %test-fixnum-and-headers (value target not-p headers &key temp)
   (let ((drop-through (gen-label)))
     (assemble ()
-      (inst and temp value 3)
+      (inst and temp value fixnum-tag-mask)
       (inst beq temp zero-tn (if not-p drop-through target)))
     (%test-headers value target not-p nil headers
                    :drop-through drop-through :temp temp)))
 
 (defun %test-immediate (value target not-p immediate &key temp)
   (assemble ()
-    (inst and temp value 255)
+    (inst and temp value widetag-mask)
     (inst xor temp immediate)
     (if not-p
         (inst bne temp zero-tn target)
           (values not-target target)
           (values target not-target))
     (assemble ()
-      (inst and temp value 3)
+      (inst and temp value fixnum-tag-mask)
       (inst beq temp zero-tn yep)
       (inst and temp value lowtag-mask)
       (inst xor temp other-pointer-lowtag)
                            (values target not-target))
     (assemble ()
       ;; Is it a fixnum?
-      (inst and temp value 3)
+      (inst and temp value fixnum-tag-mask)
       (inst beq temp zero-tn fixnum)
       (move temp value t)
 
index 65951c4..2420ec2 100644 (file)
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.9.18"
+"1.0.9.19"