Chargement dynamique de primitives C

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3677 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

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)));
 }