CP-20679: PGPU.compatibility_metadata in datamodel

Add a new field to PGPU.

Not changing the datamodel version number just yet: waiting until
we're sure the feature will not involve any more changes to fields.

Supply an empty value for the new field when calling the database
constructor to create a new PGPU entry.

Signed-off-by: Thomas Sanders <[email protected]>

Author: thomassa

ocaml/idl/datamodel.ml

@@ -9375,6 +9375,7 @@ let pgpu =
       field ~qualifier:DynamicRO ~ty:(Map (Ref _vgpu_type, Int)) ~lifecycle:[Published, rel_vgpu_productisation, ""] ~default_value:(Some (VMap [])) "supported_VGPU_max_capacities" "A map relating each VGPU type supported on this GPU to the maximum number of VGPUs of that type which can run simultaneously on this GPU";
       field ~qualifier:DynamicRO ~ty:(pgpu_dom0_access) ~lifecycle:[Published, rel_cream, ""] ~default_value:(Some (VEnum "enabled")) "dom0_access" "The accessibility of this device from dom0";
       field ~qualifier:DynamicRO ~ty:Bool ~lifecycle:[Published, rel_cream, ""] ~default_value:(Some (VBool false)) "is_system_display_device" "Is this device the system display device";
+      field ~qualifier:DynamicRO ~ty:(Map (String,String)) ~lifecycle:[Prototyped, rel_vgpu_migration_tech_preview, ""] ~default_value:(Some (VMap [])) "compatibility_metadata" "PGPU metadata to determine whether a VGPU can migrate between two PGPUs";
     ]
     ()
 

ocaml/xapi/test_common.ml

@@ -296,7 +296,7 @@ let make_pgpu ~__context ?(ref=Ref.make ()) ?(uuid=make_uuid ()) ?(pCI=Ref.null)
     ?(is_system_display_device=false) () =
   Db.PGPU.create ~__context ~ref ~uuid ~pCI ~gPU_group
     ~host ~other_config ~size ~supported_VGPU_max_capacities ~dom0_access
-    ~is_system_display_device;
+    ~is_system_display_device ~compatibility_metadata:[];
   Db.PGPU.set_supported_VGPU_types ~__context ~self:ref
     ~value:supported_VGPU_types;
   Db.PGPU.set_enabled_VGPU_types ~__context ~self:ref

ocaml/xapi/xapi_pgpu.ml

@@ -40,7 +40,8 @@ let create ~__context ~pCI ~gPU_group ~host ~other_config
   Db.PGPU.create ~__context ~ref:pgpu ~uuid ~pCI
     ~gPU_group ~host ~other_config ~size
     ~supported_VGPU_max_capacities ~dom0_access
-    ~is_system_display_device;
+    ~is_system_display_device
+    ~compatibility_metadata:[];
   Db.PGPU.set_supported_VGPU_types ~__context
     ~self:pgpu ~value:supported_VGPU_types;
   Db.PGPU.set_enabled_VGPU_types ~__context