From: Andrea Corallo <akrl@sdf.org>
Date: Fri, 1 Jan 2021 11:00:04 +0000 (+0100)
Subject: * lisp/emacs-lisp/comp.el (comp-compute-dominator-tree): Fix.
X-Git-Tag: emacs-28.0.90~2727^2~187
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c29037c877ae0d606daf3949dfc3e4e43883d74f;p=emacs.git

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

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 227333f72c8..848bcf70cdb 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2650,7 +2650,7 @@ blocks."
     (when-let ((blocks (comp-func-blocks comp-func))
                (entry (gethash 'entry blocks))
                ;; 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)
                with changed = t
                while changed