Changeset 13265


Ignore:
Timestamp:
Dec 9, 2009, 12:35:20 AM (10 years ago)
Author:
gb
Message:

Report STATIC-CONS utilization in ROOM.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/purify/source/level-0/l0-misc.lisp

    r12200 r13265  
    293293         (stack-used)
    294294         (stack-free)
     295         (static-cons-reserved nil)
    295296         (stack-used-by-thread nil))
    296297    (progn
     
    325326                static (k static))
    326327        (when (and frozen-space-size (not (zerop frozen-space-size)))
    327           (format t "~&~,3f MB of static memory is \"frozen\" dynamic memory"
    328                   (/ frozen-space-size (float (ash 1 20)))))
     328          (setq static-cons-reserved (ash (reserved-static-conses) target::dnode-shift)
     329                frozen-space-size (- frozen-space-size static-cons-reserved))
     330          (unless (zerop static-cons-reserved)
     331            (format t "~&~,3f MB of reserved static conses (~d free, ~d reserved)"
     332                    (/ static-cons-reserved (float (ash 1 20)))
     333                    (free-static-conses)
     334                    (reserved-static-conses)))
     335
     336          (unless (zerop frozen-space-size)
     337                  (format t "~&~,3f MB of static memory is \"frozen\" dynamic memory"
     338                          (/ frozen-space-size (float (ash 1 20))))))
    329339        (format t "~&~,3f MB reserved for heap expansion."
    330340                (/ reserved (float (ash 1 20))))
Note: See TracChangeset for help on using the changeset viewer.