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

fix bug related to sleeping and Windows networking (take 2)

Browse Source 
svn: r14055
This commit is contained in:
Matthew Flatt 2009-03-11 18:35:38 +00:00
parent 53af4d6a9a
commit a701c4f426
2 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/mred/mredmsw.cxx
View File

@ -42,6 +42,7 @@ extern long last_msg_time;
extern "C" {
struct Scheme_Thread_Memory *scheme_remember_thread(void *);
void scheme_forget_thread(struct Scheme_Thread_Memory *);
void scheme_interrupt_win32_thread(HANDLE th);
};
static int found_nothing;
@ -959,6 +960,7 @@ void MrEdMSWSleep(float secs, void *fds)
if (r->set.fd_count || w->set.fd_count || e->set.fd_count) {
fake = socket(PF_INET, SOCK_STREAM, 0);
FD_SET(fake, e);
FD_SET(fake, r);
th2 = CreateThread(NULL, 4096,
(LPTHREAD_START_ROUTINE)signal_fddone,
@ -984,10 +986,7 @@ void MrEdMSWSleep(float secs, void *fds)
}
if (th2) {
while (closesocket(fake)) {
if (WSAGetLastError() != WSAEINPROGRESS)
break;
}
closesocket(fake);
WaitForSingleObject(th2, INFINITE);
scheme_forget_thread(thread_memory);
CloseHandle(th2);

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

@ -8064,6 +8064,7 @@ static void default_sleep(float v, void *fds)
fake = socket(MZ_PF_INET, SOCK_STREAM, 0);
FD_SET(fake, ex);
FD_SET(fake, rd);
info->rd = rd;
info->wr = wr;
@ -8103,10 +8104,7 @@ static void default_sleep(float v, void *fds)
clean_up_wait(result, array, rps, count);
/* cause selector thread to end: */
while (closesocket(fake)) {
if (WSAGetLastError() != WSAEINPROGRESS)
break;
}
closesocket(fake);
WaitForSingleObject(th, INFINITE);
scheme_forget_thread(thread_memory);