Skip to content
Snippets Groups Projects
Commit fc194356 authored by ram's avatar ram
Browse files

Moved clearing of COMPONENT-REANALYZE in FIND-DFO from the end to the start

so that we can iterate when new dead code is discovered (due to deletion
of function references.)
parent ad31ed61
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dfo.lisp,v 1.14 1991/11/09 22:03:42 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dfo.lisp,v 1.15 1991/11/13 19:28:04 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -28,6 +28,7 @@ ...@@ -28,6 +28,7 @@
(proclaim '(function find-dfo (component) void)) (proclaim '(function find-dfo (component) void))
(defun find-dfo (component) (defun find-dfo (component)
(clear-flags component) (clear-flags component)
(setf (component-reanalyze component) nil)
(let ((head (component-head component))) (let ((head (component-head component)))
(do () (do ()
((dolist (ep (block-succ head) t) ((dolist (ep (block-succ head) t)
...@@ -43,8 +44,7 @@ ...@@ -43,8 +44,7 @@
(setf (block-delete-p block) t))) (setf (block-delete-p block) t)))
(do-blocks (block component) (do-blocks (block component)
(unless (block-flag block) (unless (block-flag block)
(delete-block block)))) (delete-block block)))))
(setf (component-reanalyze component) nil))
;;; Join-Components -- Interface ;;; Join-Components -- Interface
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment