mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

strengthening comp-compute-edges

Browse source
This commit is contained in:
Andrea Corallo 2019-09-21 19:13:11 +02:00
parent c6be6fd6cc
commit be1b64bdb5
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -995,7 +995,7 @@ Top level forms for the current context are rendered too."
for bb being each hash-value of blocks
for last-insn = (car (last (comp-block-insns bb)))
for (op first second third forth) = last-insn
do (cl-ecase op
do (cl-case op
(jump
(edge-add :src bb :dst (gethash first blocks)))
(cond-jump
@ -1007,7 +1007,10 @@ Top level forms for the current context are rendered too."
(push-handler
(edge-add :src bb :dst (gethash third blocks))
(edge-add :src bb :dst (gethash forth blocks)))
(return))
(return)
(otherwise
(error "Block %s does not end with a branch in func %s"
bb (comp-func-symbol-name comp-func))))
finally (progn
(setf (comp-func-edges comp-func)
(nreverse (comp-func-edges comp-func)))