Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Erreur dans l'appel de convert_flag_list 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1778 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1997-11-17 17:15:28 +00:00
parent a50080255f
commit 194af334a2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
otherlibs/win32unix/channels.c
View File

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