From: Richard W.M. Jones <rjones@redhat.com>
Date: Fri, 12 Oct 2012 10:32:06 +0000 (+0100)
Subject: Remove D.get_cpu_stats second parameter.
X-Git-Tag: 1.0.8~4
X-Git-Url: http://git.annexia.org/?p=virt-top.git;a=commitdiff_plain;h=56db27de24772a575d450f0c847ea33ce0f268ff

Remove D.get_cpu_stats second parameter.

In upstream ocaml-libvirt, this second parameter has been removed,
because it was found that nr_pcpus can be found by calling the libvirt
API directly.
---

diff --git a/virt-top/virt_top.ml b/virt-top/virt_top.ml
index 7e4677c..9742e60 100644
--- a/virt-top/virt_top.ml
+++ b/virt-top/virt_top.ml
@@ -671,7 +671,7 @@ let collect, clear_pcpu_display_data =
 	      (try
 		 let domid = rd.rd_domid in
 		 let maplen = C.cpumaplen nr_pcpus in
-		 let cpu_stats = D.get_cpu_stats rd.rd_dom nr_pcpus in
+		 let cpu_stats = D.get_cpu_stats rd.rd_dom in
 		 let rec find_usages_from_stats = function
 		   | ("cpu_time", D.TypedFieldUInt64 usages) :: _ -> usages
 		   | _ :: params -> find_usages_from_stats params