CA-371529 document changes in datamodel

Signed-off-by: Christian Lindig <[email protected]>
xcp-ng · Apr 30, 2024 · 6182cc2 · 6182cc2
1 parent c467bda
commit 6182cc2
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 8 deletions.
diff --git 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
@@ -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
@@ -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