shithub: MicroHs

Info  •  Files  •  Log  •  Branches

GC check during parse so we don't crash.

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

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

@@ -737,7 +737,7 @@

 //counter_t mark_depth;

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

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

 void

 mark(NODEPTR *np)

 {

@@ -1256,7 +1256,10 @@

     switch (c) {

     case ' ':

     case '\n':

-      break;

+      continue;

+    }

+    GCCHECK(1);

+    switch(c) {

     case '@':

       x = TOP(0);

       y = TOP(1);

-- 

⑨