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)
  23   for
  24   (costs (missing-arg) :type (simple-array (unsigned-byte 32) (*)))
  25   (counts (missing-arg) :type (simple-array (unsigned-byte 32) (*))))
  26 (!set-load-form-method dyncount-info (:target))
  27
  28 (defprinter (dyncount-info)
  29   for
  30   costs
  31   counts)