]> git.saurik.com Git - apple/xnu.git/blobdiff - bsd/netinet6/in6.c
xnu-1699.32.7.tar.gz
[apple/xnu.git] / bsd / netinet6 / in6.c
index 1a16e41064e27621f52a5e1c66eba23bdbe1ee73..f11a990414e5ad1a4b3e436ad263f8c9cd75ee31 100644 (file)
@@ -1,4 +1,33 @@
-/*     $KAME: in6.c,v 1.72 2000/03/30 03:45:26 itojun Exp $    */
+/*
+ * Copyright (c) 2003-2011 Apple Inc. All rights reserved.
+ *
+ * @APPLE_OSREFERENCE_LICENSE_HEADER_START@
+ *
+ * This file contains Original Code and/or Modifications of Original Code
+ * as defined in and that are subject to the Apple Public Source License
+ * Version 2.0 (the 'License'). You may not use this file except in
+ * compliance with the License. The rights granted to you under the License
+ * may not be used to create, or enable the creation or redistribution of,
+ * unlawful or unlicensed copies of an Apple operating system, or to
+ * circumvent, violate, or enable the circumvention or violation of, any
+ * terms of an Apple operating system software license agreement.
+ *
+ * Please obtain a copy of the License at
+ * http://www.opensource.apple.com/apsl/ and read it before using this file.
+ *
+ * The Original Code and all software distributed under the License are
+ * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
+ * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
+ * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
+ * Please see the License for the specific language governing rights and
+ * limitations under the License.
+ *
+ * @APPLE_OSREFERENCE_LICENSE_HEADER_END@
+ */
+
+/*     $FreeBSD: src/sys/netinet6/in6.c,v 1.7.2.7 2001/08/06 20:26:22 ume Exp $        */
+/*     $KAME: in6.c,v 1.187 2001/05/24 07:43:59 itojun Exp $   */
 
 /*
  * Copyright (C) 1995, 1996, 1997, and 1998 WIDE Project.
  *     @(#)in.c        8.2 (Berkeley) 11/15/93
  */
 
-#if (defined(__FreeBSD__) && __FreeBSD__ >= 3) || defined(__NetBSD__)
-#include "opt_inet.h"
-#endif
 
 #include <sys/param.h>
-#if !(defined(__FreeBSD__) && __FreeBSD__ >= 3)
 #include <sys/ioctl.h>
-#endif
 #include <sys/errno.h>
 #include <sys/malloc.h>
 #include <sys/socket.h>
 #include <sys/time.h>
 #include <sys/kernel.h>
 #include <sys/syslog.h>
+#include <sys/kern_event.h>
+#include <sys/mcache.h>
+#include <sys/protosw.h>
+
+#include <kern/locks.h>
+#include <kern/zalloc.h>
+#include <libkern/OSAtomic.h>
+#include <machine/machine_routines.h>
 
 #include <net/if.h>
 #include <net/if_types.h>
+#include <net/if_var.h>
 #include <net/route.h>
-#include "gif.h"
-#if NGIF > 0
-#include <net/if_gif.h>
-#endif
 #include <net/if_dl.h>
+#include <net/kpi_protocol.h>
 
 #include <netinet/in.h>
 #include <netinet/in_var.h>
-#if __NetBSD__
-#include <net/if_ether.h>
-#else
 #include <netinet/if_ether.h>
-#endif
+#include <netinet/in_systm.h>
+#include <netinet/ip.h>
+#include <netinet/in_pcb.h>
+#include <netinet/icmp6.h>
 
 #include <netinet6/nd6.h>
 #include <netinet/ip6.h>
 #include <netinet6/mld6_var.h>
 #include <netinet6/ip6_mroute.h>
 #include <netinet6/in6_ifattach.h>
+#include <netinet6/scope6_var.h>
+#include <netinet6/in6_var.h>
+#include <netinet6/in6_pcb.h>
 
 #include <net/net_osdep.h>
 
-#if MIP6
-#include <netinet6/mip6.h>
-#include <netinet6/mip6_common.h>
-
-struct nd_prefix *(*mip6_get_home_prefix_hook) __P((void));
-#endif /* MIP6 */
-
-#if defined(__FreeBSD__) && __FreeBSD__ >= 3
-MALLOC_DEFINE(M_IPMADDR, "in6_multi", "internet multicast address");
-#endif
+#if PF
+#include <net/pfvar.h>
+#endif /* PF */
 
-/*
+ /*
  * Definitions of some costant IP6 addresses.
  */
 const struct in6_addr in6addr_any = IN6ADDR_ANY_INIT;
@@ -130,63 +156,76 @@ const struct in6_addr in6addr_linklocal_allnodes =
        IN6ADDR_LINKLOCAL_ALLNODES_INIT;
 const struct in6_addr in6addr_linklocal_allrouters =
        IN6ADDR_LINKLOCAL_ALLROUTERS_INIT;
+const struct in6_addr in6addr_linklocal_allv2routers =
+       IN6ADDR_LINKLOCAL_ALLV2ROUTERS_INIT;
 
 const struct in6_addr in6mask0 = IN6MASK0;
+const struct in6_addr in6mask7 = IN6MASK7;
+const struct in6_addr in6mask16 = IN6MASK16;
 const struct in6_addr in6mask32 = IN6MASK32;
 const struct in6_addr in6mask64 = IN6MASK64;
 const struct in6_addr in6mask96 = IN6MASK96;
 const struct in6_addr in6mask128 = IN6MASK128;
 
-#if !defined(__bsdi__) && !(defined(__FreeBSD__) && __FreeBSD__ < 3) && !defined (__APPLE__)
-static int in6_lifaddr_ioctl __P((struct socket *, u_long, caddr_t,
-       struct ifnet *, struct proc *));
-#else
-static int in6_lifaddr_ioctl __P((struct socket *, u_long, caddr_t,
-       struct ifnet *));
-#endif
+const struct sockaddr_in6 sa6_any = {sizeof(sa6_any), AF_INET6,
+                                    0, 0, IN6ADDR_ANY_INIT, 0};
+
+static int in6_lifaddr_ioctl(struct socket *, u_long, caddr_t,
+       struct ifnet *, struct proc *);
+static int in6_ifinit(struct ifnet *, struct in6_ifaddr *,
+                          struct sockaddr_in6 *, int);
+static void in6_unlink_ifa(struct in6_ifaddr *, struct ifnet *);
+static struct in6_ifaddr *in6_ifaddr_alloc(int);
+static void in6_ifaddr_attached(struct ifaddr *);
+static void in6_ifaddr_detached(struct ifaddr *);
+static void in6_ifaddr_free(struct ifaddr *);
+static void in6_ifaddr_trace(struct ifaddr *, int);
+static struct in6_aliasreq *in6_aliasreq_to_native(void *, int,
+    struct in6_aliasreq *);
+
+extern lck_mtx_t *nd6_mutex;
+extern int in6_init2done;
+
+#define        IN6IFA_TRACE_HIST_SIZE  32      /* size of trace history */
+
+/* For gdb */
+__private_extern__ unsigned int in6ifa_trace_hist_size = IN6IFA_TRACE_HIST_SIZE;
+
+struct in6_ifaddr_dbg {
+       struct in6_ifaddr       in6ifa;                 /* in6_ifaddr */
+       struct in6_ifaddr       in6ifa_old;             /* saved in6_ifaddr */
+       u_int16_t               in6ifa_refhold_cnt;     /* # of IFA_ADDREF */
+       u_int16_t               in6ifa_refrele_cnt;     /* # of IFA_REMREF */
+       /*
+        * Alloc and free callers.
+        */
+       ctrace_t                in6ifa_alloc;
+       ctrace_t                in6ifa_free;
+       /*
+        * Circular lists of IFA_ADDREF and IFA_REMREF callers.
+        */
+       ctrace_t                in6ifa_refhold[IN6IFA_TRACE_HIST_SIZE];
+       ctrace_t                in6ifa_refrele[IN6IFA_TRACE_HIST_SIZE];
+       /*
+        * Trash list linkage
+        */
+       TAILQ_ENTRY(in6_ifaddr_dbg) in6ifa_trash_link;
+};
 
-#if defined(__FreeBSD__) && __FreeBSD__ >= 3 || defined (__APPLE__)
-struct in6_multihead in6_multihead;    /* XXX BSS initialization */
-#else
-/*
- * This structure is used to keep track of in6_multi chains which belong to
- * deleted interface addresses.
- */
-static LIST_HEAD(, multi6_kludge) in6_mk; /* XXX BSS initialization */
+/* List of trash in6_ifaddr entries protected by in6ifa_trash_lock */
+static TAILQ_HEAD(, in6_ifaddr_dbg) in6ifa_trash_head;
+static decl_lck_mtx_data(, in6ifa_trash_lock);
 
-struct multi6_kludge {
-       LIST_ENTRY(multi6_kludge) mk_entry;
-       struct ifnet *mk_ifp;
-       struct in6_multihead mk_head;
-};
-#endif
+#if DEBUG
+static unsigned int in6ifa_debug = 1;          /* debugging (enabled) */
+#else
+static unsigned int in6ifa_debug;              /* debugging (disabled) */
+#endif /* !DEBUG */
+static unsigned int in6ifa_size;               /* size of zone element */
+static struct zone *in6ifa_zone;               /* zone for in6_ifaddr */
 
-/*
- * Check if the loopback entry will be automatically generated.
- *   if 0 returned, will not be automatically generated.
- *   if 1 returned, will be automatically generated.
- */
-static int
-in6_is_ifloop_auto(struct ifaddr *ifa)
-{
-#define SIN6(s) ((struct sockaddr_in6 *)s)
-       /*
-        * If RTF_CLONING is unset, or (IFF_LOOPBACK | IFF_POINTOPOINT),
-        * or netmask is all0 or all1, then cloning will not happen,
-        * then we can't rely on its loopback entry generation.
-        */
-       if ((ifa->ifa_flags & RTF_CLONING) == 0 ||
-           (ifa->ifa_ifp->if_flags & (IFF_LOOPBACK | IFF_POINTOPOINT)) ||
-           (SIN6(ifa->ifa_netmask)->sin6_len == sizeof(struct sockaddr_in6)
-            &&
-            IN6_ARE_ADDR_EQUAL(&SIN6(ifa->ifa_netmask)->sin6_addr,
-                               &in6mask128)) ||
-           ((struct sockaddr_in6 *)ifa->ifa_netmask)->sin6_len == 0)
-               return 0;
-       else
-               return 1;
-#undef SIN6
-}
+#define        IN6IFA_ZONE_MAX         64              /* maximum elements in zone */
+#define        IN6IFA_ZONE_NAME        "in6_ifaddr"    /* zone name */
 
 /*
  * Subroutine for in6_ifaddloop() and in6_ifremloop().
@@ -195,62 +234,98 @@ in6_is_ifloop_auto(struct ifaddr *ifa)
 static void
 in6_ifloop_request(int cmd, struct ifaddr *ifa)
 {
-       struct sockaddr_in6 lo_sa;
        struct sockaddr_in6 all1_sa;
        struct rtentry *nrt = NULL;
-       
-       bzero(&lo_sa, sizeof(lo_sa));
+       int e;
+
        bzero(&all1_sa, sizeof(all1_sa));
-       lo_sa.sin6_family = AF_INET6;
-       lo_sa.sin6_len = sizeof(struct sockaddr_in6);
-       all1_sa = lo_sa;
-       lo_sa.sin6_addr = in6addr_loopback;
+       all1_sa.sin6_family = AF_INET6;
+       all1_sa.sin6_len = sizeof(struct sockaddr_in6);
        all1_sa.sin6_addr = in6mask128;
-       
-       /* So we add or remove static loopback entry, here. */
-       rtrequest(cmd, ifa->ifa_addr,
-                 (struct sockaddr *)&lo_sa,
-                 (struct sockaddr *)&all1_sa,
-                 RTF_UP|RTF_HOST, &nrt);
 
+       /*
+        * We specify the address itself as the gateway, and set the
+        * RTF_LLINFO flag, so that the corresponding host route would have
+        * the flag, and thus applications that assume traditional behavior
+        * would be happy.  Note that we assume the caller of the function
+        * (probably implicitly) set nd6_rtrequest() to ifa->ifa_rtrequest,
+        * which changes the outgoing interface to the loopback interface.
+        * ifa_addr for INET6 is set once during init; no need to hold lock.
+        */
+       lck_mtx_lock(rnh_lock);
+       e = rtrequest_locked(cmd, ifa->ifa_addr, ifa->ifa_addr,
+                     (struct sockaddr *)&all1_sa,
+                     RTF_UP|RTF_HOST|RTF_LLINFO, &nrt);
+       if (e != 0) {
+               log(LOG_ERR, "in6_ifloop_request: "
+                   "%s operation failed for %s (errno=%d)\n",
+                   cmd == RTM_ADD ? "ADD" : "DELETE",
+                   ip6_sprintf(&((struct in6_ifaddr *)ifa)->ia_addr.sin6_addr),
+                   e);
+       }
+
+       if (nrt != NULL)
+               RT_LOCK(nrt);
        /*
         * Make sure rt_ifa be equal to IFA, the second argument of the
         * function.
-        * We need this because when we refer rt_ifa->ia6_flags in ip6_input,
-        * we assume that the rt_ifa points to the address instead of the
-        * loopback address.
+        * We need this because when we refer to rt_ifa->ia6_flags in
+        * ip6_input, we assume that the rt_ifa points to the address instead
+        * of the loopback address.
         */
        if (cmd == RTM_ADD && nrt && ifa != nrt->rt_ifa) {
-               IFAFREE(nrt->rt_ifa);
-               ifa->ifa_refcnt++;
-               nrt->rt_ifa = ifa;
-               nrt->rt_dlt = ifa->ifa_dlt;
+               rtsetifa(nrt, ifa);
        }
-       if (nrt)
-               nrt->rt_refcnt--;
+
+       /*
+        * Report the addition/removal of the address to the routing socket.
+        * XXX: since we called rtinit for a p2p interface with a destination,
+        *      we end up reporting twice in such a case.  Should we rather
+        *      omit the second report?
+        */
+       if (nrt != NULL) {
+               rt_newaddrmsg(cmd, ifa, e, nrt);
+               if (cmd == RTM_DELETE) {
+                       RT_UNLOCK(nrt);
+                       rtfree_locked(nrt);
+               } else {
+                       /* the cmd must be RTM_ADD here */
+                       RT_REMREF_LOCKED(nrt);
+                       RT_UNLOCK(nrt);
+               }
+       }
+       lck_mtx_unlock(rnh_lock);
 }
 
 /*
- * Add ownaddr as loopback rtentry, if necessary(ex. on p2p link).
- * Because, KAME needs loopback rtentry for ownaddr check in
- * ip6_input().
+ * Add ownaddr as loopback rtentry.  We previously add the route only if
+ * necessary (ex. on a p2p link).  However, since we now manage addresses
+ * separately from prefixes, we should always add the route.  We can't
+ * rely on the cloning mechanism from the corresponding interface route
+ * any more.
  */
 static void
 in6_ifaddloop(struct ifaddr *ifa)
 {
-       if (!in6_is_ifloop_auto(ifa)) {
-               struct rtentry *rt;
-
-               /* If there is no loopback entry, allocate one. */
-               rt = rtalloc1(ifa->ifa_addr, 0
-#if defined(__FreeBSD__) || defined (__APPLE__)
-                             , 0
-#endif /* __FreeBSD__ */
-                             );
-               if (rt == 0 || (rt->rt_ifp->if_flags & IFF_LOOPBACK) == 0)
-                       in6_ifloop_request(RTM_ADD, ifa);
-               if (rt)
-                       rt->rt_refcnt--;
+       struct rtentry *rt;
+
+       /*
+        * If there is no loopback entry, allocate one.  ifa_addr for
+        * INET6 is set once during init; no need to hold lock.
+        */
+       rt = rtalloc1(ifa->ifa_addr, 0, 0);
+       if (rt != NULL)
+               RT_LOCK(rt);
+       if (rt == NULL || (rt->rt_flags & RTF_HOST) == 0 ||
+           (rt->rt_ifp->if_flags & IFF_LOOPBACK) == 0) {
+               if (rt != NULL) {
+                       RT_REMREF_LOCKED(rt);
+                       RT_UNLOCK(rt);
+               }
+               in6_ifloop_request(RTM_ADD, ifa);
+       } else if (rt != NULL) {
+               RT_REMREF_LOCKED(rt);
+               RT_UNLOCK(rt);
        }
 }
 
@@ -261,69 +336,101 @@ in6_ifaddloop(struct ifaddr *ifa)
 static void
 in6_ifremloop(struct ifaddr *ifa)
 {
-       if (!in6_is_ifloop_auto(ifa)) {
-               struct in6_ifaddr *ia;
-               int ia_count = 0;
-
-               /* If only one ifa for the loopback entry, delete it. */
-               for (ia = in6_ifaddr; ia; ia = ia->ia_next) {
-                       if (IN6_ARE_ADDR_EQUAL(IFA_IN6(ifa),
-                                              &ia->ia_addr.sin6_addr)) {
-                               ia_count++;
-                               if (ia_count > 1)
-                                       break;
+       struct in6_ifaddr *ia;
+       struct rtentry *rt;
+       int ia_count = 0;
+
+       /*
+        * Some of BSD variants do not remove cloned routes
+        * from an interface direct route, when removing the direct route
+        * (see comments in net/net_osdep.h).  Even for variants that do remove
+        * cloned routes, they could fail to remove the cloned routes when
+        * we handle multple addresses that share a common prefix.
+        * So, we should remove the route corresponding to the deleted address
+        * regardless of the result of in6_is_ifloop_auto().
+        */
+
+       /*
+        * Delete the entry only if exact one ifa exists.  More than one ifa
+        * can exist if we assign a same single address to multiple
+        * (probably p2p) interfaces.
+        * XXX: we should avoid such a configuration in IPv6...
+        */
+       lck_rw_lock_exclusive(&in6_ifaddr_rwlock);
+       for (ia = in6_ifaddrs; ia; ia = ia->ia_next) {
+               IFA_LOCK(&ia->ia_ifa);
+               if (IN6_ARE_ADDR_EQUAL(IFA_IN6(ifa), &ia->ia_addr.sin6_addr)) {
+                       ia_count++;
+                       if (ia_count > 1) {
+                               IFA_UNLOCK(&ia->ia_ifa);
+                               break;
                        }
                }
-               if (ia_count == 1)
-                       in6_ifloop_request(RTM_DELETE, ifa);
+               IFA_UNLOCK(&ia->ia_ifa);
        }
-}
-
-int
-in6_ifindex2scopeid(idx)
-       int idx;
-{
-       struct ifnet *ifp;
-       struct ifaddr *ifa;
-       struct sockaddr_in6 *sin6;
+       lck_rw_done(&in6_ifaddr_rwlock);
 
-       if (idx < 0 || if_index < idx)
-               return -1;
-       ifp = ifindex2ifnet[idx];
-
-#if defined(__bsdi__) || (defined(__FreeBSD__) && __FreeBSD__ < 3) 
-       for (ifa = ifp->if_addrlist; ifa; ifa = ifa->ifa_next)
-#else
-       for (ifa = ifp->if_addrlist.tqh_first; ifa; ifa = ifa->ifa_list.tqe_next)
-#endif
-       {
-               if (ifa->ifa_addr->sa_family != AF_INET6)
-                       continue;
-               sin6 = (struct sockaddr_in6 *)ifa->ifa_addr;
-               if (IN6_IS_ADDR_SITELOCAL(&sin6->sin6_addr))
-                       return sin6->sin6_scope_id & 0xffff;
+       if (ia_count == 1) {
+               /*
+                * Before deleting, check if a corresponding loopbacked host
+                * route surely exists.  With this check, we can avoid to
+                * delete an interface direct route whose destination is same
+                * as the address being removed.  This can happen when removing
+                * a subnet-router anycast address on an interface attahced
+                * to a shared medium.  ifa_addr for INET6 is set once during
+                * init; no need to hold lock.
+                */
+               rt = rtalloc1(ifa->ifa_addr, 0, 0);
+               if (rt != NULL) {
+                       RT_LOCK(rt);
+                       if ((rt->rt_flags & RTF_HOST) != 0 &&
+                           (rt->rt_ifp->if_flags & IFF_LOOPBACK) != 0) {
+                               RT_REMREF_LOCKED(rt);
+                               RT_UNLOCK(rt);
+                               in6_ifloop_request(RTM_DELETE, ifa);
+                       } else {
+                               RT_UNLOCK(rt);
+                       }
+               }
        }
-
-       return -1;
 }
 
+
 int
-in6_mask2len(mask)
+in6_mask2len(mask, lim0)
        struct in6_addr *mask;
+       u_char *lim0;
 {
-       int x, y;
-
-       for (x = 0; x < sizeof(*mask); x++) {
-               if (mask->s6_addr8[x] != 0xff)
+       int x = 0, y;
+       u_char *lim = lim0, *p;
+
+       /* ignore the scope_id part */
+       if (lim0 == NULL || lim0 - (u_char *)mask > sizeof(*mask))
+               lim = (u_char *)mask + sizeof(*mask);
+       for (p = (u_char *)mask; p < lim; x++, p++) {
+               if (*p != 0xff)
                        break;
        }
        y = 0;
-       if (x < sizeof(*mask)) {
+       if (p < lim) {
                for (y = 0; y < 8; y++) {
-                       if ((mask->s6_addr8[x] & (0x80 >> y)) == 0)
+                       if ((*p & (0x80 >> y)) == 0)
                                break;
                }
        }
+
+       /*
+        * when the limit pointer is given, do a stricter check on the
+        * remaining bits.
+        */
+       if (p < lim) {
+               if (y != 0 && (*p & (0x00ff >> y)) != 0)
+                       return (-1);
+               for (p = p + 1; p < lim; p++)
+                       if (*p != 0)
+                               return (-1);
+       }
+
        return x * 8 + y;
 }
 
@@ -341,132 +448,136 @@ in6_len2mask(mask, len)
                mask->s6_addr8[i] = (0xff00 >> (len % 8)) & 0xff;
 }
 
+void
+in6_aliasreq_64_to_32(struct in6_aliasreq_64 *src, struct in6_aliasreq_32 *dst)
+{
+       bzero(dst, sizeof (*dst));
+       bcopy(src->ifra_name, dst->ifra_name, sizeof (dst->ifra_name));
+       dst->ifra_addr = src->ifra_addr;
+       dst->ifra_dstaddr = src->ifra_dstaddr;
+       dst->ifra_prefixmask = src->ifra_prefixmask;
+       dst->ifra_flags = src->ifra_flags;
+       dst->ifra_lifetime.ia6t_expire = src->ifra_lifetime.ia6t_expire;
+       dst->ifra_lifetime.ia6t_preferred = src->ifra_lifetime.ia6t_preferred;
+       dst->ifra_lifetime.ia6t_vltime = src->ifra_lifetime.ia6t_vltime;
+       dst->ifra_lifetime.ia6t_pltime = src->ifra_lifetime.ia6t_pltime;
+}
+
+void
+in6_aliasreq_32_to_64(struct in6_aliasreq_32 *src, struct in6_aliasreq_64 *dst)
+{
+       bzero(dst, sizeof (*dst));
+       bcopy(src->ifra_name, dst->ifra_name, sizeof (dst->ifra_name));
+       dst->ifra_addr = src->ifra_addr;
+       dst->ifra_dstaddr = src->ifra_dstaddr;
+       dst->ifra_prefixmask = src->ifra_prefixmask;
+       dst->ifra_flags = src->ifra_flags;
+       dst->ifra_lifetime.ia6t_expire = src->ifra_lifetime.ia6t_expire;
+       dst->ifra_lifetime.ia6t_preferred = src->ifra_lifetime.ia6t_preferred;
+       dst->ifra_lifetime.ia6t_vltime = src->ifra_lifetime.ia6t_vltime;
+       dst->ifra_lifetime.ia6t_pltime = src->ifra_lifetime.ia6t_pltime;
+}
+
+static struct in6_aliasreq *
+in6_aliasreq_to_native(void *data, int data_is_64, struct in6_aliasreq *dst)
+{
+#if defined(__LP64__)
+       if (data_is_64)
+               dst = data;
+       else
+               in6_aliasreq_32_to_64((struct in6_aliasreq_32 *)data,
+                   (struct in6_aliasreq_64 *)dst);
+#else
+       if (data_is_64)
+               in6_aliasreq_64_to_32((struct in6_aliasreq_64 *)data,
+                   (struct in6_aliasreq_32 *)dst);
+       else
+               dst = data;
+#endif /* __LP64__ */
+       return (dst);
+}
+
 #define ifa2ia6(ifa)   ((struct in6_ifaddr *)(ifa))
 #define ia62ifa(ia6)   (&((ia6)->ia_ifa))
 
 int
-#if !defined(__bsdi__) && !(defined(__FreeBSD__) && __FreeBSD__ < 3) && !defined (__APPLE__)
-in6_control(so, cmd, data, ifp, p)
-       struct  socket *so;
-       u_long cmd;
-       caddr_t data;
-       struct ifnet *ifp;
-       struct proc *p;
-#else
-in6_control(so, cmd, data, ifp)
-       struct  socket *so;
-       u_long cmd;
-       caddr_t data;
-       struct ifnet *ifp;
-#endif
+in6_control(struct socket *so, u_long cmd, caddr_t data, struct ifnet *ifp,
+    struct proc *p)
 {
        struct  in6_ifreq *ifr = (struct in6_ifreq *)data;
-#if defined(__bsdi__) || (defined(__FreeBSD__) && __FreeBSD__ < 3)
-       struct  ifaddr *ifa;
-#endif
-       struct  in6_ifaddr *ia = NULL, *oia;
-       struct  in6_aliasreq *ifra = (struct in6_aliasreq *)data;
-       struct  sockaddr_in6 oldaddr;
-#ifdef COMPAT_IN6IFIOCTL
-       struct  sockaddr_in6 net;
-#endif
-       int error = 0, hostIsNew, prefixIsNew;
-       int newifaddr;
-#if !(defined(__FreeBSD__) && __FreeBSD__ >= 3) && !defined(__APPLE__)
-       time_t time_second = (time_t)time.tv_sec;
-#endif
-       int privileged;
-       u_long dl_tag;
-
-       privileged = 0;
-#if !defined(__bsdi__) && !(defined(__FreeBSD__) && __FreeBSD__ < 3) && !defined (__APPLE__)
-       if (p && !suser(p->p_ucred, &p->p_acflag))
-               privileged++;
-#else
-       if ((so->so_state & SS_PRIV) != 0)
-               privileged++;
-#endif
-
-       /*
-        * xxx should prevent processes for link-local addresses?
-        */
-#if NGIF > 0
-       if (ifp && ifp->if_type == IFT_GIF) {
-               switch (cmd) {
-               case SIOCSIFPHYADDR_IN6:
-                       if (!privileged)
-                               return(EPERM);
-                       /*fall through*/
-               case SIOCGIFPSRCADDR_IN6:
-               case SIOCGIFPDSTADDR_IN6:
-                       return gif_ioctl(ifp, cmd, data);
-               }
-       }
-#endif
+       struct  in6_ifaddr *ia = NULL;
+       struct  in6_aliasreq sifra;
+       struct  in6_aliasreq *ifra = NULL;
+       struct sockaddr_in6 *sa6;
+       int index, privileged, error = 0;
+       struct timeval timenow;
+       int p64 = proc_is64bit(p);
+
+       getmicrotime(&timenow);
+
+       privileged = (proc_suser(p) == 0);
+#if MROUTING
        switch (cmd) {
        case SIOCGETSGCNT_IN6:
-       case SIOCGETMIFCNT_IN6:
+       case SIOCGETMIFCNT_IN6_32:
+       case SIOCGETMIFCNT_IN6_64:
                return (mrt6_ioctl(cmd, data));
        }
-#if MIP6
-       /* These require root privileges */
-       switch (cmd) {
-       case SIOCSDEBUG_MIP6:
-       case SIOCSBCFLUSH_MIP6:
-       case SIOCSDEFCONFIG_MIP6:
-       case SIOCSBRUPDATE_MIP6:
-       case SIOCSENABLEBR_MIP6:
-       case SIOCSATTACH_MIP6:
-       case SIOCSRELEASE_MIP6:
-
-       case SIOCSHALISTFLUSH_MIP6:
-       case SIOCSHAPREF_MIP6:
-       case SIOCSFWDSLUNICAST_MIP6:
-       case SIOCSFWDSLMULTICAST_MIP6:
-
-       case SIOCSFORADDRFLUSH_MIP6:
-       case SIOCSHADDRFLUSH_MIP6:
-       case SIOCSBULISTFLUSH_MIP6:
-       case SIOCACOADDR_MIP6:
-       case SIOCAHOMEADDR_MIP6:
-       case SIOCSBULIFETIME_MIP6:
-       case SIOCSHRLIFETIME_MIP6:
-       case SIOCDCOADDR_MIP6:
-       case SIOCSPROMMODE_MIP6:
-       case SIOCSBU2CN_MIP6:
-       case SIOCSREVTUNNEL_MIP6:
-       case SIOCSAUTOCONFIG_MIP6:
-       case SIOCSEAGERMD_MIP6:
-               if (!privileged)
-                       return(EPERM);
-               /* Anyone can use these or the user is root */
-               /* case SIOCXVERYSAFECOMMAND_MIP6:  */
-#if !defined(__bsdi__) && !(defined(__FreeBSD__) && __FreeBSD__ < 3) && !defined(__APPLE__)
-               return mip6_ioctl(so, cmd, data, ifp, p);
-#else
-               return mip6_ioctl(so, cmd, data, ifp);
 #endif
+
+       switch(cmd) {
+       case SIOCAADDRCTL_POLICY:
+       case SIOCDADDRCTL_POLICY:
+        if (!privileged)
+                       return (EPERM);
+               return (in6_src_ioctl(cmd, data));
+       }
+
+       switch (cmd) {
+       case SIOCDRADD_IN6_32:
+       case SIOCDRADD_IN6_64:
+       case SIOCDRDEL_IN6_32:
+       case SIOCDRDEL_IN6_64:
+                if (!privileged)
+                        return (EPERM);
+               return (defrtrlist_ioctl(cmd, data));
        }
-#endif /* MIP6 */
 
        if (ifp == NULL)
-               return(EOPNOTSUPP);
+               return (EOPNOTSUPP);
 
        switch (cmd) {
+       case SIOCAUTOCONF_START:
+       case SIOCAUTOCONF_STOP:
+       case SIOCLL_START_32:
+       case SIOCLL_START_64:
+       case SIOCLL_STOP:
+       case SIOCPROTOATTACH_IN6_32:
+       case SIOCPROTOATTACH_IN6_64:
+       case SIOCPROTODETACH_IN6:
+                if (!privileged)
+                        return (EPERM);
+               break;
        case SIOCSNDFLUSH_IN6:
        case SIOCSPFXFLUSH_IN6:
        case SIOCSRTRFLUSH_IN6:
-       case SIOCSDEFIFACE_IN6:
+       case SIOCSDEFIFACE_IN6_32:
+       case SIOCSDEFIFACE_IN6_64:
        case SIOCSIFINFO_FLAGS:
                if (!privileged)
-                       return(EPERM);
-               /*fall through*/
+                       return (EPERM);
+               /* fall through */
+       case OSIOCGIFINFO_IN6:
        case SIOCGIFINFO_IN6:
-       case SIOCGDRLST_IN6:
-       case SIOCGPRLST_IN6:
-       case SIOCGNBRINFO_IN6:
-       case SIOCGDEFIFACE_IN6:
-               return(nd6_ioctl(cmd, data, ifp));
+       case SIOCGDRLST_IN6_32:
+       case SIOCGDRLST_IN6_64:
+       case SIOCGPRLST_IN6_32:
+       case SIOCGPRLST_IN6_64:
+       case SIOCGNBRINFO_IN6_32:
+       case SIOCGNBRINFO_IN6_64:
+       case SIOCGDEFIFACE_IN6_32:
+       case SIOCGDEFIFACE_IN6_64:
+               return (nd6_ioctl(cmd, data, ifp));
        }
 
        switch (cmd) {
@@ -475,13 +586,26 @@ in6_control(so, cmd, data, ifp)
        case SIOCAIFPREFIX_IN6:
        case SIOCCIFPREFIX_IN6:
        case SIOCSGIFPREFIX_IN6:
-               if (!privileged)
-                       return(EPERM);
-               /*fall through*/
        case SIOCGIFPREFIX_IN6:
-               if (ip6_forwarding == 0)
-                       return(EPERM);
-               return(in6_prefix_ioctl(so, cmd, data, ifp));
+               log(LOG_NOTICE,
+                   "prefix ioctls are now invalidated. "
+                   "please use ifconfig.\n");
+               return (EOPNOTSUPP);
+       }
+
+       switch (cmd) {
+       case SIOCSSCOPE6:
+               if (!privileged)
+                       return (EPERM);
+               return (scope6_set(ifp, ifr->ifr_ifru.ifru_scope_id));
+               /* NOTREACHED */
+
+       case SIOCGSCOPE6:
+               return (scope6_get(ifp, ifr->ifr_ifru.ifru_scope_id));
+               /* NOTREACHED */
+
+       case SIOCGSCOPE6DEF:
+               return (scope6_get_default(ifr->ifr_ifru.ifru_scope_id));
        }
 
        switch (cmd) {
@@ -489,146 +613,247 @@ in6_control(so, cmd, data, ifp)
        case SIOCDLIFADDR:
                if (!privileged)
                        return(EPERM);
-               /*fall through*/
+               /* fall through */
        case SIOCGLIFADDR:
-#if !defined(__bsdi__) && !(defined(__FreeBSD__) && __FreeBSD__ < 3) && !defined (__APPLE__)
-               return in6_lifaddr_ioctl(so, cmd, data, ifp, p);
-#else
-               return in6_lifaddr_ioctl(so, cmd, data, ifp);
-#endif
+               return (in6_lifaddr_ioctl(so, cmd, data, ifp, p));
        }
 
        /*
         * Find address for this interface, if it exists.
+        *
+        * In netinet code, we have checked ifra_addr in SIOCSIF*ADDR operation
+        * only, and used the first interface address as the target of other
+        * operations (without checking ifra_addr).  This was because netinet
+        * code/API assumed at most 1 interface address per interface.
+        * Since IPv6 allows a node to assign multiple addresses
+        * on a single interface, we almost always look and check the
+        * presence of ifra_addr, and reject invalid ones here.
+        * It also decreases duplicated code among SIOC*_IN6 operations.
         */
-       if (ifra->ifra_addr.sin6_family == AF_INET6) { /* XXX */
-               struct sockaddr_in6 *sa6 =
-                       (struct sockaddr_in6 *)&ifra->ifra_addr;
+       switch (cmd) {
+       case SIOCLL_START_32:
+       case SIOCAIFADDR_IN6_32:
+               /*
+                * Convert user ifra to the kernel form, when appropriate.
+                * This allows the conversion between different data models
+                * to be centralized, so that it can be passed around to other
+                * routines that are expecting the kernel form.
+                */
+               ifra = in6_aliasreq_to_native(data, 0, &sifra);
+               sa6 = (struct sockaddr_in6 *)&ifra->ifra_addr;
+               break;
+
+       case SIOCLL_START_64:
+       case SIOCAIFADDR_IN6_64:
+               ifra = in6_aliasreq_to_native(data, 1, &sifra);
+               sa6 = (struct sockaddr_in6 *)&ifra->ifra_addr;
+               break;
+
+       case SIOCSIFADDR_IN6:           /* deprecated */
+       case SIOCGIFADDR_IN6:
+       case SIOCSIFDSTADDR_IN6:        /* deprecated */
+       case SIOCSIFNETMASK_IN6:        /* deprecated */
+       case SIOCGIFDSTADDR_IN6:
+       case SIOCGIFNETMASK_IN6:
+       case SIOCDIFADDR_IN6:
+       case SIOCGIFPSRCADDR_IN6:
+       case SIOCGIFPDSTADDR_IN6:
+       case SIOCGIFAFLAG_IN6:
+       case SIOCSNDFLUSH_IN6:
+       case SIOCSPFXFLUSH_IN6:
+       case SIOCSRTRFLUSH_IN6:
+       case SIOCGIFALIFETIME_IN6:
+       case SIOCSIFALIFETIME_IN6:
+       case SIOCGIFSTAT_IN6:
+       case SIOCGIFSTAT_ICMP6:
+               sa6 = &ifr->ifr_addr;
+               break;
+
+       default:
+               sa6 = NULL;
+               break;
+       }
+
+       switch (cmd) {
+
+       case SIOCAUTOCONF_START:
+               ifnet_lock_exclusive(ifp);
+               ifp->if_eflags |= IFEF_ACCEPT_RTADVD;
+               ifnet_lock_done(ifp);
+               return (0);
+               /* NOTREACHED */
+
+       case SIOCAUTOCONF_STOP: {
+               ifnet_lock_exclusive(ifp);
+               ifp->if_eflags &= ~IFEF_ACCEPT_RTADVD;
+               ifnet_lock_done(ifp);
+
+               /* Remove autoconfigured address from interface */
+               lck_rw_lock_exclusive(&in6_ifaddr_rwlock);
+               ia = in6_ifaddrs;
+               while (ia != NULL) {
+                       if (ia->ia_ifa.ifa_ifp != ifp) {
+                               ia = ia->ia_next;
+                               continue;
+                       }
+                       IFA_LOCK(&ia->ia_ifa);
+                       if (ia->ia6_flags & IN6_IFF_AUTOCONF) {
+                               IFA_ADDREF_LOCKED(&ia->ia_ifa); /* for us */
+                               IFA_UNLOCK(&ia->ia_ifa);
+                               lck_rw_done(&in6_ifaddr_rwlock);
+                               in6_purgeaddr(&ia->ia_ifa);
+                               IFA_REMREF(&ia->ia_ifa);        /* for us */
+                               lck_rw_lock_exclusive(&in6_ifaddr_rwlock);
+                               /*
+                                * Purging the address caused in6_ifaddr_rwlock
+                                * to be dropped and reacquired;
+                                * therefore search again from the beginning
+                                * of in6_ifaddrs list.
+                                */
+                               ia = in6_ifaddrs;
+                               continue;
+                       }
+                       IFA_UNLOCK(&ia->ia_ifa);
+                       ia = ia->ia_next;
+               }
+               lck_rw_done(&in6_ifaddr_rwlock);
+               return (0);
+       }
+
+       case SIOCLL_START_32:
+       case SIOCLL_START_64:
+               /*
+                * NOTE: All the interface specific DLIL attachements should
+                * be done here.  They are currently done in in6_ifattach()
+                * for the interfaces that need it.
+                */
+               if ((ifp->if_eflags & IFEF_NOAUTOIPV6LL) != 0  &&
+                   ifra->ifra_addr.sin6_family == AF_INET6 &&
+                   ifra->ifra_dstaddr.sin6_family == AF_INET6) {
+                       /* some interfaces may provide LinkLocal addresses */
+                       error = in6_if_up(ifp, ifra);
+               } else {
+                       error = in6_if_up(ifp, 0);
+               }
+               return (error);
+               /* NOTREACHED */
+
+       case SIOCLL_STOP: {
+               /* Remove link local addresses from interface */
+               lck_rw_lock_exclusive(&in6_ifaddr_rwlock);
+               ia = in6_ifaddrs;
+               while (ia != NULL) {
+                       if (ia->ia_ifa.ifa_ifp != ifp) {
+                               ia = ia->ia_next;
+                               continue;
+                       }
+                       IFA_LOCK(&ia->ia_ifa);
+                       if (IN6_IS_ADDR_LINKLOCAL(&ia->ia_addr.sin6_addr)) {
+                               IFA_ADDREF_LOCKED(&ia->ia_ifa); /* for us */
+                               IFA_UNLOCK(&ia->ia_ifa);
+                               lck_rw_done(&in6_ifaddr_rwlock);
+                               in6_purgeaddr(&ia->ia_ifa);
+                               IFA_REMREF(&ia->ia_ifa);        /* for us */
+                               lck_rw_lock_exclusive(&in6_ifaddr_rwlock);
+                               /*
+                                * Purging the address caused in6_ifaddr_rwlock
+                                * to be dropped and reacquired;
+                                * therefore search again from the beginning
+                                * of in6_ifaddrs list.
+                                */
+                               ia = in6_ifaddrs;
+                               continue;
+                       }
+                       IFA_UNLOCK(&ia->ia_ifa);
+                       ia = ia->ia_next;
+               }
+               lck_rw_done(&in6_ifaddr_rwlock);
+               return (0);
+       }
+
+       case SIOCPROTOATTACH_IN6_32:
+       case SIOCPROTOATTACH_IN6_64:
+               return (in6_domifattach(ifp));
+               /* NOTREACHED */
 
+       case SIOCPROTODETACH_IN6:
+               /* Cleanup interface routes and addresses */
+               in6_purgeif(ifp);
+
+               if ((error = proto_unplumb(PF_INET6, ifp)))
+                       printf("SIOCPROTODETACH_IN6: %s error=%d\n",
+                           if_name(ifp), error);
+               return (error);
+       }
+
+       /*
+        * Find address for this interface, if it exists; depending
+        * on the ioctl command, sa6 points to the address in ifra/ifr.
+        */
+       if (sa6 != NULL && sa6->sin6_family == AF_INET6) {
                if (IN6_IS_ADDR_LINKLOCAL(&sa6->sin6_addr)) {
                        if (sa6->sin6_addr.s6_addr16[1] == 0) {
-                               /* interface ID is not embedded by the user */
+                               /* link ID is not embedded by the user */
                                sa6->sin6_addr.s6_addr16[1] =
-                                       htons(ifp->if_index);
+                                   htons(ifp->if_index);
                        } else if (sa6->sin6_addr.s6_addr16[1] !=
-                                   htons(ifp->if_index)) {
-                               return(EINVAL); /* ifid is contradict */
+                           htons(ifp->if_index)) {
+                               return (EINVAL); /* link ID contradicts */
                        }
                        if (sa6->sin6_scope_id) {
                                if (sa6->sin6_scope_id !=
                                    (u_int32_t)ifp->if_index)
-                                       return(EINVAL);
+                                       return (EINVAL);
                                sa6->sin6_scope_id = 0; /* XXX: good way? */
                        }
                }
-               ia = in6ifa_ifpwithaddr(ifp, &ifra->ifra_addr.sin6_addr);
+               ia = in6ifa_ifpwithaddr(ifp, &sa6->sin6_addr);
+       } else {
+               ia = NULL;
        }
 
        switch (cmd) {
-
-       case SIOCDIFADDR_IN6:
-               /*
-                * for IPv4, we look for existing in6_ifaddr here to allow
-                * "ifconfig if0 delete" to remove first IPv4 address on the
-                * interface.  For IPv6, as the spec allow multiple interface
-                * address from the day one, we consider "remove the first one"
-                * semantics to be not preferrable.
-                */
-               if (ia == NULL)
-                       return(EADDRNOTAVAIL);
-               /* FALLTHROUGH */
-       case SIOCAIFADDR_IN6:
        case SIOCSIFADDR_IN6:
-#if COMPAT_IN6IFIOCTL
        case SIOCSIFDSTADDR_IN6:
        case SIOCSIFNETMASK_IN6:
                /*
                 * Since IPv6 allows a node to assign multiple addresses
-                * on a single interface, SIOCSIFxxx ioctls are not suitable
-                * and should be unused.
+                * on a single interface, SIOCSIFxxx ioctls are deprecated.
                 */
-#endif
-               if (ifra->ifra_addr.sin6_family != AF_INET6)
-                       return(EAFNOSUPPORT);
-               if (!privileged)
-                       return(EPERM);
-               if (ia == NULL) {
-                       ia = (struct in6_ifaddr *)
-                               _MALLOC(sizeof(*ia), M_IFADDR, M_WAITOK);
-                       if (ia == NULL)
-                               return (ENOBUFS);
-                       bzero((caddr_t)ia, sizeof(*ia));
-                       /* Initialize the address and masks */
-                       ia->ia_ifa.ifa_addr = (struct sockaddr *)&ia->ia_addr;
-                       ia->ia_addr.sin6_family = AF_INET6;
-                       ia->ia_addr.sin6_len = sizeof(ia->ia_addr);
-                       if (ifp->if_flags & IFF_POINTOPOINT) {
-                               ia->ia_ifa.ifa_dstaddr
-                                       = (struct sockaddr *)&ia->ia_dstaddr;
-                               ia->ia_dstaddr.sin6_family = AF_INET6;
-                               ia->ia_dstaddr.sin6_len = sizeof(ia->ia_dstaddr);
-                       } else {
-                               ia->ia_ifa.ifa_dstaddr = NULL;
-                               bzero(&ia->ia_dstaddr, sizeof(ia->ia_dstaddr));
-                       }
-                       ia->ia_ifa.ifa_netmask
-                               = (struct sockaddr *)&ia->ia_prefixmask;
-
-                       ia->ia_ifp = ifp;
-
-                       printf("in6_control: Attach dl_tag for if=%s%n\n", ifp->if_name, ifp->if_unit);
-        
-                       if (strcmp(ifp->if_name, "en") == 0)
-                               dl_tag = ether_attach_inet6(ifp);
-
-                       if (strcmp(ifp->if_name, "lo") == 0)
-                               dl_tag = lo_attach_inet(ifp);
-#if NGIF > 0
-                       if (strcmp(ifp->if_name, "gif") == 0)
-                               dl_tag = gif_attach_inet(ifp);
-#endif
-/* End of temp code */
-                       ia->ia_ifa.ifa_dlt = dl_tag;
-
-
-                       if ((oia = in6_ifaddr) != NULL) {
-                               for ( ; oia->ia_next; oia = oia->ia_next)
-                                       continue;
-                               oia->ia_next = ia;
-                       } else
-                               in6_ifaddr = ia;
-                       ia->ia_ifa.ifa_refcnt++;
-
-#if defined(__bsdi__) || (defined(__FreeBSD__) && __FreeBSD__ < 3)
-                       if ((ifa = ifp->if_addrlist) != NULL) {
-                               for ( ; ifa->ifa_next; ifa = ifa->ifa_next)
-                                       continue;
-                               ifa->ifa_next = ia62ifa(ia);
-                       } else
-                               ifp->if_addrlist = ia62ifa(ia);
-#else
-                       TAILQ_INSERT_TAIL(&ifp->if_addrlist, &ia->ia_ifa,
-                           ifa_list);
-#endif
-                       ia->ia_ifa.ifa_refcnt++;
+               /* we decided to obsolete this command (20000704) */
+               error = EINVAL;
+               goto ioctl_cleanup;
 
-                       newifaddr = 1;
-               } else
-                       newifaddr = 0;
-
-               if (cmd == SIOCAIFADDR_IN6) {
-                       /* sanity for overflow - beware unsigned */
-                       struct in6_addrlifetime *lt;
-                       lt = &ifra->ifra_lifetime;
-                       if (lt->ia6t_vltime != ND6_INFINITE_LIFETIME
-                        && lt->ia6t_vltime + time_second < time_second) {
-                               return EINVAL;
-                       }
-                       if (lt->ia6t_pltime != ND6_INFINITE_LIFETIME
-                        && lt->ia6t_pltime + time_second < time_second) {
-                               return EINVAL;
-                       }
+       case SIOCDIFADDR_IN6:
+               /*
+                * for IPv4, we look for existing in_ifaddr here to allow
+                * "ifconfig if0 delete" to remove the first IPv4 address on
+                * the interface.  For IPv6, as the spec allows multiple
+                * interface address from the day one, we consider "remove the
+                * first one" semantics to be not preferable.
+                */
+               if (ia == NULL) {
+                       error = EADDRNOTAVAIL;
+                       goto ioctl_cleanup;
+               }
+               /* FALLTHROUGH */
+       case SIOCAIFADDR_IN6_32:
+       case SIOCAIFADDR_IN6_64:
+               /*
+                * We always require users to specify a valid IPv6 address for
+                * the corresponding operation.  Use "sa6" instead of "ifra"
+                * since SIOCDIFADDR_IN6 falls thru above.
+                */
+               if (sa6->sin6_family != AF_INET6 ||
+                   sa6->sin6_len != sizeof(struct sockaddr_in6)) {
+                       error = EAFNOSUPPORT;
+                       goto ioctl_cleanup;
                }
+               if (!privileged) {
+                       error = EPERM;
+                       goto ioctl_cleanup;
+               }
+
                break;
 
        case SIOCGIFADDR_IN6:
@@ -639,447 +864,1178 @@ in6_control(so, cmd, data, ifp)
        case SIOCGIFDSTADDR_IN6:
        case SIOCGIFALIFETIME_IN6:
                /* must think again about its semantics */
-               if (ia == NULL)
-                       return(EADDRNOTAVAIL);
+               if (ia == NULL) {
+                       error = EADDRNOTAVAIL;
+                       goto ioctl_cleanup;
+               }
                break;
-       case SIOCSIFALIFETIME_IN6:
-           {
-               struct in6_addrlifetime *lt;
 
-               if (!privileged)
-                       return(EPERM);
-               if (ia == NULL)
-                       return(EADDRNOTAVAIL);
-               /* sanity for overflow - beware unsigned */
-               lt = &ifr->ifr_ifru.ifru_lifetime;
-               if (lt->ia6t_vltime != ND6_INFINITE_LIFETIME
-                && lt->ia6t_vltime + time_second < time_second) {
-                       return EINVAL;
+       case SIOCSIFALIFETIME_IN6:
+               if (!privileged) {
+                       error = EPERM;
+                       goto ioctl_cleanup;
                }
-               if (lt->ia6t_pltime != ND6_INFINITE_LIFETIME
-                && lt->ia6t_pltime + time_second < time_second) {
-                       return EINVAL;
+               if (ia == NULL) {
+                       error = EADDRNOTAVAIL;
+                       goto ioctl_cleanup;
                }
-               break;
-           }
+               /* sanity for overflow - beware unsigned */
+               if (p64) {
+                       struct in6_addrlifetime_64 *lt;
+
+                       lt = (struct in6_addrlifetime_64 *)
+                           &ifr->ifr_ifru.ifru_lifetime;
+                       if (((ia->ia6_flags & IN6_IFF_TEMPORARY) != 0
+                             || lt->ia6t_vltime != ND6_INFINITE_LIFETIME)
+                           && lt->ia6t_vltime + timenow.tv_sec <
+                              timenow.tv_sec) {
+                               error = EINVAL;
+                               goto ioctl_cleanup;
+                       }
+                       if (((ia->ia6_flags & IN6_IFF_TEMPORARY) != 0
+                             || lt->ia6t_pltime != ND6_INFINITE_LIFETIME)
+                           && lt->ia6t_pltime + timenow.tv_sec <
+                              timenow.tv_sec) {
+                               error = EINVAL;
+                               goto ioctl_cleanup;
+                       }
+               } else {
+                       struct in6_addrlifetime_32 *lt;
+
+                       lt = (struct in6_addrlifetime_32 *)
+                           &ifr->ifr_ifru.ifru_lifetime;
+                       if (((ia->ia6_flags & IN6_IFF_TEMPORARY) != 0
+                             || lt->ia6t_vltime != ND6_INFINITE_LIFETIME)
+                           && lt->ia6t_vltime + timenow.tv_sec <
+                              timenow.tv_sec) {
+                               error = EINVAL;
+                               goto ioctl_cleanup;
+                       }
+                       if (((ia->ia6_flags & IN6_IFF_TEMPORARY) != 0
+                             || lt->ia6t_pltime != ND6_INFINITE_LIFETIME)
+                           && lt->ia6t_pltime + timenow.tv_sec <
+                              timenow.tv_sec) {
+                               error = EINVAL;
+                               goto ioctl_cleanup;
+                       }
+               }
+               break;
        }
 
        switch (cmd) {
 
        case SIOCGIFADDR_IN6:
+               IFA_LOCK(&ia->ia_ifa);
                ifr->ifr_addr = ia->ia_addr;
+               IFA_UNLOCK(&ia->ia_ifa);
+               if ((error = sa6_recoverscope(&ifr->ifr_addr)) != 0) {
+                       IFA_REMREF(&ia->ia_ifa);
+                       return (error);
+               }
                break;
 
        case SIOCGIFDSTADDR_IN6:
-               if ((ifp->if_flags & IFF_POINTOPOINT) == 0)
-                       return(EINVAL);
+               if ((ifp->if_flags & IFF_POINTOPOINT) == 0) {
+                       error = EINVAL;
+                       goto ioctl_cleanup;
+               }
+               /*
+                * XXX: should we check if ifa_dstaddr is NULL and return
+                * an error?
+                */
+               IFA_LOCK(&ia->ia_ifa);
                ifr->ifr_dstaddr = ia->ia_dstaddr;
+               IFA_UNLOCK(&ia->ia_ifa);
+               if ((error = sa6_recoverscope(&ifr->ifr_dstaddr)) != 0) {
+                       IFA_REMREF(&ia->ia_ifa);
+                       return (error);
+               }
                break;
 
        case SIOCGIFNETMASK_IN6:
+               IFA_LOCK(&ia->ia_ifa);
                ifr->ifr_addr = ia->ia_prefixmask;
+               IFA_UNLOCK(&ia->ia_ifa);
                break;
 
        case SIOCGIFAFLAG_IN6:
+               IFA_LOCK(&ia->ia_ifa);
                ifr->ifr_ifru.ifru_flags6 = ia->ia6_flags;
+               IFA_UNLOCK(&ia->ia_ifa);
                break;
 
        case SIOCGIFSTAT_IN6:
-               if (ifp == NULL)
-                       return EINVAL;
-               if (in6_ifstat == NULL || ifp->if_index >= in6_ifstatmax
-                || in6_ifstat[ifp->if_index] == NULL) {
+               if (ifp == NULL) {
+                       error = EINVAL;
+                       goto ioctl_cleanup;
+               }
+               index = ifp->if_index;
+               lck_rw_lock_shared(&in6_ifs_rwlock);
+               if (in6_ifstat == NULL || index >= in6_ifstatmax
+                || in6_ifstat[index] == NULL) {
                        /* return EAFNOSUPPORT? */
                        bzero(&ifr->ifr_ifru.ifru_stat,
-                               sizeof(ifr->ifr_ifru.ifru_stat));
-               } else
-                       ifr->ifr_ifru.ifru_stat = *in6_ifstat[ifp->if_index];
+                           sizeof (ifr->ifr_ifru.ifru_stat));
+               } else {
+                       ifr->ifr_ifru.ifru_stat = *in6_ifstat[index];
+               }
+               lck_rw_done(&in6_ifs_rwlock);
                break;
 
        case SIOCGIFSTAT_ICMP6:
-               if (ifp == NULL)
-                       return EINVAL;
-               if (icmp6_ifstat == NULL || ifp->if_index >= icmp6_ifstatmax ||
-                   icmp6_ifstat[ifp->if_index] == NULL) {
+               if (ifp == NULL) {
+                       error = EINVAL;
+                       goto ioctl_cleanup;
+               }
+               index = ifp->if_index;
+               lck_rw_lock_shared(&icmp6_ifs_rwlock);
+               if (icmp6_ifstat == NULL || index >= icmp6_ifstatmax ||
+                   icmp6_ifstat[index] == NULL) {
                        /* return EAFNOSUPPORT? */
                        bzero(&ifr->ifr_ifru.ifru_stat,
-                               sizeof(ifr->ifr_ifru.ifru_icmp6stat));
-               } else
-                       ifr->ifr_ifru.ifru_icmp6stat =
-                               *icmp6_ifstat[ifp->if_index];
-               break;
-#if COMPAT_IN6IFIOCTL          /* should be unused */
-       case SIOCSIFDSTADDR_IN6:
-               if ((ifp->if_flags & IFF_POINTOPOINT) == 0)
-                       return(EINVAL);
-               oldaddr = ia->ia_dstaddr;
-               ia->ia_dstaddr = ifr->ifr_dstaddr;
-
-               /* link-local index check */
-               if (IN6_IS_ADDR_LINKLOCAL(&ia->ia_dstaddr.sin6_addr)) {
-                       if (ia->ia_dstaddr.sin6_addr.s6_addr16[1] == 0) {
-                               /* interface ID is not embedded by the user */
-                               ia->ia_dstaddr.sin6_addr.s6_addr16[1]
-                                       = htons(ifp->if_index);
-                       } else if (ia->ia_dstaddr.sin6_addr.s6_addr16[1] !=
-                                   htons(ifp->if_index)) {
-                               ia->ia_dstaddr = oldaddr;
-                               return(EINVAL); /* ifid is contradict */
-                       }
-               }
-#ifdef __APPLE__
-               error = dlil_ioctl(0, ifp, SIOCSIFDSTADDR, (caddr_t)ia);
-                if (error == EOPNOTSUPP)
-                        error = 0;
-                if (error) { 
-                       ia->ia_dstaddr = oldaddr;
-                       return(error);
-               }
-#else
-               if (ifp->if_ioctl && (error = (ifp->if_ioctl)
-                                     (ifp, SIOCSIFDSTADDR, (caddr_t)ia))) {
-#endif
-               if (ia->ia_flags & IFA_ROUTE) {
-                       ia->ia_ifa.ifa_dstaddr = (struct sockaddr *)&oldaddr;
-                       rtinit(&(ia->ia_ifa), (int)RTM_DELETE, RTF_HOST);
-                       ia->ia_ifa.ifa_dstaddr =
-                               (struct sockaddr *)&ia->ia_dstaddr;
-                       rtinit(&(ia->ia_ifa), (int)RTM_ADD, RTF_HOST|RTF_UP);
+                           sizeof (ifr->ifr_ifru.ifru_icmp6stat));
+               } else {
+                       ifr->ifr_ifru.ifru_icmp6stat = *icmp6_ifstat[index];
                }
+               lck_rw_done(&icmp6_ifs_rwlock);
                break;
 
-#endif
        case SIOCGIFALIFETIME_IN6:
-               ifr->ifr_ifru.ifru_lifetime = ia->ia6_lifetime;
+               IFA_LOCK(&ia->ia_ifa);
+               if (p64) {
+                       struct in6_addrlifetime_64 *lt;
+
+                       lt = (struct in6_addrlifetime_64 *)
+                           &ifr->ifr_ifru.ifru_lifetime;
+                       lt->ia6t_expire = ia->ia6_lifetime.ia6t_expire;
+                       lt->ia6t_preferred = ia->ia6_lifetime.ia6t_preferred;
+                       lt->ia6t_vltime = ia->ia6_lifetime.ia6t_vltime;
+                       lt->ia6t_pltime = ia->ia6_lifetime.ia6t_pltime;
+               } else {
+                       struct in6_addrlifetime_32 *lt;
+
+                       lt = (struct in6_addrlifetime_32 *)
+                           &ifr->ifr_ifru.ifru_lifetime;
+                       lt->ia6t_expire =
+                           (uint32_t)ia->ia6_lifetime.ia6t_expire;
+                       lt->ia6t_preferred =
+                           (uint32_t)ia->ia6_lifetime.ia6t_preferred;
+                       lt->ia6t_vltime =
+                           (uint32_t)ia->ia6_lifetime.ia6t_vltime;
+                       lt->ia6t_pltime =
+                           (uint32_t)ia->ia6_lifetime.ia6t_pltime;
+               }
+               IFA_UNLOCK(&ia->ia_ifa);
                break;
 
        case SIOCSIFALIFETIME_IN6:
-               ia->ia6_lifetime = ifr->ifr_ifru.ifru_lifetime;
+               IFA_LOCK(&ia->ia_ifa);
+               if (p64) {
+                       struct in6_addrlifetime_64 *lt;
+
+                       lt = (struct in6_addrlifetime_64 *)
+                           &ifr->ifr_ifru.ifru_lifetime;
+                       ia->ia6_lifetime.ia6t_expire = lt->ia6t_expire;
+                       ia->ia6_lifetime.ia6t_preferred = lt->ia6t_preferred;
+                       ia->ia6_lifetime.ia6t_vltime = lt->ia6t_vltime;
+                       ia->ia6_lifetime.ia6t_pltime = lt->ia6t_pltime;
+               } else {
+                       struct in6_addrlifetime_32 *lt;
+
+                       lt = (struct in6_addrlifetime_32 *)
+                           &ifr->ifr_ifru.ifru_lifetime;
+                       ia->ia6_lifetime.ia6t_expire =
+                           (uint32_t)lt->ia6t_expire;
+                       ia->ia6_lifetime.ia6t_preferred =
+                           (uint32_t)lt->ia6t_preferred;
+                       ia->ia6_lifetime.ia6t_vltime = lt->ia6t_vltime;
+                       ia->ia6_lifetime.ia6t_pltime = lt->ia6t_pltime;
+               }
                /* for sanity */
-               if (ia->ia6_lifetime.ia6t_vltime != ND6_INFINITE_LIFETIME) {
+               if (ia->ia6_lifetime.ia6t_vltime != ND6_INFINITE_LIFETIME ||
+                   (ia->ia6_flags & IN6_IFF_TEMPORARY) != 0) {
                        ia->ia6_lifetime.ia6t_expire =
-                               time_second + ia->ia6_lifetime.ia6t_vltime;
+                               timenow.tv_sec + ia->ia6_lifetime.ia6t_vltime;
                } else
                        ia->ia6_lifetime.ia6t_expire = 0;
-               if (ia->ia6_lifetime.ia6t_pltime != ND6_INFINITE_LIFETIME) {
+               if (ia->ia6_lifetime.ia6t_pltime != ND6_INFINITE_LIFETIME ||
+                   (ia->ia6_flags & IN6_IFF_TEMPORARY) != 0) {
                        ia->ia6_lifetime.ia6t_preferred =
-                               time_second + ia->ia6_lifetime.ia6t_pltime;
+                               timenow.tv_sec + ia->ia6_lifetime.ia6t_pltime;
                } else
                        ia->ia6_lifetime.ia6t_preferred = 0;
+               IFA_UNLOCK(&ia->ia_ifa);
                break;
 
-       case SIOCSIFADDR_IN6:
-               error = in6_ifinit(ifp, ia, &ifr->ifr_addr, 1);
-#if 0
+       case SIOCAIFADDR_IN6_32:
+       case SIOCAIFADDR_IN6_64: {
+               int i;
+               struct nd_prefix pr0, *pr;
+
+               /* Attempt to attach the protocol, in case it isn't attached */
+               error = in6_domifattach(ifp);
+               if (error) {
+                       if (error == EEXIST)
+                               error = 0;
+                       else
+                               goto ioctl_cleanup;
+               } else {
+                       /* PF_INET6 wasn't previously attached */
+                       if ((error = in6_if_up(ifp, NULL)) != 0)
+                               goto ioctl_cleanup;
+               }
+
                /*
-                * the code chokes if we are to assign multiple addresses with
-                * the same address prefix (rtinit() will return EEXIST, which
-                * is not fatal actually).  we will get memory leak if we
-                * don't do it.
-                * -> we may want to hide EEXIST from rtinit().
+                * first, make or update the interface address structure,
+                * and link it to the list.
                 */
-  undo:
-               if (error && newifaddr) {
-#if defined(__bsdi__) || (defined(__FreeBSD__) && __FreeBSD__ < 3)
-                       if ((ifa = ifp->if_addrlist) == ia62ifa(ia))
-                               ifp->if_addrlist = ifa->ifa_next;
-                       else {
-                               while (ifa->ifa_next &&
-                                      (ifa->ifa_next != ia62ifa(ia)))
-                                       ifa = ifa->ifa_next;
-                               if (ifa->ifa_next)
-                                       ifa->ifa_next = ia62ifa(ia)->ifa_next;
-                               else {
-                                       printf("Couldn't unlink in6_ifaddr "
-                                           "from ifp\n");
-                               }
+               if ((error = in6_update_ifa(ifp, ifra, ia, 0, M_WAITOK)) != 0)
+                       goto ioctl_cleanup;
+
+               /*
+                * then, make the prefix on-link on the interface.
+                * XXX: we'd rather create the prefix before the address, but
+                * we need at least one address to install the corresponding
+                * interface route, so we configure the address first.
+                */
+
+               /*
+                * convert mask to prefix length (prefixmask has already
+                * been validated in in6_update_ifa().
+                */
+               bzero(&pr0, sizeof(pr0));
+               pr0.ndpr_ifp = ifp;
+               pr0.ndpr_plen = in6_mask2len(&ifra->ifra_prefixmask.sin6_addr,
+                                            NULL);
+               if (pr0.ndpr_plen == 128)
+                       break;  /* we don't need to install a host route. */
+               pr0.ndpr_prefix = ifra->ifra_addr;
+               pr0.ndpr_mask = ifra->ifra_prefixmask.sin6_addr;
+               /* apply the mask for safety. */
+               for (i = 0; i < 4; i++) {
+                       pr0.ndpr_prefix.sin6_addr.s6_addr32[i] &=
+                               ifra->ifra_prefixmask.sin6_addr.s6_addr32[i];
+               }
+               /*
+                * XXX: since we don't have an API to set prefix (not address)
+                * lifetimes, we just use the same lifetimes as addresses.
+                * The (temporarily) installed lifetimes can be overridden by
+                * later advertised RAs (when accept_rtadv is non 0), which is
+                * an intended behavior.
+                */
+               pr0.ndpr_raf_onlink = 1; /* should be configurable? */
+               pr0.ndpr_raf_auto =
+                       ((ifra->ifra_flags & IN6_IFF_AUTOCONF) != 0);
+               pr0.ndpr_vltime = ifra->ifra_lifetime.ia6t_vltime;
+               pr0.ndpr_pltime = ifra->ifra_lifetime.ia6t_pltime;
+               pr0.ndpr_stateflags |= NDPRF_STATIC;
+
+               /* add the prefix if there's one. */
+               if ((pr = nd6_prefix_lookup(&pr0)) == NULL) {
+                       /*
+                        * nd6_prelist_add will install the corresponding
+                        * interface route.
+                        */
+                       if ((error = nd6_prelist_add(&pr0, NULL, &pr, FALSE)) != 0)
+                               goto ioctl_cleanup;
+                       if (pr == NULL) {
+                               log(LOG_ERR, "nd6_prelist_add succedded but "
+                                   "no prefix\n");
+                               error = EINVAL;
+                               goto ioctl_cleanup;
                        }
-#else
-                       TAILQ_REMOVE(&ifp->if_addrlist, &ia->ia_ifa, ifa_list);
-#endif
-                       IFAFREE(&ia->ia_ifa);
+               }
+               if (ia != NULL)
+                       IFA_REMREF(&ia->ia_ifa);
+               if ((ia = in6ifa_ifpwithaddr(ifp, &ifra->ifra_addr.sin6_addr))
+                   == NULL) {
+                       /* XXX: this should not happen! */
+                       log(LOG_ERR, "in6_control: addition succeeded, but"
+                           " no ifaddr\n");
+               } else {
+                       IFA_LOCK(&ia->ia_ifa);
+                       if ((ia->ia6_flags & IN6_IFF_AUTOCONF) != 0 &&
+                           ia->ia6_ndpr == NULL) { /* new autoconfed addr */
+                               NDPR_LOCK(pr);
+                               pr->ndpr_addrcnt++;
+                               VERIFY(pr->ndpr_addrcnt != 0);
+                               ia->ia6_ndpr = pr;
+                               NDPR_ADDREF_LOCKED(pr); /* for addr reference */
 
-                       oia = ia;
-                       if (oia == (ia = in6_ifaddr))
-                               in6_ifaddr = ia->ia_next;
-                       else {
-                               while (ia->ia_next && (ia->ia_next != oia))
-                                       ia = ia->ia_next;
-                               if (ia->ia_next)
-                                       ia->ia_next = oia->ia_next;
-                               else {
-                                       printf("Didn't unlink in6_ifaddr "
-                                           "from list\n");
+                               /*
+                                * If this is the first autoconf address from
+                                * the prefix, create a temporary address
+                                * as well (when specified).
+                                */
+                               if (ip6_use_tempaddr &&
+                                   pr->ndpr_addrcnt == 1) {
+                                       int e;
+
+                                       NDPR_UNLOCK(pr);
+                                       IFA_UNLOCK(&ia->ia_ifa);
+
+                                       if ((e = in6_tmpifadd(ia, 1,
+                                           M_WAITOK)) != 0) {
+                                               log(LOG_NOTICE, "in6_control: "
+                                                   "failed to create a "
+                                                   "temporary address, "
+                                                   "errno=%d\n",
+                                                   e);
+                                       }
+                               } else {
+                                       NDPR_UNLOCK(pr);
+                                       IFA_UNLOCK(&ia->ia_ifa);
                                }
+                       } else {
+                               IFA_UNLOCK(&ia->ia_ifa);
                        }
-                       IFAFREE(&ia->ia_ifa);
+                       /*
+                        * this might affect the status of autoconfigured
+                        * addresses, that is, this address might make
+                        * other addresses detached.
+                        */
+                       lck_mtx_lock(nd6_mutex);
+                       pfxlist_onlink_check();
+                       lck_mtx_unlock(nd6_mutex);
                }
-#endif
-               return error;
 
-#if COMPAT_IN6IFIOCTL          /* XXX should be unused */
-       case SIOCSIFNETMASK_IN6:
-               ia->ia_prefixmask = ifr->ifr_addr;
-               bzero(&net, sizeof(net));
-               net.sin6_len = sizeof(struct sockaddr_in6);
-               net.sin6_family = AF_INET6;
-               net.sin6_port = htons(0);
-               net.sin6_flowinfo = htonl(0);
-               net.sin6_addr.s6_addr32[0]
-                       = ia->ia_addr.sin6_addr.s6_addr32[0] &
-                               ia->ia_prefixmask.sin6_addr.s6_addr32[0];
-               net.sin6_addr.s6_addr32[1]
-                       = ia->ia_addr.sin6_addr.s6_addr32[1] &
-                               ia->ia_prefixmask.sin6_addr.s6_addr32[1];
-               net.sin6_addr.s6_addr32[2]
-                       = ia->ia_addr.sin6_addr.s6_addr32[2] &
-                               ia->ia_prefixmask.sin6_addr.s6_addr32[2];
-               net.sin6_addr.s6_addr32[3]
-                       = ia->ia_addr.sin6_addr.s6_addr32[3] &
-                               ia->ia_prefixmask.sin6_addr.s6_addr32[3];
-               ia->ia_net = net;
+               /* Drop use count held above during lookup/add */
+               NDPR_REMREF(pr);
+#if PF
+               pf_ifaddr_hook(ifp, cmd);
+#endif /* PF */
                break;
-#endif
+       }
+
+       case SIOCDIFADDR_IN6: {
+               int i = 0;
+               struct nd_prefix pr0, *pr;
+
+               /*
+                * If the address being deleted is the only one that owns
+                * the corresponding prefix, expire the prefix as well.
+                * XXX: theoretically, we don't have to worry about such
+                * relationship, since we separate the address management
+                * and the prefix management.  We do this, however, to provide
+                * as much backward compatibility as possible in terms of
+                * the ioctl operation.
+                * Note that in6_purgeaddr() will decrement ndpr_addrcnt.
+                */
+               IFA_LOCK(&ia->ia_ifa);
+               bzero(&pr0, sizeof(pr0));
+               pr0.ndpr_ifp = ifp;
+               pr0.ndpr_plen = in6_mask2len(&ia->ia_prefixmask.sin6_addr,
+                                            NULL);
+               if (pr0.ndpr_plen == 128) {
+                       IFA_UNLOCK(&ia->ia_ifa);
+                       goto purgeaddr;
+               }
+               pr0.ndpr_prefix = ia->ia_addr;
+               pr0.ndpr_mask = ia->ia_prefixmask.sin6_addr;
+               for (i = 0; i < 4; i++) {
+                       pr0.ndpr_prefix.sin6_addr.s6_addr32[i] &=
+                               ia->ia_prefixmask.sin6_addr.s6_addr32[i];
+               }
+               IFA_UNLOCK(&ia->ia_ifa);
+               /*
+                * The logic of the following condition is a bit complicated.
+                * We expire the prefix when
+                * 1. the address obeys autoconfiguration and it is the
+                *    only owner of the associated prefix, or
+                * 2. the address does not obey autoconf and there is no
+                *    other owner of the prefix.
+                */
+               if ((pr = nd6_prefix_lookup(&pr0)) != NULL) {
+                       IFA_LOCK(&ia->ia_ifa);
+                       NDPR_LOCK(pr);
+                       if (((ia->ia6_flags & IN6_IFF_AUTOCONF) != 0 &&
+                           pr->ndpr_addrcnt == 1) ||
+                           ((ia->ia6_flags & IN6_IFF_AUTOCONF) == 0 &&
+                           pr->ndpr_addrcnt == 0)) {
+                               pr->ndpr_expire = 1; /* XXX: just for expiration */
+                       }
+                       NDPR_UNLOCK(pr);
+                       IFA_UNLOCK(&ia->ia_ifa);
+
+                       /* Drop use count held above during lookup */
+                       NDPR_REMREF(pr);
+               }
+
+purgeaddr:
+               in6_purgeaddr(&ia->ia_ifa);
+#if PF
+               pf_ifaddr_hook(ifp, cmd);
+#endif /* PF */
+               break;
+       }
+
+       default:
+               error = ifnet_ioctl(ifp, PF_INET6, cmd, data);
+               goto ioctl_cleanup;
+       }
+ioctl_cleanup:
+       if (ia != NULL)
+               IFA_REMREF(&ia->ia_ifa);
+       return (error);
+}
+
+/*
+ * Update parameters of an IPv6 interface address.
+ * If necessary, a new entry is created and linked into address chains.
+ * This function is separated from in6_control().
+ */
+int
+in6_update_ifa(struct ifnet *ifp, struct in6_aliasreq *ifra,
+    struct in6_ifaddr *ia, int flags, int how)
+{
+       int error = 0, hostIsNew = 0, plen = -1;
+       struct in6_ifaddr *oia;
+       struct sockaddr_in6 dst6;
+       struct in6_addrlifetime *lt;
+       struct in6_multi *in6m_sol = NULL;
+       struct in6_multi_mship *imm;
+       struct timeval timenow;
+       struct rtentry *rt;
+       struct ifaddr *ifa = NULL;
+       int delay;
+
 
-       case SIOCAIFADDR_IN6:
-               prefixIsNew = 0;
+       /* Validate parameters */
+       if (ifp == NULL || ifra == NULL) /* this maybe redundant */
+               return(EINVAL);
+
+       /*
+        * The destination address for a p2p link must have a family
+        * of AF_UNSPEC or AF_INET6.
+        */
+       if ((ifp->if_flags & IFF_POINTOPOINT) != 0 &&
+           ifra->ifra_dstaddr.sin6_family != AF_INET6 &&
+           ifra->ifra_dstaddr.sin6_family != AF_UNSPEC)
+               return(EAFNOSUPPORT);
+       /*
+        * validate ifra_prefixmask.  don't check sin6_family, netmask
+        * does not carry fields other than sin6_len.
+        */
+       if (ifra->ifra_prefixmask.sin6_len > sizeof(struct sockaddr_in6))
+               return(EINVAL);
+       /*
+        * Set the address family value for the mask if it was not set.
+        * Radar 3899482.
+        */
+       if (ifra->ifra_prefixmask.sin6_len == sizeof(struct sockaddr_in6) &&
+               ifra->ifra_prefixmask.sin6_family == 0) {
+               ifra->ifra_prefixmask.sin6_family = AF_INET6;
+       }
+       /*
+        * Because the IPv6 address architecture is classless, we require
+        * users to specify a (non 0) prefix length (mask) for a new address.
+        * We also require the prefix (when specified) mask is valid, and thus
+        * reject a non-consecutive mask.
+        */
+       if (ia == NULL && ifra->ifra_prefixmask.sin6_len == 0)
+               return(EINVAL);
+       if (ifra->ifra_prefixmask.sin6_len != 0) {
+               plen = in6_mask2len(&ifra->ifra_prefixmask.sin6_addr,
+                                   (u_char *)&ifra->ifra_prefixmask +
+                                   ifra->ifra_prefixmask.sin6_len);
+               if (plen <= 0)
+                       return (EINVAL);
+       } else {
+               /*
+                * In this case, ia must not be NULL.  We just use its prefix
+                * length.
+                */
+               IFA_LOCK(&ia->ia_ifa);
+               plen = in6_mask2len(&ia->ia_prefixmask.sin6_addr, NULL);
+               IFA_UNLOCK(&ia->ia_ifa);
+       }
+       /*
+        * If the destination address on a p2p interface is specified,
+        * and the address is a scoped one, validate/set the scope
+        * zone identifier.
+        */
+       dst6 = ifra->ifra_dstaddr;
+       if (((ifp->if_flags & (IFF_POINTOPOINT|IFF_LOOPBACK)) != 0 ) &&
+           (dst6.sin6_family == AF_INET6)) {
+               int scopeid;
+
+               if ((error = in6_recoverscope(&dst6,
+                                             &ifra->ifra_dstaddr.sin6_addr,
+                                             ifp)) != 0)
+                       return(error);
+
+               scopeid = in6_addr2scopeid(ifp, &dst6.sin6_addr);
+               if (dst6.sin6_scope_id == 0) /* user omit to specify the ID. */
+                       dst6.sin6_scope_id = scopeid;
+               else if (dst6.sin6_scope_id != scopeid)
+                       return(EINVAL); /* scope ID mismatch. */
+
+               if ((error = in6_embedscope(&dst6.sin6_addr, &dst6, NULL, NULL,
+                   NULL)) != 0)
+                       return(error);
+               dst6.sin6_scope_id = 0; /* XXX */
+       }
+       /*
+        * The destination address can be specified only for a p2p or a
+        * loopback interface.  If specified, the corresponding prefix length
+        * must be 128.
+        */
+       if (ifra->ifra_dstaddr.sin6_family == AF_INET6) {
+               if ((ifp->if_flags & (IFF_POINTOPOINT|IFF_LOOPBACK)) == 0) {
+                       /* XXX: noisy message */
+                       log(LOG_INFO, "in6_update_ifa: a destination can be "
+                           "specified for a p2p or a loopback IF only\n");
+                       return(EINVAL);
+               }
+               if (plen != 128) {
+                       /*
+                        * The following message seems noisy, but we dare to
+                        * add it for diagnosis.
+                        */
+                       log(LOG_INFO, "in6_update_ifa: prefixlen must be 128 "
+                           "when dstaddr is specified\n");
+                       return(EINVAL);
+               }
+       }
+       /* lifetime consistency check */
+
+       getmicrotime(&timenow);
+       lt = &ifra->ifra_lifetime;
+       if ((lt->ia6t_vltime != ND6_INFINITE_LIFETIME
+            || (ifra->ifra_flags & IN6_IFF_TEMPORARY) != 0)
+           && lt->ia6t_vltime + timenow.tv_sec < timenow.tv_sec) {
+               return EINVAL;
+       }
+       if (lt->ia6t_vltime == 0) {
+               /*
+                * the following log might be noisy, but this is a typical
+                * configuration mistake or a tool's bug.
+                */
+               log(LOG_INFO,
+                   "in6_update_ifa: valid lifetime is 0 for %s\n",
+                   ip6_sprintf(&ifra->ifra_addr.sin6_addr));
+       }
+       if ((lt->ia6t_pltime != ND6_INFINITE_LIFETIME
+            || (ifra->ifra_flags & IN6_IFF_TEMPORARY) != 0)
+           && lt->ia6t_pltime + timenow.tv_sec < timenow.tv_sec) {
+               return EINVAL;
+       }
+
+       /*
+        * If this is a new address, allocate a new ifaddr and link it
+        * into chains.
+        */
+       if (ia == NULL) {
                hostIsNew = 1;
+               /*
+                * in6_update_ifa() may be called in a process of a received
+                * RA; in such a case, we should call malloc with M_NOWAIT.
+                * The exception to this is during init time or as part of
+                * handling an ioctl, when we know it's okay to do M_WAITOK.
+                */
+               ia = in6_ifaddr_alloc(how);
+               if (ia == NULL)
+                       return (ENOBUFS);
+               ifnet_lock_exclusive(ifp);
+               IFA_LOCK(&ia->ia_ifa);
+               LIST_INIT(&ia->ia6_memberships);
+               /* Initialize the address and masks, and put time stamp */
+               ia->ia_ifa.ifa_addr = (struct sockaddr *)&ia->ia_addr;
+               ia->ia_addr.sin6_family = AF_INET6;
+               ia->ia_addr.sin6_len = sizeof(ia->ia_addr);
+               ia->ia6_createtime = timenow.tv_sec;
+               if ((ifp->if_flags & (IFF_POINTOPOINT | IFF_LOOPBACK)) != 0) {
+                       /*
+                        * XXX: some functions expect that ifa_dstaddr is not
+                        * NULL for p2p interfaces.
+                        */
+                       ia->ia_ifa.ifa_dstaddr
+                               = (struct sockaddr *)&ia->ia_dstaddr;
+               } else {
+                       ia->ia_ifa.ifa_dstaddr = NULL;
+               }
+               ia->ia_ifa.ifa_netmask
+                       = (struct sockaddr *)&ia->ia_prefixmask;
+
+               ia->ia_ifp = ifp;
+               /* if_attach_ifa() holds a reference for ifa_link */
+               if_attach_ifa(ifp, &ia->ia_ifa);
+               /* hold a reference for this routine */
+               IFA_ADDREF_LOCKED(&ia->ia_ifa);
+               IFA_UNLOCK(&ia->ia_ifa);
+               ifnet_lock_done(ifp);
+               lck_rw_lock_exclusive(&in6_ifaddr_rwlock);
+               /* Hold a reference for in6_ifaddrs link */
+               IFA_ADDREF(&ia->ia_ifa);
+               if ((oia = in6_ifaddrs) != NULL) {
+                       for ( ; oia->ia_next; oia = oia->ia_next)
+                               continue;
+                       oia->ia_next = ia;
+               } else {
+                       in6_ifaddrs = ia;
+               }
+               lck_rw_done(&in6_ifaddr_rwlock);
+       } else {
+               /* hold a reference for this routine */
+               IFA_ADDREF(&ia->ia_ifa);
+       }
+
+       ifa = &ia->ia_ifa;
+       IFA_LOCK(ifa);
 
-               if (ifra->ifra_addr.sin6_len == 0) {
-                       ifra->ifra_addr = ia->ia_addr;
-                       hostIsNew = 0;
-               } else if (IN6_ARE_ADDR_EQUAL(&ifra->ifra_addr.sin6_addr,
-                                             &ia->ia_addr.sin6_addr))
-                       hostIsNew = 0;
+       /* update timestamp */
+       ia->ia6_updatetime = timenow.tv_sec;
 
-               /* Validate address families: */
+       /* set prefix mask */
+       if (ifra->ifra_prefixmask.sin6_len) {
                /*
-                * The destination address for a p2p link must have a family
-                * of AF_UNSPEC or AF_INET6.
+                * We prohibit changing the prefix length of an existing
+                * address, because
+                * + such an operation should be rare in IPv6, and
+                * + the operation would confuse prefix management.
                 */
-               if ((ifp->if_flags & IFF_POINTOPOINT) != 0 &&
-                   ifra->ifra_dstaddr.sin6_family != AF_INET6 &&
-                   ifra->ifra_dstaddr.sin6_family != AF_UNSPEC)
-                       return(EAFNOSUPPORT);
+               if (ia->ia_prefixmask.sin6_len &&
+                   in6_mask2len(&ia->ia_prefixmask.sin6_addr, NULL) != plen) {
+                       log(LOG_INFO, "in6_update_ifa: the prefix length of an"
+                           " existing (%s) address should not be changed\n",
+                           ip6_sprintf(&ia->ia_addr.sin6_addr));
+                       error = EINVAL;
+                       IFA_UNLOCK(ifa);
+                       goto unlink;
+               }
+               ia->ia_prefixmask = ifra->ifra_prefixmask;
+       }
+
+       /*
+        * If a new destination address is specified, scrub the old one and
+        * install the new destination.  Note that the interface must be
+        * p2p or loopback (see the check above.)
+        */
+       if (dst6.sin6_family == AF_INET6 &&
+           !IN6_ARE_ADDR_EQUAL(&dst6.sin6_addr, &ia->ia_dstaddr.sin6_addr)) {
+               if ((ia->ia_flags & IFA_ROUTE)) {
+                       int e;
+
+                       IFA_UNLOCK(ifa);
+                       if ((e = rtinit(&(ia->ia_ifa), (int)RTM_DELETE,
+                           RTF_HOST)) != 0) {
+                               log(LOG_ERR, "in6_update_ifa: failed to remove "
+                                   "a route to the old destination: %s\n",
+                                   ip6_sprintf(&ia->ia_addr.sin6_addr));
+                               /* proceed anyway... */
+                       }
+                       IFA_LOCK(ifa);
+               } else {
+                       ia->ia_flags &= ~IFA_ROUTE;
+               }
+               IFA_LOCK_ASSERT_HELD(ifa);
+               ia->ia_dstaddr = dst6;
+       }
+
+       /*
+        * Set lifetimes.  We do not refer to ia6t_expire and ia6t_preferred
+        * to see if the address is deprecated or invalidated, but initialize
+        * these members for applications.
+        */
+       ia->ia6_lifetime = ifra->ifra_lifetime;
+       if (ia->ia6_lifetime.ia6t_vltime != ND6_INFINITE_LIFETIME
+           || (ifra->ifra_flags & IN6_IFF_TEMPORARY) != 0) {
+               ia->ia6_lifetime.ia6t_expire =
+                   timenow.tv_sec + ia->ia6_lifetime.ia6t_vltime;
+       } else
+               ia->ia6_lifetime.ia6t_expire = 0;
+       if (ia->ia6_lifetime.ia6t_pltime != ND6_INFINITE_LIFETIME
+           || (ifra->ifra_flags & IN6_IFF_TEMPORARY) != 0) {
+               ia->ia6_lifetime.ia6t_preferred =
+                   timenow.tv_sec + ia->ia6_lifetime.ia6t_pltime;
+       } else
+               ia->ia6_lifetime.ia6t_preferred = 0;
+
+       IFA_UNLOCK(ifa);
+       /* reset the interface and routing table appropriately. */
+       if ((error = in6_ifinit(ifp, ia, &ifra->ifra_addr, hostIsNew)) != 0)
+               goto unlink;
+
+       IFA_LOCK(ifa);
+       /*
+        * configure address flags.
+        */
+       ia->ia6_flags = ifra->ifra_flags;
+       /*
+        * backward compatibility - if IN6_IFF_DEPRECATED is set from the
+        * userland, make it deprecated.
+        */
+       if ((ifra->ifra_flags & IN6_IFF_DEPRECATED) != 0) {
+               ia->ia6_lifetime.ia6t_pltime = 0;
+               ia->ia6_lifetime.ia6t_preferred = timenow.tv_sec;
+       }
+       /*
+        * Make the address tentative before joining multicast addresses,
+        * so that corresponding MLD responses would not have a tentative
+        * source address.
+        */
+       ia->ia6_flags &= ~IN6_IFF_DUPLICATED;   /* safety */
+       if (hostIsNew && in6if_do_dad(ifp))
+               ia->ia6_flags |= IN6_IFF_TENTATIVE;
+
+       /*
+        * We are done if we have simply modified an existing address.
+        */
+       if (!hostIsNew) {
+               IFA_UNLOCK(ifa);
+               /* release reference held for this routine */
+               IFA_REMREF(ifa);
+               return (error);
+       }
+       /*
+        * Beyond this point, we should call in6_purgeaddr upon an error,
+        * not just go to unlink.
+        */
+       IFA_LOCK_ASSERT_HELD(ifa);
+       /* Join necessary multicast groups */
+       if ((ifp->if_flags & IFF_MULTICAST) != 0) {
+               struct sockaddr_in6 mltaddr, mltmask;
+               struct in6_addr llsol;
+
+               IFA_UNLOCK(ifa);
+               /* join solicited multicast addr for new host id */
+               bzero(&llsol, sizeof(struct in6_addr));
+               llsol.s6_addr32[0] = IPV6_ADDR_INT32_MLL;
+               llsol.s6_addr32[1] = 0;
+               llsol.s6_addr32[2] = htonl(1);
+               llsol.s6_addr32[3] = ifra->ifra_addr.sin6_addr.s6_addr32[3];
+               llsol.s6_addr8[12] = 0xff;
+               if ((error = in6_setscope(&llsol, ifp, NULL)) != 0) {
+                       /* XXX: should not happen */
+                       log(LOG_ERR, "in6_update_ifa: "
+                           "in6_setscope failed\n");
+                       goto cleanup;
+               }
+               delay = 0;
+               if ((flags & IN6_IFAUPDATE_DADDELAY)) {
+                       /*
+                        * We need a random delay for DAD on the address
+                        * being configured.  It also means delaying
+                        * transmission of the corresponding MLD report to
+                        * avoid report collision.
+                        * [draft-ietf-ipv6-rfc2462bis-02.txt]
+                        */
+                       delay = random() %
+                           (MAX_RTR_SOLICITATION_DELAY * PR_SLOWHZ);
+               }
+               imm = in6_joingroup(ifp, &llsol, &error, delay);
+               if (imm == NULL) {
+                       nd6log((LOG_WARNING,
+                           "in6_update_ifa: addmulti failed for "
+                           "%s on %s (errno=%d)\n",
+                           ip6_sprintf(&llsol), if_name(ifp),
+                           error));
+                       in6_purgeaddr((struct ifaddr *)ia);
+                       /* release reference held for this routine */
+                       IFA_REMREF(ifa);
+                       return (error);
+               }
+               in6m_sol = imm->i6mm_maddr;
+               /* take a refcount for this routine */
+               IN6M_ADDREF(in6m_sol);
+
+               IFA_LOCK_SPIN(ifa);
+               LIST_INSERT_HEAD(&ia->ia6_memberships, imm, i6mm_chain);
+               IFA_UNLOCK(ifa);
+
+               bzero(&mltmask, sizeof(mltmask));
+               mltmask.sin6_len = sizeof(struct sockaddr_in6);
+               mltmask.sin6_family = AF_INET6;
+               mltmask.sin6_addr = in6mask32;
+#define        MLTMASK_LEN  4  /* mltmask's masklen (=32bit=4octet) */
+
                /*
-                * The prefixmask must have a family of AF_UNSPEC or AF_INET6.
+                * join link-local all-nodes address
                 */
-               if (ifra->ifra_prefixmask.sin6_family != AF_INET6 &&
-                   ifra->ifra_prefixmask.sin6_family != AF_UNSPEC)
-                       return(EAFNOSUPPORT);
-
-               if (ifra->ifra_prefixmask.sin6_len) {
-                       in6_ifscrub(ifp, ia);
-                       ia->ia_prefixmask = ifra->ifra_prefixmask;
-                       prefixIsNew = 1;
-               }
-               if ((ifp->if_flags & IFF_POINTOPOINT) &&
-                   (ifra->ifra_dstaddr.sin6_family == AF_INET6)) {
-                       in6_ifscrub(ifp, ia);
-                       oldaddr = ia->ia_dstaddr;
-                       ia->ia_dstaddr = ifra->ifra_dstaddr;
-                       /* link-local index check: should be a separate function? */
-                       if (IN6_IS_ADDR_LINKLOCAL(&ia->ia_dstaddr.sin6_addr)) {
-                               if (ia->ia_dstaddr.sin6_addr.s6_addr16[1] == 0) {
-                                       /*
-                                        * interface ID is not embedded by
-                                        * the user
-                                        */
-                                       ia->ia_dstaddr.sin6_addr.s6_addr16[1]
-                                               = htons(ifp->if_index);
-                               } else if (ia->ia_dstaddr.sin6_addr.s6_addr16[1] !=
-                                           htons(ifp->if_index)) {
-                                       ia->ia_dstaddr = oldaddr;
-                                       return(EINVAL); /* ifid is contradict */
-                               }
+               bzero(&mltaddr, sizeof(mltaddr));
+               mltaddr.sin6_len = sizeof(struct sockaddr_in6);
+               mltaddr.sin6_family = AF_INET6;
+               mltaddr.sin6_addr = in6addr_linklocal_allnodes;
+               if ((error = in6_setscope(&mltaddr.sin6_addr, ifp, NULL)) !=
+                   0)
+                       goto cleanup; /* XXX: should not fail */
+
+               /*
+                * XXX: do we really need this automatic routes?
+                * We should probably reconsider this stuff.  Most applications
+                * actually do not need the routes, since they usually specify
+                * the outgoing interface.
+                */
+               rt = rtalloc1_scoped((struct sockaddr *)&mltaddr, 0, 0UL,
+                   ia->ia_ifp->if_index);
+               if (rt) {
+                       if (memcmp(&mltaddr.sin6_addr,
+                           &((struct sockaddr_in6 *)rt_key(rt))->sin6_addr,
+                           MLTMASK_LEN)) {
+                               rtfree(rt);
+                               rt = NULL;
                        }
-                       prefixIsNew = 1; /* We lie; but effect's the same */
                }
-               if (hostIsNew || prefixIsNew) {
-                       error = in6_ifinit(ifp, ia, &ifra->ifra_addr, 0);
-#if 0
+               if (!rt) {
+                       error = rtrequest_scoped(RTM_ADD,
+                           (struct sockaddr *)&mltaddr,
+                           (struct sockaddr *)&ia->ia_addr,
+                           (struct sockaddr *)&mltmask, RTF_UP | RTF_CLONING,
+                           NULL, ia->ia_ifp->if_index);
                        if (error)
-                               goto undo;
-#endif
+                               goto cleanup;
+               } else {
+                       rtfree(rt);
                }
-               if (hostIsNew && (ifp->if_flags & IFF_MULTICAST)) {
-                       int error_local = 0;
 
+               imm = in6_joingroup(ifp, &mltaddr.sin6_addr, &error, 0);
+               if (!imm) {
+                       nd6log((LOG_WARNING,
+                           "in6_update_ifa: addmulti failed for "
+                           "%s on %s (errno=%d)\n",
+                           ip6_sprintf(&mltaddr.sin6_addr),
+                           if_name(ifp), error));
+                       goto cleanup;
+               }
+               IFA_LOCK_SPIN(ifa);
+               LIST_INSERT_HEAD(&ia->ia6_memberships, imm, i6mm_chain);
+               IFA_UNLOCK(ifa);
+
+               /*
+                * join node information group address
+                */
+#define hostnamelen    strlen(hostname)
+               delay = 0;
+               if ((flags & IN6_IFAUPDATE_DADDELAY)) {
                        /*
-                        * join solicited multicast addr for new host id
+                        * The spec doesn't say anything about delay for this
+                        * group, but the same logic should apply.
                         */
-                       struct in6_addr llsol;
-                       bzero(&llsol, sizeof(struct in6_addr));
-                       llsol.s6_addr16[0] = htons(0xff02);
-                       llsol.s6_addr16[1] = htons(ifp->if_index);
-                       llsol.s6_addr32[1] = 0;
-                       llsol.s6_addr32[2] = htonl(1);
-                       llsol.s6_addr32[3] =
-                               ifra->ifra_addr.sin6_addr.s6_addr32[3];
-                       llsol.s6_addr8[12] = 0xff;
-                       (void)in6_addmulti(&llsol, ifp, &error_local);
-                       if (error == 0)
-                               error = error_local;
-               }
-
-               ia->ia6_flags = ifra->ifra_flags;
-               ia->ia6_flags &= ~IN6_IFF_DUPLICATED;   /*safety*/
-               ia->ia6_flags &= ~IN6_IFF_NODAD;        /* Mobile IPv6 */
-
-               ia->ia6_lifetime = ifra->ifra_lifetime;
-               /* for sanity */
-               if (ia->ia6_lifetime.ia6t_vltime != ND6_INFINITE_LIFETIME) {
-                       ia->ia6_lifetime.ia6t_expire =
-                               time_second + ia->ia6_lifetime.ia6t_vltime;
-               } else
-                       ia->ia6_lifetime.ia6t_expire = 0;
-               if (ia->ia6_lifetime.ia6t_pltime != ND6_INFINITE_LIFETIME) {
-                       ia->ia6_lifetime.ia6t_preferred =
-                               time_second + ia->ia6_lifetime.ia6t_pltime;
-               } else
-                       ia->ia6_lifetime.ia6t_preferred = 0;
+                       delay = random() %
+                           (MAX_RTR_SOLICITATION_DELAY * PR_SLOWHZ);
+               }
+               if (in6_nigroup(ifp, hostname, hostnamelen, &mltaddr.sin6_addr)
+                   == 0) {
+                       imm = in6_joingroup(ifp, &mltaddr.sin6_addr, &error,
+                           delay); /* XXX jinmei */
+                       if (!imm) {
+                               nd6log((LOG_WARNING, "in6_update_ifa: "
+                                   "addmulti failed for %s on %s "
+                                   "(errno=%d)\n",
+                                   ip6_sprintf(&mltaddr.sin6_addr),
+                                   if_name(ifp), error));
+                               /* XXX not very fatal, go on... */
+                       } else {
+                               IFA_LOCK_SPIN(ifa);
+                               LIST_INSERT_HEAD(&ia->ia6_memberships,
+                                   imm, i6mm_chain);
+                               IFA_UNLOCK(ifa);
+                       }
+               }
+#undef hostnamelen
 
                /*
-                * Perform DAD, if needed.
-                * XXX It may be of use, if we can administratively
-                * disable DAD.
+                * join interface-local all-nodes address.
+                * (ff01::1%ifN, and ff01::%ifN/32)
                 */
-               switch (ifp->if_type) {
-               case IFT_ARCNET:
-               case IFT_ETHER:
-               case IFT_FDDI:
-#if 0
-               case IFT_ATM:
-               case IFT_SLIP:
-               case IFT_PPP:
-#endif
-                       /* Mobile IPv6 modification */
-                       if ((ifra->ifra_flags & IN6_IFF_NODAD) == 0) {
-                               ia->ia6_flags |= IN6_IFF_TENTATIVE;
-                               nd6_dad_start((struct ifaddr *)ia, NULL);
+               mltaddr.sin6_addr = in6addr_nodelocal_allnodes;
+               if ((error = in6_setscope(&mltaddr.sin6_addr, ifp, NULL))
+                   != 0)
+                       goto cleanup; /* XXX: should not fail */
+               /* XXX: again, do we really need the route? */
+               rt = rtalloc1_scoped((struct sockaddr *)&mltaddr, 0, 0UL,
+                   ia->ia_ifp->if_index);
+               if (rt) {
+                       if (memcmp(&mltaddr.sin6_addr,
+                           &((struct sockaddr_in6 *)rt_key(rt))->sin6_addr,
+                           MLTMASK_LEN)) {
+                               rtfree(rt);
+                               rt = NULL;
                        }
-                       break;
-               case IFT_DUMMY:
-               case IFT_FAITH:
-               case IFT_GIF:
-               case IFT_LOOP:
-               default:
-                       break;
                }
+               if (!rt) {
+                       error = rtrequest_scoped(RTM_ADD,
+                           (struct sockaddr *)&mltaddr,
+                           (struct sockaddr *)&ia->ia_addr,
+                           (struct sockaddr *)&mltmask, RTF_UP | RTF_CLONING,
+                           NULL, ia->ia_ifp->if_index);
+                       if (error)
+                               goto cleanup;
+               } else
+                       rtfree(rt);
+
+               imm = in6_joingroup(ifp, &mltaddr.sin6_addr, &error, 0);
+               if (!imm) {
+                       nd6log((LOG_WARNING, "in6_update_ifa: "
+                           "addmulti failed for %s on %s "
+                           "(errno=%d)\n",
+                           ip6_sprintf(&mltaddr.sin6_addr),
+                           if_name(ifp), error));
+                       goto cleanup;
+               }
+               IFA_LOCK(ifa);
+               LIST_INSERT_HEAD(&ia->ia6_memberships, imm, i6mm_chain);
+               /* keep it locked */
+#undef MLTMASK_LEN
+       }
+       IFA_LOCK_ASSERT_HELD(ifa);
+       /*
+        * Make sure to initialize ND6 information.  this is to workaround
+        * issues with interfaces with IPv6 addresses, which have never brought
+        * up.  We are assuming that it is safe to nd6_ifattach multiple times.
+        * NOTE: this is how stf0 gets initialized
+        */
+       if ((error = nd6_ifattach(ifp)) != 0)
+               return error;
 
-               if (hostIsNew) {
-                       int iilen;
-                       int error_local = 0;
+       /*
+        * Perform DAD, if needed.
+        * XXX It may be of use, if we can administratively
+        * disable DAD.
+        */
+       if (hostIsNew && in6if_do_dad(ifp) &&
+           ((ifra->ifra_flags & IN6_IFF_NODAD) == 0) &&
+           (ia->ia6_flags & IN6_IFF_TENTATIVE))
+       {
+               int mindelay, maxdelay;
 
-                       iilen = (sizeof(ia->ia_prefixmask.sin6_addr) << 3) -
-                               in6_mask2len(&ia->ia_prefixmask.sin6_addr);
-                       error_local = in6_prefix_add_ifid(iilen, ia);
-                       if (error == 0)
-                               error = error_local;
+               IFA_UNLOCK(ifa);
+               delay = 0;
+               if ((flags & IN6_IFAUPDATE_DADDELAY)) {
+                       /*
+                        * We need to impose a delay before sending an NS
+                        * for DAD.  Check if we also needed a delay for the
+                        * corresponding MLD message.  If we did, the delay
+                        * should be larger than the MLD delay (this could be
+                        * relaxed a bit, but this simple logic is at least
+                        * safe).
+                        */
+                       mindelay = 0;
+                       if (in6m_sol != NULL) {
+                               IN6M_LOCK(in6m_sol);
+                               if (in6m_sol->in6m_state == MLD_REPORTING_MEMBER)
+                                       mindelay = in6m_sol->in6m_timer;
+                               IN6M_UNLOCK(in6m_sol);
+                       }
+                       maxdelay = MAX_RTR_SOLICITATION_DELAY * hz;
+                       if (maxdelay - mindelay == 0)
+                               delay = 0;
+                       else {
+                               delay =
+                                   (random() % (maxdelay - mindelay)) +
+                                   mindelay;
+                       }
                }
+               nd6_dad_start((struct ifaddr *)ia, &delay);
+       } else {
+               IFA_UNLOCK(ifa);
+       }
+done:
+       /* release reference held for this routine */
+       if (ifa != NULL)
+               IFA_REMREF(ifa);
+       if (in6m_sol != NULL)
+               IN6M_REMREF(in6m_sol);
+       return (error);
+
+unlink:
+       /*
+        * XXX: if a change of an existing address failed, keep the entry
+        * anyway.
+        */
+       if (hostIsNew) {
+               in6_unlink_ifa(ia, ifp);
+       }
+       goto done;
 
-               return(error);
+cleanup:
+       in6_purgeaddr(&ia->ia_ifa);
+       goto done;
+}
 
-       case SIOCDIFADDR_IN6:
-               in6_purgeaddr(&ia->ia_ifa, ifp);
-               break;
+void
+in6_purgeaddr(struct ifaddr *ifa)
+{
+       struct ifnet *ifp = ifa->ifa_ifp;
+       struct in6_ifaddr *ia = (struct in6_ifaddr *) ifa;
+       struct in6_multi_mship *imm;
 
-       default:
-#ifdef __APPLE__
-                error = dlil_ioctl(0, ifp, cmd, (caddr_t)data);
-               if (error == EOPNOTSUPP)
-                       error = 0;
-                return error;
+       lck_mtx_assert(nd6_mutex, LCK_MTX_ASSERT_NOTOWNED);
 
-#else
-               if (ifp == NULL || ifp->if_ioctl == 0)
-                       return(EOPNOTSUPP);
-               return((*ifp->if_ioctl)(ifp, cmd, data));
-#endif
+       /* stop DAD processing */
+       nd6_dad_stop(ifa);
+
+       /*
+        * delete route to the destination of the address being purged.
+        * The interface must be p2p or loopback in this case.
+        */
+       IFA_LOCK(ifa);
+       if ((ia->ia_flags & IFA_ROUTE) != 0 && ia->ia_dstaddr.sin6_len != 0) {
+               int e;
+
+               IFA_UNLOCK(ifa);
+               if ((e = rtinit(&(ia->ia_ifa), (int)RTM_DELETE, RTF_HOST))
+                   != 0) {
+                       log(LOG_ERR, "in6_purgeaddr: failed to remove "
+                           "a route to the p2p destination: %s on %s, "
+                           "errno=%d\n",
+                           ip6_sprintf(&ia->ia_addr.sin6_addr), if_name(ifp),
+                           e);
+                       /* proceed anyway... */
+               } else {
+                       IFA_LOCK_SPIN(ifa);
+                       ia->ia_flags &= ~IFA_ROUTE;
+                       IFA_UNLOCK(ifa);
+               }
+       } else {
+               IFA_UNLOCK(ifa);
+       }
+       IFA_LOCK_ASSERT_NOTHELD(ifa);
+
+       /* Remove ownaddr's loopback rtentry, if it exists. */
+       in6_ifremloop(&(ia->ia_ifa));
+
+       /*
+        * leave from multicast groups we have joined for the interface
+        */
+       IFA_LOCK(ifa);
+       while ((imm = ia->ia6_memberships.lh_first) != NULL) {
+               LIST_REMOVE(imm, i6mm_chain);
+               IFA_UNLOCK(ifa);
+               in6_leavegroup(imm);
+               IFA_LOCK(ifa);
        }
-       return(0);
+       IFA_UNLOCK(ifa);
+
+       /* in6_unlink_ifa() will need exclusive access */
+       in6_unlink_ifa(ia, ifp);
+       in6_post_msg(ifp, KEV_INET6_ADDR_DELETED, ia);
 }
 
-void
-in6_purgeaddr(ifa, ifp)
-       struct ifaddr *ifa;
-       struct ifnet *ifp;
+static void
+in6_unlink_ifa(struct in6_ifaddr *ia, struct ifnet *ifp)
 {
-       struct in6_ifaddr *oia, *ia = (void *) ifa;
-
-       in6_ifscrub(ifp, ia);
+       struct in6_ifaddr *oia;
+       struct ifaddr *ifa;
+       int unlinked;
 
-       if (ifp->if_flags & IFF_MULTICAST) {
-               /*
-                * delete solicited multicast addr for deleting host id
-                */
-               struct in6_multi *in6m;
-               struct in6_addr llsol;
-               bzero(&llsol, sizeof(struct in6_addr));
-               llsol.s6_addr16[0] = htons(0xff02);
-               llsol.s6_addr16[1] = htons(ifp->if_index);
-               llsol.s6_addr32[1] = 0;
-               llsol.s6_addr32[2] = htonl(1);
-               llsol.s6_addr32[3] =
-                       ia->ia_addr.sin6_addr.s6_addr32[3];
-               llsol.s6_addr8[12] = 0xff;
+       lck_mtx_assert(nd6_mutex, LCK_MTX_ASSERT_NOTOWNED);
 
-               IN6_LOOKUP_MULTI(llsol, ifp, in6m);
-               if (in6m)
-                       in6_delmulti(in6m);
-       }
+       ifa = &ia->ia_ifa;
+       IFA_ADDREF(ifa);
 
-#if defined(__bsdi__) || (defined(__FreeBSD__) && __FreeBSD__ < 3)
-       if ((ifa = ifp->if_addrlist) == ia62ifa(ia))
-               ifp->if_addrlist = ifa->ifa_next;
-       else {
-               while (ifa->ifa_next &&
-                      (ifa->ifa_next != ia62ifa(ia)))
-                       ifa = ifa->ifa_next;
-               if (ifa->ifa_next)
-                       ifa->ifa_next = ia62ifa(ia)->ifa_next;
-               else
-                       printf("Couldn't unlink in6_ifaddr from ifp\n");
-       }
-#else
-       TAILQ_REMOVE(&ifp->if_addrlist, &ia->ia_ifa, ifa_list);
-#endif
-       IFAFREE(&ia->ia_ifa);
+       ifnet_lock_exclusive(ifp);
+       IFA_LOCK(ifa);
+       if (ifa->ifa_debug & IFD_ATTACHED)
+               if_detach_ifa(ifp, ifa);
+       IFA_UNLOCK(ifa);
+       ifnet_lock_done(ifp);
 
+       unlinked = 1;
+       lck_rw_lock_exclusive(&in6_ifaddr_rwlock);
        oia = ia;
-       if (oia == (ia = in6_ifaddr))
-               in6_ifaddr = ia->ia_next;
-       else {
+       if (oia == (ia = in6_ifaddrs)) {
+               in6_ifaddrs = ia->ia_next;
+       else {
                while (ia->ia_next && (ia->ia_next != oia))
                        ia = ia->ia_next;
-               if (ia->ia_next)
+               if (ia->ia_next) {
                        ia->ia_next = oia->ia_next;
-               else
-                       printf("Didn't unlink in6_ifaddr from list\n");
+               } else {
+                       /* search failed */
+                       printf("Couldn't unlink in6_ifaddr from in6_ifaddr\n");
+                       unlinked = 0;
+               }
        }
-       {
-               int iilen;
 
-               iilen = (sizeof(oia->ia_prefixmask.sin6_addr) << 3) -
-                       in6_mask2len(&oia->ia_prefixmask.sin6_addr);
-               in6_prefix_remove_ifid(iilen, oia);
+       /*
+        * When an autoconfigured address is being removed, release the
+        * reference to the base prefix.  Also, since the release might
+        * affect the status of other (detached) addresses, call
+        * pfxlist_onlink_check().
+        */
+       ifa = &oia->ia_ifa;
+       IFA_LOCK(ifa);
+       if ((oia->ia6_flags & IN6_IFF_AUTOCONF) != 0) {
+               if (oia->ia6_ndpr == NULL) {
+                       log(LOG_NOTICE, "in6_unlink_ifa: autoconf'ed address "
+                           "%p has no prefix\n", oia);
+               } else {
+                       struct nd_prefix *pr = oia->ia6_ndpr;
+
+                       oia->ia6_flags &= ~IN6_IFF_AUTOCONF;
+                       oia->ia6_ndpr = NULL;
+                       NDPR_LOCK(pr);
+                       VERIFY(pr->ndpr_addrcnt != 0);
+                       pr->ndpr_addrcnt--;
+                       NDPR_UNLOCK(pr);
+                       NDPR_REMREF(pr);        /* release addr reference */
+               }
+               IFA_UNLOCK(ifa);
+               lck_rw_done(&in6_ifaddr_rwlock);
+               lck_mtx_lock(nd6_mutex);
+               pfxlist_onlink_check();
+               lck_mtx_unlock(nd6_mutex);
+       } else {
+               IFA_UNLOCK(ifa);
+               lck_rw_done(&in6_ifaddr_rwlock);
+       }
+
+       /*
+        * release another refcnt for the link from in6_ifaddrs.
+        * Do this only if it's not already unlinked in the event that we lost
+        * the race, since in6_ifaddr_rwlock was momentarily dropped above.
+        */
+       if (unlinked)
+               IFA_REMREF(ifa);
+
+       /* release reference held for this routine */
+       IFA_REMREF(ifa);
+}
+
+void
+in6_purgeif(struct ifnet *ifp)
+{
+       struct in6_ifaddr *ia;
+
+       if (ifp == NULL)
+               return;
+
+       lck_mtx_assert(nd6_mutex, LCK_MTX_ASSERT_NOTOWNED);
+
+       lck_rw_lock_exclusive(&in6_ifaddr_rwlock);
+       ia = in6_ifaddrs;
+       while (ia != NULL) {
+               if (ia->ia_ifa.ifa_ifp != ifp) {
+                       ia = ia->ia_next;
+                       continue;
+               }
+               IFA_ADDREF(&ia->ia_ifa);        /* for us */
+               lck_rw_done(&in6_ifaddr_rwlock);
+               in6_purgeaddr(&ia->ia_ifa);
+               lck_rw_lock_exclusive(&in6_ifaddr_rwlock);
+               IFA_REMREF(&ia->ia_ifa);        /* for us */
+               /*
+                * Purging the address would have caused
+                * in6_ifaddr_rwlock to be dropped and reacquired;
+                * therefore search again from the beginning
+                * of in6_ifaddrs list.
+                */
+               ia = in6_ifaddrs;
        }
-#if !(defined(__FreeBSD__) && __FreeBSD__ >= 3) && !defined (__APPLE__)
-       if (oia->ia6_multiaddrs.lh_first != NULL)
-               in6_savemkludge(oia);
-#endif
+       lck_rw_done(&in6_ifaddr_rwlock);
 
-       IFAFREE(&oia->ia_ifa);
+       in6_ifdetach(ifp);
 }
 
 /*
  * SIOC[GAD]LIFADDR.
- *     SIOCGLIFADDR: get first address. (???)
+ *     SIOCGLIFADDR: get first address. (?)
  *     SIOCGLIFADDR with IFLR_PREFIX:
  *             get first address that matches the specified prefix.
  *     SIOCALIFADDR: add the specified address.
  *     SIOCALIFADDR with IFLR_PREFIX:
- *             add the specified prefix, filling hostid part from
+ *             add the specified prefix, filling hostaddr part from
  *             the first link-local address.  prefixlen must be <= 64.
  *     SIOCDLIFADDR: delete the specified address.
  *     SIOCDLIFADDR with IFLR_PREFIX:
@@ -1096,29 +2052,18 @@ in6_purgeaddr(ifa, ifp)
  * address encoding scheme. (see figure on page 8)
  */
 static int
-#if !defined(__bsdi__) && !(defined(__FreeBSD__) && __FreeBSD__ < 3) && !defined (__APPLE__)
-in6_lifaddr_ioctl(so, cmd, data, ifp, p)
-       struct socket *so;
-       u_long cmd;
-       caddr_t data;
-       struct ifnet *ifp;
-       struct proc *p;
-#else
-in6_lifaddr_ioctl(so, cmd, data, ifp)
-       struct socket *so;
-       u_long cmd;
-       caddr_t data;
-       struct ifnet *ifp;
-#endif
+in6_lifaddr_ioctl(struct socket *so, u_long cmd, caddr_t data,
+    struct ifnet *ifp, struct proc *p)
 {
        struct if_laddrreq *iflr = (struct if_laddrreq *)data;
-       struct ifaddr *ifa;
+       struct ifaddr *ifa = NULL;
        struct sockaddr *sa;
+       int p64 = proc_is64bit(p);
 
        /* sanity checks */
        if (!data || !ifp) {
                panic("invalid argument to in6_lifaddr_ioctl");
-               /*NOTRECHED*/
+               /*NOTREACHED*/
        }
 
        switch (cmd) {
@@ -1126,7 +2071,7 @@ in6_lifaddr_ioctl(so, cmd, data, ifp)
                /* address must be specified on GET with IFLR_PREFIX */
                if ((iflr->flags & IFLR_PREFIX) == 0)
                        break;
-               /*FALLTHROUGH*/
+               /* FALLTHROUGH */
        case SIOCALIFADDR:
        case SIOCDLIFADDR:
                /* address must be specified on ADD and DELETE */
@@ -1142,10 +2087,10 @@ in6_lifaddr_ioctl(so, cmd, data, ifp)
                if (sa->sa_len && sa->sa_len != sizeof(struct sockaddr_in6))
                        return EINVAL;
                break;
-       default: /*shouldn't happen*/
+       default: /* shouldn't happen */
 #if 0
                panic("invalid cmd to in6_lifaddr_ioctl");
-               /*NOTREACHED*/
+               /* NOTREACHED */
 #else
                return EOPNOTSUPP;
 #endif
@@ -1157,21 +2102,27 @@ in6_lifaddr_ioctl(so, cmd, data, ifp)
        case SIOCALIFADDR:
            {
                struct in6_aliasreq ifra;
-               struct in6_addr *hostid = NULL;
+               struct in6_addr hostaddr;
                int prefixlen;
+               int hostid_found = 0;
 
                if ((iflr->flags & IFLR_PREFIX) != 0) {
                        struct sockaddr_in6 *sin6;
 
                        /*
-                        * hostid is to fill in the hostid part of the
-                        * address.  hostid points to the first link-local
+                        * hostaddr is to fill in the hostaddr part of the
+                        * address.  hostaddr points to the first link-local
                         * address attached to the interface.
                         */
                        ifa = (struct ifaddr *)in6ifa_ifpforlinklocal(ifp, 0);
                        if (!ifa)
                                return EADDRNOTAVAIL;
-                       hostid = IFA_IN6(ifa);
+                       IFA_LOCK_SPIN(ifa);
+                       hostaddr = *IFA_IN6(ifa);
+                       IFA_UNLOCK(ifa);
+                       hostid_found = 1;
+                       IFA_REMREF(ifa);
+                       ifa = NULL;
 
                        /* prefixlen must be <= 64. */
                        if (64 < iflr->prefixlen)
@@ -1180,8 +2131,8 @@ in6_lifaddr_ioctl(so, cmd, data, ifp)
 
                        /* hostid part must be zero. */
                        sin6 = (struct sockaddr_in6 *)&iflr->addr;
-                       if (sin6->sin6_addr.s6_addr32[2] != 0
-                        || sin6->sin6_addr.s6_addr32[3] != 0) {
+                       if (sin6->sin6_addr.s6_addr32[2] != 0 ||
+                           sin6->sin6_addr.s6_addr32[3] != 0) {
                                return EINVAL;
                        }
                } else
@@ -1189,40 +2140,63 @@ in6_lifaddr_ioctl(so, cmd, data, ifp)
 
                /* copy args to in6_aliasreq, perform ioctl(SIOCAIFADDR_IN6). */
                bzero(&ifra, sizeof(ifra));
-               bcopy(iflr->iflr_name, ifra.ifra_name,
-                       sizeof(ifra.ifra_name));
+               bcopy(iflr->iflr_name, ifra.ifra_name, sizeof(ifra.ifra_name));
 
                bcopy(&iflr->addr, &ifra.ifra_addr,
                        ((struct sockaddr *)&iflr->addr)->sa_len);
-               if (hostid) {
-                       /* fill in hostid part */
+               if (hostid_found) {
+                       /* fill in hostaddr part */
                        ifra.ifra_addr.sin6_addr.s6_addr32[2] =
-                               hostid->s6_addr32[2];
+                               hostaddr.s6_addr32[2];
                        ifra.ifra_addr.sin6_addr.s6_addr32[3] =
-                               hostid->s6_addr32[3];
+                               hostaddr.s6_addr32[3];
                }
 
                if (((struct sockaddr *)&iflr->dstaddr)->sa_family) {   /*XXX*/
                        bcopy(&iflr->dstaddr, &ifra.ifra_dstaddr,
                                ((struct sockaddr *)&iflr->dstaddr)->sa_len);
-                       if (hostid) {
+                       if (hostid_found) {
                                ifra.ifra_dstaddr.sin6_addr.s6_addr32[2] =
-                                       hostid->s6_addr32[2];
+                                       hostaddr.s6_addr32[2];
                                ifra.ifra_dstaddr.sin6_addr.s6_addr32[3] =
-                                       hostid->s6_addr32[3];
+                                       hostaddr.s6_addr32[3];
                        }
                }
 
-               ifra.ifra_prefixmask.sin6_family = AF_INET6;
                ifra.ifra_prefixmask.sin6_len = sizeof(struct sockaddr_in6);
-               in6_len2mask(&ifra.ifra_prefixmask.sin6_addr, prefixlen);
+               in6_prefixlen2mask(&ifra.ifra_prefixmask.sin6_addr, prefixlen);
 
                ifra.ifra_flags = iflr->flags & ~IFLR_PREFIX;
-#if !defined(__bsdi__) && !(defined(__FreeBSD__) && __FreeBSD__ < 3) && !defined (__APPLE__)
-               return in6_control(so, SIOCAIFADDR_IN6, (caddr_t)&ifra, ifp, p);
+               if (!p64) {
+#if defined(__LP64__)
+                       struct in6_aliasreq_32 ifra_32;
+                       /*
+                        * Use 32-bit ioctl and structure for 32-bit process.
+                        */
+                       in6_aliasreq_64_to_32((struct in6_aliasreq_64 *)&ifra,
+                           &ifra_32);
+                       return (in6_control(so, SIOCAIFADDR_IN6_32,
+                           (caddr_t)&ifra_32, ifp, p));
 #else
-               return in6_control(so, SIOCAIFADDR_IN6, (caddr_t)&ifra, ifp);
-#endif
+                       return (in6_control(so, SIOCAIFADDR_IN6,
+                           (caddr_t)&ifra, ifp, p));
+#endif /* __LP64__ */
+               } else {
+#if defined(__LP64__)
+                       return (in6_control(so, SIOCAIFADDR_IN6,
+                           (caddr_t)&ifra, ifp, p));
+#else
+                       struct in6_aliasreq_64 ifra_64;
+                       /*
+                        * Use 64-bit ioctl and structure for 64-bit process.
+                        */
+                       in6_aliasreq_32_to_64((struct in6_aliasreq_32 *)&ifra,
+                           &ifra_64);
+                       return (in6_control(so, SIOCAIFADDR_IN6_64,
+                           (caddr_t)&ifra_64, ifp, p));
+#endif /* __LP64__ */
+               }
+               /* NOTREACHED */
            }
        case SIOCGLIFADDR:
        case SIOCDLIFADDR:
@@ -1235,7 +2209,7 @@ in6_lifaddr_ioctl(so, cmd, data, ifp)
                bzero(&mask, sizeof(mask));
                if (iflr->flags & IFLR_PREFIX) {
                        /* lookup a prefix rather than address. */
-                       in6_len2mask(&mask, iflr->prefixlen);
+                       in6_prefixlen2mask(&mask, iflr->prefixlen);
 
                        sin6 = (struct sockaddr_in6 *)&iflr->addr;
                        bcopy(&sin6->sin6_addr, &match, sizeof(match));
@@ -1252,10 +2226,10 @@ in6_lifaddr_ioctl(so, cmd, data, ifp)
                } else {
                        if (cmd == SIOCGLIFADDR) {
                                /* on getting an address, take the 1st match */
-                               cmp = 0;        /*XXX*/
+                               cmp = 0;        /* XXX */
                        } else {
                                /* on deleting an address, do exact match */
-                               in6_len2mask(&mask, 128);
+                               in6_prefixlen2mask(&mask, 128);
                                sin6 = (struct sockaddr_in6 *)&iflr->addr;
                                bcopy(&sin6->sin6_addr, &match, sizeof(match));
 
@@ -1263,19 +2237,28 @@ in6_lifaddr_ioctl(so, cmd, data, ifp)
                        }
                }
 
-#if defined(__bsdi__) || (defined(__FreeBSD__) && __FreeBSD__ < 3)
-               for (ifa = ifp->if_addrlist; ifa; ifa = ifa->ifa_next)
-#else
-               for (ifa = ifp->if_addrlist.tqh_first;
-                    ifa;
-                    ifa = ifa->ifa_list.tqe_next)
-#endif
+               ifnet_lock_shared(ifp);
+               TAILQ_FOREACH(ifa, &ifp->if_addrlist, ifa_list)
                {
-                       if (ifa->ifa_addr->sa_family != AF_INET6)
+                       IFA_LOCK(ifa);
+                       if (ifa->ifa_addr->sa_family != AF_INET6) {
+                               IFA_UNLOCK(ifa);
                                continue;
-                       if (!cmp)
+                       }
+                       if (!cmp) {
+                               IFA_UNLOCK(ifa);
                                break;
+                       }
+
                        bcopy(IFA_IN6(ifa), &candidate, sizeof(candidate));
+                       IFA_UNLOCK(ifa);
+                       /*
+                        * XXX: this is adhoc, but is necessary to allow
+                        * a user to specify fe80::/64 (not /10) for a
+                        * link-local address.
+                        */
+                       if (IN6_IS_ADDR_LINKLOCAL(&candidate))
+                               candidate.s6_addr16[1] = 0;
                        candidate.s6_addr32[0] &= mask.s6_addr32[0];
                        candidate.s6_addr32[1] &= mask.s6_addr32[1];
                        candidate.s6_addr32[2] &= mask.s6_addr32[2];
@@ -1283,25 +2266,45 @@ in6_lifaddr_ioctl(so, cmd, data, ifp)
                        if (IN6_ARE_ADDR_EQUAL(&candidate, &match))
                                break;
                }
+               if (ifa != NULL)
+                       IFA_ADDREF(ifa);
+               ifnet_lock_done(ifp);
                if (!ifa)
                        return EADDRNOTAVAIL;
                ia = ifa2ia6(ifa);
 
                if (cmd == SIOCGLIFADDR) {
+                       struct sockaddr_in6 *s6;
+
+                       IFA_LOCK(ifa);
                        /* fill in the if_laddrreq structure */
                        bcopy(&ia->ia_addr, &iflr->addr, ia->ia_addr.sin6_len);
-
+                       s6 = (struct sockaddr_in6 *)&iflr->addr;
+                       if (IN6_IS_ADDR_LINKLOCAL(&s6->sin6_addr)) {
+                               s6->sin6_addr.s6_addr16[1] = 0;
+                               s6->sin6_scope_id =
+                                       in6_addr2scopeid(ifp, &s6->sin6_addr);
+                       }
                        if ((ifp->if_flags & IFF_POINTOPOINT) != 0) {
                                bcopy(&ia->ia_dstaddr, &iflr->dstaddr,
                                        ia->ia_dstaddr.sin6_len);
+                               s6 = (struct sockaddr_in6 *)&iflr->dstaddr;
+                               if (IN6_IS_ADDR_LINKLOCAL(&s6->sin6_addr)) {
+                                       s6->sin6_addr.s6_addr16[1] = 0;
+                                       s6->sin6_scope_id =
+                                               in6_addr2scopeid(ifp,
+                                                                &s6->sin6_addr);
+                               }
                        } else
                                bzero(&iflr->dstaddr, sizeof(iflr->dstaddr));
 
                        iflr->prefixlen =
-                               in6_mask2len(&ia->ia_prefixmask.sin6_addr);
-
-                       iflr->flags = ia->ia6_flags;    /*XXX*/
+                               in6_mask2len(&ia->ia_prefixmask.sin6_addr,
+                                            NULL);
 
+                       iflr->flags = ia->ia6_flags;    /* XXX */
+                       IFA_UNLOCK(ifa);
+                       IFA_REMREF(ifa);
                        return 0;
                } else {
                        struct in6_aliasreq ifra;
@@ -1311,6 +2314,7 @@ in6_lifaddr_ioctl(so, cmd, data, ifp)
                        bcopy(iflr->iflr_name, ifra.ifra_name,
                                sizeof(ifra.ifra_name));
 
+                       IFA_LOCK(ifa);
                        bcopy(&ia->ia_addr, &ifra.ifra_addr,
                                ia->ia_addr.sin6_len);
                        if ((ifp->if_flags & IFF_POINTOPOINT) != 0) {
@@ -1324,466 +2328,146 @@ in6_lifaddr_ioctl(so, cmd, data, ifp)
                                ia->ia_prefixmask.sin6_len);
 
                        ifra.ifra_flags = ia->ia6_flags;
-#if !defined(__bsdi__) && !(defined(__FreeBSD__) && __FreeBSD__ < 3) && !defined (__APPLE__)
-                       return in6_control(so, SIOCDIFADDR_IN6, (caddr_t)&ifra,
-                               ifp, p);
+                       IFA_UNLOCK(ifa);
+                       IFA_REMREF(ifa);
+                       if (!p64) {
+#if defined(__LP64__)
+                               struct in6_aliasreq_32 ifra_32;
+                               /*
+                                * Use 32-bit structure for 32-bit process.
+                                * SIOCDIFADDR_IN6 is encoded with in6_ifreq,
+                                * so it stays the same since the size does
+                                * not change.  The data part of the ioctl,
+                                * however, is of a different structure, i.e.
+                                * in6_aliasreq.
+                                */
+                               in6_aliasreq_64_to_32(
+                                   (struct in6_aliasreq_64 *)&ifra, &ifra_32);
+                               return (in6_control(so, SIOCDIFADDR_IN6,
+                                   (caddr_t)&ifra_32, ifp, p));
 #else
-                       return in6_control(so, SIOCDIFADDR_IN6, (caddr_t)&ifra,
-                               ifp);
-#endif
+                               return (in6_control(so, SIOCDIFADDR_IN6,
+                                   (caddr_t)&ifra, ifp, p));
+#endif /* __LP64__ */
+                       } else {
+#if defined(__LP64__)
+                               return (in6_control(so, SIOCDIFADDR_IN6,
+                                   (caddr_t)&ifra, ifp, p));
+#else
+                               struct in6_aliasreq_64 ifra_64;
+                               /*
+                                * Use 64-bit structure for 64-bit process.
+                                * SIOCDIFADDR_IN6 is encoded with in6_ifreq,
+                                * so it stays the same since the size does
+                                * not change.  The data part of the ioctl,
+                                * however, is of a different structure, i.e.
+                                * in6_aliasreq.
+                                */
+                               in6_aliasreq_32_to_64(
+                                   (struct in6_aliasreq_32 *)&ifra, &ifra_64);
+                               return (in6_control(so, SIOCDIFADDR_IN6,
+                                   (caddr_t)&ifra_64, ifp, p));
+#endif /* __LP64__ */
+                       }
+                       /* NOTREACHED */
                }
            }
        }
 
-       return EOPNOTSUPP;      /*just for safety*/
-}
-
-/*
- * Delete any existing route for an interface.
- */
-void
-in6_ifscrub(ifp, ia)
-       register struct ifnet *ifp;
-       register struct in6_ifaddr *ia;
-{
-       if ((ia->ia_flags & IFA_ROUTE) == 0)
-               return;
-       if (ifp->if_flags & (IFF_LOOPBACK | IFF_POINTOPOINT))
-               rtinit(&(ia->ia_ifa), (int)RTM_DELETE, RTF_HOST);
-       else
-               rtinit(&(ia->ia_ifa), (int)RTM_DELETE, 0);
-       ia->ia_flags &= ~IFA_ROUTE;
-
-       /* Remove ownaddr's loopback rtentry, if it exists. */
-       in6_ifremloop(&(ia->ia_ifa));
+       return EOPNOTSUPP;      /* just for safety */
 }
 
 /*
  * Initialize an interface's intetnet6 address
  * and routing table entry.
  */
-int
-in6_ifinit(ifp, ia, sin6, scrub)
+static int
+in6_ifinit(ifp, ia, sin6, newhost)
        struct ifnet *ifp;
        struct in6_ifaddr *ia;
        struct sockaddr_in6 *sin6;
-       int scrub;
+       int newhost;
 {
-       struct  sockaddr_in6 oldaddr;
-       int     error, flags = RTF_UP;
-       u_long dl_tag;
-       int     s = splimp();
+       int     error = 0, plen, ifacount = 0;
+       struct ifaddr *ifa;
 
-       oldaddr = ia->ia_addr;
-       ia->ia_addr = *sin6;
        /*
         * Give the interface a chance to initialize
         * if this is its first address,
         * and to validate the address if necessary.
         */
-#ifdef __APPLE__
-       error = dlil_ioctl(0, ifp, SIOCSIFADDR, (caddr_t)ia) ; 
-        if (error == EOPNOTSUPP)
-                error = 0;
-        if (error) {
-
-#else
-       if (ifp->if_ioctl &&
-          (error = (*ifp->if_ioctl)(ifp, SIOCSIFADDR, (caddr_t)ia))) {
-#endif
-               printf("in6_ifinit SIOCSIFADDR for if=%s returns error=%x\n", if_name(ifp), error);
-               splx(s);
-               ia->ia_addr = oldaddr;
-               return(error);
-       }
-
-       switch (ifp->if_type) {
-       case IFT_ARCNET:
-       case IFT_ETHER:
-       case IFT_FDDI:
-               ia->ia_ifa.ifa_rtrequest = nd6_rtrequest;
-               ia->ia_ifa.ifa_flags |= RTF_CLONING;
-               break;
-       case IFT_PPP:
-               ia->ia_ifa.ifa_rtrequest = nd6_p2p_rtrequest;
-               ia->ia_ifa.ifa_flags |= RTF_CLONING;
-               break;
-       }
-
-       splx(s);
-       if (scrub) {
-               ia->ia_ifa.ifa_addr = (struct sockaddr *)&oldaddr;
-               in6_ifscrub(ifp, ia);
-               ia->ia_ifa.ifa_addr = (struct sockaddr *)&ia->ia_addr;
-       }
-       /* xxx
-        * in_socktrim
-        */
-       /*
-        * Add route for the network.
-        */
-       ia->ia_ifa.ifa_metric = ifp->if_metric;
-       if (ifp->if_flags & IFF_LOOPBACK) {
-               ia->ia_ifa.ifa_dstaddr = ia->ia_ifa.ifa_addr;
-               flags |= RTF_HOST;
-       } else if (ifp->if_flags & IFF_POINTOPOINT) {
-               if (ia->ia_dstaddr.sin6_family != AF_INET6)
-                       return(0);
-               flags |= RTF_HOST;
-       }
-       if ((error = rtinit(&(ia->ia_ifa), (int)RTM_ADD, flags)) == 0)
-               ia->ia_flags |= IFA_ROUTE;
-
-       /* Add ownaddr as loopback rtentry, if necessary(ex. on p2p link). */
-       in6_ifaddloop(&(ia->ia_ifa));
-
-#if !(defined(__FreeBSD__) && __FreeBSD__ >= 3) && !defined (__APPLE__)
-       if (ifp->if_flags & IFF_MULTICAST)
-               in6_restoremkludge(ia, ifp);
-#endif
-
-#ifdef __APPLE__
-         printf("in6_ifinit: Attach dl_tag for if=%s%n\n", ifp->if_name, ifp->if_unit);
-
-         if (strcmp(ifp->if_name, "en") == 0)
-                dl_tag = ether_attach_inet6(ifp);
-         if (strcmp(ifp->if_name, "lo") == 0)
-                dl_tag = lo_attach_inet(ifp);
-#if NGIF > 0
-         if (strcmp(ifp->if_name, "gif") == 0)
-                dl_tag = gif_attach_inet(ifp);
-#endif
-/* End of temp code */
-         ia->ia_ifa.ifa_dlt = dl_tag; 
-#endif
-
-       return(error);
-}
-
-#if !(defined(__FreeBSD__) && __FreeBSD__ >= 3)  && !defined (__APPLE__)
-/*
- * Multicast address kludge:
- * If there were any multicast addresses attached to this interface address,
- * either move them to another address on this interface, or save them until
- * such time as this interface is reconfigured for IPv6.
- */
-void
-in6_savemkludge(oia)
-       struct in6_ifaddr *oia;
-{
-       struct in6_ifaddr *ia;
-       struct in6_multi *in6m, *next;
-
-       IFP_TO_IA6(oia->ia_ifp, ia);
-       if (ia) {       /* there is another address */
-               for (in6m = oia->ia6_multiaddrs.lh_first; in6m; in6m = next){
-                       next = in6m->in6m_entry.le_next;
-                       IFAFREE(&in6m->in6m_ia->ia_ifa);
-                       ia->ia_ifa.ifa_refcnt++;
-                       in6m->in6m_ia = ia;
-                       LIST_INSERT_HEAD(&ia->ia6_multiaddrs, in6m, in6m_entry);
-               }
-       } else {        /* last address on this if deleted, save */
-               struct multi6_kludge *mk;
-
-               mk = _MALLOC(sizeof(*mk), M_IPMADDR, M_WAITOK);
-
-               LIST_INIT(&mk->mk_head);
-               mk->mk_ifp = oia->ia_ifp;
-
-               for (in6m = oia->ia6_multiaddrs.lh_first; in6m; in6m = next){
-                       next = in6m->in6m_entry.le_next;
-                       IFAFREE(&in6m->in6m_ia->ia_ifa); /* release reference */
-                       in6m->in6m_ia = NULL;
-                       LIST_INSERT_HEAD(&mk->mk_head, in6m, in6m_entry);
-               }
-
-               if (mk->mk_head.lh_first != NULL) {
-                       LIST_INSERT_HEAD(&in6_mk, mk, mk_entry);
-               } else {
-                       FREE(mk, M_IPMADDR);
-               }
-       }
-}
-
-/*
- * Continuation of multicast address hack:
- * If there was a multicast group list previously saved for this interface,
- * then we re-attach it to the first address configured on the i/f.
- */
-void
-in6_restoremkludge(ia, ifp)
-       struct in6_ifaddr *ia;
-       struct ifnet *ifp;
-{
-       struct multi6_kludge *mk;
-
-       for (mk = in6_mk.lh_first; mk; mk = mk->mk_entry.le_next) {
-               if (mk->mk_ifp == ifp) {
-                       struct in6_multi *in6m, *next;
-
-                       for (in6m = mk->mk_head.lh_first; in6m; in6m = next){
-                               next = in6m->in6m_entry.le_next;
-                               in6m->in6m_ia = ia;
-                               ia->ia_ifa.ifa_refcnt++;
-                               LIST_INSERT_HEAD(&ia->ia6_multiaddrs,
-                                                in6m, in6m_entry);
-                       }
-                       LIST_REMOVE(mk, mk_entry);
-                       _FREE(mk, M_IPMADDR);
-                       break;
+       ifnet_lock_shared(ifp);
+       TAILQ_FOREACH(ifa, &ifp->if_addrlist, ifa_list)
+       {
+               IFA_LOCK_SPIN(ifa);
+               if (ifa->ifa_addr->sa_family != AF_INET6) {
+                       IFA_UNLOCK(ifa);
+                       continue;
                }
+               ifacount++;
+               IFA_UNLOCK(ifa);
        }
-}
-
-void
-in6_purgemkludge(ifp)
-       struct ifnet *ifp;
-{
-       struct multi6_kludge *mk;
-       struct in6_multi *in6m;
+       ifnet_lock_done(ifp);
 
-       for (mk = in6_mk.lh_first; mk; mk = mk->mk_entry.le_next) {
-               if (mk->mk_ifp != ifp)
-                       continue;
+       ifa = &ia->ia_ifa;
+       IFA_LOCK_SPIN(ifa);
+       ia->ia_addr = *sin6;
+       IFA_UNLOCK(ifa);
 
-               /* leave from all multicast groups joined */
-               while ((in6m = LIST_FIRST(&mk->mk_head)) != NULL)
-                       in6_delmulti(in6m);
-               LIST_REMOVE(mk, mk_entry);
-               _FREE(mk, M_IPMADDR);
-               break;
+       if (ifacount <= 1 && 
+           (error = ifnet_ioctl(ifp, PF_INET6, SIOCSIFADDR, ia))) {
+               if (error == EOPNOTSUPP)
+                       error = 0;
+               else if (error)
+                       return(error);
        }
-}
 
-/*
- * Add an address to the list of IP6 multicast addresses for a
- * given interface.
- */
-struct in6_multi *
-in6_addmulti(maddr6, ifp, errorp)
-       register struct in6_addr *maddr6;
-       register struct ifnet *ifp;
-       int *errorp;
-{
-       struct  in6_ifaddr *ia;
-       struct  in6_ifreq ifr;
-       struct  in6_multi *in6m;
-#if __NetBSD__
-       int     s = splsoftnet();
-#else
-       int     s = splnet();
-#endif
+       IFA_LOCK(ifa);
+       ia->ia_ifa.ifa_metric = ifp->if_metric;
+
+       /* we could do in(6)_socktrim here, but just omit it at this moment. */
 
-       *errorp = 0;
        /*
-        * See if address already in list.
+        * Special case:
+        * If the destination address is specified for a point-to-point
+        * interface, install a route to the destination as an interface
+        * direct route.
         */
-       IN6_LOOKUP_MULTI(*maddr6, ifp, in6m);
-       if (in6m != NULL) {
-               /*
-                * Found it; just increment the refrence count.
-                */
-               in6m->in6m_refcount++;
-       } else {
-               /*
-                * New address; allocate a new multicast record
-                * and link it into the interface's multicast list.
-                */
-               in6m = (struct in6_multi *)
-                       _MALLOC(sizeof(*in6m), M_IPMADDR, M_NOTWAIT);
-               if (in6m == NULL) {
-                       splx(s);
-                       *errorp = ENOBUFS;
-                       return(NULL);
-               }
-               in6m->in6m_addr = *maddr6;
-               in6m->in6m_ifp = ifp;
-               in6m->in6m_refcount = 1;
-               IFP_TO_IA6(ifp, ia);
-               if (ia == NULL) {
-                       _FREE(in6m, M_IPMADDR);
-                       splx(s);
-                       *errorp = EADDRNOTAVAIL; /* appropriate? */
-                       return(NULL);
-               }
-               in6m->in6m_ia = ia;
-               ia->ia_ifa.ifa_refcnt++; /* gain a reference */
-               LIST_INSERT_HEAD(&ia->ia6_multiaddrs, in6m, in6m_entry);
-
-               /*
-                * Ask the network driver to update its multicast reception
-                * filter appropriately for the new address.
-                */
-               bzero(&ifr.ifr_addr, sizeof(struct sockaddr_in6));
-               ifr.ifr_addr.sin6_len = sizeof(struct sockaddr_in6);
-               ifr.ifr_addr.sin6_family = AF_INET6;
-               ifr.ifr_addr.sin6_addr = *maddr6;
-#ifdef __APPLE__
-                 *errorp = dlil_ioctl(0, ifp, SIOCADDMULTI, (caddr_t)&ifr);
-                printf("in6_addmulti: if=%s%n dlil_ioctl returns=%d\n", ifp->if_name, ifp->if_unit, *errorp);
-                 if (*errorp == EOPNOTSUPP)
-                                *errorp = 0;
-
-#else
-               if (ifp->if_ioctl == NULL)
-                       *errorp = ENXIO; /* XXX: appropriate? */
-               else
-                       *errorp = (*ifp->if_ioctl)(ifp, SIOCADDMULTI,
-                                                   (caddr_t)&ifr);
-#endif
-               if (*errorp) {
-                       LIST_REMOVE(in6m, in6m_entry);
-                       _FREE(in6m, M_IPMADDR);
-                       splx(s);
-                       return(NULL);
-               }
-               /*
-                * Let MLD6 know that we have joined a new IP6 multicast
-                * group.
-                */
-               mld6_start_listening(in6m);
+       plen = in6_mask2len(&ia->ia_prefixmask.sin6_addr, NULL); /* XXX */
+       if (plen == 128 && ia->ia_dstaddr.sin6_family == AF_INET6) {
+               IFA_UNLOCK(ifa);
+               if ((error = rtinit(&(ia->ia_ifa), (int)RTM_ADD,
+                   RTF_UP | RTF_HOST)) != 0)
+                       return(error);
+               IFA_LOCK(ifa);
+               ia->ia_flags |= IFA_ROUTE;
        }
-       splx(s);
-       return(in6m);
-}
-
-/*
- * Delete a multicast address record.
- */
-void
-in6_delmulti(in6m)
-       struct in6_multi *in6m;
-{
-       struct  in6_ifreq ifr;
-#if __NetBSD__
-       int     s = splsoftnet();
-#else
-       int     s = splnet();
-#endif
-
-       if (--in6m->in6m_refcount == 0) {
-               /*
-                * No remaining claims to this record; let MLD6 know
-                * that we are leaving the multicast group.
-                */
-               mld6_stop_listening(in6m);
-
+       IFA_LOCK_ASSERT_HELD(ifa);
+       if (plen < 128) {
                /*
-                * Unlink from list.
+                * The RTF_CLONING flag is necessary for in6_is_ifloop_auto().
                 */
-               LIST_REMOVE(in6m, in6m_entry);
-               if (in6m->in6m_ia)
-                       IFAFREE(&in6m->in6m_ia->ia_ifa); /* release reference */
-
-               /*
-                * Notify the network driver to update its multicast
-                * reception filter.
-                */
-               bzero(&ifr.ifr_addr, sizeof(struct sockaddr_in6));
-               ifr.ifr_addr.sin6_len = sizeof(struct sockaddr_in6);
-               ifr.ifr_addr.sin6_family = AF_INET6;
-               ifr.ifr_addr.sin6_addr = in6m->in6m_addr;
-#ifdef __APPLE__
-               dlil_ioctl(0, in6m->in6m_ifp, SIOCDELMULTI, (caddr_t)&ifr);
-#else
-               (*in6m->in6m_ifp->if_ioctl)(in6m->in6m_ifp,
-                                           SIOCDELMULTI, (caddr_t)&ifr);
-#endif
-               _FREE(in6m, M_IPMADDR);
-       }
-       splx(s);
-}
-#else /* not FreeBSD3 */
-/*
- * Add an address to the list of IP6 multicast addresses for a
- * given interface.
- */
-struct in6_multi *
-in6_addmulti(maddr6, ifp, errorp)
-       register struct in6_addr *maddr6;
-       register struct ifnet *ifp;
-       int *errorp;
-{
-       struct  in6_multi *in6m;
-       struct sockaddr_in6 sin6;
-       struct ifmultiaddr *ifma;
-       int     s = splnet();
-
-       *errorp = 0;
-
-       /*
-        * Call generic routine to add membership or increment
-        * refcount.  It wants addresses in the form of a sockaddr,
-        * so we build one here (being careful to zero the unused bytes).
-        */
-       bzero(&sin6, sizeof sin6);
-       sin6.sin6_family = AF_INET6;
-       sin6.sin6_len = sizeof sin6;
-       sin6.sin6_addr = *maddr6;
-       *errorp = if_addmulti(ifp, (struct sockaddr *)&sin6, &ifma);
-       if (*errorp) {
-               splx(s);
-               return 0;
+               ia->ia_ifa.ifa_flags |= RTF_CLONING;
        }
 
-       /*
-        * If ifma->ifma_protospec is null, then if_addmulti() created
-        * a new record.  Otherwise, we are done.
-        */
-       if (ifma->ifma_protospec != 0)
-               return ifma->ifma_protospec;
-
-       /* XXX - if_addmulti uses M_WAITOK.  Can this really be called
-          at interrupt time?  If so, need to fix if_addmulti. XXX */
-       in6m = (struct in6_multi *)_MALLOC(sizeof(*in6m), M_IPMADDR, M_NOWAIT);
-       if (in6m == NULL) {
-               splx(s);
-               return (NULL);
+       /* Add ownaddr as loopback rtentry, if necessary (ex. on p2p link). */
+       if (newhost) {
+               /* set the rtrequest function to create llinfo */
+               ia->ia_ifa.ifa_rtrequest = nd6_rtrequest;
+               IFA_UNLOCK(ifa);
+               in6_ifaddloop(&(ia->ia_ifa));
+       } else {
+               IFA_UNLOCK(ifa);
        }
 
-       bzero(in6m, sizeof *in6m);
-       in6m->in6m_addr = *maddr6;
-       in6m->in6m_ifp = ifp;
-       in6m->in6m_ifma = ifma;
-       ifma->ifma_protospec = in6m;
-       LIST_INSERT_HEAD(&in6_multihead, in6m, in6m_entry);
-
-       /*
-        * Let MLD6 know that we have joined a new IP6 multicast
-        * group.
-        */
-       mld6_start_listening(in6m);
-       splx(s);
-       return(in6m);
+       return(error);
 }
 
-/*
- * Delete a multicast address record.
- */
 void
-in6_delmulti(in6m)
-       struct in6_multi *in6m;
+in6_purgeaddrs(struct ifnet *ifp)
 {
-       struct ifmultiaddr *ifma = in6m->in6m_ifma;
-       int     s = splnet();
-
-       if (ifma->ifma_refcount == 1) {
-               /*
-                * No remaining claims to this record; let MLD6 know
-                * that we are leaving the multicast group.
-                */
-               mld6_stop_listening(in6m);
-               ifma->ifma_protospec = 0;
-               LIST_REMOVE(in6m, in6m_entry);
-               _FREE(in6m, M_IPMADDR);
-       }
-       /* XXX - should be separate API for when we have an ifma? */
-       if_delmulti(ifma->ifma_ifp, ifma->ifma_addr);
-       splx(s);
+       in6_purgeif(ifp);
 }
-#endif /* not FreeBSD3 */
 
 /*
  * Find an IPv6 interface link-local address specific to an interface.
@@ -1793,30 +2477,33 @@ in6ifa_ifpforlinklocal(ifp, ignoreflags)
        struct ifnet *ifp;
        int ignoreflags;
 {
-       register struct ifaddr *ifa;
+       struct ifaddr *ifa;
 
-#if defined(__bsdi__) || (defined(__FreeBSD__) && __FreeBSD__ < 3)
-       for (ifa = ifp->if_addrlist; ifa; ifa = ifa->ifa_next)
-#else
-       for (ifa = ifp->if_addrlist.tqh_first; ifa; ifa = ifa->ifa_list.tqe_next)
-#endif
+       ifnet_lock_shared(ifp);
+       TAILQ_FOREACH(ifa, &ifp->if_addrlist, ifa_list)
        {
-               if (ifa->ifa_addr == NULL)
-                       continue;       /* just for safety */
-               if (ifa->ifa_addr->sa_family != AF_INET6)
+               IFA_LOCK_SPIN(ifa);
+               if (ifa->ifa_addr->sa_family != AF_INET6) {
+                       IFA_UNLOCK(ifa);
                        continue;
+               }
                if (IN6_IS_ADDR_LINKLOCAL(IFA_IN6(ifa))) {
                        if ((((struct in6_ifaddr *)ifa)->ia6_flags &
-                            ignoreflags) != 0)
+                            ignoreflags) != 0) {
+                               IFA_UNLOCK(ifa);
                                continue;
+                       }
+                       IFA_ADDREF_LOCKED(ifa); /* for caller */
+                       IFA_UNLOCK(ifa);
                        break;
                }
+               IFA_UNLOCK(ifa);
        }
+       ifnet_lock_done(ifp);
 
        return((struct in6_ifaddr *)ifa);
 }
 
-
 /*
  * find the internet address corresponding to a given interface and address.
  */
@@ -1825,21 +2512,24 @@ in6ifa_ifpwithaddr(ifp, addr)
        struct ifnet *ifp;
        struct in6_addr *addr;
 {
-       register struct ifaddr *ifa;
+       struct ifaddr *ifa;
 
-#if defined(__bsdi__) || (defined(__FreeBSD__) && __FreeBSD__ < 3)
-       for (ifa = ifp->if_addrlist; ifa; ifa = ifa->ifa_next)
-#else
-       for (ifa = ifp->if_addrlist.tqh_first; ifa; ifa = ifa->ifa_list.tqe_next)
-#endif
+       ifnet_lock_shared(ifp);
+       TAILQ_FOREACH(ifa, &ifp->if_addrlist, ifa_list)
        {
-               if (ifa->ifa_addr == NULL)
-                       continue;       /* just for safety */
-               if (ifa->ifa_addr->sa_family != AF_INET6)
+               IFA_LOCK_SPIN(ifa);
+               if (ifa->ifa_addr->sa_family != AF_INET6) {
+                       IFA_UNLOCK(ifa);
                        continue;
-               if (IN6_ARE_ADDR_EQUAL(addr, IFA_IN6(ifa)))
+               }
+               if (IN6_ARE_ADDR_EQUAL(addr, IFA_IN6(ifa))) {
+                       IFA_ADDREF_LOCKED(ifa); /* for caller */
+                       IFA_UNLOCK(ifa);
                        break;
+               }
+               IFA_UNLOCK(ifa);
        }
+       ifnet_lock_done(ifp);
 
        return((struct in6_ifaddr *)ifa);
 }
@@ -1851,13 +2541,13 @@ static char digits[] = "0123456789abcdef";
 static int ip6round = 0;
 char *
 ip6_sprintf(addr)
-register struct in6_addr *addr;
+       const struct in6_addr *addr;
 {
        static char ip6buf[8][48];
-       register int i;
-       register char *cp;
-       register u_short *a = (u_short *)addr;
-       register u_char *d;
+       int i;
+       char *cp;
+       const u_short *a = (const u_short *)addr;
+       const u_char *d;
        int dcolon = 0;
 
        ip6round = (ip6round + 1) & 7;
@@ -1886,7 +2576,7 @@ register struct in6_addr *addr;
                        a++;
                        continue;
                }
-               d = (u_char *)a;
+               d = (const u_char *)a;
                *cp++ = digits[*d >> 4];
                *cp++ = digits[*d++ & 0xf];
                *cp++ = digits[*d >> 4];
@@ -1899,109 +2589,82 @@ register struct in6_addr *addr;
 }
 
 int
-in6_localaddr(in6)
-       struct in6_addr *in6;
+in6addr_local(struct in6_addr *in6)
 {
-       struct in6_ifaddr *ia;
-
-       if (IN6_IS_ADDR_LOOPBACK(in6) || IN6_IS_ADDR_LINKLOCAL(in6))
-               return 1;
+       struct rtentry *rt;
+       struct sockaddr_in6 sin6;
+       int local = 0;
 
-       for (ia = in6_ifaddr; ia; ia = ia->ia_next)
-               if (IN6_ARE_MASKED_ADDR_EQUAL(in6, &ia->ia_addr.sin6_addr,
-                                             &ia->ia_prefixmask.sin6_addr))
-                       return 1;
+       if (IN6_IS_ADDR_LOOPBACK(in6) || IN6_IS_SCOPE_LINKLOCAL(in6))
+               return (1);
 
-       return (0);
+       sin6.sin6_family = AF_INET6;
+       sin6.sin6_len = sizeof (sin6);
+       bcopy(in6, &sin6.sin6_addr, sizeof (*in6));
+       rt = rtalloc1((struct sockaddr *)&sin6, 0, 0);
+
+       if (rt != NULL) {
+               RT_LOCK_SPIN(rt);
+               if (rt->rt_gateway->sa_family == AF_LINK)
+                       local = 1;
+               RT_UNLOCK(rt);
+               rtfree(rt);
+       } else {
+               local = in6_localaddr(in6);
+       }
+       return (local);
 }
 
-/*
- * Get a scope of the address. Node-local, link-local, site-local or global.
- */
 int
-in6_addrscope (addr)
-struct in6_addr *addr;
+in6_localaddr(struct in6_addr *in6)
 {
-       int scope;
-
-       if (addr->s6_addr8[0] == 0xfe) {
-               scope = addr->s6_addr8[1] & 0xc0;
-
-               switch (scope) {
-               case 0x80:
-                       return IPV6_ADDR_SCOPE_LINKLOCAL;
-                       break;
-               case 0xc0:
-                       return IPV6_ADDR_SCOPE_SITELOCAL;
-                       break;
-               default:
-                       return IPV6_ADDR_SCOPE_GLOBAL; /* just in case */
-                       break;
-               }
-       }
-
+       struct in6_ifaddr *ia;
 
-       if (addr->s6_addr8[0] == 0xff) {
-               scope = addr->s6_addr8[1] & 0x0f;
+       if (IN6_IS_ADDR_LOOPBACK(in6) || IN6_IS_ADDR_LINKLOCAL(in6))
+               return (1);
 
-               /*
-                * due to other scope such as reserved,
-                * return scope doesn't work.
-                */
-               switch (scope) {
-               case IPV6_ADDR_SCOPE_NODELOCAL:
-                       return IPV6_ADDR_SCOPE_NODELOCAL;
-                       break;
-               case IPV6_ADDR_SCOPE_LINKLOCAL:
-                       return IPV6_ADDR_SCOPE_LINKLOCAL;
-                       break;
-               case IPV6_ADDR_SCOPE_SITELOCAL:
-                       return IPV6_ADDR_SCOPE_SITELOCAL;
-                       break;
-               default:
-                       return IPV6_ADDR_SCOPE_GLOBAL;
-                       break;
+       lck_rw_lock_shared(&in6_ifaddr_rwlock);
+       for (ia = in6_ifaddrs; ia; ia = ia->ia_next) {
+               IFA_LOCK_SPIN(&ia->ia_ifa);
+               if (IN6_ARE_MASKED_ADDR_EQUAL(in6, &ia->ia_addr.sin6_addr,
+                   &ia->ia_prefixmask.sin6_addr)) {
+                       IFA_UNLOCK(&ia->ia_ifa);
+                       lck_rw_done(&in6_ifaddr_rwlock);
+                       return (1);
                }
+               IFA_UNLOCK(&ia->ia_ifa);
        }
-
-       if (bcmp(&in6addr_loopback, addr, sizeof(addr) - 1) == 0) {
-               if (addr->s6_addr8[15] == 1) /* loopback */
-                       return IPV6_ADDR_SCOPE_NODELOCAL;
-               if (addr->s6_addr8[15] == 0) /* unspecified */
-                       return IPV6_ADDR_SCOPE_LINKLOCAL;
-       }
-
-       return IPV6_ADDR_SCOPE_GLOBAL;
+       lck_rw_done(&in6_ifaddr_rwlock);
+       return (0);
 }
 
 int
-in6_addr2scopeid(ifp, addr)
-       struct ifnet *ifp;      /* must not be NULL */
-       struct in6_addr *addr;  /* must not be NULL */
+in6_is_addr_deprecated(struct sockaddr_in6 *sa6)
 {
-       int scope = in6_addrscope(addr);
-               
-       switch(scope) {
-       case IPV6_ADDR_SCOPE_NODELOCAL:
-               return(-1);     /* XXX: is this an appropriate value? */
-
-       case IPV6_ADDR_SCOPE_LINKLOCAL:
-               /* XXX: we do not distinguish between a link and an I/F. */
-               return(ifp->if_index);
-
-       case IPV6_ADDR_SCOPE_SITELOCAL:
-               return(0);      /* XXX: invalid. */
+       struct in6_ifaddr *ia;
 
-       default:
-               return(0);      /* XXX: treat as global. */
+       lck_rw_lock_shared(&in6_ifaddr_rwlock);
+       for (ia = in6_ifaddrs; ia; ia = ia->ia_next) {
+               IFA_LOCK_SPIN(&ia->ia_ifa);
+               if (IN6_ARE_ADDR_EQUAL(&ia->ia_addr.sin6_addr,
+                   &sa6->sin6_addr) &&
+                   (ia->ia6_flags & IN6_IFF_DEPRECATED) != 0) {
+                       IFA_UNLOCK(&ia->ia_ifa);
+                       lck_rw_done(&in6_ifaddr_rwlock);
+                       return(1); /* true */
+               }
+               /* XXX: do we still have to go thru the rest of the list? */
+               IFA_UNLOCK(&ia->ia_ifa);
        }
+
+       lck_rw_done(&in6_ifaddr_rwlock);
+       return(0);              /* false */
 }
 
 /*
  * return length of part which dst and src are equal
  * hard coding...
  */
-
 int
 in6_matchlen(src, dst)
 struct in6_addr *src, *dst;
@@ -2022,6 +2685,7 @@ struct in6_addr *src, *dst;
        return match;
 }
 
+/* XXX: to be scope conscious */
 int
 in6_are_prefix_equal(p1, p2, len)
        struct in6_addr *p1, *p2;
@@ -2041,7 +2705,8 @@ in6_are_prefix_equal(p1, p2, len)
 
        if (bcmp(&p1->s6_addr, &p2->s6_addr, bytelen))
                return(0);
-       if (p1->s6_addr[bytelen] >> (8 - bitlen) !=
+       if (bitlen != 0 && 
+           p1->s6_addr[bytelen] >> (8 - bitlen) !=
            p2->s6_addr[bytelen] >> (8 - bitlen))
                return(0);
 
@@ -2076,9 +2741,9 @@ in6_prefixlen2mask(maskp, len)
  * return the best address out of the same scope
  */
 struct in6_ifaddr *
-in6_ifawithscope(oifp, dst)
-       register struct ifnet *oifp;
-       register struct in6_addr *dst;
+in6_ifawithscope(
+       struct ifnet *oifp,
+       struct in6_addr *dst)
 {
        int dst_scope = in6_addrscope(dst), src_scope, best_scope = 0;
        int blen = -1;
@@ -2087,7 +2752,7 @@ in6_ifawithscope(oifp, dst)
        struct in6_ifaddr *ifa_best = NULL;
        
        if (oifp == NULL) {
-               printf("in6_ifawithscope: output interface is not specified\n");
+               /* output interface is not specified */
                return(NULL);
        }
 
@@ -2096,12 +2761,8 @@ in6_ifawithscope(oifp, dst)
         * Comparing an interface with the outgoing interface will be done
         * only at the final stage of tiebreaking.
         */
-#if defined(__bsdi__) || (defined(__FreeBSD__) && __FreeBSD__ < 3)
-       for (ifp = ifnet; ifp; ifp = ifp->if_next)
-#else
-       for (ifp = TAILQ_FIRST(&ifnet); ifp; ifp = TAILQ_NEXT(ifp, if_list))
-#endif
-       {
+       ifnet_head_lock_shared();
+       TAILQ_FOREACH(ifp, &ifnet_head, if_list) {
                /*
                 * We can never take an address that breaks the scope zone
                 * of the destination.
@@ -2109,53 +2770,38 @@ in6_ifawithscope(oifp, dst)
                if (in6_addr2scopeid(ifp, dst) != in6_addr2scopeid(oifp, dst))
                        continue;
 
-#if defined(__bsdi__) || (defined(__FreeBSD__) && __FreeBSD__ < 3)
-               for (ifa = ifp->if_addrlist; ifa; ifa = ifa->ifa_next)
-#elif defined(__FreeBSD__) && __FreeBSD__ >= 4
+               ifnet_lock_shared(ifp);
                TAILQ_FOREACH(ifa, &ifp->if_addrlist, ifa_list)
-#else
-               for (ifa = ifp->if_addrlist.tqh_first; ifa;
-                    ifa = ifa->ifa_list.tqe_next)
-#endif
                {
                        int tlen = -1, dscopecmp, bscopecmp, matchcmp;
 
-                       if (ifa->ifa_addr->sa_family != AF_INET6)
+                       IFA_LOCK(ifa);
+                       if (ifa->ifa_addr->sa_family != AF_INET6) {
+                               IFA_UNLOCK(ifa);
                                continue;
-
+                       }
                        src_scope = in6_addrscope(IFA_IN6(ifa));
 
-#if ADDRSELECT_DEBUG           /* should be removed after stabilization */
-                       dscopecmp = IN6_ARE_SCOPE_CMP(src_scope, dst_scope);
-                       printf("in6_ifawithscope: dst=%s bestaddr=%s, "
-                              "newaddr=%s, scope=%x, dcmp=%d, bcmp=%d, "
-                              "matchlen=%d, flgs=%x\n",
-                              ip6_sprintf(dst),
-                              ifa_best ? ip6_sprintf(&ifa_best->ia_addr.sin6_addr) : "none",
-                              ip6_sprintf(IFA_IN6(ifa)), src_scope,
-                              dscopecmp,
-                              ifa_best ? IN6_ARE_SCOPE_CMP(src_scope, best_scope) : -1,
-                              in6_matchlen(IFA_IN6(ifa), dst),
-                              ((struct in6_ifaddr *)ifa)->ia6_flags);
-#endif
-
                        /*
                         * Don't use an address before completing DAD
                         * nor a duplicated address.
                         */
                        if (((struct in6_ifaddr *)ifa)->ia6_flags &
-                           IN6_IFF_NOTREADY)
+                           IN6_IFF_NOTREADY) {
+                               IFA_UNLOCK(ifa);
                                continue;
-
+                       }
                        /* XXX: is there any case to allow anycasts? */
                        if (((struct in6_ifaddr *)ifa)->ia6_flags &
-                           IN6_IFF_ANYCAST)
+                           IN6_IFF_ANYCAST) {
+                               IFA_UNLOCK(ifa);
                                continue;
-
+                       }
                        if (((struct in6_ifaddr *)ifa)->ia6_flags &
-                           IN6_IFF_DETACHED)
+                           IN6_IFF_DETACHED) {
+                               IFA_UNLOCK(ifa);
                                continue;
-
+                       }
                        /*
                         * If this is the first address we find,
                         * keep it anyway.
@@ -2175,14 +2821,22 @@ in6_ifawithscope(oifp, dst)
                         * Also, if the current address has a smaller scope
                         * than dst, ignore it unless ifa_best also has a
                         * smaller scope.
+                        * Consequently, after the two if-clause below,
+                        * the followings must be satisfied:
+                        * (scope(src) < scope(dst) &&
+                        *  scope(best) < scope(dst))
+                        *  OR
+                        * (scope(best) >= scope(dst) &&
+                        *  scope(src) >= scope(dst))
                         */
                        if (IN6_ARE_SCOPE_CMP(best_scope, dst_scope) < 0 &&
                            IN6_ARE_SCOPE_CMP(src_scope, dst_scope) >= 0)
-                               goto replace;
+                               goto replace; /* (A) */
                        if (IN6_ARE_SCOPE_CMP(src_scope, dst_scope) < 0 &&
-                           IN6_ARE_SCOPE_CMP(best_scope, dst_scope) >= 0)
-                               continue;
-
+                           IN6_ARE_SCOPE_CMP(best_scope, dst_scope) >= 0) {
+                               IFA_UNLOCK(ifa);
+                               continue; /* (B) */
+                       }
                        /*
                         * A deprecated address SHOULD NOT be used in new
                         * communications if an alternate (non-deprecated)
@@ -2195,28 +2849,64 @@ in6_ifawithscope(oifp, dst)
                                 * Ignore any deprecated addresses if
                                 * specified by configuration.
                                 */
-                               if (!ip6_use_deprecated)
+                               if (!ip6_use_deprecated) {
+                                       IFA_UNLOCK(ifa);
                                        continue;
-
+                               }
                                /*
                                 * If we have already found a non-deprecated
                                 * candidate, just ignore deprecated addresses.
                                 */
                                if ((ifa_best->ia6_flags & IN6_IFF_DEPRECATED)
-                                   == 0)
+                                   == 0) {
+                                       IFA_UNLOCK(ifa);
                                        continue;
+                               }
                        }
 
                        /*
                         * A non-deprecated address is always preferred
                         * to a deprecated one regardless of scopes and
-                        * address matching.
+                        * address matching (Note invariants ensured by the
+                        * conditions (A) and (B) above.)
                         */
                        if ((ifa_best->ia6_flags & IN6_IFF_DEPRECATED) &&
                            (((struct in6_ifaddr *)ifa)->ia6_flags &
                             IN6_IFF_DEPRECATED) == 0)
                                goto replace;
 
+                       /*
+                        * When we use temporary addresses described in
+                        * RFC 4941, we prefer temporary addresses to
+                        * public autoconf addresses.  Again, note the
+                        * invariants from (A) and (B).  Also note that we
+                        * don't have any preference between static addresses
+                        * and autoconf addresses (despite of whether or not
+                        * the latter is temporary or public.)
+                        */
+                       if (ip6_use_tempaddr) {
+                               struct in6_ifaddr *ifat;
+
+                               ifat = (struct in6_ifaddr *)ifa;
+                               if ((ifa_best->ia6_flags &
+                                    (IN6_IFF_AUTOCONF|IN6_IFF_TEMPORARY))
+                                    == IN6_IFF_AUTOCONF &&
+                                   (ifat->ia6_flags &
+                                    (IN6_IFF_AUTOCONF|IN6_IFF_TEMPORARY))
+                                    == (IN6_IFF_AUTOCONF|IN6_IFF_TEMPORARY)) {
+                                       goto replace;
+                               }
+                               if ((ifa_best->ia6_flags &
+                                    (IN6_IFF_AUTOCONF|IN6_IFF_TEMPORARY))
+                                   == (IN6_IFF_AUTOCONF|IN6_IFF_TEMPORARY) &&
+                                   (ifat->ia6_flags &
+                                    (IN6_IFF_AUTOCONF|IN6_IFF_TEMPORARY))
+                                    == IN6_IFF_AUTOCONF) {
+                                       IFA_UNLOCK(ifa);
+                                       continue;
+                               }
+                       }
+
                        /*
                         * At this point, we have two cases:
                         * 1. we are looking at a non-deprecated address,
@@ -2243,77 +2933,94 @@ in6_ifawithscope(oifp, dst)
                         *   Smaller scopes are the last resort.
                         * - A deprecated address is chosen only when we have
                         *   no address that has an enough scope, but is
-                        *   prefered to any addresses of smaller scopes.
-                        * - Longest address match against dst is considered
-                        *   only for addresses that has the same scope of dst.
+                        *   prefered to any addresses of smaller scopes
+                        *   (this must be already done above.)
+                        * - addresses on the outgoing I/F are preferred to
+                        *   ones on other interfaces if none of above
+                        *   tiebreaks.  In the table below, the column "bI"
+                        *   means if the best_ifa is on the outgoing
+                        *   interface, and the column "sI" means if the ifa
+                        *   is on the outgoing interface.
                         * - If there is no other reasons to choose one,
-                        *   addresses on the outgoing I/F are preferred.
+                        *   longest address match against dst is considered.
                         *
                         * The precise decision table is as follows:
-                        * dscopecmp bscopecmp matchcmp outI/F | replace?
-                        *    !equal     equal      N/A    Yes |      Yes (1)
-                        *    !equal     equal      N/A     No |       No (2)
-                        *    larger    larger      N/A    N/A |       No (3)
-                        *    larger   smaller      N/A    N/A |      Yes (4)
-                        *   smaller    larger      N/A    N/A |      Yes (5)
-                        *   smaller   smaller      N/A    N/A |       No (6)
-                        *     equal   smaller      N/A    N/A |      Yes (7)
-                        *     equal    larger       (already done)
-                        *     equal     equal   larger    N/A |      Yes (8)
-                        *     equal     equal  smaller    N/A |       No (9)
-                        *     equal     equal    equal    Yes |      Yes (a)
-                        *     eaual     eqaul    equal     No |       No (b)
+                        * dscopecmp bscopecmp    match  bI oI | replace?
+                        *       N/A     equal      N/A   Y  N |   No (1)
+                        *       N/A     equal      N/A   N  Y |  Yes (2)
+                        *       N/A     equal   larger    N/A |  Yes (3)
+                        *       N/A     equal  !larger    N/A |   No (4)
+                        *    larger    larger      N/A    N/A |   No (5)
+                        *    larger   smaller      N/A    N/A |  Yes (6)
+                        *   smaller    larger      N/A    N/A |  Yes (7)
+                        *   smaller   smaller      N/A    N/A |   No (8)
+                        *     equal   smaller      N/A    N/A |  Yes (9)
+                        *     equal    larger       (already done at A above)
                         */
                        dscopecmp = IN6_ARE_SCOPE_CMP(src_scope, dst_scope);
                        bscopecmp = IN6_ARE_SCOPE_CMP(src_scope, best_scope);
 
-                       if (dscopecmp && bscopecmp == 0) {
-                               if (oifp == ifp) /* (1) */
+                       if (bscopecmp == 0) {
+                               struct ifnet *bifp = ifa_best->ia_ifp;
+
+                               if (bifp == oifp && ifp != oifp) { /* (1) */
+                                       IFA_UNLOCK(ifa);
+                                       continue;
+                               }
+                               if (bifp != oifp && ifp == oifp) /* (2) */
+                                       goto replace;
+
+                               /*
+                                * Both bifp and ifp are on the outgoing
+                                * interface, or both two are on a different
+                                * interface from the outgoing I/F.
+                                * now we need address matching against dst
+                                * for tiebreaking.
+                                */
+                               tlen = in6_matchlen(IFA_IN6(ifa), dst);
+                               matchcmp = tlen - blen;
+                               if (matchcmp > 0) /* (3) */
                                        goto replace;
-                               continue; /* (2) */
+                               IFA_UNLOCK(ifa);
+                               continue; /* (4) */
                        }
                        if (dscopecmp > 0) {
-                               if (bscopecmp > 0) /* (3) */
+                               if (bscopecmp > 0) { /* (5) */
+                                       IFA_UNLOCK(ifa);
                                        continue;
-                               goto replace; /* (4) */
+                               }
+                               goto replace; /* (6) */
                        }
                        if (dscopecmp < 0) {
-                               if (bscopecmp > 0) /* (5) */
+                               if (bscopecmp > 0) /* (7) */
                                        goto replace;
-                               continue; /* (6) */
+                               IFA_UNLOCK(ifa);
+                               continue; /* (8) */
                        }
 
                        /* now dscopecmp must be 0 */
                        if (bscopecmp < 0)
-                               goto replace; /* (7) */
-
-                       /*
-                        * At last both dscopecmp and bscopecmp must be 0.
-                        * We need address matching against dst for
-                        * tiebreaking.
-                        */
-                       tlen = in6_matchlen(IFA_IN6(ifa), dst);
-                       matchcmp = tlen - blen;
-                       if (matchcmp > 0) /* (8) */
-                               goto replace;
-                       if (matchcmp < 0) /* (9) */
-                               continue;
-                       if (oifp == ifp) /* (a) */
-                               goto replace;
-                       continue; /* (b) */
+                               goto replace; /* (9) */
 
-                 replace:
-                       ifa_best = (struct in6_ifaddr *)ifa;
+replace:
+                       IFA_ADDREF_LOCKED(ifa); /* for ifa_best */
                        blen = tlen >= 0 ? tlen :
                                in6_matchlen(IFA_IN6(ifa), dst);
-                       best_scope = in6_addrscope(&ifa_best->ia_addr.sin6_addr);
+                       best_scope = in6_addrscope(&ifa2ia6(ifa)->ia_addr.sin6_addr);
+                       IFA_UNLOCK(ifa);
+                       if (ifa_best)
+                               IFA_REMREF(&ifa_best->ia_ifa);
+                       ifa_best = (struct in6_ifaddr *)ifa;
                }
+               ifnet_lock_done(ifp);
        }
+       ifnet_head_done();
 
        /* count statistics for future improvements */
        if (ifa_best == NULL)
                ip6stat.ip6s_sources_none++;
        else {
+               IFA_LOCK_SPIN(&ifa_best->ia_ifa);
                if (oifp == ifa_best->ia_ifp)
                        ip6stat.ip6s_sources_sameif[best_scope]++;
                else
@@ -2326,6 +3033,7 @@ in6_ifawithscope(oifp, dst)
 
                if ((ifa_best->ia6_flags & IN6_IFF_DEPRECATED) != 0)
                        ip6stat.ip6s_sources_deprecated[best_scope]++;
+               IFA_UNLOCK(&ifa_best->ia_ifa);
        }
 
        return(ifa_best);
@@ -2335,70 +3043,54 @@ in6_ifawithscope(oifp, dst)
  * return the best address out of the same scope. if no address was
  * found, return the first valid address from designated IF.
  */
-
 struct in6_ifaddr *
-in6_ifawithifp(ifp, dst)
-       register struct ifnet *ifp;
-       register struct in6_addr *dst;
+in6_ifawithifp(
+       struct ifnet *ifp,
+       struct in6_addr *dst)
 {
        int dst_scope = in6_addrscope(dst), blen = -1, tlen;
        struct ifaddr *ifa;
-       struct in6_ifaddr *besta = 0;
-       struct in6_ifaddr *dep[2];      /*last-resort: deprecated*/
+       struct in6_ifaddr *besta = NULL;
+       struct in6_ifaddr *dep[2];      /* last-resort: deprecated */
 
        dep[0] = dep[1] = NULL;
 
-#if 0
-#if MIP6
-       /*
-        * This is needed to assure that the Home Address is used for
-        * outgoing packets when not at home. We can't choose any other
-        * address if we want to keep connections up during movement.
-        */
-       if (mip6_get_home_prefix_hook) {        /* Only Mobile Node */
-               struct nd_prefix *pr;
-               if ((pr = (*mip6_get_home_prefix_hook)()) &&
-                   !IN6_IS_ADDR_UNSPECIFIED(&pr->ndpr_addr))
-               {
-                       if (dst_scope == in6_addrscope(&pr->ndpr_addr)) {
-#if MIP6_DEBUG
-                               /* Noisy but useful */
-                               mip6_debug("%s: Local address %s is chosen "
-                                          "for pcb to dest %s.\n",
-                                          __FUNCTION__,
-                                          ip6_sprintf(&pr->ndpr_addr),
-                                          ip6_sprintf(dst));
-#endif
-                               return(in6ifa_ifpwithaddr(ifp, &pr->ndpr_addr));
-                       }
-               }
-       }
-#endif /* MIP6 */
-#endif /* 0 */
-
        /*
         * We first look for addresses in the same scope.
         * If there is one, return it.
         * If two or more, return one which matches the dst longest.
         * If none, return one of global addresses assigned other ifs.
         */
-#if defined(__bsdi__) || (defined(__FreeBSD__) && __FreeBSD__ < 3)
-       for (ifa = ifp->if_addrlist; ifa; ifa = ifa->ifa_next)
-#else
-       for (ifa = ifp->if_addrlist.tqh_first; ifa; ifa = ifa->ifa_list.tqe_next)
-#endif
+       ifnet_lock_shared(ifp);
+       TAILQ_FOREACH(ifa, &ifp->if_addrlist, ifa_list)
        {
-               if (ifa->ifa_addr->sa_family != AF_INET6)
+               IFA_LOCK(ifa);
+               if (ifa->ifa_addr->sa_family != AF_INET6) {
+                       IFA_UNLOCK(ifa);
                        continue;
-               if (((struct in6_ifaddr *)ifa)->ia6_flags & IN6_IFF_ANYCAST)
+               }
+               if (ifa2ia6(ifa)->ia6_flags & IN6_IFF_ANYCAST) {
+                       IFA_UNLOCK(ifa);
                        continue; /* XXX: is there any case to allow anycast? */
-               if (((struct in6_ifaddr *)ifa)->ia6_flags & IN6_IFF_NOTREADY)
+               }
+               if (ifa2ia6(ifa)->ia6_flags & IN6_IFF_NOTREADY) {
+                       IFA_UNLOCK(ifa);
                        continue; /* don't use this interface */
-               if (((struct in6_ifaddr *)ifa)->ia6_flags & IN6_IFF_DETACHED)
+               }
+               if (ifa2ia6(ifa)->ia6_flags & IN6_IFF_DETACHED) {
+                       IFA_UNLOCK(ifa);
                        continue;
-               if (((struct in6_ifaddr *)ifa)->ia6_flags & IN6_IFF_DEPRECATED) {
-                       if (ip6_use_deprecated)
+               }
+               if (ifa2ia6(ifa)->ia6_flags & IN6_IFF_DEPRECATED) {
+                       if (ip6_use_deprecated) {
+                               IFA_ADDREF_LOCKED(ifa); /* for dep[0] */
+                               IFA_UNLOCK(ifa);
+                               if (dep[0] != NULL)
+                                       IFA_REMREF(&dep[0]->ia_ifa);
                                dep[0] = (struct in6_ifaddr *)ifa;
+                       } else {
+                               IFA_UNLOCK(ifa);
+                       }
                        continue;
                }
 
@@ -2407,46 +3099,87 @@ in6_ifawithifp(ifp, dst)
                         * call in6_matchlen() as few as possible
                         */
                        if (besta) {
-                               if (blen == -1)
+                               if (blen == -1) {
+                                       IFA_UNLOCK(ifa);
+                                       IFA_LOCK(&besta->ia_ifa);
                                        blen = in6_matchlen(&besta->ia_addr.sin6_addr, dst);
+                                       IFA_UNLOCK(&besta->ia_ifa);
+                                       IFA_LOCK(ifa);
+                               }
                                tlen = in6_matchlen(IFA_IN6(ifa), dst);
                                if (tlen > blen) {
                                        blen = tlen;
+                                       IFA_ADDREF_LOCKED(ifa); /* for besta */
+                                       IFA_UNLOCK(ifa);
+                                       IFA_REMREF(&besta->ia_ifa);
                                        besta = (struct in6_ifaddr *)ifa;
+                               } else {
+                                       IFA_UNLOCK(ifa);
                                }
-                       } else
+                       } else {
                                besta = (struct in6_ifaddr *)ifa;
+                               IFA_ADDREF_LOCKED(ifa); /* for besta */
+                               IFA_UNLOCK(ifa);
+                       }
+               } else {
+                       IFA_UNLOCK(ifa);
                }
        }
-       if (besta)
+       if (besta) {
+               ifnet_lock_done(ifp);
+               if (dep[0] != NULL)
+                       IFA_REMREF(&dep[0]->ia_ifa);
                return(besta);
+       }
 
-#if defined(__bsdi__) || (defined(__FreeBSD__) && __FreeBSD__ < 3)
-       for (ifa = ifp->if_addrlist; ifa; ifa = ifa->ifa_next)
-#else
-       for (ifa = ifp->if_addrlist.tqh_first; ifa; ifa = ifa->ifa_list.tqe_next)
-#endif
+       TAILQ_FOREACH(ifa, &ifp->if_addrlist, ifa_list)
        {
-               if (ifa->ifa_addr->sa_family != AF_INET6)
+               IFA_LOCK(ifa);
+               if (ifa->ifa_addr->sa_family != AF_INET6) {
+                       IFA_UNLOCK(ifa);
                        continue;
-               if (((struct in6_ifaddr *)ifa)->ia6_flags & IN6_IFF_ANYCAST)
+               }
+               if (ifa2ia6(ifa)->ia6_flags & IN6_IFF_ANYCAST) {
+                       IFA_UNLOCK(ifa);
                        continue; /* XXX: is there any case to allow anycast? */
-               if (((struct in6_ifaddr *)ifa)->ia6_flags & IN6_IFF_NOTREADY)
+               }
+               if (ifa2ia6(ifa)->ia6_flags & IN6_IFF_NOTREADY) {
+                       IFA_UNLOCK(ifa);
                        continue; /* don't use this interface */
-               if (((struct in6_ifaddr *)ifa)->ia6_flags & IN6_IFF_DETACHED)
+               }
+               if (ifa2ia6(ifa)->ia6_flags & IN6_IFF_DETACHED) {
+                       IFA_UNLOCK(ifa);
                        continue;
-               if (((struct in6_ifaddr *)ifa)->ia6_flags & IN6_IFF_DEPRECATED) {
-                       if (ip6_use_deprecated)
+               }
+               if (ifa2ia6(ifa)->ia6_flags & IN6_IFF_DEPRECATED) {
+                       if (ip6_use_deprecated) {
+                               IFA_ADDREF_LOCKED(ifa); /* for dep[1] */
+                               IFA_UNLOCK(ifa);
+                               if (dep[1] != NULL)
+                                       IFA_REMREF(&dep[1]->ia_ifa);
                                dep[1] = (struct in6_ifaddr *)ifa;
+                       } else {
+                               IFA_UNLOCK(ifa);
+                       }
                        continue;
                }
-
+               IFA_ADDREF_LOCKED(ifa); /* for caller */
+               IFA_UNLOCK(ifa);
+               ifnet_lock_done(ifp);
+               if (dep[0] != NULL)
+                       IFA_REMREF(&dep[0]->ia_ifa);
+               if (dep[1] != NULL)
+                       IFA_REMREF(&dep[1]->ia_ifa);
                return (struct in6_ifaddr *)ifa;
        }
+       ifnet_lock_done(ifp);
 
        /* use the last-resort values, that are, deprecated addresses */
-       if (dep[0])
+       if (dep[0]) {
+               if (dep[1] != NULL)
+                       IFA_REMREF(&dep[1]->ia_ifa);
                return dep[0];
+       }
        if (dep[1])
                return dep[1];
 
@@ -2456,98 +3189,92 @@ in6_ifawithifp(ifp, dst)
 /*
  * perform DAD when interface becomes IFF_UP.
  */
-void
-in6_if_up(ifp)
-       struct ifnet *ifp;
+int
+in6_if_up(
+       struct ifnet *ifp,
+       struct in6_aliasreq *ifra)
 {
        struct ifaddr *ifa;
        struct in6_ifaddr *ia;
-       struct sockaddr_dl *sdl;
-       int type;
-#if __bsdi__
-       u_char ea[ETHER_ADDR_LEN];
-#else
-       struct ether_addr ea;
-#endif
-       int off;
        int dad_delay;          /* delay ticks before DAD output */
+       int error;
 
-       bzero(&ea, sizeof(ea));
-       sdl = NULL;
+       if (!in6_init2done)
+               return ENXIO;
 
-#if defined(__bsdi__) || (defined(__FreeBSD__) && __FreeBSD__ < 3)
-       for (ifa = ifp->if_addrlist; ifa; ifa = ifa->ifa_next)
-#else
-       for (ifa = ifp->if_addrlist.tqh_first; ifa; ifa = ifa->ifa_list.tqe_next)
-#endif
+       /*
+        * special cases, like 6to4, are handled in in6_ifattach
+        */
+       error = in6_ifattach(ifp, NULL, ifra);
+       if (error != 0)
+               return error;
+
+       dad_delay = 0;
+
+       ifnet_lock_exclusive(ifp);
+       TAILQ_FOREACH(ifa, &ifp->if_addrlist, ifa_list)
        {
-               if (ifa->ifa_addr->sa_family == AF_INET6
-                && IN6_IS_ADDR_LINKLOCAL(&((struct sockaddr_in6 *)ifa->ifa_addr)->sin6_addr)) {
-                       goto dad;
-               }
-               if (ifa->ifa_addr->sa_family != AF_LINK)
+               IFA_LOCK_SPIN(ifa);
+               if (ifa->ifa_addr->sa_family != AF_INET6) {
+                       IFA_UNLOCK(ifa);
                        continue;
-               sdl = (struct sockaddr_dl *)ifa->ifa_addr;
-               break;
+               }
+               ia = (struct in6_ifaddr *)ifa;
+               if (ia->ia6_flags & IN6_IFF_TENTATIVE) {
+                       IFA_UNLOCK(ifa);
+                       nd6_dad_start(ifa, &dad_delay);
+               } else {
+                       IFA_UNLOCK(ifa);
+               }
        }
+       ifnet_lock_done(ifp);
+
+       return 0;
+}
+
+int
+in6if_do_dad(
+       struct ifnet *ifp)
+{
+       if ((ifp->if_flags & IFF_LOOPBACK) != 0)
+               return(0);
+
+       /*
+        * Skip DAD on service triggered interfaces, for now,
+        * until we have support for Opportunistic Duplicate
+        * Address Detection [RFC 4429] and we can then back
+        * this out.
+        */
+       if (ifp->if_eflags & IFEF_SERVICE_TRIGGERED)
+               return (0);
 
        switch (ifp->if_type) {
-       case IFT_LOOP:
-               in6_ifattach(ifp, IN6_IFT_LOOP, NULL, 1);
-               break;
-       case IFT_SLIP:
-       case IFT_PPP:
+#if IFT_DUMMY
        case IFT_DUMMY:
-       case IFT_GIF:
+#endif
        case IFT_FAITH:
-               type = IN6_IFT_P2P;
-               in6_ifattach(ifp, type, 0, 1);
-               break;
-#if IFT_STF
-       case IFT_STF:
                /*
-                * This is VERY awkward to call nd6_ifattach while we will
-                * not do ND at all on the interface.  It is necessary for
-                * initializing default hoplimit, and ND mtu.
+                * These interfaces do not have the IFF_LOOPBACK flag,
+                * but loop packets back.  We do not have to do DAD on such
+                * interfaces.  We should even omit it, because loop-backed
+                * NS would confuse the DAD procedure.
                 */
-               nd6_ifattach(ifp);
-               break;
-#endif
-       case IFT_ETHER:
-       case IFT_FDDI:
-       case IFT_ATM:
-               type = IN6_IFT_802;
-               if (sdl == NULL)
-                       break;
-               off = sdl->sdl_nlen;
-               if (bcmp(&sdl->sdl_data[off], &ea, sizeof(ea)) != 0)
-                       in6_ifattach(ifp, type, LLADDR(sdl), 0);
-               break;
-       case IFT_ARCNET:
-               type = IN6_IFT_ARCNET;
-               if (sdl == NULL)
-                       break;
-               off = sdl->sdl_nlen;
-               if (sdl->sdl_data[off] != 0)    /* XXX ?: */
-                       in6_ifattach(ifp, type, LLADDR(sdl), 0);
-               break;
+               return(0);
        default:
-               break;
-       }
+               /*
+                * Our DAD routine requires the interface up and running.
+                * However, some interfaces can be up before the RUNNING
+                * status.  Additionaly, users may try to assign addresses
+                * before the interface becomes up (or running).
+                * We simply skip DAD in such a case as a work around.
+                * XXX: we should rather mark "tentative" on such addresses,
+                * and do DAD after the interface becomes ready.
+                */
+               if ((ifp->if_flags & (IFF_UP|IFF_RUNNING)) !=
+                   (IFF_UP|IFF_RUNNING))
+                       return(0);
 
-dad:
-       dad_delay = 0;
-#if defined(__bsdi__) || (defined(__FreeBSD__) && __FreeBSD__ < 3)
-       for (ifa = ifp->if_addrlist; ifa; ifa = ifa->ifa_next)
-#else
-       for (ifa = ifp->if_addrlist.tqh_first; ifa; ifa = ifa->ifa_list.tqe_next)
-#endif
-       {
-               if (ifa->ifa_addr->sa_family != AF_INET6)
-                       continue;
-               ia = (struct in6_ifaddr *)ifa;
-               if (ia->ia6_flags & IN6_IFF_TENTATIVE)
-                       nd6_dad_start(ifa, &dad_delay);
+               return(1);
        }
 }
 
@@ -2558,26 +3285,86 @@ dad:
 void
 in6_setmaxmtu()
 {
-       unsigned long maxmtu = 0;
+       u_int32_t maxmtu = 0;
        struct ifnet *ifp;
 
-#if defined(__bsdi__) || (defined(__FreeBSD__) && __FreeBSD__ < 3)
-       for (ifp = ifnet; ifp; ifp = ifp->if_next)
-#else
-       for (ifp = TAILQ_FIRST(&ifnet); ifp; ifp = TAILQ_NEXT(ifp, if_list))
-#endif
-       {
+       ifnet_head_lock_shared();
+       TAILQ_FOREACH(ifp, &ifnet_head, if_list) {
+               lck_rw_lock_shared(nd_if_rwlock);
                if ((ifp->if_flags & IFF_LOOPBACK) == 0 &&
-                   nd_ifinfo[ifp->if_index].linkmtu > maxmtu)
-                       maxmtu =  nd_ifinfo[ifp->if_index].linkmtu;
+                   IN6_LINKMTU(ifp) > maxmtu)
+                       maxmtu = IN6_LINKMTU(ifp);
+               lck_rw_done(nd_if_rwlock);
        }
+       ifnet_head_done();
        if (maxmtu)     /* update only when maxmtu is positive */
                in6_maxmtu = maxmtu;
 }
-
-#if MAPPED_ADDR_ENABLED
-/* 
- * Convert sockaddr_in6 to sockaddr_in. Original sockaddr_in6 must be
+/*
+ * Provide the length of interface identifiers to be used for the link attached
+ * to the given interface.  The length should be defined in "IPv6 over
+ * xxx-link" document.  Note that address architecture might also define
+ * the length for a particular set of address prefixes, regardless of the
+ * link type.  As clarified in rfc2462bis, those two definitions should be
+ * consistent, and those really are as of August 2004.
+ */
+int
+in6_if2idlen(struct ifnet *ifp)
+{
+       switch (ifp->if_type) {
+       case IFT_ETHER:         /* RFC2464 */
+       case IFT_IEEE8023ADLAG: /* IEEE802.3ad Link Aggregate */
+#ifdef IFT_PROPVIRTUAL
+       case IFT_PROPVIRTUAL:   /* XXX: no RFC. treat it as ether */
+#endif
+#ifdef IFT_L2VLAN
+       case IFT_L2VLAN:        /* ditto */
+#endif
+#ifdef IFT_IEEE80211
+       case IFT_IEEE80211:     /* ditto */
+#endif
+#ifdef IFT_MIP
+       case IFT_MIP:   /* ditto */
+#endif
+               return (64);
+       case IFT_FDDI:          /* RFC2467 */
+               return (64);
+       case IFT_ISO88025:      /* RFC2470 (IPv6 over Token Ring) */
+               return (64);
+       case IFT_PPP:           /* RFC2472 */
+               return (64);
+       case IFT_ARCNET:        /* RFC2497 */
+               return (64);
+       case IFT_FRELAY:        /* RFC2590 */
+               return (64);
+       case IFT_IEEE1394:      /* RFC3146 */
+               return (64);
+       case IFT_GIF:
+               return (64);    /* draft-ietf-v6ops-mech-v2-07 */
+       case IFT_LOOP:
+               return (64);    /* XXX: is this really correct? */
+       case IFT_OTHER:
+               return (64);    /* for utun interfaces */
+       case IFT_CELLULAR:
+               return (64);    /* Packet Data over Cellular */
+       default:
+               /*
+                * Unknown link type:
+                * It might be controversial to use the today's common constant
+                * of 64 for these cases unconditionally.  For full compliance,
+                * we should return an error in this case.  On the other hand,
+                * if we simply miss the standard for the link type or a new
+                * standard is defined for a new link type, the IFID length
+                * is very likely to be the common constant.  As a compromise,
+                * we always use the constant, but make an explicit notice
+                * indicating the "unknown" case.
+                */
+               printf("in6_if2idlen: unknown link type (%d)\n", ifp->if_type);
+               return (64);
+       }
+}
+/*
+ * Convert sockaddr_in6 to sockaddr_in.  Original sockaddr_in6 must be
  * v4 mapped addr or v4 compat addr
  */
 void
@@ -2587,7 +3374,7 @@ in6_sin6_2_sin(struct sockaddr_in *sin, struct sockaddr_in6 *sin6)
        sin->sin_len = sizeof(struct sockaddr_in);
        sin->sin_family = AF_INET;
        sin->sin_port = sin6->sin6_port;
-       sin->sin_addr.s_addr = sin6->sin6_addr.s6_addr32[3];    
+       sin->sin_addr.s_addr = sin6->sin6_addr.s6_addr32[3];
 }
 
 /* Convert sockaddr_in to sockaddr_in6 in v4 mapped addr format. */
@@ -2621,7 +3408,7 @@ in6_sin6_2_sin_in_sock(struct sockaddr *nam)
 }
 
 /* Convert sockaddr_in into sockaddr_in6 in v4 mapped addr format. */
-void
+int
 in6_sin_2_v4mapsin6_in_sock(struct sockaddr **nam)
 {
        struct sockaddr_in *sin_p;
@@ -2629,10 +3416,217 @@ in6_sin_2_v4mapsin6_in_sock(struct sockaddr **nam)
 
        MALLOC(sin6_p, struct sockaddr_in6 *, sizeof *sin6_p, M_SONAME,
               M_WAITOK);
+       if (sin6_p == NULL)
+               return ENOBUFS;
        sin_p = (struct sockaddr_in *)*nam;
        in6_sin_2_v4mapsin6(sin_p, sin6_p);
        FREE(*nam, M_SONAME);
        *nam = (struct sockaddr *)sin6_p;
+
+       return 0;
+}
+
+/*
+ * Posts in6_event_data message kernel events.
+ *
+ * To get the same size of kev_in6_data between ILP32 and LP64 data models
+ * we are using a special version of the in6_addrlifetime structure that 
+ * uses only 32 bits fields to be compatible with Leopard, and that 
+ * are large enough to span 68 years.
+ */
+void
+in6_post_msg(struct ifnet *ifp, u_int32_t event_code, struct in6_ifaddr *ifa)
+{
+       struct kev_msg        ev_msg;
+       struct kev_in6_data   in6_event_data;
+
+       bzero(&in6_event_data, sizeof(struct kev_in6_data));
+       bzero(&ev_msg, sizeof(struct kev_msg));
+       ev_msg.vendor_code    = KEV_VENDOR_APPLE;
+       ev_msg.kev_class      = KEV_NETWORK_CLASS;
+       ev_msg.kev_subclass   = KEV_INET6_SUBCLASS;
+       ev_msg.event_code     = event_code;
+
+       IFA_LOCK(&ifa->ia_ifa);
+       in6_event_data.ia_addr         = ifa->ia_addr;
+       in6_event_data.ia_net          = ifa->ia_net;
+       in6_event_data.ia_dstaddr      = ifa->ia_dstaddr;
+       in6_event_data.ia_prefixmask   = ifa->ia_prefixmask;
+       in6_event_data.ia_plen         = ifa->ia_plen;
+       in6_event_data.ia6_flags       = (u_int32_t)ifa->ia6_flags;
+
+       in6_event_data.ia_lifetime.ia6t_expire =
+           ifa->ia6_lifetime.ia6t_expire;
+       in6_event_data.ia_lifetime.ia6t_preferred =
+           ifa->ia6_lifetime.ia6t_preferred;
+       in6_event_data.ia_lifetime.ia6t_vltime =
+           ifa->ia6_lifetime.ia6t_vltime;
+       in6_event_data.ia_lifetime.ia6t_pltime =
+           ifa->ia6_lifetime.ia6t_pltime;
+       IFA_UNLOCK(&ifa->ia_ifa);
+
+       if (ifp != NULL) {
+               strncpy(&in6_event_data.link_data.if_name[0],
+                   ifp->if_name, IFNAMSIZ);
+               in6_event_data.link_data.if_family = ifp->if_family;
+               in6_event_data.link_data.if_unit  = (u_int32_t) ifp->if_unit;
+       }
+
+       ev_msg.dv[0].data_ptr    = &in6_event_data;
+       ev_msg.dv[0].data_length = sizeof (in6_event_data);
+       ev_msg.dv[1].data_length = 0;
+
+       kev_post_msg(&ev_msg);
+}
+
+/*
+ * Called as part of ip6_init
+ */
+void
+in6_ifaddr_init(void)
+{
+       in6_multi_init();
+
+       PE_parse_boot_argn("ifa_debug", &in6ifa_debug, sizeof (in6ifa_debug));
+
+       in6ifa_size = (in6ifa_debug == 0) ? sizeof (struct in6_ifaddr) :
+           sizeof (struct in6_ifaddr_dbg);
+
+       in6ifa_zone = zinit(in6ifa_size, IN6IFA_ZONE_MAX * in6ifa_size,
+           0, IN6IFA_ZONE_NAME);
+       if (in6ifa_zone == NULL) {
+               panic("%s: failed allocating %s", __func__, IN6IFA_ZONE_NAME);
+               /* NOTREACHED */
+       }
+       zone_change(in6ifa_zone, Z_EXPAND, TRUE);
+       zone_change(in6ifa_zone, Z_CALLERACCT, FALSE);
+
+       lck_mtx_init(&in6ifa_trash_lock, ifa_mtx_grp, ifa_mtx_attr);
+       TAILQ_INIT(&in6ifa_trash_head);
+}
+
+static struct in6_ifaddr *
+in6_ifaddr_alloc(int how)
+{
+       struct in6_ifaddr *in6ifa;
+
+       in6ifa = (how == M_WAITOK) ? zalloc(in6ifa_zone) :
+           zalloc_noblock(in6ifa_zone);
+       if (in6ifa != NULL) {
+               bzero(in6ifa, in6ifa_size);
+               in6ifa->ia_ifa.ifa_free = in6_ifaddr_free;
+               in6ifa->ia_ifa.ifa_debug |= IFD_ALLOC;
+               ifa_lock_init(&in6ifa->ia_ifa);
+               if (in6ifa_debug != 0) {
+                       struct in6_ifaddr_dbg *in6ifa_dbg =
+                           (struct in6_ifaddr_dbg *)in6ifa;
+                       in6ifa->ia_ifa.ifa_debug |= IFD_DEBUG;
+                       in6ifa->ia_ifa.ifa_trace = in6_ifaddr_trace;
+                       in6ifa->ia_ifa.ifa_attached = in6_ifaddr_attached;
+                       in6ifa->ia_ifa.ifa_detached = in6_ifaddr_detached;
+                       ctrace_record(&in6ifa_dbg->in6ifa_alloc);
+               }
+       }
+       return (in6ifa);
+}
+
+static void
+in6_ifaddr_free(struct ifaddr *ifa)
+{
+       IFA_LOCK_ASSERT_HELD(ifa);
+
+       if (ifa->ifa_refcnt != 0) {
+               panic("%s: ifa %p bad ref cnt", __func__, ifa);
+               /* NOTREACHED */
+       } else if (!(ifa->ifa_debug & IFD_ALLOC)) {
+               panic("%s: ifa %p cannot be freed", __func__, ifa);
+               /* NOTREACHED */
+       }
+       if (ifa->ifa_debug & IFD_DEBUG) {
+               struct in6_ifaddr_dbg *in6ifa_dbg =
+                   (struct in6_ifaddr_dbg *)ifa;
+               ctrace_record(&in6ifa_dbg->in6ifa_free);
+               bcopy(&in6ifa_dbg->in6ifa, &in6ifa_dbg->in6ifa_old,
+                   sizeof (struct in6_ifaddr));
+               if (ifa->ifa_debug & IFD_TRASHED) {
+                       /* Become a regular mutex, just in case */
+                       IFA_CONVERT_LOCK(ifa);
+                       lck_mtx_lock(&in6ifa_trash_lock);
+                       TAILQ_REMOVE(&in6ifa_trash_head, in6ifa_dbg,
+                           in6ifa_trash_link);
+                       lck_mtx_unlock(&in6ifa_trash_lock);
+                       ifa->ifa_debug &= ~IFD_TRASHED;
+               }
+       }
+       IFA_UNLOCK(ifa);
+       ifa_lock_destroy(ifa);
+       bzero(ifa, sizeof (struct in6_ifaddr));
+       zfree(in6ifa_zone, ifa);
+}
+
+static void
+in6_ifaddr_attached(struct ifaddr *ifa)
+{
+       struct in6_ifaddr_dbg *in6ifa_dbg = (struct in6_ifaddr_dbg *)ifa;
+
+       IFA_LOCK_ASSERT_HELD(ifa);
+
+       if (!(ifa->ifa_debug & IFD_DEBUG)) {
+               panic("%s: ifa %p has no debug structure", __func__, ifa);
+               /* NOTREACHED */
+       }
+       if (ifa->ifa_debug & IFD_TRASHED) {
+               /* Become a regular mutex, just in case */
+               IFA_CONVERT_LOCK(ifa);
+               lck_mtx_lock(&in6ifa_trash_lock);
+               TAILQ_REMOVE(&in6ifa_trash_head, in6ifa_dbg, in6ifa_trash_link);
+               lck_mtx_unlock(&in6ifa_trash_lock);
+               ifa->ifa_debug &= ~IFD_TRASHED;
+       }
+}
+
+static void
+in6_ifaddr_detached(struct ifaddr *ifa)
+{
+       struct in6_ifaddr_dbg *in6ifa_dbg = (struct in6_ifaddr_dbg *)ifa;
+
+       IFA_LOCK_ASSERT_HELD(ifa);
+
+       if (!(ifa->ifa_debug & IFD_DEBUG)) {
+               panic("%s: ifa %p has no debug structure", __func__, ifa);
+               /* NOTREACHED */
+       } else if (ifa->ifa_debug & IFD_TRASHED) {
+               panic("%s: ifa %p is already in trash list", __func__, ifa);
+               /* NOTREACHED */
+       }
+       ifa->ifa_debug |= IFD_TRASHED;
+       /* Become a regular mutex, just in case */
+       IFA_CONVERT_LOCK(ifa);
+       lck_mtx_lock(&in6ifa_trash_lock);
+       TAILQ_INSERT_TAIL(&in6ifa_trash_head, in6ifa_dbg, in6ifa_trash_link);
+       lck_mtx_unlock(&in6ifa_trash_lock);
 }
-#endif /* MAPPED_ADDR_ENABLED */
 
+static void
+in6_ifaddr_trace(struct ifaddr *ifa, int refhold)
+{
+       struct in6_ifaddr_dbg *in6ifa_dbg = (struct in6_ifaddr_dbg *)ifa;
+       ctrace_t *tr;
+       u_int32_t idx;
+       u_int16_t *cnt;
+
+       if (!(ifa->ifa_debug & IFD_DEBUG)) {
+               panic("%s: ifa %p has no debug structure", __func__, ifa);
+               /* NOTREACHED */
+       }
+       if (refhold) {
+               cnt = &in6ifa_dbg->in6ifa_refhold_cnt;
+               tr = in6ifa_dbg->in6ifa_refhold;
+       } else {
+               cnt = &in6ifa_dbg->in6ifa_refrele_cnt;
+               tr = in6ifa_dbg->in6ifa_refrele;
+       }
+
+       idx = atomic_add_16_ov(cnt, 1) % IN6IFA_TRACE_HIST_SIZE;
+       ctrace_record(&tr[idx]);
+}