1.0.17.35: Bug fixes: cross-compiler's lookup of constants, recursive escaping
[sbcl.git] / src / compiler / dyncount.lisp
1 ;;;; support for collecting dynamic vop statistics
2
3 ;;;; This software is part of the SBCL system. See the README file for
4 ;;;; more information.
5 ;;;;
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.
11
12 (in-package "SB!DYNCOUNT")
13
14 (defvar *collect-dynamic-statistics* nil
15   #!+sb-doc
16   "When T, emit extra code to collect dynamic statistics about vop usages.")
17
18 (defvar *dynamic-counts-tn* nil
19   #!+sb-doc
20   "Holds the TN for the counts vector.")
21
22 (def!struct (dyncount-info (:make-load-form-fun just-dump-it-normally))
23   for
24   (costs (missing-arg) :type (simple-array (unsigned-byte 32) (*)))
25   (counts (missing-arg) :type (simple-array (unsigned-byte 32) (*))))
26
27 (defprinter (dyncount-info)
28   for
29   costs
30   counts)