From 8735ff4e1dfbb1f9205f851b5efc56cf20fb31a9 Mon Sep 17 00:00:00 2001 From: Hu Tao Date: Fri, 12 Oct 2012 13:06:34 +0100 Subject: [PATCH] Rename find_usages_from_stats as find_cpu_usages. This is just code motion. --- virt-top/virt_top.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 1.8.3.1