me
/
guix
Archived
1
0
Fork 0
Code

vm: Add #:memory-size parameter for 'expression->derivation-in-linux-vm'. 

* gnu/system/vm.scm (expression->derivation-in-linux-vm): Add
  #:memory-size parameter, defaulting to 256 (QEMU defaults to 128.)
master
Ludovic Courtès 2014-04-09 13:47:57 +02:00
parent 4d9a80ba75
commit defa1b9bee
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gnu/system/vm.scm
View File

@ -78,12 +78,14 @@
(make-disk-image? #f) (make-disk-image? #f)
(references-graphs #f) (references-graphs #f)
(memory-size 256)
(disk-image-size (disk-image-size
(* 100 (expt 2 20)))) (* 100 (expt 2 20))))
"Evaluate EXP in a QEMU virtual machine running LINUX with INITRD (a "Evaluate EXP in a QEMU virtual machine running LINUX with INITRD (a
derivation). In the virtual machine, EXP has access to all of INPUTS from the derivation). In the virtual machine, EXP has access to all of INPUTS from the
store; it should put its output files in the `/xchg' directory, which is store; it should put its output files in the `/xchg' directory, which is
copied to the derivation's output when the VM terminates. copied to the derivation's output when the VM terminates. The virtual machine
runs with MEMORY-SIZE MiB of memory.
When MAKE-DISK-IMAGE? is true, then create a QEMU disk image of When MAKE-DISK-IMAGE? is true, then create a QEMU disk image of
DISK-IMAGE-SIZE bytes and return it. DISK-IMAGE-SIZE bytes and return it.
@ -157,6 +159,7 @@ made available under the /xchg CIFS share."
(and (zero? (and (zero?
(system* qemu "-enable-kvm" "-nographic" "-no-reboot" (system* qemu "-enable-kvm" "-nographic" "-no-reboot"
"-m" ,(number->string memory-size)
"-net" "nic,model=virtio" "-net" "nic,model=virtio"
"-virtfs" "-virtfs"
,(string-append "local,id=store_dev,path=" (%store-prefix) ,(string-append "local,id=store_dev,path=" (%store-prefix)