diff --git a/vm/gc.c b/vm/gc.c index b09045f1c0..98883d4335 100644 --- a/vm/gc.c +++ b/vm/gc.c @@ -179,8 +179,6 @@ CELL copy_object(CELL pointer) CELL tag; CELL header; - gc_debug("copy object",pointer); - if(pointer == F) return F; @@ -347,11 +345,7 @@ void garbage_collection(CELL gen) end_gc(gen); - gc_debug("gc done",gen); - gc_time += (current_millis() - start); - - gc_debug("total gc time",gc_time); } void primitive_gc(void) diff --git a/vm/gc.h b/vm/gc.h index 0151aa9b95..6fba4fad23 100644 --- a/vm/gc.h +++ b/vm/gc.h @@ -53,14 +53,6 @@ so we have to check that the pointer occurs after the beginning of the requested generation. */ #define COLLECTING_GEN(ptr) (collecting_gen_start <= ptr) -/* #define GC_DEBUG */ - -INLINE void gc_debug(char* msg, CELL x) { -#ifdef GC_DEBUG - printf("%s %ld\n",msg,x); -#endif -} - INLINE bool should_copy(CELL untagged) { if(collecting_gen == TENURED)