diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-01-15 11:49:48 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-01-18 14:41:32 +0000 |
| commit | 45d9b1ad7cb9ecacd754cc3957c7280b299596e7 (patch) | |
| tree | 101aeeeabb642cbcce0b4995501ec77afae7644b | |
| parent | 60980e2668961d4b215f22fde670c638e9b7b7ab (diff) | |
| download | data-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.scm | 14 |
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 |