diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2008-02-20 18:47:19 +0000 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2008-02-20 18:47:19 +0000 |
| commit | 87751781213a1252711b896290a7cc3f07ec0169 (patch) | |
| tree | 263b3ac2e2ec2998e8e174666da0b55d84939163 /libvirt/libvirt_c_oneoffs.c | |
| parent | 63dfe1865a7a32e39f3811f4ce0ce6d39f7d2dbd (diff) | |
| download | virt-top-87751781213a1252711b896290a7cc3f07ec0169.tar.gz virt-top-87751781213a1252711b896290a7cc3f07ec0169.tar.xz virt-top-87751781213a1252711b896290a7cc3f07ec0169.zip | |
Upgrade to released storage API in libvirt CVS.
Diffstat (limited to 'libvirt/libvirt_c_oneoffs.c')
| -rw-r--r-- | libvirt/libvirt_c_oneoffs.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/libvirt/libvirt_c_oneoffs.c b/libvirt/libvirt_c_oneoffs.c index a3a7e34..5df783e 100644 --- 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"); - 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); - 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 |