indent_test / parsergen: fix various memory leaks.

[ocean] / csrc / indent_test.cgm

diff --git a/csrc/indent_test.cgm b/csrc/indent_test.cgm
index 50fc4a5f7ea69a3601a051e580992b84c79a53d3..ac3ab55fe49d25b5ffa31778fe87d5c5fe6b444e 100644 (file)
--- a/csrc/indent_test.cgm
+++ b/csrc/indent_test.cgm
@@ -45,6 +45,7 @@ with complete bracketing and indenting.
                if (!s)
                        return;
                free_statement(s->next);
+               free_expression(s->expr);
                free_statement(s->thenpart);
                free_statement(s->elsepart);
                free(s);
@@ -97,6 +98,12 @@ with complete bracketing and indenting.
                        .word_cont = "",
                };
                parse_itest(s->code, &config, argc > 2 ? stderr : NULL);
+               while (s) {
+                       struct section *t = s->next;
+                       code_free(s->code);
+                       free(s);
+                       s = t;
+               }
                exit(0);
        }