From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 20 Oct 2019 09:10:22 +0000 (+0200)
Subject: fix missing jump into comp-emit-narg-prologue
X-Git-Tag: emacs-28.0.90~2727^2~1071
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=50604ff3872a46baec8578b35db92d9892a35396;p=emacs.git

fix missing jump into comp-emit-narg-prologue
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 03ace885f85..4dd6cbce437 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -982,11 +982,13 @@ the annotation emission."
               (comp-emit `(set-args-to-local ,(comp-slot-n i)))
               (comp-emit '(inc-args))
            finally (comp-emit '(jump entry_rest_args)))
-  (cl-loop for i from minarg below nonrest
-           do (comp-with-sp i
-                (comp-make-curr-block (intern (format "entry_fallback_%s" i))
-                                      (comp-sp))
-                (comp-emit-set-const nil)))
+  (when (not (= minarg nonrest))
+    (cl-loop for i from minarg below nonrest
+             do (comp-with-sp i
+                  (comp-make-curr-block (intern (format "entry_fallback_%s" i))
+                                        (comp-sp))
+                  (comp-emit-set-const nil))
+             finally (comp-emit '(jump entry_rest_args))))
   (comp-make-curr-block 'entry_rest_args (comp-sp))
   (comp-emit `(set-rest-args-to-local ,(comp-slot-n nonrest))))