X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=ocaml%2Fguestfs_c.c;h=fd5e14ae0a30fe4228a8f453d75a90b648b03066;hb=72f5487be2df82277021d61f01884381ed9efbc5;hp=96e8a35a67bc0f3d530ee3d6d67ca72af9c3dd10;hpb=2b8b3f9794ceb43eabd3083e225c669896d8b186;p=libguestfs.git

diff --git a/ocaml/guestfs_c.c b/ocaml/guestfs_c.c
index 96e8a35..fd5e14a 100644
--- a/ocaml/guestfs_c.c
+++ b/ocaml/guestfs_c.c
@@ -82,6 +82,7 @@ guestfs_finalize (value gv)
       caml_remove_global_root (roots[i]);
       free (roots[i]);
     }
+    free (roots);
 
     caml_remove_global_root (v);
     free (v);