Fix memory leak in error return path.

[libguestfs.git] / src / generator.ml

diff --git a/src/generator.ml b/src/generator.ml
index 1e6c0bc..5b6e1eb 100755 (executable)
--- a/src/generator.ml
+++ b/src/generator.ml
@@ -2883,6 +2883,7 @@ check_state (guestfs_h *g, const char *caller)
 
       pr "  if (ctx.hdr.status == GUESTFS_STATUS_ERROR) {\n";
       pr "    error (g, \"%%s\", ctx.err.error_message);\n";
+      pr "    free (ctx.err.error_message);\n";
       pr "    guestfs_end_busy (g);\n";
       pr "    return %s;\n" error_code;
       pr "  }\n";