(deftype count-vector () '(simple-array double-float (2)))
(defstruct (vop-stats
(:constructor %make-vop-stats (name))
- (:constructor make-vop-stats-key))
- (name (required-argument) :type simple-string)
+ (:constructor make-vop-stats-key)
+ (:copier nil))
+ (name (missing-arg) :type simple-string)
(data (make-array 2 :element-type 'double-float) :type count-vector))
(defmacro vop-stats-count (x) `(aref (vop-stats-data ,x) 0))
;;; Return the DYNCOUNT-INFO for FUNCTION.
(defun find-info-for (function)
(declare (type function function))
- (let* ((function (%primitive closure-function function))
- (component (sb!di::function-code-header function)))
+ (let* ((function (%primitive closure-fun function))
+ (component (sb!di::fun-code-header function)))
(do ((end (get-header-data component))
(i sb!vm:code-constants-offset (1+ i)))
((= end i))
(compared (if compare
(compare-stats compensated compare)
compensated))
- (*gc-verbose* nil)
(*gc-notify-stream* nil))
(multiple-value-bind (total-count total-cost) (cost-summary compensated)
(multiple-value-bind (compare-total-count compare-total-cost)