Changeset 13915


Ignore:
Timestamp:
Jul 3, 2010, 5:45:07 AM (9 years ago)
Author:
gb
Message:

ELEMENT-SUBTYPE-TYPE for ARM.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/level-1/l1-aprims.lisp

    r13327 r13915  
    697697               (%svref *immheader-2-array-element-types* class))
    698698              (t 'bogus)))))
     699  )
     700
     701#+arm-target
     702(progn
     703  (defparameter array-element-subtypes
     704    #(single-float
     705      (unsigned-byte 32)
     706      (signed-byte 32)
     707      fixnum
     708      base-char                         ;ucs4
     709      (unsigned-byte 8)
     710      (signed-byte 8)
     711      base-char
     712      (unsigned-byte 16)
     713      (signed-byte 16)
     714      double-float
     715      bit))
     716 
     717  ;; given uvector subtype - what is the corresponding element-type
     718  (defun element-subtype-type (subtype)
     719    (declare (fixnum subtype))
     720    (if  (= subtype arm::subtag-simple-vector) t
     721        (svref array-element-subtypes
     722               (ash (- subtype arm::min-cl-ivector-subtag) (- arm::ntagbits)))))
    699723  )
    700724
Note: See TracChangeset for help on using the changeset viewer.