1.0.24.19: COMPILE-TIME reports timings at millisecond accuracy

[sbcl.git] / src / compiler / sparc / array.lisp

diff --git a/src/compiler/sparc/array.lisp b/src/compiler/sparc/array.lisp
index 4b05ccb..8b8079f 100644 (file)
--- a/src/compiler/sparc/array.lisp
+++ b/src/compiler/sparc/array.lisp
@@ -24,8 +24,9 @@
   (:generator 0
     (pseudo-atomic ()
       (inst or header alloc-tn other-pointer-lowtag)
-      (inst add ndescr rank (* (1+ array-dimensions-offset) n-word-bytes))
-      (inst andn ndescr 4)
+      (inst add ndescr rank (+ (* (1+ array-dimensions-offset) n-word-bytes)
+                               lowtag-mask))
+      (inst andn ndescr lowtag-mask)
       (inst add alloc-tn ndescr)
       (inst add ndescr rank (fixnumize (1- array-dimensions-offset)))
       (inst sll ndescr ndescr n-widetag-bits)
@@ -641,4 +642,4 @@
   (:arg-types * tagged-num unsigned-num)
   (:results (result :scs (unsigned-reg)))
   (:result-types unsigned-num)
-  (:variant vector-data-offset other-pointer-lowtag))
\ No newline at end of file
+  (:variant vector-data-offset other-pointer-lowtag))