summaryrefslogtreecommitdiffstats
path: root/Parser
diff options
context:
space:
mode:
Diffstat (limited to 'Parser')
-rw-r--r--Parser/parser.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/Parser/parser.c b/Parser/parser.c
index e0b3530..294c534 100644
--- a/Parser/parser.c
+++ b/Parser/parser.c
@@ -96,8 +96,6 @@ newparser(g, start)
ps->p_grammar = g;
ps->p_tree = newnode(start);
if (ps->p_tree == NULL) {
- if (ps->p_tree != NULL)
- DEL(ps->p_tree); /* XXX freeing a node!?! */
DEL(ps);
return NULL;
}
@@ -110,6 +108,9 @@ void
delparser(ps)
parser_state *ps;
{
+ /* NB If you want to save the parse tree,
+ you must set p_tree to NULL before calling delparser! */
+ freenode(ps->p_tree);
DEL(ps);
}