From 1f4a317d8bd6bb60d513a04b0d55141e2f7d46f5 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Thu, 6 Dec 1990 22:20:32 +0000 Subject: [PATCH] Added a slot to the ir2-component to hold the dynamic-vop-count-info structure while it is being built. --- compiler/vop.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/compiler/vop.lisp b/compiler/vop.lisp index 830456bae..c91b9fc25 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 -- GitLab