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

win32: fix place-specific scheduling semaphore

Browse Source
This commit is contained in:
Matthew Flatt 2011-07-04 08:27:13 -06:00
parent e38843618d
commit 97d5e3fa02
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -547,8 +547,6 @@ scheme_init_port (Scheme_Env *env)
scheme_redirect_output_port_type = scheme_make_port_type("<redirect-output-port>"); scheme_redirect_output_port_type = scheme_make_port_type("<redirect-output-port>");
#ifdef WIN32_FD_HANDLES #ifdef WIN32_FD_HANDLES
scheme_break_semaphore = (void*)CreateSemaphore(NULL, 0, 1, NULL);
/* We'll need to know whether this is Win95 or WinNT: */ /* We'll need to know whether this is Win95 or WinNT: */
{ {
OSVERSIONINFO info; OSVERSIONINFO info;
@ -688,6 +686,10 @@ void scheme_init_port_places(void)
# endif # endif
#endif #endif
#ifdef WIN32_FD_HANDLES
scheme_break_semaphore = (void*)CreateSemaphore(NULL, 0, 1, NULL);
#endif
flush_out = SCHEME_TRUEP(scheme_terminal_port_p(1, &scheme_orig_stdout_port)); flush_out = SCHEME_TRUEP(scheme_terminal_port_p(1, &scheme_orig_stdout_port));
flush_err = SCHEME_TRUEP(scheme_terminal_port_p(1, &scheme_orig_stderr_port)); flush_err = SCHEME_TRUEP(scheme_terminal_port_p(1, &scheme_orig_stderr_port));
} }