/[cmucl]/src/code/gc.lisp
ViewVC logotype

Diff of /src/code/gc.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by ram, Sun Apr 21 22:12:05 1991 UTC revision 1.8 by ram, Sat May 4 17:00:25 1991 UTC
# Line 75  Line 75 
75    
76  ;;;; Room.  ;;;; Room.
77    
78  (defun room-maximal-info ()  (defun room-minimal-info ()
   (format t "The current dynamic space is ~D.~%" (current-dynamic-space))  
79    (format t "Dynamic Space Usage:    ~10:D bytes.~%" (dynamic-usage))    (format t "Dynamic Space Usage:    ~10:D bytes.~%" (dynamic-usage))
80    (format t "Read-Only Space Usage:  ~10:D bytes.~%" (read-only-space-usage))    (format t "Read-Only Space Usage:  ~10:D bytes.~%" (read-only-space-usage))
81    (format t "Static Space Usage:     ~10:D bytes.~%" (static-space-usage))    (format t "Static Space Usage:     ~10:D bytes.~%" (static-space-usage)))
   (format t "Control Stack Usage:    ~10:D bytes.~%" (control-stack-usage))  
   (format t "Binding Stack Usage:    ~10:D bytes.~%" (binding-stack-usage)))  
   
 (defun room-minimal-info ()  
   (format t "Dynamic Space Usage:    ~10:D bytes.~%" (dynamic-usage)))  
82    
83  (defun room-intermediate-info ()  (defun room-intermediate-info ()
84    (format t "Dynamic Space Usage:   ~10:D bytes.~%" (dynamic-usage))    (room-minimal-info)
85    (format t "Read-Only Space Usage: ~10:D bytes.~%" (read-only-space-usage))    (vm:memory-usage :count-spaces '(:dynamic)
86    (format t "Static Space Usage:    ~10:D bytes.~%" (static-space-usage)))                     :print-spaces t
87                       :cutoff 0.05
88                       :print-summary nil))
89    
90    (defun room-maximal-info ()
91      (room-minimal-info)
92      (format t "Control Stack Usage:    ~10:D bytes.~%" (control-stack-usage))
93      (format t "Binding Stack Usage:    ~10:D bytes.~%" (binding-stack-usage))
94      (format t "The current dynamic space is ~D.~%" (current-dynamic-space))
95      (vm:memory-usage :count-spaces '(:static :dynamic))
96      (vm:structure-usage :dynamic :top-n 10)
97      (vm:structure-usage :static :top-n 10))
98    
99  (defun room (&optional (verbosity :default))  (defun room (&optional (verbosity :default))
100    "Prints to *STANDARD-OUTPUT* information about the state of internal    "Prints to *STANDARD-OUTPUT* information about the state of internal
# Line 97  Line 102 
102    verbosity of ROOM.  If it is T, ROOM prints out a maximal amount of    verbosity of ROOM.  If it is T, ROOM prints out a maximal amount of
103    information.  If it is NIL, ROOM prints out a minimal amount of    information.  If it is NIL, ROOM prints out a minimal amount of
104    information.  If it is :DEFAULT or it is not supplied, ROOM prints out    information.  If it is :DEFAULT or it is not supplied, ROOM prints out
105    an intermediate amount of information."    an intermediate amount of information.  See also VM:MEMORY-USAGE and
106      VM:STRUCTURE-USAGE for finer report control."
107    (fresh-line)    (fresh-line)
108    (case verbosity    (case verbosity
109      ((t)      ((t)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5