From: Han-Wen Nienhuys Date: Thu, 4 Jan 2007 17:38:32 +0000 (+0100) Subject: also dump total profiling information. X-Git-Tag: release/2.11.9-1~38 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ecb906fdc3b6ffb2890d69b397c71f08973e4cec;p=lilypond.git also dump total profiling information. --- 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))