diff options
author | Charles Zhang <charleszhang99@yahoo.com> | 2021-12-12 23:20:58 -0800 |
---|---|---|
committer | Charles Zhang <charleszhang99@yahoo.com> | 2021-12-12 23:22:43 -0800 |
commit | 85008fe7eb52a6fb74b94fcdfe78c30ce13cf086 (patch) | |
tree | b0b6bffdc95a7b45464e0e247bd8e4481b0dc635 /src/compiler/dfo.lisp | |
parent | e1b9ab0e3131a952b69ef562cf0f56349686a84a (diff) |
Don't muck around with MAP-BLOCk-NLXes in FIND-DFO.
There's not really any reason to do this. By the time nlx infos are
generated, the NLE has been made an EP of the component, so FIND-DFO
will find it.
Diffstat (limited to 'src/compiler/dfo.lisp')
-rw-r--r-- | src/compiler/dfo.lisp | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/src/compiler/dfo.lisp b/src/compiler/dfo.lisp index 794fc2d75..97ee5da0a 100644 --- a/src/compiler/dfo.lisp +++ b/src/compiler/dfo.lisp @@ -92,18 +92,6 @@ (setf (block-flag block) t) (dolist (succ (block-succ block)) (find-dfo-aux succ head component)) - (when (component-nlx-info-generated-p component) - ;; FIXME: We also need (and do) this walk before environment - ;; analysis, but at that time we are probably not very - ;; interested in the actual DF order. - ;; - ;; TODO: It is probable that one of successors have the same (or - ;; similar) set of NLXes; try to shorten the walk (but think - ;; about a loop, the only exit from which is non-local). - (map-block-nlxes (lambda (nlx-info) - (let ((nle (nlx-info-target nlx-info))) - (find-dfo-aux nle head component))) - block)) (remove-from-dfo block) (add-to-dfo block head)) (values)) |