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