X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=examples%2Fget_cpu_stats.ml;h=814c85e65ba1d5944c9af3c1ab12846d432c63d7;hb=2bb6200934090f34f81d1badb9a55f5a86a7fb32;hp=79d5c3ca2ace0c2f94b1d99b0f6aea2d205c630f;hpb=c96c3a119b44d3321dddc5e189dcba991aaff677;p=ocaml-libvirt.git diff --git a/examples/get_cpu_stats.ml b/examples/get_cpu_stats.ml index 79d5c3c..814c85e 100644 --- a/examples/get_cpu_stats.ml +++ b/examples/get_cpu_stats.ml @@ -19,13 +19,15 @@ let () = let conn = C.connect_readonly () in + (* let nr_pcpus = let info = C.get_node_info conn in C.maxcpus_of_node_info info in + *) let stats = let dom = D.lookup_by_name conn domname in - D.get_cpu_stats dom nr_pcpus in + D.get_cpu_stats dom in Array.iteri ( fun n params ->