me
/
guix
Archived
1
0
Fork 0
Code

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.
master
Ludovic Courtès 2021-02-18 22:25:18 +01:00
parent db45712a67
commit 70b33d8898
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
guix/store.scm
View File

@ -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)))