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

fix race condition in future-thread initialization

Browse Source 
svn: r18430
This commit is contained in:
Matthew Flatt 2010-03-02 18:00:27 +00:00
parent 2ea9c6e02b
commit ef9de6517a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/src/future.c
View File

@ -385,6 +385,8 @@ static void init_future_thread(Scheme_Future_State *fs, int i)
memset(fts, 0, sizeof(Scheme_Future_Thread_State));
fts->id = i;
fts->gen0_size = 1;
params.shared_GC = GC_instance;
params.fts = fts;
params.fs = fs;
@ -411,8 +413,6 @@ static void init_future_thread(Scheme_Future_State *fs, int i)
mz_proc_thread_create_w_stacksize(worker_thread_future_loop, &params, INITIAL_C_STACK_SIZE);
mzrt_sema_wait(params.ready_sema);
mzrt_sema_destroy(params.ready_sema);
fts->gen0_size = 1;
scheme_register_static(&fts->current_ft, sizeof(void*));
scheme_register_static(params.scheme_current_runstack_ptr, sizeof(void*));