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

Use PPC32 version of %TYPE-OF on ARM, too.

File:
1 edited

Legend:

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

    r13789 r13841  
    398398                                   (return))))))))))))))
    399399
    400 #+ppc32-target
     400#+(or ppc32-target arm-target)
    401401(progn
    402402(defparameter *nodeheader-types*
     
    475475  (let* ((typecode (typecode thing)))
    476476    (declare (fixnum typecode))
    477     (if (= typecode ppc32::tag-fixnum)
     477    (if (= typecode target::tag-fixnum)
    478478      'fixnum
    479       (if (= typecode ppc32::tag-list)
     479      (if (= typecode target::tag-list)
    480480        (if thing 'cons 'null)
    481         (if (= typecode ppc32::tag-imm)
     481        (if (= typecode target::tag-imm)
    482482          (if (base-char-p thing)
    483483            'base-char
    484484            'immediate)
    485           (if (= typecode ppc32::subtag-macptr)
     485          (if (= typecode target::subtag-macptr)
    486486            (if (classp thing)
    487487              (class-name thing)
    488488              'macptr)
    489             (let* ((tag-type (logand typecode ppc32::full-tag-mask))
    490                    (tag-val (ash typecode (- ppc32::ntagbits))))
     489            (let* ((tag-type (logand typecode target::full-tag-mask))
     490                   (tag-val (ash typecode (- target::ntagbits))))
    491491              (declare (fixnum tag-type tag-val))
    492               (if (/= tag-type ppc32::fulltag-nodeheader)
     492              (if (/= tag-type target::fulltag-nodeheader)
    493493                (%svref *immheader-types* tag-val)
    494494                (let ((type (%svref *nodeheader-types* tag-val)))
     
    512512                          'compiled-function)))
    513513                    (if (eq type 'lock)
    514                       (or (uvref thing ppc32::lock.kind-cell)
     514                      (or (uvref thing target::lock.kind-cell)
    515515                          type)
    516516                      type)))))))))))
    517517
    518 );#+ppc32-target
     518);#+(or ppc32-target arm-target)
    519519
    520520#+ppc64-target
Note: See TracChangeset for help on using the changeset viewer.