Changeset 10336


Ignore:
Timestamp:
Aug 5, 2008, 1:36:54 AM (11 years ago)
Author:
rme
Message:

*heap-utilization-vector-type-names* for x8632 (same as ppc32).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/misc.lisp

    r10117 r10336  
    834834                    ((= lowtag ppc64::lowtag-nodeheader)
    835835                     (%svref *nodeheader-types* (ash i -2)))))))
    836     #+ppc32-target
     836    #+(or ppc32-target x8632-target)
    837837    (dotimes (i 256)
    838       (let* ((fulltag (logand i ppc32::fulltagmask)))
     838      (let* ((fulltag (logand i target::fulltagmask)))
    839839        (setf (%svref a i)
    840               (cond ((= fulltag ppc32::fulltag-immheader)
     840              (cond ((= fulltag target::fulltag-immheader)
    841841                     (%svref *immheader-types* (ash i -3)))
    842                     ((= fulltag ppc32::fulltag-nodeheader)
     842                    ((= fulltag target::fulltag-nodeheader)
    843843                     (%svref *nodeheader-types* (ash i -3)))))))
    844844    a))
Note: See TracChangeset for help on using the changeset viewer.