From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 2 Jan 2007 18:01:27 +0000 (+0100)
Subject: also include total-cells-allocated if supported.
X-Git-Tag: release/2.11.8-1~38
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=81a7bef608281c509fb3bcc3853a724c51f384fd;p=lilypond.git

also include total-cells-allocated if supported.
---

diff --git a/scm/lily.scm b/scm/lily.scm
index d2b3ea95e7..2a93a3217d 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -362,6 +362,7 @@ The syntax is the same as `define*-public'."
      (- (tms:utime t)
 	(ly:assoc-get 'gc-time-taken stats))
 
+     (ly:assoc-get 'total-cells-allocated  stats 0)
      ;; difficult to put memory amount stats into here.
      
      )))
@@ -373,8 +374,10 @@ The syntax is the same as `define*-public'."
     
     (ly:progress "\nWriting timing to ~a..." outname)
     (format (open-file outname "w")
-	    "time: ~a"
-	    (car diff))))
+	    "time: ~a\ncells: ~a\n"
+	    (car diff)
+	    (cadr diff)
+	    )))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;