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

fix non-places build

Browse Source
This commit is contained in:
Matthew Flatt 2011-09-06 05:48:17 -06:00
parent c30122d1fc
commit 83e7f92250
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/racket/gc2/mem_account.c
View File

@ -65,6 +65,7 @@ inline static void mark_threads(NewGC *gc, int owner)
} }
} else { } else {
/* place */ /* place */
#ifdef MZ_USE_PLACES
/* add in the memory used by the place's GC */ /* add in the memory used by the place's GC */
intptr_t sz; intptr_t sz;
Scheme_Place_Object *place_obj = ((Scheme_Place *)work->thread)->place_obj; Scheme_Place_Object *place_obj = ((Scheme_Place *)work->thread)->place_obj;
@ -74,6 +75,7 @@ inline static void mark_threads(NewGC *gc, int owner)
mzrt_mutex_unlock(place_obj->lock); mzrt_mutex_unlock(place_obj->lock);
account_memory(gc, owner, gcBYTES_TO_WORDS(sz)); account_memory(gc, owner, gcBYTES_TO_WORDS(sz));
} }
#endif
} }
} }
} }

2
src/racket/src/schpriv.h
View File

@ -3724,7 +3724,9 @@ void scheme_socket_to_output_port(intptr_t s, Scheme_Object *name, int takeover,
#define SCHEME_PLACE_OBJECTP(o) (SCHEME_TYPE(o) == scheme_place_object_type) #define SCHEME_PLACE_OBJECTP(o) (SCHEME_TYPE(o) == scheme_place_object_type)
#ifdef MZ_USE_PLACES
Scheme_Env *scheme_place_instance_init(void *stack_base, struct NewGC *, intptr_t memory_limit); Scheme_Env *scheme_place_instance_init(void *stack_base, struct NewGC *, intptr_t memory_limit);
#endif
Scheme_Object *scheme_make_place_object(); Scheme_Object *scheme_make_place_object();
void scheme_place_instance_destroy(int force); void scheme_place_instance_destroy(int force);
void scheme_kill_green_thread_timer(); void scheme_kill_green_thread_timer();