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

fix GC preparation of a thread that is currently being removed

Browse Source 
svn: r5686
This commit is contained in:
Matthew Flatt 2007-02-24 14:15:45 +00:00
parent d3cfd4822a
commit 7f82cb157c
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6653,8 +6653,9 @@ static void prepare_thread_for_GC(Scheme_Object *t)
# define RUNSTACK_TUNE(x) /* x - Used for performance tuning */ # define RUNSTACK_TUNE(x) /* x - Used for performance tuning */
RUNSTACK_TUNE( long size; ); RUNSTACK_TUNE( long size; );
if (!p->runstack_owner if ((!p->runstack_owner
|| (p == *p->runstack_owner)) { || (p == *p->runstack_owner))
&& p->runstack_start) {
long rs_end; long rs_end;
Scheme_Object **rs_start; Scheme_Object **rs_start;
@ -6704,8 +6705,9 @@ static void prepare_thread_for_GC(Scheme_Object *t)
} }
} }
if (!p->cont_mark_stack_owner if ((!p->cont_mark_stack_owner
|| (p == *p->cont_mark_stack_owner)) { || (p == *p->cont_mark_stack_owner))
&& p->cont_mark_stack) {
int segcount, i, segpos; int segcount, i, segpos;
/* release unused cont mark stack segments */ /* release unused cont mark stack segments */
@ -6795,10 +6797,12 @@ static void get_ready_for_GC()
scheme_clear_bignum_cache(); scheme_clear_bignum_cache();
#ifdef RUNSTACK_IS_GLOBAL #ifdef RUNSTACK_IS_GLOBAL
if (scheme_current_thread->running) {
scheme_current_thread->runstack = MZ_RUNSTACK; scheme_current_thread->runstack = MZ_RUNSTACK;
scheme_current_thread->runstack_start = MZ_RUNSTACK_START; scheme_current_thread->runstack_start = MZ_RUNSTACK_START;
scheme_current_thread->cont_mark_stack = MZ_CONT_MARK_STACK; scheme_current_thread->cont_mark_stack = MZ_CONT_MARK_STACK;
scheme_current_thread->cont_mark_pos = MZ_CONT_MARK_POS; scheme_current_thread->cont_mark_pos = MZ_CONT_MARK_POS;
}
#endif #endif
for_each_managed(scheme_thread_type, prepare_thread_for_GC); for_each_managed(scheme_thread_type, prepare_thread_for_GC);
@ -6828,8 +6832,10 @@ static void done_with_GC()
{ {
#ifdef RUNSTACK_IS_GLOBAL #ifdef RUNSTACK_IS_GLOBAL
# ifdef MZ_PRECISE_GC # ifdef MZ_PRECISE_GC
if (scheme_current_thread->running) {
MZ_RUNSTACK = scheme_current_thread->runstack; MZ_RUNSTACK = scheme_current_thread->runstack;
MZ_RUNSTACK_START = scheme_current_thread->runstack_start; MZ_RUNSTACK_START = scheme_current_thread->runstack_start;
}
# endif # endif
#endif #endif
#ifdef WINDOWS_PROCESSES #ifdef WINDOWS_PROCESSES