/*
 * 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) 2010, Oracle and/or its affiliates. All rights reserved.
 */

#include <sys/types.h>
#include <sys/kmem.h>
#include <sys/conf.h>
#include <sys/ddi.h>
#include <sys/sunddi.h>
#include <sys/sunndi.h>
#include <sys/ksynch.h>
#include <sys/callb.h>
#include <sys/ib/mgt/sm_attr.h>         /* SM_INIT_TYPE_REPLY_... */

#include <sys/ib/clients/eoib/enx_impl.h>

/*
 * Static function declarations
 */
static void eibnx_gw_is_alive(eibnx_gw_info_t *);
static void eibnx_gw_is_aware(eibnx_thr_info_t *, eibnx_gw_info_t *, boolean_t);
static void eibnx_process_rx(eibnx_thr_info_t *, ibt_wc_t *, eibnx_wqe_t *);
static void eibnx_handle_wcerr(uint8_t, eibnx_wqe_t *, eibnx_thr_info_t *);
static void eibnx_handle_login_ack(eibnx_thr_info_t *, uint8_t *);
static void eibnx_handle_gw_rebirth(eibnx_thr_info_t *, uint16_t);
static void eibnx_handle_gw_info_update(eibnx_thr_info_t *, uint16_t, void *);
static int eibnx_replace_portinfo(eibnx_thr_info_t *, ibt_hca_portinfo_t *,
    uint_t);
static void eibnx_handle_port_events(ibt_hca_hdl_t, uint8_t);
static void eibnx_handle_hca_attach(ib_guid_t);
static void eibnx_handle_hca_detach(ib_guid_t);

/*
 * NDI event handle we need
 */
extern ndi_event_hdl_t enx_ndi_event_hdl;

/*
 * SM's init type reply flags
 */
#define ENX_PORT_ATTR_LOADED(itr)                               \
        (((itr) & SM_INIT_TYPE_REPLY_NO_LOAD_REPLY) == 0)
#define ENX_PORT_ATTR_NOT_PRESERVED(itr)                        \
        (((itr) & SM_INIT_TYPE_PRESERVE_CONTENT_REPLY) == 0)
#define ENX_PORT_PRES_NOT_PRESERVED(itr)                        \
        (((itr) & SM_INIT_TYPE_PRESERVE_PRESENCE_REPLY) == 0)

/*
 * Port monitor progress flags (all flag values should be non-zero)
 */
#define ENX_MON_LINKSTATE_UP            0x01
#define ENX_MON_FOUND_MCGS              0x02
#define ENX_MON_SETUP_CQ                0x04
#define ENX_MON_SETUP_UD_CHAN           0x08
#define ENX_MON_SETUP_BUFS              0x10
#define ENX_MON_SETUP_CQ_HDLR           0x20
#define ENX_MON_JOINED_MCGS             0x40
#define ENX_MON_MULTICAST_SLCT          0x80
#define ENX_MON_MAX                     0xFF

/*
 * Per-port thread to solicit, monitor and discover EoIB gateways
 * and create the corresponding EoIB driver instances on the host.
 */
void
eibnx_port_monitor(eibnx_thr_info_t *info)
{
        clock_t solicit_period_ticks;
        clock_t deadline;
        kmutex_t ci_lock;
        callb_cpr_t ci;
        char thr_name[MAXNAMELEN];

        (void) snprintf(thr_name, MAXNAMELEN, ENX_PORT_MONITOR,
            info->ti_pi->p_port_num);

        mutex_init(&ci_lock, NULL, MUTEX_DRIVER, NULL);
        CALLB_CPR_INIT(&ci, &ci_lock, callb_generic_cpr, thr_name);

        info->ti_progress = 0;

        /*
         * If the port is not active yet, wait for a port up event. The
         * async handler, when it sees a port-up event, is expected to
         * update the port_monitor's portinfo structure's p_linkstate
         * and wake us up with ENX_EVENT_LINK_UP.
         */
        while (info->ti_pi->p_linkstate != IBT_PORT_ACTIVE) {
                mutex_enter(&info->ti_event_lock);
                while ((info->ti_event &
                    (ENX_EVENT_LINK_UP | ENX_EVENT_DIE)) == 0) {
                        mutex_enter(&ci_lock);
                        CALLB_CPR_SAFE_BEGIN(&ci);
                        mutex_exit(&ci_lock);

                        cv_wait(&info->ti_event_cv, &info->ti_event_lock);

                        mutex_enter(&ci_lock);
                        CALLB_CPR_SAFE_END(&ci, &ci_lock);
                        mutex_exit(&ci_lock);
                }
                if (info->ti_event & ENX_EVENT_DIE) {
                        mutex_exit(&info->ti_event_lock);
                        goto port_monitor_exit;
                }
                info->ti_event &= (~ENX_EVENT_LINK_UP);
                mutex_exit(&info->ti_event_lock);
        }
        info->ti_progress |= ENX_MON_LINKSTATE_UP;

        /*
         * Locate the multicast groups for sending solicit requests
         * to the GW and receiving advertisements from the GW. If
         * either of the mcg is not present, wait for them to be
         * created by the GW.
         */
        while (eibnx_find_mgroups(info) != ENX_E_SUCCESS) {
                mutex_enter(&info->ti_event_lock);
                while ((info->ti_event &
                    (ENX_EVENT_MCGS_AVAILABLE | ENX_EVENT_DIE)) == 0) {
                        mutex_enter(&ci_lock);
                        CALLB_CPR_SAFE_BEGIN(&ci);
                        mutex_exit(&ci_lock);

                        cv_wait(&info->ti_event_cv, &info->ti_event_lock);

                        mutex_enter(&ci_lock);
                        CALLB_CPR_SAFE_END(&ci, &ci_lock);
                        mutex_exit(&ci_lock);
                }
                if (info->ti_event & ENX_EVENT_DIE) {
                        mutex_exit(&info->ti_event_lock);
                        goto port_monitor_exit;
                }
                info->ti_event &= (~ENX_EVENT_MCGS_AVAILABLE);
                mutex_exit(&info->ti_event_lock);
        }
        info->ti_progress |= ENX_MON_FOUND_MCGS;

        /*
         * Setup a shared CQ
         */
        if (eibnx_setup_cq(info) != ENX_E_SUCCESS) {
                ENX_DPRINTF_ERR("eibnx_setup_cq() failed, terminating "
                    "port monitor for (hca_guid=0x%llx, port_num=0x%x)",
                    info->ti_hca_guid, info->ti_pi->p_port_num);
                goto port_monitor_exit;
        }
        info->ti_progress |= ENX_MON_SETUP_CQ;

        /*
         * Setup UD channel
         */
        if (eibnx_setup_ud_channel(info) != ENX_E_SUCCESS) {
                ENX_DPRINTF_ERR("eibnx_setup_ud_channel() failed, terminating "
                    "port monitor for (hca_guid=0x%llx, port_num=0x%x)",
                    info->ti_hca_guid, info->ti_pi->p_port_num);
                goto port_monitor_exit;
        }
        info->ti_progress |= ENX_MON_SETUP_UD_CHAN;

        /*
         * Allocate/initialize any tx/rx buffers
         */
        if (eibnx_setup_bufs(info) != ENX_E_SUCCESS) {
                ENX_DPRINTF_ERR("eibnx_setup_bufs() failed, terminating "
                    "port monitor for (hca_guid=0x%llx, port_num=0x%x)",
                    info->ti_hca_guid, info->ti_pi->p_port_num);
                goto port_monitor_exit;
        }
        info->ti_progress |= ENX_MON_SETUP_BUFS;

        /*
         * Setup completion handler
         */
        if (eibnx_setup_cq_handler(info) != ENX_E_SUCCESS) {
                ENX_DPRINTF_ERR("eibnx_setup_cq_handler() failed, terminating "
                    "port monitor for (hca_guid=0x%llx, port_num=0x%x)",
                    info->ti_hca_guid, info->ti_pi->p_port_num);
                goto port_monitor_exit;
        }
        info->ti_progress |= ENX_MON_SETUP_CQ_HDLR;

        /*
         * Join EoIB multicast groups
         */
        if (eibnx_join_mcgs(info) != ENX_E_SUCCESS) {
                ENX_DPRINTF_ERR("eibnx_join_mcgs() failed, terminating ",
                    "port monitor for (hca_guid=0x%llx, port_num=0x%x)",
                    info->ti_hca_guid, info->ti_pi->p_port_num);
                goto port_monitor_exit;
        }
        info->ti_progress |= ENX_MON_JOINED_MCGS;

        /*
         * Send SOLICIT pkt to the EoIB multicast group
         */
        if (eibnx_fip_solicit_mcast(info) != ENX_E_SUCCESS) {
                ENX_DPRINTF_ERR("eibnx_fip_solicit_mcast() failed, terminating "
                    "port monitor for (hca_guid=0x%llx, port_num=0x%x)",
                    info->ti_hca_guid, info->ti_pi->p_port_num);
                goto port_monitor_exit;
        }
        info->ti_progress |= ENX_MON_MULTICAST_SLCT;

        mutex_enter(&info->ti_event_lock);

        solicit_period_ticks = drv_usectohz(ENX_DFL_SOLICIT_PERIOD_USEC);

periodic_solicit:
        deadline = ddi_get_lbolt() + solicit_period_ticks;
        while ((info->ti_event & (ENX_EVENT_TIMED_OUT | ENX_EVENT_DIE)) == 0) {
                mutex_enter(&ci_lock);
                CALLB_CPR_SAFE_BEGIN(&ci);
                mutex_exit(&ci_lock);

                if (cv_timedwait(&info->ti_event_cv, &info->ti_event_lock,
                    deadline) == -1) {
                        info->ti_event |= ENX_EVENT_TIMED_OUT;
                }

                mutex_enter(&ci_lock);
                CALLB_CPR_SAFE_END(&ci, &ci_lock);
                mutex_exit(&ci_lock);
        }

        if (info->ti_event & ENX_EVENT_DIE) {
                mutex_exit(&info->ti_event_lock);
                goto port_monitor_exit;
        }

        if (info->ti_event & ENX_EVENT_TIMED_OUT) {
                if (eibnx_fip_solicit_ucast(info,
                    &solicit_period_ticks) != ENX_E_SUCCESS) {
                        ENX_DPRINTF_WARN("failed to send solicit ucast to "
                            "gateways (hca_guid=0x%llx, port_num=0x%x)",
                            info->ti_hca_guid, info->ti_pi->p_port_num);
                }
                info->ti_event &= ~ENX_EVENT_TIMED_OUT;
        }

        goto periodic_solicit;

port_monitor_exit:
        if (info->ti_progress & ENX_MON_MULTICAST_SLCT) {
                eibnx_cleanup_port_nodes(info);
                info->ti_progress &= (~ENX_MON_MULTICAST_SLCT);
        }
        if (info->ti_progress & ENX_MON_JOINED_MCGS) {
                eibnx_rb_join_mcgs(info);
                info->ti_progress &= (~ENX_MON_JOINED_MCGS);
        }
        if (info->ti_progress & ENX_MON_SETUP_CQ_HDLR) {
                eibnx_rb_setup_cq_handler(info);
                info->ti_progress &= (~ENX_MON_SETUP_CQ_HDLR);
        }
        if (info->ti_progress & ENX_MON_SETUP_BUFS) {
                eibnx_rb_setup_bufs(info);
                info->ti_progress &= (~ENX_MON_SETUP_BUFS);
        }
        if (info->ti_progress & ENX_MON_SETUP_UD_CHAN) {
                eibnx_rb_setup_ud_channel(info);
                info->ti_progress &= (~ENX_MON_SETUP_UD_CHAN);
        }
        if (info->ti_progress & ENX_MON_SETUP_CQ) {
                eibnx_rb_setup_cq(info);
                info->ti_progress &= (~ENX_MON_SETUP_CQ);
        }
        if (info->ti_progress & ENX_MON_FOUND_MCGS) {
                eibnx_rb_find_mgroups(info);
                info->ti_progress &= (~ENX_MON_FOUND_MCGS);
        }

        mutex_enter(&ci_lock);
        CALLB_CPR_EXIT(&ci);
        mutex_destroy(&ci_lock);
}

/*
 * Async subnet notices handler registered with IBTF
 */
/*ARGSUSED*/
void
eibnx_subnet_notices_handler(void *arg, ib_gid_t gid,
    ibt_subnet_event_code_t sn_evcode, ibt_subnet_event_t *sn_event)
{
        eibnx_t *ss = enx_global_ss;
        eibnx_thr_info_t *ti;
        ib_gid_t notice_gid;

        switch (sn_evcode) {
        case IBT_SM_EVENT_MCG_CREATED:
                notice_gid = sn_event->sm_notice_gid;

                if ((notice_gid.gid_prefix == enx_solicit_mgid.gid_prefix &&
                    notice_gid.gid_guid == enx_solicit_mgid.gid_guid) ||
                    (notice_gid.gid_prefix == enx_advertise_mgid.gid_prefix &&
                    notice_gid.gid_guid == enx_advertise_mgid.gid_guid)) {

                        mutex_enter(&ss->nx_lock);
                        for (ti = ss->nx_thr_info; ti; ti = ti->ti_next) {
                                mutex_enter(&ti->ti_event_lock);
                                ti->ti_event |= ENX_EVENT_MCGS_AVAILABLE;
                                cv_broadcast(&ti->ti_event_cv);
                                mutex_exit(&ti->ti_event_lock);
                        }
                        mutex_exit(&ss->nx_lock);
                }
                break;

        case IBT_SM_EVENT_MCG_DELETED:
                break;

        default:
                break;
        }
}

/*
 * Async event handler registered with IBTF
 */
/*ARGSUSED*/
void
eibnx_async_handler(void *clnt_pvt, ibt_hca_hdl_t hca,
    ibt_async_code_t code, ibt_async_event_t *event)
{
        switch (code) {
        case IBT_ERROR_CATASTROPHIC_CHAN:
        case IBT_ERROR_INVALID_REQUEST_CHAN:
        case IBT_ERROR_ACCESS_VIOLATION_CHAN:
        case IBT_ERROR_CQ:
        case IBT_ERROR_CATASTROPHIC_SRQ:
                ENX_DPRINTF_ERR("ibt ERROR event 0x%x received "
                    "(hca_guid=0x%llx)", code, event->ev_hca_guid);
                break;

        case IBT_ERROR_PORT_DOWN:
                ENX_DPRINTF_WARN("ibt PORT_DOWN event received "
                    "(hca_guid=0x%llx, port_num=0x%x)",
                    event->ev_hca_guid, event->ev_port);
                break;

        case IBT_EVENT_PORT_UP:
                ENX_DPRINTF_WARN("ibt PORT_UP event received "
                    "(hca_guid=0x%llx, port_num=0x%x)",
                    event->ev_hca_guid, event->ev_port);
                eibnx_handle_port_events(hca, event->ev_port);
                break;

        case IBT_PORT_CHANGE_EVENT:
                ENX_DPRINTF_WARN("ibt PORT_CHANGE event received "
                    "(hca_guid=0x%llx, port_num=0x%x)",
                    event->ev_hca_guid, event->ev_port);
                eibnx_handle_port_events(hca, event->ev_port);
                break;

        case IBT_CLNT_REREG_EVENT:
                ENX_DPRINTF_WARN("ibt CLNT_REREG event received "
                    "(hca_guid=0x%llx, port_num=0x%x)",
                    event->ev_hca_guid, event->ev_port);
                eibnx_handle_port_events(hca, event->ev_port);
                break;

        case IBT_HCA_ATTACH_EVENT:
                ENX_DPRINTF_VERBOSE("ibt HCA_ATTACH event received "
                    "(new hca_guid=0x%llx)", event->ev_hca_guid);
                eibnx_handle_hca_attach(event->ev_hca_guid);
                break;

        case IBT_HCA_DETACH_EVENT:
                ENX_DPRINTF_VERBOSE("ibt HCA_DETACH event received "
                    "(target hca_guid=0x%llx)", event->ev_hca_guid);
                eibnx_handle_hca_detach(event->ev_hca_guid);
                break;

        default:
                ENX_DPRINTF_VERBOSE("ibt UNSUPPORTED event 0x%x received "
                    "(hca_guid=0x%llx)", code, event->ev_hca_guid);
                break;
        }
}

boolean_t
eibnx_is_gw_dead(eibnx_gw_info_t *gwi)
{
        int64_t cur_lbolt;

        cur_lbolt = ddi_get_lbolt64();

        mutex_enter(&gwi->gw_adv_lock);
        if ((cur_lbolt - gwi->gw_adv_last_lbolt) > gwi->gw_adv_timeout_ticks) {
                gwi->gw_adv_flag = ENX_GW_DEAD;
                mutex_exit(&gwi->gw_adv_lock);
                return (B_TRUE);
        }
        mutex_exit(&gwi->gw_adv_lock);

        return (B_FALSE);
}

static void
eibnx_gw_is_alive(eibnx_gw_info_t *gwi)
{
        /*
         * We've just received a multicast advertisement from this
         * gateway.  Multicast or unicast, this means that the gateway
         * is alive. Record this timestamp (in ticks).
         */
        mutex_enter(&gwi->gw_adv_lock);
        gwi->gw_adv_last_lbolt = ddi_get_lbolt64();
        if (gwi->gw_adv_flag == ENX_GW_DEAD) {
                gwi->gw_adv_flag = ENX_GW_ALIVE;
        }
        mutex_exit(&gwi->gw_adv_lock);
}

static void
eibnx_gw_is_aware(eibnx_thr_info_t *info, eibnx_gw_info_t *gwi,
    boolean_t gwi_changed)
{
        eib_gw_info_t eib_gwi;
        boolean_t post_rebirth_event = B_FALSE;

        /*
         * We're here when we receive a unicast advertisement from a
         * gateway. If this gateway was discovered earlier but was in
         * a dead state, this means it has come back alive and become
         * aware of us.  We may need to inform any EoIB children
         * waiting for notification.  Note that if this gateway is
         * being discovered for the first time now, we wouldn't have
         * created the binding eoib node for it (we will do that when
         * we return from this routine), so the "rebirth" and "gw info
         * update" event postings will be NOPs.
         */
        mutex_enter(&gwi->gw_adv_lock);
        gwi->gw_adv_last_lbolt = ddi_get_lbolt64();
        if (gwi->gw_adv_flag != ENX_GW_AWARE) {
                post_rebirth_event = B_TRUE;
        }
        gwi->gw_adv_flag = ENX_GW_AWARE;
        mutex_exit(&gwi->gw_adv_lock);

        /*
         * If we have a gateway information update event, we post that
         * first, so any rebirth event processed later will have the
         * correct gateway information.
         */
        if (gwi_changed) {
                eib_gwi.gi_system_guid = gwi->gw_system_guid;
                eib_gwi.gi_guid = gwi->gw_guid;
                eib_gwi.gi_sn_prefix = gwi->gw_addr.ga_gid.gid_prefix;
                eib_gwi.gi_adv_period = gwi->gw_adv_period;
                eib_gwi.gi_ka_period = gwi->gw_ka_period;
                eib_gwi.gi_vnic_ka_period = gwi->gw_vnic_ka_period;
                eib_gwi.gi_ctrl_qpn = gwi->gw_ctrl_qpn;
                eib_gwi.gi_lid = gwi->gw_lid;
                eib_gwi.gi_portid = gwi->gw_portid;
                eib_gwi.gi_num_net_vnics = gwi->gw_num_net_vnics;
                eib_gwi.gi_flag_available = gwi->gw_flag_available;
                eib_gwi.gi_is_host_adm_vnics = gwi->gw_is_host_adm_vnics;
                eib_gwi.gi_sl = gwi->gw_sl;
                eib_gwi.gi_n_rss_qpn = gwi->gw_n_rss_qpn;
                bcopy(gwi->gw_system_name, eib_gwi.gi_system_name,
                    EIB_GW_SYSNAME_LEN);
                bcopy(gwi->gw_port_name, eib_gwi.gi_port_name,
                    EIB_GW_PORTNAME_LEN);
                bcopy(gwi->gw_vendor_id, eib_gwi.gi_vendor_id,
                    EIB_GW_VENDOR_LEN);

                eibnx_handle_gw_info_update(info, eib_gwi.gi_portid, &eib_gwi);
        }
        if (post_rebirth_event) {
                eibnx_handle_gw_rebirth(info, gwi->gw_portid);
        }
}

/*
 * Thread to create eoib nodes and online instances
 */
void
eibnx_create_eoib_node(void)
{
        eibnx_t *ss = enx_global_ss;
        eibnx_nodeq_t *node;
        kmutex_t ci_lock;
        callb_cpr_t ci;

        mutex_init(&ci_lock, NULL, MUTEX_DRIVER, NULL);
        CALLB_CPR_INIT(&ci, &ci_lock, callb_generic_cpr, ENX_NODE_CREATOR);

wait_for_node_to_create:
        mutex_enter(&ss->nx_nodeq_lock);

        while ((ss->nx_nodeq == NULL) && (ss->nx_nodeq_thr_die == 0)) {
                mutex_enter(&ci_lock);
                CALLB_CPR_SAFE_BEGIN(&ci);
                mutex_exit(&ci_lock);

                cv_wait(&ss->nx_nodeq_cv, &ss->nx_nodeq_lock);

                mutex_enter(&ci_lock);
                CALLB_CPR_SAFE_END(&ci, &ci_lock);
                mutex_exit(&ci_lock);
        }

        /*
         * If this is not really a work item, but a request for us to
         * die, throwaway all pending work requests and just die.
         */
        if (ss->nx_nodeq_thr_die) {
                while (ss->nx_nodeq) {
                        node = ss->nx_nodeq;
                        ss->nx_nodeq = node->nc_next;
                        node->nc_next = NULL;

                        kmem_free(node, sizeof (eibnx_nodeq_t));
                }
                mutex_exit(&ss->nx_nodeq_lock);

                mutex_enter(&ci_lock);
                CALLB_CPR_EXIT(&ci);
                mutex_destroy(&ci_lock);

                return;
        }

        /*
         * Grab the first node entry from the queue
         */
        ASSERT(ss->nx_nodeq != NULL);
        node = ss->nx_nodeq;
        ss->nx_nodeq = node->nc_next;
        node->nc_next = NULL;

        mutex_exit(&ss->nx_nodeq_lock);

        (void) eibnx_configure_node(node->nc_info, node->nc_gwi, NULL);

        kmem_free(node, sizeof (eibnx_nodeq_t));
        goto wait_for_node_to_create;

        /*NOTREACHED*/
}

/*
 * Tx and Rx completion interrupt handler. Guaranteed to be single
 * threaded and nonreentrant for this CQ.
 */
void
eibnx_comp_intr(ibt_cq_hdl_t cq_hdl, void *arg)
{
        eibnx_thr_info_t *info = arg;

        if (info->ti_cq_hdl != cq_hdl) {
                ENX_DPRINTF_DEBUG("eibnx_comp_intr: "
                    "cq_hdl(0x%llx) != info->ti_cq_hdl(0x%llx), "
                    "ignoring completion", cq_hdl, info->ti_cq_hdl);
                return;
        }

        ASSERT(info->ti_softint_hdl != NULL);

        (void) ddi_intr_trigger_softint(info->ti_softint_hdl, NULL);
}

/*
 * Send and Receive completion handler functions for EoIB nexus
 */

/*ARGSUSED*/
uint_t
eibnx_comp_handler(caddr_t arg1, caddr_t arg2)
{
        eibnx_thr_info_t *info = (eibnx_thr_info_t *)arg1;
        ibt_wc_t *wc;
        eibnx_wqe_t *wqe;
        ibt_status_t ret;
        uint_t polled;
        int i;

        /*
         * Make sure the port monitor isn't killed if we're in the completion
         * handler. If the port monitor thread is already being killed, we'll
         * stop processing completions.
         */
        mutex_enter(&info->ti_event_lock);
        if (info->ti_event & (ENX_EVENT_DIE | ENX_EVENT_COMPLETION)) {
                mutex_exit(&info->ti_event_lock);
                return ((uint_t)ENX_E_SUCCESS);
        }
        info->ti_event |= ENX_EVENT_COMPLETION;
        mutex_exit(&info->ti_event_lock);

        /*
         * Re-arm the notification callback before we start polling
         * the completion queue.  There's nothing much we can do if the
         * enable_cq_notify fails - we issue a warning and move on.
         */
        ret = ibt_enable_cq_notify(info->ti_cq_hdl, IBT_NEXT_COMPLETION);
        if (ret != IBT_SUCCESS) {
                ENX_DPRINTF_WARN("ibt_enable_cq_notify(cq_hdl=0x%llx) "
                    "failed, ret=%d", info->ti_cq_hdl, ret);
        }

        /*
         * Handle tx and rx completions
         */
        while ((ret = ibt_poll_cq(info->ti_cq_hdl, info->ti_wc, info->ti_cq_sz,
            &polled)) == IBT_SUCCESS) {
                for (wc = info->ti_wc, i = 0; i < polled; i++, wc++) {
                        wqe = (eibnx_wqe_t *)(uintptr_t)wc->wc_id;
                        if (wc->wc_status != IBT_WC_SUCCESS) {
                                eibnx_handle_wcerr(wc->wc_status, wqe, info);
                        } else if (wqe->qe_type == ENX_QETYP_RWQE) {
                                eibnx_process_rx(info, wc, wqe);
                                eibnx_return_rwqe(info, wqe);
                        } else {
                                eibnx_return_swqe(wqe);
                        }
                }
        }

        /*
         * On the way out, make sure we wake up any pending death requestor
         * for the port-monitor thread. Note that we need to do a cv_broadcast()
         * here since there could be multiple threads sleeping on the event cv
         * and we want to make sure all waiters get a chance to see if it's
         * their turn.
         */
        mutex_enter(&info->ti_event_lock);
        info->ti_event &= (~ENX_EVENT_COMPLETION);
        cv_broadcast(&info->ti_event_cv);
        mutex_exit(&info->ti_event_lock);

        return (DDI_INTR_CLAIMED);
}

/*
 * Rx processing code
 */
static void
eibnx_process_rx(eibnx_thr_info_t *info, ibt_wc_t *wc, eibnx_wqe_t *wqe)
{
        eibnx_gw_msg_t msg;
        eibnx_gw_info_t *gwi;
        eibnx_gw_info_t *orig_gwi;
        eibnx_gw_info_t *new_gwi;
        uint_t orig_gw_state;
        uint8_t *pkt = (uint8_t *)(uintptr_t)(wqe->qe_sgl.ds_va);
        boolean_t gwi_changed;

        /*
         * We'll simply drop any packet (including broadcast advertisements
         * from gws) we receive before we've done our solicitation broadcast.
         */
        if (info->ti_mcast_done == 0) {
                return;
        }

        /*
         * Skip the GRH and parse the message in the packet
         */
        if (eibnx_fip_parse_pkt(pkt + ENX_GRH_SZ, &msg) != ENX_E_SUCCESS) {
                return;
        }

        /*
         * If it was a login ack for one of our children, we need to pass
         * it on to the child
         */
        if (msg.gm_type == FIP_VNIC_LOGIN_ACK) {
                eibnx_handle_login_ack(info, pkt);
                return;
        }

        /*
         * Other than that, we only handle gateway advertisements
         */
        if (msg.gm_type != FIP_GW_ADVERTISE_MCAST &&
            msg.gm_type != FIP_GW_ADVERTISE_UCAST) {
                return;
        }

        gwi = &msg.u.gm_info;

        /*
         * State machine to create eoib instances. Whether this advertisement
         * is from a new gateway or an old gateway that we already know about,
         * if this was a unicast response to our earlier solicitation and it's
         * the first time we're receiving it from this gateway, we're ready to
         * login, so we create the EoIB instance for it.
         */
        orig_gwi = eibnx_find_gw_in_gwlist(info, gwi);
        if (orig_gwi == NULL) {
                if (gwi->gw_flag_available == 0) {
                        gwi->gw_state = ENX_GW_STATE_UNAVAILABLE;
                        gwi->gw_adv_flag = ENX_GW_ALIVE;
                        (void) eibnx_add_gw_to_gwlist(info, gwi, wc, pkt);
                } else if (gwi->gw_flag_ucast_advt == 0) {
                        gwi->gw_state = ENX_GW_STATE_AVAILABLE;
                        gwi->gw_adv_flag = ENX_GW_ALIVE;
                        (void) eibnx_add_gw_to_gwlist(info, gwi, wc, pkt);
                } else {
                        gwi->gw_state = ENX_GW_STATE_READY_TO_LOGIN;
                        gwi->gw_adv_flag = ENX_GW_AWARE;
                        if ((new_gwi = eibnx_add_gw_to_gwlist(info, gwi,
                            wc, pkt)) != NULL) {
                                eibnx_queue_for_creation(info, new_gwi);
                        }
                }
        } else {
                orig_gw_state = orig_gwi->gw_state;
                if (gwi->gw_flag_available == 0) {
                        gwi->gw_state = ENX_GW_STATE_UNAVAILABLE;
                        eibnx_replace_gw_in_gwlist(info, orig_gwi, gwi,
                            wc, pkt, NULL);
                        eibnx_gw_is_alive(orig_gwi);

                } else if (gwi->gw_flag_ucast_advt == 0) {
                        if (orig_gw_state == ENX_GW_STATE_UNAVAILABLE) {
                                gwi->gw_state = ENX_GW_STATE_AVAILABLE;
                        } else {
                                gwi->gw_state = orig_gw_state;
                        }
                        eibnx_replace_gw_in_gwlist(info, orig_gwi, gwi,
                            wc, pkt, NULL);
                        eibnx_gw_is_alive(orig_gwi);

                } else {
                        gwi->gw_state = ENX_GW_STATE_READY_TO_LOGIN;
                        eibnx_replace_gw_in_gwlist(info, orig_gwi, gwi,
                            wc, pkt, &gwi_changed);
                        eibnx_gw_is_aware(info, orig_gwi, gwi_changed);

                        if (orig_gw_state != ENX_GW_STATE_READY_TO_LOGIN)
                                eibnx_queue_for_creation(info, orig_gwi);
                }
        }
}

/*ARGSUSED*/
static void
eibnx_handle_wcerr(uint8_t wcerr, eibnx_wqe_t *wqe, eibnx_thr_info_t *info)
{
        /*
         * Currently, all we do is report
         */
        switch (wcerr) {
        case IBT_WC_WR_FLUSHED_ERR:
                ENX_DPRINTF_VERBOSE("IBT_WC_WR_FLUSHED_ERR seen "
                    "(hca_guid=0x%llx, port_num=0x%x, wqe_type=0x%x)",
                    info->ti_hca_guid, info->ti_pi->p_port_num, wqe->qe_type);
                break;

        case IBT_WC_LOCAL_CHAN_OP_ERR:
                ENX_DPRINTF_ERR("IBT_WC_LOCAL_CHAN_OP_ERR seen "
                    "(hca_guid=0x%llx, port_num=0x%x, wqe_type=0x%x)",
                    info->ti_hca_guid, info->ti_pi->p_port_num, wqe->qe_type);
                break;

        case IBT_WC_LOCAL_PROTECT_ERR:
                ENX_DPRINTF_ERR("IBT_WC_LOCAL_PROTECT_ERR seen "
                    "(hca_guid=0x%llx, port_num=0x%x, wqe_type=0x%x)",
                    info->ti_hca_guid, info->ti_pi->p_port_num, wqe->qe_type);
                break;
        }
}

static void
eibnx_handle_login_ack(eibnx_thr_info_t *info, uint8_t *pkt)
{
        eibnx_t *ss = enx_global_ss;
        fip_login_ack_t *ack;
        fip_desc_vnic_login_t *login;
        ddi_eventcookie_t cookie;
        dev_info_t *rdip;
        uint16_t vnic_id;
        uint16_t inst;
        int ret;

        /*
         * When we get login acknowledgements, we simply invoke the
         * appropriate EoIB driver callback to process it on behalf
         * of the driver instance. We will let the callback do error
         * checks.
         */
        ack = (fip_login_ack_t *)(pkt + ENX_GRH_SZ);
        login = &(ack->ak_vnic_login);
        vnic_id = ntohs(login->vl_vnic_id);
        inst = EIB_DEVI_INSTANCE(vnic_id);

        if ((rdip = eibnx_find_child_dip_by_inst(info, inst)) == NULL) {
                ENX_DPRINTF_DEBUG("no eoib child with instance 0x%x found "
                    "for (hca_guid=0x%llx, port_num=0x%x)", inst,
                    info->ti_hca_guid, info->ti_pi->p_port_num);
                return;
        }

        ret = ndi_event_retrieve_cookie(enx_ndi_event_hdl, rdip,
            EIB_NDI_EVENT_LOGIN_ACK, &cookie, NDI_EVENT_NOPASS);
        if (ret != NDI_SUCCESS) {
                ENX_DPRINTF_WARN("no login-ack cookie for (hca_guid=0x%llx, "
                    "port_num=0x%x, eoib_inst=0x%x), ret=%d", info->ti_hca_guid,
                    info->ti_pi->p_port_num, inst, ret);
                return;
        }

        (void) ndi_post_event(ss->nx_dip, rdip, cookie, (void *)pkt);
}

static void
eibnx_handle_gw_rebirth(eibnx_thr_info_t *info, uint16_t portid)
{
        eibnx_t *ss = enx_global_ss;
        ddi_eventcookie_t cookie;
        dev_info_t *rdip;
        int ret;

        if ((rdip = eibnx_find_child_dip_by_gw(info, portid)) == NULL) {
                ENX_DPRINTF_WARN("no eoib child bound to gw portid 0x%x "
                    "found for (hca_guid=0x%llx, port_num=0x%x)",
                    portid, info->ti_hca_guid, info->ti_pi->p_port_num);
                return;
        }

        ret = ndi_event_retrieve_cookie(enx_ndi_event_hdl, rdip,
            EIB_NDI_EVENT_GW_AVAILABLE, &cookie, NDI_EVENT_NOPASS);
        if (ret != NDI_SUCCESS) {
                ENX_DPRINTF_WARN("no gw-available cookie for (hca_guid=0x%llx, "
                    "port_num=0x%x, gw_portid=0x%x), ret=%d", info->ti_hca_guid,
                    info->ti_pi->p_port_num, portid, ret);
                return;
        }

        (void) ndi_post_event(ss->nx_dip, rdip, cookie, NULL);
}

static void
eibnx_handle_gw_info_update(eibnx_thr_info_t *info, uint16_t portid,
    void *new_gw_info)
{
        eibnx_t *ss = enx_global_ss;
        ddi_eventcookie_t cookie;
        dev_info_t *rdip;
        int ret;

        if ((rdip = eibnx_find_child_dip_by_gw(info, portid)) == NULL) {
                ENX_DPRINTF_WARN("no eoib child bound to gw portid 0x%x "
                    "found for (hca_guid=0x%llx, port_num=0x%x)",
                    portid, info->ti_hca_guid, info->ti_pi->p_port_num);
                return;
        }

        ret = ndi_event_retrieve_cookie(enx_ndi_event_hdl, rdip,
            EIB_NDI_EVENT_GW_INFO_UPDATE, &cookie, NDI_EVENT_NOPASS);
        if (ret != NDI_SUCCESS) {
                ENX_DPRINTF_WARN("no gw-info-update cookie for "
                    "(hca_guid=0x%llx, port_num=0x%x, gw_portid=0x%x), "
                    "ret=%d", info->ti_hca_guid, info->ti_pi->p_port_num,
                    portid, ret);
                return;
        }

        (void) ndi_post_event(ss->nx_dip, rdip, cookie, new_gw_info);
}

static int
eibnx_replace_portinfo(eibnx_thr_info_t *ti, ibt_hca_portinfo_t *new_pi,
    uint_t new_size_pi)
{
        eibnx_t *ss = enx_global_ss;
        eibnx_hca_t *hca;
        eibnx_port_t *port;

        mutex_enter(&ss->nx_lock);

        for (hca = ss->nx_hca; hca; hca = hca->hc_next) {
                if (hca->hc_hdl == ti->ti_hca)
                        break;
        }

        if (hca == NULL) {
                ENX_DPRINTF_WARN("hca hdl (0x%llx) not found in hca list",
                    ti->ti_hca);
                mutex_exit(&ss->nx_lock);
                return (ENX_E_FAILURE);
        }

        for (port = hca->hc_port; port; port = port->po_next) {
                if (port->po_pi == ti->ti_pi) {
                        ibt_free_portinfo(port->po_pi, port->po_pi_size);
                        port->po_pi = new_pi;
                        port->po_pi_size = new_size_pi;
                        ti->ti_pi = port->po_pi;
                        break;
                }
        }

        if (port == NULL) {
                ENX_DPRINTF_WARN("portinfo (0x%llx) not found in hca list",
                    ti->ti_pi);
                mutex_exit(&ss->nx_lock);
                return (ENX_E_FAILURE);
        }

        mutex_exit(&ss->nx_lock);

        return (ENX_E_SUCCESS);
}

static void
eibnx_handle_port_events(ibt_hca_hdl_t ev_hca, uint8_t ev_portnum)
{
        eibnx_t *ss = enx_global_ss;
        eibnx_thr_info_t *ti;
        ibt_hca_portinfo_t *pi;
        ibt_status_t ret;
        uint_t num_pi;
        uint_t size_pi;
        uint8_t itr;

        /*
         * Find the port monitor thread that matches the event hca and
         * portnum
         */
        mutex_enter(&ss->nx_lock);
        for (ti = ss->nx_thr_info; ti; ti = ti->ti_next) {
                if ((ti->ti_hca == ev_hca) &&
                    (ti->ti_pi->p_port_num == ev_portnum)) {
                        break;
                }
        }
        mutex_exit(&ss->nx_lock);

        if (ti == NULL)
                return;

        /*
         * See if we need to rejoin the mcgs for this port and do so if true
         */
        ret = ibt_query_hca_ports(ev_hca, ev_portnum, &pi, &num_pi, &size_pi);
        if (ret != IBT_SUCCESS) {
                ENX_DPRINTF_WARN("ibt_query_hca_ports() failed with %d", ret);
                return;
        } else if (num_pi != 1 || pi->p_linkstate != IBT_PORT_ACTIVE) {
                ENX_DPRINTF_WARN("ibt_query_hca_ports(port_num=%d) failed, "
                    "num_pi=%d, linkstate=0x%x", ev_portnum, num_pi,
                    pi->p_linkstate);
                ibt_free_portinfo(pi, size_pi);
                return;
        }

        itr = pi->p_init_type_reply;
        if (ENX_PORT_ATTR_LOADED(itr) && ENX_PORT_ATTR_NOT_PRESERVED(itr)) {
                /*
                 * If our port's base lid has changed, we need to replace
                 * the saved portinfo in our lists with the new one before
                 * going further.
                 */
                if (ti->ti_pi->p_base_lid != pi->p_base_lid) {
                        if (eibnx_replace_portinfo(ti, pi, size_pi) ==
                            ENX_E_SUCCESS) {
                                pi = NULL;
                                size_pi = 0;
                        }
                }
        }

        /*
         * If the port monitor was stuck waiting for the link to come up,
         * let it know that it is up now.
         */
        mutex_enter(&ti->ti_event_lock);
        if ((ti->ti_progress & ENX_MON_LINKSTATE_UP) != ENX_MON_LINKSTATE_UP) {
                ti->ti_pi->p_linkstate = IBT_PORT_ACTIVE;
                ti->ti_event |= ENX_EVENT_LINK_UP;
                cv_broadcast(&ti->ti_event_cv);
        }
        mutex_exit(&ti->ti_event_lock);

        if (ENX_PORT_PRES_NOT_PRESERVED(itr)) {
                if (ti->ti_progress & ENX_MON_JOINED_MCGS)
                        (void) eibnx_rejoin_mcgs(ti);
        }

        if (pi != NULL)
                ibt_free_portinfo(pi, size_pi);
}

static void
eibnx_handle_hca_attach(ib_guid_t new_hca_guid)
{
        eibnx_t *ss = enx_global_ss;
        eibnx_thr_info_t *ti;
        eibnx_hca_t *hca;
        eibnx_port_t *port;

        /*
         * All we need to do is to start a port monitor for all the ports
         * on the new HCA.  To do this, go through our current port monitors
         * and see if we already have a monitor for this HCA - if so, print
         * a warning and return.
         */
        mutex_enter(&ss->nx_lock);
        for (ti = ss->nx_thr_info; ti; ti = ti->ti_next) {
                if (ti->ti_hca_guid == new_hca_guid) {
                        ENX_DPRINTF_VERBOSE("hca (guid=0x%llx) already "
                            "attached", new_hca_guid);
                        mutex_exit(&ss->nx_lock);
                        return;
                }
        }
        mutex_exit(&ss->nx_lock);

        /*
         * If we don't have it in our list, process the HCA and start the
         * port monitors
         */
        if ((hca = eibnx_prepare_hca(new_hca_guid)) != NULL) {
                mutex_enter(&ss->nx_lock);

                hca->hc_next = ss->nx_hca;
                ss->nx_hca = hca;

                for (port = hca->hc_port; port; port = port->po_next) {
                        ti = eibnx_start_port_monitor(hca, port);

                        ti->ti_next = ss->nx_thr_info;
                        ss->nx_thr_info = ti;
                }
                mutex_exit(&ss->nx_lock);
        }
}

static void
eibnx_handle_hca_detach(ib_guid_t del_hca_guid)
{
        eibnx_t *ss = enx_global_ss;
        eibnx_thr_info_t *ti;
        eibnx_thr_info_t *ti_stop_list = NULL;
        eibnx_thr_info_t *ti_prev;
        eibnx_thr_info_t *ti_next;
        eibnx_hca_t *hca;
        eibnx_hca_t *hca_prev;

        /*
         * We need to locate all monitor threads for this HCA and stop them
         */
        mutex_enter(&ss->nx_lock);
        ti_prev = NULL;
        for (ti = ss->nx_thr_info; ti; ti = ti_next) {
                ti_next = ti->ti_next;

                if (ti->ti_hca_guid != del_hca_guid) {
                        ti_prev = ti;
                } else {
                        /*
                         * Take it out from the good list
                         */
                        if (ti_prev)
                                ti_prev->ti_next = ti_next;
                        else
                                ss->nx_thr_info = ti_next;

                        /*
                         * And put it in the to-stop list
                         */
                        ti->ti_next = ti_stop_list;
                        ti_stop_list = ti;
                }
        }
        mutex_exit(&ss->nx_lock);

        /*
         * Ask all the port_monitor threads to die.
         */
        for (ti = ti_stop_list; ti; ti = ti_next) {
                ti_next = ti->ti_next;
                eibnx_stop_port_monitor(ti);
        }

        /*
         * Now, locate the HCA in our list and release all HCA related
         * resources.
         */
        mutex_enter(&ss->nx_lock);
        hca_prev = NULL;
        for (hca = ss->nx_hca; hca; hca = hca->hc_next) {
                if (hca->hc_guid != del_hca_guid) {
                        hca_prev = hca;
                } else {
                        if (hca_prev) {
                                hca_prev->hc_next = hca->hc_next;
                        } else {
                                ss->nx_hca = hca->hc_next;
                        }
                        hca->hc_next = NULL;
                        break;
                }
        }
        mutex_exit(&ss->nx_lock);

        if (hca) {
                (void) eibnx_cleanup_hca(hca);
        }
}