[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
14/15: store: Micro-optimize object cache lookup.
From: |
guix-commits |
Subject: |
14/15: store: Micro-optimize object cache lookup. |
Date: |
Tue, 23 Feb 2021 08:34:04 -0500 (EST) |
civodul pushed a commit to branch wip-build-systems-gexp
in repository guix.
commit ecdab9ae571fa6750bc3c38c4acbd1448d3d52bf
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Feb 19 22:30:30 2021 +0100
store: Micro-optimize object cache lookup.
This avoids a closure allocation when 'lookup-cached-object' is called.
* guix/store.scm (lookup-cached-object): Avoid optional/keyword
arguments and inline.
(%mcached): Adjust accordingly.
---
guix/store.scm | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/guix/store.scm b/guix/store.scm
index dccf8ba..37ae6cf 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -1863,8 +1863,7 @@ and RESULT is typically its derivation."
(lambda (x y)
#t)))
-(define* (lookup-cached-object object #:optional (keys '())
- #:key (vhash-fold* vhash-foldq*))
+(define-inlinable (lookup-cached-object object keys vhash-fold*)
"Return the cached object in the store connection corresponding to OBJECT
and KEYS; use VHASH-FOLD* to look for OBJECT in the cache. KEYS is a list of
additional keys to match against, and which are compared with 'equal?'.
@@ -1895,7 +1894,7 @@ Return #f on failure and the cached result otherwise."
OBJECT/KEYS, or return its cached value. Use VHASH-CONS to insert OBJECT into
the cache, and VHASH-FOLD* to look it up."
(mlet %store-monad ((cached (lookup-cached-object object keys
- #:vhash-fold*
vhash-fold*)))
+ vhash-fold*)))
(if cached
(return cached)
(>>= (mthunk)
- branch wip-build-systems-gexp created (now 0ffad81), guix-commits, 2021/02/23
- 03/15: packages: Simplify patch instantiation., guix-commits, 2021/02/23
- 05/15: gexp: Micro-optimize sexp serialization., guix-commits, 2021/02/23
- 09/15: gexp: Keep 'lower-inputs' private., guix-commits, 2021/02/23
- 06/15: squash! build-system: Rewrite using gexps., guix-commits, 2021/02/23
- 11/15: store: Object cache profiling shows the number of entries., guix-commits, 2021/02/23
- 10/15: gexp: Micro-optimize 'gexp->sexp' and 'lower-inputs'., guix-commits, 2021/02/23
- 08/15: gexp: 'gexp-inputs' returns both native and non-native inputs., guix-commits, 2021/02/23
- 14/15: store: Micro-optimize object cache lookup.,
guix-commits <=
- 04/15: packages: Core procedures are written in monadic style., guix-commits, 2021/02/23
- 02/15: packages: Turn 'bag->derivation' into a monadic procedure., guix-commits, 2021/02/23
- 13/15: grafts: Inline 'grafting?' and 'set-grafting'., guix-commits, 2021/02/23
- 07/15: gexp: 'gexp-inputs' returns a list of <gexp-input> records., guix-commits, 2021/02/23
- 12/15: gexp: Reduce allocations while traversing lists., guix-commits, 2021/02/23
- 01/15: build-system: Rewrite using gexps., guix-commits, 2021/02/23
- 15/15: gexp: Reduce allocations in 'gexp-attribute'., guix-commits, 2021/02/23