From ecb906fdc3b6ffb2890d69b397c71f08973e4cec Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 4 Jan 2007 18:38:32 +0100
Subject: [PATCH] also dump total profiling information.
---
scm/lily.scm | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/scm/lily.scm b/scm/lily.scm
index d7233471aa..0d734222b2 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -377,9 +377,9 @@ The syntax is the same as `define*-public'."
)))
-(define (dump-profile name last this)
+(define (dump-profile base last this)
(let*
- ((outname (format "~a.profile" (basename name ".ly")))
+ ((outname (format "~a.profile" (basename base ".ly")))
(diff (map (lambda (y) (apply - y)) (zip this last))))
(ly:progress "\nWriting timing to ~a..." outname)
@@ -623,7 +623,9 @@ The syntax is the same as `define*-public'."
(if (string-or-symbol? (ly:get-option 'log-file))
(format "~a.log" (ly:get-option 'log-file))
"/dev/tty") "a"))
-
+
+ (if (ly:get-option 'dump-profile)
+ (dump-profile "lily-run-total" '(0 0) (profile-measurements)))
failed))
--
2.39.5