# HG changeset patch # User Rob Hoes CA-38844: CPUID maskability Distinguish between not maskable ("no") (CPU does not have Intel FlexMigration or AMB Extended Migration), only base features are maskable ("base"), and base+extended features are maskable ("full") in Host.cpu_info:maskable. Note: this patch should go in together with the flexmigration patch in xen-api-libs.hg. Signed-off-by: Rob Hoes diff -r cda70080e947 ocaml/xapi/create_misc.ml --- a/ocaml/xapi/create_misc.ml Tue Apr 06 10:57:56 2010 +0100 +++ b/ocaml/xapi/create_misc.ml Thu Apr 08 13:29:53 2010 +0100 @@ -441,6 +441,11 @@ let cpuid = Cpuid.read_cpu_info () in let features = Cpuid.features_to_string cpuid.Cpuid.features in let physical_features = Cpuid.features_to_string cpuid.Cpuid.physical_features in + let maskable = match cpuid.Cpuid.maskable with + | Cpuid.No -> "no" + | Cpuid.Base -> "base" + | Cpuid.Full -> "full" + in let cpu = [ "cpu_count", string_of_int number; "vendor", vendor; @@ -453,7 +458,7 @@ "features", features; "features_after_reboot", features; "physical_features", physical_features; - "maskable", string_of_bool cpuid.Cpuid.maskable; + "maskable", maskable; ] in Db.Host.set_cpu_info ~__context ~self:host ~value:cpu;