From 6182cc23d044ce9b7ff5f8b0c86ce5b7ab738925 Mon Sep 17 00:00:00 2001 From: Christian Lindig Date: Mon, 29 Apr 2024 10:31:43 +0100 Subject: [PATCH] CA-371529 document changes in datamodel Signed-off-by: Christian Lindig --- ocaml/idl/datamodel_pool.ml | 15 +++++++++------ ocaml/idl/datamodel_vm.ml | 9 ++++++++- ocaml/idl/schematest.ml | 2 +- 3 files changed, 18 insertions(+), 8 deletions(-) diff --git a/ocaml/idl/datamodel_pool.ml b/ocaml/idl/datamodel_pool.ml index 1fdc3acf437..f556cf56407 100644 --- a/ocaml/idl/datamodel_pool.ml +++ b/ocaml/idl/datamodel_pool.ml @@ -1374,13 +1374,16 @@ let t = ~default_value:(Some (VMap [])) ~ty:(Map (String, String)) "cpu_info" "Details about the physical CPUs on the pool" - ; field ~qualifier:RW ~in_product_since:rel_dundee - ~default_value:(Some (VBool false)) ~ty:Bool + ; field ~qualifier:RW ~default_value:(Some (VBool false)) ~ty:Bool + ~lifecycle: + [ + (Published, rel_dundee, "") + ; (Deprecated, "24.14.0", "No longer considered by VM.create") + ] "policy_no_vendor_device" - "The pool-wide policy for clients on whether to use the vendor \ - device or not on newly created VMs. This field will also be \ - consulted if the 'has_vendor_device' field is not specified in \ - the VM.create call." + "This field was consulted when VM.create did not specify a value \ + for 'has_vendor_device'; VM.create now uses a simple default and \ + no longer consults this value." ; field ~qualifier:RW ~in_product_since:rel_ely ~default_value:(Some (VBool false)) ~ty:Bool "live_patching_disabled" diff --git a/ocaml/idl/datamodel_vm.ml b/ocaml/idl/datamodel_vm.ml index 4984ca072d6..f6236540bf1 100644 --- a/ocaml/idl/datamodel_vm.ml +++ b/ocaml/idl/datamodel_vm.ml @@ -2092,7 +2092,14 @@ let t = "hardware_platform_version" "The host virtual hardware platform version the VM can run on" ; field ~qualifier:StaticRO - ~lifecycle:[(Published, rel_dundee, "")] + ~lifecycle: + [ + (Published, rel_dundee, "") + ; ( Changed + , "24.14.0" + , "New default and not consulting Pool.policy_no_vendor_device" + ) + ] ~doc_tags:[Windows] ~default_value:(Some (VBool true)) ~ty:Bool "has_vendor_device" "When an HVM guest starts, this controls the presence of the \ diff --git a/ocaml/idl/schematest.ml b/ocaml/idl/schematest.ml index 1416ddc2dd4..60ddad41e91 100644 --- a/ocaml/idl/schematest.ml +++ b/ocaml/idl/schematest.ml @@ -3,7 +3,7 @@ let hash x = Digest.string x |> Digest.to_hex (* BEWARE: if this changes, check that schema has been bumped accordingly in ocaml/idl/datamodel_common.ml, usually schema_minor_vsn *) -let last_known_schema_hash = "8a03b539f1c318023775f345faef4d5b" +let last_known_schema_hash = "8c3cb4546e7dc9e8d9d05c8194d8a3d6" let current_schema_hash : string = let open Datamodel_types in