git.annexia.org
/
virt-top.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Rename find_usages_from_stats as find_cpu_usages.
[virt-top.git]
/
virt-top
/
virt_top.ml
diff --git
a/virt-top/virt_top.ml
b/virt-top/virt_top.ml
index
9742e60
..
eafad95
100644
(file)
--- 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 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_stat
s = function
+ let rec find_
cpu_usage
s = function
| ("cpu_time", D.TypedFieldUInt64 usages) :: _ -> usages
| ("cpu_time", D.TypedFieldUInt64 usages) :: _ -> usages
- | _ :: params -> find_
usages_from_stat
s params
+ | _ :: params -> find_
cpu_usage
s params
| [] -> 0L in
| [] -> 0L in
- let pcpu_usages = Array.map find_
usages_from_stat
s cpu_stats in
+ let pcpu_usages = Array.map find_
cpu_usage
s 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