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