summaryrefslogtreecommitdiffstats
path: root/otherlibs/win32unix/channels.c
diff options
context:
space:
mode:
Diffstat (limited to 'otherlibs/win32unix/channels.c')
-rw-r--r--otherlibs/win32unix/channels.c4
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)));
}