Changeset 13840


Ignore:
Timestamp:
Jun 16, 2010, 1:52:40 AM (9 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/level-0/l0-array.lisp

    r13067 r13840  
    699699  (%extend-vector 0 src (uvsize src)))
    700700
    701 #+ppc32-target
     701#+(or ppc32-target arm-target)
    702702(defun subtag-bytes (subtag element-count)
    703703  (declare (fixnum subtag element-count))
    704   (unless (= #.ppc32::fulltag-immheader (logand subtag #.ppc32::fulltagmask))
     704  (unless (= #.target::fulltag-immheader (logand subtag #.target::fulltagmask))
    705705    (error "Not an ivector subtag: ~s" subtag))
    706706  (let* ((element-bit-shift
    707           (if (<= subtag ppc32::max-32-bit-ivector-subtag)
     707          (if (<= subtag target::max-32-bit-ivector-subtag)
    708708            5
    709             (if (<= subtag ppc32::max-8-bit-ivector-subtag)
     709            (if (<= subtag target::max-8-bit-ivector-subtag)
    710710              3
    711               (if (<= subtag ppc32::max-16-bit-ivector-subtag)
     711              (if (<= subtag target::max-16-bit-ivector-subtag)
    712712                4
    713                 (if (= subtag ppc32::subtag-double-float-vector)
     713                (if (= subtag target::subtag-double-float-vector)
    714714                  6
    715715                  0)))))
Note: See TracChangeset for help on using the changeset viewer.