Changeset 11078


Ignore:
Timestamp:
Oct 13, 2008, 9:50:51 PM (11 years ago)
Author:
gb
Message:

In HEAP-UTILIZATION's inner function, count NIL as a CONS.
In x8632 version of WALK-STATIC-AREA: push the (fixnum-tagged)
pointer to each uvector. (It's a static address so there are
no GC issues,and the code that recovers the header on return
from the function expects this.)

Should close ticket:352.

File:
1 edited

Legend:

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

    r11024 r11078  
    843843    (when gc-first (gc))
    844844    (%map-areas (lambda (thing)
    845                   (if (consp thing)
     845                  (if (listp thing)
    846846                    (incf nconses)
    847847                    (let* ((typecode (typecode thing)))
Note: See TracChangeset for help on using the changeset viewer.