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

avoid compiler warnings in --disable-places mode

Browse Source
This commit is contained in:
Matthew Flatt 2011-07-06 19:58:37 -06:00
parent 5bc8b67eba
commit 6f9c197b96
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/racket/gc2/newgc.c
View File

@ -2242,7 +2242,9 @@ int GC_merely_accounting()
/* administration / initialization */ /* administration / initialization */
/*****************************************************************************/ /*****************************************************************************/
#ifdef MZ_USE_PLACES
static void free_child_gc(void); static void free_child_gc(void);
#endif
inline static int page_mmu_type(mpage *page) { inline static int page_mmu_type(mpage *page) {
switch (page->size_class) { switch (page->size_class) {
@ -4579,6 +4581,7 @@ void GC_dump_variable_stack(void **var_stack,
/* GC free all */ /* GC free all */
/******************************************************************************/ /******************************************************************************/
#ifdef MZ_USE_PLACES
static void free_child_gc(void) static void free_child_gc(void)
{ {
NewGC *gc = GC_get_GC(); NewGC *gc = GC_get_GC();
@ -4610,6 +4613,7 @@ static void free_child_gc(void)
mmu_free(gc->mmu); mmu_free(gc->mmu);
free(gc); free(gc);
} }
#endif
void GC_free_all(void) void GC_free_all(void)
{ {