cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

More efficiently create some vectors

Browse source 
And instrument the inferior memory after creating the gds-inferior-packages
vector.
This commit is contained in:
Christopher Baines 2024-11-08 19:01:54 +00:00
parent ca5f0036f3
commit ebeb4212ff
1 changed files with 28 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

39
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -541,8 +541,13 @@
(/ (assoc-ref stats 'heap-size)
(expt 2. 20)))))
(let ((vec (list->vector
(iota ,count ,start-index))))
(let ((vec (make-vector ,count)))
(vector-fold
(lambda (i index _)
(vector-set! vec i index)
(1+ index))
,start-index
vec)
(vector-map!
(lambda (_ index)
(define package (vector-ref gds-inferior-packages index))
@ -736,18 +741,30 @@
(inferior-eval
`(define gds-inferior-packages
(make-vector ,deduplicated-packages-length))
(vector ,@(map inferior-package-id deduplicated-packages)))
inf)
(inferior-eval
'(begin
(vector-map!
(lambda (_ id)
(or (hashv-ref %package-table id)
(error "missing package id")))
gds-inferior-packages)
#t)
inf)
(inferior-eval
`(for-each
(lambda (index id)
(vector-set! gds-inferior-packages
index
(or (hashv-ref %package-table id)
(error "missing package id"))))
(iota ,deduplicated-packages-length)
(list ,@(map inferior-package-id deduplicated-packages)))
'(let ((stats (gc-stats)))
(simple-format
(current-error-port)
"post gds-inferior-packages 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)))))
inf)
(values (list->vector deduplicated-packages)