[fpc-pascal] How to create this "union" ?

[ik]

Thank you all for your help

Ido

On Mon, Dec 26, 2011 at 20:54, dmitry boyarintsev <skalogryz.lists at gmail.com
> wrote:

> 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 at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20111227/75075f29/attachment.html>