Chelper also has hard-timer converting the structure:
It failed on "union nf_inet_addr haddr, hmask;" so I had to comment it
out. Some structures are missing completely.
type
TAuxType0 = packed record
case Integer of
0:(u8 : uint8_t;u8_range : array [0..1] of uint8_t;syslog_level :
uint8_t;protocol : uint8_t;);
1:(u16 : uint16_t;u16_range : array [0..1] of uint16_t;port :
uint16_t;port_range : array [0..1] of uint16_t;);
2:(u32 : uint32_t;u32_range : array [0..1] of uint32_t;);
3:(u64 : uint64_t;u64_range : array [0..1] of uint64_t;);
4:(dbl : double;);
5:();
//union nf_inet_addr haddr, hmask;
6:();
7:();
8:(ethermac : array [0..5] of uint8_t;);
end;
xt_option_call = packed record
arg : Pchar_;
ext_name : Pchar_;
entry : Pxt_option_entry;
data : Pointer;
xflags : unsigned int;
invert : bool;
nvals : uint8_t;
val : TAuxType0;
(* Wished for a world where the ones below were gone: *)
xt_entry : Pointer;
udata : Pointer;
end;
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
