diff options
Diffstat (limited to 'otherlibs/win32unix/channels.c')
-rw-r--r-- | otherlibs/win32unix/channels.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/otherlibs/win32unix/channels.c b/otherlibs/win32unix/channels.c index 4cd27a768..09ef98572 100644 --- a/otherlibs/win32unix/channels.c +++ b/otherlibs/win32unix/channels.c @@ -17,14 +17,14 @@ #include "unixsupport.h" #include <fcntl.h> -value win_fd_handle(value handle) /* ML */ +CAMLprim value win_fd_handle(value handle) { int fd = _open_osfhandle((long) Handle_val(handle), O_BINARY); if (fd == -1) uerror("channel_of_descr", Nothing); return Val_int(fd); } -value win_handle_fd(value fd) /* ML */ +CAMLprim value win_handle_fd(value fd) { return win_alloc_handle((HANDLE) _get_osfhandle(Int_val(fd))); } |