gc erratas

1 files changed, 11 insertions, 5 deletions

diff --git a/pez.c b/pez.c
index 3e2816b..c9d8f5e 100644
--- a/pez.c
+++ b/pez.c
@@ -754,8 +754,10 @@ static void
 gc(PezContext *cx)
 {
     uint nalloc = cx->nalloc;
-    fprintf(stderr, "--- GC running with %d bytes allocated\n",
-            nalloc);
+    if (cx->dbg & DBGgcinfo) {
+        fprintf(stderr, "--- GC running with %d bytes allocated\n",
+                        nalloc);
+    }
     for (Val *stk = cx->stack; stk != cx->stktop; ++stk) {
         if (isobj(*stk)) {
             gcmark(cx, unbox_obj(*stk));
@@ -777,12 +779,13 @@ gc(PezContext *cx)
     for (Obj *o = cx->heap, *next, *prev = NULL; o; o = next) {
         next = o->next;
         if (o->gc) {
-            fprintf(stderr, "live %p %s\n", o, typestr(box_obj(o)));
+            if (cx->dbg & DBGgcinfo)
+                fprintf(stderr, "live %p %s\n", o, typestr(box_obj(o)));
             prev = o;
             o->gc = 0;
         } else {
-            fprintf(stderr, "dead %p %s\n", o, typestr(box_obj(o)));
-            // fprintf(stderr, "free %p %s\n", o, typestr(box_obj(o)));
+            if (cx->dbg & DBGgcinfo)
+                fprintf(stderr, "dead %p %s\n", o, typestr(box_obj(o)));
             if (o == cx->heap) {
                 cx->heap = next;
             }
@@ -3423,6 +3426,9 @@ pez_eval_cb(PezContext *cx, const char *fname, int (*cb)(void *), void *ud)
     ETRY(exefn(cx, fn, 0));
     cx->stktop[-2] = cx->stktop[-1];
     --cx->stktop; // gc unkeep
+    if (cx->dbg & DBGstressgc) {
+        gc(cx);
+    }
 
     deinitcomp(&cm);
     cx->gccanrun = gccanrun;