diff --git a/compiler/vop.lisp b/compiler/vop.lisp index 830456bae7c200f31d1ffffebd626fb5c850eefa..c91b9fc25dc162f1b7ff7395664b69456ee7e2ec 100644 --- a/compiler/vop.lisp +++ b/compiler/vop.lisp @@ -363,7 +363,12 @@ ;; somewhere else. Spilled-TNs has T for every "interesting" TN that is ever ;; spilled, providing a representation that is more convenient some places. (spilled-vops (make-hash-table :test #'eq) :type hash-table) - (spilled-tns (make-hash-table :test #'eq) :type hash-table)) + (spilled-tns (make-hash-table :test #'eq) :type hash-table) + ;; + ;; Dynamic vop count info. This is needed by both ir2-convert and + ;; setup-dynamic-count-info. (But only if we are generating code to + ;; collect dynamic statistics.) + (dyncount-info nil :type (or null dyncount-info))) ;;; The Entry-Info structure condenses all the information that the dumper