Changeset 10140


Ignore:
Timestamp:
Jul 19, 2008, 5:13:19 AM (11 years ago)
Author:
rme
Message:

array element subtypes for x8632; most-positive-fixnum =>
target::target-most-positive-fixnum.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-aprims.lisp

    r8775 r10140  
    193193        (unless (typep index 'unsigned-byte)
    194194          (report-bad-arg index 'unsigned-byte))
    195         (do* ((n index (- n most-positive-fixnum)))
     195        (do* ((n index (- n target::target-most-positive-fixnum)))
    196196             ((typep n 'fixnum) (nthcdr n list))
    197           (unless (setq list (nthcdr most-positive-fixnum list))
     197          (unless (setq list (nthcdr target::target-most-positive-fixnum list))
    198198            (return))))))
    199199
     
    541541        (svref array-element-subtypes
    542542               (ash (- subtype ppc32::min-cl-ivector-subtag) (- ppc32::ntagbits)))))
     543  )
     544
     545#+x8632-target
     546(progn
     547  (defparameter array-element-subtypes
     548    #(single-float
     549      (unsigned-byte 32)
     550      (signed-byte 32)
     551      fixnum
     552      base-char                         ;ucs4
     553      (unsigned-byte 8)
     554      (signed-byte 8)
     555      base-char
     556      (unsigned-byte 16)
     557      (signed-byte 16)
     558      double-float
     559      bit))
     560 
     561  ;; given uvector subtype - what is the corresponding element-type
     562  (defun element-subtype-type (subtype)
     563    (declare (fixnum subtype))
     564    (if  (= subtype x8632::subtag-simple-vector) t
     565        (svref array-element-subtypes
     566               (ash (- subtype x8632::min-cl-ivector-subtag) (- x8632::ntagbits)))))
    543567  )
    544568
Note: See TracChangeset for help on using the changeset viewer.