From 19c37d2ca14fc500ef544376b5be22b9be971586 Mon Sep 17 00:00:00 2001 From: Hannes Mehnert Date: Thu, 26 Oct 2017 23:07:29 +0200 Subject: [PATCH] pass --mem to ukvm-bin, now that is merged in master --- src/vmm_commands.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/vmm_commands.ml b/src/vmm_commands.ml index dbf3ffa..d48c145 100644 --- a/src/vmm_commands.ml +++ b/src/vmm_commands.ml @@ -166,7 +166,8 @@ let exec dir vm fifo vmimage taps = | [_] -> Ok Fpath.(dir / "ukvm-bin.net") | _ -> Error (`Msg "cannot handle multiple network interfaces")) >>= fun bin -> cpuset vm.cpuid >>= fun cpuset -> - let cmd = Bos.Cmd.(of_list cpuset % p bin %% of_list net % "--" % p vmimage %% of_list argv) in + let mem = "--mem=" ^ string_of_int vm.memory in + let cmd = Bos.Cmd.(of_list cpuset % p bin % mem %% of_list net % "--" % p vmimage %% of_list argv) in let line = Bos.Cmd.to_list cmd in let prog = try List.hd line with Failure _ -> failwith err_empty_line in let line = Array.of_list line in