From: Hu Tao Date: Fri, 12 Oct 2012 12:06:34 +0000 (+0100) Subject: Rename find_usages_from_stats as find_cpu_usages. X-Git-Tag: 1.0.8~2 X-Git-Url: http://git.annexia.org/?p=virt-top.git;a=commitdiff_plain;h=8735ff4e1dfbb1f9205f851b5efc56cf20fb31a9 Rename find_usages_from_stats as find_cpu_usages. This is just code motion. --- diff --git a/virt-top/virt_top.ml b/virt-top/virt_top.ml index 9742e60..eafad95 100644 --- a/virt-top/virt_top.ml +++ b/virt-top/virt_top.ml @@ -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 rec find_usages_from_stats = function + let rec find_cpu_usages = function | ("cpu_time", D.TypedFieldUInt64 usages) :: _ -> usages - | _ :: params -> find_usages_from_stats params + | _ :: params -> find_cpu_usages params | [] -> 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