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

Les descripteurs renvoyes par sys_open sont mis en mode close-on-exec 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4507 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2002-03-11 13:13:55 +00:00
parent d0caf4d35a
commit 5c4a92bc13
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
byterun/sys.c
View File

@ -151,14 +151,17 @@ static int sys_open_flags[] = {
CAMLprim value sys_open(value path, value flags, value perm)
{
int ret;
ret = open(String_val(path), convert_flag_list(flags, sys_open_flags)
int fd;
fd = open(String_val(path), convert_flag_list(flags, sys_open_flags)
#if !macintosh
, Int_val(perm)
#endif
);
if (ret == -1) sys_error(path);
return Val_long(ret);
if (fd == -1) sys_error(path);
#if defined(F_SETFD) && defined(FD_CLOEXEC)
fcntl(fd, F_SETFD, FD_CLOEXEC);
#endif
return Val_long(fd);
}
CAMLprim value sys_close(value fd)