bug#37501: [core-updates] Entropy starvation during boot

[Ludovic Courtès]

Ludovic Courtès <l...@gnu.org> skribis:

> +                              (let ((bits (* 8 (stat:size (stat seed)))))
> +                                (add-to-entropy-count urandom bits)))))))

Oh we also need to do that below, when reading from /dev/hwrng:

            (when buf
              (call-with-output-file "/dev/urandom"
                (lambda (urandom)
                  (put-bytevector urandom buf)
                  (let ((bits (* 8 (bytevector-length buf))))
                    (add-to-entropy-count urandom bits)))))  ;<- here

Ludo’.