From: NeilBrown <neil@brown.name>
Date: Sun, 12 Oct 2014 23:35:06 +0000 (+1100)
Subject: Parsergen: abort on error.
X-Git-Tag: FallsCreek~5
X-Git-Url: https://ocean-lang.org/code/?a=commitdiff_plain;h=e224570e7c10c1f77c3ec1ae240994bf9c26488c;p=ocean

Parsergen: abort on error.

The error handling is currently completely broken and goes
into an infinite loop.
Just abort for now.

Signed-off-by: NeilBrown <neil@brown.name>
---

diff --git a/csrc/parsergen.mdc b/csrc/parsergen.mdc
index cfaa5c4..6eb58bd 100644
--- a/csrc/parsergen.mdc
+++ b/csrc/parsergen.mdc
@@ -2815,6 +2815,7 @@ one symbol for each line where newlines are allowed.
 				break;
 			tos = &p.stack[p.tos-1];
 			tos->indents += indents;
+			exit(1);
 		}
 		free(tk);
 		pop(&p, p.tos, NULL, do_free);