1 ;;;; support for collecting dynamic vop statistics
3 ;;;; This software is part of the SBCL system. See the README file for
6 ;;;; This software is derived from the CMU CL system, which was
7 ;;;; written at Carnegie Mellon University and released into the
8 ;;;; public domain. The software is in the public domain and is
9 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
10 ;;;; files for more information.
12 (in-package "SB!DYNCOUNT")
17 (defvar *collect-dynamic-statistics* nil
19 "When T, emit extra code to collect dynamic statistics about vop usages.")
21 (defvar *dynamic-counts-tn* nil
23 "Holds the TN for the counts vector.")
25 (def!struct (dyncount-info (:make-load-form-fun just-dump-it-normally))
27 (costs (required-argument) :type (simple-array (unsigned-byte 32) (*)))
28 (counts (required-argument) :type (simple-array (unsigned-byte 32) (*))))
30 (defprinter (dyncount-info)