Changeset 7305 for branches/working-0709/ccl/level-0/l0-misc.lisp
- Timestamp:
- Sep 26, 2007, 10:52:22 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/working-0709/ccl/level-0/l0-misc.lisp
r7261 r7305 129 129 t) 130 130 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)) 132 135 (defun %usedbytes () 133 136 (%normalize-areas) … … 267 270 (static-used nil) 268 271 (staticlib-used nil) 269 ( hons-space-size nil)272 (frozen-space-size nil) 270 273 (lispheap nil) 271 274 (reserved nil) … … 279 282 (setq freebytes (%freebytes)) 280 283 (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) 282 285 (%usedbytes)) 283 286 (setq lispheap (+ freebytes usedbytes) 284 287 reserved (%reservedbytes) 285 static (+ static-used staticlib-used hons-space-size))288 static (+ static-used staticlib-used frozen-space-size)) 286 289 (multiple-value-setq (stack-total stack-used stack-free) 287 290 (%stack-space)) … … 305 308 0 0 306 309 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))))) 310 313 (format t "~&~,3f MB reserved for heap expansion." 311 314 (/ reserved (float (ash 1 20))))
Note: See TracChangeset
for help on using the changeset viewer.