X-Git-Url: https://ocean-lang.org/code/?p=ocean;a=blobdiff_plain;f=csrc%2Fparsergen.mdc;h=f2bbe0151d75977dd2b2ae9f16031f4c171a5949;hp=86aa299fff058d07a9e562a21d006f9ccb2c1cf6;hb=5f8aaec6eb5315fff28c9c55c15620f43d483f97;hpb=bc7916909615af7fb34d626b2de7decddd9d804e

diff --git a/csrc/parsergen.mdc b/csrc/parsergen.mdc
index 86aa299..f2bbe01 100644
--- a/csrc/parsergen.mdc
+++ b/csrc/parsergen.mdc
@@ -561,6 +561,7 @@ Now we have all the bits we need to parse a full production.
 	abort:
 		while (tk.num != TK_newline && tk.num != TK_eof)
 			tk = token_next(state);
+		free(p.body);
 		return err;
 	}
 
@@ -695,7 +696,7 @@ used as a terminal anywhere that a terminal is expected.
 					s->name.len, s->name.txt);
 			}
 			if (errs) {
-				free(g);
+				free(g); // FIXME free content
 				g = NULL;
 			}
 		}
@@ -704,7 +705,7 @@ used as a terminal anywhere that a terminal is expected.
 		fprintf(stderr, "Error at line %d: %s\n",
 		        tk.line, err);
 		token_close(state);
-		free(g);
+		free(g); // FIXME free content
 		return NULL;
 	}