X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Flily.scm;h=bddf997764e03ca8d930f66875748749d445aa13;hb=8dccbac66bba223b3b1a1371457673a7cd775c73;hp=ce1936fd9089a1cb914a06952623f5dae474438c;hpb=06179214e6e296a7befd73b6eb84d09ce5c98a19;p=lilypond.git

diff --git a/scm/lily.scm b/scm/lily.scm
index ce1936fd90..bddf997764 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -40,7 +40,8 @@ ensure that all refs to parsed objects are dead.  This is an internal option, an
     (debug-skylines #f "debug skylines")
     (delete-intermediate-files #f
 			       "delete unusable PostScript files")
-    (dump-profile #f "dump timing information for each file")
+    (dump-profile #f "dump memory and time information for each file")
+    (dump-cpu-profile #f "dump timing information (system-dependent)")
     (dump-signatures #f "dump output signatures of each system.  Used for regression testing.")
     
     (eps-box-padding #f "Pad EPS bounding box left edge.  Guarantee alignment between systems in LaTeX.")
@@ -415,7 +416,9 @@ The syntax is the same as `define*-public'."
     (ly:progress "\nWriting timing to ~a..." outname)
     (format (open-file outname "w")
 	    "time: ~a\ncells: ~a\n"
-	    (car diff)
+	    (if (ly:get-option 'dump-cpu-profile)
+		(car diff)
+		0)
 	    (cadr diff)
 	    )))