Better error message when running out of heap when reading the code.

augustss · Jan 1, 2025 · 7b429c1 · 7b429c1
1 parent f88a408
commit 7b429c1
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/runtime/eval.c b/src/runtime/eval.c
@@ -1705,6 +1705,8 @@ parse(BFILE *f)
     case '\n':
       continue;
     }
+    if (num_free < 3)
+      ERR("out of heap reading code");
     GCCHECK(1);
     switch(c) {
     case '@':
@@ -3823,6 +3825,7 @@ execio(NODEPTR *np)
     case T_IO_DESERIALIZE:
       CHECKIO(1);
       ptr = (struct BFILE*)evalptr(ARG(TOP(1)));
+      gc();                     /* make sure we have room.  GC during parse is dodgy. */
       n = parse_top(ptr);
       RETIO(n);
 #endif