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

[dmitry boyarintsev]

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;