From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 24 Nov 2019 18:50:15 +0000 (+0100)
Subject: fix comp-log-edges
X-Git-Tag: emacs-28.0.90~2727^2~941
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=44023f3db21c0365ceeb179657447d7cdb1feb8f;p=emacs.git

fix comp-log-edges
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 60cfd8e5163..f9c0d62147e 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -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)))