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

fix stack-prep bug in call-in-nested-thread

Browse Source 
svn: r14992
This commit is contained in:
Matthew Flatt 2009-05-26 22:15:24 +00:00
parent 070ed03d90
commit af2e5beb4e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3265,6 +3265,10 @@ Scheme_Object *scheme_call_as_nested_thread(int argc, Scheme_Object *argv[], voi
p->cont_mark_pos = MZ_CONT_MARK_POS; p->cont_mark_pos = MZ_CONT_MARK_POS;
#endif #endif
/* zero out anything we need now, because nestee disables
GC cleaning for this thread: */
prepare_this_thread_for_GC(p);
if (!p->runstack_owner) { if (!p->runstack_owner) {
Scheme_Thread **owner; Scheme_Thread **owner;
owner = MALLOC_N(Scheme_Thread *, 1); owner = MALLOC_N(Scheme_Thread *, 1);
@ -3323,10 +3327,6 @@ Scheme_Object *scheme_call_as_nested_thread(int argc, Scheme_Object *argv[], voi
np->cont_mark_pos = (MZ_MARK_POS_TYPE)1; np->cont_mark_pos = (MZ_MARK_POS_TYPE)1;
/* others 0ed already by allocation */ /* others 0ed already by allocation */
/* zero out anything we need now, because nestee disables
GC cleaning for this thread: */
prepare_this_thread_for_GC(p);
check_ready_break(); check_ready_break();
np->nester = p; np->nester = p;