shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Merge pull request #30 from jmaessen/no-parse-crash

GC check during parse so we don't crash.

--- a/src/runtime/eval.c

+++ b/src/runtime/eval.c

@@ -750,7 +750,7 @@

 //counter_t mark_depth;

 //counter_t max_mark_depth = 0;

-/* Mark all used nodes reachable from *np */

+/* Mark all used nodes reachable from *np, updating *np. */

 void

 mark(NODEPTR *np)

 {

@@ -1298,7 +1298,10 @@

     switch (c) {

     case ' ':

     case '\n':

-      break;

+      continue;

+    }

+    GCCHECK(1);

+    switch(c) {

     case '@':

       x = TOP(0);

       y = TOP(1);

-- 

⑨