From 6e1e1bdc2c6ee45ac12283f8e8096723d60d93a1 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sat, 20 Jul 2019 19:56:54 +0200 Subject: [PATCH] fix goto --- lisp/emacs-lisp/comp.el | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) 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 -- 2.39.5