| SDL of string (* X11 display *)
type info = {
+ hvm: bool;
memory: int64;
boot: string;
serial: string;
"-boot"; info.boot;
"-serial"; info.serial;
"-vcpus"; string_of_int info.vcpus;
- "-videoram"; string_of_int info.videoram; ]
+ "-videoram"; string_of_int info.videoram;
+ "-M"; (if info.hvm then "xenfv" else "xenpv");
+ ]
@ disp_options @ sound_options @ usb' @ (List.concat nics')
@ (if info.acpi then [ "-acpi" ] else [])
@ (if restore then [ "-loadvm"; restorefile ] else [])
| SDL of string (* X11 display *)
type info = {
+ hvm: bool;
memory: int64;
boot: string;
serial: string;
kind = (match backend.kind with
| Vbd | Tap -> Vbd
| Vif -> Vif
+ | Vfb -> Vfb
| Pci -> Pci);
devid = backend.devid } in
{ backend = backend; frontend = frontend }
| _ -> Device.Dm.VNC (false, cfg.vnc, cfg.vnc_keymap)
in
{
+ Device.Dm.hvm = cfg.hvm;
Device.Dm.memory = cfg.memory;
Device.Dm.boot = cfg.boot;
Device.Dm.serial = if cfg.serial = "" then "pty" else cfg.serial;
let add_dm ~xs ~domid ~mem_max_kib ~vcpus ~boot =
let dmpath = "/opt/xensource/libexec/qemu-dm-wrapper" in
let info = {
+ Device.Dm.hvm = true;
Device.Dm.memory = mem_max_kib;
Device.Dm.boot = boot;
Device.Dm.serial = "pty";