add protocol node into vfb's frontend

diff --git a/xenops/device.ml b/xenops/device.ml
index 8a312499339246399be1fe269ce48521d9bc1fdb..0b258ca3b07844f446fef3dbbd5c2672283fb4ca 100644 (file)
--- a/xenops/device.ml
+++ b/xenops/device.ml
@@ -1041,7 +1041,7 @@ end
 
 module Vfb = struct
 
-let add ~xc ~xs ~hvm domid =
+let add ~xc ~xs ~hvm ?(protocol=Protocol_Native) domid =
        debug "Device.Vfb.add %d" domid;
 
        let frontend = { domid = domid; kind = Vfb; devid = 0 } in
@@ -1054,6 +1054,7 @@ let add ~xc ~xs ~hvm domid =
        ] in
        let front = [
                "backend-id", string_of_int 0;
+               "protocol", (string_of_protocol protocol);
                "state", string_of_int (Xenbus.int_of Xenbus.Initialising);
        ] in
        Generic.add_device ~xs device back front;

diff --git a/xenops/device.mli b/xenops/device.mli
index 461496caab722477b064b40a343ab6306ceccddc..4397689cdad6b89f5ad4d2c8367eff3dfdbe880c 100644 (file)
--- a/xenops/device.mli
+++ b/xenops/device.mli
@@ -139,7 +139,7 @@ end
 
 module Vfb :
 sig
-       val add : xc:Xc.handle -> xs:Xs.xsh -> hvm:bool -> Xc.domid -> unit
+       val add : xc:Xc.handle -> xs:Xs.xsh -> hvm:bool -> ?protocol:protocol -> Xc.domid -> unit
 end
 
 module Dm :