Rename find_usages_from_stats as find_cpu_usages.
authorHu Tao <hutao@cn.fujitsu.com>
Fri, 12 Oct 2012 12:06:34 +0000 (13:06 +0100)
committerRichard W.M. Jones <rjones@redhat.com>
Fri, 12 Oct 2012 12:06:34 +0000 (13:06 +0100)
This is just code motion.

virt-top/virt_top.ml

index 9742e60..eafad95 100644 (file)
@@ -672,11 +672,11 @@ let collect, clear_pcpu_display_data =
                 let domid = rd.rd_domid in
                 let maplen = C.cpumaplen nr_pcpus in
                 let cpu_stats = D.get_cpu_stats rd.rd_dom in
                 let domid = rd.rd_domid in
                 let maplen = C.cpumaplen nr_pcpus in
                 let cpu_stats = D.get_cpu_stats rd.rd_dom in
-                let rec find_usages_from_stats = function
+                let rec find_cpu_usages = function
                   | ("cpu_time", D.TypedFieldUInt64 usages) :: _ -> usages
                   | ("cpu_time", D.TypedFieldUInt64 usages) :: _ -> usages
-                  | _ :: params -> find_usages_from_stats params
+                  | _ :: params -> find_cpu_usages params
                   | [] -> 0L in
                   | [] -> 0L in
-                let pcpu_usages = Array.map find_usages_from_stats cpu_stats in
+                let pcpu_usages = Array.map find_cpu_usages cpu_stats in
                 let maxinfo = rd.rd_info.D.nr_virt_cpu in
                 let nr_vcpus, vcpu_infos, cpumaps =
                   D.get_vcpus rd.rd_dom maxinfo maplen in
                 let maxinfo = rd.rd_info.D.nr_virt_cpu in
                 let nr_vcpus, vcpu_infos, cpumaps =
                   D.get_vcpus rd.rd_dom maxinfo maplen in