diff --git a/compiler/control.lisp b/compiler/control.lisp index e6023f15fcff5f6c7099762a8ceb3fa6a806ebf8..19ac891be6c9dae6e41192231f0025ecb5d31766 100644 --- a/compiler/control.lisp +++ b/compiler/control.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/control.lisp,v 1.11 1992/04/21 04:16:55 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/control.lisp,v 1.12 1993/05/08 00:47:17 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -193,6 +193,7 @@ ;;; COMPONENT-REANALYZE. We remove all deleted blocks from the IR2-COMPONENT ;;; VALUES-RECEIVERS to keep stack analysis from getting confused. ;;; +(defevent control-deleted-block "control analysis deleted dead block") (defun control-analyze (component block-info-constructor) (declare (type component component) (type function block-info-constructor)) @@ -216,6 +217,7 @@ (do-blocks (block component) (unless (block-flag block) + (event control-deleted-block (continuation-next (block-start block))) (delete-block block)))) (let ((2comp (component-info component)))