blob: bcd19834ed9430a736957dd2a7786f303d58cb52 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
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
|
