Changeset 7305


Ignore:
Timestamp:
Sep 26, 2007, 10:52:22 AM (12 years ago)
Author:
gb
Message:

ROOM changes, lest we forget.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0709/ccl/level-0/l0-misc.lisp

    r7261 r7305  
    129129  t)
    130130
    131 
     131(defun frozen-space-size ()
     132  "Returns the current size of the frozen area."
     133  (%fixnum-ref-natural (%get-kernel-global 'tenured-area)
     134                       target::area.static-dnodes))
    132135(defun %usedbytes ()
    133136  (%normalize-areas)
     
    267270         (static-used nil)
    268271         (staticlib-used nil)
    269          (hons-space-size nil)
     272         (frozen-space-size nil)
    270273         (lispheap nil)
    271274         (reserved nil)
     
    279282        (setq freebytes (%freebytes))
    280283        (when verbose
    281           (multiple-value-setq (usedbytes static-used staticlib-used hons-space-size)
     284          (multiple-value-setq (usedbytes static-used staticlib-used frozen-space-size)
    282285            (%usedbytes))
    283286          (setq lispheap (+ freebytes usedbytes)
    284287                reserved (%reservedbytes)
    285                 static (+ static-used staticlib-used hons-space-size))
     288                static (+ static-used staticlib-used frozen-space-size))
    286289          (multiple-value-setq (stack-total stack-used stack-free)
    287290            (%stack-space))
     
    305308                0 0
    306309                static (k static))
    307         (when (and hons-space-size (not (zerop hons-space-size)))
    308           (format t "~&~,3f MB of static memory reserved for hash consing."
    309                   (/ hons-space-size (float (ash 1 20)))))
     310        (when (and frozen-space-size (not (zerop frozen-space-size)))
     311          (format t "~&~,3f MB of static memory is \"frozen\" dynamic memory"
     312                  (/ frozen-space-size (float (ash 1 20)))))
    310313        (format t "~&~,3f MB reserved for heap expansion."
    311314                (/ reserved (float (ash 1 20))))
Note: See TracChangeset for help on using the changeset viewer.