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

fix bug in creating a thread in atomic mode

Browse Source 
svn: r2813
This commit is contained in:
Matthew Flatt 2006-04-27 13:02:20 +00:00
parent dba987383b
commit 70ee0daf0a
1 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/mzscheme/src/thread.c
View File

@ -2392,7 +2392,6 @@ static void remove_thread(Scheme_Thread *r)
}
static void start_child(Scheme_Thread * volatile child,
Scheme_Thread * volatile return_to_thread,
Scheme_Object * volatile child_eval)
{
if (SETJMP(child)) {
@ -2422,9 +2421,6 @@ static void start_child(Scheme_Thread * volatile child,
swapping = 0;
#endif
if (return_to_thread)
scheme_swap_thread(return_to_thread);
if (scheme_current_thread->running & MZTHREAD_KILLED) {
/* This thread is dead! Give up now. */
exit_or_escape(scheme_current_thread);
@ -2470,7 +2466,7 @@ static Scheme_Object *make_subprocess(Scheme_Object *child_thunk,
Scheme_Custodian *mgr,
int normal_kill)
{
Scheme_Thread *child, *return_to_thread;
Scheme_Thread *child;
int turn_on_multi;
turn_on_multi = !scheme_first_thread->next;
@ -2520,13 +2516,9 @@ static Scheme_Object *make_subprocess(Scheme_Object *child_thunk,
child->suspend_to_kill = 1;
child->stack_start = child_start;
if (do_atomic)
return_to_thread = scheme_current_thread;
else
return_to_thread = NULL;
start_child(child, return_to_thread, child_thunk);
/* Sets the child's jmpbuf for swapping in later: */
start_child(child, child_thunk);
if (scheme_notify_multithread && turn_on_multi) {
scheme_notify_multithread(1);