Changeset 7305 for branches/working-0709/ccl/level-0/l0-misc.lisp

Timestamp:

Sep 26, 2007, 10:52:22 AM (14 years ago)

Author:

gb

Message:

ROOM changes, lest we forget.

File:

• branches/working-0709/ccl/level-0/l0-misc.lisp (modified) (4 diffs)

branches/working-0709/ccl/level-0/l0-misc.lisp

@@ -129 +129 @@
   t)
 
-
+(defun frozen-space-size ()
+  "Returns the current size of the frozen area."
+  (%fixnum-ref-natural (%get-kernel-global 'tenured-area)
+                       target::area.static-dnodes))
 (defun %usedbytes ()
   (%normalize-areas)
@@ -267 +270 @@
          (static-used nil)
          (staticlib-used nil)
-         (hons-space-size nil)
+         (frozen-space-size nil)
          (lispheap nil)
          (reserved nil)
@@ -279 +282 @@
         (setq freebytes (%freebytes))
         (when verbose
-          (multiple-value-setq (usedbytes static-used staticlib-used hons-space-size)
+          (multiple-value-setq (usedbytes static-used staticlib-used frozen-space-size)
             (%usedbytes))
           (setq lispheap (+ freebytes usedbytes)
                 reserved (%reservedbytes)
-                static (+ static-used staticlib-used hons-space-size))
+                static (+ static-used staticlib-used frozen-space-size))
           (multiple-value-setq (stack-total stack-used stack-free)
             (%stack-space))
@@ -305 +308 @@
                 0 0
                 static (k static))
-        (when (and hons-space-size (not (zerop hons-space-size)))
-          (format t "~&~,3f MB of static memory reserved for hash consing."
-                  (/ hons-space-size (float (ash 1 20)))))
+        (when (and frozen-space-size (not (zerop frozen-space-size)))
+          (format t "~&~,3f MB of static memory is \"frozen\" dynamic memory"
+                  (/ frozen-space-size (float (ash 1 20)))))
         (format t "~&~,3f MB reserved for heap expansion."
                 (/ reserved (float (ash 1 20))))