Changeset 12935


Ignore:
Timestamp:
Oct 9, 2009, 12:22:10 PM (10 years ago)
Author:
gz
Message:

in report-heap-utilization, check for 0 conses

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/misc.lisp

    r12893 r12935  
    972972      (incf total-physical-vector-size (aref vector-physical-sizes i)))
    973973    (setq total-size (+ total-cons-size total-physical-vector-size))
    974     (format out "~&CONS~36t~12d~48t~16d~16d~8,2f%" nconses total-cons-size total-cons-size
    975             (* 100 (/ total-cons-size total-size)))
     974    (unless (zerop nconses)
     975      (format out "~&CONS~36t~12d~48t~16d~16d~8,2f%" nconses total-cons-size total-cons-size
     976              (* 100 (/ total-cons-size total-size))))
    976977    (dotimes (i (length nvectors))
    977978      (let ((count (aref nvectors i))
     
    984985                  (* 100.0 (/ psizes total-size))))))
    985986    (format out "~&   Total sizes: ~49t~16d~16d" (+ total-cons-size total-vector-size) (+ total-cons-size total-physical-vector-size))))
    986                            
     987
    987988;; The number of words to allocate for static conses when the user requests
    988989;; one and we don't have any left over
Note: See TracChangeset for help on using the changeset viewer.