mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 08:10:21 -08:00
Code Issues Projects Releases Wiki Activity

fix comp-limplify-block when falling through a return

Browse source
This commit is contained in:
Andrea Corallo 2019-10-20 11:02:16 +02:00
parent f24c0c7111
commit 63a1f317d0
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/comp.el
View file

@ -1054,10 +1054,10 @@ The block name is returned."
do (comp-limplify-lap-inst inst)
(cl-incf (comp-limplify-pc comp-pass))
(pcase next-inst
(`(TAG ,_label . ,target-sp)
(`(TAG ,_label . ,label-sp)
(when fall-through
(cl-assert (= (1- target-sp) (comp-sp))))
(let ((next-bb (comp-add-pending-block (comp-sp))))
(cl-assert (= (1- label-sp) (comp-sp))))
(let ((next-bb (comp-add-pending-block (1- label-sp))))
(when fall-through
(comp-emit `(jump ,next-bb))))
(return)))