tcp_connect (p_tcp_point p)                                                    /* Auto-generated */
{
  select (p->type_stamp)
  {
    case T_TCP_POINT_V4: tcp_connect ((p_tcp_point_v4) p); break;              /* O(n) */
    case T_TCP_POINT_V6: tcp_connect ((p_tcp_point_v6) p); break;
  }
  else
  {
    error (ERR_TYPE);
  }
}