WHIRLPOOL_CTX_union

type WHIRLPOOL_CTX_union = record

  case Byte of

    0: (

        c: array [0..WHIRLPOOL_DIGEST_LENGTH-1] of Byte;

      );

    1: (

        q: array [0..(WHIRLPOOL_DIGEST_LENGTHdivSizeOf(TIdC_DOUBLE))-1] of TIdC_DOUBLE;

      );

end;