common/os/devcfg.c

/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright (c) 2000, 2010, Oracle and/or its affiliates. All rights reserved.
 * Copyright 2012 Nexenta Systems, Inc. All rights reserved.
 * Copyright 2012 Garrett D'Amore <garrett@damore.org>.  All rights reserved.
 * Copyright (c) 2013, Joyent, Inc. All rights reserved.
 * Copyright (c) 2016 by Delphix. All rights reserved.
 * Copyright 2020 Joshua M. Clulow <josh@sysmgr.org>
 * Copyright 2025 Oxide Computer Company
 */

#include <sys/note.h>
#include <sys/t_lock.h>
#include <sys/cmn_err.h>
#include <sys/instance.h>
#include <sys/conf.h>
#include <sys/stat.h>
#include <sys/ddi.h>
#include <sys/hwconf.h>
#include <sys/sunddi.h>
#include <sys/sunndi.h>
#include <sys/ddi_impldefs.h>
#include <sys/ndi_impldefs.h>
#include <sys/modctl.h>
#include <sys/contract/device_impl.h>
#include <sys/dacf.h>
#include <sys/promif.h>
#include <sys/pci.h>
#include <sys/cpuvar.h>
#include <sys/pathname.h>
#include <sys/taskq.h>
#include <sys/sysevent.h>
#include <sys/sunmdi.h>
#include <sys/stream.h>
#include <sys/strsubr.h>
#include <sys/fs/snode.h>
#include <sys/fs/dv_node.h>
#include <sys/reboot.h>
#include <sys/sysmacros.h>
#include <sys/systm.h>
#include <sys/fs/sdev_impl.h>
#include <sys/sunldi.h>
#include <sys/sunldi_impl.h>
#include <sys/bootprops.h>
#include <sys/varargs.h>
#include <sys/modhash.h>
#include <sys/instance.h>
#include <sys/sysevent/eventdefs.h>

#if defined(__amd64) && !defined(__xpv)
#include <sys/iommulib.h>
#endif

#ifdef DEBUG
int ddidebug = DDI_AUDIT;
#else
int ddidebug = 0;
#endif

#define	MT_CONFIG_OP	0
#define	MT_UNCONFIG_OP	1

/* Multi-threaded configuration */
struct mt_config_handle {
	kmutex_t mtc_lock;
	kcondvar_t mtc_cv;
	int mtc_thr_count;
	dev_info_t *mtc_pdip;	/* parent dip for mt_config_children */
	dev_info_t **mtc_fdip;	/* "a" dip where unconfigure failed */
	major_t mtc_parmajor;	/* parent major for mt_config_driver */
	major_t mtc_major;
	int mtc_flags;
	int mtc_op;		/* config or unconfig */
	int mtc_error;		/* operation error */
	struct brevq_node **mtc_brevqp;	/* outstanding branch events queue */
#ifdef DEBUG
	int total_time;
	timestruc_t start_time;
#endif /* DEBUG */
};

struct devi_nodeid {
	pnode_t nodeid;
	dev_info_t *dip;
	struct devi_nodeid *next;
};

struct devi_nodeid_list {
	kmutex_t dno_lock;		/* Protects other fields */
	struct devi_nodeid *dno_head;	/* list of devi nodeid elements */
	struct devi_nodeid *dno_free;	/* Free list */
	uint_t dno_list_length;		/* number of dips in list */
};

/* used to keep track of branch remove events to be generated */
struct brevq_node {
	char *brn_deviname;
	struct brevq_node *brn_sibling;
	struct brevq_node *brn_child;
};

static struct devi_nodeid_list devi_nodeid_list;
static struct devi_nodeid_list *devimap = &devi_nodeid_list;

/*
 * Well known nodes which are attached first at boot time.
 */
dev_info_t *top_devinfo;		/* root of device tree */
dev_info_t *options_dip;
dev_info_t *pseudo_dip;
dev_info_t *clone_dip;
dev_info_t *scsi_vhci_dip;		/* MPXIO dip */
major_t clone_major;

/*
 * A non-global zone's /dev is derived from the device tree.
 * This generation number serves to indicate when a zone's
 * /dev may need to be updated.
 */
volatile ulong_t devtree_gen;		/* generation number */

/* block all future dev_info state changes */
hrtime_t volatile devinfo_freeze = 0;

/* number of dev_info attaches/detaches currently in progress */
static ulong_t devinfo_attach_detach = 0;

extern int	sys_shutdown;
extern kmutex_t global_vhci_lock;

/* bitset of DS_SYSAVAIL & DS_RECONFIG - no races, no lock */
static int devname_state = 0;

/*
 * The devinfo snapshot cache and related variables.
 * The only field in the di_cache structure that needs initialization
 * is the mutex (cache_lock). However, since this is an adaptive mutex
 * (MUTEX_DEFAULT) - it is automatically initialized by being allocated
 * in zeroed memory (static storage class). Therefore no explicit
 * initialization of the di_cache structure is needed.
 */
struct di_cache	di_cache = {1};
int		di_cache_debug = 0;

/* For ddvis, which needs pseudo children under PCI */
int pci_allow_pseudo_children = 0;

/* Allow path-oriented alias driver binding on driver.conf enumerated nodes */
int driver_conf_allow_path_alias = 1;

/*
 * The following switch is for service people, in case a
 * 3rd party driver depends on identify(9e) being called.
 */
int identify_9e = 0;

/*
 * Add flag so behaviour of preventing attach for retired persistant nodes
 * can be disabled.
 */
int retire_prevents_attach = 1;

int mtc_off;					/* turn off mt config */

int quiesce_debug = 0;

boolean_t ddi_aliases_present = B_FALSE;
ddi_alias_t ddi_aliases;
uint_t tsd_ddi_redirect;

#define	DDI_ALIAS_HASH_SIZE	(2700)

static kmem_cache_t *ddi_node_cache;		/* devinfo node cache */
static devinfo_log_header_t *devinfo_audit_log;	/* devinfo log */
static int devinfo_log_size;			/* size in pages */

boolean_t ddi_err_panic = B_FALSE;

static int lookup_compatible(dev_info_t *, uint_t);
static char *encode_composite_string(char **, uint_t, size_t *, uint_t);
static void link_to_driver_list(dev_info_t *);
static void unlink_from_driver_list(dev_info_t *);
static void add_to_dn_list(struct devnames *, dev_info_t *);
static void remove_from_dn_list(struct devnames *, dev_info_t *);
static dev_info_t *find_duplicate_child();
static void add_global_props(dev_info_t *);
static void remove_global_props(dev_info_t *);
static int uninit_node(dev_info_t *);
static void da_log_init(void);
static void da_log_enter(dev_info_t *);
static int walk_devs(dev_info_t *, int (*f)(dev_info_t *, void *), void *, int);
static int reset_nexus_flags(dev_info_t *, void *);
static void ddi_optimize_dtree(dev_info_t *);
static int is_leaf_node(dev_info_t *);
static struct mt_config_handle *mt_config_init(dev_info_t *, dev_info_t **,
    int, major_t, int, struct brevq_node **);
static void mt_config_children(struct mt_config_handle *);
static void mt_config_driver(struct mt_config_handle *);
static int mt_config_fini(struct mt_config_handle *);
static int devi_unconfig_common(dev_info_t *, dev_info_t **, int, major_t,
    struct brevq_node **);
static int
ndi_devi_config_obp_args(dev_info_t *parent, char *devnm,
    dev_info_t **childp, int flags);
static void i_link_vhci_node(dev_info_t *);
static void ndi_devi_exit_and_wait(dev_info_t *dip, clock_t end_time);
static int ndi_devi_unbind_driver(dev_info_t *dip);

static int i_ddi_check_retire(dev_info_t *dip);

static void quiesce_one_device(dev_info_t *, void *);

dev_info_t *ddi_alias_redirect(char *alias);
char *ddi_curr_redirect(char *currpath);


/*
 * dev_info cache and node management
 */

/* initialize dev_info node cache */
void
i_ddi_node_cache_init()
{
	ASSERT(ddi_node_cache == NULL);
	ddi_node_cache = kmem_cache_create("dev_info_node_cache",
	    sizeof (struct dev_info), 0, NULL, NULL, NULL, NULL, NULL, 0);

	if (ddidebug & DDI_AUDIT)
		da_log_init();
}


/*
 * Allocating a dev_info node, callable from interrupt context with KM_NOSLEEP
 * The allocated node has a reference count of 0.
 */
dev_info_t *
i_ddi_alloc_node(dev_info_t *pdip, const char *node_name, pnode_t nodeid,
    int instance, ddi_prop_t *sys_prop, int flag)
{
	struct dev_info *devi;
	struct devi_nodeid *elem;
	static char failed[] = "i_ddi_alloc_node: out of memory";

	ASSERT(node_name != NULL);

	if ((devi = kmem_cache_alloc(ddi_node_cache, flag)) == NULL) {
		cmn_err(CE_NOTE, failed);
		return (NULL);
	}

	bzero(devi, sizeof (struct dev_info));

	if (devinfo_audit_log) {
		devi->devi_audit = kmem_zalloc(sizeof (devinfo_audit_t), flag);
		if (devi->devi_audit == NULL)
			goto fail;
	}

	if ((devi->devi_node_name = i_ddi_strdup(node_name, flag)) == NULL)
		goto fail;

	/* default binding name is node name */
	devi->devi_binding_name = devi->devi_node_name;
	devi->devi_major = DDI_MAJOR_T_NONE;	/* unbound by default */

	/*
	 * Make a copy of system property
	 */
	if (sys_prop &&
	    (devi->devi_sys_prop_ptr = i_ddi_prop_list_dup(sys_prop, flag))
	    == NULL)
		goto fail;

	/*
	 * Assign devi_nodeid, devi_node_class, devi_node_attributes
	 * according to the following algorithm:
	 *
	 * nodeid arg			node class		node attributes
	 *
	 * DEVI_PSEUDO_NODEID		DDI_NC_PSEUDO		A
	 * DEVI_SID_NODEID		DDI_NC_PSEUDO		A,P
	 * DEVI_SID_HIDDEN_NODEID	DDI_NC_PSEUDO		A,P,H
	 * DEVI_SID_HP_NODEID		DDI_NC_PSEUDO		A,P,h
	 * DEVI_SID_HP_HIDDEN_NODEID	DDI_NC_PSEUDO		A,P,H,h
	 * other			DDI_NC_PROM		P
	 *
	 * Where A = DDI_AUTO_ASSIGNED_NODEID (auto-assign a nodeid)
	 * and	 P = DDI_PERSISTENT
	 * and	 H = DDI_HIDDEN_NODE
	 * and	 h = DDI_HOTPLUG_NODE
	 *
	 * auto-assigned nodeids are also auto-freed.
	 */
	devi->devi_node_attributes = 0;
	elem = NULL;
	switch (nodeid) {
	case DEVI_SID_HIDDEN_NODEID:
		devi->devi_node_attributes |= DDI_HIDDEN_NODE;
		goto sid;

	case DEVI_SID_HP_NODEID:
		devi->devi_node_attributes |= DDI_HOTPLUG_NODE;
		goto sid;

	case DEVI_SID_HP_HIDDEN_NODEID:
		devi->devi_node_attributes |= DDI_HIDDEN_NODE;
		devi->devi_node_attributes |= DDI_HOTPLUG_NODE;
		goto sid;

	case DEVI_SID_NODEID:
sid:		devi->devi_node_attributes |= DDI_PERSISTENT;
		if ((elem = kmem_zalloc(sizeof (*elem), flag)) == NULL)
			goto fail;
		/*FALLTHROUGH*/

	case DEVI_PSEUDO_NODEID:
		devi->devi_node_attributes |= DDI_AUTO_ASSIGNED_NODEID;
		devi->devi_node_class = DDI_NC_PSEUDO;
		if (impl_ddi_alloc_nodeid(&devi->devi_nodeid)) {
			panic("i_ddi_alloc_node: out of nodeids");
			/*NOTREACHED*/
		}
		break;

	default:
		if ((elem = kmem_zalloc(sizeof (*elem), flag)) == NULL)
			goto fail;

		/*
		 * the nodetype is 'prom', try to 'take' the nodeid now.
		 * This requires memory allocation, so check for failure.
		 */
		if (impl_ddi_take_nodeid(nodeid, flag) != 0) {
			kmem_free(elem, sizeof (*elem));
			goto fail;
		}

		devi->devi_nodeid = nodeid;
		devi->devi_node_class = DDI_NC_PROM;
		devi->devi_node_attributes = DDI_PERSISTENT;
		break;
	}

	if (ndi_dev_is_persistent_node((dev_info_t *)devi)) {
		mutex_enter(&devimap->dno_lock);
		elem->next = devimap->dno_free;
		devimap->dno_free = elem;
		mutex_exit(&devimap->dno_lock);
	} else if (elem != NULL) {
		kmem_free(elem, sizeof (*elem));
	}

	/*
	 * Instance is normally initialized to -1. In a few special
	 * cases, the caller may specify an instance (e.g. CPU nodes).
	 */
	devi->devi_instance = instance;

	/*
	 * set parent and bus_ctl parent
	 */
	devi->devi_parent = DEVI(pdip);
	devi->devi_bus_ctl = DEVI(pdip);

	NDI_CONFIG_DEBUG((CE_CONT,
	    "i_ddi_alloc_node: name=%s id=%d\n", node_name, devi->devi_nodeid));

	cv_init(&(devi->devi_cv), NULL, CV_DEFAULT, NULL);
	mutex_init(&(devi->devi_lock), NULL, MUTEX_DEFAULT, NULL);
	mutex_init(&(devi->devi_pm_lock), NULL, MUTEX_DEFAULT, NULL);
	mutex_init(&(devi->devi_pm_busy_lock), NULL, MUTEX_DEFAULT, NULL);

	RIO_TRACE((CE_NOTE, "i_ddi_alloc_node: Initing contract fields: "
	    "dip=%p, name=%s", (void *)devi, node_name));

	mutex_init(&(devi->devi_ct_lock), NULL, MUTEX_DEFAULT, NULL);
	cv_init(&(devi->devi_ct_cv), NULL, CV_DEFAULT, NULL);
	devi->devi_ct_count = -1;	/* counter not in use if -1 */
	list_create(&(devi->devi_ct), sizeof (cont_device_t),
	    offsetof(cont_device_t, cond_next));
	list_create(&devi->devi_unbind_cbs, sizeof (ddi_unbind_callback_t),
	    offsetof(ddi_unbind_callback_t, ddiub_next));
	mutex_init(&devi->devi_unbind_lock, NULL, MUTEX_DEFAULT, NULL);

	i_ddi_set_node_state((dev_info_t *)devi, DS_PROTO);
	da_log_enter((dev_info_t *)devi);
	return ((dev_info_t *)devi);

fail:
	if (devi->devi_sys_prop_ptr)
		i_ddi_prop_list_delete(devi->devi_sys_prop_ptr);
	if (devi->devi_node_name)
		kmem_free(devi->devi_node_name, strlen(node_name) + 1);
	if (devi->devi_audit)
		kmem_free(devi->devi_audit, sizeof (devinfo_audit_t));
	kmem_cache_free(ddi_node_cache, devi);
	cmn_err(CE_NOTE, failed);
	return (NULL);
}

/*
 * free a dev_info structure.
 * NB. Not callable from interrupt since impl_ddi_free_nodeid may block.
 */
void
i_ddi_free_node(dev_info_t *dip)
{
	struct dev_info *devi = DEVI(dip);
	struct devi_nodeid *elem;

	ASSERT(devi->devi_ref == 0);
	ASSERT(devi->devi_addr == NULL);
	ASSERT(devi->devi_node_state == DS_PROTO);
	ASSERT(devi->devi_child == NULL);
	ASSERT(devi->devi_hp_hdlp == NULL);

	/* free devi_addr_buf allocated by ddi_set_name_addr() */
	if (devi->devi_addr_buf)
		kmem_free(devi->devi_addr_buf, 2 * MAXNAMELEN);

	if (i_ndi_dev_is_auto_assigned_node(dip))
		impl_ddi_free_nodeid(DEVI(dip)->devi_nodeid);

	if (ndi_dev_is_persistent_node(dip)) {
		mutex_enter(&devimap->dno_lock);
		ASSERT(devimap->dno_free);
		elem = devimap->dno_free;
		devimap->dno_free = elem->next;
		mutex_exit(&devimap->dno_lock);
		kmem_free(elem, sizeof (*elem));
	}

	if (DEVI(dip)->devi_compat_names)
		kmem_free(DEVI(dip)->devi_compat_names,
		    DEVI(dip)->devi_compat_length);
	if (DEVI(dip)->devi_rebinding_name)
		kmem_free(DEVI(dip)->devi_rebinding_name,
		    strlen(DEVI(dip)->devi_rebinding_name) + 1);

	ddi_prop_remove_all(dip);	/* remove driver properties */
	if (devi->devi_sys_prop_ptr)
		i_ddi_prop_list_delete(devi->devi_sys_prop_ptr);
	if (devi->devi_hw_prop_ptr)
		i_ddi_prop_list_delete(devi->devi_hw_prop_ptr);

	if (DEVI(dip)->devi_devid_str)
		ddi_devid_str_free(DEVI(dip)->devi_devid_str);

	i_ddi_set_node_state(dip, DS_INVAL);
	da_log_enter(dip);
	if (devi->devi_audit) {
		kmem_free(devi->devi_audit, sizeof (devinfo_audit_t));
	}
	if (devi->devi_device_class)
		kmem_free(devi->devi_device_class,
		    strlen(devi->devi_device_class) + 1);
	cv_destroy(&(devi->devi_cv));
	mutex_destroy(&(devi->devi_lock));
	mutex_destroy(&(devi->devi_pm_lock));
	mutex_destroy(&(devi->devi_pm_busy_lock));

	RIO_TRACE((CE_NOTE, "i_ddi_free_node: destroying contract fields: "
	    "dip=%p", (void *)dip));
	contract_device_remove_dip(dip);
	ASSERT(devi->devi_ct_count == -1);
	ASSERT(list_is_empty(&(devi->devi_ct)));
	cv_destroy(&(devi->devi_ct_cv));
	list_destroy(&(devi->devi_ct));
	/* free this last since contract_device_remove_dip() uses it */
	mutex_destroy(&(devi->devi_ct_lock));
	RIO_TRACE((CE_NOTE, "i_ddi_free_node: destroyed all contract fields: "
	    "dip=%p, name=%s", (void *)dip, devi->devi_node_name));

	kmem_free(devi->devi_node_name, strlen(devi->devi_node_name) + 1);

	/* free event data */
	if (devi->devi_ev_path)
		kmem_free(devi->devi_ev_path, MAXPATHLEN);

	mutex_destroy(&devi->devi_unbind_lock);
	list_destroy(&devi->devi_unbind_cbs);

	kmem_cache_free(ddi_node_cache, devi);
}


/*
 * Node state transitions
 */

/*
 * Change the node name
 */
int
ndi_devi_set_nodename(dev_info_t *dip, char *name, int flags)
{
	_NOTE(ARGUNUSED(flags))
	char *nname, *oname;

	ASSERT(dip && name);

	oname = DEVI(dip)->devi_node_name;
	if (strcmp(oname, name) == 0)
		return (DDI_SUCCESS);

	/*
	 * pcicfg_fix_ethernet requires a name change after node
	 * is linked into the tree. When pcicfg is fixed, we
	 * should only allow name change in DS_PROTO state.
	 */
	if (i_ddi_node_state(dip) >= DS_BOUND) {
		/*
		 * Don't allow name change once node is bound
		 */
		cmn_err(CE_NOTE,
		    "ndi_devi_set_nodename: node already bound dip = %p,"
		    " %s -> %s", (void *)dip, ddi_node_name(dip), name);
		return (NDI_FAILURE);
	}

	nname = i_ddi_strdup(name, KM_SLEEP);
	DEVI(dip)->devi_node_name = nname;
	i_ddi_set_binding_name(dip, nname);
	kmem_free(oname, strlen(oname) + 1);

	da_log_enter(dip);
	return (NDI_SUCCESS);
}

void
i_ddi_add_devimap(dev_info_t *dip)
{
	struct devi_nodeid *elem;

	ASSERT(dip);

	if (!ndi_dev_is_persistent_node(dip))
		return;

	ASSERT(ddi_get_parent(dip) == NULL || (DEVI_VHCI_NODE(dip)) ||
	    DEVI_BUSY_OWNED(ddi_get_parent(dip)));

	mutex_enter(&devimap->dno_lock);

	ASSERT(devimap->dno_free);

	elem = devimap->dno_free;
	devimap->dno_free = elem->next;

	elem->nodeid = ddi_get_nodeid(dip);
	elem->dip = dip;
	elem->next = devimap->dno_head;
	devimap->dno_head = elem;

	devimap->dno_list_length++;

	mutex_exit(&devimap->dno_lock);
}

static int
i_ddi_remove_devimap(dev_info_t *dip)
{
	struct devi_nodeid *prev, *elem;
	static const char *fcn = "i_ddi_remove_devimap";

	ASSERT(dip);

	if (!ndi_dev_is_persistent_node(dip))
		return (DDI_SUCCESS);

	mutex_enter(&devimap->dno_lock);

	/*
	 * The following check is done with dno_lock held
	 * to prevent race between dip removal and
	 * e_ddi_prom_node_to_dip()
	 */
	if (e_ddi_devi_holdcnt(dip)) {
		mutex_exit(&devimap->dno_lock);
		return (DDI_FAILURE);
	}

	ASSERT(devimap->dno_head);
	ASSERT(devimap->dno_list_length > 0);

	prev = NULL;
	for (elem = devimap->dno_head; elem; elem = elem->next) {
		if (elem->dip == dip) {
			ASSERT(elem->nodeid == ddi_get_nodeid(dip));
			break;
		}
		prev = elem;
	}

	if (elem && prev)
		prev->next = elem->next;
	else if (elem)
		devimap->dno_head = elem->next;
	else
		panic("%s: devinfo node(%p) not found",
		    fcn, (void *)dip);

	devimap->dno_list_length--;

	elem->nodeid = 0;
	elem->dip = NULL;

	elem->next = devimap->dno_free;
	devimap->dno_free = elem;

	mutex_exit(&devimap->dno_lock);

	return (DDI_SUCCESS);
}

/*
 * Link this node into the devinfo tree and add to orphan list
 * Not callable from interrupt context
 */
static void
link_node(dev_info_t *dip)
{
	struct dev_info *devi = DEVI(dip);
	struct dev_info *parent = devi->devi_parent;
	dev_info_t **dipp;

	ASSERT(parent);	/* never called for root node */

	NDI_CONFIG_DEBUG((CE_CONT, "link_node: parent = %s child = %s\n",
	    parent->devi_node_name, devi->devi_node_name));

	/*
	 * Hold the global_vhci_lock before linking any direct
	 * children of rootnex driver. This special lock protects
	 * linking and unlinking for rootnext direct children.
	 */
	if ((dev_info_t *)parent == ddi_root_node())
		mutex_enter(&global_vhci_lock);

	/*
	 * attach the node to end of the list unless the node is already there
	 */
	dipp = (dev_info_t **)(&DEVI(parent)->devi_child);
	while (*dipp && (*dipp != dip)) {
		dipp = (dev_info_t **)(&DEVI(*dipp)->devi_sibling);
	}
	ASSERT(*dipp == NULL);	/* node is not linked */

	/*
	 * Now that we are in the tree, update the devi-nodeid map.
	 */
	i_ddi_add_devimap(dip);

	/*
	 * This is a temporary workaround for Bug 4618861.
	 * We keep the scsi_vhci nexus node on the left side of the devinfo
	 * tree (under the root nexus driver), so that virtual nodes under
	 * scsi_vhci will be SUSPENDed first and RESUMEd last.	This ensures
	 * that the pHCI nodes are active during times when their clients
	 * may be depending on them.  This workaround embodies the knowledge
	 * that system PM and CPR both traverse the tree left-to-right during
	 * SUSPEND and right-to-left during RESUME.
	 * Extending the workaround to IB Nexus/VHCI
	 * driver also.
	 */
	if (strcmp(devi->devi_binding_name, "scsi_vhci") == 0) {
		/* Add scsi_vhci to beginning of list */
		ASSERT((dev_info_t *)parent == top_devinfo);
		/* scsi_vhci under rootnex */
		devi->devi_sibling = parent->devi_child;
		parent->devi_child = devi;
	} else if (strcmp(devi->devi_binding_name, "ib") == 0) {
		i_link_vhci_node(dip);
	} else {
		/* Add to end of list */
		*dipp = dip;
		DEVI(dip)->devi_sibling = NULL;
	}

	/*
	 * Release the global_vhci_lock before linking any direct
	 * children of rootnex driver.
	 */
	if ((dev_info_t *)parent == ddi_root_node())
		mutex_exit(&global_vhci_lock);

	/* persistent nodes go on orphan list */
	if (ndi_dev_is_persistent_node(dip))
		add_to_dn_list(&orphanlist, dip);
}

/*
 * Unlink this node from the devinfo tree
 */
static int
unlink_node(dev_info_t *dip)
{
	struct dev_info *devi = DEVI(dip);
	struct dev_info *parent = devi->devi_parent;
	dev_info_t **dipp;
	ddi_hp_cn_handle_t *hdlp;

	ASSERT(parent != NULL);
	ASSERT(devi->devi_node_state == DS_LINKED);

	NDI_CONFIG_DEBUG((CE_CONT, "unlink_node: name = %s\n",
	    ddi_node_name(dip)));

	/* check references */
	if (devi->devi_ref || i_ddi_remove_devimap(dip) != DDI_SUCCESS)
		return (DDI_FAILURE);

	/*
	 * Hold the global_vhci_lock before linking any direct
	 * children of rootnex driver.
	 */
	if ((dev_info_t *)parent == ddi_root_node())
		mutex_enter(&global_vhci_lock);

	dipp = (dev_info_t **)(&DEVI(parent)->devi_child);
	while (*dipp && (*dipp != dip)) {
		dipp = (dev_info_t **)(&DEVI(*dipp)->devi_sibling);
	}
	if (*dipp) {
		*dipp = (dev_info_t *)(devi->devi_sibling);
		devi->devi_sibling = NULL;
	} else {
		NDI_CONFIG_DEBUG((CE_NOTE, "unlink_node: %s not linked",
		    devi->devi_node_name));
	}

	/*
	 * Release the global_vhci_lock before linking any direct
	 * children of rootnex driver.
	 */
	if ((dev_info_t *)parent == ddi_root_node())
		mutex_exit(&global_vhci_lock);

	/* Remove node from orphan list */
	if (ndi_dev_is_persistent_node(dip)) {
		remove_from_dn_list(&orphanlist, dip);
	}

	/* Update parent's hotplug handle list */
	for (hdlp = DEVI(parent)->devi_hp_hdlp; hdlp; hdlp = hdlp->next) {
		if (hdlp->cn_info.cn_child == dip)
			hdlp->cn_info.cn_child = NULL;
	}
	return (DDI_SUCCESS);
}

/*
 * Bind this devinfo node to a driver. If compat is NON-NULL, try that first.
 * Else, use the node-name.
 *
 * NOTE: IEEE1275 specifies that nodename should be tried before compatible.
 *	Solaris implementation binds nodename after compatible.
 *
 * If we find a binding,
 * - set the binding name to the string,
 * - set major number to driver major
 *
 * If we don't find a binding,
 * - return failure
 */
static int
bind_node(dev_info_t *dip)
{
	char *p = NULL;
	major_t major = DDI_MAJOR_T_NONE;
	struct dev_info *devi = DEVI(dip);
	dev_info_t *parent = ddi_get_parent(dip);

	ASSERT(devi->devi_node_state == DS_LINKED);

	NDI_CONFIG_DEBUG((CE_CONT, "bind_node: 0x%p(name = %s)\n",
	    (void *)dip, ddi_node_name(dip)));

	mutex_enter(&DEVI(dip)->devi_lock);
	if (DEVI(dip)->devi_flags & DEVI_NO_BIND) {
		mutex_exit(&DEVI(dip)->devi_lock);
		return (DDI_FAILURE);
	}
	mutex_exit(&DEVI(dip)->devi_lock);

	/* find the driver with most specific binding using compatible */
	major = ddi_compatible_driver_major(dip, &p);
	if (major == DDI_MAJOR_T_NONE)
		return (DDI_FAILURE);

	devi->devi_major = major;
	if (p != NULL) {
		i_ddi_set_binding_name(dip, p);
		NDI_CONFIG_DEBUG((CE_CONT, "bind_node: %s bound to %s\n",
		    devi->devi_node_name, p));
	}

	/* Link node to per-driver list */
	link_to_driver_list(dip);

	/*
	 * reset parent flag so that nexus will merge .conf props
	 */
	if (ndi_dev_is_persistent_node(dip)) {
		mutex_enter(&DEVI(parent)->devi_lock);
		DEVI(parent)->devi_flags &=
		    ~(DEVI_ATTACHED_CHILDREN|DEVI_MADE_CHILDREN);
		mutex_exit(&DEVI(parent)->devi_lock);
	}
	return (DDI_SUCCESS);
}

/*
 * Unbind this devinfo node
 * Called before the node is destroyed or driver is removed from system
 */
static int
unbind_node(dev_info_t *dip)
{
	ddi_unbind_callback_t *cb;
	ASSERT(DEVI(dip)->devi_node_state == DS_BOUND);
	ASSERT(DEVI(dip)->devi_major != DDI_MAJOR_T_NONE);

	/* check references */
	if (DEVI(dip)->devi_ref)
		return (DDI_FAILURE);

	NDI_CONFIG_DEBUG((CE_CONT, "unbind_node: 0x%p(name = %s)\n",
	    (void *)dip, ddi_node_name(dip)));

	unlink_from_driver_list(dip);

	DEVI(dip)->devi_major = DDI_MAJOR_T_NONE;
	DEVI(dip)->devi_binding_name = DEVI(dip)->devi_node_name;

	while ((cb = list_remove_head(&DEVI(dip)->devi_unbind_cbs)) != NULL) {
		cb->ddiub_cb(cb->ddiub_arg, dip);
	}

	return (DDI_SUCCESS);
}

/*
 * Initialize a node: calls the parent nexus' bus_ctl ops to do the operation.
 * Must hold parent and per-driver list while calling this function.
 * A successful init_node() returns with an active ndi_hold_devi() hold on
 * the parent.
 */
static int
init_node(dev_info_t *dip)
{
	int error;
	dev_info_t *pdip = ddi_get_parent(dip);
	int (*f)(dev_info_t *, dev_info_t *, ddi_ctl_enum_t, void *, void *);
	char *path;
	major_t	major;
	ddi_devid_t devid = NULL;

	ASSERT(i_ddi_node_state(dip) == DS_BOUND);

	/* should be DS_READY except for pcmcia ... */
	ASSERT(i_ddi_node_state(pdip) >= DS_PROBED);

	path = kmem_alloc(MAXPATHLEN, KM_SLEEP);
	(void) ddi_pathname(dip, path);
	NDI_CONFIG_DEBUG((CE_CONT, "init_node: entry: path %s 0x%p\n",
	    path, (void *)dip));

	/*
	 * The parent must have a bus_ctl operation.
	 */
	if ((DEVI(pdip)->devi_ops->devo_bus_ops == NULL) ||
	    (f = DEVI(pdip)->devi_ops->devo_bus_ops->bus_ctl) == NULL) {
		error = DDI_FAILURE;
		goto out;
	}

	add_global_props(dip);

	/*
	 * Invoke the parent's bus_ctl operation with the DDI_CTLOPS_INITCHILD
	 * command to transform the child to canonical form 1. If there
	 * is an error, ddi_remove_child should be called, to clean up.
	 */
	error = (*f)(pdip, pdip, DDI_CTLOPS_INITCHILD, dip, NULL);
	if (error != DDI_SUCCESS) {
		NDI_CONFIG_DEBUG((CE_CONT, "init_node: %s 0x%p failed\n",
		    path, (void *)dip));
		remove_global_props(dip);

		/*
		 * If a nexus INITCHILD implementation calls ddi_devid_regster()
		 * prior to setting devi_addr, the devid is not recorded in
		 * the devid cache (i.e. DEVI_CACHED_DEVID is not set).
		 * With mpxio, while the vhci client path may be missing
		 * from the cache, phci pathinfo paths may have already be
		 * added to the cache, against the client dip, by use of
		 * e_devid_cache_pathinfo().  Because of this, when INITCHILD
		 * of the client fails, we need to purge the client dip from
		 * the cache even if DEVI_CACHED_DEVID is not set - if only
		 * devi_devid_str is set.
		 */
		mutex_enter(&DEVI(dip)->devi_lock);
		if ((DEVI(dip)->devi_flags & DEVI_CACHED_DEVID) ||
		    DEVI(dip)->devi_devid_str) {
			DEVI(dip)->devi_flags &= ~DEVI_CACHED_DEVID;
			mutex_exit(&DEVI(dip)->devi_lock);
			ddi_devid_unregister(dip);
		} else
			mutex_exit(&DEVI(dip)->devi_lock);

		/* in case nexus driver didn't clear this field */
		ddi_set_name_addr(dip, NULL);
		error = DDI_FAILURE;
		goto out;
	}

	ndi_hold_devi(pdip);			/* initial hold of parent */

	/* recompute path after initchild for @addr information */
	(void) ddi_pathname(dip, path);

	/* Check for duplicate nodes */
	if (find_duplicate_child(pdip, dip) != NULL) {
		/*
		 * uninit_node() the duplicate - a successful uninit_node()
		 * will release inital hold of parent using ndi_rele_devi().
		 */
		if ((error = uninit_node(dip)) != DDI_SUCCESS) {
			ndi_rele_devi(pdip);	/* release initial hold */
			cmn_err(CE_WARN, "init_node: uninit of duplicate "
			    "node %s failed", path);
		}
		NDI_CONFIG_DEBUG((CE_CONT, "init_node: duplicate uninit "
		    "%s 0x%p%s\n", path, (void *)dip,
		    (error == DDI_SUCCESS) ? "" : " failed"));
		error = DDI_FAILURE;
		goto out;
	}

	/*
	 * If a devid was registered for a DS_BOUND node then the devid_cache
	 * may not have captured the path. Detect this situation and ensure that
	 * the path enters the cache now that devi_addr is established.
	 */
	if (!(DEVI(dip)->devi_flags & DEVI_CACHED_DEVID) &&
	    (ddi_devid_get(dip, &devid) == DDI_SUCCESS)) {
		if (e_devid_cache_register(dip, devid) == DDI_SUCCESS) {
			mutex_enter(&DEVI(dip)->devi_lock);
			DEVI(dip)->devi_flags |= DEVI_CACHED_DEVID;
			mutex_exit(&DEVI(dip)->devi_lock);
		}

		ddi_devid_free(devid);
	}

	/*
	 * Check to see if we have a path-oriented driver alias that overrides
	 * the current driver binding. If so, we need to rebind. This check
	 * needs to be delayed until after a successful DDI_CTLOPS_INITCHILD,
	 * so the unit-address is established on the last component of the path.
	 *
	 * NOTE: Allowing a path-oriented alias to change the driver binding
	 * of a driver.conf node results in non-intuitive property behavior.
	 * We provide a tunable (driver_conf_allow_path_alias) to control
	 * this behavior. See uninit_node() for more details.
	 *
	 * NOTE: If you are adding a path-oriented alias for the boot device,
	 * and there is mismatch between OBP and the kernel in regard to
	 * generic name use, like "disk" .vs. "ssd", then you will need
	 * to add a path-oriented alias for both paths.
	 */
	major = ddi_name_to_major(path);
	if (driver_active(major) && (major != DEVI(dip)->devi_major) &&
	    (ndi_dev_is_persistent_node(dip) || driver_conf_allow_path_alias)) {

		/* Mark node for rebind processing. */
		mutex_enter(&DEVI(dip)->devi_lock);
		DEVI(dip)->devi_flags |= DEVI_REBIND;
		mutex_exit(&DEVI(dip)->devi_lock);

		/*
		 * Add an extra hold on the parent to prevent it from ever
		 * having a zero devi_ref during the child rebind process.
		 * This is necessary to ensure that the parent will never
		 * detach(9E) during the rebind.
		 */
		ndi_hold_devi(pdip);		/* extra hold of parent */

		/*
		 * uninit_node() current binding - a successful uninit_node()
		 * will release extra hold of parent using ndi_rele_devi().
		 */
		if ((error = uninit_node(dip)) != DDI_SUCCESS) {
			ndi_rele_devi(pdip);	/* release extra hold */
			ndi_rele_devi(pdip);	/* release initial hold */
			cmn_err(CE_WARN, "init_node: uninit for rebind "
			    "of node %s failed", path);
			goto out;
		}

		/* Unbind: demote the node back to DS_LINKED.  */
		if ((error = ndi_devi_unbind_driver(dip)) != DDI_SUCCESS) {
			ndi_rele_devi(pdip);	/* release initial hold */
			cmn_err(CE_WARN, "init_node: unbind for rebind "
			    "of node %s failed", path);
			goto out;
		}

		/* establish rebinding name */
		if (DEVI(dip)->devi_rebinding_name == NULL)
			DEVI(dip)->devi_rebinding_name =
			    i_ddi_strdup(path, KM_SLEEP);

		/*
		 * Now that we are demoted and marked for rebind, repromote.
		 * We need to do this in steps, instead of just calling
		 * ddi_initchild, so that we can redo the merge operation
		 * after we are rebound to the path-bound driver.
		 *
		 * Start by rebinding node to the path-bound driver.
		 */
		if ((error = ndi_devi_bind_driver(dip, 0)) != DDI_SUCCESS) {
			ndi_rele_devi(pdip);	/* release initial hold */
			cmn_err(CE_WARN, "init_node: rebind "
			    "of node %s failed", path);
			goto out;
		}

		/*
		 * If the node is not a driver.conf node then merge
		 * driver.conf properties from new path-bound driver.conf.
		 */
		if (ndi_dev_is_persistent_node(dip))
			(void) i_ndi_make_spec_children(pdip, 0);

		/*
		 * Now that we have taken care of merge, repromote back
		 * to DS_INITIALIZED.
		 */
		error = ddi_initchild(pdip, dip);
		NDI_CONFIG_DEBUG((CE_CONT, "init_node: rebind "
		    "%s 0x%p\n", path, (void *)dip));

		/*
		 * Release our initial hold. If ddi_initchild() was
		 * successful then it will return with the active hold.
		 */
		ndi_rele_devi(pdip);
		goto out;
	}

	/*
	 * Apply multi-parent/deep-nexus optimization to the new node
	 */
	DEVI(dip)->devi_instance = e_ddi_assign_instance(dip);
	ddi_optimize_dtree(dip);
	error = DDI_SUCCESS;		/* return with active hold */

out:	if (error != DDI_SUCCESS) {
		/* On failure ensure that DEVI_REBIND is cleared */
		mutex_enter(&DEVI(dip)->devi_lock);
		DEVI(dip)->devi_flags &= ~DEVI_REBIND;
		mutex_exit(&DEVI(dip)->devi_lock);
	}
	kmem_free(path, MAXPATHLEN);
	return (error);
}

/*
 * Uninitialize node
 * The per-driver list must be held busy during the call.
 * A successful uninit_node() releases the init_node() hold on
 * the parent by calling ndi_rele_devi().
 */
static int
uninit_node(dev_info_t *dip)
{
	int node_state_entry;
	dev_info_t *pdip;
	struct dev_ops *ops;
	int (*f)();
	int error;
	char *addr;

	/*
	 * Don't check for references here or else a ref-counted
	 * dip cannot be downgraded by the framework.
	 */
	node_state_entry = i_ddi_node_state(dip);
	ASSERT((node_state_entry == DS_BOUND) ||
	    (node_state_entry == DS_INITIALIZED));
	pdip = ddi_get_parent(dip);
	ASSERT(pdip);

	NDI_CONFIG_DEBUG((CE_CONT, "uninit_node: 0x%p(%s%d)\n",
	    (void *)dip, ddi_driver_name(dip), ddi_get_instance(dip)));

	if (((ops = ddi_get_driver(pdip)) == NULL) ||
	    (ops->devo_bus_ops == NULL) ||
	    ((f = ops->devo_bus_ops->bus_ctl) == NULL)) {
		return (DDI_FAILURE);
	}

	/*
	 * save the @addr prior to DDI_CTLOPS_UNINITCHILD for use in
	 * freeing the instance if it succeeds.
	 */
	if (node_state_entry == DS_INITIALIZED) {
		addr = ddi_get_name_addr(dip);
		if (addr)
			addr = i_ddi_strdup(addr, KM_SLEEP);
	} else {
		addr = NULL;
	}

	error = (*f)(pdip, pdip, DDI_CTLOPS_UNINITCHILD, dip, (void *)NULL);
	if (error == DDI_SUCCESS) {
		/* ensure that devids are unregistered */
		mutex_enter(&DEVI(dip)->devi_lock);
		if ((DEVI(dip)->devi_flags & DEVI_CACHED_DEVID)) {
			DEVI(dip)->devi_flags &= ~DEVI_CACHED_DEVID;
			mutex_exit(&DEVI(dip)->devi_lock);
			ddi_devid_unregister(dip);
		} else
			mutex_exit(&DEVI(dip)->devi_lock);

		/* if uninitchild forgot to set devi_addr to NULL do it now */
		ddi_set_name_addr(dip, NULL);

		/*
		 * Free instance number. This is a no-op if instance has
		 * been kept by probe_node().  Avoid free when we are called
		 * from init_node (DS_BOUND) because the instance has not yet
		 * been assigned.
		 */
		if (node_state_entry == DS_INITIALIZED) {
			e_ddi_free_instance(dip, addr);
			DEVI(dip)->devi_instance = -1;
		}

		/* release the init_node hold */
		ndi_rele_devi(pdip);

		remove_global_props(dip);

		/*
		 * NOTE: The decision on whether to allow a path-oriented
		 * rebind of a driver.conf enumerated node is made by
		 * init_node() based on driver_conf_allow_path_alias. The
		 * rebind code below prevents deletion of system properties
		 * on driver.conf nodes.
		 *
		 * When driver_conf_allow_path_alias is set, property behavior
		 * on rebound driver.conf file is non-intuitive. For a
		 * driver.conf node, the unit-address properties come from
		 * the driver.conf file as system properties. Removing system
		 * properties from a driver.conf node makes the node
		 * useless (we get node without unit-address properties) - so
		 * we leave system properties in place. The result is a node
		 * where system properties come from the node being rebound,
		 * and global properties come from the driver.conf file
		 * of the driver we are rebinding to.  If we could determine
		 * that the path-oriented alias driver.conf file defined a
		 * node at the same unit address, it would be best to use
		 * that node and avoid the non-intuitive property behavior.
		 * Unfortunately, the current "merge" code does not support
		 * this, so we live with the non-intuitive property behavior.
		 */
		if (!((ndi_dev_is_persistent_node(dip) == 0) &&
		    (DEVI(dip)->devi_flags & DEVI_REBIND)))
			e_ddi_prop_remove_all(dip);
	} else {
		NDI_CONFIG_DEBUG((CE_CONT, "uninit_node failed: 0x%p(%s%d)\n",
		    (void *)dip, ddi_driver_name(dip), ddi_get_instance(dip)));
	}

	if (addr)
		kmem_free(addr, strlen(addr) + 1);
	return (error);
}

/*
 * Invoke driver's probe entry point to probe for existence of hardware.
 * Keep instance permanent for successful probe and leaf nodes.
 *
 * Per-driver list must be held busy while calling this function.
 */
static int
probe_node(dev_info_t *dip)
{
	int rv;

	ASSERT(i_ddi_node_state(dip) == DS_INITIALIZED);

	NDI_CONFIG_DEBUG((CE_CONT, "probe_node: 0x%p(%s%d)\n",
	    (void *)dip, ddi_driver_name(dip), ddi_get_instance(dip)));

	/* temporarily hold the driver while we probe */
	DEVI(dip)->devi_ops = ndi_hold_driver(dip);
	if (DEVI(dip)->devi_ops == NULL) {
		NDI_CONFIG_DEBUG((CE_CONT,
		    "probe_node: 0x%p(%s%d) cannot load driver\n",
		    (void *)dip, ddi_driver_name(dip), ddi_get_instance(dip)));
		return (DDI_FAILURE);
	}

	if (identify_9e != 0)
		(void) devi_identify(dip);

	rv = devi_probe(dip);

	/* release the driver now that probe is complete */
	ndi_rele_driver(dip);
	DEVI(dip)->devi_ops = NULL;

	switch (rv) {
	case DDI_PROBE_SUCCESS:			/* found */
	case DDI_PROBE_DONTCARE:		/* ddi_dev_is_sid */
		e_ddi_keep_instance(dip);	/* persist instance */
		rv = DDI_SUCCESS;
		break;

	case DDI_PROBE_PARTIAL:			/* maybe later */
	case DDI_PROBE_FAILURE:			/* not found */
		NDI_CONFIG_DEBUG((CE_CONT,
		    "probe_node: 0x%p(%s%d) no hardware found%s\n",
		    (void *)dip, ddi_driver_name(dip), ddi_get_instance(dip),
		    (rv == DDI_PROBE_PARTIAL) ? " yet" : ""));
		rv = DDI_FAILURE;
		break;

	default:
#ifdef	DEBUG
		cmn_err(CE_WARN, "probe_node: %s%d: illegal probe(9E) value",
		    ddi_driver_name(dip), ddi_get_instance(dip));
#endif	/* DEBUG */
		rv = DDI_FAILURE;
		break;
	}
	return (rv);
}

/*
 * Unprobe a node. Simply reset the node state.
 * Per-driver list must be held busy while calling this function.
 */
static int
unprobe_node(dev_info_t *dip)
{
	ASSERT(i_ddi_node_state(dip) == DS_PROBED);

	/*
	 * Don't check for references here or else a ref-counted
	 * dip cannot be downgraded by the framework.
	 */

	NDI_CONFIG_DEBUG((CE_CONT, "unprobe_node: 0x%p(name = %s)\n",
	    (void *)dip, ddi_node_name(dip)));
	return (DDI_SUCCESS);
}

/*
 * Attach devinfo node.
 * Per-driver list must be held busy.
 */
static int
attach_node(dev_info_t *dip)
{
	int rv;

	ASSERT(DEVI_BUSY_OWNED(ddi_get_parent(dip)));
	ASSERT(i_ddi_node_state(dip) == DS_PROBED);

	NDI_CONFIG_DEBUG((CE_CONT, "attach_node: 0x%p(%s%d)\n",
	    (void *)dip, ddi_driver_name(dip), ddi_get_instance(dip)));

	/*
	 * Tell mpxio framework that a node is about to online.
	 */
	if ((rv = mdi_devi_online(dip, 0)) != NDI_SUCCESS) {
		return (DDI_FAILURE);
	}

	/* no recursive attachment */
	ASSERT(DEVI(dip)->devi_ops == NULL);

	/*
	 * Hold driver the node is bound to.
	 */
	DEVI(dip)->devi_ops = ndi_hold_driver(dip);
	if (DEVI(dip)->devi_ops == NULL) {
		/*
		 * We were able to load driver for probing, so we should
		 * not get here unless something really bad happened.
		 */
		cmn_err(CE_WARN, "attach_node: no driver for major %d",
		    DEVI(dip)->devi_major);
		return (DDI_FAILURE);
	}

	if (NEXUS_DRV(DEVI(dip)->devi_ops))
		DEVI(dip)->devi_taskq = ddi_taskq_create(dip,
		    "nexus_enum_tq", 1,
		    TASKQ_DEFAULTPRI, 0);

	mutex_enter(&(DEVI(dip)->devi_lock));
	DEVI_SET_ATTACHING(dip);
	DEVI_SET_NEED_RESET(dip);
	mutex_exit(&(DEVI(dip)->devi_lock));

	rv = devi_attach(dip, DDI_ATTACH);

	mutex_enter(&(DEVI(dip)->devi_lock));
	DEVI_CLR_ATTACHING(dip);

	if (rv != DDI_SUCCESS) {
		DEVI_CLR_NEED_RESET(dip);
		mutex_exit(&DEVI(dip)->devi_lock);

		/*
		 * Cleanup dacf reservations
		 */
		mutex_enter(&dacf_lock);
		dacf_clr_rsrvs(dip, DACF_OPID_POSTATTACH);
		dacf_clr_rsrvs(dip, DACF_OPID_PREDETACH);
		mutex_exit(&dacf_lock);
		if (DEVI(dip)->devi_taskq)
			ddi_taskq_destroy(DEVI(dip)->devi_taskq);
		ddi_remove_minor_node(dip, NULL);

		/* release the driver if attach failed */
		ndi_rele_driver(dip);
		DEVI(dip)->devi_ops = NULL;
		NDI_CONFIG_DEBUG((CE_CONT, "attach_node: 0x%p(%s%d) failed\n",
		    (void *)dip, ddi_driver_name(dip), ddi_get_instance(dip)));
		return (DDI_FAILURE);
	} else
		mutex_exit(&DEVI(dip)->devi_lock);

	/* successful attach, return with driver held */

	return (DDI_SUCCESS);
}

/*
 * Detach devinfo node.
 * Per-driver list must be held busy.
 */
static int
detach_node(dev_info_t *dip, uint_t flag)
{
	struct devnames	*dnp;
	int		rv;

	ASSERT(DEVI_BUSY_OWNED(ddi_get_parent(dip)));
	ASSERT(i_ddi_node_state(dip) == DS_ATTACHED);

	/* check references */
	if (DEVI(dip)->devi_ref)
		return (DDI_FAILURE);

	NDI_CONFIG_DEBUG((CE_CONT, "detach_node: 0x%p(%s%d)\n",
	    (void *)dip, ddi_driver_name(dip), ddi_get_instance(dip)));

	/*
	 * NOTE: If we are processing a pHCI node then the calling code
	 * must detect this and ndi_devi_enter() in (vHCI, parent(pHCI))
	 * order unless pHCI and vHCI are siblings.  Code paths leading
	 * here that must ensure this ordering include:
	 * unconfig_immediate_children(), devi_unconfig_one(),
	 * ndi_devi_unconfig_one(), ndi_devi_offline().
	 */
	ASSERT(!MDI_PHCI(dip) ||
	    (ddi_get_parent(mdi_devi_get_vdip(dip)) == ddi_get_parent(dip)) ||
	    DEVI_BUSY_OWNED(mdi_devi_get_vdip(dip)));

	/* Offline the device node with the mpxio framework. */
	if (mdi_devi_offline(dip, flag) != NDI_SUCCESS) {
		return (DDI_FAILURE);
	}

	/* drain the taskq */
	if (DEVI(dip)->devi_taskq)
		ddi_taskq_wait(DEVI(dip)->devi_taskq);

	rv = devi_detach(dip, DDI_DETACH);

	if (rv != DDI_SUCCESS) {
		NDI_CONFIG_DEBUG((CE_CONT,
		    "detach_node: 0x%p(%s%d) failed\n",
		    (void *)dip, ddi_driver_name(dip), ddi_get_instance(dip)));
		return (DDI_FAILURE);
	}

	mutex_enter(&(DEVI(dip)->devi_lock));
	DEVI_CLR_NEED_RESET(dip);
	mutex_exit(&(DEVI(dip)->devi_lock));

#if defined(__amd64) && !defined(__xpv)
	/*
	 * Close any iommulib mediated linkage to an IOMMU
	 */
	if (IOMMU_USED(dip))
		iommulib_nex_close(dip);
#endif

	/* destroy the taskq */
	if (DEVI(dip)->devi_taskq) {
		ddi_taskq_destroy(DEVI(dip)->devi_taskq);
		DEVI(dip)->devi_taskq = NULL;
	}

	/* Cleanup dacf reservations */
	mutex_enter(&dacf_lock);
	dacf_clr_rsrvs(dip, DACF_OPID_POSTATTACH);
	dacf_clr_rsrvs(dip, DACF_OPID_PREDETACH);
	mutex_exit(&dacf_lock);

	/* remove any additional flavors that were added */
	if (DEVI(dip)->devi_flavorv_n > 1 && DEVI(dip)->devi_flavorv != NULL) {
		kmem_free(DEVI(dip)->devi_flavorv,
		    (DEVI(dip)->devi_flavorv_n - 1) * sizeof (void *));
		DEVI(dip)->devi_flavorv = NULL;
	}

	/* Remove properties and minor nodes in case driver forgots */
	ddi_remove_minor_node(dip, NULL);
	ddi_prop_remove_all(dip);

	/* a detached node can't have attached or .conf children */
	mutex_enter(&DEVI(dip)->devi_lock);
	DEVI(dip)->devi_flags &= ~(DEVI_MADE_CHILDREN|DEVI_ATTACHED_CHILDREN);
	mutex_exit(&DEVI(dip)->devi_lock);

	/*
	 * If the instance has successfully detached in detach_driver() context,
	 * clear DN_DRIVER_HELD for correct ddi_hold_installed_driver()
	 * behavior. Consumers like qassociate() depend on this (via clnopen()).
	 */
	if (flag & NDI_DETACH_DRIVER) {
		dnp = &(devnamesp[DEVI(dip)->devi_major]);
		LOCK_DEV_OPS(&dnp->dn_lock);
		dnp->dn_flags &= ~DN_DRIVER_HELD;
		UNLOCK_DEV_OPS(&dnp->dn_lock);
	}

	/* successful detach, release the driver */
	ndi_rele_driver(dip);
	DEVI(dip)->devi_ops = NULL;
	return (DDI_SUCCESS);
}

/*
 * Run dacf post_attach routines
 */
static int
postattach_node(dev_info_t *dip)
{
	int rval;

	/*
	 * For hotplug busses like USB, it's possible that devices
	 * are removed but dip is still around. We don't want to
	 * run dacf routines as part of detach failure recovery.
	 *
	 * Pretend success until we figure out how to prevent
	 * access to such devinfo nodes.
	 */
	if (DEVI_IS_DEVICE_REMOVED(dip))
		return (DDI_SUCCESS);

	/*
	 * if dacf_postattach failed, report it to the framework
	 * so that it can be retried later at the open time.
	 */
	mutex_enter(&dacf_lock);
	rval = dacfc_postattach(dip);
	mutex_exit(&dacf_lock);

	/*
	 * Plumbing during postattach may fail because of the
	 * underlying device is not ready. This will fail ndi_devi_config()
	 * in dv_filldir().
	 */
	if (rval != DACF_SUCCESS) {
		NDI_CONFIG_DEBUG((CE_CONT, "postattach_node: %s%d (%p) "
		    "postattach failed\n", ddi_driver_name(dip),
		    ddi_get_instance(dip), (void *)dip));
		return (DDI_FAILURE);
	}

	return (DDI_SUCCESS);
}

/*
 * Run dacf pre-detach routines
 */
static int
predetach_node(dev_info_t *dip, uint_t flag)
{
	int ret;

	/*
	 * Don't auto-detach if DDI_FORCEATTACH or DDI_NO_AUTODETACH
	 * properties are set.
	 */
	if (flag & NDI_AUTODETACH) {
		struct devnames *dnp;
		int pflag = DDI_PROP_NOTPROM | DDI_PROP_DONTPASS;

		if ((ddi_prop_get_int(DDI_DEV_T_ANY, dip,
		    pflag, DDI_FORCEATTACH, 0) == 1) ||
		    (ddi_prop_get_int(DDI_DEV_T_ANY, dip,
		    pflag, DDI_NO_AUTODETACH, 0) == 1))
			return (DDI_FAILURE);

		/* check for driver global version of DDI_NO_AUTODETACH */
		dnp = &devnamesp[DEVI(dip)->devi_major];
		LOCK_DEV_OPS(&dnp->dn_lock);
		if (dnp->dn_flags & DN_NO_AUTODETACH) {
			UNLOCK_DEV_OPS(&dnp->dn_lock);
			return (DDI_FAILURE);
		}
		UNLOCK_DEV_OPS(&dnp->dn_lock);
	}

	mutex_enter(&dacf_lock);
	ret = dacfc_predetach(dip);
	mutex_exit(&dacf_lock);

	return (ret);
}

/*
 * Wrapper for making multiple state transitions
 */

/*
 * i_ndi_config_node: upgrade dev_info node into a specified state.
 * It is a bit tricky because the locking protocol changes before and
 * after a node is bound to a driver. All locks are held external to
 * this function.
 */
int
i_ndi_config_node(dev_info_t *dip, ddi_node_state_t state, uint_t flag)
{
	_NOTE(ARGUNUSED(flag))
	int rv = DDI_SUCCESS;

	ASSERT(DEVI_BUSY_OWNED(ddi_get_parent(dip)));

	while ((i_ddi_node_state(dip) < state) && (rv == DDI_SUCCESS)) {

		/* don't allow any more changes to the device tree */
		if (devinfo_freeze) {
			rv = DDI_FAILURE;
			break;
		}

		switch (i_ddi_node_state(dip)) {
		case DS_PROTO:
			/*
			 * only caller can reference this node, no external
			 * locking needed.
			 */
			link_node(dip);
			i_ddi_set_node_state(dip, DS_LINKED);
			break;
		case DS_LINKED:
			/*
			 * Three code path may attempt to bind a node:
			 * - boot code
			 * - add_drv
			 * - hotplug thread
			 * Boot code is single threaded, add_drv synchronize
			 * on a userland lock, and hotplug synchronize on
			 * hotplug_lk. There could be a race between add_drv
			 * and hotplug thread. We'll live with this until the
			 * conversion to top-down loading.
			 */
			if ((rv = bind_node(dip)) == DDI_SUCCESS)
				i_ddi_set_node_state(dip, DS_BOUND);

			break;
		case DS_BOUND:
			/*
			 * The following transitions synchronizes on the
			 * per-driver busy changing flag, since we already
			 * have a driver.
			 */
			if ((rv = init_node(dip)) == DDI_SUCCESS)
				i_ddi_set_node_state(dip, DS_INITIALIZED);
			break;
		case DS_INITIALIZED:
			if ((rv = probe_node(dip)) == DDI_SUCCESS)
				i_ddi_set_node_state(dip, DS_PROBED);
			break;
		case DS_PROBED:
			/*
			 * If node is retired and persistent, then prevent
			 * attach. We can't do this for non-persistent nodes
			 * as we would lose evidence that the node existed.
			 */
			if (i_ddi_check_retire(dip) == 1 &&
			    ndi_dev_is_persistent_node(dip) &&
			    retire_prevents_attach == 1) {
				rv = DDI_FAILURE;
				break;
			}
			atomic_inc_ulong(&devinfo_attach_detach);
			if ((rv = attach_node(dip)) == DDI_SUCCESS)
				i_ddi_set_node_state(dip, DS_ATTACHED);
			atomic_dec_ulong(&devinfo_attach_detach);
			break;
		case DS_ATTACHED:
			if ((rv = postattach_node(dip)) == DDI_SUCCESS)
				i_ddi_set_node_state(dip, DS_READY);
			break;
		case DS_READY:
			break;
		default:
			/* should never reach here */
			ASSERT("unknown devinfo state");
		}
	}

	if (ddidebug & DDI_AUDIT)
		da_log_enter(dip);
	return (rv);
}

/*
 * i_ndi_unconfig_node: downgrade dev_info node into a specified state.
 */
int
i_ndi_unconfig_node(dev_info_t *dip, ddi_node_state_t state, uint_t flag)
{
	int	rv = DDI_SUCCESS;

	ASSERT(DEVI_BUSY_OWNED(ddi_get_parent(dip)));

	while ((i_ddi_node_state(dip) > state) && (rv == DDI_SUCCESS)) {

		/* don't allow any more changes to the device tree */
		if (devinfo_freeze) {
			rv = DDI_FAILURE;
			break;
		}

		switch (i_ddi_node_state(dip)) {
		case DS_PROTO:
			break;
		case DS_LINKED:
			/*
			 * Persistent nodes are only removed by hotplug code
			 * .conf nodes synchronizes on per-driver list.
			 */
			if ((rv = unlink_node(dip)) == DDI_SUCCESS)
				i_ddi_set_node_state(dip, DS_PROTO);
			break;
		case DS_BOUND:
			/*
			 * The following transitions synchronizes on the
			 * per-driver busy changing flag, since we already
			 * have a driver.
			 */
			if ((rv = unbind_node(dip)) == DDI_SUCCESS)
				i_ddi_set_node_state(dip, DS_LINKED);
			break;
		case DS_INITIALIZED:
			if ((rv = uninit_node(dip)) == DDI_SUCCESS)
				i_ddi_set_node_state(dip, DS_BOUND);
			break;
		case DS_PROBED:
			if ((rv = unprobe_node(dip)) == DDI_SUCCESS)
				i_ddi_set_node_state(dip, DS_INITIALIZED);
			break;
		case DS_ATTACHED:
			atomic_inc_ulong(&devinfo_attach_detach);

			mutex_enter(&(DEVI(dip)->devi_lock));
			DEVI_SET_DETACHING(dip);
			mutex_exit(&(DEVI(dip)->devi_lock));

			membar_enter();	/* ensure visibility for hold_devi */

			if ((rv = detach_node(dip, flag)) == DDI_SUCCESS)
				i_ddi_set_node_state(dip, DS_PROBED);

			mutex_enter(&(DEVI(dip)->devi_lock));
			DEVI_CLR_DETACHING(dip);
			mutex_exit(&(DEVI(dip)->devi_lock));

			atomic_dec_ulong(&devinfo_attach_detach);
			break;
		case DS_READY:
			if ((rv = predetach_node(dip, flag)) == DDI_SUCCESS)
				i_ddi_set_node_state(dip, DS_ATTACHED);
			break;
		default:
			ASSERT("unknown devinfo state");
		}
	}
	da_log_enter(dip);
	return (rv);
}

/*
 * ddi_initchild: transform node to DS_INITIALIZED state
 */
int
ddi_initchild(dev_info_t *parent, dev_info_t *proto)
{
	int ret;

	ndi_devi_enter(parent);
	ret = i_ndi_config_node(proto, DS_INITIALIZED, 0);
	ndi_devi_exit(parent);

	return (ret);
}

/*
 * ddi_uninitchild: transform node down to DS_BOUND state
 */
int
ddi_uninitchild(dev_info_t *dip)
{
	int ret;
	dev_info_t *parent = ddi_get_parent(dip);
	ASSERT(parent);

	ndi_devi_enter(parent);
	ret = i_ndi_unconfig_node(dip, DS_BOUND, 0);
	ndi_devi_exit(parent);

	return (ret);
}

/*
 * i_ddi_attachchild: transform node to DS_READY/i_ddi_devi_attached() state
 */
static int
i_ddi_attachchild(dev_info_t *dip)
{
	dev_info_t	*parent = ddi_get_parent(dip);
	int		ret;

	ASSERT(parent && DEVI_BUSY_OWNED(parent));

	if ((i_ddi_node_state(dip) < DS_BOUND) || DEVI_IS_DEVICE_OFFLINE(dip))
		return (DDI_FAILURE);

	ret = i_ndi_config_node(dip, DS_READY, 0);
	if (ret == NDI_SUCCESS) {
		ret = DDI_SUCCESS;
	} else {
		/*
		 * Take it down to DS_INITIALIZED so pm_pre_probe is run
		 * on the next attach
		 */
		(void) i_ndi_unconfig_node(dip, DS_INITIALIZED, 0);
		ret = DDI_FAILURE;
	}

	return (ret);
}

/*
 * i_ddi_detachchild: transform node down to DS_PROBED state
 *	If it fails, put it back to DS_READY state.
 * NOTE: A node that fails detach may be at DS_ATTACHED instead
 * of DS_READY for a small amount of time - this is the source of
 * transient DS_READY->DS_ATTACHED->DS_READY state changes.
 */
static int
i_ddi_detachchild(dev_info_t *dip, uint_t flags)
{
	dev_info_t	*parent = ddi_get_parent(dip);
	int		ret;

	ASSERT(parent && DEVI_BUSY_OWNED(parent));

	ret = i_ndi_unconfig_node(dip, DS_PROBED, flags);
	if (ret != DDI_SUCCESS)
		(void) i_ndi_config_node(dip, DS_READY, 0);
	else
		/* allow pm_pre_probe to reestablish pm state */
		(void) i_ndi_unconfig_node(dip, DS_INITIALIZED, 0);
	return (ret);
}

/*
 * Add a child and bind to driver
 */
dev_info_t *
ddi_add_child(dev_info_t *pdip, char *name, uint_t nodeid, uint_t unit)
{
	dev_info_t *dip;

	/* allocate a new node */
	dip = i_ddi_alloc_node(pdip, name, nodeid, (int)unit, NULL, KM_SLEEP);

	ndi_devi_enter(pdip);
	(void) i_ndi_config_node(dip, DS_BOUND, 0);
	ndi_devi_exit(pdip);
	return (dip);
}

/*
 * ddi_remove_child: remove the dip. The parent must be attached and held
 */
int
ddi_remove_child(dev_info_t *dip, int dummy)
{
	_NOTE(ARGUNUSED(dummy))
	int ret;
	dev_info_t *parent = ddi_get_parent(dip);
	ASSERT(parent);

	ndi_devi_enter(parent);

	/*
	 * If we still have children, for example SID nodes marked
	 * as persistent but not attached, attempt to remove them.
	 */
	if (DEVI(dip)->devi_child) {
		ret = ndi_devi_unconfig(dip, NDI_DEVI_REMOVE);
		if (ret != NDI_SUCCESS) {
			ndi_devi_exit(parent);
			return (DDI_FAILURE);
		}
		ASSERT(DEVI(dip)->devi_child == NULL);
	}

	ret = i_ndi_unconfig_node(dip, DS_PROTO, 0);
	ndi_devi_exit(parent);

	if (ret != DDI_SUCCESS)
		return (ret);

	ASSERT(i_ddi_node_state(dip) == DS_PROTO);
	i_ddi_free_node(dip);
	return (DDI_SUCCESS);
}

/*
 * NDI wrappers for ref counting, node allocation, and transitions
 */

/*
 * Hold/release the devinfo node itself.
 * Caller is assumed to prevent the devi from detaching during this call
 */
void
ndi_hold_devi(dev_info_t *dip)
{
	mutex_enter(&DEVI(dip)->devi_lock);
	ASSERT(DEVI(dip)->devi_ref >= 0);
	DEVI(dip)->devi_ref++;
	membar_enter();			/* make sure stores are flushed */
	mutex_exit(&DEVI(dip)->devi_lock);
}

void
ndi_rele_devi(dev_info_t *dip)
{
	ASSERT(DEVI(dip)->devi_ref > 0);

	mutex_enter(&DEVI(dip)->devi_lock);
	DEVI(dip)->devi_ref--;
	membar_enter();			/* make sure stores are flushed */
	mutex_exit(&DEVI(dip)->devi_lock);
}

int
e_ddi_devi_holdcnt(dev_info_t *dip)
{
	return (DEVI(dip)->devi_ref);
}

/*
 * Hold/release the driver the devinfo node is bound to.
 */
struct dev_ops *
ndi_hold_driver(dev_info_t *dip)
{
	if (i_ddi_node_state(dip) < DS_BOUND)
		return (NULL);

	ASSERT(DEVI(dip)->devi_major != -1);
	return (mod_hold_dev_by_major(DEVI(dip)->devi_major));
}

void
ndi_rele_driver(dev_info_t *dip)
{
	ASSERT(i_ddi_node_state(dip) >= DS_BOUND);
	mod_rele_dev_by_major(DEVI(dip)->devi_major);
}

/*
 * Functions that protect critical sections when modifying a `dev_info_t`
 * node's children.
 *
 * Note that the critical section ordering protocols here can be somewhat
 * complex, and prone to deadlock without care.  In particular, if we are
 * ever in a context where we may be in a critical section on a node and
 * subsequently need to enter one on that node's parent (such as a code
 * sequence that may end up invoking `pcicfg_configure`), we _must_ ensure
 * that we have already entered on the parent before entering on the node
 * itself.  This is because we may be racing against another thread that
 * is walking the tree from the root, and that thread may have already
 * entered on the parent and be blocked waiting to enter on the node; if
 * the thread that has already entered on the node then attempts to enter
 * on the parent, we will deadlock.
 *
 * In general, to avoid deadlock, we must obey a strict hierarchical
 * ordering so that that we always enter critical sections from the nodes
 * closest to the root towards the leaves.
 *
 * See the notes in `pcicfg_configure`, `ddihp_modctl` and
 * `ndi_hp_state_change_req` for more details.
 */

/*
 * Single thread entry into devinfo node for modifying its children (devinfo,
 * pathinfo, and minor). To verify in ASSERTS use DEVI_BUSY_OWNED macro.
 */
void
ndi_devi_enter(dev_info_t *dip)
{
	struct dev_info *devi;
	ASSERT(dip != NULL);

	/* for vHCI, enforce (vHCI, pHCI) ndi_devi_enter() order */
	ASSERT(!MDI_VHCI(dip) || (mdi_devi_pdip_entered(dip) == 0) ||
	    DEVI_BUSY_OWNED(dip));

	/*
	 * If we're panicking, we are single-threaded and cannot
	 * `mutex_enter`, so just return.
	 */
	if (panicstr != NULL)
		return;

	devi = DEVI(dip);
	mutex_enter(&devi->devi_lock);
	while (DEVI_BUSY_CHANGING(devi)) {
		/*
		 * If we are called when we are panicking, then we are
		 * single-threaded, and would otherwise loop forever, so
		 * we test for that here and early return if applicable.
		 */
		if (panicstr != NULL) {
			mutex_exit(&devi->devi_lock);
			return;
		}
		if (devi->devi_busy_thread == curthread) {
			devi->devi_circular++;
			mutex_exit(&devi->devi_lock);
			return;
		}
		cv_wait(&devi->devi_cv, &devi->devi_lock);
	}
	devi->devi_flags |= DEVI_BUSY;
	devi->devi_busy_thread = curthread;
	mutex_exit(&devi->devi_lock);
}

/*
 * Release ndi_devi_enter or successful ndi_devi_tryenter.
 *
 * Note that after we leave the critical section, if this is a pHCI exit we must
 * broadcast to our vHCI, if one exists, as it may be blocked on a condvar in
 * `ndi_devi_config_one`.
 *
 * It may seem odd that we do this after exiting the critical section, since we
 * are no longer protected by the conditions surrounding it, but note that
 * `ndi_devi_enter`/`ndi_devi_exit` and similar do not protect the `dip` itself.
 * Rather, the `dip` is protected by a reference count that is maintained by
 * calls to `ndi_hold_devi` and `ndi_rele_devi`.  If we're in this code path,
 * there must necessarily be such a reference, so it is safe to access our `dip`
 * any time here.
 *
 * Further, any pHCI or vHCI associated with this dip is effectively write-once
 * at setup, and the pHCI maintains a reference count on the vHCI (indeed, the
 * pHCI is what actually points to the vHCI), ensuring it lives at least as long
 * as the pHCI.
 *
 * Finally, it is safe to access the pHCI outside of the critical section for
 * the same reason we can access the dip: it is completely owned by the dip and
 * only deallocated in the detach path, and we only get there when all
 * references to the dip have been released.  Therefore, if we are in this code
 * path, the pHCI and thus the vHCI, if they exist, are both necessarily valid.
 */
void
ndi_devi_exit(dev_info_t *dip)
{
	struct dev_info	*devi, *vdevi;
	boolean_t phci;

	ASSERT(dip != NULL);

	/*
	 * If we're panicking, we are single threaded, so just return.
	 */
	if (panicstr != NULL)
		return;

	devi = DEVI(dip);
	mutex_enter(&devi->devi_lock);
	ASSERT(DEVI_BUSY_OWNED(devi));
	if (devi->devi_circular > 0) {
		devi->devi_circular--;
		mutex_exit(&devi->devi_lock);
		return;
	}
	devi->devi_flags &= ~DEVI_BUSY;
	devi->devi_busy_thread = NULL;
	cv_broadcast(&devi->devi_cv);
	mutex_exit(&devi->devi_lock);

	/*
	 * Note that `DEVI(mdi_devi_get_vdip(dip))` will be NULL if `dip` is
	 * not a pHCI or the vHCI doest not exist.
	 */
	vdevi = DEVI(mdi_devi_get_vdip(dip));
	if (vdevi != NULL) {
		mutex_enter(&vdevi->devi_lock);
		if ((vdevi->devi_flags & DEVI_PHCI_SIGNALS_VHCI) != 0) {
			vdevi->devi_flags &= ~DEVI_PHCI_SIGNALS_VHCI;
			cv_broadcast(&vdevi->devi_cv);
		}
		mutex_exit(&vdevi->devi_lock);
	}
}

/*
 * Release ndi_devi_enter and wait for possibility of new children, avoiding
 * possibility of missing broadcast before getting to cv_timedwait().
 */
static void
ndi_devi_exit_and_wait(dev_info_t *dip, clock_t end_time)
{
	struct dev_info *devi;

	ASSERT(dip != NULL);

	/*
	 * If we're panicking, we are single threaded, and cannot
	 * call mutex_enter(), so just return.
	 */
	if (panicstr)
		return;

	/* like ndi_devi_exit with circular of zero */
	devi = DEVI(dip);
	mutex_enter(&devi->devi_lock);
	/*
	 * We are called to wait for a new child, and new child can
	 * only be added if circular is zero.
	 */
	ASSERT(devi->devi_circular == 0);
	ASSERT(DEVI_BUSY_OWNED(devi));
	devi->devi_flags &= ~DEVI_BUSY;
	devi->devi_busy_thread = NULL;
	cv_broadcast(&devi->devi_cv);

	/* now wait for new children while still holding devi_lock */
	(void) cv_timedwait(&devi->devi_cv, &devi->devi_lock, end_time);
	mutex_exit(&devi->devi_lock);
}

/*
 * Attempt to single thread entry into devinfo node for modifying its children.
 */
int
ndi_devi_tryenter(dev_info_t *dip)
{
	int entered;
	struct dev_info *devi;

	ASSERT(dip != NULL);

	/*
	 * If we're panicing, we are single threaded, and cannot
	 * call mutex_enter(), so just return.
	 */
	if (panicstr != NULL)
		return (0);

	devi = DEVI(dip);
	mutex_enter(&devi->devi_lock);
	entered = 1;
	if (!DEVI_BUSY_CHANGING(devi)) {
		/* The uncontended case. */
		devi->devi_flags |= DEVI_BUSY;
		devi->devi_busy_thread = curthread;
	} else if (devi->devi_busy_thread == curthread) {
		/* Nested entry on the same thread. */
		devi->devi_circular++;
	} else {
		/* We fail on the contended case. */
		entered = 0;
	}
	mutex_exit(&devi->devi_lock);

	return (entered);
}

/*
 * Allocate and initialize a new dev_info structure.
 *
 * This routine may be called at interrupt time by a nexus in
 * response to a hotplug event, therefore memory allocations are
 * not allowed to sleep.
 */
int
ndi_devi_alloc(dev_info_t *parent, const char *node_name, pnode_t nodeid,
    dev_info_t **ret_dip)
{
	ASSERT(node_name != NULL);
	ASSERT(ret_dip != NULL);

	*ret_dip = i_ddi_alloc_node(parent, node_name, nodeid, -1, NULL,
	    KM_NOSLEEP);
	if (*ret_dip == NULL) {
		return (NDI_NOMEM);
	}

	return (NDI_SUCCESS);
}

/*
 * Allocate and initialize a new dev_info structure
 * This routine may sleep and should not be called at interrupt time
 */
void
ndi_devi_alloc_sleep(dev_info_t *parent, const char *node_name, pnode_t nodeid,
    dev_info_t **ret_dip)
{
	ASSERT(node_name != NULL);
	ASSERT(ret_dip != NULL);

	*ret_dip = i_ddi_alloc_node(parent, node_name, nodeid, -1, NULL,
	    KM_SLEEP);
	ASSERT(*ret_dip);
}

/*
 * Remove an initialized (but not yet attached) dev_info
 * node from it's parent.
 */
int
ndi_devi_free(dev_info_t *dip)
{
	ASSERT(dip != NULL);

	if (i_ddi_node_state(dip) >= DS_INITIALIZED)
		return (DDI_FAILURE);

	NDI_CONFIG_DEBUG((CE_CONT, "ndi_devi_free: %s%d (%p)\n",
	    ddi_driver_name(dip), ddi_get_instance(dip), (void *)dip));

	(void) ddi_remove_child(dip, 0);

	return (NDI_SUCCESS);
}

/*
 * ndi_devi_bind_driver() binds a driver to a given device. If it fails
 * to bind the driver, it returns an appropriate error back. Some drivers
 * may want to know if the actually failed to bind.
 */
int
ndi_devi_bind_driver(dev_info_t *dip, uint_t flags)
{
	int ret = NDI_FAILURE;
	dev_info_t *pdip = ddi_get_parent(dip);
	ASSERT(pdip);

	NDI_CONFIG_DEBUG((CE_CONT,
	    "ndi_devi_bind_driver: %s%d (%p) flags: %x\n",
	    ddi_driver_name(dip), ddi_get_instance(dip), (void *)dip, flags));

	ndi_devi_enter(pdip);
	if (i_ndi_config_node(dip, DS_BOUND, flags) == DDI_SUCCESS)
		ret = NDI_SUCCESS;
	ndi_devi_exit(pdip);

	return (ret);
}

/*
 * ndi_devi_unbind_driver: unbind the dip
 */
static int
ndi_devi_unbind_driver(dev_info_t *dip)
{
	ASSERT(DEVI_BUSY_OWNED(ddi_get_parent(dip)));

	return (i_ndi_unconfig_node(dip, DS_LINKED, 0));
}

/*
 * Misc. help routines called by framework only
 */

/*
 * Get the state of node
 */
ddi_node_state_t
i_ddi_node_state(dev_info_t *dip)
{
	return (DEVI(dip)->devi_node_state);
}

/*
 * Set the state of node
 */
void
i_ddi_set_node_state(dev_info_t *dip, ddi_node_state_t state)
{
	DEVI(dip)->devi_node_state = state;
	membar_enter();			/* make sure stores are flushed */
}

/*
 * Determine if node is attached. The implementation accommodates transient
 * DS_READY->DS_ATTACHED->DS_READY state changes.  Outside this file, this
 * function should be instead of i_ddi_node_state() DS_ATTACHED/DS_READY
 * state checks.
 */
int
i_ddi_devi_attached(dev_info_t *dip)
{
	return (DEVI(dip)->devi_node_state >= DS_ATTACHED);
}

/*
 * Common function for finding a node in a sibling list given name and addr.
 *
 * By default, name is matched with devi_node_name. The following
 * alternative match strategies are supported:
 *
 *	FIND_NODE_BY_NODENAME: Match on node name - typical use.
 *
 *	FIND_NODE_BY_DRIVER: A match on driver name bound to node is conducted.
 *		This support is used for support of OBP generic names and
 *		for the conversion from driver names to generic names. When
 *		more consistency in the generic name environment is achieved
 *		(and not needed for upgrade) this support can be removed.
 *
 *	FIND_NODE_BY_ADDR: Match on just the addr.
 *		This support is only used/needed during boot to match
 *		a node bound via a path-based driver alias.
 *
 * If a child is not named (dev_addr == NULL), there are three
 * possible actions:
 *
 *	(1) skip it
 *	(2) FIND_ADDR_BY_INIT: bring child to DS_INITIALIZED state
 *	(3) FIND_ADDR_BY_CALLBACK: use a caller-supplied callback function
 */
#define	FIND_NODE_BY_NODENAME	0x01
#define	FIND_NODE_BY_DRIVER	0x02
#define	FIND_NODE_BY_ADDR	0x04
#define	FIND_ADDR_BY_INIT	0x10
#define	FIND_ADDR_BY_CALLBACK	0x20

static dev_info_t *
find_sibling(dev_info_t *head, char *cname, char *caddr, uint_t flag,
    int (*callback)(dev_info_t *, char *, int))
{
	dev_info_t	*dip;
	char		*addr, *buf;
	major_t		major;
	uint_t		by;

	/* only one way to find a node */
	by = flag &
	    (FIND_NODE_BY_DRIVER | FIND_NODE_BY_NODENAME | FIND_NODE_BY_ADDR);
	ASSERT(by && BIT_ONLYONESET(by));

	/* only one way to name a node */
	ASSERT(((flag & FIND_ADDR_BY_INIT) == 0) ||
	    ((flag & FIND_ADDR_BY_CALLBACK) == 0));

	if (by == FIND_NODE_BY_DRIVER) {
		major = ddi_name_to_major(cname);
		if (major == DDI_MAJOR_T_NONE)
			return (NULL);
	}

	if (head == NULL)
		return (NULL);

	buf = NULL;
	/* preallocate buffer of naming node by callback */
	if (flag & FIND_ADDR_BY_CALLBACK)
		buf = kmem_alloc(MAXNAMELEN, KM_SLEEP);

	/*
	 * Walk the child list to find a match
	 */
	ASSERT(DEVI_BUSY_OWNED(ddi_get_parent(head)));
	for (dip = head; dip; dip = ddi_get_next_sibling(dip)) {
		if (by == FIND_NODE_BY_NODENAME) {
			/* match node name */
			if (strcmp(cname, DEVI(dip)->devi_node_name) != 0)
				continue;
		} else if (by == FIND_NODE_BY_DRIVER) {
			/* match driver major */
			if (DEVI(dip)->devi_major != major)
				continue;
		}

		if ((addr = DEVI(dip)->devi_addr) == NULL) {
			/* name the child based on the flag */
			if (flag & FIND_ADDR_BY_INIT) {
				if (ddi_initchild(ddi_get_parent(dip), dip)
				    != DDI_SUCCESS)
					continue;
				addr = DEVI(dip)->devi_addr;
			} else if (flag & FIND_ADDR_BY_CALLBACK) {
				if ((callback == NULL) || (callback(
				    dip, buf, MAXNAMELEN) != DDI_SUCCESS))
					continue;
				addr = buf;
			} else {
				continue;	/* skip */
			}
		}

		/* match addr */
		ASSERT(addr != NULL);
		if (strcmp(caddr, addr) == 0)
			break;	/* node found */

	}
	if (flag & FIND_ADDR_BY_CALLBACK)
		kmem_free(buf, MAXNAMELEN);
	return (dip);
}

/*
 * Find child of pdip with name: cname@caddr
 * Called by init_node() to look for duplicate nodes
 */
static dev_info_t *
find_duplicate_child(dev_info_t *pdip, dev_info_t *dip)
{
	dev_info_t *dup;
	char *cname = DEVI(dip)->devi_node_name;
	char *caddr = DEVI(dip)->devi_addr;

	/* search nodes before dip */
	dup = find_sibling(ddi_get_child(pdip), cname, caddr,
	    FIND_NODE_BY_NODENAME, NULL);
	if (dup != dip)
		return (dup);

	/*
	 * search nodes after dip; normally this is not needed,
	 */
	return (find_sibling(ddi_get_next_sibling(dip), cname, caddr,
	    FIND_NODE_BY_NODENAME, NULL));
}

/*
 * Find a child of a given name and address, using a callback to name
 * unnamed children. cname is the binding name.
 */
dev_info_t *
ndi_devi_findchild_by_callback(dev_info_t *pdip, char *dname, char *ua,
    int (*make_ua)(dev_info_t *, char *, int))
{
	int	by = FIND_ADDR_BY_CALLBACK;

	ASSERT(DEVI_BUSY_OWNED(pdip));
	by |= dname ? FIND_NODE_BY_DRIVER : FIND_NODE_BY_ADDR;
	return (find_sibling(ddi_get_child(pdip), dname, ua, by, make_ua));
}

/*
 * Find a child of a given name and address, invoking initchild to name
 * unnamed children. cname is the node name.
 */
static dev_info_t *
find_child_by_name(dev_info_t *pdip, char *cname, char *caddr)
{
	dev_info_t	*dip;

	/* attempt search without changing state of preceding siblings */
	dip = find_sibling(ddi_get_child(pdip), cname, caddr,
	    FIND_NODE_BY_NODENAME, NULL);
	if (dip)
		return (dip);

	return (find_sibling(ddi_get_child(pdip), cname, caddr,
	    FIND_NODE_BY_NODENAME|FIND_ADDR_BY_INIT, NULL));
}

/*
 * Find a child of a given name and address, invoking initchild to name
 * unnamed children. cname is the node name.
 */
static dev_info_t *
find_child_by_driver(dev_info_t *pdip, char *cname, char *caddr)
{
	dev_info_t	*dip;

	/* attempt search without changing state of preceding siblings */
	dip = find_sibling(ddi_get_child(pdip), cname, caddr,
	    FIND_NODE_BY_DRIVER, NULL);
	if (dip)
		return (dip);

	return (find_sibling(ddi_get_child(pdip), cname, caddr,
	    FIND_NODE_BY_DRIVER|FIND_ADDR_BY_INIT, NULL));
}

/*
 * Find a child of a given address, invoking initchild to name
 * unnamed children. cname is the node name.
 *
 * NOTE: This function is only used during boot. One would hope that
 * unique sibling unit-addresses on hardware branches of the tree would
 * be a requirement to avoid two drivers trying to control the same
 * piece of hardware. Unfortunately there are some cases where this
 * situation exists (/ssm@0,0/pci@1c,700000 /ssm@0,0/sghsc@1c,700000).
 * Until unit-address uniqueness of siblings is guaranteed, use of this
 * interface for purposes other than boot should be avoided.
 */
static dev_info_t *
find_child_by_addr(dev_info_t *pdip, char *caddr)
{
	dev_info_t	*dip;

	/* return NULL if called without a unit-address */
	if ((caddr == NULL) || (*caddr == '\0'))
		return (NULL);

	/* attempt search without changing state of preceding siblings */
	dip = find_sibling(ddi_get_child(pdip), NULL, caddr,
	    FIND_NODE_BY_ADDR, NULL);
	if (dip)
		return (dip);

	return (find_sibling(ddi_get_child(pdip), NULL, caddr,
	    FIND_NODE_BY_ADDR|FIND_ADDR_BY_INIT, NULL));
}

/*
 * Deleting a property list. Take care, since some property structures
 * may not be fully built.
 */
void
i_ddi_prop_list_delete(ddi_prop_t *prop)
{
	while (prop) {
		ddi_prop_t *next = prop->prop_next;
		if (prop->prop_name)
			kmem_free(prop->prop_name, strlen(prop->prop_name) + 1);
		if ((prop->prop_len != 0) && prop->prop_val)
			kmem_free(prop->prop_val, prop->prop_len);
		kmem_free(prop, sizeof (struct ddi_prop));
		prop = next;
	}
}

/*
 * Duplicate property list
 */
ddi_prop_t *
i_ddi_prop_list_dup(ddi_prop_t *prop, uint_t flag)
{
	ddi_prop_t *result, *prev, *copy;

	if (prop == NULL)
		return (NULL);

	result = prev = NULL;
	for (; prop != NULL; prop = prop->prop_next) {
		ASSERT(prop->prop_name != NULL);
		copy = kmem_zalloc(sizeof (struct ddi_prop), flag);
		if (copy == NULL)
			goto fail;

		copy->prop_dev = prop->prop_dev;
		copy->prop_flags = prop->prop_flags;
		copy->prop_name = i_ddi_strdup(prop->prop_name, flag);
		if (copy->prop_name == NULL) {
			kmem_free(copy, sizeof (struct ddi_prop));
			goto fail;
		}

		if ((copy->prop_len = prop->prop_len) != 0) {
			copy->prop_val = kmem_zalloc(prop->prop_len, flag);
			if (copy->prop_val == NULL) {
				strfree(copy->prop_name);
				kmem_free(copy, sizeof (struct ddi_prop));
				goto fail;
			}

			bcopy(prop->prop_val, copy->prop_val, prop->prop_len);
		}

		if (prev == NULL)
			result = prev = copy;
		else
			prev->prop_next = copy;
		prev = copy;
	}
	return (result);

fail:
	i_ddi_prop_list_delete(result);
	return (NULL);
}

/*
 * Create a reference property list, currently used only for
 * driver global properties. Created with ref count of 1.
 */
ddi_prop_list_t *
i_ddi_prop_list_create(ddi_prop_t *props)
{
	ddi_prop_list_t *list = kmem_alloc(sizeof (*list), KM_SLEEP);
	list->prop_list = props;
	list->prop_ref = 1;
	return (list);
}

/*
 * Increment/decrement reference count. The reference is
 * protected by dn_lock. The only interfaces modifying
 * dn_global_prop_ptr is in impl_make[free]_parlist().
 */
void
i_ddi_prop_list_hold(ddi_prop_list_t *prop_list, struct devnames *dnp)
{
	ASSERT(prop_list->prop_ref >= 0);
	ASSERT(mutex_owned(&dnp->dn_lock));
	prop_list->prop_ref++;
}

void
i_ddi_prop_list_rele(ddi_prop_list_t *prop_list, struct devnames *dnp)
{
	ASSERT(prop_list->prop_ref > 0);
	ASSERT(mutex_owned(&dnp->dn_lock));
	prop_list->prop_ref--;

	if (prop_list->prop_ref == 0) {
		i_ddi_prop_list_delete(prop_list->prop_list);
		kmem_free(prop_list, sizeof (*prop_list));
	}
}

/*
 * Free table of classes by drivers
 */
void
i_ddi_free_exported_classes(char **classes, int n)
{
	if ((n == 0) || (classes == NULL))
		return;

	kmem_free(classes, n * sizeof (char *));
}

/*
 * Get all classes exported by dip
 */
int
i_ddi_get_exported_classes(dev_info_t *dip, char ***classes)
{
	extern void lock_hw_class_list();
	extern void unlock_hw_class_list();
	extern int get_class(const char *, char **);

	static char *rootclass = "root";
	int n = 0, nclass = 0;
	char **buf;

	ASSERT(i_ddi_node_state(dip) >= DS_BOUND);

	if (dip == ddi_root_node())	/* rootnode exports class "root" */
		nclass = 1;
	lock_hw_class_list();
	nclass += get_class(ddi_driver_name(dip), NULL);
	if (nclass == 0) {
		unlock_hw_class_list();
		return (0);		/* no class exported */
	}

	*classes = buf = kmem_alloc(nclass * sizeof (char *), KM_SLEEP);
	if (dip == ddi_root_node()) {
		*buf++ = rootclass;
		n = 1;
	}
	n += get_class(ddi_driver_name(dip), buf);
	unlock_hw_class_list();

	ASSERT(n == nclass);	/* make sure buf wasn't overrun */
	return (nclass);
}

/*
 * Helper functions, returns NULL if no memory.
 */
char *
i_ddi_strdup(const char *str, uint_t flag)
{
	char *copy;

	if (str == NULL)
		return (NULL);

	copy = kmem_alloc(strlen(str) + 1, flag);
	if (copy == NULL)
		return (NULL);

	(void) strcpy(copy, str);
	return (copy);
}

/*
 * Load driver.conf file for major. Load all if major == -1.
 *
 * This is called
 * - early in boot after devnames array is initialized
 * - from vfs code when certain file systems are mounted
 * - from add_drv when a new driver is added
 */
int
i_ddi_load_drvconf(major_t major)
{
	extern int modrootloaded;

	major_t low, high, m;

	if (major == DDI_MAJOR_T_NONE) {
		low = 0;
		high = devcnt - 1;
	} else {
		if (major >= devcnt)
			return (EINVAL);
		low = high = major;
	}

	for (m = low; m <= high; m++) {
		struct devnames *dnp = &devnamesp[m];
		LOCK_DEV_OPS(&dnp->dn_lock);
		dnp->dn_flags &= ~(DN_DRIVER_HELD|DN_DRIVER_INACTIVE);
		(void) impl_make_parlist(m);
		UNLOCK_DEV_OPS(&dnp->dn_lock);
	}

	if (modrootloaded) {
		ddi_walk_devs(ddi_root_node(), reset_nexus_flags,
		    (void *)(uintptr_t)major);
	}

	/* build dn_list from old entries in path_to_inst */
	e_ddi_unorphan_instance_nos();
	return (0);
}

/*
 * Unload a specific driver.conf.
 * Don't support unload all because it doesn't make any sense
 */
int
i_ddi_unload_drvconf(major_t major)
{
	int error;
	struct devnames *dnp;

	if (major >= devcnt)
		return (EINVAL);

	/*
	 * Take the per-driver lock while unloading driver.conf
	 */
	dnp = &devnamesp[major];
	LOCK_DEV_OPS(&dnp->dn_lock);
	error = impl_free_parlist(major);
	UNLOCK_DEV_OPS(&dnp->dn_lock);
	return (error);
}

/*
 * Merge a .conf node. This is called by nexus drivers to augment
 * hw node with properties specified in driver.conf file. This function
 * takes a callback routine to name nexus children.
 * The parent node must be held busy.
 *
 * It returns DDI_SUCCESS if the node is merged and DDI_FAILURE otherwise.
 */
int
ndi_merge_node(dev_info_t *dip, int (*make_ua)(dev_info_t *, char *, int))
{
	dev_info_t *hwdip;

	ASSERT(ndi_dev_is_persistent_node(dip) == 0);
	ASSERT(ddi_get_name_addr(dip) != NULL);

	hwdip = ndi_devi_findchild_by_callback(ddi_get_parent(dip),
	    ddi_binding_name(dip), ddi_get_name_addr(dip), make_ua);

	/*
	 * Look for the hardware node that is the target of the merge;
	 * return failure if not found.
	 */
	if ((hwdip == NULL) || (hwdip == dip)) {
		char *buf = kmem_alloc(MAXNAMELEN, KM_SLEEP);
		NDI_CONFIG_DEBUG((CE_WARN, "No HW node to merge conf node %s",
		    ddi_deviname(dip, buf)));
		kmem_free(buf, MAXNAMELEN);
		return (DDI_FAILURE);
	}

	/*
	 * Make sure the hardware node is uninitialized and has no property.
	 * This may not be the case if new .conf files are load after some
	 * hardware nodes have already been initialized and attached.
	 *
	 * N.B. We return success here because the node was *intended*
	 *	to be a merge node because there is a hw node with the name.
	 */
	mutex_enter(&DEVI(hwdip)->devi_lock);
	if (ndi_dev_is_persistent_node(hwdip) == 0) {
		char *buf;
		mutex_exit(&DEVI(hwdip)->devi_lock);

		buf = kmem_alloc(MAXNAMELEN, KM_SLEEP);
		NDI_CONFIG_DEBUG((CE_NOTE, "Duplicate .conf node %s",
		    ddi_deviname(dip, buf)));
		kmem_free(buf, MAXNAMELEN);
		return (DDI_SUCCESS);
	}

	/*
	 * If it is possible that the hardware has already been touched
	 * then don't merge.
	 */
	if (i_ddi_node_state(hwdip) >= DS_INITIALIZED ||
	    (DEVI(hwdip)->devi_sys_prop_ptr != NULL) ||
	    (DEVI(hwdip)->devi_drv_prop_ptr != NULL)) {
		char *buf;
		mutex_exit(&DEVI(hwdip)->devi_lock);

		buf = kmem_alloc(MAXNAMELEN, KM_SLEEP);
		NDI_CONFIG_DEBUG((CE_NOTE,
		    "!Cannot merge .conf node %s with hw node %p "
		    "-- not in proper state",
		    ddi_deviname(dip, buf), (void *)hwdip));
		kmem_free(buf, MAXNAMELEN);
		return (DDI_SUCCESS);
	}

	mutex_enter(&DEVI(dip)->devi_lock);
	DEVI(hwdip)->devi_sys_prop_ptr = DEVI(dip)->devi_sys_prop_ptr;
	DEVI(hwdip)->devi_drv_prop_ptr = DEVI(dip)->devi_drv_prop_ptr;
	DEVI(dip)->devi_sys_prop_ptr = NULL;
	DEVI(dip)->devi_drv_prop_ptr = NULL;
	mutex_exit(&DEVI(dip)->devi_lock);
	mutex_exit(&DEVI(hwdip)->devi_lock);

	return (DDI_SUCCESS);
}

/*
 * Merge a "wildcard" .conf node. This is called by nexus drivers to
 * augment a set of hw node with properties specified in driver.conf file.
 * The parent node must be held busy.
 *
 * There is no failure mode, since the nexus may or may not have child
 * node bound the driver specified by the wildcard node.
 */
void
ndi_merge_wildcard_node(dev_info_t *dip)
{
	dev_info_t *hwdip;
	dev_info_t *pdip = ddi_get_parent(dip);
	major_t major = ddi_driver_major(dip);

	/* never attempt to merge a hw node */
	ASSERT(ndi_dev_is_persistent_node(dip) == 0);
	/* must be bound to a driver major number */
	ASSERT(major != DDI_MAJOR_T_NONE);

	/*
	 * Walk the child list to find all nodes bound to major
	 * and copy properties.
	 */
	mutex_enter(&DEVI(dip)->devi_lock);
	ASSERT(DEVI_BUSY_OWNED(pdip));
	for (hwdip = ddi_get_child(pdip); hwdip;
	    hwdip = ddi_get_next_sibling(hwdip)) {
		/*
		 * Skip nodes not bound to same driver
		 */
		if (ddi_driver_major(hwdip) != major)
			continue;

		/*
		 * Skip .conf nodes
		 */
		if (ndi_dev_is_persistent_node(hwdip) == 0)
			continue;

		/*
		 * Make sure the node is uninitialized and has no property.
		 */
		mutex_enter(&DEVI(hwdip)->devi_lock);
		if (i_ddi_node_state(hwdip) >= DS_INITIALIZED ||
		    (DEVI(hwdip)->devi_sys_prop_ptr != NULL) ||
		    (DEVI(hwdip)->devi_drv_prop_ptr != NULL)) {
			mutex_exit(&DEVI(hwdip)->devi_lock);
			NDI_CONFIG_DEBUG((CE_NOTE, "HW node %p state not "
			    "suitable for merging wildcard conf node %s",
			    (void *)hwdip, ddi_node_name(dip)));
			continue;
		}

		DEVI(hwdip)->devi_sys_prop_ptr =
		    i_ddi_prop_list_dup(DEVI(dip)->devi_sys_prop_ptr, KM_SLEEP);
		DEVI(hwdip)->devi_drv_prop_ptr =
		    i_ddi_prop_list_dup(DEVI(dip)->devi_drv_prop_ptr, KM_SLEEP);
		mutex_exit(&DEVI(hwdip)->devi_lock);
	}
	mutex_exit(&DEVI(dip)->devi_lock);
}

/*
 * Return the major number based on the compatible property. This interface
 * may be used in situations where we are trying to detect if a better driver
 * now exists for a device, so it must use the 'compatible' property.  If
 * a non-NULL formp is specified and the binding was based on compatible then
 * return the pointer to the form used in *formp.
 */
major_t
ddi_compatible_driver_major(dev_info_t *dip, char **formp)
{
	struct dev_info *devi = DEVI(dip);
	void		*compat;
	size_t		len;
	char		*p = NULL;
	major_t		major = DDI_MAJOR_T_NONE;

	if (formp)
		*formp = NULL;

	/*
	 * The "ddi-assigned" property indicates a device has been given to a
	 * virtualized environment.  Prevent its use.  This is only used by
	 * Xen and (previously) by sun4v LDOMs.  See pcie_init_dom().
	 */
	if (ddi_prop_exists(DDI_DEV_T_NONE, dip, DDI_PROP_DONTPASS,
	    "ddi-assigned")) {
		major = ddi_name_to_major("nulldriver");
		return (major);
	}

	/*
	 * Highest precedence binding is a path-oriented alias. Since this
	 * requires a 'path', this type of binding occurs via more obtuse
	 * 'rebind'. The need for a path-oriented alias 'rebind' is detected
	 * after a successful DDI_CTLOPS_INITCHILD to another driver: this is
	 * is the first point at which the unit-address (or instance) of the
	 * last component of the path is available (even though the path is
	 * bound to the wrong driver at this point).
	 */
	if (devi->devi_flags & DEVI_REBIND) {
		p = devi->devi_rebinding_name;
		major = ddi_name_to_major(p);
		if (driver_active(major)) {
			if (formp)
				*formp = p;
			return (major);
		}

		/*
		 * If for some reason devi_rebinding_name no longer resolves
		 * to a proper driver then clear DEVI_REBIND.
		 */
		mutex_enter(&devi->devi_lock);
		devi->devi_flags &= ~DEVI_REBIND;
		mutex_exit(&devi->devi_lock);
	}

	/* look up compatible property */
	(void) lookup_compatible(dip, KM_SLEEP);
	compat = (void *)(devi->devi_compat_names);
	len = devi->devi_compat_length;

	/* find the highest precedence compatible form with a driver binding */
	while ((p = prom_decode_composite_string(compat, len, p)) != NULL) {
		major = ddi_name_to_major(p);
		if (driver_active(major)) {
			if (formp)
				*formp = p;
			return (major);
		}
	}

	/*
	 * none of the compatible forms have a driver binding, see if
	 * the node name has a driver binding.
	 */
	major = ddi_name_to_major(ddi_node_name(dip));
	if (driver_active(major))
		return (major);

	/* no driver */
	return (DDI_MAJOR_T_NONE);
}

/*
 * Static help functions
 */

/*
 * lookup the "compatible" property and cache it's contents in the
 * device node.
 */
static int
lookup_compatible(dev_info_t *dip, uint_t flag)
{
	int rv;
	int prop_flags;
	uint_t ncompatstrs;
	char **compatstrpp;
	char *di_compat_strp;
	size_t di_compat_strlen;

	if (DEVI(dip)->devi_compat_names) {
		return (DDI_SUCCESS);
	}

	prop_flags = DDI_PROP_TYPE_STRING | DDI_PROP_DONTPASS;

	if (flag & KM_NOSLEEP) {
		prop_flags |= DDI_PROP_DONTSLEEP;
	}

	if (ndi_dev_is_prom_node(dip) == 0) {
		prop_flags |= DDI_PROP_NOTPROM;
	}

	rv = ddi_prop_lookup_common(DDI_DEV_T_ANY, dip, prop_flags,
	    "compatible", &compatstrpp, &ncompatstrs,
	    ddi_prop_fm_decode_strings);

	if (rv == DDI_PROP_NOT_FOUND) {
		return (DDI_SUCCESS);
	}

	if (rv != DDI_PROP_SUCCESS) {
		return (DDI_FAILURE);
	}

	/*
	 * encode the compatible property data in the dev_info node
	 */
	rv = DDI_SUCCESS;
	if (ncompatstrs != 0) {
		di_compat_strp = encode_composite_string(compatstrpp,
		    ncompatstrs, &di_compat_strlen, flag);
		if (di_compat_strp != NULL) {
			DEVI(dip)->devi_compat_names = di_compat_strp;
			DEVI(dip)->devi_compat_length = di_compat_strlen;
		} else {
			rv = DDI_FAILURE;
		}
	}
	ddi_prop_free(compatstrpp);
	return (rv);
}

/*
 * Create a composite string from a list of strings.
 *
 * A composite string consists of a single buffer containing one
 * or more NULL terminated strings.
 */
static char *
encode_composite_string(char **strings, uint_t nstrings, size_t *retsz,
    uint_t flag)
{
	uint_t index;
	char  **strpp;
	uint_t slen;
	size_t cbuf_sz = 0;
	char *cbuf_p;
	char *cbuf_ip;

	if (strings == NULL || nstrings == 0 || retsz == NULL) {
		return (NULL);
	}

	for (index = 0, strpp = strings; index < nstrings; index++)
		cbuf_sz += strlen(*(strpp++)) + 1;

	if ((cbuf_p = kmem_alloc(cbuf_sz, flag)) == NULL) {
		cmn_err(CE_NOTE,
		    "?failed to allocate device node compatstr");
		return (NULL);
	}

	cbuf_ip = cbuf_p;
	for (index = 0, strpp = strings; index < nstrings; index++) {
		slen = strlen(*strpp);
		bcopy(*(strpp++), cbuf_ip, slen);
		cbuf_ip += slen;
		*(cbuf_ip++) = '\0';
	}

	*retsz = cbuf_sz;
	return (cbuf_p);
}

static void
link_to_driver_list(dev_info_t *dip)
{
	major_t major = DEVI(dip)->devi_major;
	struct devnames *dnp;

	ASSERT(major != DDI_MAJOR_T_NONE);

	/*
	 * Remove from orphan list
	 */
	if (ndi_dev_is_persistent_node(dip)) {
		dnp = &orphanlist;
		remove_from_dn_list(dnp, dip);
	}

	/*
	 * Add to per driver list
	 */
	dnp = &devnamesp[major];
	add_to_dn_list(dnp, dip);
}

static void
unlink_from_driver_list(dev_info_t *dip)
{
	major_t major = DEVI(dip)->devi_major;
	struct devnames *dnp;

	ASSERT(major != DDI_MAJOR_T_NONE);

	/*
	 * Remove from per-driver list
	 */
	dnp = &devnamesp[major];
	remove_from_dn_list(dnp, dip);

	/*
	 * Add to orphan list
	 */
	if (ndi_dev_is_persistent_node(dip)) {
		dnp = &orphanlist;
		add_to_dn_list(dnp, dip);
	}
}

/*
 * scan the per-driver list looking for dev_info "dip"
 */
static dev_info_t *
in_dn_list(struct devnames *dnp, dev_info_t *dip)
{
	struct dev_info *idevi;

	if ((idevi = DEVI(dnp->dn_head)) == NULL)
		return (NULL);

	while (idevi) {
		if (idevi == DEVI(dip))
			return (dip);
		idevi = idevi->devi_next;
	}
	return (NULL);
}

/*
 * insert devinfo node 'dip' into the per-driver instance list
 * headed by 'dnp'
 *
 * Nodes on the per-driver list are ordered: HW - SID - PSEUDO.  The order is
 * required for merging of .conf file data to work properly.
 */
static void
add_to_ordered_dn_list(struct devnames *dnp, dev_info_t *dip)
{
	dev_info_t **dipp;

	ASSERT(mutex_owned(&(dnp->dn_lock)));

	dipp = &dnp->dn_head;
	if (ndi_dev_is_prom_node(dip)) {
		/*
		 * Find the first non-prom node or end of list
		 */
		while (*dipp && (ndi_dev_is_prom_node(*dipp) != 0)) {
			dipp = (dev_info_t **)&DEVI(*dipp)->devi_next;
		}
	} else if (ndi_dev_is_persistent_node(dip)) {
		/*
		 * Find the first non-persistent node
		 */
		while (*dipp && (ndi_dev_is_persistent_node(*dipp) != 0)) {
			dipp = (dev_info_t **)&DEVI(*dipp)->devi_next;
		}
	} else {
		/*
		 * Find the end of the list
		 */
		while (*dipp) {
			dipp = (dev_info_t **)&DEVI(*dipp)->devi_next;
		}
	}

	DEVI(dip)->devi_next = DEVI(*dipp);
	*dipp = dip;
}

/*
 * add a list of device nodes to the device node list in the
 * devnames structure
 */
static void
add_to_dn_list(struct devnames *dnp, dev_info_t *dip)
{
	/*
	 * Look to see if node already exists
	 */
	LOCK_DEV_OPS(&(dnp->dn_lock));
	if (in_dn_list(dnp, dip)) {
		cmn_err(CE_NOTE, "add_to_dn_list: node %s already in list",
		    DEVI(dip)->devi_node_name);
	} else {
		add_to_ordered_dn_list(dnp, dip);
	}
	UNLOCK_DEV_OPS(&(dnp->dn_lock));
}

static void
remove_from_dn_list(struct devnames *dnp, dev_info_t *dip)
{
	dev_info_t **plist;

	LOCK_DEV_OPS(&(dnp->dn_lock));

	plist = (dev_info_t **)&dnp->dn_head;
	while (*plist && (*plist != dip)) {
		plist = (dev_info_t **)&DEVI(*plist)->devi_next;
	}

	if (*plist != NULL) {
		ASSERT(*plist == dip);
		*plist = (dev_info_t *)(DEVI(dip)->devi_next);
		DEVI(dip)->devi_next = NULL;
	} else {
		NDI_CONFIG_DEBUG((CE_NOTE,
		    "remove_from_dn_list: node %s not found in list",
		    DEVI(dip)->devi_node_name));
	}

	UNLOCK_DEV_OPS(&(dnp->dn_lock));
}

/*
 * Add and remove reference driver global property list
 */
static void
add_global_props(dev_info_t *dip)
{
	struct devnames *dnp;
	ddi_prop_list_t *plist;

	ASSERT(DEVI(dip)->devi_global_prop_list == NULL);
	ASSERT(DEVI(dip)->devi_major != DDI_MAJOR_T_NONE);

	dnp = &devnamesp[DEVI(dip)->devi_major];
	LOCK_DEV_OPS(&dnp->dn_lock);
	plist = dnp->dn_global_prop_ptr;
	if (plist == NULL) {
		UNLOCK_DEV_OPS(&dnp->dn_lock);
		return;
	}
	i_ddi_prop_list_hold(plist, dnp);
	UNLOCK_DEV_OPS(&dnp->dn_lock);

	mutex_enter(&DEVI(dip)->devi_lock);
	DEVI(dip)->devi_global_prop_list = plist;
	mutex_exit(&DEVI(dip)->devi_lock);
}

static void
remove_global_props(dev_info_t *dip)
{
	ddi_prop_list_t *proplist;

	mutex_enter(&DEVI(dip)->devi_lock);
	proplist = DEVI(dip)->devi_global_prop_list;
	DEVI(dip)->devi_global_prop_list = NULL;
	mutex_exit(&DEVI(dip)->devi_lock);

	if (proplist) {
		major_t major;
		struct devnames *dnp;

		major = ddi_driver_major(dip);
		ASSERT(major != DDI_MAJOR_T_NONE);
		dnp = &devnamesp[major];
		LOCK_DEV_OPS(&dnp->dn_lock);
		i_ddi_prop_list_rele(proplist, dnp);
		UNLOCK_DEV_OPS(&dnp->dn_lock);
	}
}

#ifdef DEBUG
/*
 * Set this variable to '0' to disable the optimization,
 * and to 2 to print debug message.
 */
static int optimize_dtree = 1;

static void
debug_dtree(dev_info_t *devi, struct dev_info *adevi, char *service)
{
	char *adeviname, *buf;

	/*
	 * Don't print unless optimize dtree is set to 2+
	 */
	if (optimize_dtree <= 1)
		return;

	buf = kmem_alloc(MAXNAMELEN, KM_SLEEP);
	adeviname = ddi_deviname((dev_info_t *)adevi, buf);
	if (*adeviname == '\0')
		adeviname = "root";

	cmn_err(CE_CONT, "%s %s -> %s\n",
	    ddi_deviname(devi, buf), service, adeviname);

	kmem_free(buf, MAXNAMELEN);
}
#else /* DEBUG */
#define	debug_dtree(a1, a2, a3)	 /* nothing */
#endif	/* DEBUG */

static void
ddi_optimize_dtree(dev_info_t *devi)
{
	struct dev_info *pdevi;
	struct bus_ops *b;

	pdevi = DEVI(devi)->devi_parent;
	ASSERT(pdevi);

	/*
	 * Set the unoptimized values
	 */
	DEVI(devi)->devi_bus_map_fault = pdevi;
	DEVI(devi)->devi_bus_dma_allochdl = pdevi;
	DEVI(devi)->devi_bus_dma_freehdl = pdevi;
	DEVI(devi)->devi_bus_dma_bindhdl = pdevi;
	DEVI(devi)->devi_bus_dma_bindfunc =
	    pdevi->devi_ops->devo_bus_ops->bus_dma_bindhdl;
	DEVI(devi)->devi_bus_dma_unbindhdl = pdevi;
	DEVI(devi)->devi_bus_dma_unbindfunc =
	    pdevi->devi_ops->devo_bus_ops->bus_dma_unbindhdl;
	DEVI(devi)->devi_bus_dma_flush = pdevi;
	DEVI(devi)->devi_bus_dma_win = pdevi;
	DEVI(devi)->devi_bus_dma_ctl = pdevi;
	DEVI(devi)->devi_bus_ctl = pdevi;

#ifdef DEBUG
	if (optimize_dtree == 0)
		return;
#endif /* DEBUG */

	b = pdevi->devi_ops->devo_bus_ops;

	if (i_ddi_map_fault == b->bus_map_fault) {
		DEVI(devi)->devi_bus_map_fault = pdevi->devi_bus_map_fault;
		debug_dtree(devi, DEVI(devi)->devi_bus_map_fault,
		    "bus_map_fault");
	}

	if (ddi_dma_allochdl == b->bus_dma_allochdl) {
		DEVI(devi)->devi_bus_dma_allochdl =
		    pdevi->devi_bus_dma_allochdl;
		debug_dtree(devi, DEVI(devi)->devi_bus_dma_allochdl,
		    "bus_dma_allochdl");
	}

	if (ddi_dma_freehdl == b->bus_dma_freehdl) {
		DEVI(devi)->devi_bus_dma_freehdl = pdevi->devi_bus_dma_freehdl;
		debug_dtree(devi, DEVI(devi)->devi_bus_dma_freehdl,
		    "bus_dma_freehdl");
	}

	if (ddi_dma_bindhdl == b->bus_dma_bindhdl) {
		DEVI(devi)->devi_bus_dma_bindhdl = pdevi->devi_bus_dma_bindhdl;
		DEVI(devi)->devi_bus_dma_bindfunc =
		    pdevi->devi_bus_dma_bindhdl->devi_ops->
		    devo_bus_ops->bus_dma_bindhdl;
		debug_dtree(devi, DEVI(devi)->devi_bus_dma_bindhdl,
		    "bus_dma_bindhdl");
	}

	if (ddi_dma_unbindhdl == b->bus_dma_unbindhdl) {
		DEVI(devi)->devi_bus_dma_unbindhdl =
		    pdevi->devi_bus_dma_unbindhdl;
		DEVI(devi)->devi_bus_dma_unbindfunc =
		    pdevi->devi_bus_dma_unbindhdl->devi_ops->
		    devo_bus_ops->bus_dma_unbindhdl;
		debug_dtree(devi, DEVI(devi)->devi_bus_dma_unbindhdl,
		    "bus_dma_unbindhdl");
	}

	if (ddi_dma_flush == b->bus_dma_flush) {
		DEVI(devi)->devi_bus_dma_flush = pdevi->devi_bus_dma_flush;
		debug_dtree(devi, DEVI(devi)->devi_bus_dma_flush,
		    "bus_dma_flush");
	}

	if (ddi_dma_win == b->bus_dma_win) {
		DEVI(devi)->devi_bus_dma_win = pdevi->devi_bus_dma_win;
		debug_dtree(devi, DEVI(devi)->devi_bus_dma_win,
		    "bus_dma_win");
	}

	if (ddi_dma_mctl == b->bus_dma_ctl) {
		DEVI(devi)->devi_bus_dma_ctl = pdevi->devi_bus_dma_ctl;
		debug_dtree(devi, DEVI(devi)->devi_bus_dma_ctl, "bus_dma_ctl");
	}

	if (ddi_ctlops == b->bus_ctl) {
		DEVI(devi)->devi_bus_ctl = pdevi->devi_bus_ctl;
		debug_dtree(devi, DEVI(devi)->devi_bus_ctl, "bus_ctl");
	}
}

#define	MIN_DEVINFO_LOG_SIZE	max_ncpus
#define	MAX_DEVINFO_LOG_SIZE	max_ncpus * 10

static void
da_log_init()
{
	devinfo_log_header_t *dh;
	int logsize = devinfo_log_size;

	if (logsize == 0)
		logsize = MIN_DEVINFO_LOG_SIZE;
	else if (logsize > MAX_DEVINFO_LOG_SIZE)
		logsize = MAX_DEVINFO_LOG_SIZE;

	dh = kmem_alloc(logsize * PAGESIZE, KM_SLEEP);
	mutex_init(&dh->dh_lock, NULL, MUTEX_DEFAULT, NULL);
	dh->dh_max = ((logsize * PAGESIZE) - sizeof (*dh)) /
	    sizeof (devinfo_audit_t) + 1;
	dh->dh_curr = -1;
	dh->dh_hits = 0;

	devinfo_audit_log = dh;
}

/*
 * Log the stack trace in per-devinfo audit structure and also enter
 * it into a system wide log for recording the time history.
 */
static void
da_log_enter(dev_info_t *dip)
{
	devinfo_audit_t *da_log, *da = DEVI(dip)->devi_audit;
	devinfo_log_header_t *dh = devinfo_audit_log;

	if (devinfo_audit_log == NULL)
		return;

	ASSERT(da != NULL);

	da->da_devinfo = dip;
	da->da_timestamp = gethrtime();
	da->da_thread = curthread;
	da->da_node_state = DEVI(dip)->devi_node_state;
	da->da_device_state = DEVI(dip)->devi_state;
	da->da_depth = getpcstack(da->da_stack, DDI_STACK_DEPTH);

	/*
	 * Copy into common log and note the location for tracing history
	 */
	mutex_enter(&dh->dh_lock);
	dh->dh_hits++;
	dh->dh_curr++;
	if (dh->dh_curr >= dh->dh_max)
		dh->dh_curr -= dh->dh_max;
	da_log = &dh->dh_entry[dh->dh_curr];
	mutex_exit(&dh->dh_lock);

	bcopy(da, da_log, sizeof (devinfo_audit_t));
	da->da_lastlog = da_log;
}

static void
attach_drivers()
{
	int i;
	for (i = 0; i < devcnt; i++) {
		struct devnames *dnp = &devnamesp[i];
		if ((dnp->dn_flags & DN_FORCE_ATTACH) &&
		    (ddi_hold_installed_driver((major_t)i) != NULL))
			ddi_rele_driver((major_t)i);
	}
}

/*
 * Launch a thread to force attach drivers. This avoids penalty on boot time.
 */
void
i_ddi_forceattach_drivers()
{

	/*
	 * Attach IB VHCI driver before the force-attach thread attaches the
	 * IB HCA driver. IB HCA driver will fail if IB Nexus has not yet
	 * been attached.
	 */
	(void) ddi_hold_installed_driver(ddi_name_to_major("ib"));

	(void) thread_create(NULL, 0, (void (*)())attach_drivers, NULL, 0, &p0,
	    TS_RUN, minclsyspri);
}

/*
 * This is a private DDI interface for optimizing boot performance.
 * I/O subsystem initialization is considered complete when devfsadm
 * is executed.
 *
 * NOTE: The start of syseventd happens to be a convenient indicator
 *	of the completion of I/O initialization during boot.
 *	The implementation should be replaced by something more robust.
 */
int
i_ddi_io_initialized()
{
	extern int sysevent_daemon_init;
	return (sysevent_daemon_init);
}

/*
 * May be used to determine system boot state
 * "Available" means the system is for the most part up
 * and initialized, with all system services either up or
 * capable of being started.  This state is set by devfsadm
 * during the boot process.  The /dev filesystem infers
 * from this when implicit reconfig can be performed,
 * ie, devfsadm can be invoked.  Please avoid making
 * further use of this unless it's really necessary.
 */
int
i_ddi_sysavail()
{
	return (devname_state & DS_SYSAVAIL);
}

/*
 * May be used to determine if boot is a reconfigure boot.
 */
int
i_ddi_reconfig()
{
	return (devname_state & DS_RECONFIG);
}

/*
 * Note system services are up, inform /dev.
 */
void
i_ddi_set_sysavail()
{
	if ((devname_state & DS_SYSAVAIL) == 0) {
		devname_state |= DS_SYSAVAIL;
		sdev_devstate_change();
	}
}

/*
 * Note reconfiguration boot, inform /dev.
 */
void
i_ddi_set_reconfig()
{
	if ((devname_state & DS_RECONFIG) == 0) {
		devname_state |= DS_RECONFIG;
		sdev_devstate_change();
	}
}


/*
 * device tree walking
 */

struct walk_elem {
	struct walk_elem *next;
	dev_info_t *dip;
};

static void
free_list(struct walk_elem *list)
{
	while (list) {
		struct walk_elem *next = list->next;
		kmem_free(list, sizeof (*list));
		list = next;
	}
}

static void
append_node(struct walk_elem **list, dev_info_t *dip)
{
	struct walk_elem *tail;
	struct walk_elem *elem = kmem_alloc(sizeof (*elem), KM_SLEEP);

	elem->next = NULL;
	elem->dip = dip;

	if (*list == NULL) {
		*list = elem;
		return;
	}

	tail = *list;
	while (tail->next)
		tail = tail->next;

	tail->next = elem;
}

/*
 * The implementation of ddi_walk_devs().
 */
static int
walk_devs(dev_info_t *dip, int (*f)(dev_info_t *, void *), void *arg,
    int do_locking)
{
	struct walk_elem *head = NULL;

	/*
	 * Do it in two passes. First pass invoke callback on each
	 * dip on the sibling list. Second pass invoke callback on
	 * children of each dip.
	 */
	while (dip) {
		switch ((*f)(dip, arg)) {
		case DDI_WALK_TERMINATE:
			free_list(head);
			return (DDI_WALK_TERMINATE);

		case DDI_WALK_PRUNESIB:
			/* ignore sibling by setting dip to NULL */
			append_node(&head, dip);
			dip = NULL;
			break;

		case DDI_WALK_PRUNECHILD:
			/* don't worry about children */
			dip = ddi_get_next_sibling(dip);
			break;

		case DDI_WALK_CONTINUE:
		default:
			append_node(&head, dip);
			dip = ddi_get_next_sibling(dip);
			break;
		}

	}

	/* second pass */
	while (head) {
		struct walk_elem *next = head->next;

		if (do_locking)
			ndi_devi_enter(head->dip);
		if (walk_devs(ddi_get_child(head->dip), f, arg, do_locking) ==
		    DDI_WALK_TERMINATE) {
			if (do_locking)
				ndi_devi_exit(head->dip);
			free_list(head);
			return (DDI_WALK_TERMINATE);
		}
		if (do_locking)
			ndi_devi_exit(head->dip);
		kmem_free(head, sizeof (*head));
		head = next;
	}

	return (DDI_WALK_CONTINUE);
}

/*
 * This general-purpose routine traverses the tree of dev_info nodes,
 * starting from the given node, and calls the given function for each
 * node that it finds with the current node and the pointer arg (which
 * can point to a structure of information that the function
 * needs) as arguments.
 *
 * It does the walk a layer at a time, not depth-first. The given function
 * must return one of the following values:
 *	DDI_WALK_CONTINUE
 *	DDI_WALK_PRUNESIB
 *	DDI_WALK_PRUNECHILD
 *	DDI_WALK_TERMINATE
 *
 * N.B. Since we walk the sibling list, the caller must ensure that
 *	the parent of dip is held against changes, unless the parent
 *	is rootnode.  ndi_devi_enter() on the parent is sufficient.
 *
 *	To avoid deadlock situations, caller must not attempt to
 *	configure/unconfigure/remove device node in (*f)(), nor should
 *	it attempt to recurse on other nodes in the system. Any
 *	ndi_devi_enter() done by (*f)() must occur 'at-or-below' the
 *	node entered prior to ddi_walk_devs(). Furthermore, if (*f)()
 *	does any multi-threading (in framework *or* in driver) then the
 *	ndi_devi_enter() calls done by dependent threads must be
 *	'strictly-below'.
 *
 *	This is not callable from device autoconfiguration routines.
 *	They include, but not limited to, _init(9e), _fini(9e), probe(9e),
 *	attach(9e), and detach(9e).
 */
void
ddi_walk_devs(dev_info_t *dip, int (*f)(dev_info_t *, void *), void *arg)
{

	ASSERT(dip == NULL || ddi_get_parent(dip) == NULL ||
	    DEVI_BUSY_OWNED(ddi_get_parent(dip)));

	(void) walk_devs(dip, f, arg, 1);
}

/*
 * This is a general-purpose routine traverses the per-driver list
 * and calls the given function for each node. must return one of
 * the following values:
 *	DDI_WALK_CONTINUE
 *	DDI_WALK_TERMINATE
 *
 * N.B. The same restrictions from ddi_walk_devs() apply.
 */
void
e_ddi_walk_driver(char *drv, int (*f)(dev_info_t *, void *), void *arg)
{
	major_t major;
	struct devnames *dnp;
	dev_info_t *dip;

	major = ddi_name_to_major(drv);
	if (major == DDI_MAJOR_T_NONE)
		return;

	dnp = &devnamesp[major];
	LOCK_DEV_OPS(&dnp->dn_lock);
	dip = dnp->dn_head;
	while (dip) {
		ndi_hold_devi(dip);
		UNLOCK_DEV_OPS(&dnp->dn_lock);
		if ((*f)(dip, arg) == DDI_WALK_TERMINATE) {
			ndi_rele_devi(dip);
			return;
		}
		LOCK_DEV_OPS(&dnp->dn_lock);
		ndi_rele_devi(dip);
		dip = ddi_get_next(dip);
	}
	UNLOCK_DEV_OPS(&dnp->dn_lock);
}

struct preroot_walk_block_devices_arg {
	int (*prwb_func)(const char *, void *);
	void *prwb_arg;
};

static int
preroot_walk_block_devices_walker(dev_info_t *dip, void *arg)
{
	struct preroot_walk_block_devices_arg *prwb = arg;

	if (i_ddi_devi_class(dip) == NULL ||
	    strcmp(i_ddi_devi_class(dip), ESC_DISK) != 0) {
		/*
		 * We do not think that this is a disk.
		 */
		return (DDI_WALK_CONTINUE);
	}

	for (struct ddi_minor_data *md = DEVI(dip)->devi_minor; md != NULL;
	    md = md->next) {
		if (md->ddm_spec_type != S_IFBLK) {
			/*
			 * We don't want the raw version of any block device.
			 */
			continue;
		}

		/*
		 * The node type taxonomy is hierarchical, with each level
		 * separated by colons.  Nodes of interest are either of the
		 * BLOCK type, or are prefixed with that type.
		 */
		if (strcmp(md->ddm_node_type, DDI_NT_BLOCK) != 0 &&
		    strncmp(md->ddm_node_type, DDI_NT_BLOCK ":",
		    strlen(DDI_NT_BLOCK ":")) != 0) {
			/*
			 * This minor node does not represent a block device.
			 */
			continue;
		}

		char buf[MAXPATHLEN];
		int r;
		if ((r = prwb->prwb_func(ddi_pathname_minor(md, buf),
		    prwb->prwb_arg)) == PREROOT_WALK_BLOCK_DEVICES_CANCEL) {
			/*
			 * The consumer does not need any more minor nodes.
			 */
			return (DDI_WALK_TERMINATE);
		}
		VERIFY3S(r, ==, PREROOT_WALK_BLOCK_DEVICES_NEXT);
	}

	return (DDI_WALK_CONTINUE);
}

/*
 * Private routine for ZFS when it needs to attach and scan all of the block
 * device minors in the system while looking for vdev labels.
 *
 * The callback function accepts a physical device path and the context
 * argument (arg) passed to this function; it should return
 * PREROOT_WALK_BLOCK_DEVICES_NEXT when more devices are required and
 * PREROOT_WALK_BLOCK_DEVICES_CANCEL to stop the walk.
 */
void
preroot_walk_block_devices(int (*callback)(const char *, void *), void *arg)
{
	/*
	 * First, force everything which can attach to do so.  The device class
	 * is not derived until at least one minor mode is created, so we
	 * cannot walk the device tree looking for a device class of ESC_DISK
	 * until everything is attached.
	 */
	(void) ndi_devi_config(ddi_root_node(), NDI_CONFIG | NDI_DEVI_PERSIST |
	    NDI_NO_EVENT | NDI_DRV_CONF_REPROBE);

	struct preroot_walk_block_devices_arg prwb;
	prwb.prwb_func = callback;
	prwb.prwb_arg = arg;

	ddi_walk_devs(ddi_root_node(), preroot_walk_block_devices_walker,
	    &prwb);
}

/*
 * argument to i_find_devi, a devinfo node search callback function.
 */
struct match_info {
	dev_info_t	*dip;		/* result */
	char		*nodename;	/* if non-null, nodename must match */
	int		instance;	/* if != -1, instance must match */
	int		attached;	/* if != 0, i_ddi_devi_attached() */
};

static int
i_find_devi(dev_info_t *dip, void *arg)
{
	struct match_info *info = (struct match_info *)arg;

	if (((info->nodename == NULL) ||
	    (strcmp(ddi_node_name(dip), info->nodename) == 0)) &&
	    ((info->instance == -1) ||
	    (ddi_get_instance(dip) == info->instance)) &&
	    ((info->attached == 0) || i_ddi_devi_attached(dip))) {
		info->dip = dip;
		ndi_hold_devi(dip);
		return (DDI_WALK_TERMINATE);
	}

	return (DDI_WALK_CONTINUE);
}

/*
 * Find dip with a known node name and instance and return with it held
 */
dev_info_t *
ddi_find_devinfo(char *nodename, int instance, int attached)
{
	struct match_info	info;

	info.nodename = nodename;
	info.instance = instance;
	info.attached = attached;
	info.dip = NULL;

	ddi_walk_devs(ddi_root_node(), i_find_devi, &info);
	return (info.dip);
}

extern ib_boot_prop_t *iscsiboot_prop;
static void
i_ddi_parse_iscsi_name(char *name, char **nodename, char **addrname,
    char **minorname)
{
	char *cp, *colon;
	static char nulladdrname[] = "";

	/* default values */
	if (nodename)
		*nodename = name;
	if (addrname)
		*addrname = nulladdrname;
	if (minorname)
		*minorname = NULL;

	cp = colon = name;
	while (*cp != '\0') {
		if (addrname && *cp == '@') {
			*addrname = cp + 1;
			*cp = '\0';
		} else if (minorname && *cp == ':') {
			*minorname = cp + 1;
			colon = cp;
		}
		++cp;
	}
	if (colon != name) {
		*colon = '\0';
	}
}

/*
 * Parse for name, addr, and minor names. Some args may be NULL.
 */
void
i_ddi_parse_name(char *name, char **nodename, char **addrname, char **minorname)
{
	char *cp;
	static char nulladdrname[] = "";

	/* default values */
	if (nodename)
		*nodename = name;
	if (addrname)
		*addrname = nulladdrname;
	if (minorname)
		*minorname = NULL;

	cp = name;
	while (*cp != '\0') {
		if (addrname && *cp == '@') {
			*addrname = cp + 1;
			*cp = '\0';
		} else if (minorname && *cp == ':') {
			*minorname = cp + 1;
			*cp = '\0';
		}
		++cp;
	}
}

static char *
child_path_to_driver(dev_info_t *parent, char *child_name, char *unit_address)
{
	char *p, *drvname = NULL;
	major_t maj;

	/*
	 * Construct the pathname and ask the implementation
	 * if it can do a driver = f(pathname) for us, if not
	 * we'll just default to using the node-name that
	 * was given to us.  We want to do this first to
	 * allow the platform to use 'generic' names for
	 * legacy device drivers.
	 */
	p = kmem_zalloc(MAXPATHLEN, KM_SLEEP);
	(void) ddi_pathname(parent, p);
	(void) strcat(p, "/");
	(void) strcat(p, child_name);
	if (unit_address && *unit_address) {
		(void) strcat(p, "@");
		(void) strcat(p, unit_address);
	}

	/*
	 * Get the binding. If there is none, return the child_name
	 * and let the caller deal with it.
	 */
	maj = path_to_major(p);

	kmem_free(p, MAXPATHLEN);

	if (maj != DDI_MAJOR_T_NONE)
		drvname = ddi_major_to_name(maj);
	if (drvname == NULL)
		drvname = child_name;

	return (drvname);
}


#define	PCI_EX_CLASS	"pciexclass"
#define	PCI_EX		"pciex"
#define	PCI_CLASS	"pciclass"
#define	PCI		"pci"

int
ddi_is_pci_dip(dev_info_t *dip)
{
	char	*prop = NULL;

	if (ddi_prop_lookup_string(DDI_DEV_T_ANY, dip, DDI_PROP_DONTPASS,
	    "compatible", &prop) == DDI_PROP_SUCCESS) {
		ASSERT(prop);
		if (strncmp(prop, PCI_EX_CLASS, sizeof (PCI_EX_CLASS) - 1)
		    == 0 ||
		    strncmp(prop, PCI_EX, sizeof (PCI_EX)- 1)
		    == 0 ||
		    strncmp(prop, PCI_CLASS, sizeof (PCI_CLASS) - 1)
		    == 0 ||
		    strncmp(prop, PCI, sizeof (PCI) - 1)
		    == 0) {
			ddi_prop_free(prop);
			return (1);
		}
	}

	if (prop != NULL) {
		ddi_prop_free(prop);
	}

	return (0);
}

/*
 * Given the pathname of a device, fill in the dev_info_t value and/or the
 * dev_t value and/or the spectype, depending on which parameters are non-NULL.
 * If there is an error, this function returns -1.
 *
 * NOTE: If this function returns the dev_info_t structure, then it
 * does so with a hold on the devi. Caller should ensure that they get
 * decremented via ddi_release_devi() or ndi_rele_devi();
 *
 * This function can be invoked in the boot case for a pathname without
 * device argument (:xxxx), traditionally treated as a minor name.
 * In this case, we do the following
 * (1) search the minor node of type DDM_DEFAULT.
 * (2) if no DDM_DEFAULT minor exists, then the first non-alias minor is chosen.
 * (3) if neither exists, a dev_t is faked with minor number = instance.
 * As of S9 FCS, no instance of #1 exists. #2 is used by several platforms
 * to default the boot partition to :a possibly by other OBP definitions.
 * #3 is used for booting off network interfaces, most SPARC network
 * drivers support Style-2 only, so only DDM_ALIAS minor exists.
 *
 * It is possible for OBP to present device args at the end of the path as
 * well as in the middle. For example, with IB the following strings are
 * valid boot paths.
 *	a /pci@8,700000/ib@1,2:port=1,pkey=ff,dhcp,...
 *	b /pci@8,700000/ib@1,1:port=1/ioc@xxxxxx,yyyyyyy:dhcp
 * Case (a), we first look for minor node "port=1,pkey...".
 * Failing that, we will pass "port=1,pkey..." to the bus_config
 * entry point of ib (HCA) driver.
 * Case (b), configure ib@1,1 as usual. Then invoke ib's bus_config
 * with argument "ioc@xxxxxxx,yyyyyyy:port=1". After configuring
 * the ioc, look for minor node dhcp. If not found, pass ":dhcp"
 * to ioc's bus_config entry point.
 */
int
resolve_pathname(const char *pathname, dev_info_t **dipp, dev_t *devtp,
    int *spectypep)
{
	int			error;
	dev_info_t		*parent, *child;
	struct pathname		pn;
	char			*component, *config_name;
	char			*minorname = NULL;
	char			*prev_minor = NULL;
	dev_t			devt = NODEV;
	int			spectype;
	struct ddi_minor_data	*dmn;

	if (*pathname != '/')
		return (EINVAL);
	parent = ddi_root_node();	/* Begin at the top of the tree */

	if (error = pn_get(pathname, UIO_SYSSPACE, &pn))
		return (error);
	pn_skipslash(&pn);

	ASSERT(i_ddi_devi_attached(parent));
	ndi_hold_devi(parent);

	component = kmem_alloc(MAXNAMELEN, KM_SLEEP);
	config_name = kmem_alloc(MAXNAMELEN, KM_SLEEP);

	while (pn_pathleft(&pn)) {
		/* remember prev minor (:xxx) in the middle of path */
		if (minorname)
			prev_minor = i_ddi_strdup(minorname, KM_SLEEP);

		/* Get component and chop off minorname */
		(void) pn_getcomponent(&pn, component);
		if ((iscsiboot_prop != NULL) &&
		    (strcmp((DEVI(parent)->devi_node_name), "iscsi") == 0)) {
			i_ddi_parse_iscsi_name(component, NULL, NULL,
			    &minorname);
		} else {
			i_ddi_parse_name(component, NULL, NULL, &minorname);
		}
		if (prev_minor == NULL) {
			(void) snprintf(config_name, MAXNAMELEN, "%s",
			    component);
		} else {
			(void) snprintf(config_name, MAXNAMELEN, "%s:%s",
			    component, prev_minor);
			kmem_free(prev_minor, strlen(prev_minor) + 1);
			prev_minor = NULL;
		}

		/*
		 * Find and configure the child
		 */
		if (ndi_devi_config_one(parent, config_name, &child,
		    NDI_PROMNAME | NDI_NO_EVENT) != NDI_SUCCESS) {
			ndi_rele_devi(parent);
			pn_free(&pn);
			kmem_free(component, MAXNAMELEN);
			kmem_free(config_name, MAXNAMELEN);
			return (-1);
		}

		ASSERT(i_ddi_devi_attached(child));
		ndi_rele_devi(parent);
		parent = child;
		pn_skipslash(&pn);
	}

	/*
	 * First look for a minor node matching minorname.
	 * Failing that, try to pass minorname to bus_config().
	 */
	if (minorname && i_ddi_minorname_to_devtspectype(parent,
	    minorname, &devt, &spectype) == DDI_FAILURE) {
		(void) snprintf(config_name, MAXNAMELEN, "%s", minorname);
		if (ndi_devi_config_obp_args(parent,
		    config_name, &child, 0) != NDI_SUCCESS) {
			ndi_rele_devi(parent);
			pn_free(&pn);
			kmem_free(component, MAXNAMELEN);
			kmem_free(config_name, MAXNAMELEN);
			NDI_CONFIG_DEBUG((CE_NOTE,
			    "%s: minor node not found\n", pathname));
			return (-1);
		}
		minorname = NULL;	/* look for default minor */
		ASSERT(i_ddi_devi_attached(child));
		ndi_rele_devi(parent);
		parent = child;
	}

	if (devtp || spectypep) {
		if (minorname == NULL) {
			/*
			 * Search for a default entry with an active
			 * ndi_devi_enter to protect the devi_minor list.
			 */
			ndi_devi_enter(parent);
			for (dmn = DEVI(parent)->devi_minor; dmn;
			    dmn = dmn->next) {
				if (dmn->type == DDM_DEFAULT) {
					devt = dmn->ddm_dev;
					spectype = dmn->ddm_spec_type;
					break;
				}
			}

			if (devt == NODEV) {
				/*
				 * No default minor node, try the first one;
				 * else, assume 1-1 instance-minor mapping
				 */
				dmn = DEVI(parent)->devi_minor;
				if (dmn && ((dmn->type == DDM_MINOR) ||
				    (dmn->type == DDM_INTERNAL_PATH))) {
					devt = dmn->ddm_dev;
					spectype = dmn->ddm_spec_type;
				} else {
					devt = makedevice(
					    DEVI(parent)->devi_major,
					    ddi_get_instance(parent));
					spectype = S_IFCHR;
				}
			}
			ndi_devi_exit(parent);
		}
		if (devtp)
			*devtp = devt;
		if (spectypep)
			*spectypep = spectype;
	}

	pn_free(&pn);
	kmem_free(component, MAXNAMELEN);
	kmem_free(config_name, MAXNAMELEN);

	/*
	 * If there is no error, return the appropriate parameters
	 */
	if (dipp != NULL)
		*dipp = parent;
	else {
		/*
		 * We should really keep the ref count to keep the node from
		 * detaching but ddi_pathname_to_dev_t() specifies a NULL dipp,
		 * so we have no way of passing back the held dip.  Not holding
		 * the dip allows detaches to occur - which can cause problems
		 * for subsystems which call ddi_pathname_to_dev_t (console).
		 *
		 * Instead of holding the dip, we place a ddi-no-autodetach
		 * property on the node to prevent auto detaching.
		 *
		 * The right fix is to remove ddi_pathname_to_dev_t and replace
		 * it, and all references, with a call that specifies a dipp.
		 * In addition, the callers of this new interfaces would then
		 * need to call ndi_rele_devi when the reference is complete.
		 *
		 */
		(void) ddi_prop_update_int(DDI_DEV_T_NONE, parent,
		    DDI_NO_AUTODETACH, 1);
		ndi_rele_devi(parent);
	}

	return (0);
}

/*
 * Given the pathname of a device, return the dev_t of the corresponding
 * device.  Returns NODEV on failure.
 *
 * Note that this call sets the DDI_NO_AUTODETACH property on the devinfo node.
 */
dev_t
ddi_pathname_to_dev_t(char *pathname)
{
	dev_t devt;
	int error;

	error = resolve_pathname(pathname, NULL, &devt, NULL);

	return (error ? NODEV : devt);
}

/*
 * Translate a prom pathname to kernel devfs pathname.
 * Caller is assumed to allocate devfspath memory of
 * size at least MAXPATHLEN
 *
 * The prom pathname may not include minor name, but
 * devfs pathname has a minor name portion.
 */
int
i_ddi_prompath_to_devfspath(char *prompath, char *devfspath)
{
	dev_t		devt = (dev_t)NODEV;
	dev_info_t	*dip = NULL;
	char		*minor_name = NULL;
	int		spectype;
	int		error;

	error = resolve_pathname(prompath, &dip, &devt, &spectype);
	if (error)
		return (DDI_FAILURE);
	ASSERT(dip && devt != NODEV);

	/*
	 * Get in-kernel devfs pathname
	 */
	(void) ddi_pathname(dip, devfspath);

	ndi_devi_enter(dip);
	minor_name = i_ddi_devtspectype_to_minorname(dip, devt, spectype);
	if (minor_name) {
		(void) strcat(devfspath, ":");
		(void) strcat(devfspath, minor_name);
	} else {
		/*
		 * If minor_name is NULL, we have an alias minor node.
		 * So manufacture a path to the corresponding clone minor.
		 */
		(void) snprintf(devfspath, MAXPATHLEN, "%s:%s",
		    CLONE_PATH, ddi_driver_name(dip));
	}
	ndi_devi_exit(dip);

	/* release hold from resolve_pathname() */
	ndi_rele_devi(dip);
	return (0);
}

/*
 * This function is intended to identify drivers that must quiesce for fast
 * reboot to succeed.  It does not claim to have more knowledge about the device
 * than its driver.  If a driver has implemented quiesce(), it will be invoked;
 * if a so identified driver does not manage any device that needs to be
 * quiesced, it must explicitly set its devo_quiesce dev_op to
 * ddi_quiesce_not_needed.
 */
static int skip_pseudo = 1;	/* Skip pseudo devices */
static int skip_non_hw = 1;	/* Skip devices with no hardware property */
static int
should_implement_quiesce(dev_info_t *dip)
{
	struct dev_info *devi = DEVI(dip);
	dev_info_t *pdip;

	/*
	 * If dip is pseudo and skip_pseudo is set, driver doesn't have to
	 * implement quiesce().
	 */
	if (skip_pseudo &&
	    strncmp(ddi_binding_name(dip), "pseudo", sizeof ("pseudo")) == 0)
		return (0);

	/*
	 * If parent dip is pseudo and skip_pseudo is set, driver doesn't have
	 * to implement quiesce().
	 */
	if (skip_pseudo && (pdip = ddi_get_parent(dip)) != NULL &&
	    strncmp(ddi_binding_name(pdip), "pseudo", sizeof ("pseudo")) == 0)
		return (0);

	/*
	 * If not attached, driver doesn't have to implement quiesce().
	 */
	if (!i_ddi_devi_attached(dip))
		return (0);

	/*
	 * If dip has no hardware property and skip_non_hw is set,
	 * driver doesn't have to implement quiesce().
	 */
	if (skip_non_hw && devi->devi_hw_prop_ptr == NULL)
		return (0);

	return (1);
}

static int
driver_has_quiesce(struct dev_ops *ops)
{
	if ((ops->devo_rev >= 4) && (ops->devo_quiesce != nodev) &&
	    (ops->devo_quiesce != NULL) && (ops->devo_quiesce != nulldev) &&
	    (ops->devo_quiesce != ddi_quiesce_not_supported))
		return (1);
	else
		return (0);
}

/*
 * Check to see if a driver has implemented the quiesce() DDI function.
 */
int
check_driver_quiesce(dev_info_t *dip, void *arg)
{
	struct dev_ops *ops;

	if (!should_implement_quiesce(dip))
		return (DDI_WALK_CONTINUE);

	if ((ops = ddi_get_driver(dip)) == NULL)
		return (DDI_WALK_CONTINUE);

	if (driver_has_quiesce(ops)) {
		if ((quiesce_debug & 0x2) == 0x2) {
			if (ops->devo_quiesce == ddi_quiesce_not_needed)
				cmn_err(CE_CONT, "%s does not need to be "
				    "quiesced", ddi_driver_name(dip));
			else
				cmn_err(CE_CONT, "%s has quiesce routine",
				    ddi_driver_name(dip));
		}
	} else {
		if (arg != NULL)
			*((int *)arg) = -1;
		cmn_err(CE_WARN, "%s has no quiesce()", ddi_driver_name(dip));
	}

	return (DDI_WALK_CONTINUE);
}

/*
 * Quiesce device.
 */
static void
quiesce_one_device(dev_info_t *dip, void *arg)
{
	struct dev_ops *ops;
	int should_quiesce = 0;

	/*
	 * If the device is not attached it doesn't need to be quiesced.
	 */
	if (!i_ddi_devi_attached(dip))
		return;

	if ((ops = ddi_get_driver(dip)) == NULL)
		return;

	should_quiesce = should_implement_quiesce(dip);

	/*
	 * If there's an implementation of quiesce(), always call it even if
	 * some of the drivers don't have quiesce() or quiesce() have failed
	 * so we can do force fast reboot.  The implementation of quiesce()
	 * should not negatively affect a regular reboot.
	 */
	if (driver_has_quiesce(ops)) {
		int rc = DDI_SUCCESS;

		if (ops->devo_quiesce == ddi_quiesce_not_needed)
			return;

		rc = devi_quiesce(dip);

		if (rc != DDI_SUCCESS && should_quiesce) {
#ifdef DEBUG
			cmn_err(CE_WARN, "quiesce() failed for %s%d",
			    ddi_driver_name(dip), ddi_get_instance(dip));
#endif /* DEBUG */
			if (arg != NULL)
				*((int *)arg) = -1;
		}
	} else if (should_quiesce && arg != NULL) {
		*((int *)arg) = -1;
	}
}

/*
 * Traverse the dev info tree in a breadth-first manner so that we quiesce
 * children first.  All subtrees under the parent of dip will be quiesced.
 */
void
quiesce_devices(dev_info_t *dip, void *arg)
{
	/*
	 * if we're reached here, the device tree better not be changing.
	 * so either devinfo_freeze better be set or we better be panicking.
	 */
	ASSERT(devinfo_freeze || panicstr);

	for (; dip != NULL; dip = ddi_get_next_sibling(dip)) {
		quiesce_devices(ddi_get_child(dip), arg);

		quiesce_one_device(dip, arg);
	}
}

/*
 * Reset all the pure leaf drivers on the system at halt time
 */
static int
reset_leaf_device(dev_info_t *dip, void *arg)
{
	_NOTE(ARGUNUSED(arg))
	struct dev_ops *ops;

	/* if the device doesn't need to be reset then there's nothing to do */
	if (!DEVI_NEED_RESET(dip))
		return (DDI_WALK_CONTINUE);

	/*
	 * if the device isn't a char/block device or doesn't have a
	 * reset entry point then there's nothing to do.
	 */
	ops = ddi_get_driver(dip);
	if ((ops == NULL) || (ops->devo_cb_ops == NULL) ||
	    (ops->devo_reset == nodev) || (ops->devo_reset == nulldev) ||
	    (ops->devo_reset == NULL))
		return (DDI_WALK_CONTINUE);

	if (DEVI_IS_ATTACHING(dip) || DEVI_IS_DETACHING(dip)) {
		static char path[MAXPATHLEN];

		/*
		 * bad news, this device has blocked in it's attach or
		 * detach routine, which means it not safe to call it's
		 * devo_reset() entry point.
		 */
		cmn_err(CE_WARN, "unable to reset device: %s",
		    ddi_pathname(dip, path));
		return (DDI_WALK_CONTINUE);
	}

	NDI_CONFIG_DEBUG((CE_NOTE, "resetting %s%d\n",
	    ddi_driver_name(dip), ddi_get_instance(dip)));

	(void) devi_reset(dip, DDI_RESET_FORCE);
	return (DDI_WALK_CONTINUE);
}

void
reset_leaves(void)
{
	/*
	 * if we're reached here, the device tree better not be changing.
	 * so either devinfo_freeze better be set or we better be panicking.
	 */
	ASSERT(devinfo_freeze || panicstr);

	(void) walk_devs(top_devinfo, reset_leaf_device, NULL, 0);
}


/*
 * devtree_freeze() must be called before quiesce_devices() and reset_leaves()
 * during a normal system shutdown.  It attempts to ensure that there are no
 * outstanding attach or detach operations in progress when quiesce_devices() or
 * reset_leaves()is invoked.  It must be called before the system becomes
 * single-threaded because device attach and detach are multi-threaded
 * operations.	(note that during system shutdown the system doesn't actually
 * become single-thread since other threads still exist, but the shutdown thread
 * will disable preemption for itself, raise it's pil, and stop all the other
 * cpus in the system there by effectively making the system single-threaded.)
 */
void
devtree_freeze(void)
{
	int delayed = 0;

	/* if we're panicking then the device tree isn't going to be changing */
	if (panicstr)
		return;

	/* stop all dev_info state changes in the device tree */
	devinfo_freeze = gethrtime();

	/*
	 * if we're not panicking and there are on-going attach or detach
	 * operations, wait for up to 3 seconds for them to finish.  This
	 * is a randomly chosen interval but this should be ok because:
	 * - 3 seconds is very small relative to the deadman timer.
	 * - normal attach and detach operations should be very quick.
	 * - attach and detach operations are fairly rare.
	 */
	while (!panicstr && atomic_add_long_nv(&devinfo_attach_detach, 0) &&
	    (delayed < 3)) {
		delayed += 1;

		/* do a sleeping wait for one second */
		ASSERT(!servicing_interrupt());
		delay(drv_usectohz(MICROSEC));
	}
}

static int
bind_dip(dev_info_t *dip, void *arg)
{
	_NOTE(ARGUNUSED(arg))
	char	*path;
	major_t	major, pmajor;

	/*
	 * If the node is currently bound to the wrong driver, try to unbind
	 * so that we can rebind to the correct driver.
	 */
	if (i_ddi_node_state(dip) >= DS_BOUND) {
		major = ddi_compatible_driver_major(dip, NULL);
		if ((DEVI(dip)->devi_major == major) &&
		    (i_ddi_node_state(dip) >= DS_INITIALIZED)) {
			/*
			 * Check for a path-oriented driver alias that
			 * takes precedence over current driver binding.
			 */
			path = kmem_alloc(MAXPATHLEN, KM_SLEEP);
			(void) ddi_pathname(dip, path);
			pmajor = ddi_name_to_major(path);
			if (driver_active(pmajor))
				major = pmajor;
			kmem_free(path, MAXPATHLEN);
		}

		/* attempt unbind if current driver is incorrect */
		if (driver_active(major) &&
		    (major != DEVI(dip)->devi_major))
			(void) ndi_devi_unbind_driver(dip);
	}

	/* If unbound, try to bind to a driver */
	if (i_ddi_node_state(dip) < DS_BOUND)
		(void) ndi_devi_bind_driver(dip, 0);

	return (DDI_WALK_CONTINUE);
}

void
i_ddi_bind_devs(void)
{
	/* flush devfs so that ndi_devi_unbind_driver will work when possible */
	(void) devfs_clean(top_devinfo, NULL, 0);

	ddi_walk_devs(top_devinfo, bind_dip, (void *)NULL);
}

/* callback data for unbind_children_by_alias() */
typedef struct unbind_data {
	major_t	drv_major;
	char	*drv_alias;
	int	ndevs_bound;
	int	unbind_errors;
} unbind_data_t;

/*
 * A utility function provided for testing and support convenience
 * Called for each device during an upgrade_drv -d bound to the alias
 * that cannot be unbound due to device in use.
 */
static void
unbind_alias_dev_in_use(dev_info_t *dip, char *alias)
{
	if (moddebug & MODDEBUG_BINDING) {
		cmn_err(CE_CONT, "%s%d: state %d: bound to %s\n",
		    ddi_driver_name(dip), ddi_get_instance(dip),
		    i_ddi_node_state(dip), alias);
	}
}

/*
 * walkdevs callback for unbind devices bound to specific driver
 * and alias.  Invoked within the context of update_drv -d <alias>.
 */
static int
unbind_children_by_alias(dev_info_t *dip, void *arg)
{
	dev_info_t	*cdip;
	dev_info_t	*next;
	unbind_data_t	*ub = (unbind_data_t *)(uintptr_t)arg;
	int		rv;

	/*
	 * We are called from update_drv to try to unbind a specific
	 * set of aliases for a driver.  Unbind what persistent nodes
	 * we can, and return the number of nodes which cannot be unbound.
	 * If not all nodes can be unbound, update_drv leaves the
	 * state of the driver binding files unchanged, except in
	 * the case of -f.
	 */
	ndi_devi_enter(dip);
	for (cdip = ddi_get_child(dip); cdip; cdip = next) {
		next = ddi_get_next_sibling(cdip);
		if ((ddi_driver_major(cdip) != ub->drv_major) ||
		    (strcmp(DEVI(cdip)->devi_node_name, ub->drv_alias) != 0))
			continue;
		if (i_ddi_node_state(cdip) >= DS_BOUND) {
			rv = ndi_devi_unbind_driver(cdip);
			if (rv != DDI_SUCCESS ||
			    (i_ddi_node_state(cdip) >= DS_BOUND)) {
				unbind_alias_dev_in_use(cdip, ub->drv_alias);
				ub->ndevs_bound++;
				continue;
			}
			if (ndi_dev_is_persistent_node(cdip) == 0)
				(void) ddi_remove_child(cdip, 0);
		}
	}
	ndi_devi_exit(dip);

	return (DDI_WALK_CONTINUE);
}

/*
 * Unbind devices by driver & alias
 * Context: update_drv [-f] -d -i <alias> <driver>
 */
int
i_ddi_unbind_devs_by_alias(major_t major, char *alias)
{
	unbind_data_t	*ub;
	int		rv;

	ub = kmem_zalloc(sizeof (*ub), KM_SLEEP);
	ub->drv_major = major;
	ub->drv_alias = alias;
	ub->ndevs_bound = 0;
	ub->unbind_errors = 0;

	/* flush devfs so that ndi_devi_unbind_driver will work when possible */
	(void) devfs_clean(top_devinfo, NULL, 0);
	ddi_walk_devs(top_devinfo, unbind_children_by_alias,
	    (void *)(uintptr_t)ub);

	/* return the number of devices remaining bound to the alias */
	rv = ub->ndevs_bound + ub->unbind_errors;
	kmem_free(ub, sizeof (*ub));
	return (rv);
}

/*
 * walkdevs callback for unbind devices by driver
 */
static int
unbind_children_by_driver(dev_info_t *dip, void *arg)
{
	dev_info_t	*cdip;
	dev_info_t	*next;
	major_t		major = (major_t)(uintptr_t)arg;
	int		rv;

	/*
	 * We are called either from rem_drv or update_drv when reloading
	 * a driver.conf file. In either case, we unbind persistent nodes
	 * and destroy .conf nodes. In the case of rem_drv, this will be
	 * the final state. In the case of update_drv,	i_ddi_bind_devs()
	 * may be invoked later to re-enumerate (new) driver.conf rebind
	 * persistent nodes.
	 */
	ndi_devi_enter(dip);
	for (cdip = ddi_get_child(dip); cdip; cdip = next) {
		next = ddi_get_next_sibling(cdip);
		if (ddi_driver_major(cdip) != major)
			continue;
		if (i_ddi_node_state(cdip) >= DS_BOUND) {
			rv = ndi_devi_unbind_driver(cdip);
			if (rv == DDI_FAILURE ||
			    (i_ddi_node_state(cdip) >= DS_BOUND))
				continue;
			if (ndi_dev_is_persistent_node(cdip) == 0)
				(void) ddi_remove_child(cdip, 0);
		}
	}
	ndi_devi_exit(dip);

	return (DDI_WALK_CONTINUE);
}

/*
 * Unbind devices by driver
 * Context: rem_drv or unload driver.conf
 */
void
i_ddi_unbind_devs(major_t major)
{
	/* flush devfs so that ndi_devi_unbind_driver will work when possible */
	(void) devfs_clean(top_devinfo, NULL, 0);
	ddi_walk_devs(top_devinfo, unbind_children_by_driver,
	    (void *)(uintptr_t)major);
}

/*
 * I/O Hotplug control
 */

/*
 * create and attach a dev_info node from a .conf file spec
 */
static void
init_spec_child(dev_info_t *pdip, struct hwc_spec *specp, uint_t flags)
{
	_NOTE(ARGUNUSED(flags))
	dev_info_t *dip;
	char *node_name;

	if (((node_name = specp->hwc_devi_name) == NULL) ||
	    (ddi_name_to_major(node_name) == DDI_MAJOR_T_NONE)) {
		char *tmp = node_name;
		if (tmp == NULL)
			tmp = "<none>";
		cmn_err(CE_CONT,
		    "init_spec_child: parent=%s, bad spec (%s)\n",
		    ddi_node_name(pdip), tmp);
		return;
	}

	dip = i_ddi_alloc_node(pdip, node_name, (pnode_t)DEVI_PSEUDO_NODEID,
	    -1, specp->hwc_devi_sys_prop_ptr, KM_SLEEP);

	if (dip == NULL)
		return;

	if (ddi_initchild(pdip, dip) != DDI_SUCCESS)
		(void) ddi_remove_child(dip, 0);
}

/*
 * Lookup hwc specs from hash tables and make children from the spec
 * Because some .conf children are "merge" nodes, we also initialize
 * .conf children to merge properties onto hardware nodes.
 *
 * The pdip must be held busy.
 */
int
i_ndi_make_spec_children(dev_info_t *pdip, uint_t flags)
{
	extern struct hwc_spec *hwc_get_child_spec(dev_info_t *, major_t);
	struct hwc_spec		*list, *spec;

	ndi_devi_enter(pdip);
	if (DEVI(pdip)->devi_flags & DEVI_MADE_CHILDREN) {
		ndi_devi_exit(pdip);
		return (DDI_SUCCESS);
	}

	list = hwc_get_child_spec(pdip, DDI_MAJOR_T_NONE);
	for (spec = list; spec != NULL; spec = spec->hwc_next) {
		init_spec_child(pdip, spec, flags);
	}
	hwc_free_spec_list(list);

	mutex_enter(&DEVI(pdip)->devi_lock);
	DEVI(pdip)->devi_flags |= DEVI_MADE_CHILDREN;
	mutex_exit(&DEVI(pdip)->devi_lock);
	ndi_devi_exit(pdip);
	return (DDI_SUCCESS);
}

/*
 * Run initchild on all child nodes such that instance assignment
 * for multiport network cards are contiguous.
 *
 * The pdip must be held busy.
 */
static void
i_ndi_init_hw_children(dev_info_t *pdip, uint_t flags)
{
	dev_info_t *dip;

	ASSERT(DEVI(pdip)->devi_flags & DEVI_MADE_CHILDREN);

	/* contiguous instance assignment */
	e_ddi_enter_instance();
	dip = ddi_get_child(pdip);
	while (dip) {
		if (ndi_dev_is_persistent_node(dip))
			(void) i_ndi_config_node(dip, DS_INITIALIZED, flags);
		dip = ddi_get_next_sibling(dip);
	}
	e_ddi_exit_instance();
}

/*
 * report device status
 */
static void
i_ndi_devi_report_status_change(dev_info_t *dip, char *path)
{
	char *status;

	if (!DEVI_NEED_REPORT(dip) ||
	    (i_ddi_node_state(dip) < DS_INITIALIZED) ||
	    ndi_dev_is_hidden_node(dip)) {
		return;
	}

	/* Invalidate the devinfo snapshot cache */
	i_ddi_di_cache_invalidate();

	if (DEVI_IS_DEVICE_REMOVED(dip)) {
		status = "removed";
	} else if (DEVI_IS_DEVICE_OFFLINE(dip)) {
		status = "offline";
	} else if (DEVI_IS_DEVICE_DOWN(dip)) {
		status = "down";
	} else if (DEVI_IS_BUS_QUIESCED(dip)) {
		status = "quiesced";
	} else if (DEVI_IS_BUS_DOWN(dip)) {
		status = "down";
	} else if (i_ddi_devi_attached(dip)) {
		status = "online";
	} else {
		status = "unknown";
	}

	if (path == NULL) {
		path = kmem_alloc(MAXPATHLEN, KM_SLEEP);
		cmn_err(CE_CONT, "?%s (%s%d) %s\n",
		    ddi_pathname(dip, path), ddi_driver_name(dip),
		    ddi_get_instance(dip), status);
		kmem_free(path, MAXPATHLEN);
	} else {
		cmn_err(CE_CONT, "?%s (%s%d) %s\n",
		    path, ddi_driver_name(dip),
		    ddi_get_instance(dip), status);
	}

	mutex_enter(&(DEVI(dip)->devi_lock));
	DEVI_REPORT_DONE(dip);
	mutex_exit(&(DEVI(dip)->devi_lock));
}

/*
 * log a notification that a dev_info node has been configured.
 */
static int
i_log_devfs_add_devinfo(dev_info_t *dip, uint_t flags)
{
	int			se_err;
	char			*pathname;
	sysevent_t		*ev;
	sysevent_id_t		eid;
	sysevent_value_t	se_val;
	sysevent_attr_list_t	*ev_attr_list = NULL;
	char			*class_name;
	int			no_transport = 0;

	ASSERT(dip && ddi_get_parent(dip) &&
	    DEVI_BUSY_OWNED(ddi_get_parent(dip)));

	/* do not generate ESC_DEVFS_DEVI_ADD event during boot */
	if (!i_ddi_io_initialized())
		return (DDI_SUCCESS);

	/* Invalidate the devinfo snapshot cache */
	i_ddi_di_cache_invalidate();

	ev = sysevent_alloc(EC_DEVFS, ESC_DEVFS_DEVI_ADD, EP_DDI, SE_SLEEP);

	pathname = kmem_alloc(MAXPATHLEN, KM_SLEEP);

	(void) ddi_pathname(dip, pathname);
	ASSERT(strlen(pathname));

	se_val.value_type = SE_DATA_TYPE_STRING;
	se_val.value.sv_string = pathname;
	if (sysevent_add_attr(&ev_attr_list, DEVFS_PATHNAME,
	    &se_val, SE_SLEEP) != 0) {
		goto fail;
	}

	/* add the device class attribute */
	if ((class_name = i_ddi_devi_class(dip)) != NULL) {
		se_val.value_type = SE_DATA_TYPE_STRING;
		se_val.value.sv_string = class_name;

		if (sysevent_add_attr(&ev_attr_list,
		    DEVFS_DEVI_CLASS, &se_val, SE_SLEEP) != 0) {
			sysevent_free_attr(ev_attr_list);
			goto fail;
		}
	}

	/*
	 * must log a branch event too unless NDI_BRANCH_EVENT_OP is set,
	 * in which case the branch event will be logged by the caller
	 * after the entire branch has been configured.
	 */
	if ((flags & NDI_BRANCH_EVENT_OP) == 0) {
		/*
		 * Instead of logging a separate branch event just add
		 * DEVFS_BRANCH_EVENT attribute. It indicates devfsadmd to
		 * generate a EC_DEV_BRANCH event.
		 */
		se_val.value_type = SE_DATA_TYPE_INT32;
		se_val.value.sv_int32 = 1;
		if (sysevent_add_attr(&ev_attr_list,
		    DEVFS_BRANCH_EVENT, &se_val, SE_SLEEP) != 0) {
			sysevent_free_attr(ev_attr_list);
			goto fail;
		}
	}

	if (sysevent_attach_attributes(ev, ev_attr_list) != 0) {
		sysevent_free_attr(ev_attr_list);
		goto fail;
	}

	if ((se_err = log_sysevent(ev, SE_SLEEP, &eid)) != 0) {
		if (se_err == SE_NO_TRANSPORT)
			no_transport = 1;
		goto fail;
	}

	sysevent_free(ev);
	kmem_free(pathname, MAXPATHLEN);

	return (DDI_SUCCESS);

fail:
	cmn_err(CE_WARN, "failed to log ESC_DEVFS_DEVI_ADD event for %s%s",
	    pathname, (no_transport) ? " (syseventd not responding)" : "");

	cmn_err(CE_WARN, "/dev may not be current for driver %s. "
	    "Run devfsadm -i %s",
	    ddi_driver_name(dip), ddi_driver_name(dip));

	sysevent_free(ev);
	kmem_free(pathname, MAXPATHLEN);
	return (DDI_SUCCESS);
}

/*
 * log a notification that a dev_info node has been unconfigured.
 */
static int
i_log_devfs_remove_devinfo(char *pathname, char *class_name, char *driver_name,
    int instance, uint_t flags)
{
	sysevent_t		*ev;
	sysevent_id_t		eid;
	sysevent_value_t	se_val;
	sysevent_attr_list_t	*ev_attr_list = NULL;
	int			se_err;
	int			no_transport = 0;

	if (!i_ddi_io_initialized())
		return (DDI_SUCCESS);

	/* Invalidate the devinfo snapshot cache */
	i_ddi_di_cache_invalidate();

	ev = sysevent_alloc(EC_DEVFS, ESC_DEVFS_DEVI_REMOVE, EP_DDI, SE_SLEEP);

	se_val.value_type = SE_DATA_TYPE_STRING;
	se_val.value.sv_string = pathname;
	if (sysevent_add_attr(&ev_attr_list, DEVFS_PATHNAME,
	    &se_val, SE_SLEEP) != 0) {
		goto fail;
	}

	if (class_name) {
		/* add the device class, driver name and instance attributes */

		se_val.value_type = SE_DATA_TYPE_STRING;
		se_val.value.sv_string = class_name;
		if (sysevent_add_attr(&ev_attr_list,
		    DEVFS_DEVI_CLASS, &se_val, SE_SLEEP) != 0) {
			sysevent_free_attr(ev_attr_list);
			goto fail;
		}

		se_val.value_type = SE_DATA_TYPE_STRING;
		se_val.value.sv_string = driver_name;
		if (sysevent_add_attr(&ev_attr_list,
		    DEVFS_DRIVER_NAME, &se_val, SE_SLEEP) != 0) {
			sysevent_free_attr(ev_attr_list);
			goto fail;
		}

		se_val.value_type = SE_DATA_TYPE_INT32;
		se_val.value.sv_int32 = instance;
		if (sysevent_add_attr(&ev_attr_list,
		    DEVFS_INSTANCE, &se_val, SE_SLEEP) != 0) {
			sysevent_free_attr(ev_attr_list);
			goto fail;
		}
	}

	/*
	 * must log a branch event too unless NDI_BRANCH_EVENT_OP is set,
	 * in which case the branch event will be logged by the caller
	 * after the entire branch has been unconfigured.
	 */
	if ((flags & NDI_BRANCH_EVENT_OP) == 0) {
		/*
		 * Instead of logging a separate branch event just add
		 * DEVFS_BRANCH_EVENT attribute. It indicates devfsadmd to
		 * generate a EC_DEV_BRANCH event.
		 */
		se_val.value_type = SE_DATA_TYPE_INT32;
		se_val.value.sv_int32 = 1;
		if (sysevent_add_attr(&ev_attr_list,
		    DEVFS_BRANCH_EVENT, &se_val, SE_SLEEP) != 0) {
			sysevent_free_attr(ev_attr_list);
			goto fail;
		}
	}

	if (sysevent_attach_attributes(ev, ev_attr_list) != 0) {
		sysevent_free_attr(ev_attr_list);
		goto fail;
	}

	if ((se_err = log_sysevent(ev, SE_SLEEP, &eid)) != 0) {
		if (se_err == SE_NO_TRANSPORT)
			no_transport = 1;
		goto fail;
	}

	sysevent_free(ev);
	return (DDI_SUCCESS);

fail:
	sysevent_free(ev);
	cmn_err(CE_WARN, "failed to log ESC_DEVFS_DEVI_REMOVE event for %s%s",
	    pathname, (no_transport) ? " (syseventd not responding)" : "");
	return (DDI_SUCCESS);
}

static void
i_ddi_log_devfs_device_remove(dev_info_t *dip)
{
	char	*path;

	ASSERT(dip && ddi_get_parent(dip) &&
	    DEVI_BUSY_OWNED(ddi_get_parent(dip)));
	ASSERT(DEVI_IS_DEVICE_REMOVED(dip));

	ASSERT(i_ddi_node_state(dip) >= DS_INITIALIZED);
	if (i_ddi_node_state(dip) < DS_INITIALIZED)
		return;

	/* Inform LDI_EV_DEVICE_REMOVE callbacks. */
	ldi_invoke_finalize(dip, DDI_DEV_T_ANY, 0, LDI_EV_DEVICE_REMOVE,
	    LDI_EV_SUCCESS, NULL);

	/* Generate EC_DEVFS_DEVI_REMOVE sysevent. */
	path = kmem_alloc(MAXPATHLEN, KM_SLEEP);
	(void) i_log_devfs_remove_devinfo(ddi_pathname(dip, path),
	    i_ddi_devi_class(dip), (char *)ddi_driver_name(dip),
	    ddi_get_instance(dip), 0);
	kmem_free(path, MAXPATHLEN);
}

static void
i_ddi_log_devfs_device_insert(dev_info_t *dip)
{
	ASSERT(dip && ddi_get_parent(dip) &&
	    DEVI_BUSY_OWNED(ddi_get_parent(dip)));
	ASSERT(!DEVI_IS_DEVICE_REMOVED(dip));

	(void) i_log_devfs_add_devinfo(dip, 0);
}


/*
 * log an event that a dev_info branch has been configured or unconfigured.
 */
static int
i_log_devfs_branch(char *node_path, char *subclass)
{
	int se_err;
	sysevent_t *ev;
	sysevent_id_t eid;
	sysevent_value_t se_val;
	sysevent_attr_list_t *ev_attr_list = NULL;
	int no_transport = 0;

	/* do not generate the event during boot */
	if (!i_ddi_io_initialized())
		return (DDI_SUCCESS);

	/* Invalidate the devinfo snapshot cache */
	i_ddi_di_cache_invalidate();

	ev = sysevent_alloc(EC_DEVFS, subclass, EP_DDI, SE_SLEEP);

	se_val.value_type = SE_DATA_TYPE_STRING;
	se_val.value.sv_string = node_path;

	if (sysevent_add_attr(&ev_attr_list, DEVFS_PATHNAME,
	    &se_val, SE_SLEEP) != 0) {
		goto fail;
	}

	if (sysevent_attach_attributes(ev, ev_attr_list) != 0) {
		sysevent_free_attr(ev_attr_list);
		goto fail;
	}

	if ((se_err = log_sysevent(ev, SE_SLEEP, &eid)) != 0) {
		if (se_err == SE_NO_TRANSPORT)
			no_transport = 1;
		goto fail;
	}

	sysevent_free(ev);
	return (DDI_SUCCESS);

fail:
	cmn_err(CE_WARN, "failed to log %s branch event for %s%s",
	    subclass, node_path,
	    (no_transport) ? " (syseventd not responding)" : "");

	sysevent_free(ev);
	return (DDI_FAILURE);
}

/*
 * log an event that a dev_info tree branch has been configured.
 */
static int
i_log_devfs_branch_add(dev_info_t *dip)
{
	char *node_path;
	int rv;

	node_path = kmem_alloc(MAXPATHLEN, KM_SLEEP);
	(void) ddi_pathname(dip, node_path);
	rv = i_log_devfs_branch(node_path, ESC_DEVFS_BRANCH_ADD);
	kmem_free(node_path, MAXPATHLEN);

	return (rv);
}

/*
 * log an event that a dev_info tree branch has been unconfigured.
 */
static int
i_log_devfs_branch_remove(char *node_path)
{
	return (i_log_devfs_branch(node_path, ESC_DEVFS_BRANCH_REMOVE));
}

/*
 * enqueue the dip's deviname on the branch event queue.
 */
static struct brevq_node *
brevq_enqueue(struct brevq_node **brevqp, dev_info_t *dip,
    struct brevq_node *child)
{
	struct brevq_node *brn;
	char *deviname;

	deviname = kmem_alloc(MAXNAMELEN, KM_SLEEP);
	(void) ddi_deviname(dip, deviname);

	brn = kmem_zalloc(sizeof (*brn), KM_SLEEP);
	brn->brn_deviname = i_ddi_strdup(deviname, KM_SLEEP);
	kmem_free(deviname, MAXNAMELEN);
	brn->brn_child = child;
	brn->brn_sibling = *brevqp;
	*brevqp = brn;

	return (brn);
}

/*
 * free the memory allocated for the elements on the branch event queue.
 */
static void
free_brevq(struct brevq_node *brevq)
{
	struct brevq_node *brn, *next_brn;

	for (brn = brevq; brn != NULL; brn = next_brn) {
		next_brn = brn->brn_sibling;
		ASSERT(brn->brn_child == NULL);
		kmem_free(brn->brn_deviname, strlen(brn->brn_deviname) + 1);
		kmem_free(brn, sizeof (*brn));
	}
}

/*
 * log the events queued up on the branch event queue and free the
 * associated memory.
 *
 * node_path must have been allocated with at least MAXPATHLEN bytes.
 */
static void
log_and_free_brevq(char *node_path, struct brevq_node *brevq)
{
	struct brevq_node *brn;
	char *p;

	p = node_path + strlen(node_path);
	for (brn = brevq; brn != NULL; brn = brn->brn_sibling) {
		(void) strcpy(p, brn->brn_deviname);
		(void) i_log_devfs_branch_remove(node_path);
	}
	*p = '\0';

	free_brevq(brevq);
}

/*
 * log the events queued up on the branch event queue and free the
 * associated memory. Same as the previous function but operates on dip.
 */
static void
log_and_free_brevq_dip(dev_info_t *dip, struct brevq_node *brevq)
{
	char *path;

	path = kmem_alloc(MAXPATHLEN, KM_SLEEP);
	(void) ddi_pathname(dip, path);
	log_and_free_brevq(path, brevq);
	kmem_free(path, MAXPATHLEN);
}

/*
 * log the outstanding branch remove events for the grand children of the dip
 * and free the associated memory.
 */
static void
log_and_free_br_events_on_grand_children(dev_info_t *dip,
    struct brevq_node *brevq)
{
	struct brevq_node *brn;
	char *path;
	char *p;

	path = kmem_alloc(MAXPATHLEN, KM_SLEEP);
	(void) ddi_pathname(dip, path);
	p = path + strlen(path);
	for (brn = brevq; brn != NULL; brn = brn->brn_sibling) {
		if (brn->brn_child) {
			(void) strcpy(p, brn->brn_deviname);
			/* now path contains the node path to the dip's child */
			log_and_free_brevq(path, brn->brn_child);
			brn->brn_child = NULL;
		}
	}
	kmem_free(path, MAXPATHLEN);
}

/*
 * log and cleanup branch remove events for the grand children of the dip.
 */
static void
cleanup_br_events_on_grand_children(dev_info_t *dip, struct brevq_node **brevqp)
{
	dev_info_t *child;
	struct brevq_node *brevq, *brn, *prev_brn, *next_brn;
	char *path;

	path = kmem_alloc(MAXPATHLEN, KM_SLEEP);
	prev_brn = NULL;
	brevq = *brevqp;

	ndi_devi_enter(dip);
	for (brn = brevq; brn != NULL; brn = next_brn) {
		next_brn = brn->brn_sibling;
		for (child = ddi_get_child(dip); child != NULL;
		    child = ddi_get_next_sibling(child)) {
			if (i_ddi_node_state(child) >= DS_INITIALIZED) {
				(void) ddi_deviname(child, path);
				if (strcmp(path, brn->brn_deviname) == 0)
					break;
			}
		}

		if (child != NULL && !(DEVI_EVREMOVE(child))) {
			/*
			 * Event state is not REMOVE. So branch remove event
			 * is not going be generated on brn->brn_child.
			 * If any branch remove events were queued up on
			 * brn->brn_child log them and remove the brn
			 * from the queue.
			 */
			if (brn->brn_child) {
				(void) ddi_pathname(dip, path);
				(void) strcat(path, brn->brn_deviname);
				log_and_free_brevq(path, brn->brn_child);
			}

			if (prev_brn)
				prev_brn->brn_sibling = next_brn;
			else
				*brevqp = next_brn;

			kmem_free(brn->brn_deviname,
			    strlen(brn->brn_deviname) + 1);
			kmem_free(brn, sizeof (*brn));
		} else {
			/*
			 * Free up the outstanding branch remove events
			 * queued on brn->brn_child since brn->brn_child
			 * itself is eligible for branch remove event.
			 */
			if (brn->brn_child) {
				free_brevq(brn->brn_child);
				brn->brn_child = NULL;
			}
			prev_brn = brn;
		}
	}

	ndi_devi_exit(dip);
	kmem_free(path, MAXPATHLEN);
}

static int
need_remove_event(dev_info_t *dip, int flags)
{
	if ((flags & (NDI_NO_EVENT | NDI_AUTODETACH)) == 0 &&
	    (flags & (NDI_DEVI_OFFLINE | NDI_UNCONFIG | NDI_DEVI_REMOVE)) &&
	    !(DEVI_EVREMOVE(dip)))
		return (1);
	else
		return (0);
}

/*
 * Unconfigure children/descendants of the dip.
 *
 * If the operation involves a branch event NDI_BRANCH_EVENT_OP is set
 * through out the unconfiguration. On successful return *brevqp is set to
 * a queue of dip's child devinames for which branch remove events need
 * to be generated.
 */
static int
devi_unconfig_branch(dev_info_t *dip, dev_info_t **dipp, int flags,
    struct brevq_node **brevqp)
{
	int rval;

	*brevqp = NULL;

	if ((!(flags & NDI_BRANCH_EVENT_OP)) && need_remove_event(dip, flags))
		flags |= NDI_BRANCH_EVENT_OP;

	if (flags & NDI_BRANCH_EVENT_OP) {
		rval = devi_unconfig_common(dip, dipp, flags, DDI_MAJOR_T_NONE,
		    brevqp);

		if (rval != NDI_SUCCESS && (*brevqp)) {
			log_and_free_brevq_dip(dip, *brevqp);
			*brevqp = NULL;
		}
	} else
		rval = devi_unconfig_common(dip, dipp, flags, DDI_MAJOR_T_NONE,
		    NULL);

	return (rval);
}

/*
 * If the dip is already bound to a driver transition to DS_INITIALIZED
 * in order to generate an event in the case where the node was left in
 * DS_BOUND state since boot (never got attached) and the node is now
 * being offlined.
 */
static void
init_bound_node_ev(dev_info_t *pdip, dev_info_t *dip, int flags)
{
	if (need_remove_event(dip, flags) &&
	    i_ddi_node_state(dip) == DS_BOUND &&
	    i_ddi_devi_attached(pdip) && !DEVI_IS_DEVICE_OFFLINE(dip))
		(void) ddi_initchild(pdip, dip);
}

/*
 * attach a node/branch with parent already held busy
 */
static int
devi_attach_node(dev_info_t *dip, uint_t flags)
{
	dev_info_t *pdip = ddi_get_parent(dip);

	ASSERT(pdip && DEVI_BUSY_OWNED(pdip));

	mutex_enter(&(DEVI(dip)->devi_lock));
	if (flags & NDI_DEVI_ONLINE) {
		if (!i_ddi_devi_attached(dip))
			DEVI_SET_REPORT(dip);
		DEVI_SET_DEVICE_ONLINE(dip);
	}
	if (DEVI_IS_DEVICE_OFFLINE(dip)) {
		mutex_exit(&(DEVI(dip)->devi_lock));
		return (NDI_FAILURE);
	}
	mutex_exit(&(DEVI(dip)->devi_lock));

	if (i_ddi_attachchild(dip) != DDI_SUCCESS) {
		mutex_enter(&(DEVI(dip)->devi_lock));
		DEVI_SET_EVUNINIT(dip);
		mutex_exit(&(DEVI(dip)->devi_lock));

		if (ndi_dev_is_persistent_node(dip))
			(void) ddi_uninitchild(dip);
		else {
			/*
			 * Delete .conf nodes and nodes that are not
			 * well formed.
			 */
			(void) ddi_remove_child(dip, 0);
		}
		return (NDI_FAILURE);
	}

	i_ndi_devi_report_status_change(dip, NULL);

	/*
	 * log an event, but not during devfs lookups in which case
	 * NDI_NO_EVENT is set.
	 */
	if ((flags & NDI_NO_EVENT) == 0 && !(DEVI_EVADD(dip))) {
		(void) i_log_devfs_add_devinfo(dip, flags);

		mutex_enter(&(DEVI(dip)->devi_lock));
		DEVI_SET_EVADD(dip);
		mutex_exit(&(DEVI(dip)->devi_lock));
	} else if (!(flags & NDI_NO_EVENT_STATE_CHNG)) {
		mutex_enter(&(DEVI(dip)->devi_lock));
		DEVI_SET_EVADD(dip);
		mutex_exit(&(DEVI(dip)->devi_lock));
	}

	return (NDI_SUCCESS);
}

/* internal function to config immediate children */
static int
config_immediate_children(dev_info_t *pdip, uint_t flags, major_t major)
{
	dev_info_t	*child, *next;

	ASSERT(i_ddi_devi_attached(pdip));

	if (!NEXUS_DRV(ddi_get_driver(pdip)))
		return (NDI_SUCCESS);

	NDI_CONFIG_DEBUG((CE_CONT,
	    "config_immediate_children: %s%d (%p), flags=%x\n",
	    ddi_driver_name(pdip), ddi_get_instance(pdip),
	    (void *)pdip, flags));

	ndi_devi_enter(pdip);

	if (flags & NDI_CONFIG_REPROBE) {
		mutex_enter(&DEVI(pdip)->devi_lock);
		DEVI(pdip)->devi_flags &= ~DEVI_MADE_CHILDREN;
		mutex_exit(&DEVI(pdip)->devi_lock);
	}
	(void) i_ndi_make_spec_children(pdip, flags);
	i_ndi_init_hw_children(pdip, flags);

	child = ddi_get_child(pdip);
	while (child) {
		/* NOTE: devi_attach_node() may remove the dip */
		next = ddi_get_next_sibling(child);

		/*
		 * Configure all nexus nodes or leaf nodes with
		 * matching driver major
		 */
		if ((major == DDI_MAJOR_T_NONE) ||
		    (major == ddi_driver_major(child)) ||
		    ((flags & NDI_CONFIG) && (is_leaf_node(child) == 0)))
			(void) devi_attach_node(child, flags);
		child = next;
	}

	ndi_devi_exit(pdip);

	return (NDI_SUCCESS);
}

/* internal function to config grand children */
static int
config_grand_children(dev_info_t *pdip, uint_t flags, major_t major)
{
	struct mt_config_handle *hdl;

	/* multi-threaded configuration of child nexus */
	hdl = mt_config_init(pdip, NULL, flags, major, MT_CONFIG_OP, NULL);
	mt_config_children(hdl);

	return (mt_config_fini(hdl));	/* wait for threads to exit */
}

/*
 * Common function for device tree configuration,
 * either BUS_CONFIG_ALL or BUS_CONFIG_DRIVER.
 * The NDI_CONFIG flag causes recursive configuration of
 * grandchildren, devfs usage should not recurse.
 */
static int
devi_config_common(dev_info_t *dip, int flags, major_t major)
{
	int error;
	int (*f)();

	if (!i_ddi_devi_attached(dip))
		return (NDI_FAILURE);

	if (pm_pre_config(dip, NULL) != DDI_SUCCESS)
		return (NDI_FAILURE);

	if ((DEVI(dip)->devi_ops->devo_bus_ops == NULL) ||
	    (DEVI(dip)->devi_ops->devo_bus_ops->busops_rev < BUSO_REV_5) ||
	    (f = DEVI(dip)->devi_ops->devo_bus_ops->bus_config) == NULL) {
		error = config_immediate_children(dip, flags, major);
	} else {
		/* call bus_config entry point */
		ddi_bus_config_op_t bus_op = (major == DDI_MAJOR_T_NONE) ?
		    BUS_CONFIG_ALL : BUS_CONFIG_DRIVER;
		error = (*f)(dip,
		    flags, bus_op, (void *)(uintptr_t)major, NULL, 0);
	}

	if (error) {
		pm_post_config(dip, NULL);
		return (error);
	}

	/*
	 * Some callers, notably SCSI, need to mark the devfs cache
	 * to be rebuilt together with the config operation.
	 */
	if (flags & NDI_DEVFS_CLEAN)
		(void) devfs_clean(dip, NULL, 0);

	if (flags & NDI_CONFIG)
		(void) config_grand_children(dip, flags, major);

	pm_post_config(dip, NULL);

	return (NDI_SUCCESS);
}

/*
 * Framework entry point for BUS_CONFIG_ALL
 */
int
ndi_devi_config(dev_info_t *dip, int flags)
{
	NDI_CONFIG_DEBUG((CE_CONT,
	    "ndi_devi_config: par = %s%d (%p), flags = 0x%x\n",
	    ddi_driver_name(dip), ddi_get_instance(dip), (void *)dip, flags));

	return (devi_config_common(dip, flags, DDI_MAJOR_T_NONE));
}

/*
 * Framework entry point for BUS_CONFIG_DRIVER, bound to major
 */
int
ndi_devi_config_driver(dev_info_t *dip, int flags, major_t major)
{
	/* don't abuse this function */
	ASSERT(major != DDI_MAJOR_T_NONE);

	NDI_CONFIG_DEBUG((CE_CONT,
	    "ndi_devi_config_driver: par = %s%d (%p), flags = 0x%x\n",
	    ddi_driver_name(dip), ddi_get_instance(dip), (void *)dip, flags));

	return (devi_config_common(dip, flags, major));
}

/*
 * Called by nexus drivers to configure its children.
 */
static int
devi_config_one(dev_info_t *pdip, char *devnm, dev_info_t **cdipp,
    uint_t flags, clock_t timeout)
{
	dev_info_t	*vdip = NULL;
	char		*drivername = NULL;
	int		find_by_addr = 0;
	char		*name, *addr;
	clock_t		end_time;	/* 60 sec */
	int		probed;
	dev_info_t	*cdip;
	mdi_pathinfo_t	*cpip;

	*cdipp = NULL;

	if (!NEXUS_DRV(ddi_get_driver(pdip)))
		return (NDI_FAILURE);

	/* split name into "name@addr" parts */
	i_ddi_parse_name(devnm, &name, &addr, NULL);

	/*
	 * If the nexus is a pHCI and we are not processing a pHCI from
	 * mdi bus_config code then we need to know the vHCI.
	 */
	if (MDI_PHCI(pdip))
		vdip = mdi_devi_get_vdip(pdip);

	/*
	 * We may have a genericname on a system that creates drivername
	 * nodes (from .conf files).  Find the drivername by nodeid. If we
	 * can't find a node with devnm as the node name then we search by
	 * drivername.	This allows an implementation to supply a genericly
	 * named boot path (disk) and locate drivename nodes (sd).  The
	 * NDI_PROMNAME flag does not apply to /devices/pseudo paths.
	 */
	if ((flags & NDI_PROMNAME) && (pdip != pseudo_dip)) {
		drivername = child_path_to_driver(pdip, name, addr);
		find_by_addr = 1;
	}

	/*
	 * Determine end_time: This routine should *not* be called with a
	 * constant non-zero timeout argument, the caller should be adjusting
	 * the timeout argument relative to when it *started* its asynchronous
	 * enumeration.
	 */
	if (timeout > 0)
		end_time = ddi_get_lbolt() + timeout;

	for (;;) {
		/*
		 * For pHCI, enter (vHCI, pHCI) and search for pathinfo/client
		 * child - break out of for(;;) loop if child found.
		 * NOTE: Lock order for ndi_devi_enter is (vHCI, pHCI).
		 */
		if (vdip) {
			/* use mdi_devi_enter ordering */
			ndi_devi_enter(vdip);
			ndi_devi_enter(pdip);
			cpip = mdi_pi_find(pdip, NULL, addr);
			cdip = mdi_pi_get_client(cpip);
			if (cdip)
				break;
		} else
			ndi_devi_enter(pdip);

		/*
		 * When not a  vHCI or not all pHCI devices are required to
		 * enumerated under the vHCI (NDI_MDI_FALLBACK) search for
		 * devinfo child.
		 */
		if ((vdip == NULL) || (flags & NDI_MDI_FALLBACK)) {
			/* determine if .conf nodes already built */
			probed = (DEVI(pdip)->devi_flags & DEVI_MADE_CHILDREN);

			/*
			 * Search for child by name, if not found then search
			 * for a node bound to the drivername driver with the
			 * specified "@addr". Break out of for(;;) loop if
			 * child found.  To support path-oriented aliases
			 * binding on boot-device, we do a search_by_addr too.
			 */
again:			(void) i_ndi_make_spec_children(pdip, flags);
			cdip = find_child_by_name(pdip, name, addr);
			if ((cdip == NULL) && drivername)
				cdip = find_child_by_driver(pdip,
				    drivername, addr);
			if ((cdip == NULL) && find_by_addr)
				cdip = find_child_by_addr(pdip, addr);
			if (cdip)
				break;

			/*
			 * determine if we should reenumerate .conf nodes
			 * and look for child again.
			 */
			if (probed &&
			    i_ddi_io_initialized() &&
			    (flags & NDI_CONFIG_REPROBE) &&
			    ((timeout <= 0) || (ddi_get_lbolt() >= end_time))) {
				probed = 0;
				mutex_enter(&DEVI(pdip)->devi_lock);
				DEVI(pdip)->devi_flags &= ~DEVI_MADE_CHILDREN;
				mutex_exit(&DEVI(pdip)->devi_lock);
				goto again;
			}
		}

		/* break out of for(;;) if time expired */
		if ((timeout <= 0) || (ddi_get_lbolt() >= end_time))
			break;

		/*
		 * Child not found, exit and wait for asynchronous enumeration
		 * to add child (or timeout). The addition of a new child (vhci
		 * or phci) requires the asynchronous enumeration thread to
		 * ndi_devi_enter/ndi_devi_exit. This exit will signal devi_cv
		 * and cause us to return from ndi_devi_exit_and_wait, after
		 * which we loop and search for the requested child again.
		 */
		NDI_DEBUG(flags, (CE_CONT,
		    "%s%d: waiting for child %s@%s, timeout %ld",
		    ddi_driver_name(pdip), ddi_get_instance(pdip),
		    name, addr, timeout));
		if (vdip) {
			/*
			 * Mark vHCI for pHCI ndi_devi_exit broadcast.
			 */
			mutex_enter(&DEVI(vdip)->devi_lock);
			DEVI(vdip)->devi_flags |=
			    DEVI_PHCI_SIGNALS_VHCI;
			mutex_exit(&DEVI(vdip)->devi_lock);
			ndi_devi_exit(pdip);

			/*
			 * NB: There is a small race window from above
			 * ndi_devi_exit() of pdip to cv_wait() in
			 * ndi_devi_exit_and_wait() which can result in
			 * not immediately finding a new pHCI child
			 * of a pHCI that uses NDI_MDI_FAILBACK.
			 */
			ndi_devi_exit_and_wait(vdip, end_time);
		} else {
			ndi_devi_exit_and_wait(pdip, end_time);
		}
	}

	/* done with paddr, fixup i_ddi_parse_name '@'->'\0' change */
	if (addr && *addr != '\0')
		*(addr - 1) = '@';

	/* attach and hold the child, returning pointer to child */
	if (cdip && (devi_attach_node(cdip, flags) == NDI_SUCCESS)) {
		ndi_hold_devi(cdip);
		*cdipp = cdip;
	}

	ndi_devi_exit(pdip);
	if (vdip)
		ndi_devi_exit(vdip);
	return (*cdipp ? NDI_SUCCESS : NDI_FAILURE);
}

/*
 * Enumerate and attach a child specified by name 'devnm'.
 * Called by devfs lookup and DR to perform a BUS_CONFIG_ONE.
 * Note: devfs does not make use of NDI_CONFIG to configure
 * an entire branch.
 */
int
ndi_devi_config_one(dev_info_t *pdip, char *devnm, dev_info_t **dipp, int flags)
{
	int error;
	int (*f)();
	char *nmdup;
	int duplen;
	int branch_event = 0;

	ASSERT(pdip);
	ASSERT(devnm);
	ASSERT(dipp);
	ASSERT(i_ddi_devi_attached(pdip));

	NDI_CONFIG_DEBUG((CE_CONT,
	    "ndi_devi_config_one: par = %s%d (%p), child = %s\n",
	    ddi_driver_name(pdip), ddi_get_instance(pdip),
	    (void *)pdip, devnm));

	*dipp = NULL;

	if (pm_pre_config(pdip, devnm) != DDI_SUCCESS) {
		cmn_err(CE_WARN, "preconfig failed: %s", devnm);
		return (NDI_FAILURE);
	}

	if ((flags & (NDI_NO_EVENT | NDI_BRANCH_EVENT_OP)) == 0 &&
	    (flags & NDI_CONFIG)) {
		flags |= NDI_BRANCH_EVENT_OP;
		branch_event = 1;
	}

	nmdup = strdup(devnm);
	duplen = strlen(devnm) + 1;

	if ((DEVI(pdip)->devi_ops->devo_bus_ops == NULL) ||
	    (DEVI(pdip)->devi_ops->devo_bus_ops->busops_rev < BUSO_REV_5) ||
	    (f = DEVI(pdip)->devi_ops->devo_bus_ops->bus_config) == NULL) {
		error = devi_config_one(pdip, devnm, dipp, flags, 0);
	} else {
		/* call bus_config entry point */
		error = (*f)(pdip, flags, BUS_CONFIG_ONE, (void *)devnm, dipp);
	}

	if (error) {
		*dipp = NULL;
	}

	/*
	 * if we fail to lookup and this could be an alias, lookup currdip
	 * To prevent recursive lookups into the same hash table, only
	 * do the currdip lookups once the hash table init is complete.
	 * Use tsd so that redirection doesn't recurse
	 */
	if (error) {
		char *alias = kmem_alloc(MAXPATHLEN, KM_NOSLEEP);
		if (alias == NULL) {
			ddi_err(DER_PANIC, pdip, "alias alloc failed: %s",
			    nmdup);
		}
		(void) ddi_pathname(pdip, alias);
		(void) strlcat(alias, "/", MAXPATHLEN);
		(void) strlcat(alias, nmdup, MAXPATHLEN);

		*dipp = ddi_alias_redirect(alias);
		error = (*dipp ? NDI_SUCCESS : NDI_FAILURE);

		kmem_free(alias, MAXPATHLEN);
	}
	kmem_free(nmdup, duplen);

	if (error || !(flags & NDI_CONFIG)) {
		pm_post_config(pdip, devnm);
		return (error);
	}

	/*
	 * DR usage (i.e. call with NDI_CONFIG) recursively configures
	 * grandchildren, performing a BUS_CONFIG_ALL from the node attached
	 * by the BUS_CONFIG_ONE.
	 */
	ASSERT(*dipp);
	error = devi_config_common(*dipp, flags, DDI_MAJOR_T_NONE);

	pm_post_config(pdip, devnm);

	if (branch_event)
		(void) i_log_devfs_branch_add(*dipp);

	return (error);
}

/*
 * Enumerate and attach a child specified by name 'devnm'.
 * Called during configure the OBP options. This configures
 * only one node.
 */
static int
ndi_devi_config_obp_args(dev_info_t *parent, char *devnm,
    dev_info_t **childp, int flags)
{
	int error;
	int (*f)();

	ASSERT(childp);
	ASSERT(i_ddi_devi_attached(parent));

	NDI_CONFIG_DEBUG((CE_CONT, "ndi_devi_config_obp_args: "
	    "par = %s%d (%p), child = %s\n", ddi_driver_name(parent),
	    ddi_get_instance(parent), (void *)parent, devnm));

	if ((DEVI(parent)->devi_ops->devo_bus_ops == NULL) ||
	    (DEVI(parent)->devi_ops->devo_bus_ops->busops_rev < BUSO_REV_5) ||
	    (f = DEVI(parent)->devi_ops->devo_bus_ops->bus_config) == NULL) {
		error = NDI_FAILURE;
	} else {
		/* call bus_config entry point */
		error = (*f)(parent, flags,
		    BUS_CONFIG_OBP_ARGS, (void *)devnm, childp);
	}
	return (error);
}

/*
 * Pay attention, the following is a bit tricky:
 * There are three possible cases when constraints are applied
 *
 *	- A constraint is applied and the offline is disallowed.
 *	  Simply return failure and block the offline
 *
 *	- A constraint is applied and the offline is allowed.
 *	  Mark the dip as having passed the constraint and allow
 *	  offline to proceed.
 *
 *	- A constraint is not applied. Allow the offline to proceed for now.
 *
 * In the latter two cases we allow the offline to proceed. If the
 * offline succeeds (no users) everything is fine. It is ok for an unused
 * device to be offlined even if no constraints were imposed on the offline.
 * If the offline fails because there are users, we look at the constraint
 * flag on the dip. If the constraint flag is set (implying that it passed
 * a constraint) we allow the dip to be retired. If not, we don't allow
 * the retire. This ensures that we don't allow unconstrained retire.
 */
int
e_ddi_offline_notify(dev_info_t *dip)
{
	int retval;
	int constraint;
	int failure;

	RIO_VERBOSE((CE_NOTE, "e_ddi_offline_notify(): entered: dip=%p",
	    (void *) dip));

	constraint = 0;
	failure = 0;

	/*
	 * Start with userland constraints first - applied via device contracts
	 */
	retval = contract_device_offline(dip, DDI_DEV_T_ANY, 0);
	switch (retval) {
	case CT_NACK:
		RIO_DEBUG((CE_NOTE, "Received NACK for dip=%p", (void *)dip));
		failure = 1;
		goto out;
	case CT_ACK:
		constraint = 1;
		RIO_DEBUG((CE_NOTE, "Received ACK for dip=%p", (void *)dip));
		break;
	case CT_NONE:
		/* no contracts */
		RIO_DEBUG((CE_NOTE, "No contracts on dip=%p", (void *)dip));
		break;
	default:
		ASSERT(retval == CT_NONE);
	}

	/*
	 * Next, use LDI to impose kernel constraints
	 */
	retval = ldi_invoke_notify(dip, DDI_DEV_T_ANY, 0, LDI_EV_OFFLINE, NULL);
	switch (retval) {
	case LDI_EV_FAILURE:
		contract_device_negend(dip, DDI_DEV_T_ANY, 0, CT_EV_FAILURE);
		RIO_DEBUG((CE_NOTE, "LDI callback failed on dip=%p",
		    (void *)dip));
		failure = 1;
		goto out;
	case LDI_EV_SUCCESS:
		constraint = 1;
		RIO_DEBUG((CE_NOTE, "LDI callback success on dip=%p",
		    (void *)dip));
		break;
	case LDI_EV_NONE:
		/* no matching LDI callbacks */
		RIO_DEBUG((CE_NOTE, "No LDI callbacks for dip=%p",
		    (void *)dip));
		break;
	default:
		ASSERT(retval == LDI_EV_NONE);
	}

out:
	mutex_enter(&(DEVI(dip)->devi_lock));
	if ((DEVI(dip)->devi_flags & DEVI_RETIRING) && failure) {
		RIO_VERBOSE((CE_NOTE, "e_ddi_offline_notify(): setting "
		    "BLOCKED flag. dip=%p", (void *)dip));
		DEVI(dip)->devi_flags |= DEVI_R_BLOCKED;
		if (DEVI(dip)->devi_flags & DEVI_R_CONSTRAINT) {
			RIO_VERBOSE((CE_NOTE, "e_ddi_offline_notify(): "
			    "blocked. clearing RCM CONSTRAINT flag. dip=%p",
			    (void *)dip));
			DEVI(dip)->devi_flags &= ~DEVI_R_CONSTRAINT;
		}
	} else if ((DEVI(dip)->devi_flags & DEVI_RETIRING) && constraint) {
		RIO_VERBOSE((CE_NOTE, "e_ddi_offline_notify(): setting "
		    "CONSTRAINT flag. dip=%p", (void *)dip));
		DEVI(dip)->devi_flags |= DEVI_R_CONSTRAINT;
	} else if ((DEVI(dip)->devi_flags & DEVI_RETIRING) &&
	    ((DEVI(dip)->devi_ops != NULL &&
	    DEVI(dip)->devi_ops->devo_bus_ops != NULL) ||
	    DEVI(dip)->devi_ref == 0)) {
		/* also allow retire if nexus or if device is not in use */
		RIO_VERBOSE((CE_NOTE, "e_ddi_offline_notify(): device not in "
		    "use. Setting CONSTRAINT flag. dip=%p", (void *)dip));
		DEVI(dip)->devi_flags |= DEVI_R_CONSTRAINT;
	} else {
		/*
		 * Note: We cannot ASSERT here that DEVI_R_CONSTRAINT is
		 * not set, since other sources (such as RCM) may have
		 * set the flag.
		 */
		RIO_VERBOSE((CE_NOTE, "e_ddi_offline_notify(): not setting "
		    "constraint flag. dip=%p", (void *)dip));
	}
	mutex_exit(&(DEVI(dip)->devi_lock));


	RIO_VERBOSE((CE_NOTE, "e_ddi_offline_notify(): exit: dip=%p",
	    (void *) dip));

	return (failure ? DDI_FAILURE : DDI_SUCCESS);
}

void
e_ddi_offline_finalize(dev_info_t *dip, int result)
{
	RIO_DEBUG((CE_NOTE, "e_ddi_offline_finalize(): entry: result=%s, "
	    "dip=%p", result == DDI_SUCCESS ? "SUCCESS" : "FAILURE",
	    (void *)dip));

	contract_device_negend(dip, DDI_DEV_T_ANY, 0,  result == DDI_SUCCESS ?
	    CT_EV_SUCCESS : CT_EV_FAILURE);

	ldi_invoke_finalize(dip, DDI_DEV_T_ANY, 0,
	    LDI_EV_OFFLINE, result == DDI_SUCCESS ?
	    LDI_EV_SUCCESS : LDI_EV_FAILURE, NULL);

	RIO_VERBOSE((CE_NOTE, "e_ddi_offline_finalize(): exit: dip=%p",
	    (void *)dip));
}

void
e_ddi_degrade_finalize(dev_info_t *dip)
{
	RIO_DEBUG((CE_NOTE, "e_ddi_degrade_finalize(): entry: "
	    "result always = DDI_SUCCESS, dip=%p", (void *)dip));

	contract_device_degrade(dip, DDI_DEV_T_ANY, 0);
	contract_device_negend(dip, DDI_DEV_T_ANY, 0, CT_EV_SUCCESS);

	ldi_invoke_finalize(dip, DDI_DEV_T_ANY, 0, LDI_EV_DEGRADE,
	    LDI_EV_SUCCESS, NULL);

	RIO_VERBOSE((CE_NOTE, "e_ddi_degrade_finalize(): exit: dip=%p",
	    (void *)dip));
}

void
e_ddi_undegrade_finalize(dev_info_t *dip)
{
	RIO_DEBUG((CE_NOTE, "e_ddi_undegrade_finalize(): entry: "
	    "result always = DDI_SUCCESS, dip=%p", (void *)dip));

	contract_device_undegrade(dip, DDI_DEV_T_ANY, 0);
	contract_device_negend(dip, DDI_DEV_T_ANY, 0, CT_EV_SUCCESS);

	RIO_VERBOSE((CE_NOTE, "e_ddi_undegrade_finalize(): exit: dip=%p",
	    (void *)dip));
}

/*
 * detach a node with parent already held busy
 */
static int
devi_detach_node(dev_info_t *dip, uint_t flags)
{
	dev_info_t *pdip = ddi_get_parent(dip);
	int ret = NDI_SUCCESS;
	ddi_eventcookie_t cookie;
	char *path = NULL;
	char *class = NULL;
	char *driver = NULL;
	int instance = -1;
	int post_event = 0;

	ASSERT(pdip && DEVI_BUSY_OWNED(pdip));

	/*
	 * Invoke notify if offlining
	 */
	if (flags & NDI_DEVI_OFFLINE) {
		RIO_DEBUG((CE_NOTE, "devi_detach_node: offlining dip=%p",
		    (void *)dip));
		if (e_ddi_offline_notify(dip) != DDI_SUCCESS) {
			RIO_DEBUG((CE_NOTE, "devi_detach_node: offline NACKed"
			    "dip=%p", (void *)dip));
			return (NDI_FAILURE);
		}
	}

	if (flags & NDI_POST_EVENT) {
		if (i_ddi_devi_attached(pdip)) {
			if (ddi_get_eventcookie(dip, DDI_DEVI_REMOVE_EVENT,
			    &cookie) == NDI_SUCCESS)
				(void) ndi_post_event(dip, dip, cookie, NULL);
		}
	}

	/*
	 * dv_mknod places a hold on the dev_info_t for each devfs node
	 * created.  If we're to succeed in detaching this device, we must
	 * first release all outstanding references held by devfs.
	 */
	(void) devfs_clean(pdip, NULL, DV_CLEAN_FORCE);

	if (i_ddi_detachchild(dip, flags) != DDI_SUCCESS) {
		if (flags & NDI_DEVI_OFFLINE) {
			RIO_DEBUG((CE_NOTE, "devi_detach_node: offline failed."
			    " Calling e_ddi_offline_finalize with result=%d. "
			    "dip=%p", DDI_FAILURE, (void *)dip));
			e_ddi_offline_finalize(dip, DDI_FAILURE);
		}
		return (NDI_FAILURE);
	}

	if (flags & NDI_DEVI_OFFLINE) {
		RIO_DEBUG((CE_NOTE, "devi_detach_node: offline succeeded."
		    " Calling e_ddi_offline_finalize with result=%d, "
		    "dip=%p", DDI_SUCCESS, (void *)dip));
		e_ddi_offline_finalize(dip, DDI_SUCCESS);
	}

	if (flags & NDI_AUTODETACH)
		return (NDI_SUCCESS);

	/*
	 * For DR, even bound nodes may need to have offline
	 * flag set.
	 */
	if (flags & NDI_DEVI_OFFLINE) {
		mutex_enter(&(DEVI(dip)->devi_lock));
		DEVI_SET_DEVICE_OFFLINE(dip);
		mutex_exit(&(DEVI(dip)->devi_lock));
	}

	if (i_ddi_node_state(dip) == DS_INITIALIZED) {
		struct dev_info *devi = DEVI(dip);

		if (devi->devi_ev_path == NULL) {
			devi->devi_ev_path = kmem_alloc(MAXPATHLEN, KM_SLEEP);
			(void) ddi_pathname(dip, devi->devi_ev_path);
		}
		if (flags & NDI_DEVI_OFFLINE)
			i_ndi_devi_report_status_change(dip,
			    devi->devi_ev_path);

		if (need_remove_event(dip, flags)) {
			/*
			 * instance and path data are lost in call to
			 * ddi_uninitchild
			 */
			devi->devi_ev_instance = ddi_get_instance(dip);

			mutex_enter(&(DEVI(dip)->devi_lock));
			DEVI_SET_EVREMOVE(dip);
			mutex_exit(&(DEVI(dip)->devi_lock));
		}
	}

	if (flags & (NDI_UNCONFIG | NDI_DEVI_REMOVE)) {
		ret = ddi_uninitchild(dip);
		if (ret == NDI_SUCCESS) {
			/*
			 * Remove uninitialized pseudo nodes because
			 * system props are lost and the node cannot be
			 * reattached.
			 */
			if (!ndi_dev_is_persistent_node(dip))
				flags |= NDI_DEVI_REMOVE;

			if (flags & NDI_DEVI_REMOVE) {
				/*
				 * NOTE: If there is a consumer of LDI events,
				 * ddi_uninitchild above would have failed
				 * because of active devi_ref from ldi_open().
				 */

				if (DEVI_EVREMOVE(dip)) {
					path = i_ddi_strdup(
					    DEVI(dip)->devi_ev_path,
					    KM_SLEEP);
					class =
					    i_ddi_strdup(i_ddi_devi_class(dip),
					    KM_SLEEP);
					driver =
					    i_ddi_strdup(
					    (char *)ddi_driver_name(dip),
					    KM_SLEEP);
					instance = DEVI(dip)->devi_ev_instance;
					post_event = 1;
				}

				ret = ddi_remove_child(dip, 0);
				if (post_event && ret == NDI_SUCCESS) {
					/* Generate EC_DEVFS_DEVI_REMOVE */
					(void) i_log_devfs_remove_devinfo(path,
					    class, driver, instance, flags);
				}
			}

		}
	}

	if (path)
		strfree(path);
	if (class)
		strfree(class);
	if (driver)
		strfree(driver);

	return (ret);
}

/*
 * unconfigure immediate children of bus nexus device
 */
static int
unconfig_immediate_children(
	dev_info_t *dip,
	dev_info_t **dipp,
	int flags,
	major_t major)
{
	int rv = NDI_SUCCESS;
	dev_info_t *child;
	dev_info_t *vdip = NULL;
	dev_info_t *next;

	ASSERT(dipp == NULL || *dipp == NULL);

	/*
	 * Scan forward to see if we will be processing a pHCI child. If we
	 * have a child that is a pHCI and vHCI and pHCI are not siblings then
	 * enter vHCI before parent(pHCI) to prevent deadlock with mpxio
	 * Client power management operations.
	 */
	ndi_devi_enter(dip);
	for (child = ddi_get_child(dip); child;
	    child = ddi_get_next_sibling(child)) {
		/* skip same nodes we skip below */
		if (((major != DDI_MAJOR_T_NONE) &&
		    (major != ddi_driver_major(child))) ||
		    ((flags & NDI_AUTODETACH) && !is_leaf_node(child)))
			continue;

		if (MDI_PHCI(child)) {
			vdip = mdi_devi_get_vdip(child);
			/*
			 * If vHCI and vHCI is not a sibling of pHCI
			 * then enter in (vHCI, parent(pHCI)) order.
			 */
			if (vdip && (ddi_get_parent(vdip) != dip)) {
				ndi_devi_exit(dip);

				/* use mdi_devi_enter ordering */
				ndi_devi_enter(vdip);
				ndi_devi_enter(dip);
				break;
			} else
				vdip = NULL;
		}
	}

	child = ddi_get_child(dip);
	while (child) {
		next = ddi_get_next_sibling(child);

		if ((major != DDI_MAJOR_T_NONE) &&
		    (major != ddi_driver_major(child))) {
			child = next;
			continue;
		}

		/* skip nexus nodes during autodetach */
		if ((flags & NDI_AUTODETACH) && !is_leaf_node(child)) {
			child = next;
			continue;
		}

		if (devi_detach_node(child, flags) != NDI_SUCCESS) {
			if (dipp && *dipp == NULL) {
				ndi_hold_devi(child);
				*dipp = child;
			}
			rv = NDI_FAILURE;
		}

		/*
		 * Continue upon failure--best effort algorithm
		 */
		child = next;
	}

	ndi_devi_exit(dip);
	if (vdip)
		ndi_devi_exit(vdip);

	return (rv);
}

/*
 * unconfigure grand children of bus nexus device
 */
static int
unconfig_grand_children(
	dev_info_t *dip,
	dev_info_t **dipp,
	int flags,
	major_t major,
	struct brevq_node **brevqp)
{
	struct mt_config_handle *hdl;

	if (brevqp)
		*brevqp = NULL;

	/* multi-threaded configuration of child nexus */
	hdl = mt_config_init(dip, dipp, flags, major, MT_UNCONFIG_OP, brevqp);
	mt_config_children(hdl);

	return (mt_config_fini(hdl));	/* wait for threads to exit */
}

/*
 * Unconfigure children/descendants of the dip.
 *
 * If brevqp is not NULL, on return *brevqp is set to a queue of dip's
 * child devinames for which branch remove events need to be generated.
 */
static int
devi_unconfig_common(
	dev_info_t *dip,
	dev_info_t **dipp,
	int flags,
	major_t major,
	struct brevq_node **brevqp)
{
	int rv;
	int pm_cookie;
	int (*f)();
	ddi_bus_config_op_t bus_op;

	if (dipp)
		*dipp = NULL;
	if (brevqp)
		*brevqp = NULL;

	/*
	 * Power up the dip if it is powered off.  If the flag bit
	 * NDI_AUTODETACH is set and the dip is not at its full power,
	 * skip the rest of the branch.
	 */
	if (pm_pre_unconfig(dip, flags, &pm_cookie, NULL) != DDI_SUCCESS)
		return ((flags & NDI_AUTODETACH) ? NDI_SUCCESS :
		    NDI_FAILURE);

	/*
	 * Some callers, notably SCSI, need to clear out the devfs
	 * cache together with the unconfig to prevent stale entries.
	 */
	if (flags & NDI_DEVFS_CLEAN)
		(void) devfs_clean(dip, NULL, 0);

	rv = unconfig_grand_children(dip, dipp, flags, major, brevqp);

	if ((rv != NDI_SUCCESS) && ((flags & NDI_AUTODETACH) == 0)) {
		if (brevqp && *brevqp) {
			log_and_free_br_events_on_grand_children(dip, *brevqp);
			free_brevq(*brevqp);
			*brevqp = NULL;
		}
		pm_post_unconfig(dip, pm_cookie, NULL);
		return (rv);
	}

	if (dipp && *dipp) {
		ndi_rele_devi(*dipp);
		*dipp = NULL;
	}

	/*
	 * It is possible to have a detached nexus with children
	 * and grandchildren (for example: a branch consisting
	 * entirely of bound nodes.) Since the nexus is detached
	 * the bus_unconfig entry point cannot be used to remove
	 * or unconfigure the descendants.
	 */
	if (!i_ddi_devi_attached(dip) ||
	    (DEVI(dip)->devi_ops->devo_bus_ops == NULL) ||
	    (DEVI(dip)->devi_ops->devo_bus_ops->busops_rev < BUSO_REV_5) ||
	    (f = DEVI(dip)->devi_ops->devo_bus_ops->bus_unconfig) == NULL) {
		rv = unconfig_immediate_children(dip, dipp, flags, major);
	} else {
		/*
		 * call bus_unconfig entry point
		 * It should reset nexus flags if unconfigure succeeds.
		 */
		bus_op = (major == DDI_MAJOR_T_NONE) ?
		    BUS_UNCONFIG_ALL : BUS_UNCONFIG_DRIVER;
		rv = (*f)(dip, flags, bus_op, (void *)(uintptr_t)major);
	}

	pm_post_unconfig(dip, pm_cookie, NULL);

	if (brevqp && *brevqp)
		cleanup_br_events_on_grand_children(dip, brevqp);

	return (rv);
}

/*
 * called by devfs/framework to unconfigure children bound to major
 * If NDI_AUTODETACH is specified, this is invoked by either the
 * moduninstall daemon or the modunload -i 0 command.
 */
int
ndi_devi_unconfig_driver(dev_info_t *dip, int flags, major_t major)
{
	NDI_CONFIG_DEBUG((CE_CONT,
	    "ndi_devi_unconfig_driver: par = %s%d (%p), flags = 0x%x\n",
	    ddi_driver_name(dip), ddi_get_instance(dip), (void *)dip, flags));

	return (devi_unconfig_common(dip, NULL, flags, major, NULL));
}

int
ndi_devi_unconfig(dev_info_t *dip, int flags)
{
	NDI_CONFIG_DEBUG((CE_CONT,
	    "ndi_devi_unconfig: par = %s%d (%p), flags = 0x%x\n",
	    ddi_driver_name(dip), ddi_get_instance(dip), (void *)dip, flags));

	return (devi_unconfig_common(dip, NULL, flags, DDI_MAJOR_T_NONE, NULL));
}

int
e_ddi_devi_unconfig(dev_info_t *dip, dev_info_t **dipp, int flags)
{
	NDI_CONFIG_DEBUG((CE_CONT,
	    "e_ddi_devi_unconfig: par = %s%d (%p), flags = 0x%x\n",
	    ddi_driver_name(dip), ddi_get_instance(dip), (void *)dip, flags));

	return (devi_unconfig_common(dip, dipp, flags, DDI_MAJOR_T_NONE, NULL));
}

/*
 * Unconfigure child by name
 */
static int
devi_unconfig_one(dev_info_t *pdip, char *devnm, int flags)
{
	int		rv;
	dev_info_t	*child;
	dev_info_t	*vdip = NULL;

	ndi_devi_enter(pdip);
	child = ndi_devi_findchild(pdip, devnm);

	/*
	 * If child is pHCI and vHCI and pHCI are not siblings then enter vHCI
	 * before parent(pHCI) to avoid deadlock with mpxio Client power
	 * management operations.
	 */
	if (child && MDI_PHCI(child)) {
		vdip = mdi_devi_get_vdip(child);
		if (vdip && (ddi_get_parent(vdip) != pdip)) {
			ndi_devi_exit(pdip);

			/* use mdi_devi_enter ordering */
			ndi_devi_enter(vdip);
			ndi_devi_enter(pdip);
			child = ndi_devi_findchild(pdip, devnm);
		} else
			vdip = NULL;
	}

	if (child) {
		rv = devi_detach_node(child, flags);
	} else {
		NDI_CONFIG_DEBUG((CE_CONT,
		    "devi_unconfig_one: %s not found\n", devnm));
		rv = NDI_SUCCESS;
	}

	ndi_devi_exit(pdip);
	if (vdip)
		ndi_devi_exit(vdip);

	return (rv);
}

int
ndi_devi_unconfig_one(
	dev_info_t *pdip,
	char *devnm,
	dev_info_t **dipp,
	int flags)
{
	int		(*f)();
	int		rv;
	int		pm_cookie;
	dev_info_t	*child;
	dev_info_t	*vdip = NULL;
	struct brevq_node *brevq = NULL;

	ASSERT(i_ddi_devi_attached(pdip));

	NDI_CONFIG_DEBUG((CE_CONT,
	    "ndi_devi_unconfig_one: par = %s%d (%p), child = %s\n",
	    ddi_driver_name(pdip), ddi_get_instance(pdip),
	    (void *)pdip, devnm));

	if (pm_pre_unconfig(pdip, flags, &pm_cookie, devnm) != DDI_SUCCESS)
		return (NDI_FAILURE);

	if (dipp)
		*dipp = NULL;

	ndi_devi_enter(pdip);
	child = ndi_devi_findchild(pdip, devnm);

	/*
	 * If child is pHCI and vHCI and pHCI are not siblings then enter vHCI
	 * before parent(pHCI) to avoid deadlock with mpxio Client power
	 * management operations.
	 */
	if (child && MDI_PHCI(child)) {
		vdip = mdi_devi_get_vdip(child);
		if (vdip && (ddi_get_parent(vdip) != pdip)) {
			ndi_devi_exit(pdip);

			/* use mdi_devi_enter ordering */
			ndi_devi_enter(vdip);
			ndi_devi_enter(pdip);
			child = ndi_devi_findchild(pdip, devnm);
		} else
			vdip = NULL;
	}

	if (child == NULL) {
		NDI_CONFIG_DEBUG((CE_CONT, "ndi_devi_unconfig_one: %s"
		    " not found\n", devnm));
		rv = NDI_SUCCESS;
		goto out;
	}

	/*
	 * Unconfigure children/descendants of named child
	 */
	rv = devi_unconfig_branch(child, dipp, flags | NDI_UNCONFIG, &brevq);
	if (rv != NDI_SUCCESS)
		goto out;

	init_bound_node_ev(pdip, child, flags);

	if ((DEVI(pdip)->devi_ops->devo_bus_ops == NULL) ||
	    (DEVI(pdip)->devi_ops->devo_bus_ops->busops_rev < BUSO_REV_5) ||
	    (f = DEVI(pdip)->devi_ops->devo_bus_ops->bus_unconfig) == NULL) {
		rv = devi_detach_node(child, flags);
	} else {
		/* call bus_config entry point */
		rv = (*f)(pdip, flags, BUS_UNCONFIG_ONE, (void *)devnm);
	}

	if (brevq) {
		if (rv != NDI_SUCCESS)
			log_and_free_brevq_dip(child, brevq);
		else
			free_brevq(brevq);
	}

	if (dipp && rv != NDI_SUCCESS) {
		ndi_hold_devi(child);
		ASSERT(*dipp == NULL);
		*dipp = child;
	}

out:
	ndi_devi_exit(pdip);
	if (vdip)
		ndi_devi_exit(vdip);

	pm_post_unconfig(pdip, pm_cookie, devnm);

	return (rv);
}

struct async_arg {
	dev_info_t *dip;
	uint_t flags;
};

/*
 * Common async handler for:
 *	ndi_devi_bind_driver_async
 *	ndi_devi_online_async
 */
static int
i_ndi_devi_async_common(dev_info_t *dip, uint_t flags, void (*func)())
{
	int tqflag;
	int kmflag;
	struct async_arg *arg;
	dev_info_t *pdip = ddi_get_parent(dip);

	ASSERT(pdip);
	ASSERT(DEVI(pdip)->devi_taskq);
	ASSERT(ndi_dev_is_persistent_node(dip));

	if (flags & NDI_NOSLEEP) {
		kmflag = KM_NOSLEEP;
		tqflag = TQ_NOSLEEP;
	} else {
		kmflag = KM_SLEEP;
		tqflag = TQ_SLEEP;
	}

	arg = kmem_alloc(sizeof (*arg), kmflag);
	if (arg == NULL)
		goto fail;

	arg->flags = flags;
	arg->dip = dip;
	if (ddi_taskq_dispatch(DEVI(pdip)->devi_taskq, func, arg, tqflag) ==
	    DDI_SUCCESS) {
		return (NDI_SUCCESS);
	}

fail:
	NDI_CONFIG_DEBUG((CE_CONT, "%s%d: ddi_taskq_dispatch failed",
	    ddi_driver_name(pdip), ddi_get_instance(pdip)));

	if (arg)
		kmem_free(arg, sizeof (*arg));
	return (NDI_FAILURE);
}

static void
i_ndi_devi_bind_driver_cb(struct async_arg *arg)
{
	(void) ndi_devi_bind_driver(arg->dip, arg->flags);
	kmem_free(arg, sizeof (*arg));
}

int
ndi_devi_bind_driver_async(dev_info_t *dip, uint_t flags)
{
	return (i_ndi_devi_async_common(dip, flags,
	    (void (*)())i_ndi_devi_bind_driver_cb));
}

/*
 * place the devinfo in the ONLINE state.
 */
int
ndi_devi_online(dev_info_t *dip, uint_t flags)
{
	int rv;
	dev_info_t *pdip = ddi_get_parent(dip);
	int branch_event = 0;

	ASSERT(pdip);

	NDI_CONFIG_DEBUG((CE_CONT, "ndi_devi_online: %s%d (%p)\n",
	    ddi_driver_name(dip), ddi_get_instance(dip), (void *)dip));

	ndi_devi_enter(pdip);
	/* bind child before merging .conf nodes */
	rv = i_ndi_config_node(dip, DS_BOUND, flags);
	if (rv != NDI_SUCCESS) {
		ndi_devi_exit(pdip);
		return (rv);
	}

	/* merge .conf properties */
	(void) i_ndi_make_spec_children(pdip, flags);

	flags |= (NDI_DEVI_ONLINE | NDI_CONFIG);

	if (flags & NDI_NO_EVENT) {
		/*
		 * Caller is specifically asking for not to generate an event.
		 * Set the following flag so that devi_attach_node() don't
		 * change the event state.
		 */
		flags |= NDI_NO_EVENT_STATE_CHNG;
	}

	if ((flags & (NDI_NO_EVENT | NDI_BRANCH_EVENT_OP)) == 0 &&
	    ((flags & NDI_CONFIG) || DEVI_NEED_NDI_CONFIG(dip))) {
		flags |= NDI_BRANCH_EVENT_OP;
		branch_event = 1;
	}

	/*
	 * devi_attach_node() may remove dip on failure
	 */
	if ((rv = devi_attach_node(dip, flags)) == NDI_SUCCESS) {
		if ((flags & NDI_CONFIG) || DEVI_NEED_NDI_CONFIG(dip)) {
			/*
			 * Hold the attached dip, and exit the parent while
			 * we drive configuration of children below the
			 * attached dip.
			 */
			ndi_hold_devi(dip);
			ndi_devi_exit(pdip);

			(void) ndi_devi_config(dip, flags);

			ndi_devi_enter(pdip);
			ndi_rele_devi(dip);
		}

		if (branch_event)
			(void) i_log_devfs_branch_add(dip);
	}

	ndi_devi_exit(pdip);

	/*
	 * Notify devfs that we have a new node. Devfs needs to invalidate
	 * cached directory contents.
	 *
	 * For PCMCIA devices, it is possible the pdip is not fully
	 * attached. In this case, calling back into devfs will
	 * result in a loop or assertion error. Hence, the check
	 * on node state.
	 *
	 * If we own parent lock, this is part of a branch operation.
	 * We skip the devfs_clean() step because the cache invalidation
	 * is done higher up in the device tree.
	 */
	if (rv == NDI_SUCCESS && i_ddi_devi_attached(pdip) &&
	    !DEVI_BUSY_OWNED(pdip))
		(void) devfs_clean(pdip, NULL, 0);
	return (rv);
}

static void
i_ndi_devi_online_cb(struct async_arg *arg)
{
	(void) ndi_devi_online(arg->dip, arg->flags);
	kmem_free(arg, sizeof (*arg));
}

int
ndi_devi_online_async(dev_info_t *dip, uint_t flags)
{
	/* mark child as need config if requested. */
	if (flags & NDI_CONFIG) {
		mutex_enter(&(DEVI(dip)->devi_lock));
		DEVI_SET_NDI_CONFIG(dip);
		mutex_exit(&(DEVI(dip)->devi_lock));
	}

	return (i_ndi_devi_async_common(dip, flags,
	    (void (*)())i_ndi_devi_online_cb));
}

/*
 * Take a device node Offline
 * To take a device Offline means to detach the device instance from
 * the driver and prevent devfs requests from re-attaching the device
 * instance.
 *
 * The flag NDI_DEVI_REMOVE causes removes the device node from
 * the driver list and the device tree. In this case, the device
 * is assumed to be removed from the system.
 */
int
ndi_devi_offline(dev_info_t *dip, uint_t flags)
{
	int		rval = 0;
	dev_info_t	*pdip = ddi_get_parent(dip);
	dev_info_t	*vdip = NULL;
	struct brevq_node *brevq = NULL;

	ASSERT(pdip);

	flags |= NDI_DEVI_OFFLINE;

	/*
	 * If child is pHCI and vHCI and pHCI are not siblings then enter vHCI
	 * before parent(pHCI) to avoid deadlock with mpxio Client power
	 * management operations.
	 */
	if (MDI_PHCI(dip)) {
		vdip = mdi_devi_get_vdip(dip);
		if (vdip && (ddi_get_parent(vdip) != pdip))
			ndi_devi_enter(vdip);
		else
			vdip = NULL;
	}
	ndi_devi_enter(pdip);

	if (i_ddi_devi_attached(dip)) {
		/*
		 * If dip is in DS_READY state, there may be cached dv_nodes
		 * referencing this dip, so we invoke devfs code path.
		 * Note that we must release busy changing on pdip to
		 * avoid deadlock against devfs.
		 */
		char *devname = kmem_alloc(MAXNAMELEN + 1, KM_SLEEP);
		(void) ddi_deviname(dip, devname);

		ndi_devi_exit(pdip);
		if (vdip)
			ndi_devi_exit(vdip);

		/*
		 * If we are explictly told to clean, then clean. If we own the
		 * parent lock then this is part of a branch operation, and we
		 * skip the devfs_clean() step.
		 *
		 * NOTE: A thread performing a devfs file system lookup/
		 * bus_config can't call devfs_clean to unconfig without
		 * causing rwlock problems in devfs. For ndi_devi_offline, this
		 * means that the NDI_DEVFS_CLEAN flag is safe from ioctl code
		 * or from an async hotplug thread, but is not safe from a
		 * nexus driver's bus_config implementation.
		 */
		if ((flags & NDI_DEVFS_CLEAN) ||
		    (!DEVI_BUSY_OWNED(pdip)))
			(void) devfs_clean(pdip, devname + 1, DV_CLEAN_FORCE);

		kmem_free(devname, MAXNAMELEN + 1);

		rval = devi_unconfig_branch(dip, NULL, flags|NDI_UNCONFIG,
		    &brevq);

		if (rval)
			return (NDI_FAILURE);

		if (vdip)
			ndi_devi_enter(vdip);
		ndi_devi_enter(pdip);
	}

	init_bound_node_ev(pdip, dip, flags);

	rval = devi_detach_node(dip, flags);
	if (brevq) {
		if (rval != NDI_SUCCESS)
			log_and_free_brevq_dip(dip, brevq);
		else
			free_brevq(brevq);
	}

	ndi_devi_exit(pdip);
	if (vdip)
		ndi_devi_exit(vdip);

	return (rval);
}

/*
 * Find the child dev_info node of parent nexus 'p' whose unit address
 * matches "cname@caddr".  Recommend use of ndi_devi_findchild() instead.
 */
dev_info_t *
ndi_devi_find(dev_info_t *pdip, char *cname, char *caddr)
{
	dev_info_t *child;

	if (pdip == NULL || cname == NULL || caddr == NULL)
		return ((dev_info_t *)NULL);

	ndi_devi_enter(pdip);
	child = find_sibling(ddi_get_child(pdip), cname, caddr,
	    FIND_NODE_BY_NODENAME, NULL);
	ndi_devi_exit(pdip);
	return (child);
}

/*
 * Find the child dev_info node of parent nexus 'p' whose unit address
 * matches devname "name@addr".  Permits caller to hold the parent.
 */
dev_info_t *
ndi_devi_findchild(dev_info_t *pdip, char *devname)
{
	dev_info_t *child;
	char	*cname, *caddr;
	char	*devstr;

	ASSERT(DEVI_BUSY_OWNED(pdip));

	devstr = i_ddi_strdup(devname, KM_SLEEP);
	i_ddi_parse_name(devstr, &cname, &caddr, NULL);

	if (cname == NULL || caddr == NULL) {
		kmem_free(devstr, strlen(devname)+1);
		return ((dev_info_t *)NULL);
	}

	child = find_sibling(ddi_get_child(pdip), cname, caddr,
	    FIND_NODE_BY_NODENAME, NULL);
	kmem_free(devstr, strlen(devname)+1);
	return (child);
}

/*
 * Misc. routines called by framework only
 */

/*
 * Clear the DEVI_MADE_CHILDREN/DEVI_ATTACHED_CHILDREN flags
 * if new child spec has been added.
 */
static int
reset_nexus_flags(dev_info_t *dip, void *arg)
{
	struct hwc_spec	*list;

	if (((DEVI(dip)->devi_flags & DEVI_MADE_CHILDREN) == 0) ||
	    ((list = hwc_get_child_spec(dip, (major_t)(uintptr_t)arg)) == NULL))
		return (DDI_WALK_CONTINUE);

	hwc_free_spec_list(list);

	/* coordinate child state update */
	ndi_devi_enter(dip);
	mutex_enter(&DEVI(dip)->devi_lock);
	DEVI(dip)->devi_flags &= ~(DEVI_MADE_CHILDREN | DEVI_ATTACHED_CHILDREN);
	mutex_exit(&DEVI(dip)->devi_lock);
	ndi_devi_exit(dip);

	return (DDI_WALK_CONTINUE);
}

/*
 * Helper functions, returns NULL if no memory.
 */

/*
 * path_to_major:
 *
 * Return an alternate driver name binding for the leaf device
 * of the given pathname, if there is one. The purpose of this
 * function is to deal with generic pathnames. The default action
 * for platforms that can't do this (ie: x86 or any platform that
 * does not have prom_finddevice functionality, which matches
 * nodenames and unit-addresses without the drivers participation)
 * is to return DDI_MAJOR_T_NONE.
 *
 * Used in loadrootmodules() in the swapgeneric module to
 * associate a given pathname with a given leaf driver.
 *
 */
major_t
path_to_major(char *path)
{
	dev_info_t *dip;
	char *p, *q;
	pnode_t nodeid;
	major_t major;

	/* check for path-oriented alias */
	major = ddi_name_to_major(path);
	if (driver_active(major)) {
		NDI_CONFIG_DEBUG((CE_NOTE, "path_to_major: %s path bound %s\n",
		    path, ddi_major_to_name(major)));
		return (major);
	}

	/*
	 * Get the nodeid of the given pathname, if such a mapping exists.
	 */
	dip = NULL;
	nodeid = prom_finddevice(path);
	if (nodeid != OBP_BADNODE) {
		/*
		 * Find the nodeid in our copy of the device tree and return
		 * whatever name we used to bind this node to a driver.
		 */
		dip = e_ddi_nodeid_to_dip(nodeid);
	}

	if (dip == NULL) {
		NDI_CONFIG_DEBUG((CE_WARN,
		    "path_to_major: can't bind <%s>\n", path));
		return (DDI_MAJOR_T_NONE);
	}

	/*
	 * If we're bound to something other than the nodename,
	 * note that in the message buffer and system log.
	 */
	p = ddi_binding_name(dip);
	q = ddi_node_name(dip);
	if (p && q && (strcmp(p, q) != 0))
		NDI_CONFIG_DEBUG((CE_NOTE, "path_to_major: %s bound to %s\n",
		    path, p));

	major = ddi_name_to_major(p);

	ndi_rele_devi(dip);		/* release e_ddi_nodeid_to_dip hold */

	return (major);
}

/*
 * Return the held dip for the specified major and instance, attempting to do
 * an attach if specified. Return NULL if the devi can't be found or put in
 * the proper state. The caller must release the hold via ddi_release_devi if
 * a non-NULL value is returned.
 *
 * Some callers expect to be able to perform a hold_devi() while in a context
 * where using ndi_devi_enter() to ensure the hold might cause deadlock (see
 * open-from-attach code in consconfig_dacf.c). Such special-case callers
 * must ensure that an ndi_devi_enter(parent)/ndi_hold_devi() from a safe
 * context is already active. The hold_devi() implementation must accommodate
 * these callers.
 */
static dev_info_t *
hold_devi(major_t major, int instance, int flags)
{
	struct devnames	*dnp;
	dev_info_t	*dip;
	char		*path;
	char		*vpath;

	if ((major >= devcnt) || (instance == -1))
		return (NULL);

	/* try to find the instance in the per driver list */
	dnp = &(devnamesp[major]);
	LOCK_DEV_OPS(&(dnp->dn_lock));
	for (dip = dnp->dn_head; dip;
	    dip = (dev_info_t *)DEVI(dip)->devi_next) {
		/* skip node if instance field is not valid */
		if (i_ddi_node_state(dip) < DS_INITIALIZED)
			continue;

		/* look for instance match */
		if (DEVI(dip)->devi_instance == instance) {
			/*
			 * To accommodate callers that can't block in
			 * ndi_devi_enter() we do an ndi_hold_devi(), and
			 * afterwards check that the node is in a state where
			 * the hold prevents detach(). If we did not manage to
			 * prevent detach then we ndi_rele_devi() and perform
			 * the slow path below (which can result in a blocking
			 * ndi_devi_enter() while driving attach top-down).
			 * This code depends on the ordering of
			 * DEVI_SET_DETACHING and the devi_ref check in the
			 * detach_node() code path.
			 */
			ndi_hold_devi(dip);
			if (i_ddi_devi_attached(dip) &&
			    !DEVI_IS_DETACHING(dip)) {
				UNLOCK_DEV_OPS(&(dnp->dn_lock));
				return (dip);	/* fast-path with devi held */
			}
			ndi_rele_devi(dip);

			/* try slow-path */
			dip = NULL;
			break;
		}
	}
	ASSERT(dip == NULL);
	UNLOCK_DEV_OPS(&(dnp->dn_lock));

	if (flags & E_DDI_HOLD_DEVI_NOATTACH)
		return (NULL);		/* told not to drive attach */

	/* slow-path may block, so it should not occur from interrupt */
	ASSERT(!servicing_interrupt());
	if (servicing_interrupt())
		return (NULL);

	/* reconstruct the path and drive attach by path through devfs. */
	path = kmem_alloc(MAXPATHLEN, KM_SLEEP);
	if (e_ddi_majorinstance_to_path(major, instance, path) == 0) {
		dip = e_ddi_hold_devi_by_path(path, flags);

		/*
		 * Verify that we got the correct device - a path_to_inst file
		 * with a bogus/corrupt path (or a nexus that changes its
		 * unit-address format) could result in an incorrect answer
		 *
		 * Verify major, instance, and path.
		 */
		vpath = kmem_alloc(MAXPATHLEN, KM_SLEEP);
		if (dip &&
		    ((DEVI(dip)->devi_major != major) ||
		    ((DEVI(dip)->devi_instance != instance)) ||
		    (strcmp(path, ddi_pathname(dip, vpath)) != 0))) {
			ndi_rele_devi(dip);
			dip = NULL;	/* no answer better than wrong answer */
		}
		kmem_free(vpath, MAXPATHLEN);
	}
	kmem_free(path, MAXPATHLEN);
	return (dip);			/* with devi held */
}

/*
 * The {e_}ddi_hold_devi{_by_{instance|dev|path}} hold the devinfo node
 * associated with the specified arguments.  This hold should be released
 * by calling ddi_release_devi.
 *
 * The E_DDI_HOLD_DEVI_NOATTACH flag argument allows the caller to to specify
 * a failure return if the node is not already attached.
 *
 * NOTE: by the time we make e_ddi_hold_devi public, we should be able to reuse
 * ddi_hold_devi again.
 */
dev_info_t *
ddi_hold_devi_by_instance(major_t major, int instance, int flags)
{
	return (hold_devi(major, instance, flags));
}

dev_info_t *
e_ddi_hold_devi_by_dev(dev_t dev, int flags)
{
	major_t	major = getmajor(dev);
	dev_info_t	*dip;
	struct dev_ops	*ops;
	dev_info_t	*ddip = NULL;

	dip = hold_devi(major, dev_to_instance(dev), flags);

	/*
	 * The rest of this routine is legacy support for drivers that
	 * have broken DDI_INFO_DEVT2INSTANCE implementations but may have
	 * functional DDI_INFO_DEVT2DEVINFO implementations.  This code will
	 * diagnose inconsistency and, for maximum compatibility with legacy
	 * drivers, give preference to the drivers DDI_INFO_DEVT2DEVINFO
	 * implementation over the above derived dip based the driver's
	 * DDI_INFO_DEVT2INSTANCE implementation. This legacy support should
	 * be removed when DDI_INFO_DEVT2DEVINFO is deprecated.
	 *
	 * NOTE: The following code has a race condition. DEVT2DEVINFO
	 *	returns a dip which is not held. By the time we ref ddip,
	 *	it could have been freed. The saving grace is that for
	 *	most drivers, the dip returned from hold_devi() is the
	 *	same one as the one returned by DEVT2DEVINFO, so we are
	 *	safe for drivers with the correct getinfo(9e) impl.
	 */
	if (((ops = ddi_hold_driver(major)) != NULL) &&
	    CB_DRV_INSTALLED(ops) && ops->devo_getinfo)  {
		if ((*ops->devo_getinfo)(NULL, DDI_INFO_DEVT2DEVINFO,
		    (void *)dev, (void **)&ddip) != DDI_SUCCESS)
			ddip = NULL;
	}

	/* give preference to the driver returned DEVT2DEVINFO dip */
	if (ddip && (dip != ddip)) {
#ifdef	DEBUG
		cmn_err(CE_WARN, "%s: inconsistent getinfo(9E) implementation",
		    ddi_driver_name(ddip));
#endif	/* DEBUG */
		ndi_hold_devi(ddip);
		if (dip)
			ndi_rele_devi(dip);
		dip = ddip;
	}

	if (ops)
		ddi_rele_driver(major);

	return (dip);
}

/*
 * For compatibility only. Do not call this function!
 */
dev_info_t *
e_ddi_get_dev_info(dev_t dev, vtype_t type)
{
	dev_info_t *dip = NULL;
	if (getmajor(dev) >= devcnt)
		return (NULL);

	switch (type) {
	case VCHR:
	case VBLK:
		dip = e_ddi_hold_devi_by_dev(dev, 0);
	default:
		break;
	}

	/*
	 * For compatibility reasons, we can only return the dip with
	 * the driver ref count held. This is not a safe thing to do.
	 * For certain broken third-party software, we are willing
	 * to venture into unknown territory.
	 */
	if (dip) {
		(void) ndi_hold_driver(dip);
		ndi_rele_devi(dip);
	}
	return (dip);
}

dev_info_t *
e_ddi_hold_devi_by_path(char *path, int flags)
{
	dev_info_t	*dip;

	/* can't specify NOATTACH by path */
	ASSERT(!(flags & E_DDI_HOLD_DEVI_NOATTACH));

	return (resolve_pathname(path, &dip, NULL, NULL) ? NULL : dip);
}

void
e_ddi_hold_devi(dev_info_t *dip)
{
	ndi_hold_devi(dip);
}

void
ddi_release_devi(dev_info_t *dip)
{
	ndi_rele_devi(dip);
}

/*
 * Associate a streams queue with a devinfo node
 * NOTE: This function is called by STREAM driver's put procedure.
 *	It cannot block.
 */
void
ddi_assoc_queue_with_devi(queue_t *q, dev_info_t *dip)
{
	queue_t *rq = _RD(q);
	struct stdata *stp;
	vnode_t *vp;

	/* set flag indicating that ddi_assoc_queue_with_devi was called */
	mutex_enter(QLOCK(rq));
	rq->q_flag |= _QASSOCIATED;
	mutex_exit(QLOCK(rq));

	/* get the vnode associated with the queue */
	stp = STREAM(rq);
	vp = stp->sd_vnode;
	ASSERT(vp);

	/* change the hardware association of the vnode */
	spec_assoc_vp_with_devi(vp, dip);
}

/*
 * ddi_install_driver(name)
 *
 * Driver installation is currently a byproduct of driver loading.  This
 * may change.
 */
int
ddi_install_driver(char *name)
{
	major_t major = ddi_name_to_major(name);

	if ((major == DDI_MAJOR_T_NONE) ||
	    (ddi_hold_installed_driver(major) == NULL)) {
		return (DDI_FAILURE);
	}
	ddi_rele_driver(major);
	return (DDI_SUCCESS);
}

struct dev_ops *
ddi_hold_driver(major_t major)
{
	return (mod_hold_dev_by_major(major));
}


void
ddi_rele_driver(major_t major)
{
	mod_rele_dev_by_major(major);
}


/*
 * This is called during boot to force attachment order of special dips
 * dip must be referenced via ndi_hold_devi()
 */
int
i_ddi_attach_node_hierarchy(dev_info_t *dip)
{
	dev_info_t	*parent;
	int		ret;

	/*
	 * Recurse up until attached parent is found.
	 */
	if (i_ddi_devi_attached(dip))
		return (DDI_SUCCESS);
	parent = ddi_get_parent(dip);
	if (i_ddi_attach_node_hierarchy(parent) != DDI_SUCCESS)
		return (DDI_FAILURE);

	/*
	 * Come top-down, expanding .conf nodes under this parent
	 * and driving attach.
	 */
	ndi_devi_enter(parent);
	(void) i_ndi_make_spec_children(parent, 0);
	ret = i_ddi_attachchild(dip);
	ndi_devi_exit(parent);

	return (ret);
}

/* keep this function static */
static int
attach_driver_nodes(major_t major)
{
	struct devnames *dnp;
	dev_info_t *dip;
	int error = DDI_FAILURE;

	dnp = &devnamesp[major];
	LOCK_DEV_OPS(&dnp->dn_lock);
	dip = dnp->dn_head;
	while (dip) {
		ndi_hold_devi(dip);
		UNLOCK_DEV_OPS(&dnp->dn_lock);
		if (i_ddi_attach_node_hierarchy(dip) == DDI_SUCCESS)
			error = DDI_SUCCESS;
		/*
		 * Set the 'ddi-config-driver-node' property on a nexus
		 * node to cause attach_driver_nodes() to configure all
		 * immediate children of the nexus. This property should
		 * be set on nodes with immediate children that bind to
		 * the same driver as parent.
		 */
		if ((error == DDI_SUCCESS) && (ddi_prop_exists(DDI_DEV_T_ANY,
		    dip, DDI_PROP_DONTPASS, "ddi-config-driver-node"))) {
			(void) ndi_devi_config(dip, NDI_NO_EVENT);
		}
		LOCK_DEV_OPS(&dnp->dn_lock);
		ndi_rele_devi(dip);
		dip = ddi_get_next(dip);
	}
	if (error == DDI_SUCCESS)
		dnp->dn_flags |= DN_NO_AUTODETACH;
	UNLOCK_DEV_OPS(&dnp->dn_lock);


	return (error);
}

/*
 * i_ddi_attach_hw_nodes configures and attaches all hw nodes
 * bound to a specific driver. This function replaces calls to
 * ddi_hold_installed_driver() for drivers with no .conf
 * enumerated nodes.
 *
 * This facility is typically called at boot time to attach
 * platform-specific hardware nodes, such as ppm nodes on xcal
 * and grover and keyswitch nodes on cherrystone. It does not
 * deal with .conf enumerated node. Calling it beyond the boot
 * process is strongly discouraged.
 */
int
i_ddi_attach_hw_nodes(char *driver)
{
	major_t major;

	major = ddi_name_to_major(driver);
	if (major == DDI_MAJOR_T_NONE)
		return (DDI_FAILURE);

	return (attach_driver_nodes(major));
}

/*
 * i_ddi_attach_pseudo_node configures pseudo drivers which
 * has a single node. The .conf nodes must be enumerated
 * before calling this interface. The dip is held attached
 * upon returning.
 *
 * This facility should only be called only at boot time
 * by the I/O framework.
 */
dev_info_t *
i_ddi_attach_pseudo_node(char *driver)
{
	major_t major;
	dev_info_t *dip;

	major = ddi_name_to_major(driver);
	if (major == DDI_MAJOR_T_NONE)
		return (NULL);

	if (attach_driver_nodes(major) != DDI_SUCCESS)
		return (NULL);

	dip = devnamesp[major].dn_head;
	ASSERT(dip && ddi_get_next(dip) == NULL);
	ndi_hold_devi(dip);
	return (dip);
}

static void
diplist_to_parent_major(dev_info_t *head, char parents[])
{
	major_t major;
	dev_info_t *dip, *pdip;

	for (dip = head; dip != NULL; dip = ddi_get_next(dip)) {
		pdip = ddi_get_parent(dip);
		ASSERT(pdip);	/* disallow rootnex.conf nodes */
		major = ddi_driver_major(pdip);
		if ((major != DDI_MAJOR_T_NONE) && parents[major] == 0)
			parents[major] = 1;
	}
}

/*
 * Call ddi_hold_installed_driver() on each parent major
 * and invoke mt_config_driver() to attach child major.
 * This is part of the implementation of ddi_hold_installed_driver.
 */
static int
attach_driver_by_parent(major_t child_major, char parents[])
{
	major_t par_major;
	struct mt_config_handle *hdl;
	int flags = NDI_DEVI_PERSIST | NDI_NO_EVENT;

	hdl = mt_config_init(NULL, NULL, flags, child_major, MT_CONFIG_OP,
	    NULL);
	for (par_major = 0; par_major < devcnt; par_major++) {
		/* disallow recursion on the same driver */
		if (parents[par_major] == 0 || par_major == child_major)
			continue;
		if (ddi_hold_installed_driver(par_major) == NULL)
			continue;
		hdl->mtc_parmajor = par_major;
		mt_config_driver(hdl);
		ddi_rele_driver(par_major);
	}
	(void) mt_config_fini(hdl);

	return (i_ddi_devs_attached(child_major));
}

int
i_ddi_devs_attached(major_t major)
{
	dev_info_t *dip;
	struct devnames *dnp;
	int error = DDI_FAILURE;

	/* check for attached instances */
	dnp = &devnamesp[major];
	LOCK_DEV_OPS(&dnp->dn_lock);
	for (dip = dnp->dn_head; dip != NULL; dip = ddi_get_next(dip)) {
		if (i_ddi_devi_attached(dip)) {
			error = DDI_SUCCESS;
			break;
		}
	}
	UNLOCK_DEV_OPS(&dnp->dn_lock);

	return (error);
}

int
i_ddi_minor_node_count(dev_info_t *ddip, const char *node_type)
{
	struct ddi_minor_data	*dp;
	int			count = 0;

	ndi_devi_enter(ddip);
	for (dp = DEVI(ddip)->devi_minor; dp != NULL; dp = dp->next) {
		if (strcmp(dp->ddm_node_type, node_type) == 0)
			count++;
	}
	ndi_devi_exit(ddip);
	return (count);
}

/*
 * ddi_hold_installed_driver configures and attaches all
 * instances of the specified driver. To accomplish this
 * it configures and attaches all possible parents of
 * the driver, enumerated both in h/w nodes and in the
 * driver's .conf file.
 *
 * NOTE: This facility is for compatibility purposes only and will
 *	eventually go away. Its usage is strongly discouraged.
 */
static void
enter_driver(struct devnames *dnp)
{
	mutex_enter(&dnp->dn_lock);
	ASSERT(dnp->dn_busy_thread != curthread);
	while (dnp->dn_flags & DN_DRIVER_BUSY)
		cv_wait(&dnp->dn_wait, &dnp->dn_lock);
	dnp->dn_flags |= DN_DRIVER_BUSY;
	dnp->dn_busy_thread = curthread;
	mutex_exit(&dnp->dn_lock);
}

static void
exit_driver(struct devnames *dnp)
{
	mutex_enter(&dnp->dn_lock);
	ASSERT(dnp->dn_busy_thread == curthread);
	dnp->dn_flags &= ~DN_DRIVER_BUSY;
	dnp->dn_busy_thread = NULL;
	cv_broadcast(&dnp->dn_wait);
	mutex_exit(&dnp->dn_lock);
}

struct dev_ops *
ddi_hold_installed_driver(major_t major)
{
	struct dev_ops *ops;
	struct devnames *dnp;
	char *parents;
	int error;

	ops = ddi_hold_driver(major);
	if (ops == NULL)
		return (NULL);

	/*
	 * Return immediately if all the attach operations associated
	 * with a ddi_hold_installed_driver() call have already been done.
	 */
	dnp = &devnamesp[major];
	enter_driver(dnp);
	ASSERT(driver_active(major));

	if (dnp->dn_flags & DN_DRIVER_HELD) {
		exit_driver(dnp);
		if (i_ddi_devs_attached(major) == DDI_SUCCESS)
			return (ops);
		ddi_rele_driver(major);
		return (NULL);
	}

	LOCK_DEV_OPS(&dnp->dn_lock);
	dnp->dn_flags |= (DN_DRIVER_HELD | DN_NO_AUTODETACH);
	UNLOCK_DEV_OPS(&dnp->dn_lock);

	DCOMPATPRINTF((CE_CONT,
	    "ddi_hold_installed_driver: %s\n", dnp->dn_name));

	/*
	 * When the driver has no .conf children, it is sufficient
	 * to attach existing nodes in the device tree. Nodes not
	 * enumerated by the OBP are not attached.
	 */
	if (dnp->dn_pl == NULL) {
		if (attach_driver_nodes(major) == DDI_SUCCESS) {
			exit_driver(dnp);
			return (ops);
		}
		exit_driver(dnp);
		ddi_rele_driver(major);
		return (NULL);
	}

	/*
	 * Driver has .conf nodes. We find all possible parents
	 * and recursively all ddi_hold_installed_driver on the
	 * parent driver; then we invoke ndi_config_driver()
	 * on all possible parent node in parallel to speed up
	 * performance.
	 */
	parents = kmem_zalloc(devcnt * sizeof (char), KM_SLEEP);

	LOCK_DEV_OPS(&dnp->dn_lock);
	/* find .conf parents */
	(void) impl_parlist_to_major(dnp->dn_pl, parents);
	/* find hw node parents */
	diplist_to_parent_major(dnp->dn_head, parents);
	UNLOCK_DEV_OPS(&dnp->dn_lock);

	error = attach_driver_by_parent(major, parents);
	kmem_free(parents, devcnt * sizeof (char));
	if (error == DDI_SUCCESS) {
		exit_driver(dnp);
		return (ops);
	}

	exit_driver(dnp);
	ddi_rele_driver(major);
	return (NULL);
}

/*
 * Default bus_config entry point for nexus drivers
 */
int
ndi_busop_bus_config(dev_info_t *pdip, uint_t flags, ddi_bus_config_op_t op,
    void *arg, dev_info_t **child, clock_t timeout)
{
	major_t major;

	/*
	 * A timeout of 30 minutes or more is probably a mistake
	 * This is intended to catch uses where timeout is in
	 * the wrong units.  timeout must be in units of ticks.
	 */
	ASSERT(timeout < SEC_TO_TICK(1800));

	major = DDI_MAJOR_T_NONE;
	switch (op) {
	case BUS_CONFIG_ONE:
		NDI_DEBUG(flags, (CE_CONT, "%s%d: bus config %s timeout=%ld\n",
		    ddi_driver_name(pdip), ddi_get_instance(pdip),
		    (char *)arg, timeout));
		return (devi_config_one(pdip, (char *)arg, child, flags,
		    timeout));

	case BUS_CONFIG_DRIVER:
		major = (major_t)(uintptr_t)arg;
		/*FALLTHROUGH*/
	case BUS_CONFIG_ALL:
		NDI_DEBUG(flags, (CE_CONT, "%s%d: bus config timeout=%ld\n",
		    ddi_driver_name(pdip), ddi_get_instance(pdip),
		    timeout));
		if (timeout > 0) {
			NDI_DEBUG(flags, (CE_CONT,
			    "%s%d: bus config all timeout=%ld\n",
			    ddi_driver_name(pdip), ddi_get_instance(pdip),
			    timeout));
			delay(timeout);
		}
		return (config_immediate_children(pdip, flags, major));

	default:
		return (NDI_FAILURE);
	}
	/*NOTREACHED*/
}

/*
 * Default busop bus_unconfig handler for nexus drivers
 */
int
ndi_busop_bus_unconfig(dev_info_t *pdip, uint_t flags, ddi_bus_config_op_t op,
    void *arg)
{
	major_t major;

	major = DDI_MAJOR_T_NONE;
	switch (op) {
	case BUS_UNCONFIG_ONE:
		NDI_DEBUG(flags, (CE_CONT, "%s%d: bus unconfig %s\n",
		    ddi_driver_name(pdip), ddi_get_instance(pdip),
		    (char *)arg));
		return (devi_unconfig_one(pdip, (char *)arg, flags));

	case BUS_UNCONFIG_DRIVER:
		major = (major_t)(uintptr_t)arg;
		/*FALLTHROUGH*/
	case BUS_UNCONFIG_ALL:
		NDI_DEBUG(flags, (CE_CONT, "%s%d: bus unconfig all\n",
		    ddi_driver_name(pdip), ddi_get_instance(pdip)));
		return (unconfig_immediate_children(pdip, NULL, flags, major));

	default:
		return (NDI_FAILURE);
	}
	/*NOTREACHED*/
}

/*
 * dummy functions to be removed
 */
void
impl_rem_dev_props(dev_info_t *dip)
{
	_NOTE(ARGUNUSED(dip))
	/* do nothing */
}

/*
 * Determine if a node is a leaf node. If not sure, return false (0).
 */
static int
is_leaf_node(dev_info_t *dip)
{
	major_t major = ddi_driver_major(dip);

	if (major == DDI_MAJOR_T_NONE)
		return (0);

	return (devnamesp[major].dn_flags & DN_LEAF_DRIVER);
}

/*
 * Multithreaded [un]configuration
 */
static struct mt_config_handle *
mt_config_init(dev_info_t *pdip, dev_info_t **dipp, int flags,
    major_t major, int op, struct brevq_node **brevqp)
{
	struct mt_config_handle	*hdl = kmem_alloc(sizeof (*hdl), KM_SLEEP);

	mutex_init(&hdl->mtc_lock, NULL, MUTEX_DEFAULT, NULL);
	cv_init(&hdl->mtc_cv, NULL, CV_DEFAULT, NULL);
	hdl->mtc_pdip = pdip;
	hdl->mtc_fdip = dipp;
	hdl->mtc_parmajor = DDI_MAJOR_T_NONE;
	hdl->mtc_flags = flags;
	hdl->mtc_major = major;
	hdl->mtc_thr_count = 0;
	hdl->mtc_op = op;
	hdl->mtc_error = 0;
	hdl->mtc_brevqp = brevqp;

#ifdef DEBUG
	gethrestime(&hdl->start_time);
	hdl->total_time = 0;
#endif /* DEBUG */

	return (hdl);
}

#ifdef DEBUG
static int
time_diff_in_msec(timestruc_t start, timestruc_t end)
{
	int	nsec, sec;

	sec = end.tv_sec - start.tv_sec;
	nsec = end.tv_nsec - start.tv_nsec;
	if (nsec < 0) {
		nsec += NANOSEC;
		sec -= 1;
	}

	return (sec * (NANOSEC >> 20) + (nsec >> 20));
}

#endif	/* DEBUG */

static int
mt_config_fini(struct mt_config_handle *hdl)
{
	int		rv;
#ifdef DEBUG
	int		real_time;
	timestruc_t	end_time;
#endif /* DEBUG */

	mutex_enter(&hdl->mtc_lock);
	while (hdl->mtc_thr_count > 0)
		cv_wait(&hdl->mtc_cv, &hdl->mtc_lock);
	rv = hdl->mtc_error;
	mutex_exit(&hdl->mtc_lock);

#ifdef DEBUG
	gethrestime(&end_time);
	real_time = time_diff_in_msec(hdl->start_time, end_time);
	if ((ddidebug & DDI_MTCONFIG) && hdl->mtc_pdip)
		cmn_err(CE_NOTE,
		    "config %s%d: total time %d msec, real time %d msec",
		    ddi_driver_name(hdl->mtc_pdip),
		    ddi_get_instance(hdl->mtc_pdip),
		    hdl->total_time, real_time);
#endif /* DEBUG */

	cv_destroy(&hdl->mtc_cv);
	mutex_destroy(&hdl->mtc_lock);
	kmem_free(hdl, sizeof (*hdl));

	return (rv);
}

struct mt_config_data {
	struct mt_config_handle	*mtc_hdl;
	dev_info_t		*mtc_dip;
	major_t			mtc_major;
	int			mtc_flags;
	struct brevq_node	*mtc_brn;
	struct mt_config_data	*mtc_next;
};

static void
mt_config_thread(void *arg)
{
	struct mt_config_data	*mcd = (struct mt_config_data *)arg;
	struct mt_config_handle	*hdl = mcd->mtc_hdl;
	dev_info_t		*dip = mcd->mtc_dip;
	dev_info_t		*rdip, **dipp;
	major_t			major = mcd->mtc_major;
	int			flags = mcd->mtc_flags;
	int			rv = 0;

#ifdef DEBUG
	timestruc_t start_time, end_time;
	gethrestime(&start_time);
#endif /* DEBUG */

	rdip = NULL;
	dipp = hdl->mtc_fdip ? &rdip : NULL;

	switch (hdl->mtc_op) {
	case MT_CONFIG_OP:
		rv = devi_config_common(dip, flags, major);
		break;
	case MT_UNCONFIG_OP:
		if (mcd->mtc_brn) {
			struct brevq_node *brevq = NULL;
			rv = devi_unconfig_common(dip, dipp, flags, major,
			    &brevq);
			mcd->mtc_brn->brn_child = brevq;
		} else
			rv = devi_unconfig_common(dip, dipp, flags, major,
			    NULL);
		break;
	}

	mutex_enter(&hdl->mtc_lock);
#ifdef DEBUG
	gethrestime(&end_time);
	hdl->total_time += time_diff_in_msec(start_time, end_time);
#endif /* DEBUG */

	if ((rv != NDI_SUCCESS) && (hdl->mtc_error == 0)) {
		hdl->mtc_error = rv;
#ifdef	DEBUG
		if ((ddidebug & DDI_DEBUG) && (major != DDI_MAJOR_T_NONE)) {
			char	*path = kmem_alloc(MAXPATHLEN, KM_SLEEP);

			(void) ddi_pathname(dip, path);
			cmn_err(CE_NOTE, "mt_config_thread: "
			    "op %d.%d.%x at %s failed %d",
			    hdl->mtc_op, major, flags, path, rv);
			kmem_free(path, MAXPATHLEN);
		}
#endif	/* DEBUG */
	}

	if (hdl->mtc_fdip && *hdl->mtc_fdip == NULL) {
		*hdl->mtc_fdip = rdip;
		rdip = NULL;
	}

	if (rdip) {
		ASSERT(rv != NDI_SUCCESS);
		ndi_rele_devi(rdip);
	}

	ndi_rele_devi(dip);

	if (--hdl->mtc_thr_count == 0)
		cv_broadcast(&hdl->mtc_cv);
	mutex_exit(&hdl->mtc_lock);
	kmem_free(mcd, sizeof (*mcd));
}

/*
 * Multi-threaded config/unconfig of child nexus
 */
static void
mt_config_children(struct mt_config_handle *hdl)
{
	dev_info_t		*pdip = hdl->mtc_pdip;
	major_t			major = hdl->mtc_major;
	dev_info_t		*dip;
	struct brevq_node	*brn;
	struct mt_config_data	*mcd_head = NULL;
	struct mt_config_data	*mcd_tail = NULL;
	struct mt_config_data	*mcd;
#ifdef DEBUG
	timestruc_t		end_time;

	/* Update total_time in handle */
	gethrestime(&end_time);
	hdl->total_time += time_diff_in_msec(hdl->start_time, end_time);
#endif

	ndi_devi_enter(pdip);
	dip = ddi_get_child(pdip);
	while (dip) {
		if (hdl->mtc_op == MT_UNCONFIG_OP && hdl->mtc_brevqp &&
		    !(DEVI_EVREMOVE(dip)) &&
		    i_ddi_node_state(dip) >= DS_INITIALIZED) {
			/*
			 * Enqueue this dip's deviname.
			 * No need to hold a lock while enqueuing since this
			 * is the only thread doing the enqueue and no one
			 * walks the queue while we are in multithreaded
			 * unconfiguration.
			 */
			brn = brevq_enqueue(hdl->mtc_brevqp, dip, NULL);
		} else
			brn = NULL;

		/*
		 * Hold the child that we are processing so it does not get
		 * removed. The corrisponding ndi_rele_devi() for children
		 * that are not being skipped is done at the end of
		 * mt_config_thread().
		 */
		ndi_hold_devi(dip);

		/*
		 * skip leaf nodes and (for configure) nodes not
		 * fully attached.
		 */
		if (is_leaf_node(dip) ||
		    (hdl->mtc_op == MT_CONFIG_OP &&
		    i_ddi_node_state(dip) < DS_READY)) {
			ndi_rele_devi(dip);
			dip = ddi_get_next_sibling(dip);
			continue;
		}

		mcd = kmem_alloc(sizeof (*mcd), KM_SLEEP);
		mcd->mtc_dip = dip;
		mcd->mtc_hdl = hdl;
		mcd->mtc_brn = brn;

		/*
		 * Switch a 'driver' operation to an 'all' operation below a
		 * node bound to the driver.
		 */
		if ((major == DDI_MAJOR_T_NONE) ||
		    (major == ddi_driver_major(dip)))
			mcd->mtc_major = DDI_MAJOR_T_NONE;
		else
			mcd->mtc_major = major;

		/*
		 * The unconfig-driver to unconfig-all conversion above
		 * constitutes an autodetach for NDI_DETACH_DRIVER calls,
		 * set NDI_AUTODETACH.
		 */
		mcd->mtc_flags = hdl->mtc_flags;
		if ((mcd->mtc_flags & NDI_DETACH_DRIVER) &&
		    (hdl->mtc_op == MT_UNCONFIG_OP) &&
		    (major == ddi_driver_major(pdip)))
			mcd->mtc_flags |= NDI_AUTODETACH;

		mutex_enter(&hdl->mtc_lock);
		hdl->mtc_thr_count++;
		mutex_exit(&hdl->mtc_lock);

		/*
		 * Add to end of list to process after ndi_devi_exit to avoid
		 * locking differences depending on value of mtc_off.
		 */
		mcd->mtc_next = NULL;
		if (mcd_head == NULL)
			mcd_head = mcd;
		else
			mcd_tail->mtc_next = mcd;
		mcd_tail = mcd;

		dip = ddi_get_next_sibling(dip);
	}
	ndi_devi_exit(pdip);

	/* go through the list of held children */
	for (mcd = mcd_head; mcd; mcd = mcd_head) {
		mcd_head = mcd->mtc_next;
		if (mtc_off || (mcd->mtc_flags & NDI_MTC_OFF))
			mt_config_thread(mcd);
		else
			(void) thread_create(NULL, 0, mt_config_thread, mcd,
			    0, &p0, TS_RUN, minclsyspri);
	}
}

static void
mt_config_driver(struct mt_config_handle *hdl)
{
	major_t			par_major = hdl->mtc_parmajor;
	major_t			major = hdl->mtc_major;
	struct devnames		*dnp = &devnamesp[par_major];
	dev_info_t		*dip;
	struct mt_config_data	*mcd_head = NULL;
	struct mt_config_data	*mcd_tail = NULL;
	struct mt_config_data	*mcd;
#ifdef DEBUG
	timestruc_t		end_time;

	/* Update total_time in handle */
	gethrestime(&end_time);
	hdl->total_time += time_diff_in_msec(hdl->start_time, end_time);
#endif
	ASSERT(par_major != DDI_MAJOR_T_NONE);
	ASSERT(major != DDI_MAJOR_T_NONE);

	LOCK_DEV_OPS(&dnp->dn_lock);
	dip = devnamesp[par_major].dn_head;
	while (dip) {
		/*
		 * Hold the child that we are processing so it does not get
		 * removed. The corrisponding ndi_rele_devi() for children
		 * that are not being skipped is done at the end of
		 * mt_config_thread().
		 */
		ndi_hold_devi(dip);

		/* skip leaf nodes and nodes not fully attached */
		if (!i_ddi_devi_attached(dip) || is_leaf_node(dip)) {
			ndi_rele_devi(dip);
			dip = ddi_get_next(dip);
			continue;
		}

		mcd = kmem_alloc(sizeof (*mcd), KM_SLEEP);
		mcd->mtc_dip = dip;
		mcd->mtc_hdl = hdl;
		mcd->mtc_major = major;
		mcd->mtc_flags = hdl->mtc_flags;

		mutex_enter(&hdl->mtc_lock);
		hdl->mtc_thr_count++;
		mutex_exit(&hdl->mtc_lock);

		/*
		 * Add to end of list to process after UNLOCK_DEV_OPS to avoid
		 * locking differences depending on value of mtc_off.
		 */
		mcd->mtc_next = NULL;
		if (mcd_head == NULL)
			mcd_head = mcd;
		else
			mcd_tail->mtc_next = mcd;
		mcd_tail = mcd;

		dip = ddi_get_next(dip);
	}
	UNLOCK_DEV_OPS(&dnp->dn_lock);

	/* go through the list of held children */
	for (mcd = mcd_head; mcd; mcd = mcd_head) {
		mcd_head = mcd->mtc_next;
		if (mtc_off || (mcd->mtc_flags & NDI_MTC_OFF))
			mt_config_thread(mcd);
		else
			(void) thread_create(NULL, 0, mt_config_thread, mcd,
			    0, &p0, TS_RUN, minclsyspri);
	}
}

/*
 * Given the nodeid for a persistent (PROM or SID) node, return
 * the corresponding devinfo node
 * NOTE: This function will return NULL for .conf nodeids.
 */
dev_info_t *
e_ddi_nodeid_to_dip(pnode_t nodeid)
{
	dev_info_t		*dip = NULL;
	struct devi_nodeid	*prev, *elem;

	mutex_enter(&devimap->dno_lock);

	prev = NULL;
	for (elem = devimap->dno_head; elem; elem = elem->next) {
		if (elem->nodeid == nodeid) {
			ndi_hold_devi(elem->dip);
			dip = elem->dip;
			break;
		}
		prev = elem;
	}

	/*
	 * Move to head for faster lookup next time
	 */
	if (elem && prev) {
		prev->next = elem->next;
		elem->next = devimap->dno_head;
		devimap->dno_head = elem;
	}

	mutex_exit(&devimap->dno_lock);
	return (dip);
}

static void
free_cache_task(void *arg)
{
	ASSERT(arg == NULL);

	mutex_enter(&di_cache.cache_lock);

	/*
	 * The cache can be invalidated without holding the lock
	 * but it can be made valid again only while the lock is held.
	 * So if the cache is invalid when the lock is held, it will
	 * stay invalid until lock is released.
	 */
	if (!di_cache.cache_valid)
		i_ddi_di_cache_free(&di_cache);

	mutex_exit(&di_cache.cache_lock);

	if (di_cache_debug)
		cmn_err(CE_NOTE, "system_taskq: di_cache freed");
}

extern int modrootloaded;

void
i_ddi_di_cache_free(struct di_cache *cache)
{
	int	error;
	extern int sys_shutdown;

	ASSERT(mutex_owned(&cache->cache_lock));

	if (cache->cache_size) {
		ASSERT(cache->cache_size > 0);
		ASSERT(cache->cache_data);

		kmem_free(cache->cache_data, cache->cache_size);
		cache->cache_data = NULL;
		cache->cache_size = 0;

		if (di_cache_debug)
			cmn_err(CE_NOTE, "i_ddi_di_cache_free: freed cachemem");
	} else {
		ASSERT(cache->cache_data == NULL);
		if (di_cache_debug)
			cmn_err(CE_NOTE, "i_ddi_di_cache_free: NULL cache");
	}

	if (!modrootloaded || rootvp == NULL ||
	    vn_is_readonly(rootvp) || sys_shutdown) {
		if (di_cache_debug) {
			cmn_err(CE_WARN, "/ not mounted/RDONLY. Skip unlink");
		}
		return;
	}

	error = vn_remove(DI_CACHE_FILE, UIO_SYSSPACE, RMFILE);
	if (di_cache_debug && error && error != ENOENT) {
		cmn_err(CE_WARN, "%s: unlink failed: %d", DI_CACHE_FILE, error);
	} else if (di_cache_debug && !error) {
		cmn_err(CE_NOTE, "i_ddi_di_cache_free: unlinked cache file");
	}
}

void
i_ddi_di_cache_invalidate()
{
	int	cache_valid;

	if (!modrootloaded || !i_ddi_io_initialized()) {
		if (di_cache_debug)
			cmn_err(CE_NOTE, "I/O not inited. Skipping invalidate");
		return;
	}

	/* Increment devtree generation number. */
	atomic_inc_ulong(&devtree_gen);

	/* Invalidate the in-core cache and dispatch free on valid->invalid */
	cache_valid = atomic_swap_uint(&di_cache.cache_valid, 0);
	if (cache_valid) {
		/*
		 * This is an optimization to start cleaning up a cached
		 * snapshot early.  For this reason, it is OK for
		 * taskq_dispatach to fail (and it is OK to not track calling
		 * context relative to sleep, and assume NOSLEEP).
		 */
		(void) taskq_dispatch(system_taskq, free_cache_task, NULL,
		    TQ_NOSLEEP);
	}

	if (di_cache_debug) {
		cmn_err(CE_NOTE, "invalidation");
	}
}


static void
i_bind_vhci_node(dev_info_t *dip)
{
	DEVI(dip)->devi_major = ddi_name_to_major(ddi_node_name(dip));
	i_ddi_set_node_state(dip, DS_BOUND);
}

static char vhci_node_addr[2];

static int
i_init_vhci_node(dev_info_t *dip)
{
	add_global_props(dip);
	DEVI(dip)->devi_ops = ndi_hold_driver(dip);
	if (DEVI(dip)->devi_ops == NULL)
		return (-1);

	DEVI(dip)->devi_instance = e_ddi_assign_instance(dip);
	e_ddi_keep_instance(dip);
	vhci_node_addr[0]	= '\0';
	ddi_set_name_addr(dip, vhci_node_addr);
	i_ddi_set_node_state(dip, DS_INITIALIZED);
	return (0);
}

static void
i_link_vhci_node(dev_info_t *dip)
{
	ASSERT(MUTEX_HELD(&global_vhci_lock));

	/*
	 * scsi_vhci should be kept left most of the device tree.
	 */
	if (scsi_vhci_dip) {
		DEVI(dip)->devi_sibling = DEVI(scsi_vhci_dip)->devi_sibling;
		DEVI(scsi_vhci_dip)->devi_sibling = DEVI(dip);
	} else {
		DEVI(dip)->devi_sibling = DEVI(top_devinfo)->devi_child;
		DEVI(top_devinfo)->devi_child = DEVI(dip);
	}
}


/*
 * This a special routine to enumerate vhci node (child of rootnex
 * node) without holding the ndi_devi_enter() lock. The device node
 * is allocated, initialized and brought into DS_READY state before
 * inserting into the device tree. The VHCI node is handcrafted
 * here to bring the node to DS_READY, similar to rootnex node.
 *
 * The global_vhci_lock protects linking the node into the device
 * as same lock is held before linking/unlinking any direct child
 * of rootnex children.
 *
 * This routine is a workaround to handle a possible deadlock
 * that occurs while trying to enumerate node in a different sub-tree
 * during _init/_attach entry points.
 */
/*ARGSUSED*/
dev_info_t *
ndi_devi_config_vhci(char *drvname, int flags)
{
	struct devnames		*dnp;
	dev_info_t		*dip;
	major_t			major = ddi_name_to_major(drvname);

	if (major == -1)
		return (NULL);

	/* Make sure we create the VHCI node only once */
	dnp = &devnamesp[major];
	LOCK_DEV_OPS(&dnp->dn_lock);
	if (dnp->dn_head) {
		dip = dnp->dn_head;
		UNLOCK_DEV_OPS(&dnp->dn_lock);
		return (dip);
	}
	UNLOCK_DEV_OPS(&dnp->dn_lock);

	/* Allocate the VHCI node */
	ndi_devi_alloc_sleep(top_devinfo, drvname, DEVI_SID_NODEID, &dip);
	ndi_hold_devi(dip);

	/* Mark the node as VHCI */
	DEVI(dip)->devi_node_attributes |= DDI_VHCI_NODE;

	i_ddi_add_devimap(dip);
	i_bind_vhci_node(dip);
	if (i_init_vhci_node(dip) == -1) {
		ndi_rele_devi(dip);
		(void) ndi_devi_free(dip);
		return (NULL);
	}

	mutex_enter(&(DEVI(dip)->devi_lock));
	DEVI_SET_ATTACHING(dip);
	mutex_exit(&(DEVI(dip)->devi_lock));

	if (devi_attach(dip, DDI_ATTACH) != DDI_SUCCESS) {
		cmn_err(CE_CONT, "Could not attach %s driver", drvname);
		e_ddi_free_instance(dip, vhci_node_addr);
		ndi_rele_devi(dip);
		(void) ndi_devi_free(dip);
		return (NULL);
	}
	mutex_enter(&(DEVI(dip)->devi_lock));
	DEVI_CLR_ATTACHING(dip);
	mutex_exit(&(DEVI(dip)->devi_lock));

	mutex_enter(&global_vhci_lock);
	i_link_vhci_node(dip);
	mutex_exit(&global_vhci_lock);
	i_ddi_set_node_state(dip, DS_READY);

	LOCK_DEV_OPS(&dnp->dn_lock);
	dnp->dn_flags |= DN_DRIVER_HELD;
	dnp->dn_head = dip;
	UNLOCK_DEV_OPS(&dnp->dn_lock);

	i_ndi_devi_report_status_change(dip, NULL);

	return (dip);
}

/*
 * Maintain DEVI_DEVICE_REMOVED hotplug devi_state for remove/reinsert hotplug
 * of open devices. Currently, because of tight coupling between the devfs file
 * system and the Solaris device tree, a driver can't always make the device
 * tree state (esp devi_node_state) match device hardware hotplug state. Until
 * resolved, to overcome this deficiency we use the following interfaces that
 * maintain the DEVI_DEVICE_REMOVED devi_state status bit.  These interface
 * report current state, and drive operation (like events and cache
 * invalidation) when a driver changes remove/insert state of an open device.
 *
 * The ndi_devi_device_isremoved() returns 1 if the device is currently removed.
 *
 * The ndi_devi_device_remove() interface declares the device as removed, and
 * returns 1 if there was a state change associated with this declaration.
 *
 * The ndi_devi_device_insert() declares the device as inserted, and returns 1
 * if there was a state change associated with this declaration.
 */
int
ndi_devi_device_isremoved(dev_info_t *dip)
{
	return (DEVI_IS_DEVICE_REMOVED(dip));
}

int
ndi_devi_device_remove(dev_info_t *dip)
{
	ASSERT(dip && ddi_get_parent(dip) &&
	    DEVI_BUSY_OWNED(ddi_get_parent(dip)));

	/* Return if already marked removed. */
	if (ndi_devi_device_isremoved(dip))
		return (0);

	/* Mark the device as having been physically removed. */
	mutex_enter(&(DEVI(dip)->devi_lock));
	ndi_devi_set_hidden(dip);	/* invisible: lookup/snapshot */
	DEVI_SET_DEVICE_REMOVED(dip);
	DEVI_SET_EVREMOVE(dip);		/* this clears EVADD too */
	mutex_exit(&(DEVI(dip)->devi_lock));

	/* report remove (as 'removed') */
	i_ndi_devi_report_status_change(dip, NULL);

	/*
	 * Invalidate the cache to ensure accurate
	 * (di_state() & DI_DEVICE_REMOVED).
	 */
	i_ddi_di_cache_invalidate();

	/*
	 * Generate sysevent for those interested in removal (either
	 * directly via private EC_DEVFS or indirectly via devfsadmd
	 * generated EC_DEV). This will generate LDI DEVICE_REMOVE
	 * event too.
	 */
	i_ddi_log_devfs_device_remove(dip);

	return (1);		/* DEVICE_REMOVED state changed */
}

int
ndi_devi_device_insert(dev_info_t *dip)
{
	ASSERT(dip && ddi_get_parent(dip) &&
	    DEVI_BUSY_OWNED(ddi_get_parent(dip)));

	/* Return if not marked removed. */
	if (!ndi_devi_device_isremoved(dip))
		return (0);

	/* Mark the device as having been physically reinserted. */
	mutex_enter(&(DEVI(dip)->devi_lock));
	ndi_devi_clr_hidden(dip);	/* visible: lookup/snapshot */
	DEVI_SET_DEVICE_REINSERTED(dip);
	DEVI_SET_EVADD(dip);		/* this clears EVREMOVE too */
	mutex_exit(&(DEVI(dip)->devi_lock));

	/* report insert (as 'online') */
	i_ndi_devi_report_status_change(dip, NULL);

	/*
	 * Invalidate the cache to ensure accurate
	 * (di_state() & DI_DEVICE_REMOVED).
	 */
	i_ddi_di_cache_invalidate();

	/*
	 * Generate sysevent for those interested in removal (either directly
	 * via EC_DEVFS or indirectly via devfsadmd generated EC_DEV).
	 */
	i_ddi_log_devfs_device_insert(dip);

	return (1);		/* DEVICE_REMOVED state changed */
}

/*
 * ibt_hw_is_present() returns 0 when there is no IB hardware actively
 * running.  This is primarily useful for modules like rpcmod which
 * needs a quick check to decide whether or not it should try to use
 * InfiniBand
 */
int ib_hw_status = 0;
int
ibt_hw_is_present()
{
	return (ib_hw_status);
}

/*
 * ASSERT that constraint flag is not set and then set the "retire attempt"
 * flag.
 */
int
e_ddi_mark_retiring(dev_info_t *dip, void *arg)
{
	char	**cons_array = (char **)arg;
	char	*path;
	int	constraint;
	int	i;

	constraint = 0;
	if (cons_array) {
		path = kmem_alloc(MAXPATHLEN, KM_SLEEP);
		(void) ddi_pathname(dip, path);
		for (i = 0; cons_array[i] != NULL; i++) {
			if (strcmp(path, cons_array[i]) == 0) {
				constraint = 1;
				break;
			}
		}
		kmem_free(path, MAXPATHLEN);
	}

	mutex_enter(&DEVI(dip)->devi_lock);
	ASSERT(!(DEVI(dip)->devi_flags & DEVI_R_CONSTRAINT));
	DEVI(dip)->devi_flags |= DEVI_RETIRING;
	if (constraint)
		DEVI(dip)->devi_flags |= DEVI_R_CONSTRAINT;
	mutex_exit(&DEVI(dip)->devi_lock);

	RIO_VERBOSE((CE_NOTE, "marked dip as undergoing retire process dip=%p",
	    (void *)dip));

	if (constraint)
		RIO_DEBUG((CE_NOTE, "marked dip as constrained, dip=%p",
		    (void *)dip));

	if (MDI_PHCI(dip))
		mdi_phci_mark_retiring(dip, cons_array);

	return (DDI_WALK_CONTINUE);
}

static void
free_array(char **cons_array)
{
	int	i;

	if (cons_array == NULL)
		return;

	for (i = 0; cons_array[i] != NULL; i++) {
		kmem_free(cons_array[i], strlen(cons_array[i]) + 1);
	}
	kmem_free(cons_array, (i+1) * sizeof (char *));
}

/*
 * Walk *every* node in subtree and check if it blocks, allows or has no
 * comment on a proposed retire.
 */
int
e_ddi_retire_notify(dev_info_t *dip, void *arg)
{
	int	*constraint = (int *)arg;

	RIO_DEBUG((CE_NOTE, "retire notify: dip = %p", (void *)dip));

	(void) e_ddi_offline_notify(dip);

	mutex_enter(&(DEVI(dip)->devi_lock));
	if (!(DEVI(dip)->devi_flags & DEVI_RETIRING)) {
		RIO_DEBUG((CE_WARN, "retire notify: dip in retire "
		    "subtree is not marked: dip = %p", (void *)dip));
		*constraint = 0;
	} else if (DEVI(dip)->devi_flags & DEVI_R_BLOCKED) {
		ASSERT(!(DEVI(dip)->devi_flags & DEVI_R_CONSTRAINT));
		RIO_DEBUG((CE_NOTE, "retire notify: BLOCKED: dip = %p",
		    (void *)dip));
		*constraint = 0;
	} else if (!(DEVI(dip)->devi_flags & DEVI_R_CONSTRAINT)) {
		RIO_DEBUG((CE_NOTE, "retire notify: NO CONSTRAINT: "
		    "dip = %p", (void *)dip));
		*constraint = 0;
	} else {
		RIO_DEBUG((CE_NOTE, "retire notify: CONSTRAINT set: "
		    "dip = %p", (void *)dip));
	}
	mutex_exit(&DEVI(dip)->devi_lock);

	if (MDI_PHCI(dip))
		mdi_phci_retire_notify(dip, constraint);

	return (DDI_WALK_CONTINUE);
}

int
e_ddi_retire_finalize(dev_info_t *dip, void *arg)
{
	int constraint = *(int *)arg;
	int finalize;
	int phci_only;

	mutex_enter(&DEVI(dip)->devi_lock);
	if (!(DEVI(dip)->devi_flags & DEVI_RETIRING)) {
		RIO_DEBUG((CE_WARN,
		    "retire: unmarked dip(%p) in retire subtree",
		    (void *)dip));
		ASSERT(!(DEVI(dip)->devi_flags & DEVI_RETIRED));
		ASSERT(!(DEVI(dip)->devi_flags & DEVI_R_CONSTRAINT));
		ASSERT(!(DEVI(dip)->devi_flags & DEVI_R_BLOCKED));
		mutex_exit(&DEVI(dip)->devi_lock);
		return (DDI_WALK_CONTINUE);
	}

	/*
	 * retire the device if constraints have been applied
	 * or if the device is not in use
	 */
	finalize = 0;
	if (constraint) {
		ASSERT(DEVI_BUSY_OWNED(ddi_get_parent(dip)));

		ASSERT(DEVI(dip)->devi_flags & DEVI_R_CONSTRAINT);
		ASSERT(!(DEVI(dip)->devi_flags & DEVI_R_BLOCKED));
		DEVI(dip)->devi_flags &= ~DEVI_R_CONSTRAINT;
		DEVI(dip)->devi_flags &= ~DEVI_RETIRING;
		DEVI(dip)->devi_flags |= DEVI_RETIRED;
		mutex_exit(&DEVI(dip)->devi_lock);
		(void) spec_fence_snode(dip, NULL);
		RIO_DEBUG((CE_NOTE, "Fenced off: dip = %p", (void *)dip));
		e_ddi_offline_finalize(dip, DDI_SUCCESS);
	} else {
		if (DEVI(dip)->devi_flags & DEVI_R_BLOCKED) {
			ASSERT(!(DEVI(dip)->devi_flags & DEVI_R_CONSTRAINT));
			DEVI(dip)->devi_flags &= ~DEVI_R_BLOCKED;
			DEVI(dip)->devi_flags &= ~DEVI_RETIRING;
			/* we have already finalized during notify */
		} else if (DEVI(dip)->devi_flags & DEVI_R_CONSTRAINT) {
			DEVI(dip)->devi_flags &= ~DEVI_R_CONSTRAINT;
			DEVI(dip)->devi_flags &= ~DEVI_RETIRING;
			finalize = 1;
		} else {
			DEVI(dip)->devi_flags &= ~DEVI_RETIRING;
			/*
			 * even if no contracts, need to call finalize
			 * to clear the contract barrier on the dip
			 */
			finalize = 1;
		}
		mutex_exit(&DEVI(dip)->devi_lock);
		RIO_DEBUG((CE_NOTE, "finalize: NOT retired: dip = %p",
		    (void *)dip));
		if (finalize)
			e_ddi_offline_finalize(dip, DDI_FAILURE);
	}

	/*
	 * phci_only variable indicates no client checking, just
	 * offline the PHCI. We set that to 0 to enable client
	 * checking
	 */
	phci_only = 0;
	if (MDI_PHCI(dip))
		mdi_phci_retire_finalize(dip, phci_only, arg);

	return (DDI_WALK_CONTINUE);
}

/*
 * Returns
 *	DDI_SUCCESS if constraints allow retire
 *	DDI_FAILURE if constraints don't allow retire.
 * cons_array is a NULL terminated array of node paths for
 * which constraints have already been applied.
 */
int
e_ddi_retire_device(char *path, char **cons_array)
{
	dev_info_t	*dip;
	dev_info_t	*pdip;
	int		constraint;
	char		*devnm;

	/*
	 * First, lookup the device
	 */
	dip = e_ddi_hold_devi_by_path(path, 0);
	if (dip == NULL) {
		/*
		 * device does not exist. This device cannot be
		 * a critical device since it is not in use. Thus
		 * this device is always retireable. Return DDI_SUCCESS
		 * to indicate this. If this device is ever
		 * instantiated, I/O framework will consult the
		 * the persistent retire store, mark it as
		 * retired and fence it off.
		 */
		RIO_DEBUG((CE_NOTE, "Retire device: device doesn't exist."
		    " NOP. Just returning SUCCESS. path=%s", path));
		free_array(cons_array);
		return (DDI_SUCCESS);
	}

	RIO_DEBUG((CE_NOTE, "Retire device: found dip = %p.", (void *)dip));

	pdip = ddi_get_parent(dip);
	ndi_hold_devi(pdip);

	/*
	 * Run devfs_clean() in case dip has no constraints and is
	 * not in use, so is retireable but there are dv_nodes holding
	 * ref-count on the dip. Note that devfs_clean() always returns
	 * success.
	 */
	devnm = kmem_alloc(MAXNAMELEN + 1, KM_SLEEP);
	(void) ddi_deviname(dip, devnm);
	(void) devfs_clean(pdip, devnm + 1, DV_CLEAN_FORCE);
	kmem_free(devnm, MAXNAMELEN + 1);

	ndi_devi_enter(pdip);

	/* release hold from e_ddi_hold_devi_by_path */
	ndi_rele_devi(dip);

	/*
	 * If it cannot make a determination, is_leaf_node() assumes
	 * dip is a nexus.
	 */
	(void) e_ddi_mark_retiring(dip, cons_array);
	if (!is_leaf_node(dip)) {
		ndi_devi_enter(dip);
		ddi_walk_devs(ddi_get_child(dip), e_ddi_mark_retiring,
		    cons_array);
		ndi_devi_exit(dip);
	}
	free_array(cons_array);

	/*
	 * apply constraints
	 */
	RIO_DEBUG((CE_NOTE, "retire: subtree retire notify: path = %s", path));

	constraint = 1;	/* assume constraints allow retire */
	(void) e_ddi_retire_notify(dip, &constraint);
	if (!is_leaf_node(dip)) {
		ndi_devi_enter(dip);
		ddi_walk_devs(ddi_get_child(dip), e_ddi_retire_notify,
		    &constraint);
		ndi_devi_exit(dip);
	}

	/*
	 * Now finalize the retire
	 */
	(void) e_ddi_retire_finalize(dip, &constraint);
	if (!is_leaf_node(dip)) {
		ndi_devi_enter(dip);
		ddi_walk_devs(ddi_get_child(dip), e_ddi_retire_finalize,
		    &constraint);
		ndi_devi_exit(dip);
	}

	if (!constraint) {
		RIO_DEBUG((CE_WARN, "retire failed: path = %s", path));
	} else {
		RIO_DEBUG((CE_NOTE, "retire succeeded: path = %s", path));
	}

	ndi_devi_exit(pdip);
	ndi_rele_devi(pdip);
	return (constraint ? DDI_SUCCESS : DDI_FAILURE);
}

static int
unmark_and_unfence(dev_info_t *dip, void *arg)
{
	char	*path = (char *)arg;

	ASSERT(path);

	(void) ddi_pathname(dip, path);

	mutex_enter(&DEVI(dip)->devi_lock);
	DEVI(dip)->devi_flags &= ~DEVI_RETIRED;
	DEVI_SET_DEVICE_ONLINE(dip);
	mutex_exit(&DEVI(dip)->devi_lock);

	RIO_VERBOSE((CE_NOTE, "Cleared RETIRED flag: dip=%p, path=%s",
	    (void *)dip, path));

	(void) spec_unfence_snode(dip);
	RIO_DEBUG((CE_NOTE, "Unfenced device: %s", path));

	if (MDI_PHCI(dip))
		mdi_phci_unretire(dip);

	return (DDI_WALK_CONTINUE);
}

struct find_dip {
	char	*fd_buf;
	char	*fd_path;
	dev_info_t *fd_dip;
};

static int
find_dip_fcn(dev_info_t *dip, void *arg)
{
	struct find_dip *findp = (struct find_dip *)arg;

	(void) ddi_pathname(dip, findp->fd_buf);

	if (strcmp(findp->fd_path, findp->fd_buf) != 0)
		return (DDI_WALK_CONTINUE);

	ndi_hold_devi(dip);
	findp->fd_dip = dip;

	return (DDI_WALK_TERMINATE);
}

int
e_ddi_unretire_device(char *path)
{
	char		*path2;
	dev_info_t	*pdip;
	dev_info_t	*dip;
	struct find_dip	 find_dip;

	ASSERT(path);
	ASSERT(*path == '/');

	if (strcmp(path, "/") == 0) {
		cmn_err(CE_WARN, "Root node cannot be retired. Skipping "
		    "device unretire: %s", path);
		return (0);
	}

	/*
	 * We can't lookup the dip (corresponding to path) via
	 * e_ddi_hold_devi_by_path() because the dip may be offline
	 * and may not attach. Use ddi_walk_devs() instead;
	 */
	find_dip.fd_buf = kmem_alloc(MAXPATHLEN, KM_SLEEP);
	find_dip.fd_path = path;
	find_dip.fd_dip = NULL;

	pdip = ddi_root_node();

	ndi_devi_enter(pdip);
	ddi_walk_devs(ddi_get_child(pdip), find_dip_fcn, &find_dip);
	ndi_devi_exit(pdip);

	kmem_free(find_dip.fd_buf, MAXPATHLEN);

	if (find_dip.fd_dip == NULL) {
		cmn_err(CE_WARN, "Device not found in device tree. Skipping "
		    "device unretire: %s", path);
		return (0);
	}

	dip = find_dip.fd_dip;

	pdip = ddi_get_parent(dip);

	ndi_hold_devi(pdip);

	ndi_devi_enter(pdip);

	path2 = kmem_alloc(MAXPATHLEN, KM_SLEEP);

	(void) unmark_and_unfence(dip, path2);
	if (!is_leaf_node(dip)) {
		ndi_devi_enter(dip);
		ddi_walk_devs(ddi_get_child(dip), unmark_and_unfence, path2);
		ndi_devi_exit(dip);
	}

	kmem_free(path2, MAXPATHLEN);

	/* release hold from find_dip_fcn() */
	ndi_rele_devi(dip);

	ndi_devi_exit(pdip);

	ndi_rele_devi(pdip);

	return (0);
}

/*
 * Called before attach on a dip that has been retired.
 */
static int
mark_and_fence(dev_info_t *dip, void *arg)
{
	char	*fencepath = (char *)arg;

	/*
	 * We have already decided to retire this device. The various
	 * constraint checking should not be set.
	 * NOTE that the retire flag may already be set due to
	 * fenced -> detach -> fenced transitions.
	 */
	mutex_enter(&DEVI(dip)->devi_lock);
	ASSERT(!(DEVI(dip)->devi_flags & DEVI_R_CONSTRAINT));
	ASSERT(!(DEVI(dip)->devi_flags & DEVI_R_BLOCKED));
	ASSERT(!(DEVI(dip)->devi_flags & DEVI_RETIRING));
	DEVI(dip)->devi_flags |= DEVI_RETIRED;
	mutex_exit(&DEVI(dip)->devi_lock);
	RIO_VERBOSE((CE_NOTE, "marked as RETIRED dip=%p", (void *)dip));

	if (fencepath) {
		(void) spec_fence_snode(dip, NULL);
		RIO_DEBUG((CE_NOTE, "Fenced: %s",
		    ddi_pathname(dip, fencepath)));
	}

	return (DDI_WALK_CONTINUE);
}

/*
 * Checks the retire database and:
 *
 * - if device is present in the retire database, marks the device retired
 *   and fences it off.
 * - if device is not in retire database, allows the device to attach normally
 *
 * To be called only by framework attach code on first attach attempt.
 *
 */
static int
i_ddi_check_retire(dev_info_t *dip)
{
	char		*path;
	dev_info_t	*pdip;
	int		phci_only;
	int		constraint;

	pdip = ddi_get_parent(dip);

	/*
	 * Root dip is treated special and doesn't take this code path.
	 * Also root can never be retired.
	 */
	ASSERT(pdip);
	ASSERT(DEVI_BUSY_OWNED(pdip));
	ASSERT(i_ddi_node_state(dip) < DS_ATTACHED);

	path = kmem_alloc(MAXPATHLEN, KM_SLEEP);

	(void) ddi_pathname(dip, path);

	RIO_VERBOSE((CE_NOTE, "Checking if dip should attach: dip=%p, path=%s",
	    (void *)dip, path));

	/*
	 * Check if this device is in the "retired" store i.e.	should
	 * be retired. If not, we have nothing to do.
	 */
	if (e_ddi_device_retired(path) == 0) {
		RIO_VERBOSE((CE_NOTE, "device is NOT retired: path=%s", path));
		if (DEVI(dip)->devi_flags & DEVI_RETIRED)
			(void) e_ddi_unretire_device(path);
		kmem_free(path, MAXPATHLEN);
		return (0);
	}

	RIO_DEBUG((CE_NOTE, "attach: device is retired: path=%s", path));

	/*
	 * Mark dips and fence off snodes (if any)
	 */
	RIO_DEBUG((CE_NOTE, "attach: Mark and fence subtree: path=%s", path));
	(void) mark_and_fence(dip, path);
	if (!is_leaf_node(dip)) {
		ndi_devi_enter(dip);
		ddi_walk_devs(ddi_get_child(dip), mark_and_fence, path);
		ndi_devi_exit(dip);
	}

	kmem_free(path, MAXPATHLEN);

	/*
	 * We don't want to check the client. We just want to
	 * offline the PHCI
	 */
	phci_only = 1;
	constraint = 1;
	if (MDI_PHCI(dip))
		mdi_phci_retire_finalize(dip, phci_only, &constraint);
	return (1);
}


#define	VAL_ALIAS(array, x)	(strlen(array[x].pair_alias))
#define	VAL_CURR(array, x)	(strlen(array[x].pair_curr))
#define	SWAP(array, x, y)			\
{						\
	alias_pair_t tmpair = array[x];		\
	array[x] = array[y];			\
	array[y] = tmpair;			\
}

static int
partition_curr(alias_pair_t *array, int start, int end)
{
	int	i = start - 1;
	int	j = end + 1;
	int	pivot = start;

	for (;;) {
		do {
			j--;
		} while (VAL_CURR(array, j) > VAL_CURR(array, pivot));

		do {
			i++;
		} while (VAL_CURR(array, i) < VAL_CURR(array, pivot));

		if (i < j)
			SWAP(array, i, j)
		else
			return (j);
	}
}

static int
partition_aliases(alias_pair_t *array, int start, int end)
{
	int	i = start - 1;
	int	j = end + 1;
	int	pivot = start;

	for (;;) {
		do {
			j--;
		} while (VAL_ALIAS(array, j) > VAL_ALIAS(array, pivot));

		do {
			i++;
		} while (VAL_ALIAS(array, i) < VAL_ALIAS(array, pivot));

		if (i < j)
			SWAP(array, i, j)
		else
			return (j);
	}
}
static void
sort_alias_pairs(alias_pair_t *array, int start, int end)
{
	int mid;

	if (start < end) {
		mid = partition_aliases(array, start, end);
		sort_alias_pairs(array, start, mid);
		sort_alias_pairs(array, mid + 1, end);
	}
}

static void
sort_curr_pairs(alias_pair_t *array, int start, int end)
{
	int mid;

	if (start < end) {
		mid = partition_curr(array, start, end);
		sort_curr_pairs(array, start, mid);
		sort_curr_pairs(array, mid + 1, end);
	}
}

static void
create_sorted_pairs(plat_alias_t *pali, int npali)
{
	int		i;
	int		j;
	int		k;
	int		count;

	count = 0;
	for (i = 0; i < npali; i++) {
		count += pali[i].pali_naliases;
	}

	ddi_aliases.dali_alias_pairs = kmem_zalloc(
	    (sizeof (alias_pair_t)) * count, KM_NOSLEEP);
	if (ddi_aliases.dali_alias_pairs == NULL) {
		cmn_err(CE_PANIC, "alias path-pair alloc failed");
		/*NOTREACHED*/
	}

	ddi_aliases.dali_curr_pairs = kmem_zalloc(
	    (sizeof (alias_pair_t)) * count, KM_NOSLEEP);
	if (ddi_aliases.dali_curr_pairs == NULL) {
		cmn_err(CE_PANIC, "curr path-pair alloc failed");
		/*NOTREACHED*/
	}

	for (i = 0, k = 0; i < npali; i++) {
		for (j = 0; j < pali[i].pali_naliases; j++, k++) {
			ddi_aliases.dali_alias_pairs[k].pair_curr =
			    ddi_aliases.dali_curr_pairs[k].pair_curr =
			    pali[i].pali_current;
			ddi_aliases.dali_alias_pairs[k].pair_alias =
			    ddi_aliases.dali_curr_pairs[k].pair_alias =
			    pali[i].pali_aliases[j];
		}
	}

	ASSERT(k == count);

	ddi_aliases.dali_num_pairs = count;

	/* Now sort the array based on length of pair_alias */
	sort_alias_pairs(ddi_aliases.dali_alias_pairs, 0, count - 1);
	sort_curr_pairs(ddi_aliases.dali_curr_pairs, 0, count - 1);
}

void
ddi_register_aliases(plat_alias_t *pali, uint64_t npali)
{

	ASSERT((pali == NULL) ^ (npali != 0));

	if (npali == 0) {
		ddi_err(DER_PANIC, NULL, "npali == 0");
		/*NOTREACHED*/
	}

	if (ddi_aliases_present == B_TRUE) {
		ddi_err(DER_PANIC, NULL, "multiple init");
		/*NOTREACHED*/
	}

	ddi_aliases.dali_alias_TLB = mod_hash_create_strhash(
	    "ddi-alias-tlb", DDI_ALIAS_HASH_SIZE, mod_hash_null_valdtor);
	if (ddi_aliases.dali_alias_TLB == NULL) {
		ddi_err(DER_PANIC, NULL, "alias TLB hash alloc failed");
		/*NOTREACHED*/
	}

	ddi_aliases.dali_curr_TLB = mod_hash_create_strhash(
	    "ddi-curr-tlb", DDI_ALIAS_HASH_SIZE, mod_hash_null_valdtor);
	if (ddi_aliases.dali_curr_TLB == NULL) {
		ddi_err(DER_PANIC, NULL, "curr TLB hash alloc failed");
		/*NOTREACHED*/
	}

	create_sorted_pairs(pali, npali);

	tsd_create(&tsd_ddi_redirect, NULL);

	ddi_aliases_present = B_TRUE;
}

static dev_info_t *
path_to_dip(char *path)
{
	dev_info_t	*currdip;
	int		error;
	char		*pdup;

	pdup = ddi_strdup(path, KM_NOSLEEP);
	if (pdup == NULL) {
		cmn_err(CE_PANIC, "path strdup failed: %s", path);
		/*NOTREACHED*/
	}

	error = resolve_pathname(pdup, &currdip, NULL, NULL);

	kmem_free(pdup, strlen(path) + 1);

	return (error ? NULL : currdip);
}

dev_info_t *
ddi_alias_to_currdip(char *alias, int i)
{
	alias_pair_t *pair;
	char *curr;
	dev_info_t *currdip = NULL;
	char *aliasdup;
	int rv, len;

	pair = &(ddi_aliases.dali_alias_pairs[i]);
	len = strlen(pair->pair_alias);

	curr = NULL;
	aliasdup = ddi_strdup(alias, KM_NOSLEEP);
	if (aliasdup == NULL) {
		cmn_err(CE_PANIC, "aliasdup alloc failed");
		/*NOTREACHED*/
	}

	if (strncmp(alias, pair->pair_alias, len)  != 0)
		goto out;

	if (alias[len] != '/' && alias[len] != '\0')
		goto out;

	curr = kmem_alloc(MAXPATHLEN, KM_NOSLEEP);
	if (curr == NULL) {
		cmn_err(CE_PANIC, "curr alloc failed");
		/*NOTREACHED*/
	}
	(void) strlcpy(curr, pair->pair_curr, MAXPATHLEN);
	if (alias[len] == '/') {
		(void) strlcat(curr, "/", MAXPATHLEN);
		(void) strlcat(curr, &alias[len + 1], MAXPATHLEN);
	}

	currdip = path_to_dip(curr);

out:
	if (currdip) {
		rv = mod_hash_insert(ddi_aliases.dali_alias_TLB,
		    (mod_hash_key_t)aliasdup, (mod_hash_val_t)curr);
		if (rv != 0) {
			kmem_free(curr, MAXPATHLEN);
			strfree(aliasdup);
		}
	} else {
		rv = mod_hash_insert(ddi_aliases.dali_alias_TLB,
		    (mod_hash_key_t)aliasdup, (mod_hash_val_t)NULL);
		if (rv != 0) {
			strfree(aliasdup);
		}
		if (curr)
			kmem_free(curr, MAXPATHLEN);
	}

	return (currdip);
}

char *
ddi_curr_to_alias(char *curr, int i)
{
	alias_pair_t	*pair;
	char		*alias;
	char		*currdup;
	int		len;
	int		rv;

	pair = &(ddi_aliases.dali_curr_pairs[i]);

	len = strlen(pair->pair_curr);

	alias = NULL;

	currdup = ddi_strdup(curr, KM_NOSLEEP);
	if (currdup == NULL) {
		cmn_err(CE_PANIC, "currdup alloc failed");
		/*NOTREACHED*/
	}

	if (strncmp(curr, pair->pair_curr, len) != 0)
		goto out;

	if (curr[len] != '/' && curr[len] != '\0')
		goto out;

	alias = kmem_alloc(MAXPATHLEN, KM_NOSLEEP);
	if (alias == NULL) {
		cmn_err(CE_PANIC, "alias alloc failed");
		/*NOTREACHED*/
	}

	(void) strlcpy(alias, pair->pair_alias, MAXPATHLEN);
	if (curr[len] == '/') {
		(void) strlcat(alias, "/", MAXPATHLEN);
		(void) strlcat(alias, &curr[len + 1], MAXPATHLEN);
	}

	if (e_ddi_path_to_instance(alias) == NULL) {
		kmem_free(alias, MAXPATHLEN);
		alias = NULL;
	}

out:
	rv = mod_hash_insert(ddi_aliases.dali_curr_TLB,
	    (mod_hash_key_t)currdup, (mod_hash_val_t)alias);
	if (rv != 0) {
		strfree(currdup);
	}

	return (alias);
}

dev_info_t *
ddi_alias_redirect(char *alias)
{
	char		*curr;
	dev_info_t	*currdip;
	int		i;

	if (ddi_aliases_present == B_FALSE)
		return (NULL);

	if (tsd_get(tsd_ddi_redirect))
		return (NULL);

	(void) tsd_set(tsd_ddi_redirect, (void *)1);

	ASSERT(ddi_aliases.dali_alias_TLB);
	ASSERT(ddi_aliases.dali_alias_pairs);

	curr = NULL;
	if (mod_hash_find(ddi_aliases.dali_alias_TLB,
	    (mod_hash_key_t)alias, (mod_hash_val_t *)&curr) == 0) {
		currdip = curr ? path_to_dip(curr) : NULL;
		goto out;
	}

	/* The TLB has no translation, do it the hard way */
	currdip = NULL;
	for (i = ddi_aliases.dali_num_pairs - 1; i >= 0; i--) {
		currdip = ddi_alias_to_currdip(alias, i);
		if (currdip)
			break;
	}
out:
	(void) tsd_set(tsd_ddi_redirect, NULL);

	return (currdip);
}

char *
ddi_curr_redirect(char *curr)
{
	char *alias;
	int i;

	if (ddi_aliases_present == B_FALSE)
		return (NULL);

	if (tsd_get(tsd_ddi_redirect))
		return (NULL);

	(void) tsd_set(tsd_ddi_redirect, (void *)1);

	ASSERT(ddi_aliases.dali_curr_TLB);
	ASSERT(ddi_aliases.dali_curr_pairs);

	alias = NULL;
	if (mod_hash_find(ddi_aliases.dali_curr_TLB,
	    (mod_hash_key_t)curr, (mod_hash_val_t *)&alias) == 0) {
		goto out;
	}


	/* The TLB has no translation, do it the slow way */
	alias = NULL;
	for (i = ddi_aliases.dali_num_pairs - 1; i >= 0; i--) {
		alias = ddi_curr_to_alias(curr, i);
		if (alias)
			break;
	}

out:
	(void) tsd_set(tsd_ddi_redirect, NULL);

	return (alias);
}

void
ddi_err(ddi_err_t ade, dev_info_t *rdip, const char *fmt, ...)
{
	va_list ap;
	char strbuf[256];
	char *buf;
	size_t buflen, tlen;
	int ce;
	int de;
	const char *fmtbad = "Invalid arguments to ddi_err()";

	de = DER_CONT;
	strbuf[1] = '\0';

	switch (ade) {
	case DER_CONS:
		strbuf[0] = '^';
		break;
	case DER_LOG:
		strbuf[0] = '!';
		break;
	case DER_VERB:
		strbuf[0] = '?';
		break;
	default:
		strbuf[0] = '\0';
		de = ade;
		break;
	}

	tlen = strlen(strbuf);
	buf = strbuf + tlen;
	buflen = sizeof (strbuf) - tlen;

	if (rdip && ddi_get_instance(rdip) == -1) {
		(void) snprintf(buf, buflen, "%s: ",
		    ddi_driver_name(rdip));
	} else if (rdip) {
		(void) snprintf(buf, buflen, "%s%d: ",
		    ddi_driver_name(rdip), ddi_get_instance(rdip));
	}

	tlen = strlen(strbuf);
	buf = strbuf + tlen;
	buflen = sizeof (strbuf) - tlen;

	va_start(ap, fmt);
	switch (de) {
	case DER_CONT:
		(void) vsnprintf(buf, buflen, fmt, ap);
		if (ade != DER_CONT) {
			(void) strlcat(strbuf, "\n", sizeof (strbuf));
		}
		ce = CE_CONT;
		break;
	case DER_NOTE:
		(void) vsnprintf(buf, buflen, fmt, ap);
		ce = CE_NOTE;
		break;
	case DER_WARN:
		(void) vsnprintf(buf, buflen, fmt, ap);
		ce = CE_WARN;
		break;
	case DER_MODE:
		(void) vsnprintf(buf, buflen, fmt, ap);
		if (ddi_err_panic == B_TRUE) {
			ce = CE_PANIC;
		} else {
			ce = CE_WARN;
		}
		break;
	case DER_DEBUG:
		(void) snprintf(buf, buflen, "DEBUG: ");
		tlen = strlen("DEBUG: ");
		(void) vsnprintf(buf + tlen, buflen - tlen, fmt, ap);
		ce = CE_CONT;
		break;
	case DER_PANIC:
		(void) vsnprintf(buf, buflen, fmt, ap);
		ce = CE_PANIC;
		break;
	case DER_INVALID:
	default:
		(void) snprintf(buf, buflen, fmtbad);
		tlen = strlen(fmtbad);
		(void) vsnprintf(buf + tlen, buflen - tlen, fmt, ap);
		ce = CE_PANIC;
		break;
	}
	va_end(ap);

	cmn_err(ce, strbuf);
}

/*ARGSUSED*/
void
ddi_mem_update(uint64_t addr, uint64_t size)
{
#if defined(__x86) && !defined(__xpv)
	extern void immu_physmem_update(uint64_t addr, uint64_t size);
	immu_physmem_update(addr, size);
#else
	/*LINTED*/
	;
#endif
}

void
e_ddi_register_unbind_callback(dev_info_t *dip, ddi_unbind_callback_t *cb)
{
	struct dev_info *devi = DEVI(dip);

	mutex_enter(&devi->devi_unbind_lock);
	list_insert_tail(&devi->devi_unbind_cbs, cb);
	mutex_exit(&devi->devi_unbind_lock);
}