reynir
/
albatross
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

pass --mem to ukvm-bin, now that is merged in master

This commit is contained in:
Hannes Mehnert 2017-10-26 23:07:29 +02:00
parent 1d3cf484c4
commit 19c37d2ca1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/vmm_commands.ml
View File

@ -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