From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Sat, 20 Jul 2019 17:56:54 +0000 (+0200)
Subject: fix goto
X-Git-Tag: emacs-28.0.90~2727^2~1331
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e1e1bdc2c6ee45ac12283f8e8096723d60d93a1;p=emacs.git

fix goto
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 9151c304a16..8b3c3d20629 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -549,15 +549,7 @@ the annotation emission."
       (byte-end-of-line auto)
       (byte-constant2)
       (byte-goto
-       (let ((bb (comp-new-block-sym))
-             (blocks (comp-func-blocks comp-func))
-             (target (comp-lap-to-limple-bb (cl-third inst))))
-         (puthash bb (make-comp-block :sp (comp-sp)) blocks)
-         (comp-emit-jump target)
-         (puthash target
-	          (make-comp-block :sp (comp-sp))
-	          blocks)
-         (comp-emit-block bb)))
+       (comp-emit-jump (comp-lap-to-limple-bb (cl-third inst))))
       (byte-goto-if-nil
        (comp-emit-cond-jump 0 (cl-third inst) nil))
       (byte-goto-if-not-nil