Erreur dans l'appel de convert_flag_list

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

otherlibs/win32unix/channels.c

@@ -12,6 +12,7 @@
 /* $Id$ */
 
 #include <mlvalues.h>
+#include <alloc.h>
 #include "unixsupport.h"
 #include <fcntl.h>
 
@@ -22,7 +23,7 @@ static int open_descr_flags[10] = {
 value win_fd_handle(value handle, value flags) /* ML */
 {
   int fd = _open_osfhandle((long) Handle_val(handle),
-			   convert_flag_list(open_descr_flags, flags));
+			   convert_flag_list(flags, open_descr_flags));
   if (fd == -1) uerror("channel_of_descr", Nothing);
   return Val_int(fd);
 }