ocaml: Fix memory leak in bindings for functions that return buffers.

[libguestfs.git] / src / guestfs.c

diff --git a/src/guestfs.c b/src/guestfs.c
index 170d0d3..450ffd8 100644 (file)
--- a/src/guestfs.c
+++ b/src/guestfs.c
@@ -373,6 +373,8 @@ guestfs___debug (guestfs_h *g, const char *fs, ...)
   if (len < 0) return;
 
   guestfs___call_callbacks_message (g, GUESTFS_EVENT_LIBRARY, msg, len);
+
+  free (msg);
 }
 
 /* Call trace messages.  These are enabled by setting g->trace, and
@@ -1008,6 +1010,7 @@ guestfs___free_drives (struct drive **drives)
     free (i->path);
     free (i->format);
     free (i->iface);
+    free (i->name);
     free (i);
 
     i = next;