Changeset 13840

Timestamp:

Jun 15, 2010, 6:52:40 PM (14 years ago)

Author:

Gary Byers

Message:

Use PPC32 version of SUBTAG-BYTES on ARM, too.

File:

• branches/arm/level-0/l0-array.lisp (modified) (1 diff)

branches/arm/level-0/l0-array.lisp

@@ -699 +699 @@
   (%extend-vector 0 src (uvsize src)))
 
-#+ppc32-target
+#+(or ppc32-target arm-target)
 (defun subtag-bytes (subtag element-count)
   (declare (fixnum subtag element-count))
-  (unless (= #.ppc32::fulltag-immheader (logand subtag #.ppc32::fulltagmask))
+  (unless (= #.target::fulltag-immheader (logand subtag #.target::fulltagmask))
     (error "Not an ivector subtag: ~s" subtag))
   (let* ((element-bit-shift
-          (if (<= subtag ppc32::max-32-bit-ivector-subtag)
+          (if (<= subtag target::max-32-bit-ivector-subtag)
             5
-            (if (<= subtag ppc32::max-8-bit-ivector-subtag)
+            (if (<= subtag target::max-8-bit-ivector-subtag)
               3
-              (if (<= subtag ppc32::max-16-bit-ivector-subtag)
+              (if (<= subtag target::max-16-bit-ivector-subtag)
                 4
-                (if (= subtag ppc32::subtag-double-float-vector)
+                (if (= subtag target::subtag-double-float-vector)
                   6
                   0)))))