From defa1b9bee7038a9fa3517f608589c991169a77c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 9 Apr 2014 13:47:57 +0200
Subject: [PATCH] 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.)
---
gnu/system/vm.scm | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index 6ed183634f6..ba4c7607c91 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -78,12 +78,14 @@ (define* (expression->derivation-in-linux-vm name exp
(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 @@ (define builder
(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)
--
GitLab