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

rktio: repairs for Windows

Browse Source
This commit is contained in:
Matthew Flatt 2017-06-17 19:33:42 -06:00
parent 6123b31064
commit ffc749f29e
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -538,21 +538,21 @@ Scheme_Object *scheme_place(int argc, Scheme_Object *args[]) {
Scheme_Object *a[4]; Scheme_Object *a[4];
Scheme_Object *tmpport; Scheme_Object *tmpport;
a[0] = (Scheme_Object *) place; a[0] = (Scheme_Object *) place;
if (rw[1] >= 0) { if (rw[1]) {
tmpport = scheme_make_rktio_fd_output_port(rw[1], scheme_intern_symbol("place-in"), 0); tmpport = scheme_make_rktio_fd_output_port(rw[1], scheme_intern_symbol("place-in"), 0);
a[1] = tmpport; a[1] = tmpport;
} }
else else
a[1] = scheme_false; a[1] = scheme_false;
if (rw[2] >= 0) { if (rw[2]) {
tmpport = scheme_make_rktio_fd_input_port(rw[2], scheme_intern_symbol("place-out")); tmpport = scheme_make_rktio_fd_input_port(rw[2], scheme_intern_symbol("place-out"));
a[2] = tmpport; a[2] = tmpport;
} }
else else
a[2] = scheme_false; a[2] = scheme_false;
if (rw[4] >= 0) { if (rw[4]) {
tmpport = scheme_make_rktio_fd_input_port(rw[4], scheme_intern_symbol("place-err")); tmpport = scheme_make_rktio_fd_input_port(rw[4], scheme_intern_symbol("place-err"));
a[3] = tmpport; a[3] = tmpport;
} }

2
racket/src/rktio/rktio_poll_set.c
View File

@ -952,7 +952,7 @@ rktio_signal_handle_t *rktio_get_signal_handle(rktio_t *rktio)
return (rktio_signal_handle_t *)&rktio->put_external_event_fd; return (rktio_signal_handle_t *)&rktio->put_external_event_fd;
#endif #endif
#ifdef RKTIO_SYSTEM_WINDOWS #ifdef RKTIO_SYSTEM_WINDOWS
return (rktio_signal_handle_t *)rktio->break_semaphore; return (rktio_signal_handle_t *)&rktio->break_semaphore;
#endif #endif
} }