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

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

Browse source
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") | [_] -> Ok Fpath.(dir / "ukvm-bin.net")
| _ -> Error (`Msg "cannot handle multiple network interfaces")) >>= fun bin -> | _ -> Error (`Msg "cannot handle multiple network interfaces")) >>= fun bin ->
cpuset vm.cpuid >>= fun cpuset -> 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 line = Bos.Cmd.to_list cmd in
let prog = try List.hd line with Failure _ -> failwith err_empty_line in let prog = try List.hd line with Failure _ -> failwith err_empty_line in
let line = Array.of_list line in let line = Array.of_list line in