Changeset 8901


Ignore:
Timestamp:
Mar 27, 2008, 6:45:03 PM (11 years ago)
Author:
rme
Message:

x8632 conditionalization

File:
1 edited

Legend:

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

    r7666 r8901  
    530530        (svref array-element-subtypes
    531531               (ash (- subtype ppc32::min-cl-ivector-subtag) (- ppc32::ntagbits)))))
     532  )
     533
     534#+x8632-target
     535(progn
     536  (defparameter array-element-subtypes
     537    #(single-float
     538      (unsigned-byte 32)
     539      (signed-byte 32)
     540      fixnum
     541      base-char                         ;ucs4
     542      (unsigned-byte 8)
     543      (signed-byte 8)
     544      base-char
     545      (unsigned-byte 16)
     546      (signed-byte 16)
     547      double-float
     548      bit))
     549 
     550  ;; given uvector subtype - what is the corresponding element-type
     551  (defun element-subtype-type (subtype)
     552    (declare (fixnum subtype))
     553    (if  (= subtype x8632::subtag-simple-vector) t
     554        (svref array-element-subtypes
     555               (ash (- subtype x8632::min-cl-ivector-subtag) (- x8632::ntagbits)))))
    532556  )
    533557
Note: See TracChangeset for help on using the changeset viewer.