suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix declaration mismatch for GC function

Browse Source
This commit is contained in:
Matthew Flatt 2012-12-20 05:43:27 -07:00
parent c445a602a1
commit 1fc222f135
2 changed files with 1 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/racket/src/salloc.c
View File

@ -2583,14 +2583,7 @@ Scheme_Object *scheme_dump_gc_stats(int c, Scheme_Object *p[])
struct GC_Set *home; struct GC_Set *home;
home = GC_set(v); home = GC_set(v);
if (home print_tagged_value("\n ->", v, diff, max_w, "");
&& ((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, "");
} }
scheme_console_printf("\n"); scheme_console_printf("\n");
} }

7
src/racket/src/thread.c
View File

@ -267,13 +267,6 @@ THREAD_LOCAL_DECL(struct Scheme_Hash_Table *place_local_misc_table);
extern intptr_t GC_is_place(); extern intptr_t GC_is_place();
#endif #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 { typedef struct Thread_Cell {
Scheme_Object so; Scheme_Object so;
char inherited, assigned; char inherited, assigned;