X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=generator%2Fgenerator_ocaml.ml;h=10c18e37b06bd7bd458111b4cafe7ee16a68d90b;hb=8ea8e456dc87e4c26f2ede1b00ab617e5d69b064;hp=4f7548c580cefa1a20d2c137a284418a7ff49ef1;hpb=615f504a5f02bbde4fb508fac4e816305688b08c;p=libguestfs.git

diff --git a/generator/generator_ocaml.ml b/generator/generator_ocaml.ml
index 4f7548c..10c18e3 100644
--- a/generator/generator_ocaml.ml
+++ b/generator/generator_ocaml.ml
@@ -625,6 +625,7 @@ copy_table (char * const * argv)
        | RBufferOut _ ->
            pr "  rv = caml_alloc_string (size);\n";
            pr "  memcpy (String_val (rv), r, size);\n";
+           pr "  free (r);\n"
       );
 
       pr "  CAMLreturn (rv);\n";