tsp

type tsp = record

  tsp_type: u_char;

  tsp_vers: u_char;

  tsp_seq: u_short;

  tsp_u: record

    case LongInt of

      0: (

          tspu_time: timeval;

        );

      1: (

          tspu_hopcnt: char;

        );

  end;

  tsp_name: array [0..(MAXHOSTNAMELEN)-1] of char;

end;