ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

system: vm: Set a larger value for the msize option of the 9p file system.

Browse source 
Fixes <https://issues.guix.gnu.org/47225>.

* gnu/system/vm.scm (%default-msize-value): New variable.
(%linux-vm-file-systems): Use it as the value of the msize option.
(mapping->file-system): Likewise.

Reported-by: Leo Famulari <leo@famulari.name>
This commit is contained in:
Maxim Cournoyer 2021-04-06 17:37:33 -04:00 committed by Leo Famulari
parent c762df5478
commit bdc96f6e0e
No known key found for this signature in database
GPG key ID: 2646FA30BACA7F08
1 changed files with 14 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gnu/system/vm.scm
View file

@ -88,6 +88,13 @@ (define-module (gnu system vm)
;;;
;;; Code:
;; By default, the msize value is 8 KiB, which according to QEMU is
;; insufficient and would degrade performance. The msize value should roughly
;; match the bandwidth of the system's IO (see:
;; https://wiki.qemu.org/Documentation/9psetup#msize). Use 100 MiB as a
;; conservative default.
(define %default-msize-value (* 100 (expt 2 20))) ;100 MiB
(define %linux-vm-file-systems
;; File systems mounted for 'derivation-in-linux-vm'. These are shared with
;; the host over 9p.
@ -103,21 +110,23 @@ (define %linux-vm-file-systems
(type "9p")
(needed-for-boot? #t)
(flags '(read-only))
(options "trans=virtio,cache=loose")
(options (format #f "trans=virtio,cache=loose,msize=~a"
%default-msize-value))
(check? #f))
(file-system
(mount-point "/xchg")
(device "xchg")
(type "9p")
(needed-for-boot? #t)
(options "trans=virtio")
(options (format #f "trans=virtio,msize=~a" %default-msize-value))
(check? #f))
(file-system
(mount-point "/tmp")
(device "tmp")
(type "9p")
(needed-for-boot? #t)
(options "trans=virtio,cache=loose")
(options (format #f "trans=virtio,cache=loose,msize=~a"
%default-msize-value))
(check? #f))))
(define not-config?
@ -581,7 +590,8 @@ (define (mapping->file-system mapping)
(type "9p")
(flags (if writable? '() '(read-only)))
(options (string-append "trans=virtio"
(if writable? "" ",cache=loose")))
(if writable? "" ",cache=loose")
",msize=" (number->string %default-msize-value)))
(check? #f)
(create-mount-point? #t)))))