mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

* lisp/emacs-lisp/comp.el (comp-compute-dominator-tree): Fix.

Browse Source
This commit is contained in:
Andrea Corallo 2021-01-01 12:00:04 +01:00
parent 93ff838575
commit c29037c877
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/emacs-lisp/comp.el
View File

@ -2650,7 +2650,7 @@ blocks."
(when-let ((blocks (comp-func-blocks comp-func)) (when-let ((blocks (comp-func-blocks comp-func))
(entry (gethash 'entry blocks)) (entry (gethash 'entry blocks))
;; No point to go on if the only bb is 'entry'. ;; No point to go on if the only bb is 'entry'.
(bb1 (gethash 'bb_1 blocks))) (bb0 (gethash 'bb_0 blocks)))
(cl-loop with rev-bb-list = (comp-collect-rev-post-order entry) (cl-loop with rev-bb-list = (comp-collect-rev-post-order entry)
with changed = t with changed = t
while changed while changed