From: Thiemo Seufer <ths@networkno.de>
Date: Sat, 1 Sep 2007 14:24:14 +0000 (+0000)
Subject: 1.0.9.19: Less magic constants in the mips backend.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=2bf8ee5fcb49048c4d01c5c7ec274888d0fcb92f;p=sbcl.git

1.0.9.19: Less magic constants in the mips backend.
---

diff --git a/src/compiler/mips/type-vops.lisp b/src/compiler/mips/type-vops.lisp
index 2f72723..e003314 100644
--- a/src/compiler/mips/type-vops.lisp
+++ b/src/compiler/mips/type-vops.lisp
@@ -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))
@@ -23,14 +23,14 @@
 (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)
@@ -151,7 +151,7 @@
           (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)
@@ -189,7 +189,7 @@
                            (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)
 
diff --git a/version.lisp-expr b/version.lisp-expr
index 65951c4..2420ec2 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -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"