fix build breakage related to domain.make change

diff --git a/xenvm/xenops.ml b/xenvm/xenops.ml
index 8c51c1f076211940be77e4017c939231d83f9a1b..fe2e60143f2ef3009c48247ef1c3c40e1c74616b 100644 (file)
--- a/xenvm/xenops.ml
+++ b/xenvm/xenops.ml
@@ -66,7 +66,15 @@ let is_hvm ~xc domid =
 
 let create_domain ~xc ~xs ~hvm =
        let uuid = Uuid.make_uuid () in
-       let domid = Domain.make ~xc ~xs ~hvm uuid in
+       let info = {
+               Domain.ssidref = 0l;
+               Domain.hvm = hvm;
+               Domain.hap = true;
+               Domain.name = "";
+               Domain.xsdata = [];
+               Domain.platformdata = [];
+       } in
+       let domid = Domain.make ~xc ~xs info uuid in
        printf "%u\n" domid
 
 let build_domain ~xc ~xs ~kernel ?(ramdisk=None) ~cmdline ~domid ~vcpus ~mem_max_kib ~mem_target_kib =