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
Upgrade to released storage API in libvirt CVS.
[virt-top.git]
/
libvirt
/
libvirt_c_oneoffs.c
diff --git
a/libvirt/libvirt_c_oneoffs.c
b/libvirt/libvirt_c_oneoffs.c
index
a3a7e34
..
5df783e
100644
(file)
--- a/
libvirt/libvirt_c_oneoffs.c
+++ b/
libvirt/libvirt_c_oneoffs.c
@@
-682,10
+682,11
@@
ocaml_libvirt_storage_pool_get_info (value poolv)
NONBLOCKING (r = virStoragePoolGetInfo (pool, &info));
CHECK_ERROR (r == -1, conn, "virStoragePoolGetInfo");
NONBLOCKING (r = virStoragePoolGetInfo (pool, &info));
CHECK_ERROR (r == -1, conn, "virStoragePoolGetInfo");
- rv = caml_alloc (
3
, 0);
+ rv = caml_alloc (
4
, 0);
Store_field (rv, 0, Val_int (info.state));
v = caml_copy_int64 (info.capacity); Store_field (rv, 1, v);
Store_field (rv, 0, Val_int (info.state));
v = caml_copy_int64 (info.capacity); Store_field (rv, 1, v);
- v = caml_copy_int64 (info.allocation); Store_field (rv, 1, v);
+ v = caml_copy_int64 (info.allocation); Store_field (rv, 2, v);
+ v = caml_copy_int64 (info.available); Store_field (rv, 3, v);
CAMLreturn (rv);
#else
CAMLreturn (rv);
#else