From face460c41f59b5097748159ce64a5a09b277dc7 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Thu, 24 Oct 2019 22:13:29 +0200 Subject: [PATCH] make more robust comp-emit-uncond-jump --- lisp/emacs-lisp/comp.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index cf779179d70..f41731951ea 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -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) -- 2.39.5