bug#28784: 'guix publish' leaks memory

[ludo@gnu.org (Ludovic Courtès)]

ludo@gnu.org (Ludovic Courtès) skribis:

> On the build farms, memory usage of the ‘guix publish’ process increases
> slowly but indefinitely, it seems.

This program reproduced the problem:

--8<---------------cut here---------------start------------->8---
(use-modules (guix zlib)
             (ice-9 format)
             (rnrs io ports))

(define (display-heap-size)
  (format #t "heap size: ~,2h MiB~%"
          (/ (assoc-ref (gc-stats) 'heap-size) (expt 2. 20))))

(let loop ((i 0))
  (when (zero? (modulo i 1000))
    (display-heap-size))
  (let ((port (open-file "/dev/null" "w0")))
    (call-with-gzip-output-port port
      (lambda (port)
        (display (make-string 1000 #\a) port))))
  (loop (+ 1 i)))
--8<---------------cut here---------------end--------------->8---

This is fixed in 85a2b58987bc32e33e63bea86c1a94496b796ae9.

Ludo’.