From: Andrea Corallo <akrl@sdf.org>
Date: Thu, 24 Oct 2019 20:13:29 +0000 (+0200)
Subject: make more robust comp-emit-uncond-jump
X-Git-Tag: emacs-28.0.90~2727^2~1060
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=face460c41f59b5097748159ce64a5a09b277dc7;p=emacs.git

make more robust comp-emit-uncond-jump
---

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)