From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 21 Sep 2019 15:19:20 +0000 (+0200)
Subject: better logging
X-Git-Tag: emacs-28.0.90~2727^2~1136
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5976919a3325c4512e450b9649a510f05e7d4fcd;p=emacs.git

better logging
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index e1e0858985b..9f0068681b8 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -281,7 +281,8 @@ BODY is evaluate only if `comp-debug' is non nil."
           (insert data)
         (mapc (lambda (x)
                 (insert (prin1-to-string x) "\n"))
-              data)))))
+              data)
+        (insert "\n")))))
 
 (defun comp-log-func (func)
   "Log function FUNC."
@@ -289,7 +290,7 @@ BODY is evaluate only if `comp-debug' is non nil."
   (cl-loop for block-name being each hash-keys of (comp-func-blocks func)
            using (hash-value bb)
            do (progn
-                (comp-log (concat "\n<" (symbol-name block-name) ">\n"))
+                (comp-log (concat "<" (symbol-name block-name) ">\n"))
                 (comp-log (comp-block-insns bb)))))
 
 (defun comp-log-edges (func)
@@ -384,7 +385,9 @@ Put PREFIX in front of it."
                                       :args (comp-decrypt-lambda-list lambda-list)
                                       :lap lap
                                       :frame-size (aref bytecode 3))
-           do (comp-log lap)
+           do (progn
+                (comp-log (format "Function %s:\n" name))
+                (comp-log lap))
            collect func))
 
 (defun comp-spill-lap (input)
@@ -1415,7 +1418,7 @@ If INPUT is a string, use it as the file path to be native compiled."
                                                (symbol-name input)
                                              (file-name-sans-extension input)))))
     (mapc (lambda (pass)
-            (comp-log (format "\nRunning pass %s: " pass))
+            (comp-log (format "Running pass %s:\n" pass))
             (setq data (funcall pass data)))
           comp-passes)))