From: Richard W.M. Jones <rjones@redhat.com>
Date: Tue, 29 Nov 2011 12:25:34 +0000 (+0000)
Subject: ocaml: Memory leak: Free roots array along handle close path.
X-Git-Tag: 1.15.7~5
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=c5dbb1e63a8e0c45c7088dd2e58f5abbcfc30620;p=libguestfs.git

ocaml: Memory leak: Free roots array along handle close path.
---

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);