Remove some obsolete debugging code
parent
0f34d6ecec
commit
f6b3681078
6
vm/gc.c
6
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)
|
||||
|
|
8
vm/gc.h
8
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)
|
||||
|
|
Loading…
Reference in New Issue