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

potential repair for recent thread improvement

Browse Source
This commit is contained in:
Matthew Flatt 2012-08-12 12:57:47 -06:00
parent 4e5b46405d
commit a6da8f04e8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/racket/src/thread.c
View File

@ -3228,9 +3228,6 @@ Scheme_Object *scheme_call_as_nested_thread(int argc, Scheme_Object *argv[], voi
scheme_first_thread->prev = np; scheme_first_thread->prev = np;
scheme_first_thread = np; scheme_first_thread = np;
np->gc_prep_chain = gc_prep_thread_chain;
gc_prep_thread_chain = np;
np->t_set_parent = p->t_set_parent; np->t_set_parent = p->t_set_parent;
schedule_in_set((Scheme_Object *)np, np->t_set_parent); schedule_in_set((Scheme_Object *)np, np->t_set_parent);
@ -3283,6 +3280,9 @@ Scheme_Object *scheme_call_as_nested_thread(int argc, Scheme_Object *argv[], voi
#endif #endif
} }
np->gc_prep_chain = gc_prep_thread_chain;
gc_prep_thread_chain = np;
#ifdef RUNSTACK_IS_GLOBAL #ifdef RUNSTACK_IS_GLOBAL
MZ_CONT_MARK_STACK = np->cont_mark_stack; MZ_CONT_MARK_STACK = np->cont_mark_stack;
MZ_CONT_MARK_POS = np->cont_mark_pos; MZ_CONT_MARK_POS = np->cont_mark_pos;