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

Fixed stuff to work with the new interface to FIND-INITIAL-DFO.

parent e60c239f
No related branches found
No related tags found
No related merge requests found
...@@ -83,21 +83,23 @@ ...@@ -83,21 +83,23 @@
(block-component (node-block (lambda-bind lambda)))) (block-component (node-block (lambda-bind lambda))))
(*all-components* (list component))) (*all-components* (list component)))
(local-call-analyze component))) (local-call-analyze component)))
(let* ((components (find-initial-dfo lambdas)) (multiple-value-bind (components top-components)
(*all-components* components)) (find-initial-dfo lambdas)
(let ((*all-components* (append components top-components)))
(when *check-consistency*
(maybe-mumble "[Check]~%")
(check-ir1-consistency *all-components*))
;;
;; This DOLIST body comes from the beginning of
;; COMPILE-COMPONENT.
(dolist (component *all-components*)
(let ((*compile-component* component))
(maybe-mumble "Env ")
(environment-analyze component))
(annotate-component-for-eval component))
(when *check-consistency* (when *check-consistency*
(maybe-mumble "[Check]~%") (maybe-mumble "[Check]~%")
(check-ir1-consistency components)) (check-ir1-consistency *all-components*))))
;;
;; This DOLIST body comes from the beginning of COMPILE-COMPONENT.
(dolist (component components)
(let ((*compile-component* component))
(maybe-mumble "Env ")
(environment-analyze component))
(annotate-component-for-eval component))
(when *check-consistency*
(maybe-mumble "[Check]~%")
(check-ir1-consistency components)))
(ir1-finalize) (ir1-finalize)
(car lambdas)))))) (car lambdas))))))
......
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