mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

fix goto

Browse Source
This commit is contained in:
Andrea Corallo 2019-07-20 19:56:54 +02:00 committed by Andrea Corallo
parent d025ce26f8
commit 6e1e1bdc2c
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/emacs-lisp/comp.el
View File

@ -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