From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 2 Dec 2006 15:27:52 +0000 (+0100)
Subject: also collect gc-stats output.
X-Git-Tag: release/2.11.1-1~9^2~5
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=96220e9e2de22d9bef5b9362f349f4d125d4e879;p=lilypond.git

also collect gc-stats output.
---

diff --git a/scm/lily.scm b/scm/lily.scm
index c7dbb06e0f..b947853471 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -399,7 +399,24 @@ The syntax is the same as `define*-public'."
 	     (format outfile "~a: ~a\n" (car x) (cdr x)))
 	   (sort (gc-live-object-stats)
 		 (lambda (x y)
-		   (string<? (car x) (car y)))))))))
+		   (string<? (car x) (car y)))))))
+
+
+    (newline outfile)
+    (let*
+	((stats (gc-stats)))
+      
+      (for-each
+       (lambda (sym)
+	 (display
+	  (format "~a ~a ~a\n"
+		  gc-protect-stat-count
+		  sym
+		  (cdr (assoc sym stats)))
+	  outfile))
+       '(protected-objects bytes-malloced cell-heap-size)))
+    
+    ))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;