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

Added stub spawn_master_scheme_place

Browse Source 
svn: r12797
This commit is contained in:
Kevin Tew 2008-12-12 19:34:38 +00:00
parent 131e996974
commit 14e565b82b
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/env.c
View File

@ -288,7 +288,6 @@ static void init_toplevel_local_offsets_hashtable_caches()
} }
} }
/* READ-ONLY GLOBAL structures ONE-TIME initialization */ /* READ-ONLY GLOBAL structures ONE-TIME initialization */
Scheme_Env *scheme_engine_instance_init() { Scheme_Env *scheme_engine_instance_init() {
Scheme_Env *env; Scheme_Env *env;
@ -328,6 +327,7 @@ Scheme_Env *scheme_engine_instance_init() {
#if defined(MZ_PRECISE_GC) && defined(MZ_USE_PLACES) #if defined(MZ_PRECISE_GC) && defined(MZ_USE_PLACES)
GC_switch_out_master_gc(); GC_switch_out_master_gc();
spawn_master_scheme_place();
#endif #endif
place_instance_init_pre_kernel(stack_base); place_instance_init_pre_kernel(stack_base);

11
src/mzscheme/src/places.c
View File

@ -154,7 +154,7 @@ static void load_namespace_utf8(Scheme_Object *namespace_name) {
Scheme_Object *a[1]; Scheme_Object *a[1];
Scheme_Thread * volatile p; Scheme_Thread * volatile p;
mz_jmp_buf * volatile saved_error_buf; mz_jmp_buf * volatile saved_error_buf;
mz_jmp_buf volatile new_error_buf; mz_jmp_buf new_error_buf;
nsreq = scheme_builtin_value("namespace-require"); nsreq = scheme_builtin_value("namespace-require");
a[0] = scheme_make_pair(scheme_intern_symbol("lib"), a[0] = scheme_make_pair(scheme_intern_symbol("lib"),
@ -218,6 +218,15 @@ static void *place_start_proc(void *data_arg) {
return scheme_true; return scheme_true;
} }
static void *master_scheme_place(void *data) {
#ifdef MZ_PRECISE_GC
#endif
return NULL;
}
void spawn_master_scheme_place() {
scheme_master_proc_thread = mz_proc_thread_create(master_scheme_place, NULL);
}
/*========================================================================*/ /*========================================================================*/
/* precise GC traversers */ /* precise GC traversers */