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

fix Windows-specific bg thread clean-up (PR 9119)

Browse Source 
svn: r8117
This commit is contained in:
Matthew Flatt 2007-12-24 13:03:29 +00:00
parent e3f8d7e74b
commit 4ce547c78a
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -945,10 +945,12 @@ void scheme_forget_subthread(struct Scheme_Thread_Memory *tm)
void scheme_suspend_remembered_threads(void) void scheme_suspend_remembered_threads(void)
{ {
Scheme_Thread_Memory *tm, *next, *prev = NULL; Scheme_Thread_Memory *tm, *next, *prev = NULL;
int keep;
for (tm = tm_start; tm; tm = next) { for (tm = tm_start; tm; tm = next) {
next = tm->next; next = tm->next;
keep = 1;
if (tm->autoclose) { if (tm->autoclose) {
if (WaitForSingleObject(tm->handle, 0) == WAIT_OBJECT_0) { if (WaitForSingleObject(tm->handle, 0) == WAIT_OBJECT_0) {
CloseHandle((HANDLE)tm->handle); CloseHandle((HANDLE)tm->handle);
@ -964,16 +966,20 @@ void scheme_suspend_remembered_threads(void)
#ifdef MZ_PRECISE_GC #ifdef MZ_PRECISE_GC
free(tm); free(tm);
#endif #endif
keep = 0;
} }
} }
if (tm->handle) { if (keep) {
SuspendThread((HANDLE)tm->handle); SuspendThread((HANDLE)tm->handle);
if (tm->subhandle) if (tm->subhandle)
SuspendThread((HANDLE)tm->subhandle); SuspendThread((HANDLE)tm->subhandle);
prev = tm; prev = tm;
} }
} }
if (prev)
prev->next = NULL;
} }
void scheme_resume_remembered_threads(void) void scheme_resume_remembered_threads(void)