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

Typos dans getsockopt. 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1040 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1996-10-01 09:46:57 +00:00
parent 1358200ac8
commit 74a434c4a0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
otherlibs/unix/sockopt.c
View File

@ -29,7 +29,7 @@ value unix_getsockopt(socket, option)
int optval, optsize;
optsize = sizeof(optval);
if (getsockopt(Int_val(socket), SOL_SOCKET, sockopt[Int_val(option)],
&optval, &optval) == -1)
(void *) &optval, &optsize) == -1)
uerror("getsockopt", Nothing);
return Val_int(optval);
}
@ -39,7 +39,7 @@ value unix_setsockopt(socket, option, status)
{
int optval = Int_val(status);
if (setsockopt(Int_val(socket), SOL_SOCKET, sockopt[Int_val(option)],
&optval, sizeof(optval)) == -1)
(void *) &optval, sizeof(optval)) == -1)
uerror("setsockopt", Nothing);
return Val_unit;
}