sigval

type sigval = record

  case LongInt of

    0: (

        sival_int: cint;

      );

    1: (

        sival_ptr: pointer;

      );

end;