Move getaddrinfo from 'posix' into 'nss'

getaddrinfo is an entry point for nss functionality.  This commit moves
it from 'sysdeps/posix' to 'nss', gets rid of the stub in 'posix', and
moves all associated tests as well.
Reviewed-by: Adhemerval Zanella  <adhemerval.zanella@linaro.org>

1 files changed, 0 insertions, 2625 deletions

diff --git a/sysdeps/posix/getaddrinfo.c b/sysdeps/posix/getaddrinfo.c
deleted file mode 100644
index 531124958d..0000000000
--- a/sysdeps/posix/getaddrinfo.c
+++ /dev/null
@@ -1,2625 +0,0 @@
-/* Host and service name lookups using Name Service Switch modules.
-   Copyright (C) 1996-2023 Free Software Foundation, Inc.
-   This file is part of the GNU C Library.
-
-   The GNU C Library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public
-   License as published by the Free Software Foundation; either
-   version 2.1 of the License, or (at your option) any later version.
-
-   The GNU C Library is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the GNU C Library; if not, see
-   <https://www.gnu.org/licenses/>.  */
-
-/* The Inner Net License, Version 2.00
-
-  The author(s) grant permission for redistribution and use in source and
-binary forms, with or without modification, of the software and documentation
-provided that the following conditions are met:
-
-0. If you receive a version of the software that is specifically labelled
-   as not being for redistribution (check the version message and/or README),
-   you are not permitted to redistribute that version of the software in any
-   way or form.
-1. All terms of the all other applicable copyrights and licenses must be
-   followed.
-2. Redistributions of source code must retain the authors' copyright
-   notice(s), this list of conditions, and the following disclaimer.
-3. Redistributions in binary form must reproduce the authors' copyright
-   notice(s), this list of conditions, and the following disclaimer in the
-   documentation and/or other materials provided with the distribution.
-4. [The copyright holder has authorized the removal of this clause.]
-5. Neither the name(s) of the author(s) nor the names of its contributors
-   may be used to endorse or promote products derived from this software
-   without specific prior written permission.
-
-THIS SOFTWARE IS PROVIDED BY ITS AUTHORS AND CONTRIBUTORS ``AS IS'' AND ANY
-EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
-DISCLAIMED. IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE FOR ANY
-DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
-(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-  If these license terms cause you a real problem, contact the author.  */
-
-/* This software is Copyright 1996 by Craig Metz, All Rights Reserved.  */
-
-#include <assert.h>
-#include <ctype.h>
-#include <errno.h>
-#include <ifaddrs.h>
-#include <netdb.h>
-#include <nss.h>
-#include <resolv/resolv-internal.h>
-#include <resolv/resolv_context.h>
-#include <stdbool.h>
-#include <stdio.h>
-#include <stdio_ext.h>
-#include <stdlib.h>
-#include <string.h>
-#include <stdint.h>
-#include <arpa/inet.h>
-#include <net/if.h>
-#include <netinet/in.h>
-#include <sys/socket.h>
-#include <sys/stat.h>
-#include <sys/types.h>
-#include <sys/un.h>
-#include <sys/utsname.h>
-#include <unistd.h>
-#include <nsswitch.h>
-#include <libc-lock.h>
-#include <not-cancel.h>
-#include <nscd/nscd-client.h>
-#include <nscd/nscd_proto.h>
-#include <scratch_buffer.h>
-#include <inet/net-internal.h>
-
-/* Former AI_IDN_ALLOW_UNASSIGNED and AI_IDN_USE_STD3_ASCII_RULES
-   flags, now ignored.  */
-#define DEPRECATED_AI_IDN 0x300
-
-#if IS_IN (libc)
-# define feof_unlocked(fp) __feof_unlocked (fp)
-#endif
-
-struct gaih_service
-  {
-    const char *name;
-    int num;
-  };
-
-struct gaih_servtuple
-  {
-    int socktype;
-    int protocol;
-    int port;
-    bool set;
-  };
-
-
-struct gaih_typeproto
-  {
-    int socktype;
-    int protocol;
-    uint8_t protoflag;
-    bool defaultflag;
-    char name[8];
-  };
-
-struct gaih_result
-{
-  struct gaih_addrtuple *at;
-  char *canon;
-  char *h_name;
-  bool free_at;
-  bool got_ipv6;
-};
-
-/* Values for `protoflag'.  */
-#define GAI_PROTO_NOSERVICE	1
-#define GAI_PROTO_PROTOANY	2
-
-static const struct gaih_typeproto gaih_inet_typeproto[] =
-{
-  { 0, 0, 0, false, "" },
-  { SOCK_STREAM, IPPROTO_TCP, 0, true, "tcp" },
-  { SOCK_DGRAM, IPPROTO_UDP, 0, true, "udp" },
-#if defined SOCK_DCCP && defined IPPROTO_DCCP
-  { SOCK_DCCP, IPPROTO_DCCP, 0, false, "dccp" },
-#endif
-#ifdef IPPROTO_UDPLITE
-  { SOCK_DGRAM, IPPROTO_UDPLITE, 0, false, "udplite" },
-#endif
-#ifdef IPPROTO_SCTP
-  { SOCK_STREAM, IPPROTO_SCTP, 0, false, "sctp" },
-  { SOCK_SEQPACKET, IPPROTO_SCTP, 0, false, "sctp" },
-#endif
-  { SOCK_RAW, 0, GAI_PROTO_PROTOANY|GAI_PROTO_NOSERVICE, true, "raw" },
-  { 0, 0, 0, false, "" }
-};
-
-static const struct addrinfo default_hints =
-  {
-    .ai_flags = AI_DEFAULT,
-    .ai_family = PF_UNSPEC,
-    .ai_socktype = 0,
-    .ai_protocol = 0,
-    .ai_addrlen = 0,
-    .ai_addr = NULL,
-    .ai_canonname = NULL,
-    .ai_next = NULL
-  };
-
-static void
-gaih_result_reset (struct gaih_result *res)
-{
-  if (res->free_at)
-    free (res->at);
-  free (res->canon);
-  free (res->h_name);
-  memset (res, 0, sizeof (*res));
-}
-
-static int
-gaih_inet_serv (const char *servicename, const struct gaih_typeproto *tp,
-		const struct addrinfo *req, struct gaih_servtuple *st,
-		struct scratch_buffer *tmpbuf)
-{
-  struct servent *s;
-  struct servent ts;
-  int r;
-
-  do
-    {
-      r = __getservbyname_r (servicename, tp->name, &ts,
-			     tmpbuf->data, tmpbuf->length, &s);
-      if (r != 0 || s == NULL)
-	{
-	  if (r == ERANGE)
-	    {
-	      if (!scratch_buffer_grow (tmpbuf))
-		return -EAI_MEMORY;
-	    }
-	  else
-	    return -EAI_SERVICE;
-	}
-    }
-  while (r);
-
-  st->socktype = tp->socktype;
-  st->protocol = ((tp->protoflag & GAI_PROTO_PROTOANY)
-		  ? req->ai_protocol : tp->protocol);
-  st->port = s->s_port;
-  st->set = true;
-
-  return 0;
-}
-
-/* Convert struct hostent to a list of struct gaih_addrtuple objects.  The new
-   addresses are appended to the tuple array in RES.  */
-static bool
-convert_hostent_to_gaih_addrtuple (const struct addrinfo *req, int family,
-				   struct hostent *h, struct gaih_result *res)
-{
-  /* Count the number of addresses in h->h_addr_list.  */
-  size_t count = 0;
-  for (char **p = h->h_addr_list; *p != NULL; ++p)
-    ++count;
-
-  /* Report no data if no addresses are available, or if the incoming
-     address size is larger than what we can store.  */
-  if (count == 0 || h->h_length > sizeof (((struct gaih_addrtuple) {}).addr))
-    return true;
-
-  struct gaih_addrtuple *array = res->at;
-  size_t old = 0;
-
-  while (array != NULL)
-    {
-      old++;
-      array = array->next;
-    }
-
-  array = realloc (res->at, (old + count) * sizeof (*array));
-
-  if (array == NULL)
-    return false;
-
-  res->got_ipv6 = family == AF_INET6;
-  res->at = array;
-  res->free_at = true;
-
-  /* Duplicate h_name because it may get reclaimed when the underlying storage
-     is freed.  */
-  if (res->h_name == NULL)
-    {
-      res->h_name = __strdup (h->h_name);
-      if (res->h_name == NULL)
-	return false;
-    }
-
-  /* Update the next pointers on reallocation.  */
-  for (size_t i = 0; i < old; i++)
-    array[i].next = array + i + 1;
-
-  array += old;
-
-  memset (array, 0, count * sizeof (*array));
-
-  for (size_t i = 0; i < count; ++i)
-    {
-      if (family == AF_INET && req->ai_family == AF_INET6)
-	{
-	  /* Perform address mapping. */
-	  array[i].family = AF_INET6;
-	  memcpy(array[i].addr + 3, h->h_addr_list[i], sizeof (uint32_t));
-	  array[i].addr[2] = htonl (0xffff);
-	}
-      else
-	{
-	  array[i].family = family;
-	  memcpy (array[i].addr, h->h_addr_list[i], h->h_length);
-	}
-      array[i].next = array + i + 1;
-    }
-  array[count - 1].next = NULL;
-
-  return true;
-}
-
-static int
-gethosts (nss_gethostbyname3_r fct, int family, const char *name,
-	  const struct addrinfo *req, struct scratch_buffer *tmpbuf,
-	  struct gaih_result *res, enum nss_status *statusp, int *no_datap)
-{
-  struct hostent th;
-  char *localcanon = NULL;
-  enum nss_status status;
-
-  *no_datap = 0;
-  while (1)
-    {
-      *statusp = status = DL_CALL_FCT (fct, (name, family, &th,
-					     tmpbuf->data, tmpbuf->length,
-					     &errno, &h_errno, NULL,
-					     &localcanon));
-      if (status != NSS_STATUS_TRYAGAIN || h_errno != NETDB_INTERNAL
-	  || errno != ERANGE)
-	break;
-      if (!scratch_buffer_grow (tmpbuf))
-	return -EAI_MEMORY;
-    }
-  if (status == NSS_STATUS_NOTFOUND
-      || status == NSS_STATUS_TRYAGAIN || status == NSS_STATUS_UNAVAIL)
-    {
-      if (h_errno == NETDB_INTERNAL)
-	return -EAI_SYSTEM;
-      if (h_errno == TRY_AGAIN)
-	*no_datap = EAI_AGAIN;
-      else
-	*no_datap = h_errno == NO_DATA;
-    }
-  else if (status == NSS_STATUS_SUCCESS)
-    {
-      if (!convert_hostent_to_gaih_addrtuple (req, family, &th, res))
-	return -EAI_MEMORY;
-
-      if (localcanon != NULL && res->canon == NULL)
-	{
-	  char *canonbuf = __strdup (localcanon);
-	  if (canonbuf == NULL)
-	    return  -EAI_MEMORY;
-	  res->canon = canonbuf;
-	}
-    }
-
-  return 0;
-}
-
-/* This function is called if a canonical name is requested, but if
-   the service function did not provide it.  It tries to obtain the
-   name using getcanonname_r from the same service NIP.  If the name
-   cannot be canonicalized, return a copy of NAME.  Return NULL on
-   memory allocation failure.  The returned string is allocated on the
-   heap; the caller has to free it.  */
-static char *
-getcanonname (nss_action_list nip, const char *hname, const char *name)
-{
-  nss_getcanonname_r *cfct = __nss_lookup_function (nip, "getcanonname_r");
-  char *s = (char *) name;
-  if (cfct != NULL)
-    {
-      char buf[256];
-      if (DL_CALL_FCT (cfct, (hname ?: name, buf, sizeof (buf), &s, &errno,
-			      &h_errno)) != NSS_STATUS_SUCCESS)
-	/* If the canonical name cannot be determined, use the passed
-	   string.  */
-	s = (char *) name;
-    }
-  return __strdup (s);
-}
-
-/* Process looked up canonical name and if necessary, decode to IDNA.  Result
-   is a new string written to CANONP and the earlier string is freed.  */
-
-static int
-process_canonname (const struct addrinfo *req, const char *orig_name,
-		   struct gaih_result *res)
-{
-  char *canon = res->canon;
-
-  if ((req->ai_flags & AI_CANONNAME) != 0)
-    {
-      bool do_idn = req->ai_flags & AI_CANONIDN;
-      if (do_idn)
-	{
-	  char *out;
-	  int rc = __idna_from_dns_encoding (canon ?: orig_name, &out);
-	  if (rc == 0)
-	    {
-	      free (canon);
-	      canon = out;
-	    }
-	  else if (rc == EAI_IDN_ENCODE)
-	    /* Use the punycode name as a fallback.  */
-	    do_idn = false;
-	  else
-	    return -rc;
-	}
-      if (!do_idn && canon == NULL && (canon = __strdup (orig_name)) == NULL)
-	return -EAI_MEMORY;
-    }
-
-  res->canon = canon;
-  return 0;
-}
-
-static int
-get_servtuples (const struct gaih_service *service, const struct addrinfo *req,
-		struct gaih_servtuple *st, struct scratch_buffer *tmpbuf)
-{
-  int i;
-  const struct gaih_typeproto *tp = gaih_inet_typeproto;
-
-  if (req->ai_protocol || req->ai_socktype)
-    {
-      ++tp;
-
-      while (tp->name[0]
-	     && ((req->ai_socktype != 0 && req->ai_socktype != tp->socktype)
-		 || (req->ai_protocol != 0
-		     && !(tp->protoflag & GAI_PROTO_PROTOANY)
-		     && req->ai_protocol != tp->protocol)))
-	++tp;
-
-      if (! tp->name[0])
-	{
-	  if (req->ai_socktype)
-	    return -EAI_SOCKTYPE;
-	  else
-	    return -EAI_SERVICE;
-	}
-    }
-
-  if (service != NULL && (tp->protoflag & GAI_PROTO_NOSERVICE) != 0)
-    return -EAI_SERVICE;
-
-  if (service == NULL || service->num >= 0)
-    {
-      int port = service != NULL ? htons (service->num) : 0;
-
-      if (req->ai_socktype || req->ai_protocol)
-	{
-	  st[0].socktype = tp->socktype;
-	  st[0].protocol = ((tp->protoflag & GAI_PROTO_PROTOANY)
-			  ? req->ai_protocol : tp->protocol);
-	  st[0].port = port;
-	  st[0].set = true;
-
-	  return 0;
-	}
-
-      /* Neither socket type nor protocol is set.  Return all socket types
-	 we know about.  */
-      for (i = 0, ++tp; tp->name[0]; ++tp)
-	if (tp->defaultflag)
-	  {
-	    st[i].socktype = tp->socktype;
-	    st[i].protocol = tp->protocol;
-	    st[i].port = port;
-	    st[i++].set = true;
-	  }
-
-      return 0;
-    }
-
-  if (tp->name[0])
-    return gaih_inet_serv (service->name, tp, req, st, tmpbuf);
-
-  for (i = 0, tp++; tp->name[0]; tp++)
-    {
-      if ((tp->protoflag & GAI_PROTO_NOSERVICE) != 0)
-	continue;
-
-      if (req->ai_socktype != 0
-	  && req->ai_socktype != tp->socktype)
-	continue;
-      if (req->ai_protocol != 0
-	  && !(tp->protoflag & GAI_PROTO_PROTOANY)
-	  && req->ai_protocol != tp->protocol)
-	continue;
-
-      if (gaih_inet_serv (service->name,
-			  tp, req, &st[i], tmpbuf) != 0)
-	continue;
-
-      i++;
-    }
-
-  if (!st[0].set)
-    return -EAI_SERVICE;
-
-  return 0;
-}
-
-#ifdef USE_NSCD
-/* Query addresses from nscd cache, returning a non-zero value on error.
-   RES members have the lookup result; RES->AT is NULL if there were no errors
-   but also no results.  */
-
-static int
-get_nscd_addresses (const char *name, const struct addrinfo *req,
-		    struct gaih_result *res)
-{
-  if (__nss_not_use_nscd_hosts > 0
-      && ++__nss_not_use_nscd_hosts > NSS_NSCD_RETRY)
-    __nss_not_use_nscd_hosts = 0;
-
-  res->at = NULL;
-
-  if (__nss_not_use_nscd_hosts || __nss_database_custom[NSS_DBSIDX_hosts])
-    return 0;
-
-  /* Try to use nscd.  */
-  struct nscd_ai_result *air = NULL;
-  int err = __nscd_getai (name, &air, &h_errno);
-
-  if (__glibc_unlikely (air == NULL))
-    {
-      /* The database contains a negative entry.  */
-      if (err == 0)
-	return -EAI_NONAME;
-      if (__nss_not_use_nscd_hosts == 0)
-	{
-	  if (h_errno == NETDB_INTERNAL && errno == ENOMEM)
-	    return -EAI_MEMORY;
-	  if (h_errno == TRY_AGAIN)
-	    return -EAI_AGAIN;
-	  return -EAI_SYSTEM;
-	}
-      return 0;
-    }
-
-  /* Transform into gaih_addrtuple list.  */
-  int result = 0;
-  char *addrs = air->addrs;
-
-  struct gaih_addrtuple *addrfree = calloc (air->naddrs, sizeof (*addrfree));
-  struct gaih_addrtuple *at = calloc (air->naddrs, sizeof (*at));
-  if (at == NULL)
-    {
-      result = -EAI_MEMORY;
-      goto out;
-    }
-
-  res->free_at = true;
-
-  int count = 0;
-  for (int i = 0; i < air->naddrs; ++i)
-    {
-      socklen_t size = (air->family[i] == AF_INET
-			? INADDRSZ : IN6ADDRSZ);
-
-      if (!((air->family[i] == AF_INET
-	     && req->ai_family == AF_INET6
-	     && (req->ai_flags & AI_V4MAPPED) != 0)
-	    || req->ai_family == AF_UNSPEC
-	    || air->family[i] == req->ai_family))
-	{
-	  /* Skip over non-matching result.  */
-	  addrs += size;
-	  continue;
-	}
-
-      if (air->family[i] == AF_INET && req->ai_family == AF_INET6
-	  && (req->ai_flags & AI_V4MAPPED))
-	{
-	  at[count].family = AF_INET6;
-	  at[count].addr[3] = *(uint32_t *) addrs;
-	  at[count].addr[2] = htonl (0xffff);
-	}
-      else if (req->ai_family == AF_UNSPEC
-	       || air->family[i] == req->ai_family)
-	{
-	  at[count].family = air->family[i];
-	  memcpy (at[count].addr, addrs, size);
-	  if (air->family[i] == AF_INET6)
-	    res->got_ipv6 = true;
-	}
-      at[count].next = at + count + 1;
-      count++;
-      addrs += size;
-    }
-
-  if ((req->ai_flags & AI_CANONNAME) && air->canon != NULL)
-    {
-      char *canonbuf = __strdup (air->canon);
-      if (canonbuf == NULL)
-	{
-	  result = -EAI_MEMORY;
-	  goto out;
-	}
-      res->canon = canonbuf;
-    }
-
-  if (count == 0)
-    {
-      result = -EAI_NONAME;
-      goto out;
-    }
-
-  at[count - 1].next = NULL;
-
-  res->at = at;
-
-out:
-  free (air);
-  if (result != 0)
-    {
-      free (at);
-      res->free_at = false;
-    }
-
-  return result;
-}
-#endif
-
-static int
-get_nss_addresses (const char *name, const struct addrinfo *req,
-		   struct scratch_buffer *tmpbuf, struct gaih_result *res)
-{
-  int no_data = 0;
-  int no_inet6_data = 0;
-  nss_action_list nip;
-  enum nss_status inet6_status = NSS_STATUS_UNAVAIL;
-  enum nss_status status = NSS_STATUS_UNAVAIL;
-  int no_more;
-  struct resolv_context *res_ctx = NULL;
-  bool do_merge = false;
-  int result = 0;
-
-  no_more = !__nss_database_get (nss_database_hosts, &nip);
-
-  /* If we are looking for both IPv4 and IPv6 address we don't
-     want the lookup functions to automatically promote IPv4
-     addresses to IPv6 addresses, so we use the no_inet6
-     function variant.  */
-  res_ctx = __resolv_context_get ();
-  if (res_ctx == NULL)
-    no_more = 1;
-
-  while (!no_more)
-    {
-      /* Always start afresh; continue should discard previous results
-	 and the hosts database does not support merge.  */
-      gaih_result_reset (res);
-
-      if (do_merge)
-	{
-	  __set_h_errno (NETDB_INTERNAL);
-	  __set_errno (EBUSY);
-	  break;
-	}
-
-      no_data = 0;
-      nss_gethostbyname4_r *fct4 = NULL;
-
-      /* gethostbyname4_r sends out parallel A and AAAA queries and
-	 is thus only suitable for PF_UNSPEC.  */
-      if (req->ai_family == PF_UNSPEC)
-	fct4 = __nss_lookup_function (nip, "gethostbyname4_r");
-
-      if (fct4 != NULL)
-	{
-	  while (1)
-	    {
-	      status = DL_CALL_FCT (fct4, (name, &res->at,
-					   tmpbuf->data, tmpbuf->length,
-					   &errno, &h_errno,
-					   NULL));
-	      if (status == NSS_STATUS_SUCCESS)
-		break;
-	      /* gethostbyname4_r may write into AT, so reset it.  */
-	      res->at = NULL;
-	      if (status != NSS_STATUS_TRYAGAIN
-		  || errno != ERANGE || h_errno != NETDB_INTERNAL)
-		{
-		  if (h_errno == TRY_AGAIN)
-		    no_data = EAI_AGAIN;
-		  else
-		    no_data = h_errno == NO_DATA;
-		  break;
-		}
-
-	      if (!scratch_buffer_grow (tmpbuf))
-		{
-		  __resolv_context_put (res_ctx);
-		  result = -EAI_MEMORY;
-		  goto out;
-		}
-	    }
-
-	  if (status == NSS_STATUS_SUCCESS)
-	    {
-	      assert (!no_data);
-	      no_data = 1;
-
-	      if ((req->ai_flags & AI_CANONNAME) != 0 && res->canon == NULL)
-		{
-		  char *canonbuf = __strdup (res->at->name);
-		  if (canonbuf == NULL)
-		    {
-		      __resolv_context_put (res_ctx);
-		      result = -EAI_MEMORY;
-		      goto out;
-		    }
-		  res->canon = canonbuf;
-		}
-
-	      struct gaih_addrtuple **pat = &res->at;
-
-	      while (*pat != NULL)
-		{
-		  if ((*pat)->family == AF_INET
-		      && req->ai_family == AF_INET6
-		      && (req->ai_flags & AI_V4MAPPED) != 0)
-		    {
-		      uint32_t *pataddr = (*pat)->addr;
-		      (*pat)->family = AF_INET6;
-		      pataddr[3] = pataddr[0];
-		      pataddr[2] = htonl (0xffff);
-		      pataddr[1] = 0;
-		      pataddr[0] = 0;
-		      pat = &((*pat)->next);
-		      no_data = 0;
-		    }
-		  else if (req->ai_family == AF_UNSPEC
-			   || (*pat)->family == req->ai_family)
-		    {
-		      pat = &((*pat)->next);
-
-		      no_data = 0;
-		      if (req->ai_family == AF_INET6)
-			res->got_ipv6 = true;
-		    }
-		  else
-		    *pat = ((*pat)->next);
-		}
-	    }
-
-	  no_inet6_data = no_data;
-	}
-      else
-	{
-	  nss_gethostbyname3_r *fct = NULL;
-	  if (req->ai_flags & AI_CANONNAME)
-	    /* No need to use this function if we do not look for
-	       the canonical name.  The function does not exist in
-	       all NSS modules and therefore the lookup would
-	       often fail.  */
-	    fct = __nss_lookup_function (nip, "gethostbyname3_r");
-	  if (fct == NULL)
-	    /* We are cheating here.  The gethostbyname2_r
-	       function does not have the same interface as
-	       gethostbyname3_r but the extra arguments the
-	       latter takes are added at the end.  So the
-	       gethostbyname2_r code will just ignore them.  */
-	    fct = __nss_lookup_function (nip, "gethostbyname2_r");
-
-	  if (fct != NULL)
-	    {
-	      if (req->ai_family == AF_INET6
-		  || req->ai_family == AF_UNSPEC)
-		{
-		  if ((result = gethosts (fct, AF_INET6, name, req, tmpbuf,
-					  res, &status, &no_data)) != 0)
-		    {
-		      __resolv_context_put (res_ctx);
-		      goto out;
-		    }
-		  no_inet6_data = no_data;
-		  inet6_status = status;
-		}
-	      if (req->ai_family == AF_INET
-		  || req->ai_family == AF_UNSPEC
-		  || (req->ai_family == AF_INET6
-		      && (req->ai_flags & AI_V4MAPPED)
-		      /* Avoid generating the mapped addresses if we
-			 know we are not going to need them.  */
-		      && ((req->ai_flags & AI_ALL) || !res->got_ipv6)))
-		{
-		  if ((result = gethosts (fct, AF_INET, name, req, tmpbuf,
-					  res, &status, &no_data)) != 0)
-		    {
-		      __resolv_context_put (res_ctx);
-		      goto out;
-		    }
-
-		  if (req->ai_family == AF_INET)
-		    {
-		      no_inet6_data = no_data;
-		      inet6_status = status;
-		    }
-		}
-
-	      /* If we found one address for AF_INET or AF_INET6,
-		 don't continue the search.  */
-	      if (inet6_status == NSS_STATUS_SUCCESS
-		  || status == NSS_STATUS_SUCCESS)
-		{
-		  if ((req->ai_flags & AI_CANONNAME) != 0
-		      && res->canon == NULL)
-		    {
-		      char *canonbuf = getcanonname (nip, res->h_name, name);
-		      if (canonbuf == NULL)
-			{
-			  __resolv_context_put (res_ctx);
-			  result = -EAI_MEMORY;
-			  goto out;
-			}
-		      res->canon = canonbuf;
-		    }
-		  status = NSS_STATUS_SUCCESS;
-		}
-	      else
-		{
-		  /* We can have different states for AF_INET and
-		     AF_INET6.  Try to find a useful one for both.  */
-		  if (inet6_status == NSS_STATUS_TRYAGAIN)
-		    status = NSS_STATUS_TRYAGAIN;
-		  else if (status == NSS_STATUS_UNAVAIL
-			   && inet6_status != NSS_STATUS_UNAVAIL)
-		    status = inet6_status;
-		}
-	    }
-	  else
-	    {
-	      /* Could not locate any of the lookup functions.
-		 The NSS lookup code does not consistently set
-		 errno, so we need to supply our own error
-		 code here.  The root cause could either be a
-		 resource allocation failure, or a missing
-		 service function in the DSO (so it should not
-		 be listed in /etc/nsswitch.conf).  Assume the
-		 former, and return EBUSY.  */
-	      status = NSS_STATUS_UNAVAIL;
-	      __set_h_errno (NETDB_INTERNAL);
-	      __set_errno (EBUSY);
-	    }
-	}
-
-      if (nss_next_action (nip, status) == NSS_ACTION_RETURN)
-	break;
-
-      /* The hosts database does not support MERGE.  */
-      if (nss_next_action (nip, status) == NSS_ACTION_MERGE)
-	do_merge = true;
-
-      nip++;
-      if (nip->module == NULL)
-	no_more = -1;
-    }
-
-  __resolv_context_put (res_ctx);
-
-  /* If we have a failure which sets errno, report it using
-     EAI_SYSTEM.  */
-  if ((status == NSS_STATUS_TRYAGAIN || status == NSS_STATUS_UNAVAIL)
-      && h_errno == NETDB_INTERNAL)
-    {
-      result = -EAI_SYSTEM;
-      goto out;
-    }
-
-  if (no_data != 0 && no_inet6_data != 0)
-    {
-      /* If both requests timed out report this.  */
-      if (no_data == EAI_AGAIN && no_inet6_data == EAI_AGAIN)
-	result = -EAI_AGAIN;
-      else
-	/* We made requests but they turned out no data.  The name
-	   is known, though.  */
-	result = -EAI_NODATA;
-    }
-
-out:
-  if (result != 0)
-    gaih_result_reset (res);
-  return result;
-}
-
-/* Convert numeric addresses to binary into RES.  On failure, RES->AT is set to
-   NULL and an error code is returned.  If AI_NUMERIC_HOST is not requested and
-   the function cannot determine a result, RES->AT is set to NULL and 0
-   returned.  */
-
-static int
-text_to_binary_address (const char *name, const struct addrinfo *req,
-			struct gaih_result *res)
-{
-  struct gaih_addrtuple *at = res->at;
-  int result = 0;
-
-  assert (at != NULL);
-
-  memset (at->addr, 0, sizeof (at->addr));
-  if (__inet_aton_exact (name, (struct in_addr *) at->addr) != 0)
-    {
-      if (req->ai_family == AF_UNSPEC || req->ai_family == AF_INET)
-	at->family = AF_INET;
-      else if (req->ai_family == AF_INET6 && (req->ai_flags & AI_V4MAPPED))
-	{
-	  at->addr[3] = at->addr[0];
-	  at->addr[2] = htonl (0xffff);
-	  at->addr[1] = 0;
-	  at->addr[0] = 0;
-	  at->family = AF_INET6;
-	}
-      else
-	{
-	  result = -EAI_ADDRFAMILY;
-	  goto out;
-	}
-
-      if (req->ai_flags & AI_CANONNAME)
-	{
-	  char *canonbuf = __strdup (name);
-	  if (canonbuf == NULL)
-	    {
-	      result = -EAI_MEMORY;
-	      goto out;
-	    }
-	  res->canon = canonbuf;
-	}
-      return 0;
-    }
-
-  char *scope_delim = strchr (name, SCOPE_DELIMITER);
-  int e;
-
-  if (scope_delim == NULL)
-    e = inet_pton (AF_INET6, name, at->addr);
-  else
-    e = __inet_pton_length (AF_INET6, name, scope_delim - name, at->addr);
-
-  if (e > 0)
-    {
-      if (req->ai_family == AF_UNSPEC || req->ai_family == AF_INET6)
-	at->family = AF_INET6;
-      else if (req->ai_family == AF_INET
-	       && IN6_IS_ADDR_V4MAPPED (at->addr))
-	{
-	  at->addr[0] = at->addr[3];
-	  at->family = AF_INET;
-	}
-      else
-	{
-	  result = -EAI_ADDRFAMILY;
-	  goto out;
-	}
-
-      if (scope_delim != NULL
-	  && __inet6_scopeid_pton ((struct in6_addr *) at->addr,
-				   scope_delim + 1, &at->scopeid) != 0)
-	{
-	  result = -EAI_NONAME;
-	  goto out;
-	}
-
-      if (req->ai_flags & AI_CANONNAME)
-	{
-	  char *canonbuf = __strdup (name);
-	  if (canonbuf == NULL)
-	    {
-	      result = -EAI_MEMORY;
-	      goto out;
-	    }
-	  res->canon = canonbuf;
-	}
-      return 0;
-    }
-
-  if ((req->ai_flags & AI_NUMERICHOST))
-    result = -EAI_NONAME;
-
-out:
-  res->at = NULL;
-  return result;
-}
-
-/* If possible, call the simple, old functions, which do not support IPv6 scope
-   ids, nor retrieving the canonical name.  */
-
-static int
-try_simple_gethostbyname (const char *name, const struct addrinfo *req,
-			  struct scratch_buffer *tmpbuf,
-			  struct gaih_result *res)
-{
-  res->at = NULL;
-
-  if (req->ai_family != AF_INET || (req->ai_flags & AI_CANONNAME) != 0)
-    return 0;
-
-  int rc;
-  struct hostent th;
-  struct hostent *h;
-
-  while (1)
-    {
-      rc = __gethostbyname2_r (name, AF_INET, &th, tmpbuf->data,
-			       tmpbuf->length, &h, &h_errno);
-      if (rc != ERANGE || h_errno != NETDB_INTERNAL)
-	break;
-      if (!scratch_buffer_grow (tmpbuf))
-	return -EAI_MEMORY;
-    }
-
-  if (rc == 0)
-    {
-      if (h != NULL)
-	{
-	  /* We found data, convert it.  RES->AT from the conversion will
-	     either be an allocated block or NULL, both of which are safe to
-	     pass to free ().  */
-	  if (!convert_hostent_to_gaih_addrtuple (req, AF_INET, h, res))
-	    return -EAI_MEMORY;
-
-	  res->free_at = true;
-	  return 0;
-	}
-      if (h_errno == NO_DATA)
-	return -EAI_NODATA;
-
-      return -EAI_NONAME;
-    }
-
-  if (h_errno == NETDB_INTERNAL)
-    return -EAI_SYSTEM;
-  if (h_errno == TRY_AGAIN)
-    return -EAI_AGAIN;
-
-  /* We made requests but they turned out no data.
-     The name is known, though.  */
-  return -EAI_NODATA;
-}
-
-/* Add local address information into RES.  RES->AT is assumed to have enough
-   space for two tuples and is zeroed out.  */
-
-static void
-get_local_addresses (const struct addrinfo *req, struct gaih_result *res)
-{
-  struct gaih_addrtuple *atr = res->at;
-  if (req->ai_family == AF_UNSPEC)
-    res->at->next = res->at + 1;
-
-  if (req->ai_family == AF_UNSPEC || req->ai_family == AF_INET6)
-    {
-      res->at->family = AF_INET6;
-      if ((req->ai_flags & AI_PASSIVE) == 0)
-	memcpy (res->at->addr, &in6addr_loopback, sizeof (struct in6_addr));
-      atr = res->at->next;
-    }
-
-  if (req->ai_family == AF_UNSPEC || req->ai_family == AF_INET)
-    {
-      atr->family = AF_INET;
-      if ((req->ai_flags & AI_PASSIVE) == 0)
-	atr->addr[0] = htonl (INADDR_LOOPBACK);
-    }
-}
-
-/* Generate results in PAI and its count in NADDRS.  Return 0 on success or an
-   error code on failure.  */
-
-static int
-generate_addrinfo (const struct addrinfo *req, struct gaih_result *res,
-		   const struct gaih_servtuple *st, struct addrinfo **pai,
-		   unsigned int *naddrs)
-{
-  size_t socklen;
-  sa_family_t family;
-
-  /* Buffer is the size of an unformatted IPv6 address in printable format.  */
-  for (struct gaih_addrtuple *at = res->at; at != NULL; at = at->next)
-    {
-      family = at->family;
-      if (family == AF_INET6)
-	{
-	  socklen = sizeof (struct sockaddr_in6);
-
-	  /* If we looked up IPv4 mapped address discard them here if
-	     the caller isn't interested in all address and we have
-	     found at least one IPv6 address.  */
-	  if (res->got_ipv6
-	      && (req->ai_flags & (AI_V4MAPPED|AI_ALL)) == AI_V4MAPPED
-	      && IN6_IS_ADDR_V4MAPPED (at->addr))
-	    continue;
-	}
-      else
-	socklen = sizeof (struct sockaddr_in);
-
-      for (int i = 0; st[i].set; i++)
-	{
-	  struct addrinfo *ai;
-	  ai = *pai = malloc (sizeof (struct addrinfo) + socklen);
-	  if (ai == NULL)
-	    return -EAI_MEMORY;
-
-	  ai->ai_flags = req->ai_flags;
-	  ai->ai_family = family;
-	  ai->ai_socktype = st[i].socktype;
-	  ai->ai_protocol = st[i].protocol;
-	  ai->ai_addrlen = socklen;
-	  ai->ai_addr = (void *) (ai + 1);
-
-	  /* We only add the canonical name once.  */
-	  ai->ai_canonname = res->canon;
-	  res->canon = NULL;
-
-#ifdef _HAVE_SA_LEN
-	  ai->ai_addr->sa_len = socklen;
-#endif /* _HAVE_SA_LEN */
-	  ai->ai_addr->sa_family = family;
-
-	  /* In case of an allocation error the list must be NULL
-	     terminated.  */
-	  ai->ai_next = NULL;
-
-	  if (family == AF_INET6)
-	    {
-	      struct sockaddr_in6 *sin6p = (struct sockaddr_in6 *) ai->ai_addr;
-	      sin6p->sin6_port = st[i].port;
-	      sin6p->sin6_flowinfo = 0;
-	      memcpy (&sin6p->sin6_addr, at->addr, sizeof (struct in6_addr));
-	      sin6p->sin6_scope_id = at->scopeid;
-	    }
-	  else
-	    {
-	      struct sockaddr_in *sinp = (struct sockaddr_in *) ai->ai_addr;
-	      sinp->sin_port = st[i].port;
-	      memcpy (&sinp->sin_addr, at->addr, sizeof (struct in_addr));
-	      memset (sinp->sin_zero, '\0', sizeof (sinp->sin_zero));
-	    }
-
-	  pai = &(ai->ai_next);
-	}
-
-      ++*naddrs;
-    }
-  return 0;
-}
-
-static int
-gaih_inet (const char *name, const struct gaih_service *service,
-	   const struct addrinfo *req, struct addrinfo **pai,
-	   unsigned int *naddrs, struct scratch_buffer *tmpbuf)
-{
-  struct gaih_servtuple st[sizeof (gaih_inet_typeproto)
-			   / sizeof (struct gaih_typeproto)] = {0};
-
-  const char *orig_name = name;
-
-  int rc;
-  if ((rc = get_servtuples (service, req, st, tmpbuf)) != 0)
-    return rc;
-
-  bool malloc_name = false;
-  struct gaih_addrtuple *addrmem = NULL;
-  int result = 0;
-
-  struct gaih_result res = {0};
-  struct gaih_addrtuple local_at[2] = {0};
-
-  res.at = local_at;
-
-  if (__glibc_unlikely (name == NULL))
-    {
-      get_local_addresses (req, &res);
-      goto process_list;
-    }
-
-  if (req->ai_flags & AI_IDN)
-    {
-      char *out;
-      result = __idna_to_dns_encoding (name, &out);
-      if (result != 0)
-	return -result;
-      name = out;
-      malloc_name = true;
-    }
-
-  if ((result = text_to_binary_address (name, req, &res)) != 0)
-    goto free_and_return;
-  else if (res.at != NULL)
-    goto process_list;
-
-  if ((result = try_simple_gethostbyname (name, req, tmpbuf, &res)) != 0)
-    goto free_and_return;
-  else if (res.at != NULL)
-    goto process_list;
-
-#ifdef USE_NSCD
-  if ((result = get_nscd_addresses (name, req, &res)) != 0)
-    goto free_and_return;
-  else if (res.at != NULL)
-    goto process_list;
-#endif
-
-  if ((result = get_nss_addresses (name, req, tmpbuf, &res)) != 0)
-    goto free_and_return;
-  else if (res.at != NULL)
-    goto process_list;
-
-  /* None of the lookups worked, so name not found.  */
-  result = -EAI_NONAME;
-  goto free_and_return;
-
-process_list:
-  /* Set up the canonical name if we need it.  */
-  if ((result = process_canonname (req, orig_name, &res)) != 0)
-    goto free_and_return;
-
-  result = generate_addrinfo (req, &res, st, pai, naddrs);
-
-free_and_return:
-  if (malloc_name)
-    free ((char *) name);
-  free (addrmem);
-  gaih_result_reset (&res);
-
-  return result;
-}
-
-
-struct sort_result
-{
-  struct addrinfo *dest_addr;
-  /* Using sockaddr_storage is for now overkill.  We only support IPv4
-     and IPv6 so far.  If this changes at some point we can adjust the
-     type here.  */
-  struct sockaddr_in6 source_addr;
-  uint8_t source_addr_len;
-  bool got_source_addr;
-  uint8_t source_addr_flags;
-  uint8_t prefixlen;
-  uint32_t index;
-  int32_t native;
-};
-
-struct sort_result_combo
-{
-  struct sort_result *results;
-  int nresults;
-};
-
-
-#if __BYTE_ORDER == __BIG_ENDIAN
-# define htonl_c(n) n
-#else
-# define htonl_c(n) __bswap_constant_32 (n)
-#endif
-
-static const struct scopeentry
-{
-  union
-  {
-    char addr[4];
-    uint32_t addr32;
-  };
-  uint32_t netmask;
-  int32_t scope;
-} default_scopes[] =
-  {
-    /* Link-local addresses: scope 2.  */
-    { { { 169, 254, 0, 0 } }, htonl_c (0xffff0000), 2 },
-    { { { 127, 0, 0, 0 } }, htonl_c (0xff000000), 2 },
-    /* Default: scope 14.  */
-    { { { 0, 0, 0, 0 } }, htonl_c (0x00000000), 14 }
-  };
-
-/* The label table.  */
-static const struct scopeentry *scopes;
-
-
-static int
-get_scope (const struct sockaddr_in6 *in6)
-{
-  int scope;
-  if (in6->sin6_family == PF_INET6)
-    {
-      if (! IN6_IS_ADDR_MULTICAST (&in6->sin6_addr))
-	{
-	  if (IN6_IS_ADDR_LINKLOCAL (&in6->sin6_addr)
-	      /* RFC 4291 2.5.3 says that the loopback address is to be
-		 treated like a link-local address.  */
-	      || IN6_IS_ADDR_LOOPBACK (&in6->sin6_addr))
-	    scope = 2;
-	  else if (IN6_IS_ADDR_SITELOCAL (&in6->sin6_addr))
-	    scope = 5;
-	  else
-	    /* XXX Is this the correct default behavior?  */
-	    scope = 14;
-	}
-      else
-	scope = in6->sin6_addr.s6_addr[1] & 0xf;
-    }
-  else if (in6->sin6_family == PF_INET)
-    {
-      const struct sockaddr_in *in = (const struct sockaddr_in *) in6;
-
-      size_t cnt = 0;
-      while (1)
-	{
-	  if ((in->sin_addr.s_addr & scopes[cnt].netmask)
-	      == scopes[cnt].addr32)
-	    return scopes[cnt].scope;
-
-	  ++cnt;
-	}
-      /* NOTREACHED */
-    }
-  else
-    /* XXX What is a good default?  */
-    scope = 15;
-
-  return scope;
-}
-
-
-struct prefixentry
-{
-  struct in6_addr prefix;
-  unsigned int bits;
-  int val;
-};
-
-
-/* The label table.  */
-static const struct prefixentry *labels;
-
-/* Default labels.  */
-static const struct prefixentry default_labels[] =
-  {
-    /* See RFC 3484 for the details.  */
-    { { .__in6_u
-	= { .__u6_addr8 = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
-			    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01 } }
-      }, 128, 0 },
-    { { .__in6_u
-	= { .__u6_addr8 = { 0x20, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
-			    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 } }
-      }, 16, 2 },
-    { { .__in6_u
-	= { .__u6_addr8 = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
-			    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 } }
-      }, 96, 3 },
-    { { .__in6_u
-	= { .__u6_addr8 = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
-			    0x00, 0x00, 0xff, 0xff, 0x00, 0x00, 0x00, 0x00 } }
-      }, 96, 4 },
-    /* The next two entries differ from RFC 3484.  We need to treat
-       IPv6 site-local addresses special because they are never NATed,
-       unlike site-locale IPv4 addresses.  If this would not happen, on
-       machines which have only IPv4 and IPv6 site-local addresses, the
-       sorting would prefer the IPv6 site-local addresses, causing
-       unnecessary delays when trying to connect to a global IPv6 address
-       through a site-local IPv6 address.  */
-    { { .__in6_u
-	= { .__u6_addr8 = { 0xfe, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
-			    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 } }
-      }, 10, 5 },
-    { { .__in6_u
-	= { .__u6_addr8 = { 0xfc, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
-			    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 } }
-      }, 7, 6 },
-    /* Additional rule for Teredo tunnels.  */
-    { { .__in6_u
-	= { .__u6_addr8 = { 0x20, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
-			    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 } }
-      }, 32, 7 },
-    { { .__in6_u
-	= { .__u6_addr8 = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
-			    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 } }
-      }, 0, 1 }
-  };
-
-
-/* The precedence table.  */
-static const struct prefixentry *precedence;
-
-/* The default precedences.  */
-static const struct prefixentry default_precedence[] =
-  {
-    /* See RFC 3484 for the details.  */
-    { { .__in6_u
-	= { .__u6_addr8 = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
-			    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01 } }
-      }, 128, 50 },
-    { { .__in6_u
-	= { .__u6_addr8 = { 0x20, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
-			    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 } }
-      }, 16, 30 },
-    { { .__in6_u
-	= { .__u6_addr8 = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
-			  0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 } }
-      }, 96, 20 },
-    { { .__in6_u
-	= { .__u6_addr8 = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
-			    0x00, 0x00, 0xff, 0xff, 0x00, 0x00, 0x00, 0x00 } }
-      }, 96, 10 },
-    { { .__in6_u
-	= { .__u6_addr8 = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
-			    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 } }
-      }, 0, 40 }
-  };
-
-
-static int
-match_prefix (const struct sockaddr_in6 *in6,
-	      const struct prefixentry *list, int default_val)
-{
-  int idx;
-  struct sockaddr_in6 in6_mem;
-
-  if (in6->sin6_family == PF_INET)
-    {
-      const struct sockaddr_in *in = (const struct sockaddr_in *) in6;
-
-      /* Construct a V4-to-6 mapped address.  */
-      in6_mem.sin6_family = PF_INET6;
-      in6_mem.sin6_port = in->sin_port;
-      in6_mem.sin6_flowinfo = 0;
-      memset (&in6_mem.sin6_addr, '\0', sizeof (in6_mem.sin6_addr));
-      in6_mem.sin6_addr.s6_addr16[5] = 0xffff;
-      in6_mem.sin6_addr.s6_addr32[3] = in->sin_addr.s_addr;
-      in6_mem.sin6_scope_id = 0;
-
-      in6 = &in6_mem;
-    }
-  else if (in6->sin6_family != PF_INET6)
-    return default_val;
-
-  for (idx = 0; ; ++idx)
-    {
-      unsigned int bits = list[idx].bits;
-      const uint8_t *mask = list[idx].prefix.s6_addr;
-      const uint8_t *val = in6->sin6_addr.s6_addr;
-
-      while (bits >= 8)
-	{
-	  if (*mask != *val)
-	    break;
-
-	  ++mask;
-	  ++val;
-	  bits -= 8;
-	}
-
-      if (bits < 8)
-	{
-	  if ((*mask & (0xff00 >> bits)) == (*val & (0xff00 >> bits)))
-	    /* Match!  */
-	    break;
-	}
-    }
-
-  return list[idx].val;
-}
-
-
-static int
-get_label (const struct sockaddr_in6 *in6)
-{
-  /* XXX What is a good default value?  */
-  return match_prefix (in6, labels, INT_MAX);
-}
-
-
-static int
-get_precedence (const struct sockaddr_in6 *in6)
-{
-  /* XXX What is a good default value?  */
-  return match_prefix (in6, precedence, 0);
-}
-
-
-/* Find last bit set in a word.  */
-static int
-fls (uint32_t a)
-{
-  uint32_t mask;
-  int n;
-  for (n = 0, mask = 1 << 31; n < 32; mask >>= 1, ++n)
-    if ((a & mask) != 0)
-      break;
-  return n;
-}
-
-
-static int
-rfc3484_sort (const void *p1, const void *p2, void *arg)
-{
-  const size_t idx1 = *(const size_t *) p1;
-  const size_t idx2 = *(const size_t *) p2;
-  struct sort_result_combo *src = (struct sort_result_combo *) arg;
-  struct sort_result *a1 = &src->results[idx1];
-  struct sort_result *a2 = &src->results[idx2];
-
-  /* Rule 1: Avoid unusable destinations.
-     We have the got_source_addr flag set if the destination is reachable.  */
-  if (a1->got_source_addr && ! a2->got_source_addr)
-    return -1;
-  if (! a1->got_source_addr && a2->got_source_addr)
-    return 1;
-
-
-  /* Rule 2: Prefer matching scope.  Only interesting if both
-     destination addresses are IPv6.  */
-  int a1_dst_scope
-    = get_scope ((struct sockaddr_in6 *) a1->dest_addr->ai_addr);
-
-  int a2_dst_scope
-    = get_scope ((struct sockaddr_in6 *) a2->dest_addr->ai_addr);
-
-  if (a1->got_source_addr)
-    {
-      int a1_src_scope = get_scope (&a1->source_addr);
-      int a2_src_scope = get_scope (&a2->source_addr);
-
-      if (a1_dst_scope == a1_src_scope && a2_dst_scope != a2_src_scope)
-	return -1;
-      if (a1_dst_scope != a1_src_scope && a2_dst_scope == a2_src_scope)
-	return 1;
-    }
-
-
-  /* Rule 3: Avoid deprecated addresses.  */
-  if (a1->got_source_addr)
-    {
-      if (!(a1->source_addr_flags & in6ai_deprecated)
-	  && (a2->source_addr_flags & in6ai_deprecated))
-	return -1;
-      if ((a1->source_addr_flags & in6ai_deprecated)
-	  && !(a2->source_addr_flags & in6ai_deprecated))
-	return 1;
-    }
-
-  /* Rule 4: Prefer home addresses.  */
-  if (a1->got_source_addr)
-    {
-      if (!(a1->source_addr_flags & in6ai_homeaddress)
-	  && (a2->source_addr_flags & in6ai_homeaddress))
-	return 1;
-      if ((a1->source_addr_flags & in6ai_homeaddress)
-	  && !(a2->source_addr_flags & in6ai_homeaddress))
-	return -1;
-    }
-
-  /* Rule 5: Prefer matching label.  */
-  if (a1->got_source_addr)
-    {
-      int a1_dst_label
-	= get_label ((struct sockaddr_in6 *) a1->dest_addr->ai_addr);
-      int a1_src_label = get_label (&a1->source_addr);
-
-      int a2_dst_label
-	= get_label ((struct sockaddr_in6 *) a2->dest_addr->ai_addr);
-      int a2_src_label = get_label (&a2->source_addr);
-
-      if (a1_dst_label == a1_src_label && a2_dst_label != a2_src_label)
-	return -1;
-      if (a1_dst_label != a1_src_label && a2_dst_label == a2_src_label)
-	return 1;
-    }
-
-
-  /* Rule 6: Prefer higher precedence.  */
-  int a1_prec
-    = get_precedence ((struct sockaddr_in6 *) a1->dest_addr->ai_addr);
-  int a2_prec
-    = get_precedence ((struct sockaddr_in6 *) a2->dest_addr->ai_addr);
-
-  if (a1_prec > a2_prec)
-    return -1;
-  if (a1_prec < a2_prec)
-    return 1;
-
-
-  /* Rule 7: Prefer native transport.  */
-  if (a1->got_source_addr)
-    {
-      /* The same interface index means the same interface which means
-	 there is no difference in transport.  This should catch many
-	 (most?) cases.  */
-      if (a1->index != a2->index)
-	{
-	  int a1_native = a1->native;
-	  int a2_native = a2->native;
-
-	  if (a1_native == -1 || a2_native == -1)
-	    {
-	      uint32_t a1_index;
-	      if (a1_native == -1)
-		{
-		  /* If we do not have the information use 'native' as
-		     the default.  */
-		  a1_native = 0;
-		  a1_index = a1->index;
-		}
-	      else
-		a1_index = 0xffffffffu;
-
-	      uint32_t a2_index;
-	      if (a2_native == -1)
-		{
-		  /* If we do not have the information use 'native' as
-		     the default.  */
-		  a2_native = 0;
-		  a2_index = a2->index;
-		}
-	      else
-		a2_index = 0xffffffffu;
-
-	      __check_native (a1_index, &a1_native, a2_index, &a2_native);
-
-	      /* Fill in the results in all the records.  */
-	      for (int i = 0; i < src->nresults; ++i)
-		if (a1_index != -1 && src->results[i].index == a1_index)
-		  {
-		    assert (src->results[i].native == -1
-			    || src->results[i].native == a1_native);
-		    src->results[i].native = a1_native;
-		  }
-		else if (a2_index != -1 && src->results[i].index == a2_index)
-		  {
-		    assert (src->results[i].native == -1
-			    || src->results[i].native == a2_native);
-		    src->results[i].native = a2_native;
-		  }
-	    }
-
-	  if (a1_native && !a2_native)
-	    return -1;
-	  if (!a1_native && a2_native)
-	    return 1;
-	}
-    }
-
-
-  /* Rule 8: Prefer smaller scope.  */
-  if (a1_dst_scope < a2_dst_scope)
-    return -1;
-  if (a1_dst_scope > a2_dst_scope)
-    return 1;
-
-
-  /* Rule 9: Use longest matching prefix.  */
-  if (a1->got_source_addr
-      && a1->dest_addr->ai_family == a2->dest_addr->ai_family)
-    {
-      int bit1 = 0;
-      int bit2 = 0;
-
-      if (a1->dest_addr->ai_family == PF_INET)
-	{
-	  assert (a1->source_addr.sin6_family == PF_INET);
-	  assert (a2->source_addr.sin6_family == PF_INET);
-
-	  /* Outside of subnets, as defined by the network masks,
-	     common address prefixes for IPv4 addresses make no sense.
-	     So, define a non-zero value only if source and
-	     destination address are on the same subnet.  */
-	  struct sockaddr_in *in1_dst
-	    = (struct sockaddr_in *) a1->dest_addr->ai_addr;
-	  in_addr_t in1_dst_addr = ntohl (in1_dst->sin_addr.s_addr);
-	  struct sockaddr_in *in1_src
-	    = (struct sockaddr_in *) &a1->source_addr;
-	  in_addr_t in1_src_addr = ntohl (in1_src->sin_addr.s_addr);
-	  in_addr_t netmask1 = 0xffffffffu << (32 - a1->prefixlen);
-
-	  if ((in1_src_addr & netmask1) == (in1_dst_addr & netmask1))
-	    bit1 = fls (in1_dst_addr ^ in1_src_addr);
-
-	  struct sockaddr_in *in2_dst
-	    = (struct sockaddr_in *) a2->dest_addr->ai_addr;
-	  in_addr_t in2_dst_addr = ntohl (in2_dst->sin_addr.s_addr);
-	  struct sockaddr_in *in2_src
-	    = (struct sockaddr_in *) &a2->source_addr;
-	  in_addr_t in2_src_addr = ntohl (in2_src->sin_addr.s_addr);
-	  in_addr_t netmask2 = 0xffffffffu << (32 - a2->prefixlen);
-
-	  if ((in2_src_addr & netmask2) == (in2_dst_addr & netmask2))
-	    bit2 = fls (in2_dst_addr ^ in2_src_addr);
-	}
-      else if (a1->dest_addr->ai_family == PF_INET6)
-	{
-	  assert (a1->source_addr.sin6_family == PF_INET6);
-	  assert (a2->source_addr.sin6_family == PF_INET6);
-
-	  struct sockaddr_in6 *in1_dst;
-	  struct sockaddr_in6 *in1_src;
-	  struct sockaddr_in6 *in2_dst;
-	  struct sockaddr_in6 *in2_src;
-
-	  in1_dst = (struct sockaddr_in6 *) a1->dest_addr->ai_addr;
-	  in1_src = (struct sockaddr_in6 *) &a1->source_addr;
-	  in2_dst = (struct sockaddr_in6 *) a2->dest_addr->ai_addr;
-	  in2_src = (struct sockaddr_in6 *) &a2->source_addr;
-
-	  int i;
-	  for (i = 0; i < 4; ++i)
-	    if (in1_dst->sin6_addr.s6_addr32[i]
-		!= in1_src->sin6_addr.s6_addr32[i]
-		|| (in2_dst->sin6_addr.s6_addr32[i]
-		    != in2_src->sin6_addr.s6_addr32[i]))
-	      break;
-
-	  if (i < 4)
-	    {
-	      bit1 = fls (ntohl (in1_dst->sin6_addr.s6_addr32[i]
-				 ^ in1_src->sin6_addr.s6_addr32[i]));
-	      bit2 = fls (ntohl (in2_dst->sin6_addr.s6_addr32[i]
-				 ^ in2_src->sin6_addr.s6_addr32[i]));
-	    }
-	}
-
-      if (bit1 > bit2)
-	return -1;
-      if (bit1 < bit2)
-	return 1;
-    }
-
-
-  /* Rule 10: Otherwise, leave the order unchanged.  To ensure this
-     compare with the value indicating the order in which the entries
-     have been received from the services.  NB: no two entries can have
-     the same order so the test will never return zero.  */
-  return idx1 < idx2 ? -1 : 1;
-}
-
-
-static int
-in6aicmp (const void *p1, const void *p2)
-{
-  struct in6addrinfo *a1 = (struct in6addrinfo *) p1;
-  struct in6addrinfo *a2 = (struct in6addrinfo *) p2;
-
-  return memcmp (a1->addr, a2->addr, sizeof (a1->addr));
-}
-
-
-/* Name of the config file for RFC 3484 sorting (for now).  */
-#define GAICONF_FNAME "/etc/gai.conf"
-
-
-/* Non-zero if we are supposed to reload the config file automatically
-   whenever it changed.  */
-static int gaiconf_reload_flag;
-
-/* Non-zero if gaiconf_reload_flag was ever set to true.  */
-static int gaiconf_reload_flag_ever_set;
-
-/* Last modification time.  */
-#ifdef _STATBUF_ST_NSEC
-
-static struct __timespec64 gaiconf_mtime;
-
-static inline void
-save_gaiconf_mtime (const struct __stat64_t64 *st)
-{
-  gaiconf_mtime = (struct __timespec64) { st->st_mtim.tv_sec,
-					  st->st_mtim.tv_nsec };
-}
-
-static inline bool
-check_gaiconf_mtime (const struct __stat64_t64 *st)
-{
-  return (st->st_mtim.tv_sec == gaiconf_mtime.tv_sec
-          && st->st_mtim.tv_nsec == gaiconf_mtime.tv_nsec);
-}
-
-#else
-
-static time_t gaiconf_mtime;
-
-static inline void
-save_gaiconf_mtime (const struct __stat64_t64 *st)
-{
-  gaiconf_mtime = st->st_mtime;
-}
-
-static inline bool
-check_gaiconf_mtime (const struct __stat64_t64 *st)
-{
-  return st->st_mtime == gaiconf_mtime;
-}
-
-#endif
-
-
-void
-__libc_getaddrinfo_freemem (void)
-{
-  if (labels != default_labels)
-    {
-      const struct prefixentry *old = labels;
-      labels = default_labels;
-      free ((void *) old);
-    }
-
-  if (precedence != default_precedence)
-    {
-      const struct prefixentry *old = precedence;
-      precedence = default_precedence;
-      free ((void *) old);
-    }
-
-  if (scopes != default_scopes)
-    {
-      const struct scopeentry *old = scopes;
-      scopes = default_scopes;
-      free ((void *) old);
-    }
-}
-
-
-struct prefixlist
-{
-  struct prefixentry entry;
-  struct prefixlist *next;
-};
-
-
-struct scopelist
-{
-  struct scopeentry entry;
-  struct scopelist *next;
-};
-
-
-static void
-free_prefixlist (struct prefixlist *list)
-{
-  while (list != NULL)
-    {
-      struct prefixlist *oldp = list;
-      list = list->next;
-      free (oldp);
-    }
-}
-
-
-static void
-free_scopelist (struct scopelist *list)
-{
-  while (list != NULL)
-    {
-      struct scopelist *oldp = list;
-      list = list->next;
-      free (oldp);
-    }
-}
-
-
-static int
-prefixcmp (const void *p1, const void *p2)
-{
-  const struct prefixentry *e1 = (const struct prefixentry *) p1;
-  const struct prefixentry *e2 = (const struct prefixentry *) p2;
-
-  if (e1->bits < e2->bits)
-    return 1;
-  if (e1->bits == e2->bits)
-    return 0;
-  return -1;
-}
-
-
-static int
-scopecmp (const void *p1, const void *p2)
-{
-  const struct scopeentry *e1 = (const struct scopeentry *) p1;
-  const struct scopeentry *e2 = (const struct scopeentry *) p2;
-
-  if (e1->netmask > e2->netmask)
-    return -1;
-  if (e1->netmask == e2->netmask)
-    return 0;
-  return 1;
-}
-
-static bool
-add_prefixlist (struct prefixlist **listp, size_t *lenp, bool *nullbitsp,
-		char *val1, char *val2, char **pos)
-{
-  struct in6_addr prefix;
-  unsigned long int bits;
-  unsigned long int val;
-  char *endp;
-
-  bits = 128;
-  __set_errno (0);
-  char *cp = strchr (val1, '/');
-  if (cp != NULL)
-    *cp++ = '\0';
-  *pos = cp;
-  if (inet_pton (AF_INET6, val1, &prefix)
-      && (cp == NULL
-	  || (bits = strtoul (cp, &endp, 10)) != ULONG_MAX
-	  || errno != ERANGE)
-      && *endp == '\0'
-      && bits <= 128
-      && ((val = strtoul (val2, &endp, 10)) != ULONG_MAX
-	  || errno != ERANGE)
-      && *endp == '\0'
-      && val <= INT_MAX)
-    {
-      struct prefixlist *newp = malloc (sizeof (*newp));
-      if (newp == NULL)
-	return false;
-
-      memcpy (&newp->entry.prefix, &prefix, sizeof (prefix));
-      newp->entry.bits = bits;
-      newp->entry.val = val;
-      newp->next = *listp;
-      *listp = newp;
-      ++*lenp;
-      *nullbitsp |= bits == 0;
-    }
-  return true;
-}
-
-static bool
-add_scopelist (struct scopelist **listp, size_t *lenp, bool *nullbitsp,
-	       const struct in6_addr *prefixp, unsigned long int bits,
-	       unsigned long int val)
-{
-  struct scopelist *newp = malloc (sizeof (*newp));
-  if (newp == NULL)
-    return false;
-
-  newp->entry.netmask = htonl (bits != 96 ? (0xffffffff << (128 - bits)) : 0);
-  newp->entry.addr32 = (prefixp->s6_addr32[3] & newp->entry.netmask);
-  newp->entry.scope = val;
-  newp->next = *listp;
-  *listp = newp;
-  ++*lenp;
-  *nullbitsp |= bits == 96;
-
-  return true;
-}
-
-static void
-gaiconf_init (void)
-{
-  struct prefixlist *labellist = NULL;
-  size_t nlabellist = 0;
-  bool labellist_nullbits = false;
-  struct prefixlist *precedencelist = NULL;
-  size_t nprecedencelist = 0;
-  bool precedencelist_nullbits = false;
-  struct scopelist *scopelist =  NULL;
-  size_t nscopelist = 0;
-  bool scopelist_nullbits = false;
-
-  FILE *fp = fopen (GAICONF_FNAME, "rce");
-  if (fp == NULL)
-    goto no_file;
-
-  struct __stat64_t64 st;
-  if (__fstat64_time64 (fileno (fp), &st) != 0)
-    {
-      fclose (fp);
-      goto no_file;
-    }
-
-  char *line = NULL;
-  size_t linelen = 0;
-
-  __fsetlocking (fp, FSETLOCKING_BYCALLER);
-
-  while (!feof_unlocked (fp))
-    {
-      ssize_t n = __getline (&line, &linelen, fp);
-      if (n <= 0)
-	break;
-
-      /* Handle comments.  No escaping possible so this is easy.  */
-      char *cp = strchr (line, '#');
-      if (cp != NULL)
-	*cp = '\0';
-
-      cp = line;
-      while (isspace (*cp))
-	++cp;
-
-      char *cmd = cp;
-      while (*cp != '\0' && !isspace (*cp))
-	++cp;
-      size_t cmdlen = cp - cmd;
-
-      if (*cp != '\0')
-	*cp++ = '\0';
-      while (isspace (*cp))
-	++cp;
-
-      char *val1 = cp;
-      while (*cp != '\0' && !isspace (*cp))
-	++cp;
-      size_t val1len = cp - cmd;
-
-      /* We always need at least two values.  */
-      if (val1len == 0)
-	continue;
-
-      if (*cp != '\0')
-	*cp++ = '\0';
-      while (isspace (*cp))
-	++cp;
-
-      char *val2 = cp;
-      while (*cp != '\0' && !isspace (*cp))
-	++cp;
-
-      /*  Ignore the rest of the line.  */
-      *cp = '\0';
-
-      switch (cmdlen)
-	{
-	case 5:
-	  if (strcmp (cmd, "label") == 0)
-	    {
-	      if (!add_prefixlist (&labellist, &nlabellist,
-				   &labellist_nullbits, val1, val2, &cp))
-		{
-		  free (line);
-		  fclose (fp);
-		  goto no_file;
-		}
-	    }
-	  break;
-
-	case 6:
-	  if (strcmp (cmd, "reload") == 0)
-	    {
-	      gaiconf_reload_flag = strcmp (val1, "yes") == 0;
-	      if (gaiconf_reload_flag)
-		gaiconf_reload_flag_ever_set = 1;
-	    }
-	  break;
-
-	case 7:
-	  if (strcmp (cmd, "scopev4") == 0)
-	    {
-	      struct in6_addr prefix;
-	      unsigned long int bits;
-	      unsigned long int val;
-	      char *endp;
-
-	      bits = 32;
-	      __set_errno (0);
-	      cp = strchr (val1, '/');
-	      if (cp != NULL)
-		*cp++ = '\0';
-	      if (inet_pton (AF_INET6, val1, &prefix))
-		{
-		  bits = 128;
-		  if (IN6_IS_ADDR_V4MAPPED (&prefix)
-		      && (cp == NULL
-			  || (bits = strtoul (cp, &endp, 10)) != ULONG_MAX
-			  || errno != ERANGE)
-		      && *endp == '\0'
-		      && bits >= 96
-		      && bits <= 128
-		      && ((val = strtoul (val2, &endp, 10)) != ULONG_MAX
-			  || errno != ERANGE)
-		      && *endp == '\0'
-		      && val <= INT_MAX)
-		    {
-		      if (!add_scopelist (&scopelist, &nscopelist,
-					  &scopelist_nullbits, &prefix,
-					  bits, val))
-			{
-			  free (line);
-			  fclose (fp);
-			  goto no_file;
-			}
-		    }
-		}
-	      else if (inet_pton (AF_INET, val1, &prefix.s6_addr32[3])
-		       && (cp == NULL
-			   || (bits = strtoul (cp, &endp, 10)) != ULONG_MAX
-			   || errno != ERANGE)
-		       && *endp == '\0'
-		       && bits <= 32
-		       && ((val = strtoul (val2, &endp, 10)) != ULONG_MAX
-			   || errno != ERANGE)
-		       && *endp == '\0'
-		       && val <= INT_MAX)
-		{
-		  if (!add_scopelist (&scopelist, &nscopelist,
-				      &scopelist_nullbits, &prefix,
-				      bits + 96, val))
-		    {
-		      free (line);
-		      fclose (fp);
-		      goto no_file;
-		    }
-		}
-	    }
-	  break;
-
-	case 10:
-	  if (strcmp (cmd, "precedence") == 0)
-	    {
-	      if (!add_prefixlist (&precedencelist, &nprecedencelist,
-				   &precedencelist_nullbits, val1, val2,
-				   &cp))
-		{
-		  free (line);
-		  fclose (fp);
-		  goto no_file;
-		}
-	    }
-	  break;
-	}
-    }
-
-  free (line);
-
-  fclose (fp);
-
-  /* Create the array for the labels.  */
-  struct prefixentry *new_labels;
-  if (nlabellist > 0)
-    {
-      if (!labellist_nullbits)
-	++nlabellist;
-      new_labels = malloc (nlabellist * sizeof (*new_labels));
-      if (new_labels == NULL)
-	goto no_file;
-
-      int i = nlabellist;
-      if (!labellist_nullbits)
-	{
-	  --i;
-	  memset (&new_labels[i].prefix, '\0', sizeof (struct in6_addr));
-	  new_labels[i].bits = 0;
-	  new_labels[i].val = 1;
-	}
-
-      struct prefixlist *l = labellist;
-      while (i-- > 0)
-	{
-	  new_labels[i] = l->entry;
-	  l = l->next;
-	}
-      free_prefixlist (labellist);
-      labellist = NULL;
-
-      /* Sort the entries so that the most specific ones are at
-	 the beginning.  */
-      qsort (new_labels, nlabellist, sizeof (*new_labels), prefixcmp);
-    }
-  else
-    new_labels = (struct prefixentry *) default_labels;
-
-  struct prefixentry *new_precedence;
-  if (nprecedencelist > 0)
-    {
-      if (!precedencelist_nullbits)
-	++nprecedencelist;
-      new_precedence = malloc (nprecedencelist * sizeof (*new_precedence));
-      if (new_precedence == NULL)
-	{
-	  if (new_labels != default_labels)
-	    free (new_labels);
-	  goto no_file;
-	}
-
-      int i = nprecedencelist;
-      if (!precedencelist_nullbits)
-	{
-	  --i;
-	  memset (&new_precedence[i].prefix, '\0',
-		  sizeof (struct in6_addr));
-	  new_precedence[i].bits = 0;
-	  new_precedence[i].val = 40;
-	}
-
-      struct prefixlist *l = precedencelist;
-      while (i-- > 0)
-	{
-	  new_precedence[i] = l->entry;
-	  l = l->next;
-	}
-      free_prefixlist (precedencelist);
-      precedencelist = NULL;
-
-      /* Sort the entries so that the most specific ones are at
-	 the beginning.  */
-      qsort (new_precedence, nprecedencelist, sizeof (*new_precedence),
-	     prefixcmp);
-    }
-  else
-    new_precedence = (struct prefixentry *) default_precedence;
-
-  struct scopeentry *new_scopes;
-  if (nscopelist > 0)
-    {
-      if (!scopelist_nullbits)
-	++nscopelist;
-      new_scopes = malloc (nscopelist * sizeof (*new_scopes));
-      if (new_scopes == NULL)
-	{
-	  if (new_labels != default_labels)
-	    free (new_labels);
-	  if (new_precedence != default_precedence)
-	    free (new_precedence);
-	  goto no_file;
-	}
-
-      int i = nscopelist;
-      if (!scopelist_nullbits)
-	{
-	  --i;
-	  new_scopes[i].addr32 = 0;
-	  new_scopes[i].netmask = 0;
-	  new_scopes[i].scope = 14;
-	}
-
-      struct scopelist *l = scopelist;
-      while (i-- > 0)
-	{
-	  new_scopes[i] = l->entry;
-	  l = l->next;
-	}
-      free_scopelist (scopelist);
-
-      /* Sort the entries so that the most specific ones are at
-	 the beginning.  */
-      qsort (new_scopes, nscopelist, sizeof (*new_scopes),
-	     scopecmp);
-    }
-  else
-    new_scopes = (struct scopeentry *) default_scopes;
-
-  /* Now we are ready to replace the values.  */
-  const struct prefixentry *old = labels;
-  labels = new_labels;
-  if (old != default_labels)
-    free ((void *) old);
-
-  old = precedence;
-  precedence = new_precedence;
-  if (old != default_precedence)
-    free ((void *) old);
-
-  const struct scopeentry *oldscope = scopes;
-  scopes = new_scopes;
-  if (oldscope != default_scopes)
-    free ((void *) oldscope);
-
-  save_gaiconf_mtime (&st);
-  return;
-
-no_file:
-  free_prefixlist (labellist);
-  free_prefixlist (precedencelist);
-  free_scopelist (scopelist);
-
-  /* If we previously read the file but it is gone now, free the old data and
-     use the builtin one.  Leave the reload flag alone.  */
-  __libc_getaddrinfo_freemem ();
-}
-
-
-static void
-gaiconf_reload (void)
-{
-  struct __stat64_t64 st;
-  if (__stat64_time64 (GAICONF_FNAME, &st) != 0
-      || !check_gaiconf_mtime (&st))
-    gaiconf_init ();
-}
-
-static bool
-try_connect (int *fdp, int *afp, struct sockaddr_in6 *source_addrp,
-	     const struct sockaddr *addr, socklen_t addrlen, int family)
-{
-  int fd = *fdp;
-  int af = *afp;
-  socklen_t sl = sizeof (*source_addrp);
-
-  while (true)
-    {
-      if (fd != -1 && __connect (fd, addr, addrlen) == 0
-	  && __getsockname (fd, (struct sockaddr *) source_addrp, &sl) == 0)
-	return true;
-
-      if (errno == EAFNOSUPPORT && af == AF_INET6 && family == AF_INET)
-	{
-	  /* This could mean IPv6 sockets are IPv6-only.  */
-	  if (fd != -1)
-	    __close_nocancel_nostatus (fd);
-	  *afp = af = AF_INET;
-	  *fdp = fd = __socket (AF_INET, SOCK_DGRAM | SOCK_CLOEXEC,
-				IPPROTO_IP);
-	  continue;
-	}
-
-      return false;
-    }
-
-  __builtin_unreachable ();
-}
-
-int
-getaddrinfo (const char *name, const char *service,
-	     const struct addrinfo *hints, struct addrinfo **pai)
-{
-  int i = 0, last_i = 0;
-  int nresults = 0;
-  struct addrinfo *p = NULL;
-  struct gaih_service gaih_service, *pservice;
-  struct addrinfo local_hints;
-
-  if (name != NULL && name[0] == '*' && name[1] == 0)
-    name = NULL;
-
-  if (service != NULL && service[0] == '*' && service[1] == 0)
-    service = NULL;
-
-  if (name == NULL && service == NULL)
-    return EAI_NONAME;
-
-  if (hints == NULL)
-    hints = &default_hints;
-
-  if (hints->ai_flags
-      & ~(AI_PASSIVE|AI_CANONNAME|AI_NUMERICHOST|AI_ADDRCONFIG|AI_V4MAPPED
-	  |AI_IDN|AI_CANONIDN|DEPRECATED_AI_IDN
-	  |AI_NUMERICSERV|AI_ALL))
-    return EAI_BADFLAGS;
-
-  if ((hints->ai_flags & AI_CANONNAME) && name == NULL)
-    return EAI_BADFLAGS;
-
-  if (hints->ai_family != AF_UNSPEC && hints->ai_family != AF_INET
-      && hints->ai_family != AF_INET6)
-    return EAI_FAMILY;
-
-  struct in6addrinfo *in6ai = NULL;
-  size_t in6ailen = 0;
-  bool seen_ipv4 = false;
-  bool seen_ipv6 = false;
-  bool check_pf_called = false;
-
-  if (hints->ai_flags & AI_ADDRCONFIG)
-    {
-      /* We might need information about what interfaces are available.
-	 Also determine whether we have IPv4 or IPv6 interfaces or both.  We
-	 cannot cache the results since new interfaces could be added at
-	 any time.  */
-      __check_pf (&seen_ipv4, &seen_ipv6, &in6ai, &in6ailen);
-      check_pf_called = true;
-
-      /* Now make a decision on what we return, if anything.  */
-      if (hints->ai_family == PF_UNSPEC && (seen_ipv4 || seen_ipv6))
-	{
-	  /* If we haven't seen both IPv4 and IPv6 interfaces we can
-	     narrow down the search.  */
-	  if (seen_ipv4 != seen_ipv6)
-	    {
-	      local_hints = *hints;
-	      local_hints.ai_family = seen_ipv4 ? PF_INET : PF_INET6;
-	      hints = &local_hints;
-	    }
-	}
-      else if ((hints->ai_family == PF_INET && ! seen_ipv4)
-	       || (hints->ai_family == PF_INET6 && ! seen_ipv6))
-	{
-	  /* We cannot possibly return a valid answer.  */
-	  __free_in6ai (in6ai);
-	  return EAI_NONAME;
-	}
-    }
-
-  if (service && service[0])
-    {
-      char *c;
-      gaih_service.name = service;
-      gaih_service.num = strtoul (gaih_service.name, &c, 10);
-      if (*c != '\0')
-	{
-	  if (hints->ai_flags & AI_NUMERICSERV)
-	    {
-	      __free_in6ai (in6ai);
-	      return EAI_NONAME;
-	    }
-
-	  gaih_service.num = -1;
-	}
-
-      pservice = &gaih_service;
-    }
-  else
-    pservice = NULL;
-
-  struct addrinfo **end = &p;
-  unsigned int naddrs = 0;
-  struct scratch_buffer tmpbuf;
-
-  scratch_buffer_init (&tmpbuf);
-  last_i = gaih_inet (name, pservice, hints, end, &naddrs, &tmpbuf);
-  scratch_buffer_free (&tmpbuf);
-
-  if (last_i != 0)
-    {
-      freeaddrinfo (p);
-      __free_in6ai (in6ai);
-
-      return -last_i;
-    }
-
-  while (*end)
-    {
-      end = &((*end)->ai_next);
-      ++nresults;
-    }
-
-  if (naddrs > 1)
-    {
-      /* Read the config file.  */
-      __libc_once_define (static, once);
-      __typeof (once) old_once = once;
-      __libc_once (once, gaiconf_init);
-      /* Sort results according to RFC 3484.  */
-      struct sort_result *results;
-      size_t *order;
-      struct addrinfo *q;
-      struct addrinfo *last = NULL;
-      char *canonname = NULL;
-      struct scratch_buffer buf;
-      scratch_buffer_init (&buf);
-
-      if (!scratch_buffer_set_array_size (&buf, nresults,
-					  sizeof (*results) + sizeof (size_t)))
-	{
-	  __free_in6ai (in6ai);
-	  return EAI_MEMORY;
-	}
-      results = buf.data;
-
-      order = (size_t *) (results + nresults);
-
-      /* Now we definitely need the interface information.  */
-      if (! check_pf_called)
-	__check_pf (&seen_ipv4, &seen_ipv6, &in6ai, &in6ailen);
-
-      /* If we have information about deprecated and temporary addresses
-	 sort the array now.  */
-      if (in6ai != NULL)
-	qsort (in6ai, in6ailen, sizeof (*in6ai), in6aicmp);
-
-      int fd = -1;
-      int af = AF_UNSPEC;
-
-      for (i = 0, q = p; q != NULL; ++i, last = q, q = q->ai_next)
-	{
-	  results[i].dest_addr = q;
-	  results[i].native = -1;
-	  order[i] = i;
-
-	  /* If we just looked up the address for a different
-	     protocol, reuse the result.  */
-	  if (last != NULL && last->ai_addrlen == q->ai_addrlen
-	      && memcmp (last->ai_addr, q->ai_addr, q->ai_addrlen) == 0)
-	    {
-	      memcpy (&results[i].source_addr, &results[i - 1].source_addr,
-		      results[i - 1].source_addr_len);
-	      results[i].source_addr_len = results[i - 1].source_addr_len;
-	      results[i].got_source_addr = results[i - 1].got_source_addr;
-	      results[i].source_addr_flags = results[i - 1].source_addr_flags;
-	      results[i].prefixlen = results[i - 1].prefixlen;
-	      results[i].index = results[i - 1].index;
-	    }
-	  else
-	    {
-	      results[i].got_source_addr = false;
-	      results[i].source_addr_flags = 0;
-	      results[i].prefixlen = 0;
-	      results[i].index = 0xffffffffu;
-
-	      /* We overwrite the type with SOCK_DGRAM since we do not
-		 want connect() to connect to the other side.  If we
-		 cannot determine the source address remember this
-		 fact.  */
-	      if (fd == -1 || (af == AF_INET && q->ai_family == AF_INET6))
-		{
-		  if (fd != -1)
-		    __close_nocancel_nostatus (fd);
-		  af = q->ai_family;
-		  fd = __socket (af, SOCK_DGRAM | SOCK_CLOEXEC, IPPROTO_IP);
-		}
-	      else
-		{
-		  /* Reset the connection.  */
-		  struct sockaddr sa = { .sa_family = AF_UNSPEC };
-		  __connect (fd, &sa, sizeof (sa));
-		}
-
-	      if (try_connect (&fd, &af, &results[i].source_addr, q->ai_addr,
-			       q->ai_addrlen, q->ai_family))
-		{
-		  results[i].source_addr_len = sizeof (results[i].source_addr);
-		  results[i].got_source_addr = true;
-
-		  if (in6ai != NULL)
-		    {
-		      /* See whether the source address is on the list of
-			 deprecated or temporary addresses.  */
-		      struct in6addrinfo tmp;
-
-		      if (q->ai_family == AF_INET && af == AF_INET)
-			{
-			  struct sockaddr_in *sinp
-			    = (struct sockaddr_in *) &results[i].source_addr;
-			  tmp.addr[0] = 0;
-			  tmp.addr[1] = 0;
-			  tmp.addr[2] = htonl (0xffff);
-			  /* Special case for lo interface, the source address
-			     being possibly different than the interface
-			     address. */
-			  if ((ntohl(sinp->sin_addr.s_addr) & 0xff000000)
-			      == 0x7f000000)
-			    tmp.addr[3] = htonl(0x7f000001);
-			  else
-			    tmp.addr[3] = sinp->sin_addr.s_addr;
-			}
-		      else
-			{
-			  struct sockaddr_in6 *sin6p
-			    = (struct sockaddr_in6 *) &results[i].source_addr;
-			  memcpy (tmp.addr, &sin6p->sin6_addr, IN6ADDRSZ);
-			}
-
-		      struct in6addrinfo *found
-			= bsearch (&tmp, in6ai, in6ailen, sizeof (*in6ai),
-				   in6aicmp);
-		      if (found != NULL)
-			{
-			  results[i].source_addr_flags = found->flags;
-			  results[i].prefixlen = found->prefixlen;
-			  results[i].index = found->index;
-			}
-		    }
-
-		  if (q->ai_family == AF_INET && af == AF_INET6)
-		    {
-		      /* We have to convert the address.  The socket is
-			 IPv6 and the request is for IPv4.  */
-		      struct sockaddr_in6 *sin6
-			= (struct sockaddr_in6 *) &results[i].source_addr;
-		      struct sockaddr_in *sin
-			= (struct sockaddr_in *) &results[i].source_addr;
-		      assert (IN6_IS_ADDR_V4MAPPED (sin6->sin6_addr.s6_addr32));
-		      sin->sin_family = AF_INET;
-		      /* We do not have to initialize sin_port since this
-			 fields has the same position and size in the IPv6
-			 structure.  */
-		      assert (offsetof (struct sockaddr_in, sin_port)
-			      == offsetof (struct sockaddr_in6, sin6_port));
-		      assert (sizeof (sin->sin_port)
-			      == sizeof (sin6->sin6_port));
-		      memcpy (&sin->sin_addr,
-			      &sin6->sin6_addr.s6_addr32[3], INADDRSZ);
-		      results[i].source_addr_len = sizeof (struct sockaddr_in);
-		    }
-		}
-	      else
-		/* Just make sure that if we have to process the same
-		   address again we do not copy any memory.  */
-		results[i].source_addr_len = 0;
-	    }
-
-	  /* Remember the canonical name.  */
-	  if (q->ai_canonname != NULL)
-	    {
-	      assert (canonname == NULL);
-	      canonname = q->ai_canonname;
-	      q->ai_canonname = NULL;
-	    }
-	}
-
-      if (fd != -1)
-	__close_nocancel_nostatus (fd);
-
-      /* We got all the source addresses we can get, now sort using
-	 the information.  */
-      struct sort_result_combo src
-	= { .results = results, .nresults = nresults };
-      if (__glibc_unlikely (gaiconf_reload_flag_ever_set))
-	{
-	  __libc_lock_define_initialized (static, lock);
-
-	  __libc_lock_lock (lock);
-	  if (__libc_once_get (old_once) && gaiconf_reload_flag)
-	    gaiconf_reload ();
-	  __qsort_r (order, nresults, sizeof (order[0]), rfc3484_sort, &src);
-	  __libc_lock_unlock (lock);
-	}
-      else
-	__qsort_r (order, nresults, sizeof (order[0]), rfc3484_sort, &src);
-
-      /* Queue the results up as they come out of sorting.  */
-      q = p = results[order[0]].dest_addr;
-      for (i = 1; i < nresults; ++i)
-	q = q->ai_next = results[order[i]].dest_addr;
-      q->ai_next = NULL;
-
-      /* Fill in the canonical name into the new first entry.  */
-      p->ai_canonname = canonname;
-
-      scratch_buffer_free (&buf);
-    }
-
-  __free_in6ai (in6ai);
-
-  if (p)
-    {
-      *pai = p;
-      return 0;
-    }
-
-  return last_i ? -last_i : EAI_NONAME;
-}
-libc_hidden_def (getaddrinfo)
-
-nss_interface_function (getaddrinfo)
-
-void
-freeaddrinfo (struct addrinfo *ai)
-{
-  struct addrinfo *p;
-
-  while (ai != NULL)
-    {
-      p = ai;
-      ai = ai->ai_next;
-      free (p->ai_canonname);
-      free (p);
-    }
-}
-libc_hidden_def (freeaddrinfo)