From b2f9908953f8e231abb2bef2dd654864530c487e Mon Sep 17 00:00:00 2001 From: Lunfan Zhang Date: Thu, 25 Jan 2024 08:59:16 +0000 Subject: [PATCH] CA-388180 Correcting Domain CPU Usage Values Signed-off-by: Lunfan Zhang --- ocaml/xcp-rrdd/bin/rrdd/xcp_rrdd.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/ocaml/xcp-rrdd/bin/rrdd/xcp_rrdd.ml b/ocaml/xcp-rrdd/bin/rrdd/xcp_rrdd.ml index 1979f4ab16b..4f696085d6d 100644 --- a/ocaml/xcp-rrdd/bin/rrdd/xcp_rrdd.ml +++ b/ocaml/xcp-rrdd/bin/rrdd/xcp_rrdd.ml @@ -240,7 +240,9 @@ let dss_vcpus xc doms = let dom_cpu_time = Int64.(to_float @@ logand dom.Xenctrl.cpu_time xen_flag_complement) in - let dom_cpu_time = dom_cpu_time /. 1.0e9 in + let dom_cpu_time = + dom_cpu_time /. (1.0e9 *. float_of_int dom.Xenctrl.nr_online_vcpus) + in try let ri = Xenctrl.domain_get_runstate_info xc domid in ( Rrd.VM uuid