Changeset 12935

Timestamp:

Oct 9, 2009, 5:22:10 AM (15 years ago)

Author:

gz

Message:

in report-heap-utilization, check for 0 conses

File:

• branches/working-0711/ccl/lib/misc.lisp (modified) (2 diffs)

branches/working-0711/ccl/lib/misc.lisp

@@ -972 +972 @@
       (incf total-physical-vector-size (aref vector-physical-sizes i)))
     (setq total-size (+ total-cons-size total-physical-vector-size))
-    (format out "~&CONS~36t~12d~48t~16d~16d~8,2f%" nconses total-cons-size total-cons-size
-            (* 100 (/ total-cons-size total-size)))
+    (unless (zerop nconses)
+      (format out "~&CONS~36t~12d~48t~16d~16d~8,2f%" nconses total-cons-size total-cons-size
+              (* 100 (/ total-cons-size total-size))))
     (dotimes (i (length nvectors))
       (let ((count (aref nvectors i))
@@ -984 +985 @@
                   (* 100.0 (/ psizes total-size))))))
     (format out "~&   Total sizes: ~49t~16d~16d" (+ total-cons-size total-vector-size) (+ total-cons-size total-physical-vector-size))))
-                            
+
 ;; The number of words to allocate for static conses when the user requests
 ;; one and we don't have any left over