From 6fd4ad522c16e95170300fe7481553f5a8704b78 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 24 Feb 2019 07:38:26 -0800 Subject: parser: gc bug in handling circular notation. * parser.c (parser_circ_def): When we lazily add the circ_ref_hash to the parser, this is possibly a wrong-way assignment (pointer to a baby object being stored into a mature object). The handling for this is missing. --- parser.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'parser.c') diff --git a/parser.c b/parser.c index 99c6d728..63796352 100644 --- a/parser.c +++ b/parser.c @@ -385,8 +385,10 @@ void parser_resolve_circ(parser_t *p) void parser_circ_def(parser_t *p, val num, val expr) { - if (!p->circ_ref_hash) + if (!p->circ_ref_hash) { p->circ_ref_hash = make_hash(nil, nil, nil); + setcheck(p->parser, p->circ_ref_hash); + } { val new_p = nil; -- cgit v1.2.3