From b9893d34b6876523ad7863463ac66295136d3974 Mon Sep 17 00:00:00 2001
From: Christian Lindig <christian.lindig@cloud.com>
Date: Tue, 23 Jan 2024 10:24:58 +0000
Subject: [PATCH] CP-46200 CP-45741 pass -std-vga to QEMU in the case of
 compute GPU

Further adjust parameters passed to QEMU when using an NVidia compte
(VCS) profile.

Signed-off-by: Christian Lindig <christian.lindig@cloud.com>
---
 ocaml/xenopsd/xc/device.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ocaml/xenopsd/xc/device.ml b/ocaml/xenopsd/xc/device.ml
index 8bb799253ed..d86caae2d81 100644
--- a/ocaml/xenopsd/xc/device.ml
+++ b/ocaml/xenopsd/xc/device.ml
@@ -2082,7 +2082,7 @@ module Dm_Common = struct
          case. Don't pass -vgpu for a compute vGPU. *)
       match x with
       | Vgpu ({implementation= Nvidia {vclass= Some "Compute"; _}; _} :: _) ->
-          [] (* don't pass flags for VCS (compute) vGPU *)
+          ["-std-vga"]
       | Vgpu ({implementation= Nvidia _; _} :: _) ->
           ["-vgpu"]
       | Vgpu [{implementation= GVT_g gvt_g; _}] ->