~ruther/guix-local: vm: Add #:memory-size parameter for 'expression->derivation-in-linux-vm'.

defa1b9bee7038a9fa3517f608589c991169a77c — Ludovic Courtès 12 years ago 4d9a80b

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.)

patch browse .tar.gz

1 files changed, 4 insertions(+), 1 deletions(-)

M gnu/system/vm.scm

M gnu/system/vm.scm => gnu/system/vm.scm +4 -1

@@ 78,12 78,14 @@
 
                                              (make-disk-image? #f)
                                              (references-graphs #f)
+                                             (memory-size 256)
                                              (disk-image-size
                                               (* 100 (expt 2 20))))
   "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
 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
 DISK-IMAGE-SIZE bytes and return it.


@@ 157,6 159,7 @@ made available under the /xchg CIFS share."
 
          (and (zero?
                (system* qemu "-enable-kvm" "-nographic" "-no-reboot"
+                        "-m" ,(number->string memory-size)
                         "-net" "nic,model=virtio"
                         "-virtfs"
                         ,(string-append "local,id=store_dev,path=" (%store-prefix)