Winsock and OS/2 Strange Issue

[Thaddy]

What is this then:

Code: Pascal  [Select][+][-]

1. {$mode objfpc}
2. uses sockets;
3.  
4. function inet_ntoa (const inaddr:longint):string;inline;overload;
5. var
6.  addr:in_addr;
7. begin
8.   addr.s_addr :=  inaddr;
9.   Result:=NetAddrToStr(addr);
10. end;
11.  
12. function inet_ntoa (const inaddr:in_addr):string;inline;overload;
13. begin
14.   Result:=NetAddrToStr(inaddr);
15. end;
16.  
17. begin
18.  writeln(inet_ntoa(16777343));
19. end.

This should work on the OS/2 family too, just with FPC provided sockets units.