From de62930716ae1c5d9698cc5703a4fad42f43d7a9 Mon Sep 17 00:00:00 2001 From: David Scott Date: Fri, 18 Jun 2010 13:38:29 +0100 Subject: [PATCH] CA-40022: add a bunch more debugging and sanity-checks to the console code. Signed-off-by: David Scott --- ocaml/database/db_names.ml | 1 + ocaml/xenops/device.ml | 5 +++++ 2 files changed, 6 insertions(+) diff --git a/ocaml/database/db_names.ml b/ocaml/database/db_names.ml index 8479811e..82b2b6fc 100644 --- a/ocaml/database/db_names.ml +++ b/ocaml/database/db_names.ml @@ -16,6 +16,7 @@ let uuid = "uuid" let ref = "_ref" let suspend_VDI = "suspend_VDI" let vm = "VM" +let console = "console" let name_label = "name__label" let power_state = "power_state" let allowed_operations = "allowed_operations" diff --git a/ocaml/xenops/device.ml b/ocaml/xenops/device.ml index 1683df63..f5584dbb 100644 --- a/ocaml/xenops/device.ml +++ b/ocaml/xenops/device.ml @@ -1670,3 +1670,8 @@ let vnc_port_path ~xc ~xs domid = if (Xc.domain_getinfo xc domid).Xc.hvm_guest then Dm.vnc_port_path domid else PV_Vnc.vnc_port_path domid + +let vnc_port_path ~xc ~xs domid = + if (Xc.domain_getinfo xc domid).Xc.hvm_guest + then Dm.vnc_port_path domid + else PV_Vnc.vnc_port_path domid -- 2.39.5