/[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.8.1.6 by wlott, Tue Aug 6 00:18:26 1991 UTC revision 1.8.1.7 by wlott, Sun Oct 6 21:20:45 1991 UTC
# Line 73  Line 73 
73    (without-gcing    (without-gcing
74     (let ((num-generations (num-generations))     (let ((num-generations (num-generations))
75           (total 0))           (total 0))
76       (format t "~D generations:~%")       (format t "~D generations:~%" num-generations)
77       (dotimes (gen num-generations)       (dotimes (gen num-generations)
78         (let ((bytes 0))         (let ((bytes 0))
79           (dotimes (space 3)           (dotimes (space 3)
80             (incf bytes (bytes-in-use gen space)))             (incf bytes (bytes-in-use gen space)))
81           (format t "  Generation ~2D: ~10:D bytes.~%" bytes)           (format t "  Generation ~2D: ~10:D bytes.~%" gen bytes)
82           (incf total bytes)))           (incf total bytes)))
83       (format t "Total memory usage: ~10: bytes.~%" total))))       (format t "Total memory usage: ~10:D bytes.~%" total))))
84    
85  (defun room-maximal-info ()  (defun room-maximal-info ()
86    (without-gcing    (without-gcing
87     (let ((num-generations (num-generations))     (let ((num-generations (num-generations))
88           (total 0))           (total 0))
89       (format t "~D generations:~%")       (format t "~D generations:~%" num-generations)
90       (format t "  Generation  Scavenged  Unscavenged     Code       Total")       (format t "  Generation  Scavenged  Unscavenged     Code       Total")
91       (dotimes (gen num-generations)       (dotimes (gen num-generations)
92         (let* ((scav (bytes-in-use gen 0))         (let* ((scav (bytes-in-use gen 0))
# Line 96  Line 96 
96           (format t "  ~10@:<~D~> ~11:D ~11:D ~11:D ~11:D~%"           (format t "  ~10@:<~D~> ~11:D ~11:D ~11:D ~11:D~%"
97                   gen scav unscav code bytes)                   gen scav unscav code bytes)
98           (incf total bytes)))           (incf total bytes)))
99       (format t "Total memory usage: ~10: bytes.~%" total))))       (format t "Total memory usage: ~10:D bytes.~%" total))))
100    
101  (defun room (&optional (verbosity :default))  (defun room (&optional (verbosity :default))
102    "Prints to *STANDARD-OUTPUT* information about the state of internal    "Prints to *STANDARD-OUTPUT* information about the state of internal

Legend:
Removed from v.1.8.1.6  
changed lines
  Added in v.1.8.1.7

  ViewVC Help
Powered by ViewVC 1.1.5