procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix comp-compute-edges handling all kind of branches

Browse source
This commit is contained in:
Andrea Corallo 2019-09-16 20:11:05 +02:00
parent ca28d5fd72
commit 05b733e86c
1 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/emacs-lisp/comp.el
View file

@ -1008,16 +1008,19 @@ Top level forms for the current context are rendered too."
(cl-loop with blocks = (comp-func-blocks comp-func)
for bb being each hash-value of blocks
for last-insn = (car (last (comp-block-insns bb)))
for (op first _ third forth) = last-insn
for (op first second third forth) = last-insn
do (cl-ecase op
(jump
(edge-add :src bb :dst (gethash first
blocks)))
(edge-add :src bb :dst (gethash first blocks)))
(cond-jump
(edge-add :src bb :dst (gethash third
blocks))
(edge-add :src bb :dst (gethash forth
blocks)))
(edge-add :src bb :dst (gethash third blocks))
(edge-add :src bb :dst (gethash forth blocks)))
(cond-jump-narg-leq
(edge-add :src bb :dst (gethash second blocks))
(edge-add :src bb :dst (gethash third blocks)))
(push-handler
(edge-add :src bb :dst (gethash third blocks))
(edge-add :src bb :dst (gethash forth blocks)))
(return))
finally (progn
(setf (comp-func-edges comp-func)