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);
}
