mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

do not override existing basic blocks when branching backwards!

Browse Source
This commit is contained in:
Andrea Corallo 2019-09-08 21:42:51 +02:00
parent 5f1039630d
commit c702e25a7a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -500,9 +500,11 @@ If NEGATED non nil negate the tested condition."
(comp-emit (if negated
(list 'cond-jump a b target bb)
(list 'cond-jump a b bb target)))
(puthash target
(make-comp-block :sp (+ target-offset (comp-sp)))
blocks)
(unless (gethash target blocks)
;; Create the bb target only if does not exixsts already.
(puthash target
(make-comp-block :sp (+ target-offset (comp-sp)))
blocks))
(comp-mark-block-closed))
(comp-emit-block bb)))