Commit f5561d47 authored by ram's avatar ram
Browse files

If environment analysis trashes the DFO (i.e. by inserting cleanup code)

then recompute it.
parent 56f9f4d1
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.44 1991/08/25 18:11:12 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.45 1991/11/08 15:28:02 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -207,6 +207,9 @@
(*elsewhere* nil))
(maybe-mumble "Env ")
(environment-analyze component)
(when (component-reanalyze component)
(maybe-mumble "DFO ")
(find-dfo component))
(maybe-mumble "GTN ")
(gtn-analyze component)
(maybe-mumble "LTN ")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment