/*******************************************************************
 * This file is part of the Emulex Linux Device Driver for         *
 * Fibre Channel Host Bus Adapters.                                *
 * Copyright (C) 2004-2009 Emulex.  All rights reserved.           *
 * EMULEX and SLI are trademarks of Emulex.                        *
 * www.emulex.com                                                  *
 * Portions Copyright (C) 2004-2005 Christoph Hellwig              *
 *                                                                 *
 * This program is free software; you can redistribute it and/or   *
 * modify it under the terms of version 2 of the GNU General       *
 * Public License as published by the Free Software Foundation.    *
 * This program is distributed in the hope that it will be useful. *
 * ALL EXPRESS OR IMPLIED CONDITIONS, REPRESENTATIONS AND          *
 * WARRANTIES, INCLUDING ANY IMPLIED WARRANTY OF MERCHANTABILITY,  *
 * FITNESS FOR A PARTICULAR PURPOSE, OR NON-INFRINGEMENT, ARE      *
 * DISCLAIMED, EXCEPT TO THE EXTENT THAT SUCH DISCLAIMERS ARE HELD *
 * TO BE LEGALLY INVALID.  See the GNU General Public License for  *
 * more details, a copy of which can be found in the file COPYING  *
 * included with this package.                                     *
 *******************************************************************/

#include <linux/blkdev.h>
#include <linux/delay.h>
#include <linux/dma-mapping.h>
#include <linux/idr.h>
#include <linux/interrupt.h>
#include <linux/kthread.h>
#include <linux/pci.h>
#include <linux/spinlock.h>
#include <linux/ctype.h>

#include <scsi/scsi.h>
#include <scsi/scsi_device.h>
#include <scsi/scsi_host.h>
#include <scsi/scsi_transport_fc.h>

#include "lpfc_hw4.h"
#include "lpfc_hw.h"
#include "lpfc_sli.h"
#include "lpfc_sli4.h"
#include "lpfc_nl.h"
#include "lpfc_disc.h"
#include "lpfc_scsi.h"
#include "lpfc.h"
#include "lpfc_logmsg.h"
#include "lpfc_crtn.h"
#include "lpfc_vport.h"
#include "lpfc_version.h"

char *_dump_buf_data;
unsigned long _dump_buf_data_order;
char *_dump_buf_dif;
unsigned long _dump_buf_dif_order;
spinlock_t _dump_buf_lock;

static void lpfc_get_hba_model_desc(struct lpfc_hba *, uint8_t *, uint8_t *);
static int lpfc_post_rcv_buf(struct lpfc_hba *);
static int lpfc_sli4_queue_create(struct lpfc_hba *);
static void lpfc_sli4_queue_destroy(struct lpfc_hba *);
static int lpfc_create_bootstrap_mbox(struct lpfc_hba *);
static int lpfc_setup_endian_order(struct lpfc_hba *);
static int lpfc_sli4_read_config(struct lpfc_hba *);
static void lpfc_destroy_bootstrap_mbox(struct lpfc_hba *);
static void lpfc_free_sgl_list(struct lpfc_hba *);
static int lpfc_init_sgl_list(struct lpfc_hba *);
static int lpfc_init_active_sgl_array(struct lpfc_hba *);
static void lpfc_free_active_sgl(struct lpfc_hba *);
static int lpfc_hba_down_post_s3(struct lpfc_hba *phba);
static int lpfc_hba_down_post_s4(struct lpfc_hba *phba);
static int lpfc_sli4_cq_event_pool_create(struct lpfc_hba *);
static void lpfc_sli4_cq_event_pool_destroy(struct lpfc_hba *);
static void lpfc_sli4_cq_event_release_all(struct lpfc_hba *);

static struct scsi_transport_template *lpfc_transport_template = NULL;
static struct scsi_transport_template *lpfc_vport_transport_template = NULL;
static DEFINE_IDR(lpfc_hba_index);

/**
 * lpfc_config_port_prep - Perform lpfc initialization prior to config port
 * @phba: pointer to lpfc hba data structure.
 *
 * This routine will do LPFC initialization prior to issuing the CONFIG_PORT
 * mailbox command. It retrieves the revision information from the HBA and
 * collects the Vital Product Data (VPD) about the HBA for preparing the
 * configuration of the HBA.
 *
 * Return codes:
 *   0 - success.
 *   -ERESTART - requests the SLI layer to reset the HBA and try again.
 *   Any other value - indicates an error.
 **/
int
lpfc_config_port_prep(struct lpfc_hba *phba)
{
        lpfc_vpd_t *vp = &phba->vpd;
        int i = 0, rc;
        LPFC_MBOXQ_t *pmb;
        MAILBOX_t *mb;
        char *lpfc_vpd_data = NULL;
        uint16_t offset = 0;
        static char licensed[56] =
                    "key unlock for use with gnu public licensed code only\0";
        static int init_key = 1;

        pmb = mempool_alloc(phba->mbox_mem_pool, GFP_KERNEL);
        if (!pmb) {
                phba->link_state = LPFC_HBA_ERROR;
                return -ENOMEM;
        }

        mb = &pmb->u.mb;
        phba->link_state = LPFC_INIT_MBX_CMDS;

        if (lpfc_is_LC_HBA(phba->pcidev->device)) {
                if (init_key) {
                        uint32_t *ptext = (uint32_t *) licensed;

                        for (i = 0; i < 56; i += sizeof (uint32_t), ptext++)
                                *ptext = cpu_to_be32(*ptext);
                        init_key = 0;
                }

                lpfc_read_nv(phba, pmb);
                memset((char*)mb->un.varRDnvp.rsvd3, 0,
                        sizeof (mb->un.varRDnvp.rsvd3));
                memcpy((char*)mb->un.varRDnvp.rsvd3, licensed,
                         sizeof (licensed));

                rc = lpfc_sli_issue_mbox(phba, pmb, MBX_POLL);

                if (rc != MBX_SUCCESS) {
                        lpfc_printf_log(phba, KERN_ERR, LOG_MBOX,
                                        "0324 Config Port initialization "
                                        "error, mbxCmd x%x READ_NVPARM, "
                                        "mbxStatus x%x\n",
                                        mb->mbxCommand, mb->mbxStatus);
                        mempool_free(pmb, phba->mbox_mem_pool);
                        return -ERESTART;
                }
                memcpy(phba->wwnn, (char *)mb->un.varRDnvp.nodename,
                       sizeof(phba->wwnn));
                memcpy(phba->wwpn, (char *)mb->un.varRDnvp.portname,
                       sizeof(phba->wwpn));
        }

        phba->sli3_options = 0x0;

        /* Setup and issue mailbox READ REV command */
        lpfc_read_rev(phba, pmb);
        rc = lpfc_sli_issue_mbox(phba, pmb, MBX_POLL);
        if (rc != MBX_SUCCESS) {
                lpfc_printf_log(phba, KERN_ERR, LOG_INIT,
                                "0439 Adapter failed to init, mbxCmd x%x "
                                "READ_REV, mbxStatus x%x\n",
                                mb->mbxCommand, mb->mbxStatus);
                mempool_free( pmb, phba->mbox_mem_pool);
                return -ERESTART;
        }


        /*
         * The value of rr must be 1 since the driver set the cv field to 1.
         * This setting requires the FW to set all revision fields.
         */
        if (mb->un.varRdRev.rr == 0) {
                vp->rev.rBit = 0;
                lpfc_printf_log(phba, KERN_ERR, LOG_INIT,
                                "0440 Adapter failed to init, READ_REV has "
                                "missing revision information.\n");
                mempool_free(pmb, phba->mbox_mem_pool);
                return -ERESTART;
        }

        if (phba->sli_rev == 3 && !mb->un.varRdRev.v3rsp) {
                mempool_free(pmb, phba->mbox_mem_pool);
                return -EINVAL;
        }

        /* Save information as VPD data */
        vp->rev.rBit = 1;
        memcpy(&vp->sli3Feat, &mb->un.varRdRev.sli3Feat, sizeof(uint32_t));
        vp->rev.sli1FwRev = mb->un.varRdRev.sli1FwRev;
        memcpy(vp->rev.sli1FwName, (char*) mb->un.varRdRev.sli1FwName, 16);
        vp->rev.sli2FwRev = mb->un.varRdRev.sli2FwRev;
        memcpy(vp->rev.sli2FwName, (char *) mb->un.varRdRev.sli2FwName, 16);
        vp->rev.biuRev = mb->un.varRdRev.biuRev;
        vp->rev.smRev = mb->un.varRdRev.smRev;
        vp->rev.smFwRev = mb->un.varRdRev.un.smFwRev;
        vp->rev.endecRev = mb->un.varRdRev.endecRev;
        vp->rev.fcphHigh = mb->un.varRdRev.fcphHigh;
        vp->rev.fcphLow = mb->un.varRdRev.fcphLow;
        vp->rev.feaLevelHigh = mb->un.varRdRev.feaLevelHigh;
        vp->rev.feaLevelLow = mb->un.varRdRev.feaLevelLow;
        vp->rev.postKernRev = mb->un.varRdRev.postKernRev;
        vp->rev.opFwRev = mb->un.varRdRev.opFwRev;

        /* If the sli feature level is less then 9, we must
         * tear down all RPIs and VPIs on link down if NPIV
         * is enabled.
         */
        if (vp->rev.feaLevelHigh < 9)
                phba->sli3_options |= LPFC_SLI3_VPORT_TEARDOWN;

        if (lpfc_is_LC_HBA(phba->pcidev->device))
                memcpy(phba->RandomData, (char *)&mb->un.varWords[24],
                                                sizeof (phba->RandomData));

        /* Get adapter VPD information */
        lpfc_vpd_data = kmalloc(DMP_VPD_SIZE, GFP_KERNEL);
        if (!lpfc_vpd_data)
                goto out_free_mbox;

        do {
                lpfc_dump_mem(phba, pmb, offset, DMP_REGION_VPD);
                rc = lpfc_sli_issue_mbox(phba, pmb, MBX_POLL);

                if (rc != MBX_SUCCESS) {
                        lpfc_printf_log(phba, KERN_INFO, LOG_INIT,
                                        "0441 VPD not present on adapter, "
                                        "mbxCmd x%x DUMP VPD, mbxStatus x%x\n",
                                        mb->mbxCommand, mb->mbxStatus);
                        mb->un.varDmp.word_cnt = 0;
                }
                /* dump mem may return a zero when finished or we got a
                 * mailbox error, either way we are done.
                 */
                if (mb->un.varDmp.word_cnt == 0)
                        break;
                if (mb->un.varDmp.word_cnt > DMP_VPD_SIZE - offset)
                        mb->un.varDmp.word_cnt = DMP_VPD_SIZE - offset;
                lpfc_sli_pcimem_bcopy(((uint8_t *)mb) + DMP_RSP_OFFSET,
                                      lpfc_vpd_data + offset,
                                      mb->un.varDmp.word_cnt);
                offset += mb->un.varDmp.word_cnt;
        } while (mb->un.varDmp.word_cnt && offset < DMP_VPD_SIZE);
        lpfc_parse_vpd(phba, lpfc_vpd_data, offset);

        kfree(lpfc_vpd_data);
out_free_mbox:
        mempool_free(pmb, phba->mbox_mem_pool);
        return 0;
}

/**
 * lpfc_config_async_cmpl - Completion handler for config async event mbox cmd
 * @phba: pointer to lpfc hba data structure.
 * @pmboxq: pointer to the driver internal queue element for mailbox command.
 *
 * This is the completion handler for driver's configuring asynchronous event
 * mailbox command to the device. If the mailbox command returns successfully,
 * it will set internal async event support flag to 1; otherwise, it will
 * set internal async event support flag to 0.
 **/
static void
lpfc_config_async_cmpl(struct lpfc_hba * phba, LPFC_MBOXQ_t * pmboxq)
{
        if (pmboxq->u.mb.mbxStatus == MBX_SUCCESS)
                phba->temp_sensor_support = 1;
        else
                phba->temp_sensor_support = 0;
        mempool_free(pmboxq, phba->mbox_mem_pool);
        return;
}

/**
 * lpfc_dump_wakeup_param_cmpl - dump memory mailbox command completion handler
 * @phba: pointer to lpfc hba data structure.
 * @pmboxq: pointer to the driver internal queue element for mailbox command.
 *
 * This is the completion handler for dump mailbox command for getting
 * wake up parameters. When this command complete, the response contain
 * Option rom version of the HBA. This function translate the version number
 * into a human readable string and store it in OptionROMVersion.
 **/
static void
lpfc_dump_wakeup_param_cmpl(struct lpfc_hba *phba, LPFC_MBOXQ_t *pmboxq)
{
        struct prog_id *prg;
        uint32_t prog_id_word;
        char dist = ' ';
        /* character array used for decoding dist type. */
        char dist_char[] = "nabx";

        if (pmboxq->u.mb.mbxStatus != MBX_SUCCESS) {
                mempool_free(pmboxq, phba->mbox_mem_pool);
                return;
        }

        prg = (struct prog_id *) &prog_id_word;

        /* word 7 contain option rom version */
        prog_id_word = pmboxq->u.mb.un.varWords[7];

        /* Decode the Option rom version word to a readable string */
        if (prg->dist < 4)
                dist = dist_char[prg->dist];

        if ((prg->dist == 3) && (prg->num == 0))
                sprintf(phba->OptionROMVersion, "%d.%d%d",
                        prg->ver, prg->rev, prg->lev);
        else
                sprintf(phba->OptionROMVersion, "%d.%d%d%c%d",
                        prg->ver, prg->rev, prg->lev,
                        dist, prg->num);
        mempool_free(pmboxq, phba->mbox_mem_pool);
        return;
}

/**
 * lpfc_config_port_post - Perform lpfc initialization after config port
 * @phba: pointer to lpfc hba data structure.
 *
 * This routine will do LPFC initialization after the CONFIG_PORT mailbox
 * command call. It performs all internal resource and state setups on the
 * port: post IOCB buffers, enable appropriate host interrupt attentions,
 * ELS ring timers, etc.
 *
 * Return codes
 *   0 - success.
 *   Any other value - error.
 **/
int
lpfc_config_port_post(struct lpfc_hba *phba)
{
        struct lpfc_vport *vport = phba->pport;
        struct Scsi_Host *shost = lpfc_shost_from_vport(vport);
        LPFC_MBOXQ_t *pmb;
        MAILBOX_t *mb;
        struct lpfc_dmabuf *mp;
        struct lpfc_sli *psli = &phba->sli;
        uint32_t status, timeout;
        int i, j;
        int rc;

        spin_lock_irq(&phba->hbalock);
        /*
         * If the Config port completed correctly the HBA is not
         * over heated any more.
         */
        if (phba->over_temp_state == HBA_OVER_TEMP)
                phba->over_temp_state = HBA_NORMAL_TEMP;
        spin_unlock_irq(&phba->hbalock);

        pmb = mempool_alloc(phba->mbox_mem_pool, GFP_KERNEL);
        if (!pmb) {
                phba->link_state = LPFC_HBA_ERROR;
                return -ENOMEM;
        }
        mb = &pmb->u.mb;

        /* Get login parameters for NID.  */
        lpfc_read_sparam(phba, pmb, 0);
        pmb->vport = vport;
        if (lpfc_sli_issue_mbox(phba, pmb, MBX_POLL) != MBX_SUCCESS) {
                lpfc_printf_log(phba, KERN_ERR, LOG_INIT,
                                "0448 Adapter failed init, mbxCmd x%x "
                                "READ_SPARM mbxStatus x%x\n",
                                mb->mbxCommand, mb->mbxStatus);
                phba->link_state = LPFC_HBA_ERROR;
                mp = (struct lpfc_dmabuf *) pmb->context1;
                mempool_free( pmb, phba->mbox_mem_pool);
                lpfc_mbuf_free(phba, mp->virt, mp->phys);
                kfree(mp);
                return -EIO;
        }

        mp = (struct lpfc_dmabuf *) pmb->context1;

        memcpy(&vport->fc_sparam, mp->virt, sizeof (struct serv_parm));
        lpfc_mbuf_free(phba, mp->virt, mp->phys);
        kfree(mp);
        pmb->context1 = NULL;

        if (phba->cfg_soft_wwnn)
                u64_to_wwn(phba->cfg_soft_wwnn,
                           vport->fc_sparam.nodeName.u.wwn);
        if (phba->cfg_soft_wwpn)
                u64_to_wwn(phba->cfg_soft_wwpn,
                           vport->fc_sparam.portName.u.wwn);
        memcpy(&vport->fc_nodename, &vport->fc_sparam.nodeName,
               sizeof (struct lpfc_name));
        memcpy(&vport->fc_portname, &vport->fc_sparam.portName,
               sizeof (struct lpfc_name));

        /* Update the fc_host data structures with new wwn. */
        fc_host_node_name(shost) = wwn_to_u64(vport->fc_nodename.u.wwn);
        fc_host_port_name(shost) = wwn_to_u64(vport->fc_portname.u.wwn);
        fc_host_max_npiv_vports(shost) = phba->max_vpi;

        /* If no serial number in VPD data, use low 6 bytes of WWNN */
        /* This should be consolidated into parse_vpd ? - mr */
        if (phba->SerialNumber[0] == 0) {
                uint8_t *outptr;

                outptr = &vport->fc_nodename.u.s.IEEE[0];
                for (i = 0; i < 12; i++) {
                        status = *outptr++;
                        j = ((status & 0xf0) >> 4);
                        if (j <= 9)
                                phba->SerialNumber[i] =
                                    (char)((uint8_t) 0x30 + (uint8_t) j);
                        else
                                phba->SerialNumber[i] =
                                    (char)((uint8_t) 0x61 + (uint8_t) (j - 10));
                        i++;
                        j = (status & 0xf);
                        if (j <= 9)
                                phba->SerialNumber[i] =
                                    (char)((uint8_t) 0x30 + (uint8_t) j);
                        else
                                phba->SerialNumber[i] =
                                    (char)((uint8_t) 0x61 + (uint8_t) (j - 10));
                }
        }

        lpfc_read_config(phba, pmb);
        pmb->vport = vport;
        if (lpfc_sli_issue_mbox(phba, pmb, MBX_POLL) != MBX_SUCCESS) {
                lpfc_printf_log(phba, KERN_ERR, LOG_INIT,
                                "0453 Adapter failed to init, mbxCmd x%x "
                                "READ_CONFIG, mbxStatus x%x\n",
                                mb->mbxCommand, mb->mbxStatus);
                phba->link_state = LPFC_HBA_ERROR;
                mempool_free( pmb, phba->mbox_mem_pool);
                return -EIO;
        }

        /* Check if the port is disabled */
        lpfc_sli_read_link_ste(phba);

        /* Reset the DFT_HBA_Q_DEPTH to the max xri  */
        if (phba->cfg_hba_queue_depth > (mb->un.varRdConfig.max_xri+1))
                phba->cfg_hba_queue_depth =
                        (mb->un.varRdConfig.max_xri + 1) -
                                        lpfc_sli4_get_els_iocb_cnt(phba);

        phba->lmt = mb->un.varRdConfig.lmt;

        /* Get the default values for Model Name and Description */
        lpfc_get_hba_model_desc(phba, phba->ModelName, phba->ModelDesc);

        if ((phba->cfg_link_speed > LINK_SPEED_10G)
            || ((phba->cfg_link_speed == LINK_SPEED_1G)
                && !(phba->lmt & LMT_1Gb))
            || ((phba->cfg_link_speed == LINK_SPEED_2G)
                && !(phba->lmt & LMT_2Gb))
            || ((phba->cfg_link_speed == LINK_SPEED_4G)
                && !(phba->lmt & LMT_4Gb))
            || ((phba->cfg_link_speed == LINK_SPEED_8G)
                && !(phba->lmt & LMT_8Gb))
            || ((phba->cfg_link_speed == LINK_SPEED_10G)
                && !(phba->lmt & LMT_10Gb))) {
                /* Reset link speed to auto */
                lpfc_printf_log(phba, KERN_WARNING, LOG_LINK_EVENT,
                        "1302 Invalid speed for this board: "
                        "Reset link speed to auto: x%x\n",
                        phba->cfg_link_speed);
                        phba->cfg_link_speed = LINK_SPEED_AUTO;
        }

        phba->link_state = LPFC_LINK_DOWN;

        /* Only process IOCBs on ELS ring till hba_state is READY */
        if (psli->ring[psli->extra_ring].cmdringaddr)
                psli->ring[psli->extra_ring].flag |= LPFC_STOP_IOCB_EVENT;
        if (psli->ring[psli->fcp_ring].cmdringaddr)
                psli->ring[psli->fcp_ring].flag |= LPFC_STOP_IOCB_EVENT;
        if (psli->ring[psli->next_ring].cmdringaddr)
                psli->ring[psli->next_ring].flag |= LPFC_STOP_IOCB_EVENT;

        /* Post receive buffers for desired rings */
        if (phba->sli_rev != 3)
                lpfc_post_rcv_buf(phba);

        /*
         * Configure HBA MSI-X attention conditions to messages if MSI-X mode
         */
        if (phba->intr_type == MSIX) {
                rc = lpfc_config_msi(phba, pmb);
                if (rc) {
                        mempool_free(pmb, phba->mbox_mem_pool);
                        return -EIO;
                }
                rc = lpfc_sli_issue_mbox(phba, pmb, MBX_POLL);
                if (rc != MBX_SUCCESS) {
                        lpfc_printf_log(phba, KERN_ERR, LOG_MBOX,
                                        "0352 Config MSI mailbox command "
                                        "failed, mbxCmd x%x, mbxStatus x%x\n",
                                        pmb->u.mb.mbxCommand,
                                        pmb->u.mb.mbxStatus);
                        mempool_free(pmb, phba->mbox_mem_pool);
                        return -EIO;
                }
        }

        spin_lock_irq(&phba->hbalock);
        /* Initialize ERATT handling flag */
        phba->hba_flag &= ~HBA_ERATT_HANDLED;

        /* Enable appropriate host interrupts */
        status = readl(phba->HCregaddr);
        status |= HC_MBINT_ENA | HC_ERINT_ENA | HC_LAINT_ENA;
        if (psli->num_rings > 0)
                status |= HC_R0INT_ENA;
        if (psli->num_rings > 1)
                status |= HC_R1INT_ENA;
        if (psli->num_rings > 2)
                status |= HC_R2INT_ENA;
        if (psli->num_rings > 3)
                status |= HC_R3INT_ENA;

        if ((phba->cfg_poll & ENABLE_FCP_RING_POLLING) &&
            (phba->cfg_poll & DISABLE_FCP_RING_INT))
                status &= ~(HC_R0INT_ENA);

        writel(status, phba->HCregaddr);
        readl(phba->HCregaddr); /* flush */
        spin_unlock_irq(&phba->hbalock);

        /* Set up ring-0 (ELS) timer */
        timeout = phba->fc_ratov * 2;
        mod_timer(&vport->els_tmofunc, jiffies + HZ * timeout);
        /* Set up heart beat (HB) timer */
        mod_timer(&phba->hb_tmofunc, jiffies + HZ * LPFC_HB_MBOX_INTERVAL);
        phba->hb_outstanding = 0;
        phba->last_completion_time = jiffies;
        /* Set up error attention (ERATT) polling timer */
        mod_timer(&phba->eratt_poll, jiffies + HZ * LPFC_ERATT_POLL_INTERVAL);

        if (phba->hba_flag & LINK_DISABLED) {
                lpfc_printf_log(phba,
                        KERN_ERR, LOG_INIT,
                        "2598 Adapter Link is disabled.\n");
                lpfc_down_link(phba, pmb);
                pmb->mbox_cmpl = lpfc_sli_def_mbox_cmpl;
                rc = lpfc_sli_issue_mbox(phba, pmb, MBX_NOWAIT);
                if ((rc != MBX_SUCCESS) && (rc != MBX_BUSY)) {
                        lpfc_printf_log(phba,
                        KERN_ERR, LOG_INIT,
                        "2599 Adapter failed to issue DOWN_LINK"
                        " mbox command rc 0x%x\n", rc);

                        mempool_free(pmb, phba->mbox_mem_pool);
                        return -EIO;
                }
        } else {
                lpfc_init_link(phba, pmb, phba->cfg_topology,
                        phba->cfg_link_speed);
                pmb->mbox_cmpl = lpfc_sli_def_mbox_cmpl;
                lpfc_set_loopback_flag(phba);
                rc = lpfc_sli_issue_mbox(phba, pmb, MBX_NOWAIT);
                if (rc != MBX_SUCCESS) {
                        lpfc_printf_log(phba, KERN_ERR, LOG_INIT,
                                "0454 Adapter failed to init, mbxCmd x%x "
                                "INIT_LINK, mbxStatus x%x\n",
                                mb->mbxCommand, mb->mbxStatus);

                        /* Clear all interrupt enable conditions */
                        writel(0, phba->HCregaddr);
                        readl(phba->HCregaddr); /* flush */
                        /* Clear all pending interrupts */
                        writel(0xffffffff, phba->HAregaddr);
                        readl(phba->HAregaddr); /* flush */

                        phba->link_state = LPFC_HBA_ERROR;
                        if (rc != MBX_BUSY)
                                mempool_free(pmb, phba->mbox_mem_pool);
                        return -EIO;
                }
        }
        /* MBOX buffer will be freed in mbox compl */
        pmb = mempool_alloc(phba->mbox_mem_pool, GFP_KERNEL);
        lpfc_config_async(phba, pmb, LPFC_ELS_RING);
        pmb->mbox_cmpl = lpfc_config_async_cmpl;
        pmb->vport = phba->pport;
        rc = lpfc_sli_issue_mbox(phba, pmb, MBX_NOWAIT);

        if ((rc != MBX_BUSY) && (rc != MBX_SUCCESS)) {
                lpfc_printf_log(phba,
                                KERN_ERR,
                                LOG_INIT,
                                "0456 Adapter failed to issue "
                                "ASYNCEVT_ENABLE mbox status x%x\n",
                                rc);
                mempool_free(pmb, phba->mbox_mem_pool);
        }

        /* Get Option rom version */
        pmb = mempool_alloc(phba->mbox_mem_pool, GFP_KERNEL);
        lpfc_dump_wakeup_param(phba, pmb);
        pmb->mbox_cmpl = lpfc_dump_wakeup_param_cmpl;
        pmb->vport = phba->pport;
        rc = lpfc_sli_issue_mbox(phba, pmb, MBX_NOWAIT);

        if ((rc != MBX_BUSY) && (rc != MBX_SUCCESS)) {
                lpfc_printf_log(phba, KERN_ERR, LOG_INIT, "0435 Adapter failed "
                                "to get Option ROM version status x%x\n", rc);
                mempool_free(pmb, phba->mbox_mem_pool);
        }

        return 0;
}

/**
 * lpfc_hba_down_prep - Perform lpfc uninitialization prior to HBA reset
 * @phba: pointer to lpfc HBA data structure.
 *
 * This routine will do LPFC uninitialization before the HBA is reset when
 * bringing down the SLI Layer.
 *
 * Return codes
 *   0 - success.
 *   Any other value - error.
 **/
int
lpfc_hba_down_prep(struct lpfc_hba *phba)
{
        struct lpfc_vport **vports;
        int i;

        if (phba->sli_rev <= LPFC_SLI_REV3) {
                /* Disable interrupts */
                writel(0, phba->HCregaddr);
                readl(phba->HCregaddr); /* flush */
        }

        if (phba->pport->load_flag & FC_UNLOADING)
                lpfc_cleanup_discovery_resources(phba->pport);
        else {
                vports = lpfc_create_vport_work_array(phba);
                if (vports != NULL)
                        for (i = 0; i <= phba->max_vports &&
                                vports[i] != NULL; i++)
                                lpfc_cleanup_discovery_resources(vports[i]);
                lpfc_destroy_vport_work_array(phba, vports);
        }
        return 0;
}

/**
 * lpfc_hba_down_post_s3 - Perform lpfc uninitialization after HBA reset
 * @phba: pointer to lpfc HBA data structure.
 *
 * This routine will do uninitialization after the HBA is reset when bring
 * down the SLI Layer.
 *
 * Return codes
 *   0 - sucess.
 *   Any other value - error.
 **/
static int
lpfc_hba_down_post_s3(struct lpfc_hba *phba)
{
        struct lpfc_sli *psli = &phba->sli;
        struct lpfc_sli_ring *pring;
        struct lpfc_dmabuf *mp, *next_mp;
        LIST_HEAD(completions);
        int i;

        if (phba->sli3_options & LPFC_SLI3_HBQ_ENABLED)
                lpfc_sli_hbqbuf_free_all(phba);
        else {
                /* Cleanup preposted buffers on the ELS ring */
                pring = &psli->ring[LPFC_ELS_RING];
                list_for_each_entry_safe(mp, next_mp, &pring->postbufq, list) {
                        list_del(&mp->list);
                        pring->postbufq_cnt--;
                        lpfc_mbuf_free(phba, mp->virt, mp->phys);
                        kfree(mp);
                }
        }

        spin_lock_irq(&phba->hbalock);
        for (i = 0; i < psli->num_rings; i++) {
                pring = &psli->ring[i];

                /* At this point in time the HBA is either reset or DOA. Either
                 * way, nothing should be on txcmplq as it will NEVER complete.
                 */
                list_splice_init(&pring->txcmplq, &completions);
                pring->txcmplq_cnt = 0;
                spin_unlock_irq(&phba->hbalock);

                /* Cancel all the IOCBs from the completions list */
                lpfc_sli_cancel_iocbs(phba, &completions, IOSTAT_LOCAL_REJECT,
                                      IOERR_SLI_ABORTED);

                lpfc_sli_abort_iocb_ring(phba, pring);
                spin_lock_irq(&phba->hbalock);
        }
        spin_unlock_irq(&phba->hbalock);

        return 0;
}
/**
 * lpfc_hba_down_post_s4 - Perform lpfc uninitialization after HBA reset
 * @phba: pointer to lpfc HBA data structure.
 *
 * This routine will do uninitialization after the HBA is reset when bring
 * down the SLI Layer.
 *
 * Return codes
 *   0 - sucess.
 *   Any other value - error.
 **/
static int
lpfc_hba_down_post_s4(struct lpfc_hba *phba)
{
        struct lpfc_scsi_buf *psb, *psb_next;
        LIST_HEAD(aborts);
        int ret;
        unsigned long iflag = 0;
        ret = lpfc_hba_down_post_s3(phba);
        if (ret)
                return ret;
        /* At this point in time the HBA is either reset or DOA. Either
         * way, nothing should be on lpfc_abts_els_sgl_list, it needs to be
         * on the lpfc_sgl_list so that it can either be freed if the
         * driver is unloading or reposted if the driver is restarting
         * the port.
         */
        spin_lock_irq(&phba->hbalock);  /* required for lpfc_sgl_list and */
                                        /* scsl_buf_list */
        /* abts_sgl_list_lock required because worker thread uses this
         * list.
         */
        spin_lock(&phba->sli4_hba.abts_sgl_list_lock);
        list_splice_init(&phba->sli4_hba.lpfc_abts_els_sgl_list,
                        &phba->sli4_hba.lpfc_sgl_list);
        spin_unlock(&phba->sli4_hba.abts_sgl_list_lock);
        /* abts_scsi_buf_list_lock required because worker thread uses this
         * list.
         */
        spin_lock(&phba->sli4_hba.abts_scsi_buf_list_lock);
        list_splice_init(&phba->sli4_hba.lpfc_abts_scsi_buf_list,
                        &aborts);
        spin_unlock(&phba->sli4_hba.abts_scsi_buf_list_lock);
        spin_unlock_irq(&phba->hbalock);

        list_for_each_entry_safe(psb, psb_next, &aborts, list) {
                psb->pCmd = NULL;
                psb->status = IOSTAT_SUCCESS;
        }
        spin_lock_irqsave(&phba->scsi_buf_list_lock, iflag);
        list_splice(&aborts, &phba->lpfc_scsi_buf_list);
        spin_unlock_irqrestore(&phba->scsi_buf_list_lock, iflag);
        return 0;
}

/**
 * lpfc_hba_down_post - Wrapper func for hba down post routine
 * @phba: pointer to lpfc HBA data structure.
 *
 * This routine wraps the actual SLI3 or SLI4 routine for performing
 * uninitialization after the HBA is reset when bring down the SLI Layer.
 *
 * Return codes
 *   0 - sucess.
 *   Any other value - error.
 **/
int
lpfc_hba_down_post(struct lpfc_hba *phba)
{
        return (*phba->lpfc_hba_down_post)(phba);
}

/**
 * lpfc_hb_timeout - The HBA-timer timeout handler
 * @ptr: unsigned long holds the pointer to lpfc hba data structure.
 *
 * This is the HBA-timer timeout handler registered to the lpfc driver. When
 * this timer fires, a HBA timeout event shall be posted to the lpfc driver
 * work-port-events bitmap and the worker thread is notified. This timeout
 * event will be used by the worker thread to invoke the actual timeout
 * handler routine, lpfc_hb_timeout_handler. Any periodical operations will
 * be performed in the timeout handler and the HBA timeout event bit shall
 * be cleared by the worker thread after it has taken the event bitmap out.
 **/
static void
lpfc_hb_timeout(unsigned long ptr)
{
        struct lpfc_hba *phba;
        uint32_t tmo_posted;
        unsigned long iflag;

        phba = (struct lpfc_hba *)ptr;

        /* Check for heart beat timeout conditions */
        spin_lock_irqsave(&phba->pport->work_port_lock, iflag);
        tmo_posted = phba->pport->work_port_events & WORKER_HB_TMO;
        if (!tmo_posted)
                phba->pport->work_port_events |= WORKER_HB_TMO;
        spin_unlock_irqrestore(&phba->pport->work_port_lock, iflag);

        /* Tell the worker thread there is work to do */
        if (!tmo_posted)
                lpfc_worker_wake_up(phba);
        return;
}

/**
 * lpfc_hb_mbox_cmpl - The lpfc heart-beat mailbox command callback function
 * @phba: pointer to lpfc hba data structure.
 * @pmboxq: pointer to the driver internal queue element for mailbox command.
 *
 * This is the callback function to the lpfc heart-beat mailbox command.
 * If configured, the lpfc driver issues the heart-beat mailbox command to
 * the HBA every LPFC_HB_MBOX_INTERVAL (current 5) seconds. At the time the
 * heart-beat mailbox command is issued, the driver shall set up heart-beat
 * timeout timer to LPFC_HB_MBOX_TIMEOUT (current 30) seconds and marks
 * heart-beat outstanding state. Once the mailbox command comes back and
 * no error conditions detected, the heart-beat mailbox command timer is
 * reset to LPFC_HB_MBOX_INTERVAL seconds and the heart-beat outstanding
 * state is cleared for the next heart-beat. If the timer expired with the
 * heart-beat outstanding state set, the driver will put the HBA offline.
 **/
static void
lpfc_hb_mbox_cmpl(struct lpfc_hba * phba, LPFC_MBOXQ_t * pmboxq)
{
        unsigned long drvr_flag;

        spin_lock_irqsave(&phba->hbalock, drvr_flag);
        phba->hb_outstanding = 0;
        spin_unlock_irqrestore(&phba->hbalock, drvr_flag);

        /* Check and reset heart-beat timer is necessary */
        mempool_free(pmboxq, phba->mbox_mem_pool);
        if (!(phba->pport->fc_flag & FC_OFFLINE_MODE) &&
                !(phba->link_state == LPFC_HBA_ERROR) &&
                !(phba->pport->load_flag & FC_UNLOADING))
                mod_timer(&phba->hb_tmofunc,
                        jiffies + HZ * LPFC_HB_MBOX_INTERVAL);
        return;
}

/**
 * lpfc_hb_timeout_handler - The HBA-timer timeout handler
 * @phba: pointer to lpfc hba data structure.
 *
 * This is the actual HBA-timer timeout handler to be invoked by the worker
 * thread whenever the HBA timer fired and HBA-timeout event posted. This
 * handler performs any periodic operations needed for the device. If such
 * periodic event has already been attended to either in the interrupt handler
 * or by processing slow-ring or fast-ring events within the HBA-timer
 * timeout window (LPFC_HB_MBOX_INTERVAL), this handler just simply resets
 * the timer for the next timeout period. If lpfc heart-beat mailbox command
 * is configured and there is no heart-beat mailbox command outstanding, a
 * heart-beat mailbox is issued and timer set properly. Otherwise, if there
 * has been a heart-beat mailbox command outstanding, the HBA shall be put
 * to offline.
 **/
void
lpfc_hb_timeout_handler(struct lpfc_hba *phba)
{
        LPFC_MBOXQ_t *pmboxq;
        struct lpfc_dmabuf *buf_ptr;
        int retval;
        struct lpfc_sli *psli = &phba->sli;
        LIST_HEAD(completions);

        if ((phba->link_state == LPFC_HBA_ERROR) ||
                (phba->pport->load_flag & FC_UNLOADING) ||
                (phba->pport->fc_flag & FC_OFFLINE_MODE))
                return;

        spin_lock_irq(&phba->pport->work_port_lock);

        if (time_after(phba->last_completion_time + LPFC_HB_MBOX_INTERVAL * HZ,
                jiffies)) {
                spin_unlock_irq(&phba->pport->work_port_lock);
                if (!phba->hb_outstanding)
                        mod_timer(&phba->hb_tmofunc,
                                jiffies + HZ * LPFC_HB_MBOX_INTERVAL);
                else
                        mod_timer(&phba->hb_tmofunc,
                                jiffies + HZ * LPFC_HB_MBOX_TIMEOUT);
                return;
        }
        spin_unlock_irq(&phba->pport->work_port_lock);

        if (phba->elsbuf_cnt &&
                (phba->elsbuf_cnt == phba->elsbuf_prev_cnt)) {
                spin_lock_irq(&phba->hbalock);
                list_splice_init(&phba->elsbuf, &completions);
                phba->elsbuf_cnt = 0;
                phba->elsbuf_prev_cnt = 0;
                spin_unlock_irq(&phba->hbalock);

                while (!list_empty(&completions)) {
                        list_remove_head(&completions, buf_ptr,
                                struct lpfc_dmabuf, list);
                        lpfc_mbuf_free(phba, buf_ptr->virt, buf_ptr->phys);
                        kfree(buf_ptr);
                }
        }
        phba->elsbuf_prev_cnt = phba->elsbuf_cnt;

        /* If there is no heart beat outstanding, issue a heartbeat command */
        if (phba->cfg_enable_hba_heartbeat) {
                if (!phba->hb_outstanding) {
                        pmboxq = mempool_alloc(phba->mbox_mem_pool,GFP_KERNEL);
                        if (!pmboxq) {
                                mod_timer(&phba->hb_tmofunc,
                                          jiffies + HZ * LPFC_HB_MBOX_INTERVAL);
                                return;
                        }

                        lpfc_heart_beat(phba, pmboxq);
                        pmboxq->mbox_cmpl = lpfc_hb_mbox_cmpl;
                        pmboxq->vport = phba->pport;
                        retval = lpfc_sli_issue_mbox(phba, pmboxq, MBX_NOWAIT);

                        if (retval != MBX_BUSY && retval != MBX_SUCCESS) {
                                mempool_free(pmboxq, phba->mbox_mem_pool);
                                mod_timer(&phba->hb_tmofunc,
                                          jiffies + HZ * LPFC_HB_MBOX_INTERVAL);
                                return;
                        }
                        mod_timer(&phba->hb_tmofunc,
                                  jiffies + HZ * LPFC_HB_MBOX_TIMEOUT);
                        phba->hb_outstanding = 1;
                        return;
                } else {
                        /*
                        * If heart beat timeout called with hb_outstanding set
                        * we need to take the HBA offline.
                        */
                        lpfc_printf_log(phba, KERN_ERR, LOG_INIT,
                                        "0459 Adapter heartbeat failure, "
                                        "taking this port offline.\n");

                        spin_lock_irq(&phba->hbalock);
                        psli->sli_flag &= ~LPFC_SLI_ACTIVE;
                        spin_unlock_irq(&phba->hbalock);

                        lpfc_offline_prep(phba);
                        lpfc_offline(phba);
                        lpfc_unblock_mgmt_io(phba);
                        phba->link_state = LPFC_HBA_ERROR;
                        lpfc_hba_down_post(phba);
                }
        }
}

/**
 * lpfc_offline_eratt - Bring lpfc offline on hardware error attention
 * @phba: pointer to lpfc hba data structure.
 *
 * This routine is called to bring the HBA offline when HBA hardware error
 * other than Port Error 6 has been detected.
 **/
static void
lpfc_offline_eratt(struct lpfc_hba *phba)
{
        struct lpfc_sli   *psli = &phba->sli;

        spin_lock_irq(&phba->hbalock);
        psli->sli_flag &= ~LPFC_SLI_ACTIVE;
        spin_unlock_irq(&phba->hbalock);
        lpfc_offline_prep(phba);

        lpfc_offline(phba);
        lpfc_reset_barrier(phba);
        spin_lock_irq(&phba->hbalock);
        lpfc_sli_brdreset(phba);
        spin_unlock_irq(&phba->hbalock);
        lpfc_hba_down_post(phba);
        lpfc_sli_brdready(phba, HS_MBRDY);
        lpfc_unblock_mgmt_io(phba);
        phba->link_state = LPFC_HBA_ERROR;
        return;
}

/**
 * lpfc_sli4_offline_eratt - Bring lpfc offline on SLI4 hardware error attention
 * @phba: pointer to lpfc hba data structure.
 *
 * This routine is called to bring a SLI4 HBA offline when HBA hardware error
 * other than Port Error 6 has been detected.
 **/
static void
lpfc_sli4_offline_eratt(struct lpfc_hba *phba)
{
        lpfc_offline_prep(phba);
        lpfc_offline(phba);
        lpfc_sli4_brdreset(phba);
        lpfc_hba_down_post(phba);
        lpfc_sli4_post_status_check(phba);
        lpfc_unblock_mgmt_io(phba);
        phba->link_state = LPFC_HBA_ERROR;
}

/**
 * lpfc_handle_deferred_eratt - The HBA hardware deferred error handler
 * @phba: pointer to lpfc hba data structure.
 *
 * This routine is invoked to handle the deferred HBA hardware error
 * conditions. This type of error is indicated by HBA by setting ER1
 * and another ER bit in the host status register. The driver will
 * wait until the ER1 bit clears before handling the error condition.

 **/
static void
lpfc_handle_deferred_eratt(struct lpfc_hba *phba)
{
        uint32_t old_host_status = phba->work_hs;
        struct lpfc_sli_ring  *pring;
        struct lpfc_sli *psli = &phba->sli;

        /* If the pci channel is offline, ignore possible errors,
         * since we cannot communicate with the pci card anyway.
         */
        if (pci_channel_offline(phba->pcidev)) {
                spin_lock_irq(&phba->hbalock);
                phba->hba_flag &= ~DEFER_ERATT;
                spin_unlock_irq(&phba->hbalock);
                return;
        }

        lpfc_printf_log(phba, KERN_ERR, LOG_INIT,
                "0479 Deferred Adapter Hardware Error "
                "Data: x%x x%x x%x\n",
                phba->work_hs,
                phba->work_status[0], phba->work_status[1]);

        spin_lock_irq(&phba->hbalock);
        psli->sli_flag &= ~LPFC_SLI_ACTIVE;
        spin_unlock_irq(&phba->hbalock);


        /*
         * Firmware stops when it triggred erratt. That could cause the I/Os
         * dropped by the firmware. Error iocb (I/O) on txcmplq and let the
         * SCSI layer retry it after re-establishing link.
         */
        pring = &psli->ring[psli->fcp_ring];
        lpfc_sli_abort_iocb_ring(phba, pring);

        /*
         * There was a firmware error. Take the hba offline and then
         * attempt to restart it.
         */
        lpfc_offline_prep(phba);
        lpfc_offline(phba);

        /* Wait for the ER1 bit to clear.*/
        while (phba->work_hs & HS_FFER1) {
                msleep(100);
                phba->work_hs = readl(phba->HSregaddr);
                /* If driver is unloading let the worker thread continue */
                if (phba->pport->load_flag & FC_UNLOADING) {
                        phba->work_hs = 0;
                        break;
                }
        }

        /*
         * This is to ptrotect against a race condition in which
         * first write to the host attention register clear the
         * host status register.
         */
        if ((!phba->work_hs) && (!(phba->pport->load_flag & FC_UNLOADING)))
                phba->work_hs = old_host_status & ~HS_FFER1;

        spin_lock_irq(&phba->hbalock);
        phba->hba_flag &= ~DEFER_ERATT;
        spin_unlock_irq(&phba->hbalock);
        phba->work_status[0] = readl(phba->MBslimaddr + 0xa8);
        phba->work_status[1] = readl(phba->MBslimaddr + 0xac);
}

static void
lpfc_board_errevt_to_mgmt(struct lpfc_hba *phba)
{
        struct lpfc_board_event_header board_event;
        struct Scsi_Host *shost;

        board_event.event_type = FC_REG_BOARD_EVENT;
        board_event.subcategory = LPFC_EVENT_PORTINTERR;
        shost = lpfc_shost_from_vport(phba->pport);
        fc_host_post_vendor_event(shost, fc_get_event_number(),
                                  sizeof(board_event),
                                  (char *) &board_event,
                                  LPFC_NL_VENDOR_ID);
}

/**
 * lpfc_handle_eratt_s3 - The SLI3 HBA hardware error handler
 * @phba: pointer to lpfc hba data structure.
 *
 * This routine is invoked to handle the following HBA hardware error
 * conditions:
 * 1 - HBA error attention interrupt
 * 2 - DMA ring index out of range
 * 3 - Mailbox command came back as unknown
 **/
static void
lpfc_handle_eratt_s3(struct lpfc_hba *phba)
{
        struct lpfc_vport *vport = phba->pport;
        struct lpfc_sli   *psli = &phba->sli;
        struct lpfc_sli_ring  *pring;
        uint32_t event_data;
        unsigned long temperature;
        struct temp_event temp_event_data;
        struct Scsi_Host  *shost;

        /* If the pci channel is offline, ignore possible errors,
         * since we cannot communicate with the pci card anyway.
         */
        if (pci_channel_offline(phba->pcidev)) {
                spin_lock_irq(&phba->hbalock);
                phba->hba_flag &= ~DEFER_ERATT;
                spin_unlock_irq(&phba->hbalock);
                return;
        }

        /* If resets are disabled then leave the HBA alone and return */
        if (!phba->cfg_enable_hba_reset)
                return;

        /* Send an internal error event to mgmt application */
        lpfc_board_errevt_to_mgmt(phba);

        if (phba->hba_flag & DEFER_ERATT)
                lpfc_handle_deferred_eratt(phba);

        if (phba->work_hs & HS_FFER6) {
                /* Re-establishing Link */
                lpfc_printf_log(phba, KERN_INFO, LOG_LINK_EVENT,
                                "1301 Re-establishing Link "
                                "Data: x%x x%x x%x\n",
                                phba->work_hs,
                                phba->work_status[0], phba->work_status[1]);

                spin_lock_irq(&phba->hbalock);
                psli->sli_flag &= ~LPFC_SLI_ACTIVE;
                spin_unlock_irq(&phba->hbalock);

                /*
                * Firmware stops when it triggled erratt with HS_FFER6.
                * That could cause the I/Os dropped by the firmware.
                * Error iocb (I/O) on txcmplq and let the SCSI layer
                * retry it after re-establishing link.
                */
                pring = &psli->ring[psli->fcp_ring];
                lpfc_sli_abort_iocb_ring(phba, pring);

                /*
                 * There was a firmware error.  Take the hba offline and then
                 * attempt to restart it.
                 */
                lpfc_offline_prep(phba);
                lpfc_offline(phba);
                lpfc_sli_brdrestart(phba);
                if (lpfc_online(phba) == 0) {   /* Initialize the HBA */
                        lpfc_unblock_mgmt_io(phba);
                        return;
                }
                lpfc_unblock_mgmt_io(phba);
        } else if (phba->work_hs & HS_CRIT_TEMP) {
                temperature = readl(phba->MBslimaddr + TEMPERATURE_OFFSET);
                temp_event_data.event_type = FC_REG_TEMPERATURE_EVENT;
                temp_event_data.event_code = LPFC_CRIT_TEMP;
                temp_event_data.data = (uint32_t)temperature;

                lpfc_printf_log(phba, KERN_ERR, LOG_INIT,
                                "0406 Adapter maximum temperature exceeded "
                                "(%ld), taking this port offline "
                                "Data: x%x x%x x%x\n",
                                temperature, phba->work_hs,
                                phba->work_status[0], phba->work_status[1]);

                shost = lpfc_shost_from_vport(phba->pport);
                fc_host_post_vendor_event(shost, fc_get_event_number(),
                                          sizeof(temp_event_data),
                                          (char *) &temp_event_data,
                                          SCSI_NL_VID_TYPE_PCI
                                          | PCI_VENDOR_ID_EMULEX);

                spin_lock_irq(&phba->hbalock);
                phba->over_temp_state = HBA_OVER_TEMP;
                spin_unlock_irq(&phba->hbalock);
                lpfc_offline_eratt(phba);

        } else {
                /* The if clause above forces this code path when the status
                 * failure is a value other than FFER6. Do not call the offline
                 * twice. This is the adapter hardware error path.
                 */
                lpfc_printf_log(phba, KERN_ERR, LOG_INIT,
                                "0457 Adapter Hardware Error "
                                "Data: x%x x%x x%x\n",
                                phba->work_hs,
                                phba->work_status[0], phba->work_status[1]);

                event_data = FC_REG_DUMP_EVENT;
                shost = lpfc_shost_from_vport(vport);
                fc_host_post_vendor_event(shost, fc_get_event_number(),
                                sizeof(event_data), (char *) &event_data,
                                SCSI_NL_VID_TYPE_PCI | PCI_VENDOR_ID_EMULEX);

                lpfc_offline_eratt(phba);
        }
        return;
}

/**
 * lpfc_handle_eratt_s4 - The SLI4 HBA hardware error handler
 * @phba: pointer to lpfc hba data structure.
 *
 * This routine is invoked to handle the SLI4 HBA hardware error attention
 * conditions.
 **/
static void
lpfc_handle_eratt_s4(struct lpfc_hba *phba)
{
        struct lpfc_vport *vport = phba->pport;
        uint32_t event_data;
        struct Scsi_Host *shost;

        /* If the pci channel is offline, ignore possible errors, since
         * we cannot communicate with the pci card anyway.
         */
        if (pci_channel_offline(phba->pcidev))
                return;
        /* If resets are disabled then leave the HBA alone and return */
        if (!phba->cfg_enable_hba_reset)
                return;

        /* Send an internal error event to mgmt application */
        lpfc_board_errevt_to_mgmt(phba);

        /* For now, the actual action for SLI4 device handling is not
         * specified yet, just treated it as adaptor hardware failure
         */
        lpfc_printf_log(phba, KERN_ERR, LOG_INIT,
                        "0143 SLI4 Adapter Hardware Error Data: x%x x%x\n",
                        phba->work_status[0], phba->work_status[1]);

        event_data = FC_REG_DUMP_EVENT;
        shost = lpfc_shost_from_vport(vport);
        fc_host_post_vendor_event(shost, fc_get_event_number(),
                                  sizeof(event_data), (char *) &event_data,
                                  SCSI_NL_VID_TYPE_PCI | PCI_VENDOR_ID_EMULEX);

        lpfc_sli4_offline_eratt(phba);
}

/**
 * lpfc_handle_eratt - Wrapper func for handling hba error attention
 * @phba: pointer to lpfc HBA data structure.
 *
 * This routine wraps the actual SLI3 or SLI4 hba error attention handling
 * routine from the API jump table function pointer from the lpfc_hba struct.
 *
 * Return codes
 *   0 - sucess.
 *   Any other value - error.
 **/
void
lpfc_handle_eratt(struct lpfc_hba *phba)
{
        (*phba->lpfc_handle_eratt)(phba);
}

/**
 * lpfc_handle_latt - The HBA link event handler
 * @phba: pointer to lpfc hba data structure.
 *
 * This routine is invoked from the worker thread to handle a HBA host
 * attention link event.
 **/
void
lpfc_handle_latt(struct lpfc_hba *phba)
{
        struct lpfc_vport *vport = phba->pport;
        struct lpfc_sli   *psli = &phba->sli;
        LPFC_MBOXQ_t *pmb;
        volatile uint32_t control;
        struct lpfc_dmabuf *mp;
        int rc = 0;

        pmb = (LPFC_MBOXQ_t *)mempool_alloc(phba->mbox_mem_pool, GFP_KERNEL);
        if (!pmb) {
                rc = 1;
                goto lpfc_handle_latt_err_exit;
        }

        mp = kmalloc(sizeof(struct lpfc_dmabuf), GFP_KERNEL);
        if (!mp) {
                rc = 2;
                goto lpfc_handle_latt_free_pmb;
        }

        mp->virt = lpfc_mbuf_alloc(phba, 0, &mp->phys);
        if (!mp->virt) {
                rc = 3;
                goto lpfc_handle_latt_free_mp;
        }

        /* Cleanup any outstanding ELS commands */
        lpfc_els_flush_all_cmd(phba);

        psli->slistat.link_event++;
        lpfc_read_la(phba, pmb, mp);
        pmb->mbox_cmpl = lpfc_mbx_cmpl_read_la;
        pmb->vport = vport;
        /* Block ELS IOCBs until we have processed this mbox command */
        phba->sli.ring[LPFC_ELS_RING].flag |= LPFC_STOP_IOCB_EVENT;
        rc = lpfc_sli_issue_mbox (phba, pmb, MBX_NOWAIT);
        if (rc == MBX_NOT_FINISHED) {
                rc = 4;
                goto lpfc_handle_latt_free_mbuf;
        }

        /* Clear Link Attention in HA REG */
        spin_lock_irq(&phba->hbalock);
        writel(HA_LATT, phba->HAregaddr);
        readl(phba->HAregaddr); /* flush */
        spin_unlock_irq(&phba->hbalock);

        return;

lpfc_handle_latt_free_mbuf:
        phba->sli.ring[LPFC_ELS_RING].flag &= ~LPFC_STOP_IOCB_EVENT;
        lpfc_mbuf_free(phba, mp->virt, mp->phys);
lpfc_handle_latt_free_mp:
        kfree(mp);
lpfc_handle_latt_free_pmb:
        mempool_free(pmb, phba->mbox_mem_pool);
lpfc_handle_latt_err_exit:
        /* Enable Link attention interrupts */
        spin_lock_irq(&phba->hbalock);
        psli->sli_flag |= LPFC_PROCESS_LA;
        control = readl(phba->HCregaddr);
        control |= HC_LAINT_ENA;
        writel(control, phba->HCregaddr);
        readl(phba->HCregaddr); /* flush */

        /* Clear Link Attention in HA REG */
        writel(HA_LATT, phba->HAregaddr);
        readl(phba->HAregaddr); /* flush */
        spin_unlock_irq(&phba->hbalock);
        lpfc_linkdown(phba);
        phba->link_state = LPFC_HBA_ERROR;

        lpfc_printf_log(phba, KERN_ERR, LOG_MBOX,
                     "0300 LATT: Cannot issue READ_LA: Data:%d\n", rc);

        return;
}

/**
 * lpfc_parse_vpd - Parse VPD (Vital Product Data)
 * @phba: pointer to lpfc hba data structure.
 * @vpd: pointer to the vital product data.
 * @len: length of the vital product data in bytes.
 *
 * This routine parses the Vital Product Data (VPD). The VPD is treated as
 * an array of characters. In this routine, the ModelName, ProgramType, and
 * ModelDesc, etc. fields of the phba data structure will be populated.
 *
 * Return codes
 *   0 - pointer to the VPD passed in is NULL
 *   1 - success
 **/
int
lpfc_parse_vpd(struct lpfc_hba *phba, uint8_t *vpd, int len)
{
        uint8_t lenlo, lenhi;
        int Length;
        int i, j;
        int finished = 0;
        int index = 0;

        if (!vpd)
                return 0;

        /* Vital Product */
        lpfc_printf_log(phba, KERN_INFO, LOG_INIT,
                        "0455 Vital Product Data: x%x x%x x%x x%x\n",
                        (uint32_t) vpd[0], (uint32_t) vpd[1], (uint32_t) vpd[2],
                        (uint32_t) vpd[3]);
        while (!finished && (index < (len - 4))) {
                switch (vpd[index]) {
                case 0x82:
                case 0x91:
                        index += 1;
                        lenlo = vpd[index];
                        index += 1;
                        lenhi = vpd[index];
                        index += 1;
                        i = ((((unsigned short)lenhi) << 8) + lenlo);
                        index += i;
                        break;
                case 0x90:
                        index += 1;
                        lenlo = vpd[index];
                        index += 1;
                        lenhi = vpd[index];
                        index += 1;
                        Length = ((((unsigned short)lenhi) << 8) + lenlo);
                        if (Length > len - index)
                                Length = len - index;
                        while (Length > 0) {
                        /* Look for Serial Number */
                        if ((vpd[index] == 'S') && (vpd[index+1] == 'N')) {
                                index += 2;
                                i = vpd[index];
                                index += 1;
                                j = 0;
                                Length -= (3+i);
                                while(i--) {
                                        phba->SerialNumber[j++] = vpd[index++];
                                        if (j == 31)
                                                break;
                                }
                                phba->SerialNumber[j] = 0;
                                continue;
                        }
                        else if ((vpd[index] == 'V') && (vpd[index+1] == '1')) {
                                phba->vpd_flag |= VPD_MODEL_DESC;
                                index += 2;
                                i = vpd[index];
                                index += 1;
                                j = 0;
                                Length -= (3+i);
                                while(i--) {
                                        phba->ModelDesc[j++] = vpd[index++];
                                        if (j == 255)
                                                break;
                                }
                                phba->ModelDesc[j] = 0;
                                continue;
                        }
                        else if ((vpd[index] == 'V') && (vpd[index+1] == '2')) {
                                phba->vpd_flag |= VPD_MODEL_NAME;
                                index += 2;
                                i = vpd[index];
                                index += 1;
                                j = 0;
                                Length -= (3+i);
                                while(i--) {
                                        phba->ModelName[j++] = vpd[index++];
                                        if (j == 79)
                                                break;
                                }
                                phba->ModelName[j] = 0;
                                continue;
                        }
                        else if ((vpd[index] == 'V') && (vpd[index+1] == '3')) {
                                phba->vpd_flag |= VPD_PROGRAM_TYPE;
                                index += 2;
                                i = vpd[index];
                                index += 1;
                                j = 0;
                                Length -= (3+i);
                                while(i--) {
                                        phba->ProgramType[j++] = vpd[index++];
                                        if (j == 255)
                                                break;
                                }
                                phba->ProgramType[j] = 0;
                                continue;
                        }
                        else if ((vpd[index] == 'V') && (vpd[index+1] == '4')) {
                                phba->vpd_flag |= VPD_PORT;
                                index += 2;
                                i = vpd[index];
                                index += 1;
                                j = 0;
                                Length -= (3+i);
                                while(i--) {
                                phba->Port[j++] = vpd[index++];
                                if (j == 19)
                                        break;
                                }
                                phba->Port[j] = 0;
                                continue;
                        }
                        else {
                                index += 2;
                                i = vpd[index];
                                index += 1;
                                index += i;
                                Length -= (3 + i);
                        }
                }
                finished = 0;
                break;
                case 0x78:
                        finished = 1;
                        break;
                default:
                        index ++;
                        break;
                }
        }

        return(1);
}

/**
 * lpfc_get_hba_model_desc - Retrieve HBA device model name and description
 * @phba: pointer to lpfc hba data structure.
 * @mdp: pointer to the data structure to hold the derived model name.
 * @descp: pointer to the data structure to hold the derived description.
 *
 * This routine retrieves HBA's description based on its registered PCI device
 * ID. The @descp passed into this function points to an array of 256 chars. It
 * shall be returned with the model name, maximum speed, and the host bus type.
 * The @mdp passed into this function points to an array of 80 chars. When the
 * function returns, the @mdp will be filled with the model name.
 **/
static void
lpfc_get_hba_model_desc(struct lpfc_hba *phba, uint8_t *mdp, uint8_t *descp)
{
        lpfc_vpd_t *vp;
        uint16_t dev_id = phba->pcidev->device;
        int max_speed;
        int GE = 0;
        int oneConnect = 0; /* default is not a oneConnect */
        struct {
                char * name;
                int    max_speed;
                char * bus;
        } m = {"<Unknown>", 0, ""};

        if (mdp && mdp[0] != '\0'
                && descp && descp[0] != '\0')
                return;

        if (phba->lmt & LMT_10Gb)
                max_speed = 10;
        else if (phba->lmt & LMT_8Gb)
                max_speed = 8;
        else if (phba->lmt & LMT_4Gb)
                max_speed = 4;
        else if (phba->lmt & LMT_2Gb)
                max_speed = 2;
        else
                max_speed = 1;

        vp = &phba->vpd;

        switch (dev_id) {
        case PCI_DEVICE_ID_FIREFLY:
                m = (typeof(m)){"LP6000", max_speed, "PCI"};
                break;
        case PCI_DEVICE_ID_SUPERFLY:
                if (vp->rev.biuRev >= 1 && vp->rev.biuRev <= 3)
                        m = (typeof(m)){"LP7000", max_speed,  "PCI"};
                else
                        m = (typeof(m)){"LP7000E", max_speed, "PCI"};
                break;
        case PCI_DEVICE_ID_DRAGONFLY:
                m = (typeof(m)){"LP8000", max_speed, "PCI"};
                break;
        case PCI_DEVICE_ID_CENTAUR:
                if (FC_JEDEC_ID(vp->rev.biuRev) == CENTAUR_2G_JEDEC_ID)
                        m = (typeof(m)){"LP9002", max_speed, "PCI"};
                else
                        m = (typeof(m)){"LP9000", max_speed, "PCI"};
                break;
        case PCI_DEVICE_ID_RFLY:
                m = (typeof(m)){"LP952", max_speed, "PCI"};
                break;
        case PCI_DEVICE_ID_PEGASUS:
                m = (typeof(m)){"LP9802", max_speed, "PCI-X"};
                break;
        case PCI_DEVICE_ID_THOR:
                m = (typeof(m)){"LP10000", max_speed, "PCI-X"};
                break;
        case PCI_DEVICE_ID_VIPER:
                m = (typeof(m)){"LPX1000", max_speed,  "PCI-X"};
                break;
        case PCI_DEVICE_ID_PFLY:
                m = (typeof(m)){"LP982", max_speed, "PCI-X"};
                break;
        case PCI_DEVICE_ID_TFLY:
                m = (typeof(m)){"LP1050", max_speed, "PCI-X"};
                break;
        case PCI_DEVICE_ID_HELIOS:
                m = (typeof(m)){"LP11000", max_speed, "PCI-X2"};
                break;
        case PCI_DEVICE_ID_HELIOS_SCSP:
                m = (typeof(m)){"LP11000-SP", max_speed, "PCI-X2"};
                break;
        case PCI_DEVICE_ID_HELIOS_DCSP:
                m = (typeof(m)){"LP11002-SP", max_speed, "PCI-X2"};
                break;
        case PCI_DEVICE_ID_NEPTUNE:
                m = (typeof(m)){"LPe1000", max_speed, "PCIe"};
                break;
        case PCI_DEVICE_ID_NEPTUNE_SCSP:
                m = (typeof(m)){"LPe1000-SP", max_speed, "PCIe"};
                break;
        case PCI_DEVICE_ID_NEPTUNE_DCSP:
                m = (typeof(m)){"LPe1002-SP", max_speed, "PCIe"};
                break;
        case PCI_DEVICE_ID_BMID:
                m = (typeof(m)){"LP1150", max_speed, "PCI-X2"};
                break;
        case PCI_DEVICE_ID_BSMB:
                m = (typeof(m)){"LP111", max_speed, "PCI-X2"};
                break;
        case PCI_DEVICE_ID_ZEPHYR:
                m = (typeof(m)){"LPe11000", max_speed, "PCIe"};
                break;
        case PCI_DEVICE_ID_ZEPHYR_SCSP:
                m = (typeof(m)){"LPe11000", max_speed, "PCIe"};
                break;
        case PCI_DEVICE_ID_ZEPHYR_DCSP:
                m = (typeof(m)){"LP2105", max_speed, "PCIe"};
                GE = 1;
                break;
        case PCI_DEVICE_ID_ZMID:
                m = (typeof(m)){"LPe1150", max_speed, "PCIe"};
                break;
        case PCI_DEVICE_ID_ZSMB:
                m = (typeof(m)){"LPe111", max_speed, "PCIe"};
                break;
        case PCI_DEVICE_ID_LP101:
                m = (typeof(m)){"LP101", max_speed, "PCI-X"};
                break;
        case PCI_DEVICE_ID_LP10000S:
                m = (typeof(m)){"LP10000-S", max_speed, "PCI"};
                break;
        case PCI_DEVICE_ID_LP11000S:
                m = (typeof(m)){"LP11000-S", max_speed,
                        "PCI-X2"};
                break;
        case PCI_DEVICE_ID_LPE11000S:
                m = (typeof(m)){"LPe11000-S", max_speed,
                        "PCIe"};
                break;
        case PCI_DEVICE_ID_SAT:
                m = (typeof(m)){"LPe12000", max_speed, "PCIe"};
                break;
        case PCI_DEVICE_ID_SAT_MID:
                m = (typeof(m)){"LPe1250", max_speed, "PCIe"};
                break;
        case PCI_DEVICE_ID_SAT_SMB:
                m = (typeof(m)){"LPe121", max_speed, "PCIe"};
                break;
        case PCI_DEVICE_ID_SAT_DCSP:
                m = (typeof(m)){"LPe12002-SP", max_speed, "PCIe"};
                break;
        case PCI_DEVICE_ID_SAT_SCSP:
                m = (typeof(m)){"LPe12000-SP", max_speed, "PCIe"};
                break;
        case PCI_DEVICE_ID_SAT_S:
                m = (typeof(m)){"LPe12000-S", max_speed, "PCIe"};
                break;
        case PCI_DEVICE_ID_HORNET:
                m = (typeof(m)){"LP21000", max_speed, "PCIe"};
                GE = 1;
                break;
        case PCI_DEVICE_ID_PROTEUS_VF:
                m = (typeof(m)) {"LPev12000", max_speed, "PCIe IOV"};
                break;
        case PCI_DEVICE_ID_PROTEUS_PF:
                m = (typeof(m)) {"LPev12000", max_speed, "PCIe IOV"};
                break;
        case PCI_DEVICE_ID_PROTEUS_S:
                m = (typeof(m)) {"LPemv12002-S", max_speed, "PCIe IOV"};
                break;
        case PCI_DEVICE_ID_TIGERSHARK:
                oneConnect = 1;
                m = (typeof(m)) {"OCe10100-F", max_speed, "PCIe"};
                break;
        default:
                m = (typeof(m)){ NULL };
                break;
        }

        if (mdp && mdp[0] == '\0')
                snprintf(mdp, 79,"%s", m.name);
        /* oneConnect hba requires special processing, they are all initiators
         * and we put the port number on the end
         */
        if (descp && descp[0] == '\0') {
                if (oneConnect)
                        snprintf(descp, 255,
                                "Emulex OneConnect %s, FCoE Initiator, Port %s",
                                m.name,
                                phba->Port);
                else
                        snprintf(descp, 255,
                                "Emulex %s %d%s %s %s",
                                m.name, m.max_speed,
                                (GE) ? "GE" : "Gb",
                                m.bus,
                                (GE) ? "FCoE Adapter" :
                                        "Fibre Channel Adapter");
        }
}

/**
 * lpfc_post_buffer - Post IOCB(s) with DMA buffer descriptor(s) to a IOCB ring
 * @phba: pointer to lpfc hba data structure.
 * @pring: pointer to a IOCB ring.
 * @cnt: the number of IOCBs to be posted to the IOCB ring.
 *
 * This routine posts a given number of IOCBs with the associated DMA buffer
 * descriptors specified by the cnt argument to the given IOCB ring.
 *
 * Return codes
 *   The number of IOCBs NOT able to be posted to the IOCB ring.
 **/
int
lpfc_post_buffer(struct lpfc_hba *phba, struct lpfc_sli_ring *pring, int cnt)
{
        IOCB_t *icmd;
        struct lpfc_iocbq *iocb;
        struct lpfc_dmabuf *mp1, *mp2;

        cnt += pring->missbufcnt;

        /* While there are buffers to post */
        while (cnt > 0) {
                /* Allocate buffer for  command iocb */
                iocb = lpfc_sli_get_iocbq(phba);
                if (iocb == NULL) {
                        pring->missbufcnt = cnt;
                        return cnt;
                }
                icmd = &iocb->iocb;

                /* 2 buffers can be posted per command */
                /* Allocate buffer to post */
                mp1 = kmalloc(sizeof (struct lpfc_dmabuf), GFP_KERNEL);
                if (mp1)
                    mp1->virt = lpfc_mbuf_alloc(phba, MEM_PRI, &mp1->phys);
                if (!mp1 || !mp1->virt) {
                        kfree(mp1);
                        lpfc_sli_release_iocbq(phba, iocb);
                        pring->missbufcnt = cnt;
                        return cnt;
                }

                INIT_LIST_HEAD(&mp1->list);
                /* Allocate buffer to post */
                if (cnt > 1) {
                        mp2 = kmalloc(sizeof (struct lpfc_dmabuf), GFP_KERNEL);
                        if (mp2)
                                mp2->virt = lpfc_mbuf_alloc(phba, MEM_PRI,
                                                            &mp2->phys);
                        if (!mp2 || !mp2->virt) {
                                kfree(mp2);
                                lpfc_mbuf_free(phba, mp1->virt, mp1->phys);
                                kfree(mp1);
                                lpfc_sli_release_iocbq(phba, iocb);
                                pring->missbufcnt = cnt;
                                return cnt;
                        }

                        INIT_LIST_HEAD(&mp2->list);
                } else {
                        mp2 = NULL;
                }

                icmd->un.cont64[0].addrHigh = putPaddrHigh(mp1->phys);
                icmd->un.cont64[0].addrLow = putPaddrLow(mp1->phys);
                icmd->un.cont64[0].tus.f.bdeSize = FCELSSIZE;
                icmd->ulpBdeCount = 1;
                cnt--;
                if (mp2) {
                        icmd->un.cont64[1].addrHigh = putPaddrHigh(mp2->phys);
                        icmd->un.cont64[1].addrLow = putPaddrLow(mp2->phys);
                        icmd->un.cont64[1].tus.f.bdeSize = FCELSSIZE;
                        cnt--;
                        icmd->ulpBdeCount = 2;
                }

                icmd->ulpCommand = CMD_QUE_RING_BUF64_CN;
                icmd->ulpLe = 1;

                if (lpfc_sli_issue_iocb(phba, pring->ringno, iocb, 0) ==
                    IOCB_ERROR) {
                        lpfc_mbuf_free(phba, mp1->virt, mp1->phys);
                        kfree(mp1);
                        cnt++;
                        if (mp2) {
                                lpfc_mbuf_free(phba, mp2->virt, mp2->phys);
                                kfree(mp2);
                                cnt++;
                        }
                        lpfc_sli_release_iocbq(phba, iocb);
                        pring->missbufcnt = cnt;
                        return cnt;
                }
                lpfc_sli_ringpostbuf_put(phba, pring, mp1);
                if (mp2)
                        lpfc_sli_ringpostbuf_put(phba, pring, mp2);
        }
        pring->missbufcnt = 0;
        return 0;
}

/**
 * lpfc_post_rcv_buf - Post the initial receive IOCB buffers to ELS ring
 * @phba: pointer to lpfc hba data structure.
 *
 * This routine posts initial receive IOCB buffers to the ELS ring. The
 * current number of initial IOCB buffers specified by LPFC_BUF_RING0 is
 * set to 64 IOCBs.
 *
 * Return codes
 *   0 - success (currently always success)
 **/
static int
lpfc_post_rcv_buf(struct lpfc_hba *phba)
{
        struct lpfc_sli *psli = &phba->sli;

        /* Ring 0, ELS / CT buffers */
        lpfc_post_buffer(phba, &psli->ring[LPFC_ELS_RING], LPFC_BUF_RING0);
        /* Ring 2 - FCP no buffers needed */

        return 0;
}

#define S(N,V) (((V)<<(N))|((V)>>(32-(N))))

/**
 * lpfc_sha_init - Set up initial array of hash table entries
 * @HashResultPointer: pointer to an array as hash table.
 *
 * This routine sets up the initial values to the array of hash table entries
 * for the LC HBAs.
 **/
static void
lpfc_sha_init(uint32_t * HashResultPointer)
{
        HashResultPointer[0] = 0x67452301;
        HashResultPointer[1] = 0xEFCDAB89;
        HashResultPointer[2] = 0x98BADCFE;
        HashResultPointer[3] = 0x10325476;
        HashResultPointer[4] = 0xC3D2E1F0;
}

/**
 * lpfc_sha_iterate - Iterate initial hash table with the working hash table
 * @HashResultPointer: pointer to an initial/result hash table.
 * @HashWorkingPointer: pointer to an working hash table.
 *
 * This routine iterates an initial hash table pointed by @HashResultPointer
 * with the values from the working hash table pointeed by @HashWorkingPointer.
 * The results are putting back to the initial hash table, returned through
 * the @HashResultPointer as the result hash table.
 **/
static void
lpfc_sha_iterate(uint32_t * HashResultPointer, uint32_t * HashWorkingPointer)
{
        int t;
        uint32_t TEMP;
        uint32_t A, B, C, D, E;
        t = 16;
        do {
                HashWorkingPointer[t] =
                    S(1,
                      HashWorkingPointer[t - 3] ^ HashWorkingPointer[t -
                                                                     8] ^
                      HashWorkingPointer[t - 14] ^ HashWorkingPointer[t - 16]);
        } while (++t <= 79);
        t = 0;
        A = HashResultPointer[0];
        B = HashResultPointer[1];
        C = HashResultPointer[2];
        D = HashResultPointer[3];
        E = HashResultPointer[4];

        do {
                if (t < 20) {
                        TEMP = ((B & C) | ((~B) & D)) + 0x5A827999;
                } else if (t < 40) {
                        TEMP = (B ^ C ^ D) + 0x6ED9EBA1;
                } else if (t < 60) {
                        TEMP = ((B & C) | (B & D) | (C & D)) + 0x8F1BBCDC;
                } else {
                        TEMP = (B ^ C ^ D) + 0xCA62C1D6;
                }
                TEMP += S(5, A) + E + HashWorkingPointer[t];
                E = D;
                D = C;
                C = S(30, B);
                B = A;
                A = TEMP;
        } while (++t <= 79);

        HashResultPointer[0] += A;
        HashResultPointer[1] += B;
        HashResultPointer[2] += C;
        HashResultPointer[3] += D;
        HashResultPointer[4] += E;

}

/**
 * lpfc_challenge_key - Create challenge key based on WWPN of the HBA
 * @RandomChallenge: pointer to the entry of host challenge random number array.
 * @HashWorking: pointer to the entry of the working hash array.
 *
 * This routine calculates the working hash array referred by @HashWorking
 * from the challenge random numbers associated with the host, referred by
 * @RandomChallenge. The result is put into the entry of the working hash
 * array and returned by reference through @HashWorking.
 **/
static void
lpfc_challenge_key(uint32_t * RandomChallenge, uint32_t * HashWorking)
{
        *HashWorking = (*RandomChallenge ^ *HashWorking);
}

/**
 * lpfc_hba_init - Perform special handling for LC HBA initialization
 * @phba: pointer to lpfc hba data structure.
 * @hbainit: pointer to an array of unsigned 32-bit integers.
 *
 * This routine performs the special handling for LC HBA initialization.
 **/
void
lpfc_hba_init(struct lpfc_hba *phba, uint32_t *hbainit)
{
        int t;
        uint32_t *HashWorking;
        uint32_t *pwwnn = (uint32_t *) phba->wwnn;

        HashWorking = kcalloc(80, sizeof(uint32_t), GFP_KERNEL);
        if (!HashWorking)
                return;

        HashWorking[0] = HashWorking[78] = *pwwnn++;
        HashWorking[1] = HashWorking[79] = *pwwnn;

        for (t = 0; t < 7; t++)
                lpfc_challenge_key(phba->RandomData + t, HashWorking + t);

        lpfc_sha_init(hbainit);
        lpfc_sha_iterate(hbainit, HashWorking);
        kfree(HashWorking);
}

/**
 * lpfc_cleanup - Performs vport cleanups before deleting a vport
 * @vport: pointer to a virtual N_Port data structure.
 *
 * This routine performs the necessary cleanups before deleting the @vport.
 * It invokes the discovery state machine to perform necessary state
 * transitions and to release the ndlps associated with the @vport. Note,
 * the physical port is treated as @vport 0.
 **/
void
lpfc_cleanup(struct lpfc_vport *vport)
{
        struct lpfc_hba   *phba = vport->phba;
        struct lpfc_nodelist *ndlp, *next_ndlp;
        int i = 0;

        if (phba->link_state > LPFC_LINK_DOWN)
                lpfc_port_link_failure(vport);

        list_for_each_entry_safe(ndlp, next_ndlp, &vport->fc_nodes, nlp_listp) {
                if (!NLP_CHK_NODE_ACT(ndlp)) {
                        ndlp = lpfc_enable_node(vport, ndlp,
                                                NLP_STE_UNUSED_NODE);
                        if (!ndlp)
                                continue;
                        spin_lock_irq(&phba->ndlp_lock);
                        NLP_SET_FREE_REQ(ndlp);
                        spin_unlock_irq(&phba->ndlp_lock);
                        /* Trigger the release of the ndlp memory */
                        lpfc_nlp_put(ndlp);
                        continue;
                }
                spin_lock_irq(&phba->ndlp_lock);
                if (NLP_CHK_FREE_REQ(ndlp)) {
                        /* The ndlp should not be in memory free mode already */
                        spin_unlock_irq(&phba->ndlp_lock);
                        continue;
                } else
                        /* Indicate request for freeing ndlp memory */
                        NLP_SET_FREE_REQ(ndlp);
                spin_unlock_irq(&phba->ndlp_lock);

                if (vport->port_type != LPFC_PHYSICAL_PORT &&
                    ndlp->nlp_DID == Fabric_DID) {
                        /* Just free up ndlp with Fabric_DID for vports */
                        lpfc_nlp_put(ndlp);
                        continue;
                }

                if (ndlp->nlp_type & NLP_FABRIC)
                        lpfc_disc_state_machine(vport, ndlp, NULL,
                                        NLP_EVT_DEVICE_RECOVERY);

                lpfc_disc_state_machine(vport, ndlp, NULL,
                                             NLP_EVT_DEVICE_RM);

        }

        /* At this point, ALL ndlp's should be gone
         * because of the previous NLP_EVT_DEVICE_RM.
         * Lets wait for this to happen, if needed.
         */
        while (!list_empty(&vport->fc_nodes)) {
                if (i++ > 3000) {
                        lpfc_printf_vlog(vport, KERN_ERR, LOG_DISCOVERY,
                                "0233 Nodelist not empty\n");
                        list_for_each_entry_safe(ndlp, next_ndlp,
                                                &vport->fc_nodes, nlp_listp) {
                                lpfc_printf_vlog(ndlp->vport, KERN_ERR,
                                                LOG_NODE,
                                                "0282 did:x%x ndlp:x%p "
                                                "usgmap:x%x refcnt:%d\n",
                                                ndlp->nlp_DID, (void *)ndlp,
                                                ndlp->nlp_usg_map,
                                                atomic_read(
                                                        &ndlp->kref.refcount));
                        }
                        break;
                }

                /* Wait for any activity on ndlps to settle */
                msleep(10);
        }
}

/**
 * lpfc_stop_vport_timers - Stop all the timers associated with a vport
 * @vport: pointer to a virtual N_Port data structure.
 *
 * This routine stops all the timers associated with a @vport. This function
 * is invoked before disabling or deleting a @vport. Note that the physical
 * port is treated as @vport 0.
 **/
void
lpfc_stop_vport_timers(struct lpfc_vport *vport)
{
        del_timer_sync(&vport->els_tmofunc);
        del_timer_sync(&vport->fc_fdmitmo);
        lpfc_can_disctmo(vport);
        return;
}

/**
 * lpfc_stop_hba_timers - Stop all the timers associated with an HBA
 * @phba: pointer to lpfc hba data structure.
 *
 * This routine stops all the timers associated with a HBA. This function is
 * invoked before either putting a HBA offline or unloading the driver.
 **/
void
lpfc_stop_hba_timers(struct lpfc_hba *phba)
{
        lpfc_stop_vport_timers(phba->pport);
        del_timer_sync(&phba->sli.mbox_tmo);
        del_timer_sync(&phba->fabric_block_timer);
        del_timer_sync(&phba->eratt_poll);
        del_timer_sync(&phba->hb_tmofunc);
        phba->hb_outstanding = 0;

        switch (phba->pci_dev_grp) {
        case LPFC_PCI_DEV_LP:
                /* Stop any LightPulse device specific driver timers */
                del_timer_sync(&phba->fcp_poll_timer);
                break;
        case LPFC_PCI_DEV_OC:
                /* Stop any OneConnect device sepcific driver timers */
                break;
        default:
                lpfc_printf_log(phba, KERN_ERR, LOG_INIT,
                                "0297 Invalid device group (x%x)\n",
                                phba->pci_dev_grp);
                break;
        }
        return;
}

/**
 * lpfc_block_mgmt_io - Mark a HBA's management interface as blocked
 * @phba: pointer to lpfc hba data structure.
 *
 * This routine marks a HBA's management interface as blocked. Once the HBA's
 * management interface is marked as blocked, all the user space access to
 * the HBA, whether they are from sysfs interface or libdfc interface will
 * all be blocked. The HBA is set to block the management interface when the
 * driver prepares the HBA interface for online or offline.
 **/
static void
lpfc_block_mgmt_io(struct lpfc_hba * phba)
{
        unsigned long iflag;

        spin_lock_irqsave(&phba->hbalock, iflag);
        phba->sli.sli_flag |= LPFC_BLOCK_MGMT_IO;
        spin_unlock_irqrestore(&phba->hbalock, iflag);
}

/**
 * lpfc_online - Initialize and bring a HBA online
 * @phba: pointer to lpfc hba data structure.
 *
 * This routine initializes the HBA and brings a HBA online. During this
 * process, the management interface is blocked to prevent user space access
 * to the HBA interfering with the driver initialization.
 *
 * Return codes
 *   0 - successful
 *   1 - failed
 **/
int
lpfc_online(struct lpfc_hba *phba)
{
        struct lpfc_vport *vport;
        struct lpfc_vport **vports;
        int i;

        if (!phba)
                return 0;
        vport = phba->pport;

        if (!(vport->fc_flag & FC_OFFLINE_MODE))
                return 0;

        lpfc_printf_log(phba, KERN_WARNING, LOG_INIT,
                        "0458 Bring Adapter online\n");

        lpfc_block_mgmt_io(phba);

        if (!lpfc_sli_queue_setup(phba)) {
                lpfc_unblock_mgmt_io(phba);
                return 1;
        }

        if (phba->sli_rev == LPFC_SLI_REV4) {
                if (lpfc_sli4_hba_setup(phba)) { /* Initialize SLI4 HBA */
                        lpfc_unblock_mgmt_io(phba);
                        return 1;
                }
        } else {
                if (lpfc_sli_hba_setup(phba)) { /* Initialize SLI2/SLI3 HBA */
                        lpfc_unblock_mgmt_io(phba);
                        return 1;
                }
        }

        vports = lpfc_create_vport_work_array(phba);
        if (vports != NULL)
                for (i = 0; i <= phba->max_vports && vports[i] != NULL; i++) {
                        struct Scsi_Host *shost;
                        shost = lpfc_shost_from_vport(vports[i]);
                        spin_lock_irq(shost->host_lock);
                        vports[i]->fc_flag &= ~FC_OFFLINE_MODE;
                        if (phba->sli3_options & LPFC_SLI3_NPIV_ENABLED)
                                vports[i]->fc_flag |= FC_VPORT_NEEDS_REG_VPI;
                        if (phba->sli_rev == LPFC_SLI_REV4)
                                vports[i]->fc_flag |= FC_VPORT_NEEDS_INIT_VPI;
                        spin_unlock_irq(shost->host_lock);
                }
                lpfc_destroy_vport_work_array(phba, vports);

        lpfc_unblock_mgmt_io(phba);
        return 0;
}

/**
 * lpfc_unblock_mgmt_io - Mark a HBA's management interface to be not blocked
 * @phba: pointer to lpfc hba data structure.
 *
 * This routine marks a HBA's management interface as not blocked. Once the
 * HBA's management interface is marked as not blocked, all the user space
 * access to the HBA, whether they are from sysfs interface or libdfc
 * interface will be allowed. The HBA is set to block the management interface
 * when the driver prepares the HBA interface for online or offline and then
 * set to unblock the management interface afterwards.
 **/
void
lpfc_unblock_mgmt_io(struct lpfc_hba * phba)
{
        unsigned long iflag;

        spin_lock_irqsave(&phba->hbalock, iflag);
        phba->sli.sli_flag &= ~LPFC_BLOCK_MGMT_IO;
        spin_unlock_irqrestore(&phba->hbalock, iflag);
}

/**
 * lpfc_offline_prep - Prepare a HBA to be brought offline
 * @phba: pointer to lpfc hba data structure.
 *
 * This routine is invoked to prepare a HBA to be brought offline. It performs
 * unregistration login to all the nodes on all vports and flushes the mailbox
 * queue to make it ready to be brought offline.
 **/
void
lpfc_offline_prep(struct lpfc_hba * phba)
{
        struct lpfc_vport *vport = phba->pport;
        struct lpfc_nodelist  *ndlp, *next_ndlp;
        struct lpfc_vport **vports;
        int i;

        if (vport->fc_flag & FC_OFFLINE_MODE)
                return;

        lpfc_block_mgmt_io(phba);

        lpfc_linkdown(phba);

        /* Issue an unreg_login to all nodes on all vports */
        vports = lpfc_create_vport_work_array(phba);
        if (vports != NULL) {
                for (i = 0; i <= phba->max_vports && vports[i] != NULL; i++) {
                        struct Scsi_Host *shost;

                        if (vports[i]->load_flag & FC_UNLOADING)
                                continue;
                        vports[i]->vfi_state &= ~LPFC_VFI_REGISTERED;
                        shost = lpfc_shost_from_vport(vports[i]);
                        list_for_each_entry_safe(ndlp, next_ndlp,
                                                 &vports[i]->fc_nodes,
                                                 nlp_listp) {
                                if (!NLP_CHK_NODE_ACT(ndlp))
                                        continue;
                                if (ndlp->nlp_state == NLP_STE_UNUSED_NODE)
                                        continue;
                                if (ndlp->nlp_type & NLP_FABRIC) {
                                        lpfc_disc_state_machine(vports[i], ndlp,
                                                NULL, NLP_EVT_DEVICE_RECOVERY);
                                        lpfc_disc_state_machine(vports[i], ndlp,
                                                NULL, NLP_EVT_DEVICE_RM);
                                }
                                spin_lock_irq(shost->host_lock);
                                ndlp->nlp_flag &= ~NLP_NPR_ADISC;
                                spin_unlock_irq(shost->host_lock);
                                lpfc_unreg_rpi(vports[i], ndlp);
                        }
                }
        }
        lpfc_destroy_vport_work_array(phba, vports);

        lpfc_sli_mbox_sys_shutdown(phba);
}

/**
 * lpfc_offline - Bring a HBA offline
 * @phba: pointer to lpfc hba data structure.
 *
 * This routine actually brings a HBA offline. It stops all the timers
 * associated with the HBA, brings down the SLI layer, and eventually
 * marks the HBA as in offline state for the upper layer protocol.
 **/
void
lpfc_offline(struct lpfc_hba *phba)
{
        struct Scsi_Host  *shost;
        struct lpfc_vport **vports;
        int i;

        if (phba->pport->fc_flag & FC_OFFLINE_MODE)
                return;

        /* stop port and all timers associated with this hba */
        lpfc_stop_port(phba);
        vports = lpfc_create_vport_work_array(phba);
        if (vports != NULL)
                for (i = 0; i <= phba->max_vports && vports[i] != NULL; i++)
                        lpfc_stop_vport_timers(vports[i]);
        lpfc_destroy_vport_work_array(phba, vports);
        lpfc_printf_log(phba, KERN_WARNING, LOG_INIT,
                        "0460 Bring Adapter offline\n");
        /* Bring down the SLI Layer and cleanup.  The HBA is offline
           now.  */
        lpfc_sli_hba_down(phba);
        spin_lock_irq(&phba->hbalock);
        phba->work_ha = 0;
        spin_unlock_irq(&phba->hbalock);
        vports = lpfc_create_vport_work_array(phba);
        if (vports != NULL)
                for (i = 0; i <= phba->max_vports && vports[i] != NULL; i++) {
                        shost = lpfc_shost_from_vport(vports[i]);
                        spin_lock_irq(shost->host_lock);
                        vports[i]->work_port_events = 0;
                        vports[i]->fc_flag |= FC_OFFLINE_MODE;
                        spin_unlock_irq(shost->host_lock);
                }
        lpfc_destroy_vport_work_array(phba, vports);
}

/**
 * lpfc_scsi_free - Free all the SCSI buffers and IOCBs from driver lists
 * @phba: pointer to lpfc hba data structure.
 *
 * This routine is to free all the SCSI buffers and IOCBs from the driver
 * list back to kernel. It is called from lpfc_pci_remove_one to free
 * the internal resources before the device is removed from the system.
 *
 * Return codes
 *   0 - successful (for now, it always returns 0)
 **/
static int
lpfc_scsi_free(struct lpfc_hba *phba)
{
        struct lpfc_scsi_buf *sb, *sb_next;
        struct lpfc_iocbq *io, *io_next;

        spin_lock_irq(&phba->hbalock);
        /* Release all the lpfc_scsi_bufs maintained by this host. */
        list_for_each_entry_safe(sb, sb_next, &phba->lpfc_scsi_buf_list, list) {
                list_del(&sb->list);
                pci_pool_free(phba->lpfc_scsi_dma_buf_pool, sb->data,
                              sb->dma_handle);
                kfree(sb);
                phba->total_scsi_bufs--;
        }

        /* Release all the lpfc_iocbq entries maintained by this host. */
        list_for_each_entry_safe(io, io_next, &phba->lpfc_iocb_list, list) {
                list_del(&io->list);
                kfree(io);
                phba->total_iocbq_bufs--;
        }

        spin_unlock_irq(&phba->hbalock);

        return 0;
}

/**
 * lpfc_create_port - Create an FC port
 * @phba: pointer to lpfc hba data structure.
 * @instance: a unique integer ID to this FC port.
 * @dev: pointer to the device data structure.
 *
 * This routine creates a FC port for the upper layer protocol. The FC port
 * can be created on top of either a physical port or a virtual port provided
 * by the HBA. This routine also allocates a SCSI host data structure (shost)
 * and associates the FC port created before adding the shost into the SCSI
 * layer.
 *
 * Return codes
 *   @vport - pointer to the virtual N_Port data structure.
 *   NULL - port create failed.
 **/
struct lpfc_vport *
lpfc_create_port(struct lpfc_hba *phba, int instance, struct device *dev)
{
        struct lpfc_vport *vport;
        struct Scsi_Host  *shost;
        int error = 0;

        if (dev != &phba->pcidev->dev)
                shost = scsi_host_alloc(&lpfc_vport_template,
                                        sizeof(struct lpfc_vport));
        else
                shost = scsi_host_alloc(&lpfc_template,
                                        sizeof(struct lpfc_vport));
        if (!shost)
                goto out;

        vport = (struct lpfc_vport *) shost->hostdata;
        vport->phba = phba;
        vport->load_flag |= FC_LOADING;
        vport->fc_flag |= FC_VPORT_NEEDS_REG_VPI;
        vport->fc_rscn_flush = 0;

        lpfc_get_vport_cfgparam(vport);
        shost->unique_id = instance;
        shost->max_id = LPFC_MAX_TARGET;
        shost->max_lun = vport->cfg_max_luns;
        shost->this_id = -1;
        shost->max_cmd_len = 16;
        if (phba->sli_rev == LPFC_SLI_REV4) {
                shost->dma_boundary = LPFC_SLI4_MAX_SEGMENT_SIZE;
                shost->sg_tablesize = phba->cfg_sg_seg_cnt;
        }

        /*
         * Set initial can_queue value since 0 is no longer supported and
         * scsi_add_host will fail. This will be adjusted later based on the
         * max xri value determined in hba setup.
         */
        shost->can_queue = phba->cfg_hba_queue_depth - 10;
        if (dev != &phba->pcidev->dev) {
                shost->transportt = lpfc_vport_transport_template;
                vport->port_type = LPFC_NPIV_PORT;
        } else {
                shost->transportt = lpfc_transport_template;
                vport->port_type = LPFC_PHYSICAL_PORT;
        }

        /* Initialize all internally managed lists. */
        INIT_LIST_HEAD(&vport->fc_nodes);
        INIT_LIST_HEAD(&vport->rcv_buffer_list);
        spin_lock_init(&vport->work_port_lock);

        init_timer(&vport->fc_disctmo);
        vport->fc_disctmo.function = lpfc_disc_timeout;
        vport->fc_disctmo.data = (unsigned long)vport;

        init_timer(&vport->fc_fdmitmo);
        vport->fc_fdmitmo.function = lpfc_fdmi_tmo;
        vport->fc_fdmitmo.data = (unsigned long)vport;

        init_timer(&vport->els_tmofunc);
        vport->els_tmofunc.function = lpfc_els_timeout;
        vport->els_tmofunc.data = (unsigned long)vport;

        error = scsi_add_host(shost, dev);
        if (error)
                goto out_put_shost;

        spin_lock_irq(&phba->hbalock);
        list_add_tail(&vport->listentry, &phba->port_list);
        spin_unlock_irq(&phba->hbalock);
        return vport;

out_put_shost:
        scsi_host_put(shost);
out:
        return NULL;
}

/**
 * destroy_port -  destroy an FC port
 * @vport: pointer to an lpfc virtual N_Port data structure.
 *
 * This routine destroys a FC port from the upper layer protocol. All the
 * resources associated with the port are released.
 **/
void
destroy_port(struct lpfc_vport *vport)
{
        struct Scsi_Host *shost = lpfc_shost_from_vport(vport);
        struct lpfc_hba  *phba = vport->phba;

        lpfc_debugfs_terminate(vport);
        fc_remove_host(shost);
        scsi_remove_host(shost);

        spin_lock_irq(&phba->hbalock);
        list_del_init(&vport->listentry);
        spin_unlock_irq(&phba->hbalock);

        lpfc_cleanup(vport);
        return;
}

/**
 * lpfc_get_instance - Get a unique integer ID
 *
 * This routine allocates a unique integer ID from lpfc_hba_index pool. It
 * uses the kernel idr facility to perform the task.
 *
 * Return codes:
 *   instance - a unique integer ID allocated as the new instance.
 *   -1 - lpfc get instance failed.
 **/
int
lpfc_get_instance(void)
{
        int instance = 0;

        /* Assign an unused number */
        if (!idr_pre_get(&lpfc_hba_index, GFP_KERNEL))
                return -1;
        if (idr_get_new(&lpfc_hba_index, NULL, &instance))
                return -1;
        return instance;
}

/**
 * lpfc_scan_finished - method for SCSI layer to detect whether scan is done
 * @shost: pointer to SCSI host data structure.
 * @time: elapsed time of the scan in jiffies.
 *
 * This routine is called by the SCSI layer with a SCSI host to determine
 * whether the scan host is finished.
 *
 * Note: there is no scan_start function as adapter initialization will have
 * asynchronously kicked off the link initialization.
 *
 * Return codes
 *   0 - SCSI host scan is not over yet.
 *   1 - SCSI host scan is over.
 **/
int lpfc_scan_finished(struct Scsi_Host *shost, unsigned long time)
{
        struct lpfc_vport *vport = (struct lpfc_vport *) shost->hostdata;
        struct lpfc_hba   *phba = vport->phba;
        int stat = 0;

        spin_lock_irq(shost->host_lock);

        if (vport->load_flag & FC_UNLOADING) {
                stat = 1;
                goto finished;
        }
        if (time >= 30 * HZ) {
                lpfc_printf_log(phba, KERN_INFO, LOG_INIT,
                                "0461 Scanning longer than 30 "
                                "seconds.  Continuing initialization\n");
                stat = 1;
                goto finished;
        }
        if (time >= 15 * HZ && phba->link_state <= LPFC_LINK_DOWN) {
                lpfc_printf_log(phba, KERN_INFO, LOG_INIT,
                                "0465 Link down longer than 15 "
                                "seconds.  Continuing initialization\n");
                stat = 1;
                goto finished;
        }

        if (vport->port_state != LPFC_VPORT_READY)
                goto finished;
        if (vport->num_disc_nodes || vport->fc_prli_sent)
                goto finished;
        if (vport->fc_map_cnt == 0 && time < 2 * HZ)
                goto finished;
        if ((phba->sli.sli_flag & LPFC_SLI_MBOX_ACTIVE) != 0)
                goto finished;

        stat = 1;

finished:
        spin_unlock_irq(shost->host_lock);
        return stat;
}

/**
 * lpfc_host_attrib_init - Initialize SCSI host attributes on a FC port
 * @shost: pointer to SCSI host data structure.
 *
 * This routine initializes a given SCSI host attributes on a FC port. The
 * SCSI host can be either on top of a physical port or a virtual port.
 **/
void lpfc_host_attrib_init(struct Scsi_Host *shost)
{
        struct lpfc_vport *vport = (struct lpfc_vport *) shost->hostdata;
        struct lpfc_hba   *phba = vport->phba;
        /*
         * Set fixed host attributes.  Must done after lpfc_sli_hba_setup().
         */

        fc_host_node_name(shost) = wwn_to_u64(vport->fc_nodename.u.wwn);
        fc_host_port_name(shost) = wwn_to_u64(vport->fc_portname.u.wwn);
        fc_host_supported_classes(shost) = FC_COS_CLASS3;

        memset(fc_host_supported_fc4s(shost), 0,
               sizeof(fc_host_supported_fc4s(shost)));
        fc_host_supported_fc4s(shost)[2] = 1;
        fc_host_supported_fc4s(shost)[7] = 1;

        lpfc_vport_symbolic_node_name(vport, fc_host_symbolic_name(shost),
                                 sizeof fc_host_symbolic_name(shost));

        fc_host_supported_speeds(shost) = 0;
        if (phba->lmt & LMT_10Gb)
                fc_host_supported_speeds(shost) |= FC_PORTSPEED_10GBIT;
        if (phba->lmt & LMT_8Gb)
                fc_host_supported_speeds(shost) |= FC_PORTSPEED_8GBIT;
        if (phba->lmt & LMT_4Gb)
                fc_host_supported_speeds(shost) |= FC_PORTSPEED_4GBIT;
        if (phba->lmt & LMT_2Gb)
                fc_host_supported_speeds(shost) |= FC_PORTSPEED_2GBIT;
        if (phba->lmt & LMT_1Gb)
                fc_host_supported_speeds(shost) |= FC_PORTSPEED_1GBIT;

        fc_host_maxframe_size(shost) =
                (((uint32_t) vport->fc_sparam.cmn.bbRcvSizeMsb & 0x0F) << 8) |
                (uint32_t) vport->fc_sparam.cmn.bbRcvSizeLsb;

        /* This value is also unchanging */
        memset(fc_host_active_fc4s(shost), 0,
               sizeof(fc_host_active_fc4s(shost)));
        fc_host_active_fc4s(shost)[2] = 1;
        fc_host_active_fc4s(shost)[7] = 1;

        fc_host_max_npiv_vports(shost) = phba->max_vpi;
        spin_lock_irq(shost->host_lock);
        vport->load_flag &= ~FC_LOADING;
        spin_unlock_irq(shost->host_lock);
}

/**
 * lpfc_stop_port_s3 - Stop SLI3 device port
 * @phba: pointer to lpfc hba data structure.
 *
 * This routine is invoked to stop an SLI3 device port, it stops the device
 * from generating interrupts and stops the device driver's timers for the
 * device.
 **/
static void
lpfc_stop_port_s3(struct lpfc_hba *phba)
{
        /* Clear all interrupt enable conditions */
        writel(0, phba->HCregaddr);
        readl(phba->HCregaddr); /* flush */
        /* Clear all pending interrupts */
        writel(0xffffffff, phba->HAregaddr);
        readl(phba->HAregaddr); /* flush */

        /* Reset some HBA SLI setup states */
        lpfc_stop_hba_timers(phba);
        phba->pport->work_port_events = 0;
}

/**
 * lpfc_stop_port_s4 - Stop SLI4 device port
 * @phba: pointer to lpfc hba data structure.
 *
 * This routine is invoked to stop an SLI4 device port, it stops the device
 * from generating interrupts and stops the device driver's timers for the
 * device.
 **/
static void
lpfc_stop_port_s4(struct lpfc_hba *phba)
{
        /* Reset some HBA SLI4 setup states */
        lpfc_stop_hba_timers(phba);
        phba->pport->work_port_events = 0;
        phba->sli4_hba.intr_enable = 0;
        /* Hard clear it for now, shall have more graceful way to wait later */
        phba->sli.sli_flag &= ~LPFC_SLI_MBOX_ACTIVE;
}

/**
 * lpfc_stop_port - Wrapper function for stopping hba port
 * @phba: Pointer to HBA context object.
 *
 * This routine wraps the actual SLI3 or SLI4 hba stop port routine from
 * the API jump table function pointer from the lpfc_hba struct.
 **/
void
lpfc_stop_port(struct lpfc_hba *phba)
{
        phba->lpfc_stop_port(phba);
}

/**
 * lpfc_sli4_remove_dflt_fcf - Remove the driver default fcf record from the port.
 * @phba: pointer to lpfc hba data structure.
 *
 * This routine is invoked to remove the driver default fcf record from
 * the port.  This routine currently acts on FCF Index 0.
 *
 **/
void
lpfc_sli_remove_dflt_fcf(struct lpfc_hba *phba)
{
        int rc = 0;
        LPFC_MBOXQ_t *mboxq;
        struct lpfc_mbx_del_fcf_tbl_entry *del_fcf_record;
        uint32_t mbox_tmo, req_len;
        uint32_t shdr_status, shdr_add_status;

        mboxq = mempool_alloc(phba->mbox_mem_pool, GFP_KERNEL);
        if (!mboxq) {
                lpfc_printf_log(phba, KERN_ERR, LOG_INIT,
                        "2020 Failed to allocate mbox for ADD_FCF cmd\n");
                return;
        }

        req_len = sizeof(struct lpfc_mbx_del_fcf_tbl_entry) -
                  sizeof(struct lpfc_sli4_cfg_mhdr);
        rc = lpfc_sli4_config(phba, mboxq, LPFC_MBOX_SUBSYSTEM_FCOE,
                              LPFC_MBOX_OPCODE_FCOE_DELETE_FCF,
                              req_len, LPFC_SLI4_MBX_EMBED);
        /*
         * In phase 1, there is a single FCF index, 0.  In phase2, the driver
         * supports multiple FCF indices.
         */
        del_fcf_record = &mboxq->u.mqe.un.del_fcf_entry;
        bf_set(lpfc_mbx_del_fcf_tbl_count, del_fcf_record, 1);
        bf_set(lpfc_mbx_del_fcf_tbl_index, del_fcf_record,
               phba->fcf.fcf_indx);

        if (!phba->sli4_hba.intr_enable)
                rc = lpfc_sli_issue_mbox(phba, mboxq, MBX_POLL);
        else {
                mbox_tmo = lpfc_mbox_tmo_val(phba, MBX_SLI4_CONFIG);
                rc = lpfc_sli_issue_mbox_wait(phba, mboxq, mbox_tmo);
        }
        /* The IOCTL status is embedded in the mailbox subheader. */
        shdr_status = bf_get(lpfc_mbox_hdr_status,
                             &del_fcf_record->header.cfg_shdr.response);
        shdr_add_status = bf_get(lpfc_mbox_hdr_add_status,
                                 &del_fcf_record->header.cfg_shdr.response);
        if (shdr_status || shdr_add_status || rc != MBX_SUCCESS) {
                lpfc_printf_log(phba, KERN_ERR, LOG_SLI,
                                "2516 DEL FCF of default FCF Index failed "
                                "mbx status x%x, status x%x add_status x%x\n",
                                rc, shdr_status, shdr_add_status);
        }
        if (rc != MBX_TIMEOUT)
                mempool_free(mboxq, phba->mbox_mem_pool);
}

/**
 * lpfc_sli4_parse_latt_fault - Parse sli4 link-attention link fault code
 * @phba: pointer to lpfc hba data structure.
 * @acqe_link: pointer to the async link completion queue entry.
 *
 * This routine is to parse the SLI4 link-attention link fault code and
 * translate it into the base driver's read link attention mailbox command
 * status.
 *
 * Return: Link-attention status in terms of base driver's coding.
 **/
static uint16_t
lpfc_sli4_parse_latt_fault(struct lpfc_hba *phba,
                           struct lpfc_acqe_link *acqe_link)
{
        uint16_t latt_fault;

        switch (bf_get(lpfc_acqe_link_fault, acqe_link)) {
        case LPFC_ASYNC_LINK_FAULT_NONE:
        case LPFC_ASYNC_LINK_FAULT_LOCAL:
        case LPFC_ASYNC_LINK_FAULT_REMOTE:
                latt_fault = 0;
                break;
        default:
                lpfc_printf_log(phba, KERN_ERR, LOG_INIT,
                                "0398 Invalid link fault code: x%x\n",
                                bf_get(lpfc_acqe_link_fault, acqe_link));
                latt_fault = MBXERR_ERROR;
                break;
        }
        return latt_fault;
}

/**
 * lpfc_sli4_parse_latt_type - Parse sli4 link attention type
 * @phba: pointer to lpfc hba data structure.
 * @acqe_link: pointer to the async link completion queue entry.
 *
 * This routine is to parse the SLI4 link attention type and translate it
 * into the base driver's link attention type coding.
 *
 * Return: Link attention type in terms of base driver's coding.
 **/
static uint8_t
lpfc_sli4_parse_latt_type(struct lpfc_hba *phba,
                          struct lpfc_acqe_link *acqe_link)
{
        uint8_t att_type;

        switch (bf_get(lpfc_acqe_link_status, acqe_link)) {
        case LPFC_ASYNC_LINK_STATUS_DOWN:
        case LPFC_ASYNC_LINK_STATUS_LOGICAL_DOWN:
                att_type = AT_LINK_DOWN;
                break;
        case LPFC_ASYNC_LINK_STATUS_UP:
                /* Ignore physical link up events - wait for logical link up */
                att_type = AT_RESERVED;
                break;
        case LPFC_ASYNC_LINK_STATUS_LOGICAL_UP:
                att_type = AT_LINK_UP;
                break;
        default:
                lpfc_printf_log(phba, KERN_ERR, LOG_INIT,
                                "0399 Invalid link attention type: x%x\n",
                                bf_get(lpfc_acqe_link_status, acqe_link));
                att_type = AT_RESERVED;
                break;
        }
        return att_type;
}

/**
 * lpfc_sli4_parse_latt_link_speed - Parse sli4 link-attention link speed
 * @phba: pointer to lpfc hba data structure.
 * @acqe_link: pointer to the async link completion queue entry.
 *
 * This routine is to parse the SLI4 link-attention link speed and translate
 * it into the base driver's link-attention link speed coding.
 *
 * Return: Link-attention link speed in terms of base driver's coding.
 **/
static uint8_t
lpfc_sli4_parse_latt_link_speed(struct lpfc_hba *phba,
                                struct lpfc_acqe_link *acqe_link)
{
        uint8_t link_speed;

        switch (bf_get(lpfc_acqe_link_speed, acqe_link)) {
        case LPFC_ASYNC_LINK_SPEED_ZERO:
                link_speed = LA_UNKNW_LINK;
                break;
        case LPFC_ASYNC_LINK_SPEED_10MBPS:
                link_speed = LA_UNKNW_LINK;
                break;
        case LPFC_ASYNC_LINK_SPEED_100MBPS:
                link_speed = LA_UNKNW_LINK;
                break;
        case LPFC_ASYNC_LINK_SPEED_1GBPS:
                link_speed = LA_1GHZ_LINK;
                break;
        case LPFC_ASYNC_LINK_SPEED_10GBPS:
                link_speed = LA_10GHZ_LINK;
                break;
        default:
                lpfc_printf_log(phba, KERN_ERR, LOG_INIT,
                                "0483 Invalid link-attention link speed: x%x\n",
                                bf_get(lpfc_acqe_link_speed, acqe_link));
                link_speed = LA_UNKNW_LINK;
                break;
        }
        return link_speed;
}

/**
 * lpfc_sli4_async_link_evt - Process the asynchronous link event
 * @phba: pointer to lpfc hba data structure.
 * @acqe_link: pointer to the async link completion queue entry.
 *
 * This routine is to handle the SLI4 asynchronous link event.
 **/
static void
lpfc_sli4_async_link_evt(struct lpfc_hba *phba,
                         struct lpfc_acqe_link *acqe_link)
{
        struct lpfc_dmabuf *mp;
        LPFC_MBOXQ_t *pmb;
        MAILBOX_t *mb;
        READ_LA_VAR *la;
        uint8_t att_type;

        att_type = lpfc_sli4_parse_latt_type(phba, acqe_link);
        if (att_type != AT_LINK_DOWN && att_type != AT_LINK_UP)
                return;
        phba->fcoe_eventtag = acqe_link->event_tag;
        pmb = (LPFC_MBOXQ_t *)mempool_alloc(phba->mbox_mem_pool, GFP_KERNEL);
        if (!pmb) {
                lpfc_printf_log(phba, KERN_ERR, LOG_SLI,
                                "0395 The mboxq allocation failed\n");
                return;
        }
        mp = kmalloc(sizeof(struct lpfc_dmabuf), GFP_KERNEL);
        if (!mp) {
                lpfc_printf_log(phba, KERN_ERR, LOG_SLI,
                                "0396 The lpfc_dmabuf allocation failed\n");
                goto out_free_pmb;
        }
        mp->virt = lpfc_mbuf_alloc(phba, 0, &mp->phys);
        if (!mp->virt) {
                lpfc_printf_log(phba, KERN_ERR, LOG_SLI,
                                "0397 The mbuf allocation failed\n");
                goto out_free_dmabuf;
        }

        /* Cleanup any outstanding ELS commands */
        lpfc_els_flush_all_cmd(phba);

        /* Block ELS IOCBs until we have done process link event */
        phba->sli.ring[LPFC_ELS_RING].flag |= LPFC_STOP_IOCB_EVENT;

        /* Update link event statistics */
        phba->sli.slistat.link_event++;

        /* Create pseudo lpfc_handle_latt mailbox command from link ACQE */
        lpfc_read_la(phba, pmb, mp);
        pmb->vport = phba->pport;

        /* Parse and translate status field */
        mb = &pmb->u.mb;
        mb->mbxStatus = lpfc_sli4_parse_latt_fault(phba, acqe_link);

        /* Parse and translate link attention fields */
        la = (READ_LA_VAR *) &pmb->u.mb.un.varReadLA;
        la->eventTag = acqe_link->event_tag;
        la->attType = att_type;
        la->UlnkSpeed = lpfc_sli4_parse_latt_link_speed(phba, acqe_link);

        /* Fake the the following irrelvant fields */
        la->topology = TOPOLOGY_PT_PT;
        la->granted_AL_PA = 0;
        la->il = 0;
        la->pb = 0;
        la->fa = 0;
        la->mm = 0;

        /* Keep the link status for extra SLI4 state machine reference */
        phba->sli4_hba.link_state.speed =
                                bf_get(lpfc_acqe_link_speed, acqe_link);
        phba->sli4_hba.link_state.duplex =
                                bf_get(lpfc_acqe_link_duplex, acqe_link);
        phba->sli4_hba.link_state.status =
                                bf_get(lpfc_acqe_link_status, acqe_link);
        phba->sli4_hba.link_state.physical =
                                bf_get(lpfc_acqe_link_physical, acqe_link);
        phba->sli4_hba.link_state.fault =
                                bf_get(lpfc_acqe_link_fault, acqe_link);

        /* Invoke the lpfc_handle_latt mailbox command callback function */
        lpfc_mbx_cmpl_read_la(phba, pmb);

        return;

out_free_dmabuf:
        kfree(mp);
out_free_pmb:
        mempool_free(pmb, phba->mbox_mem_pool);
}

/**
 * lpfc_sli4_async_fcoe_evt - Process the asynchronous fcoe event
 * @phba: pointer to lpfc hba data structure.
 * @acqe_link: pointer to the async fcoe completion queue entry.
 *
 * This routine is to handle the SLI4 asynchronous fcoe event.
 **/
static void
lpfc_sli4_async_fcoe_evt(struct lpfc_hba *phba,
                         struct lpfc_acqe_fcoe *acqe_fcoe)
{
        uint8_t event_type = bf_get(lpfc_acqe_fcoe_event_type, acqe_fcoe);
        int rc;

        phba->fcoe_eventtag = acqe_fcoe->event_tag;
        switch (event_type) {
        case LPFC_FCOE_EVENT_TYPE_NEW_FCF:
                lpfc_printf_log(phba, KERN_ERR, LOG_DISCOVERY,
                        "2546 New FCF found index 0x%x tag 0x%x\n",
                        acqe_fcoe->fcf_index,
                        acqe_fcoe->event_tag);
                /*
                 * If the current FCF is in discovered state, or
                 * FCF discovery is in progress do nothing.
                 */
                spin_lock_irq(&phba->hbalock);
                if ((phba->fcf.fcf_flag & FCF_DISCOVERED) ||
                   (phba->hba_flag & FCF_DISC_INPROGRESS)) {
                        spin_unlock_irq(&phba->hbalock);
                        break;
                }
                spin_unlock_irq(&phba->hbalock);

                /* Read the FCF table and re-discover SAN. */
                rc = lpfc_sli4_read_fcf_record(phba,
                        LPFC_FCOE_FCF_GET_FIRST);
                if (rc)
                        lpfc_printf_log(phba, KERN_ERR, LOG_DISCOVERY,
                                "2547 Read FCF record failed 0x%x\n",
                                rc);
                break;

        case LPFC_FCOE_EVENT_TYPE_FCF_TABLE_FULL:
                lpfc_printf_log(phba, KERN_ERR, LOG_SLI,
                        "2548 FCF Table full count 0x%x tag 0x%x\n",
                        bf_get(lpfc_acqe_fcoe_fcf_count, acqe_fcoe),
                        acqe_fcoe->event_tag);
                break;

        case LPFC_FCOE_EVENT_TYPE_FCF_DEAD:
                lpfc_printf_log(phba, KERN_ERR, LOG_DISCOVERY,
                        "2549 FCF disconnected fron network index 0x%x"
                        " tag 0x%x\n", acqe_fcoe->fcf_index,
                        acqe_fcoe->event_tag);
                /* If the event is not for currently used fcf do nothing */
                if (phba->fcf.fcf_indx != acqe_fcoe->fcf_index)
                        break;
                /*
                 * Currently, driver support only one FCF - so treat this as
                 * a link down.
                 */
                lpfc_linkdown(phba);
                /* Unregister FCF if no devices connected to it */
                lpfc_unregister_unused_fcf(phba);
                break;

        default:
                lpfc_printf_log(phba, KERN_ERR, LOG_SLI,
                        "0288 Unknown FCoE event type 0x%x event tag "
                        "0x%x\n", event_type, acqe_fcoe->event_tag);
                break;
        }
}

/**
 * lpfc_sli4_async_dcbx_evt - Process the asynchronous dcbx event
 * @phba: pointer to lpfc hba data structure.
 * @acqe_link: pointer to the async dcbx completion queue entry.
 *
 * This routine is to handle the SLI4 asynchronous dcbx event.
 **/
static void
lpfc_sli4_async_dcbx_evt(struct lpfc_hba *phba,
                         struct lpfc_acqe_dcbx *acqe_dcbx)
{
        lpfc_printf_log(phba, KERN_ERR, LOG_SLI,
                        "0290 The SLI4 DCBX asynchronous event is not "
                        "handled yet\n");
}

/**
 * lpfc_sli4_async_event_proc - Process all the pending asynchronous event
 * @phba: pointer to lpfc hba data structure.