{$else}\r
result := invalue;\r
{$endif}\r
{$else}\r
result := invalue;\r
{$endif}\r
+ end; \r
+ {$define need_v6constants}\r
{$else}\r
\r
{$define sigprocmask := fpsigprocmask}\r
{$else}\r
\r
{$define sigprocmask := fpsigprocmask}\r
const\r
IPPROTO_UDP=17;\r
IPPROTO_ICMP=1;\r
const\r
IPPROTO_UDP=17;\r
IPPROTO_ICMP=1;\r
+ {$define need_v6constants}\r
{$endif}\r
{$ifdef ver1_9}\r
const\r
{$endif}\r
{$ifdef ver1_9}\r
const\r
result := invalue;\r
{$endif}\r
end;\r
result := invalue;\r
{$endif}\r
end;\r
+ {$define need_v6constants}\r
{$endif}\r
procedure gettimeofday(var tv:ttimeval);inline;\r
begin\r
{$endif}\r
procedure gettimeofday(var tv:ttimeval);inline;\r
begin\r
sys_eintr=esyseintr;\r
\r
{$endif}\r
sys_eintr=esyseintr;\r
\r
{$endif}\r
+ {$ifdef need_v6constants}\r
+ {$ifdef linux} \r
+ //the below values are only known correct on linux, I don't support \r
+ //1.0.x on any other unix platform atm anyway --plugwash\r
+ const \r
+ IPPROTO_IPV6 = 41;\r
+ IPV6_V6ONLY = 26;\r
+ {$endif}\r
+ {$endif}\r
+
\ No newline at end of file