rktio: repairs for Windows
This commit is contained in:
parent
6123b31064
commit
ffc749f29e
|
@ -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;
|
||||||
}
|
}
|
||||||
|
|
|
@ -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
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user