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

Diff of /src/code/room.lisp

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

revision 1.38 by rtoy, Fri Mar 19 15:18:59 2010 UTC revision 1.39 by rtoy, Mon Apr 19 02:18:04 2010 UTC
# Line 565  Line 565 
565  ;;;  ;;;
566  (defun memory-usage (&key print-spaces (count-spaces '(:dynamic))  (defun memory-usage (&key print-spaces (count-spaces '(:dynamic))
567                            (print-summary t) cutoff)                            (print-summary t) cutoff)
568    _N"Print out information about the heap memory in use.  :Print-Spaces is a list    "Print out information about the heap memory in use.  :Print-Spaces is a list
569    of the spaces to print detailed information for.  :Count-Spaces is a list of    of the spaces to print detailed information for.  :Count-Spaces is a list of
570    the spaces to scan.  For either one, T means all spaces (:Static, :Dyanmic    the spaces to scan.  For either one, T means all spaces (:Static, :Dyanmic
571    and :Read-Only.)  If :Print-Summary is true, then summary information will be    and :Read-Only.)  If :Print-Summary is true, then summary information will be
# Line 593  Line 593 
593  ;;; COUNT-NO-OPS  --  Public  ;;; COUNT-NO-OPS  --  Public
594  ;;;  ;;;
595  (defun count-no-ops (space)  (defun count-no-ops (space)
596    _N"Print info about how much code and no-ops there are in Space."    "Print info about how much code and no-ops there are in Space."
597    (declare (type spaces space))    (declare (type spaces space))
598    (let ((code-words 0)    (let ((code-words 0)
599          (no-ops 0)          (no-ops 0)
# Line 707  Line 707 
707  ;;;  ;;;
708  (defun instance-usage (space &key (top-n 15))  (defun instance-usage (space &key (top-n 15))
709    (declare (type spaces space) (type (or fixnum null) top-n))    (declare (type spaces space) (type (or fixnum null) top-n))
710    _N"Print a breakdown by instance type of all the instances allocated in    "Print a breakdown by instance type of all the instances allocated in
711    Space.  If TOP-N is true, print only information for the the TOP-N types with    Space.  If TOP-N is true, print only information for the the TOP-N types with
712    largest usage."    largest usage."
713    (format t _"~2&~@[Top ~D ~]~(~A~) instance types:~%" top-n space)    (format t _"~2&~@[Top ~D ~]~(~A~) instance types:~%" top-n space)
# Line 1075  Line 1075 
1075          (hist:hist-record (funcall function count))))))          (hist:hist-record (funcall function count))))))
1076    
1077  (defun report-top-n (table &key (top-n 20) (function #'identity))  (defun report-top-n (table &key (top-n 20) (function #'identity))
1078    _N"Report the Top-N entries in the hashtable Table, when sorted by Function    "Report the Top-N entries in the hashtable Table, when sorted by Function
1079    applied to the hash value.  If Top-N is NIL, report all entries."    applied to the hash value.  If Top-N is NIL, report all entries."
1080    (let ((function (if (eval:interpreted-function-p function)    (let ((function (if (eval:interpreted-function-p function)
1081                        (compile nil function)                        (compile nil function)
# Line 1126  Line 1126 
1126    
1127    
1128  (defun find-caller-counts (space)  (defun find-caller-counts (space)
1129    _N"Return a hashtable mapping each function in for which a call appears in    "Return a hashtable mapping each function in for which a call appears in
1130    Space to the number of times such a call appears."    Space to the number of times such a call appears."
1131    (let ((counts (make-hash-table :test #'eq)))    (let ((counts (make-hash-table :test #'eq)))
1132      (map-allocated-objects      (map-allocated-objects
# Line 1141  Line 1141 
1141      counts))      counts))
1142    
1143  (defun find-high-callers (space &key (above 10) table (threshold 2))  (defun find-high-callers (space &key (above 10) table (threshold 2))
1144    _N"Return a hashtable translating code objects to function constant counts for    "Return a hashtable translating code objects to function constant counts for
1145    all code objects in Space with more than Above function constants."    all code objects in Space with more than Above function constants."
1146    (let ((counts (make-hash-table :test #'eq)))    (let ((counts (make-hash-table :test #'eq)))
1147      (map-allocated-objects      (map-allocated-objects

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

  ViewVC Help
Powered by ViewVC 1.1.5