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