fpc/packages/base/libc/nip6h.inc
2005-02-14 17:13:06 +00:00

69 lines
1.6 KiB
PHP

type
Pip6_hdr = ^ip6_hdr;
ip6_hdr = record
ip6_ctlun : record
case longint of
0 : ( ip6_un1 : record
ip6_un1_flow : uint32_t;
ip6_un1_plen : uint16_t;
ip6_un1_nxt : uint8_t;
ip6_un1_hlim : uint8_t;
end );
1 : ( ip6_un2_vfc : uint8_t );
end;
ip6_src : in6_addr;
ip6_dst : in6_addr;
end;
Pip6_hbh = ^ip6_hbh;
ip6_hbh = record
ip6h_nxt : uint8_t;
ip6h_len : uint8_t;
end;
Pip6_dest = ^ip6_dest;
ip6_dest = record
ip6d_nxt : uint8_t;
ip6d_len : uint8_t;
end;
Pip6_rthdr = ^ip6_rthdr;
ip6_rthdr = record
ip6r_nxt : uint8_t;
ip6r_len : uint8_t;
ip6r_type : uint8_t;
ip6r_segleft : uint8_t;
end;
Pip6_rthdr0 = ^ip6_rthdr0;
ip6_rthdr0 = record
ip6r0_nxt : uint8_t;
ip6r0_len : uint8_t;
ip6r0_type : uint8_t;
ip6r0_segleft : uint8_t;
ip6r0_reserved : uint8_t;
ip6r0_slmap : array[0..2] of uint8_t;
ip6r0_addr : array[0..0] of in6_addr;
end;
Pip6_frag = ^ip6_frag;
ip6_frag = record
ip6f_nxt : uint8_t;
ip6f_reserved : uint8_t;
ip6f_offlg : uint16_t;
ip6f_ident : uint32_t;
end;
const
IP6F_OFF_MASK = $fff8;
IP6F_RESERVED_MASK = $0006;
IP6F_MORE_FRAG = $0001;
{ ---------------------------------------------------------------------
Borland compatibility types
---------------------------------------------------------------------}
// Type