aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2024-01-15 11:49:48 +0000
committerChristopher Baines <mail@cbaines.net>2024-01-18 14:41:32 +0000
commit45d9b1ad7cb9ecacd754cc3957c7280b299596e7 (patch)
tree101aeeeabb642cbcce0b4995501ec77afae7644b
parent60980e2668961d4b215f22fde670c638e9b7b7ab (diff)
downloaddata-service-45d9b1ad7cb9ecacd754cc3957c7280b299596e7.tar
data-service-45d9b1ad7cb9ecacd754cc3957c7280b299596e7.tar.gz
Add back inferior heap size reporting
I'm sure this was present before, but maybe lost during some refactoring.
-rw-r--r--guix-data-service/jobs/load-new-guix-revision.scm14
1 files changed, 13 insertions, 1 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm
index a8ef88b..a3c6527 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@@ -137,7 +137,7 @@
(assoc-ref stats 'heap-free-size))
(expt 2. 20)))
(round
- (/ (assoc-ref (gc-stats) 'heap-size)
+ (/ (assoc-ref stats 'heap-size)
(expt 2. 20)))))
(list (system-test-name system-test)
@@ -492,6 +492,18 @@
args)
#f)))
+ (let ((stats (gc-stats)))
+ (simple-format
+ (current-error-port)
+ "inferior heap: ~a MiB used (~a MiB heap)~%"
+ (round
+ (/ (- (assoc-ref stats 'heap-size)
+ (assoc-ref stats 'heap-free-size))
+ (expt 2. 20)))
+ (round
+ (/ (assoc-ref stats 'heap-size)
+ (expt 2. 20)))))
+
(vector-map
(lambda (_ package)
(catch