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

make more robust comp-emit-uncond-jump

Browse source
This commit is contained in:
Andrea Corallo 2019-10-24 22:13:29 +02:00
parent 59f7b15511
commit face460c41
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -610,7 +610,8 @@ The block is returned."
(defun comp-emit-uncond-jump (lap-label)
"Emit an unconditional branch to LAP-LABEL."
(cl-destructuring-bind (label-num . stack-depth) lap-label
(cl-assert (= (1- stack-depth) (comp-sp)))
(when stack-depth
(cl-assert (= (1- stack-depth) (comp-sp))))
(let ((target (comp-lap-to-limple-bb label-num)))
(comp-block-maybe-mark-pending :name target
:sp (comp-sp)