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

fix comp-log-edges

Browse source
This commit is contained in:
Andrea Corallo 2019-11-24 19:50:15 +01:00
parent ba2bbea816
commit 44023f3db2
1 changed files with 8 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -358,17 +358,15 @@ VERBOSITY is a number between 0 and 3."
(defun comp-log-edges (func)
"Log edges in FUNC."
(let ((edges (comp-func-edges func)))
(when (> comp-verbose 2)
(comp-log (format "\nEdges in function: %s\n"
(comp-func-name func))
0))
(comp-log (format "\nEdges in function: %s\n"
(comp-func-name func))
2)
(mapc (lambda (e)
(when (> comp-verbose 2)
(comp-log (format "n: %d src: %s dst: %s\n"
(comp-edge-number e)
(comp-block-name (comp-edge-src e))
(comp-block-name (comp-edge-dst e)))
0)))
(comp-log (format "n: %d src: %s dst: %s\n"
(comp-edge-number e)
(comp-block-name (comp-edge-src e))
(comp-block-name (comp-edge-dst e)))
2))
edges)))