From 81a7bef608281c509fb3bcc3853a724c51f384fd Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Tue, 2 Jan 2007 19:01:27 +0100 Subject: [PATCH] also include total-cells-allocated if supported. --- scm/lily.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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) + ))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -- 2.39.2