From 0c2376a5c05053ce6a0479ade544be860c400fdb Mon Sep 17 00:00:00 2001 From: Richard Jones Date: Wed, 15 Apr 2009 14:09:01 +0100 Subject: Correctly free memory in RHashtable binding for OCaml & Python. --- src/generator.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/generator.ml b/src/generator.ml index b1071a86..c20e43fc 100755 --- a/src/generator.ml +++ b/src/generator.ml @@ -3533,6 +3533,7 @@ copy_table (char * const * argv) | RStatVFS _ -> pr " struct guestfs_statvfs *r;\n"; "NULL" | RHashtable _ -> + pr " int i;\n"; pr " char **r;\n"; "NULL" in pr "\n"; @@ -3588,6 +3589,7 @@ copy_table (char * const * argv) pr " free (r);\n"; | RHashtable _ -> pr " rv = copy_table (r);\n"; + pr " for (i = 0; r[i] != NULL; ++i) free (r[i]);\n"; pr " free (r);\n"; ); @@ -4447,7 +4449,7 @@ py_guestfs_close (PyObject *self, PyObject *args) pr " free (r);\n" | RHashtable n -> pr " py_r = put_table (r);\n"; - pr " free (r);\n" + pr " free_strings (r);\n" ); pr " return py_r;\n"; -- cgit