static size_t
fill_addrinfo(void **buffer)
{
  for (count = 0; count < limit; ++count) {

    /* *INDENT-EQLS* */
    actual->ai_flags          = phost->ai_flags;
    actual->ai_family         = phost->ai_family;
    actual->ai_socktype       = phost->ai_socktype;
    actual->ai_protocol       = phost->ai_protocol;
    actual->ai_addrlen        = phost->ai_addrlen;
    actual->ai_addr           = (struct sockaddr *) (void *) heap;

  }
  return (size_t) (heap - (char *) result);
}

void
failed(mode_t * _t)
{
  /* *INDENT-EQLS* */
  parser_state_tos->next                = 0;
  parser_state_tos->tos                 = 0;
  parser_state_tos->paren_indents_size  = 1;
  parser_state_tos->p_stack[0]          = stmt;

  parser_state_tos->last_nl = true;
  perror(_t);
  exit(BADEXIT);
}
