diff --git a/gc.c b/gc.c index dec0188f..9264a54b 100644 --- a/gc.c +++ b/gc.c @@ -559,7 +559,7 @@ size_t gc_sweep(gc_heap *h, size_t *sum_freed_ptr) if ((char *)r == (char *)p) { // this is a free block, skip it p = (object) (((char *)p) + r->size); -#if GC_DEBUG_TRACE +#if GC_DEBUG_VERBOSE fprintf(stderr, "skip free block %p size = %zu\n", p, r->size); #endif continue; diff --git a/runtime.c b/runtime.c index 1e031e44..f4dd9d3b 100644 --- a/runtime.c +++ b/runtime.c @@ -2227,7 +2227,7 @@ void gc_mark_globals() cvar_type *c = (cvar_type *)car(l); object glo = *(c->pvar); if (!nullp(glo)) { -#if GC_DEBUG_TRACE +#if GC_DEBUG_VERBOSE fprintf(stderr, "global pvar %p\n", glo); #endif gc_mark_black(glo); // Mark actual object the global points to