diff --git a/src/racket/src/salloc.c b/src/racket/src/salloc.c index 7918dbb636..33bd627318 100644 --- a/src/racket/src/salloc.c +++ b/src/racket/src/salloc.c @@ -2583,14 +2583,7 @@ Scheme_Object *scheme_dump_gc_stats(int c, Scheme_Object *p[]) struct GC_Set *home; home = GC_set(v); - if (home - && ((home == real_tagged) - || (home == tagged_atomic) - || (home == tagged_uncollectable) - || (home == tagged_eternal))) { - print_tagged_value("\n ->", v, 0, diff, max_w, ""); - } else - print_tagged_value("\n ->", v, 1, diff, max_w, ""); + print_tagged_value("\n ->", v, diff, max_w, ""); } scheme_console_printf("\n"); } diff --git a/src/racket/src/thread.c b/src/racket/src/thread.c index f341034803..de46b29545 100644 --- a/src/racket/src/thread.c +++ b/src/racket/src/thread.c @@ -267,13 +267,6 @@ THREAD_LOCAL_DECL(struct Scheme_Hash_Table *place_local_misc_table); extern intptr_t GC_is_place(); #endif - -#ifdef MZ_PRECISE_GC -extern intptr_t GC_get_memory_use(void *c); -#else -extern MZ_DLLIMPORT intptr_t GC_get_memory_use(); -#endif - typedef struct Thread_Cell { Scheme_Object so; char inherited, assigned;