From 26b20e93aaa547215ac2ead7004e30716d5c58b4 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 4 Aug 1992 08:24:49 +0000
Subject: [PATCH] Make setup-dynamic-count-info flame out until someone fixes
 it to work with the new assembler.

---
 compiler/dyncount.lisp | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/compiler/dyncount.lisp b/compiler/dyncount.lisp
index 5fcf37e92..4f31496de 100644
--- a/compiler/dyncount.lisp
+++ b/compiler/dyncount.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dyncount.lisp,v 1.5 1992/05/22 15:32:57 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dyncount.lisp,v 1.6 1992/08/04 08:24:49 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -41,7 +41,9 @@
   vops)
 
 (defun setup-dynamic-count-info (component)
-  (assert (not (backend-featurep :new-assembler)))
+  (declare (ignore component))
+  (error "Dynamic statistic collection not implemented for the new-assembler.")
+  #+nil
   (let* ((info (ir2-component-dyncount-info (component-info component)))
 	 (vops (dyncount-info-vops info)))
     (when (producing-fasl-file)
@@ -84,5 +86,5 @@
 		   (incf (svref counts (+ i (if elsewherep 3 2))) bytes)
 		   (return)))))))
      *code-segment*
-     *elsewhere*)
-    (undefined-value)))
+     *elsewhere*))
+  (undefined-value))
-- 
GitLab