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

(cherry picked from commit c5dbb1e63a)
This commit is contained in:
Richard W.M. Jones
2011-11-29 12:25:34 +00:00
parent 3b782ee5cb
commit 583e04fa0a

View File

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