steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove some obsolete debugging code

darcs
slava 2006-06-13 20:05:54 +00:00
parent 0f34d6ecec
commit f6b3681078
2 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
vm/gc.c
View File

@ -179,8 +179,6 @@ CELL copy_object(CELL pointer)
CELL tag; CELL tag;
CELL header; CELL header;
gc_debug("copy object",pointer);
if(pointer == F) if(pointer == F)
return F; return F;
@ -347,11 +345,7 @@ void garbage_collection(CELL gen)
end_gc(gen); end_gc(gen);
gc_debug("gc done",gen);
gc_time += (current_millis() - start); gc_time += (current_millis() - start);
gc_debug("total gc time",gc_time);
} }
void primitive_gc(void) void primitive_gc(void)

8
vm/gc.h
View File

@ -53,14 +53,6 @@ so we have to check that the pointer occurs after the beginning of
the requested generation. */ the requested generation. */
#define COLLECTING_GEN(ptr) (collecting_gen_start <= ptr) #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) INLINE bool should_copy(CELL untagged)
{ {
if(collecting_gen == TENURED) if(collecting_gen == TENURED)