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

Oubli d'un htons 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2013 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1998-07-14 17:05:09 +00:00
parent e3ffb7372b
commit 119e00e58a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
otherlibs/unix/getserv.c
View File

@ -58,7 +58,7 @@ value unix_getservbyname(value name, value proto) /* ML */
value unix_getservbyport(value port, value proto) /* ML */
{
struct servent * entry;
entry = getservbyport(Int_val(port), String_val(proto));
entry = getservbyport(htons(Int_val(port)), String_val(proto));
if (entry == (struct servent *) NULL) raise_not_found();
return alloc_service_entry(entry);
}