[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
11/11: store: Object cache profiling shows the number of entries.
From: |
guix-commits |
Subject: |
11/11: store: Object cache profiling shows the number of entries. |
Date: |
Thu, 18 Feb 2021 17:40:13 -0500 (EST) |
civodul pushed a commit to branch wip-build-systems-gexp
in repository guix.
commit 54f5407996f1740de0e6d6886ed546538dbd27f6
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Feb 18 22:25:18 2021 +0100
store: Object cache profiling shows the number of entries.
* guix/store.scm (record-cache-lookup!): Add 'size' variable; keep it
up-to-date and display it.
---
guix/store.scm | 13 +++++++++----
1 file changed, 9 insertions(+), 4 deletions(-)
diff --git a/guix/store.scm b/guix/store.scm
index e0b15ab..2157c52 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -1835,18 +1835,21 @@ and RESULT is typically its derivation."
(if (profiled? "object-cache")
(let ((fresh 0)
(lookups 0)
- (hits 0))
+ (hits 0)
+ (size 0))
(register-profiling-hook!
"object-cache"
(lambda ()
(format (current-error-port) "Store object cache:
fresh caches: ~5@a
lookups: ~5@a
- hits: ~5@a (~,1f%)~%"
+ hits: ~5@a (~,1f%)
+ cache size: ~5@a entries~%"
fresh lookups hits
(if (zero? lookups)
100.
- (* 100. (/ hits lookups))))))
+ (* 100. (/ hits lookups)))
+ size)))
(lambda (hit? cache)
(set! fresh
@@ -1854,7 +1857,9 @@ and RESULT is typically its derivation."
(+ 1 fresh)
fresh))
(set! lookups (+ 1 lookups))
- (set! hits (if hit? (+ hits 1) hits))))
+ (set! hits (if hit? (+ hits 1) hits))
+ (set! size (+ (if hit? 0 1)
+ (vlist-length cache)))))
(lambda (x y)
#t)))
- branch wip-build-systems-gexp created (now 54f5407), guix-commits, 2021/02/18
- 04/11: packages: Core procedures are written in monadic style., guix-commits, 2021/02/18
- 09/11: gexp: Keep 'lower-inputs' private., guix-commits, 2021/02/18
- 07/11: gexp: 'gexp-inputs' returns a list of <gexp-input> records., guix-commits, 2021/02/18
- 03/11: packages: Simplify patch instantiation., guix-commits, 2021/02/18
- 11/11: store: Object cache profiling shows the number of entries.,
guix-commits <=
- 10/11: gexp: Micro-optimize 'gexp->sexp' and 'lower-inputs'., guix-commits, 2021/02/18
- 08/11: gexp: 'gexp-inputs' returns both native and non-native inputs., guix-commits, 2021/02/18
- 06/11: squash! build-system: Rewrite using gexps., guix-commits, 2021/02/18
- 01/11: build-system: Rewrite using gexps., guix-commits, 2021/02/18
- 02/11: packages: Turn 'bag->derivation' into a monadic procedure., guix-commits, 2021/02/18
- 05/11: gexp: Micro-optimize sexp serialization., guix-commits, 2021/02/18