Linux-2.6.12-rc2

[mirror_ubuntu-bionic-kernel.git] / drivers / scsi / qla2xxx / qla_os.c

/*
 *                  QLOGIC LINUX SOFTWARE
 *
 * QLogic ISP2x00 device driver for Linux 2.6.x
 * Copyright (C) 2003-2004 QLogic Corporation
 * (www.qlogic.com)
 *
 * This program is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the
 * Free Software Foundation; either version 2, or (at your option) any
 * later version.
 *
 * This program is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * General Public License for more details.
 *
 */
#include "qla_def.h"

#include <linux/moduleparam.h>
#include <linux/vmalloc.h>
#include <linux/smp_lock.h>
#include <linux/delay.h>

#include <scsi/scsi_tcq.h>
#include <scsi/scsicam.h>
#include <scsi/scsi_transport.h>
#include <scsi/scsi_transport_fc.h>

/*
 * Driver version
 */
char qla2x00_version_str[40];

/*
 * SRB allocation cache
 */
char srb_cachep_name[16];
kmem_cache_t *srb_cachep;

/*
 * Stats for all adpaters.
 */
struct _qla2x00stats qla2x00_stats;

/*
 * Ioctl related information.
 */
int num_hosts;
int apiHBAInstance;

/*
 * Module parameter information and variables
 */
int ql2xmaxqdepth;
module_param(ql2xmaxqdepth, int, S_IRUGO|S_IWUSR);
MODULE_PARM_DESC(ql2xmaxqdepth,
                "Maximum queue depth to report for target devices.");

int ql2xlogintimeout = 20;
module_param(ql2xlogintimeout, int, S_IRUGO|S_IRUSR);
MODULE_PARM_DESC(ql2xlogintimeout,
                "Login timeout value in seconds.");

int qlport_down_retry;
module_param(qlport_down_retry, int, S_IRUGO|S_IRUSR);
MODULE_PARM_DESC(qlport_down_retry,
                "Maximum number of command retries to a port that returns"
                "a PORT-DOWN status.");

int ql2xretrycount = 20;
module_param(ql2xretrycount, int, S_IRUGO|S_IWUSR);
MODULE_PARM_DESC(ql2xretrycount,
                "Maximum number of mid-layer retries allowed for a command.  "
                "Default value is 20, ");

int displayConfig;
module_param(displayConfig, int, S_IRUGO|S_IWUSR);
MODULE_PARM_DESC(displayConfig,
                "If 1 then display the configuration used in /etc/modprobe.conf.");

int ql2xplogiabsentdevice;
module_param(ql2xplogiabsentdevice, int, S_IRUGO|S_IWUSR);
MODULE_PARM_DESC(ql2xplogiabsentdevice,
                "Option to enable PLOGI to devices that are not present after "
                "a Fabric scan.  This is needed for several broken switches."
                "Default is 0 - no PLOGI. 1 - perfom PLOGI.");

int ql2xenablezio = 0;
module_param(ql2xenablezio, int, S_IRUGO|S_IRUSR);
MODULE_PARM_DESC(ql2xenablezio,
                "Option to enable ZIO:If 1 then enable it otherwise" 
                " use the default set in the NVRAM."
                " Default is 0 : disabled");

int ql2xintrdelaytimer = 10;
module_param(ql2xintrdelaytimer, int, S_IRUGO|S_IRUSR);
MODULE_PARM_DESC(ql2xintrdelaytimer,
                "ZIO: Waiting time for Firmware before it generates an "
                "interrupt to the host to notify completion of request.");

int ConfigRequired;
module_param(ConfigRequired, int, S_IRUGO|S_IRUSR);
MODULE_PARM_DESC(ConfigRequired,
                "If 1, then only configured devices passed in through the"
                "ql2xopts parameter will be presented to the OS");

int Bind = BIND_BY_PORT_NAME;
module_param(Bind, int, S_IRUGO|S_IRUSR);
MODULE_PARM_DESC(Bind,
                "Target persistent binding method: "
                "0 by Portname (default); 1 by PortID; 2 by Nodename. ");

int ql2xsuspendcount = SUSPEND_COUNT;
module_param(ql2xsuspendcount, int, S_IRUGO|S_IWUSR);
MODULE_PARM_DESC(ql2xsuspendcount,
                "Number of 6-second suspend iterations to perform while a "
                "target returns a <NOT READY> status.  Default is 10 "
                "iterations.");

int ql2xdoinitscan = 1;
module_param(ql2xdoinitscan, int, S_IRUGO|S_IWUSR);
MODULE_PARM_DESC(ql2xdoinitscan,
                "Signal mid-layer to perform scan after driver load: 0 -- no "
                "signal sent to mid-layer.");

int ql2xloginretrycount = 0;
module_param(ql2xloginretrycount, int, S_IRUGO|S_IRUSR);
MODULE_PARM_DESC(ql2xloginretrycount,
                "Specify an alternate value for the NVRAM login retry count.");

/*
 * Proc structures and functions
 */
struct info_str {
        char    *buffer;
        int     length;
        off_t   offset;
        int     pos;
};

static void copy_mem_info(struct info_str *, char *, int);
static int copy_info(struct info_str *, char *, ...);

static void qla2x00_free_device(scsi_qla_host_t *);

static void qla2x00_config_dma_addressing(scsi_qla_host_t *ha);

/*
 * SCSI host template entry points 
 */
static int qla2xxx_slave_configure(struct scsi_device * device);
static int qla2x00_queuecommand(struct scsi_cmnd *cmd,
                void (*fn)(struct scsi_cmnd *));
static int qla2xxx_eh_abort(struct scsi_cmnd *);
static int qla2xxx_eh_device_reset(struct scsi_cmnd *);
static int qla2xxx_eh_bus_reset(struct scsi_cmnd *);
static int qla2xxx_eh_host_reset(struct scsi_cmnd *);
static int qla2x00_loop_reset(scsi_qla_host_t *ha);
static int qla2x00_device_reset(scsi_qla_host_t *, fc_port_t *);

static int qla2x00_proc_info(struct Scsi_Host *, char *, char **,
    off_t, int, int);

static struct scsi_host_template qla2x00_driver_template = {
        .module                 = THIS_MODULE,
        .name                   = "qla2xxx",
        .proc_name              = "qla2xxx",
        .proc_info              = qla2x00_proc_info,
        .queuecommand           = qla2x00_queuecommand,

        .eh_abort_handler       = qla2xxx_eh_abort,
        .eh_device_reset_handler = qla2xxx_eh_device_reset,
        .eh_bus_reset_handler   = qla2xxx_eh_bus_reset,
        .eh_host_reset_handler  = qla2xxx_eh_host_reset,

        .slave_configure        = qla2xxx_slave_configure,

        .this_id                = -1,
        .cmd_per_lun            = 3,
        .use_clustering         = ENABLE_CLUSTERING,
        .sg_tablesize           = SG_ALL,

        /*
         * The RISC allows for each command to transfer (2^32-1) bytes of data,
         * which equates to 0x800000 sectors.
         */
        .max_sectors            = 0xFFFF,
};

static struct scsi_transport_template *qla2xxx_transport_template = NULL;

static void qla2x00_display_fc_names(scsi_qla_host_t *);

/* TODO Convert to inlines
 *
 * Timer routines
 */
#define WATCH_INTERVAL          1       /* number of seconds */

static void qla2x00_timer(scsi_qla_host_t *);

static __inline__ void qla2x00_start_timer(scsi_qla_host_t *,
    void *, unsigned long);
static __inline__ void qla2x00_restart_timer(scsi_qla_host_t *, unsigned long);
static __inline__ void qla2x00_stop_timer(scsi_qla_host_t *);

static inline void
qla2x00_start_timer(scsi_qla_host_t *ha, void *func, unsigned long interval)
{
        init_timer(&ha->timer);
        ha->timer.expires = jiffies + interval * HZ;
        ha->timer.data = (unsigned long)ha;
        ha->timer.function = (void (*)(unsigned long))func;
        add_timer(&ha->timer);
        ha->timer_active = 1;
}

static inline void
qla2x00_restart_timer(scsi_qla_host_t *ha, unsigned long interval)
{
        mod_timer(&ha->timer, jiffies + interval * HZ);
}

static __inline__ void
qla2x00_stop_timer(scsi_qla_host_t *ha)
{
        del_timer_sync(&ha->timer);
        ha->timer_active = 0;
}

void qla2x00_cmd_timeout(srb_t *);

static __inline__ void qla2x00_callback(scsi_qla_host_t *, struct scsi_cmnd *);
static __inline__ void sp_put(struct scsi_qla_host * ha, srb_t *sp);
static __inline__ void sp_get(struct scsi_qla_host * ha, srb_t *sp);
static __inline__ void
qla2x00_delete_from_done_queue(scsi_qla_host_t *, srb_t *); 

/*
* qla2x00_callback
*      Returns the completed SCSI command to LINUX.
*
* Input:
*       ha -- Host adapter structure
*       cmd -- SCSI mid-level command structure.
* Returns:
*      None
* Note:From failover point of view we always get the sp
*      from vis_ha pool in queuecommand.So when we put it 
*      back to the pool it has to be the vis_ha.         
*      So rely on struct scsi_cmnd to get the vis_ha and not on sp.                     
*/
static inline void
qla2x00_callback(scsi_qla_host_t *ha, struct scsi_cmnd *cmd)
{
        srb_t *sp = (srb_t *) CMD_SP(cmd);
        scsi_qla_host_t *vis_ha;
        os_lun_t *lq;
        int got_sense;
        unsigned long   cpu_flags = 0;

        cmd->host_scribble = (unsigned char *) NULL;
        vis_ha = (scsi_qla_host_t *) cmd->device->host->hostdata;

        if (sp == NULL) {
                qla_printk(KERN_INFO, ha,
                        "%s(): **** CMD derives a NULL SP\n",
                        __func__);
                DEBUG2(BUG();)
                return;
        }

        /*
         * If command status is not DID_BUS_BUSY then go ahead and freed sp.
         */
        /*
         * Cancel command timeout
         */
        qla2x00_delete_timer_from_cmd(sp);

        /*
         * Put SP back in the free queue
         */
        sp->cmd   = NULL;
        CMD_SP(cmd) = NULL;
        lq = sp->lun_queue;
        got_sense = (sp->flags & SRB_GOT_SENSE)? 1: 0;
        add_to_free_queue(vis_ha, sp);

        if (host_byte(cmd->result) == DID_OK) {
                /* device ok */
                ha->total_bytes += cmd->bufflen;
                if (!got_sense) {
                        /* If lun was suspended then clear retry count */
                        spin_lock_irqsave(&lq->q_lock, cpu_flags);
                        if (!test_bit(LUN_EXEC_DELAYED, &lq->q_flag))
                                lq->q_state = LUN_STATE_READY;
                        spin_unlock_irqrestore(&lq->q_lock, cpu_flags);
                }
        } else if (host_byte(cmd->result) == DID_ERROR) {
                /* device error */
                ha->total_dev_errs++;
        }

        /* Call the mid-level driver interrupt handler */
        (*(cmd)->scsi_done)(cmd);
}

/**************************************************************************
* sp_put
*
* Description:
*   Decrement reference count and call the callback if we're the last
*   owner of the specified sp. Will get the host_lock before calling
*   the callback.
*
* Input:
*   ha - pointer to the scsi_qla_host_t where the callback is to occur.
*   sp - pointer to srb_t structure to use.
*
* Returns:
*
**************************************************************************/
static inline void
sp_put(struct scsi_qla_host * ha, srb_t *sp)
{
        if (atomic_read(&sp->ref_count) == 0) {
                qla_printk(KERN_INFO, ha,
                        "%s(): **** SP->ref_count not zero\n",
                        __func__);
                DEBUG2(BUG();)

                return;
        }

        if (!atomic_dec_and_test(&sp->ref_count)) {
                return;
        }

        qla2x00_callback(ha, sp->cmd);
}

/**************************************************************************
* sp_get
*
* Description:
*   Increment reference count of the specified sp.
*
* Input:
*   sp - pointer to srb_t structure to use.
*
* Returns:
*
**************************************************************************/
static inline void
sp_get(struct scsi_qla_host * ha, srb_t *sp)
{
        atomic_inc(&sp->ref_count);

        if (atomic_read(&sp->ref_count) > 2) {
                qla_printk(KERN_INFO, ha,
                        "%s(): **** SP->ref_count greater than two\n",
                        __func__);
                DEBUG2(BUG();)

                return;
        }
}

static inline void 
qla2x00_delete_from_done_queue(scsi_qla_host_t *dest_ha, srb_t *sp) 
{
        /* remove command from done list */
        list_del_init(&sp->list);
        dest_ha->done_q_cnt--;
        sp->state = SRB_NO_QUEUE_STATE;

        if (sp->flags & SRB_DMA_VALID) {
                sp->flags &= ~SRB_DMA_VALID;

                /* Release memory used for this I/O */
                if (sp->cmd->use_sg) {
                        pci_unmap_sg(dest_ha->pdev, sp->cmd->request_buffer,
                            sp->cmd->use_sg, sp->cmd->sc_data_direction);
                } else if (sp->cmd->request_bufflen) {
                        pci_unmap_page(dest_ha->pdev, sp->dma_handle,
                            sp->cmd->request_bufflen,
                            sp->cmd->sc_data_direction);
                }
        }
}

static int qla2x00_do_dpc(void *data);

static void qla2x00_rst_aen(scsi_qla_host_t *);

static uint8_t qla2x00_mem_alloc(scsi_qla_host_t *);
static void qla2x00_mem_free(scsi_qla_host_t *ha);
static int qla2x00_allocate_sp_pool( scsi_qla_host_t *ha);
static void qla2x00_free_sp_pool(scsi_qla_host_t *ha);
static srb_t *qla2x00_get_new_sp(scsi_qla_host_t *ha);

static ssize_t qla2x00_sysfs_read_fw_dump(struct kobject *, char *, loff_t,
    size_t);
static ssize_t qla2x00_sysfs_write_fw_dump(struct kobject *, char *, loff_t,
    size_t);
static struct bin_attribute sysfs_fw_dump_attr = {
        .attr = {
                .name = "fw_dump",
                .mode = S_IRUSR | S_IWUSR,
                .owner = THIS_MODULE,
        },
        .size = 0,
        .read = qla2x00_sysfs_read_fw_dump,
        .write = qla2x00_sysfs_write_fw_dump,
};
static ssize_t qla2x00_sysfs_read_nvram(struct kobject *, char *, loff_t,
    size_t);
static ssize_t qla2x00_sysfs_write_nvram(struct kobject *, char *, loff_t,
    size_t);
static struct bin_attribute sysfs_nvram_attr = {
        .attr = {
                .name = "nvram",
                .mode = S_IRUSR | S_IWUSR,
                .owner = THIS_MODULE,
        },
        .size = sizeof(nvram_t),
        .read = qla2x00_sysfs_read_nvram,
        .write = qla2x00_sysfs_write_nvram,
};

/* -------------------------------------------------------------------------- */


/* SysFS attributes. */
static ssize_t qla2x00_sysfs_read_fw_dump(struct kobject *kobj, char *buf,
    loff_t off, size_t count)
{
        struct scsi_qla_host *ha = to_qla_host(dev_to_shost(container_of(kobj,
            struct device, kobj)));

        if (ha->fw_dump_reading == 0)
                return 0;
        if (off > ha->fw_dump_buffer_len)
                return 0;
        if (off + count > ha->fw_dump_buffer_len)
                count = ha->fw_dump_buffer_len - off;

        memcpy(buf, &ha->fw_dump_buffer[off], count);

        return (count);
}

static ssize_t qla2x00_sysfs_write_fw_dump(struct kobject *kobj, char *buf,
    loff_t off, size_t count)
{
        struct scsi_qla_host *ha = to_qla_host(dev_to_shost(container_of(kobj,
            struct device, kobj)));
        int reading;
        uint32_t dump_size;

        if (off != 0)
                return (0);

        reading = simple_strtol(buf, NULL, 10);
        switch (reading) {
        case 0:
                if (ha->fw_dump_reading == 1) {
                        qla_printk(KERN_INFO, ha,
                            "Firmware dump cleared on (%ld).\n",
                            ha->host_no);

                        vfree(ha->fw_dump_buffer);
                        free_pages((unsigned long)ha->fw_dump,
                            ha->fw_dump_order);

                        ha->fw_dump_reading = 0;
                        ha->fw_dump_buffer = NULL;
                        ha->fw_dump = NULL;
                }
                break;
        case 1:
                if (ha->fw_dump != NULL && !ha->fw_dump_reading) {
                        ha->fw_dump_reading = 1;

                        dump_size = FW_DUMP_SIZE_1M;
                        if (ha->fw_memory_size < 0x20000) 
                                dump_size = FW_DUMP_SIZE_128K;
                        else if (ha->fw_memory_size < 0x80000) 
                                dump_size = FW_DUMP_SIZE_512K;
                        ha->fw_dump_buffer = (char *)vmalloc(dump_size);
                        if (ha->fw_dump_buffer == NULL) {
                                qla_printk(KERN_WARNING, ha,
                                    "Unable to allocate memory for firmware "
                                    "dump buffer (%d).\n", dump_size);

                                ha->fw_dump_reading = 0;
                                return (count);
                        }
                        qla_printk(KERN_INFO, ha,
                            "Firmware dump ready for read on (%ld).\n",
                            ha->host_no);
                        memset(ha->fw_dump_buffer, 0, dump_size);
                        if (IS_QLA2100(ha) || IS_QLA2200(ha))
                                qla2100_ascii_fw_dump(ha);
                        else
                                qla2300_ascii_fw_dump(ha);
                        ha->fw_dump_buffer_len = strlen(ha->fw_dump_buffer);
                }
                break;
        }
        return (count);
}

static ssize_t qla2x00_sysfs_read_nvram(struct kobject *kobj, char *buf,
    loff_t off, size_t count)
{
        struct scsi_qla_host *ha = to_qla_host(dev_to_shost(container_of(kobj,
            struct device, kobj)));
        uint16_t        *witer;
        unsigned long   flags;
        uint16_t        cnt;

        if (!capable(CAP_SYS_ADMIN) || off != 0 || count != sizeof(nvram_t))
                return 0;

        /* Read NVRAM. */
        spin_lock_irqsave(&ha->hardware_lock, flags);
        qla2x00_lock_nvram_access(ha);
        witer = (uint16_t *)buf;
        for (cnt = 0; cnt < count / 2; cnt++) {
                *witer = cpu_to_le16(qla2x00_get_nvram_word(ha,
                    cnt+ha->nvram_base));
                witer++;
        }
        qla2x00_unlock_nvram_access(ha);
        spin_unlock_irqrestore(&ha->hardware_lock, flags);

        return (count);
}

static ssize_t qla2x00_sysfs_write_nvram(struct kobject *kobj, char *buf,
    loff_t off, size_t count)
{
        struct scsi_qla_host *ha = to_qla_host(dev_to_shost(container_of(kobj,
            struct device, kobj)));
        uint8_t         *iter;
        uint16_t        *witer;
        unsigned long   flags;
        uint16_t        cnt;
        uint8_t         chksum;

        if (!capable(CAP_SYS_ADMIN) || off != 0 || count != sizeof(nvram_t))
                return 0;

        /* Checksum NVRAM. */
        iter = (uint8_t *)buf;
        chksum = 0;
        for (cnt = 0; cnt < count - 1; cnt++)
                chksum += *iter++;
        chksum = ~chksum + 1;
        *iter = chksum;

        /* Write NVRAM. */
        spin_lock_irqsave(&ha->hardware_lock, flags);
        qla2x00_lock_nvram_access(ha);
        qla2x00_release_nvram_protection(ha);
        witer = (uint16_t *)buf;
        for (cnt = 0; cnt < count / 2; cnt++) {
                qla2x00_write_nvram_word(ha, cnt+ha->nvram_base,
                    cpu_to_le16(*witer));
                witer++;
        }
        qla2x00_unlock_nvram_access(ha);
        spin_unlock_irqrestore(&ha->hardware_lock, flags);

        return (count);
}

/* -------------------------------------------------------------------------- */
static char *
qla2x00_get_pci_info_str(struct scsi_qla_host *ha, char *str)
{
        static char *pci_bus_modes[] = {
                "33", "66", "100", "133",
        };
        uint16_t pci_bus;

        strcpy(str, "PCI");
        pci_bus = (ha->pci_attr & (BIT_9 | BIT_10)) >> 9;
        if (pci_bus) {
                strcat(str, "-X (");
                strcat(str, pci_bus_modes[pci_bus]);
        } else {
                pci_bus = (ha->pci_attr & BIT_8) >> 8;
                strcat(str, " (");
                strcat(str, pci_bus_modes[pci_bus]);
        }
        strcat(str, " MHz)");

        return (str);
}

char *
qla2x00_get_fw_version_str(struct scsi_qla_host *ha, char *str)
{
        char un_str[10];
        
        sprintf(str, "%d.%02d.%02d ", ha->fw_major_version,
            ha->fw_minor_version,
            ha->fw_subminor_version);

        if (ha->fw_attributes & BIT_9) {
                strcat(str, "FLX");
                return (str);
        }

        switch (ha->fw_attributes & 0xFF) {
        case 0x7:
                strcat(str, "EF");
                break;
        case 0x17:
                strcat(str, "TP");
                break;
        case 0x37:
                strcat(str, "IP");
                break;
        case 0x77:
                strcat(str, "VI");
                break;
        default:
                sprintf(un_str, "(%x)", ha->fw_attributes);
                strcat(str, un_str);
                break;
        }
        if (ha->fw_attributes & 0x100)
                strcat(str, "X");

        return (str);
}

/**************************************************************************
* qla2x00_queuecommand
*
* Description:
*     Queue a command to the controller.
*
* Input:
*     cmd - pointer to Scsi cmd structure
*     fn - pointer to Scsi done function
*
* Returns:
*   0 - Always
*
* Note:
* The mid-level driver tries to ensures that queuecommand never gets invoked
* concurrently with itself or the interrupt handler (although the
* interrupt handler may call this routine as part of request-completion
* handling).
**************************************************************************/
static int
qla2x00_queuecommand(struct scsi_cmnd *cmd, void (*fn)(struct scsi_cmnd *))
{
        fc_port_t       *fcport;
        os_lun_t        *lq;
        os_tgt_t        *tq;
        scsi_qla_host_t *ha, *ha2;
        srb_t           *sp;
        struct Scsi_Host *host;
        unsigned int    b, t, l;
        unsigned long   handle;
        int             was_empty;


        host = cmd->device->host;
        ha = (scsi_qla_host_t *) host->hostdata;
        was_empty = 1;

        cmd->scsi_done = fn;

        spin_unlock_irq(ha->host->host_lock);

        /*
         * Allocate a command packet from the "sp" pool.  If we cant get back
         * one then let scsi layer come back later.
         */
        if ((sp = qla2x00_get_new_sp(ha)) == NULL) {
                qla_printk(KERN_WARNING, ha,
                    "Couldn't allocate memory for sp - retried.\n");

                spin_lock_irq(ha->host->host_lock);

                return (1);
        }

        sp->cmd = cmd;
        CMD_SP(cmd) = (void *)sp;

        sp->flags = 0;
        if (CMD_RESID_LEN(cmd) & SRB_IOCTL) {
                /* Need to set sp->flags */
                sp->flags |= SRB_IOCTL;
                CMD_RESID_LEN(cmd) = 0; /* Clear it since no more use. */
        }

        sp->fo_retry_cnt = 0;
        sp->err_id = 0;

        /* Generate LU queue on bus, target, LUN */
        b = cmd->device->channel;
        t = cmd->device->id;
        l = cmd->device->lun;

        /*
         * Start Command Timer. Typically it will be 2 seconds less than what
         * is requested by the Host such that we can return the IO before
         * aborts are called.
         */
        if ((cmd->timeout_per_command / HZ) > QLA_CMD_TIMER_DELTA)
                qla2x00_add_timer_to_cmd(sp,
                    (cmd->timeout_per_command / HZ) - QLA_CMD_TIMER_DELTA);
        else
                qla2x00_add_timer_to_cmd(sp, cmd->timeout_per_command / HZ);

        if (l >= ha->max_luns) {
                cmd->result = DID_NO_CONNECT << 16;
                sp->err_id = SRB_ERR_PORT;

                spin_lock_irq(ha->host->host_lock);

                sp_put(ha, sp);

                return (0);
        }

        if ((tq = (os_tgt_t *) TGT_Q(ha, t)) != NULL &&
            (lq = (os_lun_t *) LUN_Q(ha, t, l)) != NULL) {
                fcport = lq->fclun->fcport;
                ha2 = fcport->ha;
        } else {
                lq = NULL;
                fcport = NULL;
                ha2 = ha;
        }

        /* Set an invalid handle until we issue the command to ISP */
        /* then we will set the real handle value.                 */
        handle = INVALID_HANDLE;
        cmd->host_scribble = (unsigned char *)handle;

        /* Bookkeeping information */
        sp->r_start = jiffies;          /* Time the request was recieved. */
        sp->u_start = 0;

        /* Setup device queue pointers. */
        sp->tgt_queue = tq;
        sp->lun_queue = lq;

        /*
         * NOTE : q is NULL
         *
         * 1. When device is added from persistent binding but has not been
         *    discovered yet.The state of loopid == PORT_AVAIL.
         * 2. When device is never found on the bus.(loopid == UNUSED)
         *
         * IF Device Queue is not created, or device is not in a valid state
         * and link down error reporting is enabled, reject IO.
         */
        if (fcport == NULL) {
                DEBUG3(printk("scsi(%ld:%2d:%2d): port unavailable\n",
                    ha->host_no,t,l));

                cmd->result = DID_NO_CONNECT << 16;
                sp->err_id = SRB_ERR_PORT;

                spin_lock_irq(ha->host->host_lock);

                sp_put(ha, sp);

                return (0);
        }

        /* Only modify the allowed count if the target is a *non* tape device */
        if ((fcport->flags & FCF_TAPE_PRESENT) == 0) {
                sp->flags &= ~SRB_TAPE;
                if (cmd->allowed < ql2xretrycount) {
                        cmd->allowed = ql2xretrycount;
                }
        } else
                sp->flags |= SRB_TAPE;

        DEBUG5(printk("scsi(%ld:%2d:%2d): (queuecmd) queue sp = %p, "
            "flags=0x%x fo retry=%d, pid=%ld\n",
            ha->host_no, t, l, sp, sp->flags, sp->fo_retry_cnt,
            cmd->serial_number));
        DEBUG5(qla2x00_print_scsi_cmd(cmd));

        sp->fclun = lq->fclun;
        sp->ha = ha2;

        if (cmd->sc_data_direction == DMA_BIDIRECTIONAL &&
            cmd->request_bufflen != 0) {

                DEBUG2(printk(KERN_WARNING
                    "scsi(%ld): Incorrect data direction - transfer "
                    "length=%d, direction=%d, pid=%ld, opcode=%x\n",
                    ha->host_no, cmd->request_bufflen, cmd->sc_data_direction,
                    cmd->serial_number, cmd->cmnd[0]));
        }

        /* Final pre-check :
         *
         *      Either PORT_DOWN_TIMER OR LINK_DOWN_TIMER Expired.
         */
        if (atomic_read(&fcport->state) == FCS_DEVICE_DEAD ||
            atomic_read(&ha2->loop_state) == LOOP_DEAD) {
                /*
                 * Add the command to the done-queue for later failover
                 * processing.
                 */
                cmd->result = DID_NO_CONNECT << 16;
                if (atomic_read(&ha2->loop_state) == LOOP_DOWN) 
                        sp->err_id = SRB_ERR_LOOP;
                else
                        sp->err_id = SRB_ERR_PORT;

                add_to_done_queue(ha, sp);
                qla2x00_done(ha);

                spin_lock_irq(ha->host->host_lock);
                return (0);
        }

        if (tq && test_bit(TQF_SUSPENDED, &tq->flags) &&
            (sp->flags & SRB_TAPE) == 0) {
                /* If target suspended put incoming I/O in retry_q. */
                qla2x00_extend_timeout(sp->cmd, 10);
                add_to_scsi_retry_queue(ha, sp);
        } else
                was_empty = add_to_pending_queue(ha, sp);

        if ((IS_QLA2100(ha) || IS_QLA2200(ha)) && ha->flags.online) {
                if (ha->response_ring_ptr->signature != RESPONSE_PROCESSED) {
                        unsigned long flags;

                        spin_lock_irqsave(&ha->hardware_lock, flags);   
                        qla2x00_process_response_queue(ha);
                        spin_unlock_irqrestore(&ha->hardware_lock, flags);
                }
        }

        /* We submit to the hardware if:
         *
         *      1) we're on the cpu the irq's arrive on or
         *      2) there are very few io's outstanding.
         *
         * In all other cases we'll let an irq pick up our IO and submit it
         * to the controller to improve affinity.
         */
        if (_smp_processor_id() == ha->last_irq_cpu || was_empty)
                qla2x00_next(ha);

        spin_lock_irq(ha->host->host_lock);

        return (0);
}

/*
 * qla2x00_eh_wait_on_command
 *    Waits for the command to be returned by the Firmware for some
 *    max time.
 *
 * Input:
 *    ha = actual ha whose done queue will contain the command
 *            returned by firmware.
 *    cmd = Scsi Command to wait on.
 *    flag = Abort/Reset(Bus or Device Reset)
 *
 * Return:
 *    Not Found : 0
 *    Found : 1
 */
static int
qla2x00_eh_wait_on_command(scsi_qla_host_t *ha, struct scsi_cmnd *cmd)
{
#define ABORT_POLLING_PERIOD    HZ
#define ABORT_WAIT_TIME         ((10 * HZ) / (ABORT_POLLING_PERIOD))

        int             found = 0;
        int             done = 0;
        srb_t           *rp = NULL;
        struct list_head *list, *temp;
        u_long          max_wait_time = ABORT_WAIT_TIME;

        do {
                /* Check on done queue */
                spin_lock(&ha->list_lock);
                list_for_each_safe(list, temp, &ha->done_queue) {
                        rp = list_entry(list, srb_t, list);

                        /*
                         * Found command. Just exit and wait for the cmd sent
                         * to OS.
                        */
                        if (cmd == rp->cmd) {
                                found++;
                                DEBUG3(printk("%s: found in done queue.\n",
                                    __func__);)
                                break;
                        }
                }
                spin_unlock(&ha->list_lock);

                /* Complete the cmd right away. */
                if (found) { 
                        qla2x00_delete_from_done_queue(ha, rp);
                        sp_put(ha, rp);
                        done++;
                        break;
                }

                spin_unlock_irq(ha->host->host_lock);

                set_current_state(TASK_UNINTERRUPTIBLE);
                schedule_timeout(ABORT_POLLING_PERIOD);

                spin_lock_irq(ha->host->host_lock);

        } while ((max_wait_time--));

        if (done)
                DEBUG2(printk(KERN_INFO "%s: found cmd=%p.\n", __func__, cmd));

        return (done);
}

/*
 * qla2x00_wait_for_hba_online
 *    Wait till the HBA is online after going through 
 *    <= MAX_RETRIES_OF_ISP_ABORT  or
 *    finally HBA is disabled ie marked offline
 *
 * Input:
 *     ha - pointer to host adapter structure
 * 
 * Note:    
 *    Does context switching-Release SPIN_LOCK
 *    (if any) before calling this routine.
 *
 * Return:
 *    Success (Adapter is online) : 0
 *    Failed  (Adapter is offline/disabled) : 1
 */
static int 
qla2x00_wait_for_hba_online(scsi_qla_host_t *ha)
{
        int      return_status;
        unsigned long wait_online;

        wait_online = jiffies + (MAX_LOOP_TIMEOUT * HZ); 
        while (((test_bit(ISP_ABORT_NEEDED, &ha->dpc_flags)) ||
            test_bit(ABORT_ISP_ACTIVE, &ha->dpc_flags) ||
            test_bit(ISP_ABORT_RETRY, &ha->dpc_flags) ||
            ha->dpc_active) && time_before(jiffies, wait_online)) {

                msleep(1000);
        }
        if (ha->flags.online) 
                return_status = QLA_SUCCESS; 
        else
                return_status = QLA_FUNCTION_FAILED;

        DEBUG2(printk("%s return_status=%d\n",__func__,return_status));

        return (return_status);
}

/*
 * qla2x00_wait_for_loop_ready
 *    Wait for MAX_LOOP_TIMEOUT(5 min) value for loop
 *    to be in LOOP_READY state.         
 * Input:
 *     ha - pointer to host adapter structure
 * 
 * Note:    
 *    Does context switching-Release SPIN_LOCK
 *    (if any) before calling this routine.
 *    
 *
 * Return:
 *    Success (LOOP_READY) : 0
 *    Failed  (LOOP_NOT_READY) : 1
 */
static inline int 
qla2x00_wait_for_loop_ready(scsi_qla_host_t *ha)
{
        int      return_status = QLA_SUCCESS;
        unsigned long loop_timeout ;

        /* wait for 5 min at the max for loop to be ready */
        loop_timeout = jiffies + (MAX_LOOP_TIMEOUT * HZ); 

        while ((!atomic_read(&ha->loop_down_timer) &&
            atomic_read(&ha->loop_state) == LOOP_DOWN) ||
            test_bit(CFG_ACTIVE, &ha->cfg_flags) ||
            atomic_read(&ha->loop_state) != LOOP_READY) {
                msleep(1000);
                if (time_after_eq(jiffies, loop_timeout)) {
                        return_status = QLA_FUNCTION_FAILED;
                        break;
                }
        }
        return (return_status); 
}

/**************************************************************************
* qla2xxx_eh_abort
*
* Description:
*    The abort function will abort the specified command.
*
* Input:
*    cmd = Linux SCSI command packet to be aborted.
*
* Returns:
*    Either SUCCESS or FAILED.
*
* Note:
**************************************************************************/
int
qla2xxx_eh_abort(struct scsi_cmnd *cmd)
{
        int             i;
        int             return_status = FAILED;
        os_lun_t        *q;
        scsi_qla_host_t *ha;
        scsi_qla_host_t *vis_ha;
        srb_t           *sp;
        srb_t           *rp;
        struct list_head *list, *temp;
        struct Scsi_Host *host;
        uint8_t         found = 0;
        unsigned int    b, t, l;

        /* Get the SCSI request ptr */
        sp = (srb_t *) CMD_SP(cmd);

        /*
         * If sp is NULL, command is already returned.
         * sp is NULLED just before we call back scsi_done
         *
         */
        if ((sp == NULL)) {
                /* no action - we don't have command */
                qla_printk(KERN_INFO, to_qla_host(cmd->device->host),
                    "qla2xxx_eh_abort: cmd already done sp=%p\n", sp);
                DEBUG(printk("qla2xxx_eh_abort: cmd already done sp=%p\n", sp);)
                return SUCCESS;
        }
        if (sp) {
                DEBUG(printk("qla2xxx_eh_abort: refcount %i \n",
                    atomic_read(&sp->ref_count));)
        }

        vis_ha = (scsi_qla_host_t *) cmd->device->host->hostdata;
        ha = (scsi_qla_host_t *)cmd->device->host->hostdata;

        host = ha->host;

        /* Generate LU queue on bus, target, LUN */
        b = cmd->device->channel;
        t = cmd->device->id;
        l = cmd->device->lun;
        q = GET_LU_Q(vis_ha, t, l);

        qla_printk(KERN_INFO, ha, 
            "%s scsi(%ld:%d:%d:%d): cmd_timeout_in_sec=0x%x.\n", __func__,
            ha->host_no, (int)b, (int)t, (int)l,
            cmd->timeout_per_command / HZ);

        /*
         * if no LUN queue then something is very wrong!!!
         */
        if (q == NULL) {
                qla_printk(KERN_WARNING, ha,
                        "qla2x00: (%x:%x:%x) No LUN queue.\n", b, t, l);

                /* no action - we don't have command */
                return FAILED;
        }

        DEBUG2(printk("scsi(%ld): ABORTing cmd=%p sp=%p jiffies = 0x%lx, "
            "timeout=%x, dpc_flags=%lx, vis_ha->dpc_flags=%lx q->flag=%lx\n",
            ha->host_no, cmd, sp, jiffies, cmd->timeout_per_command / HZ,
            ha->dpc_flags, vis_ha->dpc_flags, q->q_flag));
        DEBUG2(qla2x00_print_scsi_cmd(cmd));

        spin_unlock_irq(ha->host->host_lock);
        if (qla2x00_wait_for_hba_online(ha) != QLA_SUCCESS) {
                DEBUG2(printk("%s failed:board disabled\n", __func__);)
                spin_lock_irq(ha->host->host_lock);
                return FAILED;
        }
        spin_lock_irq(ha->host->host_lock);

        /* Search done queue */
        spin_lock(&ha->list_lock);
        list_for_each_safe(list, temp, &ha->done_queue) {
                rp = list_entry(list, srb_t, list);

                if (cmd != rp->cmd)
                        continue;

                /*
                 * Found command.Remove it from done list.
                 * And proceed to post completion to scsi mid layer.
                 */
                return_status = SUCCESS;
                found++;
                qla2x00_delete_from_done_queue(ha, sp);

                break;
        } /* list_for_each_safe() */
        spin_unlock(&ha->list_lock);

        /*
         * Return immediately if the aborted command was already in the done
         * queue
         */
        if (found) {
                qla_printk(KERN_INFO, ha,
                    "qla2xxx_eh_abort: Returning completed command=%p sp=%p\n",
                    cmd, sp);
                sp_put(ha, sp);
                return (return_status);
        }
        

        /*
         * See if this command is in the retry queue
         */
        DEBUG3(printk("qla2xxx_eh_abort: searching sp %p in retry "
                    "queue.\n", sp);)

        spin_lock(&ha->list_lock);
        list_for_each_safe(list, temp, &ha->retry_queue) {
                rp = list_entry(list, srb_t, list);

                if (cmd != rp->cmd)
                        continue;


                DEBUG2(printk("qla2xxx_eh_abort: found "
                    "in retry queue. SP=%p\n", sp);)

                __del_from_retry_queue(ha, rp);
                cmd->result = DID_ABORT << 16;
                __add_to_done_queue(ha, rp);

                return_status = SUCCESS;
                found++;

                break;

        } 
        spin_unlock(&ha->list_lock);


        /*
         * Our SP pointer points at the command we want to remove from the
         * pending queue providing we haven't already sent it to the adapter.
         */
        if (!found) {
                DEBUG3(printk("qla2xxx_eh_abort: searching sp %p "
                    "in pending queue.\n", sp);)

                spin_lock(&vis_ha->list_lock);
                list_for_each_safe(list, temp, &vis_ha->pending_queue) {
                        rp = list_entry(list, srb_t, list);

                        if (rp->cmd != cmd)
                                continue;

                        /* Remove srb from LUN queue. */
                        rp->flags |=  SRB_ABORTED;

                        DEBUG2(printk("qla2xxx_eh_abort: Cmd in pending queue."
                            " serial_number %ld.\n",
                            sp->cmd->serial_number);)

                        __del_from_pending_queue(vis_ha, rp);
                        cmd->result = DID_ABORT << 16;

                        __add_to_done_queue(vis_ha, rp);

                        return_status = SUCCESS;

                        found++;
                        break;
                } /* list_for_each_safe() */
                spin_unlock(&vis_ha->list_lock);
        } /*End of if !found */

        if (!found) {  /* find the command in our active list */
                DEBUG3(printk("qla2xxx_eh_abort: searching sp %p "
                    "in outstanding queue.\n", sp);)

                spin_lock(&ha->hardware_lock);
                for (i = 1; i < MAX_OUTSTANDING_COMMANDS; i++) {
                        sp = ha->outstanding_cmds[i];

                        if (sp == NULL)
                                continue;

                        if (sp->cmd != cmd)
                                continue;

                        DEBUG2(printk("qla2xxx_eh_abort(%ld): aborting sp %p "
                            "from RISC. pid=%ld sp->state=%x q->q_flag=%lx\n",
                            ha->host_no, sp, sp->cmd->serial_number,
                            sp->state, q->q_flag);)
                        DEBUG(qla2x00_print_scsi_cmd(cmd);)

                        /* Get a reference to the sp and drop the lock.*/
                        sp_get(ha, sp);

                        spin_unlock(&ha->hardware_lock);
                        spin_unlock_irq(ha->host->host_lock);

                        if (qla2x00_abort_command(ha, sp)) {
                                DEBUG2(printk("qla2xxx_eh_abort: abort_command "
                                    "mbx failed.\n");)
                                return_status = FAILED;
                        } else {
                                DEBUG3(printk("qla2xxx_eh_abort: abort_command "
                                    " mbx success.\n");)
                                return_status = SUCCESS;
                        }

                        sp_put(ha,sp);

                        spin_lock_irq(ha->host->host_lock);
                        spin_lock(&ha->hardware_lock);

                        /*
                         * Regardless of mailbox command status, go check on
                         * done queue just in case the sp is already done.
                         */
                        break;

                }/*End of for loop */
                spin_unlock(&ha->hardware_lock);

        } /*End of if !found */

        /* Waiting for our command in done_queue to be returned to OS.*/
        if (qla2x00_eh_wait_on_command(ha, cmd) != 0) {
                DEBUG2(printk("qla2xxx_eh_abort: cmd returned back to OS.\n");)
                return_status = SUCCESS;
        }

        if (return_status == FAILED) {
                qla_printk(KERN_INFO, ha, 
                        "qla2xxx_eh_abort Exiting: status=Failed\n");
                return FAILED;
        }

        DEBUG2(printk("qla2xxx_eh_abort: Exiting. return_status=0x%x.\n",
            return_status));

        return return_status;
}

/**************************************************************************
* qla2x00_eh_wait_for_pending_target_commands
*
* Description:
*    Waits for all the commands to come back from the specified target.
*
* Input:
*    ha - pointer to scsi_qla_host structure.
*    t  - target        
* Returns:
*    Either SUCCESS or FAILED.
*
* Note:
**************************************************************************/
static int
qla2x00_eh_wait_for_pending_target_commands(scsi_qla_host_t *ha, unsigned int t)
{
        int     cnt;
        int     status;
        srb_t           *sp;
        struct scsi_cmnd *cmd;

        status = 0;

        /*
         * Waiting for all commands for the designated target in the active
         * array
         */
        for (cnt = 1; cnt < MAX_OUTSTANDING_COMMANDS; cnt++) {
                spin_lock(&ha->hardware_lock);
                sp = ha->outstanding_cmds[cnt];
                if (sp) {
                        cmd = sp->cmd;
                        spin_unlock(&ha->hardware_lock);
                        if (cmd->device->id == t) {
                                if (!qla2x00_eh_wait_on_command(ha, cmd)) {
                                        status = 1;
                                        break;
                                }
                        }
                }
                else {
                        spin_unlock(&ha->hardware_lock);
                }
        }
        return (status);
}


/**************************************************************************
* qla2xxx_eh_device_reset
*
* Description:
*    The device reset function will reset the target and abort any
*    executing commands.
*
*    NOTE: The use of SP is undefined within this context.  Do *NOT*
*          attempt to use this value, even if you determine it is 
*          non-null.
*
* Input:
*    cmd = Linux SCSI command packet of the command that cause the
*          bus device reset.
*
* Returns:
*    SUCCESS/FAILURE (defined as macro in scsi.h).
*
**************************************************************************/
int
qla2xxx_eh_device_reset(struct scsi_cmnd *cmd)
{
        int             return_status;
        unsigned int    b, t, l;
        scsi_qla_host_t *ha;
        os_tgt_t        *tq;
        os_lun_t        *lq;
        fc_port_t       *fcport_to_reset;
        srb_t           *rp;
        struct list_head *list, *temp;

        return_status = FAILED;
        if (cmd == NULL) {
                printk(KERN_INFO
                    "%s(): **** SCSI mid-layer passing in NULL cmd\n",
                    __func__);

                return (return_status);
        }

        b = cmd->device->channel;
        t = cmd->device->id;
        l = cmd->device->lun;
        ha = (scsi_qla_host_t *)cmd->device->host->hostdata;

        tq = TGT_Q(ha, t);
        if (tq == NULL) {
                qla_printk(KERN_INFO, ha,
                    "%s(): **** CMD derives a NULL TGT_Q\n", __func__);

                return (return_status);
        }
        lq = (os_lun_t *)LUN_Q(ha, t, l);
        if (lq == NULL) {
                printk(KERN_INFO
                    "%s(): **** CMD derives a NULL LUN_Q\n", __func__);

                return (return_status);
        }
        fcport_to_reset = lq->fclun->fcport;

        /* If we are coming in from the back-door, stall I/O until complete. */
        if (!cmd->device->host->eh_active)
                set_bit(TQF_SUSPENDED, &tq->flags);

        qla_printk(KERN_INFO, ha,
            "scsi(%ld:%d:%d:%d): DEVICE RESET ISSUED.\n", ha->host_no, b, t, l);

        DEBUG2(printk(KERN_INFO
            "scsi(%ld): DEVICE_RESET cmd=%p jiffies = 0x%lx, timeout=%x, "
            "dpc_flags=%lx, status=%x allowed=%d cmd.state=%x\n",
            ha->host_no, cmd, jiffies, cmd->timeout_per_command / HZ,
            ha->dpc_flags, cmd->result, cmd->allowed, cmd->state));

        /* Clear commands from the retry queue. */
        spin_lock(&ha->list_lock);
        list_for_each_safe(list, temp, &ha->retry_queue) {
                rp = list_entry(list, srb_t, list);
 
                if (t != rp->cmd->device->id) 
                        continue;
 
                DEBUG2(printk(KERN_INFO
                    "qla2xxx_eh_reset: found in retry queue. SP=%p\n", rp));
 
                __del_from_retry_queue(ha, rp);
                rp->cmd->result = DID_RESET << 16;
                __add_to_done_queue(ha, rp);
        }
        spin_unlock(&ha->list_lock);

        spin_unlock_irq(ha->host->host_lock);

        if (qla2x00_wait_for_hba_online(ha) != QLA_SUCCESS) {
                DEBUG2(printk(KERN_INFO
                    "%s failed:board disabled\n",__func__));

                spin_lock_irq(ha->host->host_lock);
                goto eh_dev_reset_done;
        }

        if (qla2x00_wait_for_loop_ready(ha) == QLA_SUCCESS) {
                if (qla2x00_device_reset(ha, fcport_to_reset) == 0) {
                        return_status = SUCCESS;
                }

#if defined(LOGOUT_AFTER_DEVICE_RESET)
                if (return_status == SUCCESS) {
                        if (fcport_to_reset->flags & FC_FABRIC_DEVICE) {
                                qla2x00_fabric_logout(ha,
                                    fcport_to_reset->loop_id);
                                qla2x00_mark_device_lost(ha, fcport_to_reset);
                        }
                }
#endif
        } else {
                DEBUG2(printk(KERN_INFO
                    "%s failed: loop not ready\n",__func__);)
        }

        spin_lock_irq(ha->host->host_lock);

        if (return_status == FAILED) {
                DEBUG3(printk("%s(%ld): device reset failed\n",
                    __func__, ha->host_no));
                qla_printk(KERN_INFO, ha, "%s: device reset failed\n",
                    __func__);

                goto eh_dev_reset_done;
        }

        /*
         * If we are coming down the EH path, wait for all commands to
         * complete for the device.
         */
        if (cmd->device->host->eh_active) {
                if (qla2x00_eh_wait_for_pending_target_commands(ha, t))
                        return_status = FAILED;

                if (return_status == FAILED) {
                        DEBUG3(printk("%s(%ld): failed while waiting for "
                            "commands\n", __func__, ha->host_no));
                        qla_printk(KERN_INFO, ha,
                            "%s: failed while waiting for commands\n",
                            __func__); 

                        goto eh_dev_reset_done;
                }
        }

        qla_printk(KERN_INFO, ha,
            "scsi(%ld:%d:%d:%d): DEVICE RESET SUCCEEDED.\n",
            ha->host_no, b, t, l);

eh_dev_reset_done:

        if (!cmd->device->host->eh_active)
                clear_bit(TQF_SUSPENDED, &tq->flags);

        return (return_status);
}

/**************************************************************************
* qla2x00_eh_wait_for_pending_commands
*
* Description:
*    Waits for all the commands to come back from the specified host.
*
* Input:
*    ha - pointer to scsi_qla_host structure.
*
* Returns:
*    1 : SUCCESS
*    0 : FAILED
*
* Note:
**************************************************************************/
static int
qla2x00_eh_wait_for_pending_commands(scsi_qla_host_t *ha)
{
        int     cnt;
        int     status;
        srb_t           *sp;
        struct scsi_cmnd *cmd;

        status = 1;

        /*
         * Waiting for all commands for the designated target in the active
         * array
         */
        for (cnt = 1; cnt < MAX_OUTSTANDING_COMMANDS; cnt++) {
                spin_lock(&ha->hardware_lock);
                sp = ha->outstanding_cmds[cnt];
                if (sp) {
                        cmd = sp->cmd;
                        spin_unlock(&ha->hardware_lock);
                        status = qla2x00_eh_wait_on_command(ha, cmd);
                        if (status == 0)
                                break;
                }
                else {
                        spin_unlock(&ha->hardware_lock);
                }
        }
        return (status);
}


/**************************************************************************
* qla2xxx_eh_bus_reset
*
* Description:
*    The bus reset function will reset the bus and abort any executing
*    commands.
*
* Input:
*    cmd = Linux SCSI command packet of the command that cause the
*          bus reset.
*
* Returns:
*    SUCCESS/FAILURE (defined as macro in scsi.h).
*
**************************************************************************/
int
qla2xxx_eh_bus_reset(struct scsi_cmnd *cmd)
{
        scsi_qla_host_t *ha;
        srb_t *sp;
        int rval = FAILED;

        ha = (scsi_qla_host_t *) cmd->device->host->hostdata;
        sp = (srb_t *) CMD_SP(cmd);

        qla_printk(KERN_INFO, ha,
            "scsi(%ld:%d:%d:%d): LOOP RESET ISSUED.\n", ha->host_no,
            cmd->device->channel, cmd->device->id, cmd->device->lun);

        spin_unlock_irq(ha->host->host_lock);

        if (qla2x00_wait_for_hba_online(ha) != QLA_SUCCESS) {
                DEBUG2(printk("%s failed:board disabled\n",__func__));
                spin_lock_irq(ha->host->host_lock);
                return FAILED;
        }

        if (qla2x00_wait_for_loop_ready(ha) == QLA_SUCCESS) {
                if (qla2x00_loop_reset(ha) == QLA_SUCCESS) 
                        rval = SUCCESS;
        }

        spin_lock_irq(ha->host->host_lock);
        if (rval == FAILED)
                goto out;

        /* Waiting for our command in done_queue to be returned to OS.*/
        if (cmd->device->host->eh_active)
                if (!qla2x00_eh_wait_for_pending_commands(ha))
                        rval = FAILED;

 out:
        qla_printk(KERN_INFO, ha, "%s: reset %s\n", __func__,
                        (rval == FAILED) ? "failed" : "succeded");

        return rval;
}

/**************************************************************************
* qla2xxx_eh_host_reset
*
* Description:
*    The reset function will reset the Adapter.
*
* Input:
*      cmd = Linux SCSI command packet of the command that cause the
*            adapter reset.
*
* Returns:
*      Either SUCCESS or FAILED.
*
* Note:
**************************************************************************/
int
qla2xxx_eh_host_reset(struct scsi_cmnd *cmd)
{
        scsi_qla_host_t *ha = (scsi_qla_host_t *)cmd->device->host->hostdata;
        int             rval = SUCCESS;

        /* Display which one we're actually resetting for debug. */
        DEBUG(printk("qla2xxx_eh_host_reset:Resetting scsi(%ld).\n",
            ha->host_no));

        /*
         *  Now issue reset.
         */
        qla_printk(KERN_INFO, ha,
            "scsi(%ld:%d:%d:%d): ADAPTER RESET issued.\n", ha->host_no,
            cmd->device->channel, cmd->device->id, cmd->device->lun);

        spin_unlock_irq(ha->host->host_lock);

        if (qla2x00_wait_for_hba_online(ha) != QLA_SUCCESS)
                goto board_disabled;

        /*
         * Fixme-may be dpc thread is active and processing
         * loop_resync,so wait a while for it to 
         * be completed and then issue big hammer.Otherwise
         * it may cause I/O failure as big hammer marks the
         * devices as lost kicking of the port_down_timer
         * while dpc is stuck for the mailbox to complete.
         */
        /* Blocking call-Does context switching if loop is Not Ready */
        qla2x00_wait_for_loop_ready(ha);
        set_bit(ABORT_ISP_ACTIVE, &ha->dpc_flags);
        if (qla2x00_abort_isp(ha)) {
                clear_bit(ABORT_ISP_ACTIVE, &ha->dpc_flags);
                /* failed. schedule dpc to try */
                set_bit(ISP_ABORT_NEEDED, &ha->dpc_flags);

                if (qla2x00_wait_for_hba_online(ha) != QLA_SUCCESS)
                        goto board_disabled;
        } 

        clear_bit(ABORT_ISP_ACTIVE, &ha->dpc_flags);

        spin_lock_irq(ha->host->host_lock);
        if (rval == FAILED)
                goto out;

        /* Waiting for our command in done_queue to be returned to OS.*/
        if (!qla2x00_eh_wait_for_pending_commands(ha))
                rval = FAILED;

 out:
        qla_printk(KERN_INFO, ha, "%s: reset %s\n", __func__,
                        (rval == FAILED) ? "failed" : "succeded");

        return rval;

 board_disabled:
        spin_lock_irq(ha->host->host_lock);

        qla_printk(KERN_INFO, ha, "%s: failed:board disabled\n", __func__);
        return FAILED;
}


/*
* qla2x00_loop_reset
*      Issue loop reset.
*
* Input:
*      ha = adapter block pointer.
*
* Returns:
*      0 = success
*/
static int
qla2x00_loop_reset(scsi_qla_host_t *ha)
{
        int status = QLA_SUCCESS;
        uint16_t t;
        os_tgt_t        *tq;

        if (ha->flags.enable_lip_reset) {
                status = qla2x00_lip_reset(ha);
        }

        if (status == QLA_SUCCESS && ha->flags.enable_target_reset) {
                for (t = 0; t < MAX_FIBRE_DEVICES; t++) {
                        if ((tq = TGT_Q(ha, t)) == NULL)
                                continue;

                        if (tq->fcport == NULL)
                                continue;

                        status = qla2x00_target_reset(ha, 0, t);
                        if (status != QLA_SUCCESS) {
                                break;
                        }
                }
        }

        if (status == QLA_SUCCESS &&
                ((!ha->flags.enable_target_reset && 
                  !ha->flags.enable_lip_reset) ||
                ha->flags.enable_lip_full_login)) {

                status = qla2x00_full_login_lip(ha);
        }

        /* Issue marker command only when we are going to start the I/O */
        ha->marker_needed = 1;

        if (status) {
                /* Empty */
                DEBUG2_3(printk("%s(%ld): **** FAILED ****\n",
                                __func__,
                                ha->host_no);)
        } else {
                /* Empty */
                DEBUG3(printk("%s(%ld): exiting normally.\n",
                                __func__,
                                ha->host_no);)
        }

        return(status);
}

/*
 * qla2x00_device_reset
 *      Issue bus device reset message to the target.
 *
 * Input:
 *      ha = adapter block pointer.
 *      t = SCSI ID.
 *      TARGET_QUEUE_LOCK must be released.
 *      ADAPTER_STATE_LOCK must be released.
 *
 * Context:
 *      Kernel context.
 */
static int
qla2x00_device_reset(scsi_qla_host_t *ha, fc_port_t *reset_fcport)
{
        /* Abort Target command will clear Reservation */
        return qla2x00_abort_target(reset_fcport);
}

/**************************************************************************
* qla2xxx_slave_configure
*
* Description:
**************************************************************************/
int
qla2xxx_slave_configure(struct scsi_device *sdev)
{
        scsi_qla_host_t *ha = to_qla_host(sdev->host);
        int queue_depth;

        if (IS_QLA2100(ha) || IS_QLA2200(ha))
                queue_depth = 16;
        else
                queue_depth = 32;

        if (sdev->tagged_supported) {
                if (ql2xmaxqdepth != 0 && ql2xmaxqdepth <= 0xffffU)
                        queue_depth = ql2xmaxqdepth;

                ql2xmaxqdepth = queue_depth;

                scsi_activate_tcq(sdev, queue_depth);

                qla_printk(KERN_INFO, ha,
                    "scsi(%d:%d:%d:%d): Enabled tagged queuing, queue "
                    "depth %d.\n",
                    sdev->host->host_no, sdev->channel, sdev->id, sdev->lun,
                    sdev->queue_depth);
        } else {
                 scsi_adjust_queue_depth(sdev, 0 /* TCQ off */,
                     sdev->host->hostt->cmd_per_lun /* 3 */);
        }

        return (0);
}

/**
 * qla2x00_config_dma_addressing() - Configure OS DMA addressing method.
 * @ha: HA context
 *
 * At exit, the @ha's flags.enable_64bit_addressing set to indicated
 * supported addressing method.
 */
static void
qla2x00_config_dma_addressing(scsi_qla_host_t *ha)
{
        /* Assume 32bit DMA address */
        ha->flags.enable_64bit_addressing = 0;
        ha->calc_request_entries = qla2x00_calc_iocbs_32;
        ha->build_scsi_iocbs = qla2x00_build_scsi_iocbs_32;

        /*
         * Given the two variants pci_set_dma_mask(), allow the compiler to
         * assist in setting the proper dma mask.
         */
        if (sizeof(dma_addr_t) > 4) {
                if (pci_set_dma_mask(ha->pdev, DMA_64BIT_MASK) == 0) {
                        ha->flags.enable_64bit_addressing = 1;
                        ha->calc_request_entries = qla2x00_calc_iocbs_64;
                        ha->build_scsi_iocbs = qla2x00_build_scsi_iocbs_64;

                        if (pci_set_consistent_dma_mask(ha->pdev,
                            DMA_64BIT_MASK)) {
                                qla_printk(KERN_DEBUG, ha, 
                                    "Failed to set 64 bit PCI consistent mask; "
                                    "using 32 bit.\n");
                                pci_set_consistent_dma_mask(ha->pdev,
                                    DMA_32BIT_MASK);
                        }
                } else {
                        qla_printk(KERN_DEBUG, ha,
                            "Failed to set 64 bit PCI DMA mask, falling back "
                            "to 32 bit MASK.\n");
                        pci_set_dma_mask(ha->pdev, DMA_32BIT_MASK);
                }
        } else {
                pci_set_dma_mask(ha->pdev, DMA_32BIT_MASK);
        }
}

static int
qla2x00_iospace_config(scsi_qla_host_t *ha)
{
        unsigned long   pio, pio_len, pio_flags;
        unsigned long   mmio, mmio_len, mmio_flags;

        /* We only need PIO for Flash operations on ISP2312 v2 chips. */
        pio = pci_resource_start(ha->pdev, 0);
        pio_len = pci_resource_len(ha->pdev, 0);
        pio_flags = pci_resource_flags(ha->pdev, 0);
        if (pio_flags & IORESOURCE_IO) {
                if (pio_len < MIN_IOBASE_LEN) {
                        qla_printk(KERN_WARNING, ha,
                            "Invalid PCI I/O region size (%s)...\n",
                                pci_name(ha->pdev));
                        pio = 0;
                }
        } else {
                qla_printk(KERN_WARNING, ha,
                    "region #0 not a PIO resource (%s)...\n",
                    pci_name(ha->pdev));
                pio = 0;
        }

        /* Use MMIO operations for all accesses. */
        mmio = pci_resource_start(ha->pdev, 1);
        mmio_len = pci_resource_len(ha->pdev, 1);
        mmio_flags = pci_resource_flags(ha->pdev, 1);

        if (!(mmio_flags & IORESOURCE_MEM)) {
                qla_printk(KERN_ERR, ha,
                    "region #0 not an MMIO resource (%s), aborting\n",
                    pci_name(ha->pdev));
                goto iospace_error_exit;
        }
        if (mmio_len < MIN_IOBASE_LEN) {
                qla_printk(KERN_ERR, ha,
                    "Invalid PCI mem region size (%s), aborting\n",
                        pci_name(ha->pdev));
                goto iospace_error_exit;
        }

        if (pci_request_regions(ha->pdev, ha->brd_info->drv_name)) {
                qla_printk(KERN_WARNING, ha,
                    "Failed to reserve PIO/MMIO regions (%s)\n",
                    pci_name(ha->pdev));

                goto iospace_error_exit;
        }

        ha->pio_address = pio;
        ha->pio_length = pio_len;
        ha->iobase = ioremap(mmio, MIN_IOBASE_LEN);
        if (!ha->iobase) {
                qla_printk(KERN_ERR, ha,
                    "cannot remap MMIO (%s), aborting\n", pci_name(ha->pdev));

                goto iospace_error_exit;
        }

        return (0);

iospace_error_exit:
        return (-ENOMEM);
}

/*
 * PCI driver interface
 */
int qla2x00_probe_one(struct pci_dev *pdev, struct qla_board_info *brd_info)
{
        int     ret;
        device_reg_t __iomem *reg;
        struct Scsi_Host *host;
        scsi_qla_host_t *ha;
        unsigned long   flags = 0;
        unsigned long   wait_switch = 0;
        char pci_info[20];
        char fw_str[30];

        if (pci_enable_device(pdev))
                return -1;

        host = scsi_host_alloc(&qla2x00_driver_template,
            sizeof(scsi_qla_host_t));
        if (host == NULL) {
                printk(KERN_WARNING
                    "qla2xxx: Couldn't allocate host from scsi layer!\n");
                goto probe_disable_device;
        }

        /* Clear our data area */
        ha = (scsi_qla_host_t *)host->hostdata;
        memset(ha, 0, sizeof(scsi_qla_host_t));

        ha->pdev = pdev;
        ha->host = host;
        ha->host_no = host->host_no;
        ha->brd_info = brd_info;
        sprintf(ha->host_str, "%s_%ld", ha->brd_info->drv_name, ha->host_no);

        /* Configure PCI I/O space */
        ret = qla2x00_iospace_config(ha);
        if (ret != 0) {
                goto probe_failed;
        }

        /* Sanitize the information from PCI BIOS. */
        host->irq = pdev->irq;

        qla_printk(KERN_INFO, ha,
            "Found an %s, irq %d, iobase 0x%p\n", ha->brd_info->isp_name,
            host->irq, ha->iobase);

        spin_lock_init(&ha->hardware_lock);

        /* 4.23 Initialize /proc/scsi/qla2x00 counters */
        ha->actthreads = 0;
        ha->qthreads   = 0;
        ha->total_isr_cnt = 0;
        ha->total_isp_aborts = 0;
        ha->total_lip_cnt = 0;
        ha->total_dev_errs = 0;
        ha->total_ios = 0;
        ha->total_bytes = 0;

        ha->prev_topology = 0;
        ha->ports = MAX_BUSES;

        if (IS_QLA2100(ha)) {
                ha->max_targets = MAX_TARGETS_2100;
                ha->mbx_count = MAILBOX_REGISTER_COUNT_2100;
                ha->request_q_length = REQUEST_ENTRY_CNT_2100;
                ha->response_q_length = RESPONSE_ENTRY_CNT_2100;
                ha->last_loop_id = SNS_LAST_LOOP_ID_2100;
                host->sg_tablesize = 32;
        } else if (IS_QLA2200(ha)) {
                ha->max_targets = MAX_TARGETS_2200;
                ha->mbx_count = MAILBOX_REGISTER_COUNT;
                ha->request_q_length = REQUEST_ENTRY_CNT_2200;
                ha->response_q_length = RESPONSE_ENTRY_CNT_2100;
                ha->last_loop_id = SNS_LAST_LOOP_ID_2100;
        } else /*if (IS_QLA2300(ha))*/ {
                ha->max_targets = MAX_TARGETS_2200;
                ha->mbx_count = MAILBOX_REGISTER_COUNT;
                ha->request_q_length = REQUEST_ENTRY_CNT_2200;
                ha->response_q_length = RESPONSE_ENTRY_CNT_2300;
                ha->last_loop_id = SNS_LAST_LOOP_ID_2300;
        }
        host->can_queue = ha->request_q_length + 128;

        /* load the F/W, read paramaters, and init the H/W */
        ha->instance = num_hosts;

        init_MUTEX(&ha->mbx_cmd_sem);
        init_MUTEX_LOCKED(&ha->mbx_intr_sem);

        INIT_LIST_HEAD(&ha->list);
        INIT_LIST_HEAD(&ha->fcports);
        INIT_LIST_HEAD(&ha->rscn_fcports);
        INIT_LIST_HEAD(&ha->done_queue);
        INIT_LIST_HEAD(&ha->retry_queue);
        INIT_LIST_HEAD(&ha->scsi_retry_queue);
        INIT_LIST_HEAD(&ha->pending_queue);

        /*
         * These locks are used to prevent more than one CPU
         * from modifying the queue at the same time. The
         * higher level "host_lock" will reduce most
         * contention for these locks.
         */
        spin_lock_init(&ha->mbx_reg_lock);
        spin_lock_init(&ha->list_lock);

        ha->dpc_pid = -1;
        init_completion(&ha->dpc_inited);
        init_completion(&ha->dpc_exited);

        qla2x00_config_dma_addressing(ha);
        if (qla2x00_mem_alloc(ha)) {
                qla_printk(KERN_WARNING, ha,
                    "[ERROR] Failed to allocate memory for adapter\n");

                goto probe_failed;
        }

        if (qla2x00_initialize_adapter(ha) &&
            !(ha->device_flags & DFLG_NO_CABLE)) {

                qla_printk(KERN_WARNING, ha,
                    "Failed to initialize adapter\n");

                DEBUG2(printk("scsi(%ld): Failed to initialize adapter - "
                    "Adapter flags %x.\n",
                    ha->host_no, ha->device_flags));

                goto probe_failed;
        }

        /*
         * Startup the kernel thread for this host adapter
         */
        ha->dpc_should_die = 0;
        ha->dpc_pid = kernel_thread(qla2x00_do_dpc, ha, 0);
        if (ha->dpc_pid < 0) {
                qla_printk(KERN_WARNING, ha,
                    "Unable to start DPC thread!\n");

                goto probe_failed;
        }
        wait_for_completion(&ha->dpc_inited);

        host->this_id = 255;
        host->cmd_per_lun = 3;
        host->max_cmd_len = MAX_CMDSZ;
        host->max_channel = ha->ports - 1;
        host->max_lun = ha->max_luns;
        BUG_ON(qla2xxx_transport_template == NULL);
        host->transportt = qla2xxx_transport_template;
        host->unique_id = ha->instance;
        host->max_id = ha->max_targets;

        if (IS_QLA2100(ha) || IS_QLA2200(ha))
                ret = request_irq(host->irq, qla2100_intr_handler,
                    SA_INTERRUPT|SA_SHIRQ, ha->brd_info->drv_name, ha);
        else
                ret = request_irq(host->irq, qla2300_intr_handler,
                    SA_INTERRUPT|SA_SHIRQ, ha->brd_info->drv_name, ha);
        if (ret != 0) {
                qla_printk(KERN_WARNING, ha,
                    "Failed to reserve interrupt %d already in use.\n",
                    host->irq);
                goto probe_failed;
        }

        /* Initialized the timer */
        qla2x00_start_timer(ha, qla2x00_timer, WATCH_INTERVAL);

        DEBUG2(printk("DEBUG: detect hba %ld at address = %p\n",
            ha->host_no, ha));

        reg = ha->iobase;

        /* Disable ISP interrupts. */
        qla2x00_disable_intrs(ha);

        /* Ensure mailbox registers are free. */
        spin_lock_irqsave(&ha->hardware_lock, flags);
        WRT_REG_WORD(&reg->semaphore, 0);
        WRT_REG_WORD(&reg->hccr, HCCR_CLR_RISC_INT);
        WRT_REG_WORD(&reg->hccr, HCCR_CLR_HOST_INT);

        /* Enable proper parity */
        if (!IS_QLA2100(ha) && !IS_QLA2200(ha)) {
                if (IS_QLA2300(ha))
                        /* SRAM parity */
                        WRT_REG_WORD(&reg->hccr, (HCCR_ENABLE_PARITY + 0x1));
                else
                        /* SRAM, Instruction RAM and GP RAM parity */
                        WRT_REG_WORD(&reg->hccr, (HCCR_ENABLE_PARITY + 0x7));
        }
        spin_unlock_irqrestore(&ha->hardware_lock, flags);

        /* Enable chip interrupts. */
        qla2x00_enable_intrs(ha);

        /* v2.19.5b6 */
        /*
         * Wait around max loop_reset_delay secs for the devices to come
         * on-line. We don't want Linux scanning before we are ready.
         *
         */
        for (wait_switch = jiffies + (ha->loop_reset_delay * HZ);
            time_before(jiffies,wait_switch) &&
             !(ha->device_flags & (DFLG_NO_CABLE | DFLG_FABRIC_DEVICES))
             && (ha->device_flags & SWITCH_FOUND) ;) {

                qla2x00_check_fabric_devices(ha);

                msleep(10);
        }

        pci_set_drvdata(pdev, ha);
        ha->flags.init_done = 1;
        num_hosts++;

        /* List the target we have found */
        if (displayConfig) {
                qla2x00_display_fc_names(ha);
        }

        if (scsi_add_host(host, &pdev->dev))
                goto probe_failed;

        sysfs_create_bin_file(&host->shost_gendev.kobj, &sysfs_fw_dump_attr);
        sysfs_create_bin_file(&host->shost_gendev.kobj, &sysfs_nvram_attr);

        qla_printk(KERN_INFO, ha, "\n"
            " QLogic Fibre Channel HBA Driver: %s\n"
            "  QLogic %s - %s\n"
            "  %s: %s @ %s hdma%c, host#=%ld, fw=%s\n", qla2x00_version_str,
            ha->model_number, ha->model_desc ? ha->model_desc: "",
            ha->brd_info->isp_name, qla2x00_get_pci_info_str(ha, pci_info),
            pci_name(ha->pdev), ha->flags.enable_64bit_addressing ? '+': '-',
            ha->host_no, qla2x00_get_fw_version_str(ha, fw_str));

        if (ql2xdoinitscan)
                scsi_scan_host(host);

        return 0;

probe_failed:
        qla2x00_free_device(ha);

        scsi_host_put(host);

probe_disable_device:
        pci_disable_device(pdev);

        return -1;
}
EXPORT_SYMBOL_GPL(qla2x00_probe_one);

void qla2x00_remove_one(struct pci_dev *pdev)
{
        scsi_qla_host_t *ha;

        ha = pci_get_drvdata(pdev);

        sysfs_remove_bin_file(&ha->host->shost_gendev.kobj,
            &sysfs_fw_dump_attr);
        sysfs_remove_bin_file(&ha->host->shost_gendev.kobj, &sysfs_nvram_attr);

        scsi_remove_host(ha->host);

        qla2x00_free_device(ha);

        scsi_host_put(ha->host);

        pci_set_drvdata(pdev, NULL);
}
EXPORT_SYMBOL_GPL(qla2x00_remove_one);

static void
qla2x00_free_device(scsi_qla_host_t *ha)
{
        int ret;

        /* Abort any outstanding IO descriptors. */
        if (!IS_QLA2100(ha) && !IS_QLA2200(ha))
                qla2x00_cancel_io_descriptors(ha);

        /* turn-off interrupts on the card */
        if (ha->interrupts_on)
                qla2x00_disable_intrs(ha);

        /* Disable timer */
        if (ha->timer_active)
                qla2x00_stop_timer(ha);

        /* Kill the kernel thread for this host */
        if (ha->dpc_pid >= 0) {
                ha->dpc_should_die = 1;
                wmb();
                ret = kill_proc(ha->dpc_pid, SIGHUP, 1);
                if (ret) {
                        qla_printk(KERN_ERR, ha,
                            "Unable to signal DPC thread -- (%d)\n", ret);

                        /* TODO: SOMETHING MORE??? */
                } else {
                        wait_for_completion(&ha->dpc_exited);
                }
        }

        qla2x00_mem_free(ha);


        ha->flags.online = 0;

        /* Detach interrupts */
        if (ha->pdev->irq)
                free_irq(ha->pdev->irq, ha);

        /* release io space registers  */
        if (ha->iobase)
                iounmap(ha->iobase);
        pci_release_regions(ha->pdev);

        pci_disable_device(ha->pdev);
}


/*
 * The following support functions are adopted to handle
 * the re-entrant qla2x00_proc_info correctly.
 */
static void
copy_mem_info(struct info_str *info, char *data, int len)
{
        if (info->pos + len > info->offset + info->length)
                len = info->offset + info->length - info->pos;

        if (info->pos + len < info->offset) {
                info->pos += len;
                return;
        }
 
        if (info->pos < info->offset) {
                off_t partial;
 
                partial = info->offset - info->pos;
                data += partial;
                info->pos += partial;
                len  -= partial;
        }
 
        if (len > 0) {
                memcpy(info->buffer, data, len);
                info->pos += len;
                info->buffer += len;
        }
}

static int
copy_info(struct info_str *info, char *fmt, ...)
{
        va_list args;
        char buf[256];
        int len;
 
        va_start(args, fmt);
        len = vsprintf(buf, fmt, args);
        va_end(args);
 
        copy_mem_info(info, buf, len);

        return (len);
}

/*************************************************************************
* qla2x00_proc_info
*
* Description:
*   Return information to handle /proc support for the driver.
*
* inout : decides the direction of the dataflow and the meaning of the
*         variables
* buffer: If inout==0 data is being written to it else read from it
*         (ptr to a page buffer)
* *start: If inout==0 start of the valid data in the buffer
* offset: If inout==0 starting offset from the beginning of all
*         possible data to return.
* length: If inout==0 max number of bytes to be written into the buffer
*         else number of bytes in "buffer"
* Returns:
*         < 0:  error. errno value.
*         >= 0: sizeof data returned.
*************************************************************************/
int
qla2x00_proc_info(struct Scsi_Host *shost, char *buffer,
    char **start, off_t offset, int length, int inout)
{
        struct info_str info;
        int             retval = -EINVAL;
        os_lun_t        *up;
        os_tgt_t        *tq;
        unsigned int    t, l;
        uint32_t        tmp_sn;
        uint32_t        *flags;
        uint8_t         *loop_state;
        scsi_qla_host_t *ha;
        char fw_info[30];
 
        DEBUG3(printk(KERN_INFO
            "Entering proc_info buff_in=%p, offset=0x%lx, length=0x%x\n",
            buffer, offset, length);)

        ha = (scsi_qla_host_t *) shost->hostdata;

        if (inout) {
                /* Has data been written to the file? */
                DEBUG3(printk(
                    "%s: has data been written to the file. \n",
                    __func__);)

                return -ENOSYS;
        }

        if (start) {
                *start = buffer;
        }

        info.buffer = buffer;
        info.length = length;
        info.offset = offset;
        info.pos    = 0;

        /* start building the print buffer */
        copy_info(&info,
            "QLogic PCI to Fibre Channel Host Adapter for %s:\n"
            "        Firmware version %s, ",
            ha->model_number, qla2x00_get_fw_version_str(ha, fw_info));

        copy_info(&info, "Driver version %s\n", qla2x00_version_str);

        tmp_sn = ((ha->serial0 & 0x1f) << 16) | (ha->serial2 << 8) | 
            ha->serial1;
        copy_info(&info, "ISP: %s, Serial# %c%05d\n",
            ha->brd_info->isp_name, ('A' + tmp_sn/100000), (tmp_sn%100000));

        copy_info(&info,
            "Request Queue = 0x%llx, Response Queue = 0x%llx\n",
                (unsigned long long)ha->request_dma,
                (unsigned long long)ha->response_dma);

        copy_info(&info,
            "Request Queue count = %d, Response Queue count = %d\n",
            ha->request_q_length, ha->response_q_length);

        copy_info(&info,
            "Total number of active commands = %ld\n",
            ha->actthreads);

        copy_info(&info,
            "Total number of interrupts = %ld\n",
            (long)ha->total_isr_cnt);

        copy_info(&info,
            "    Device queue depth = 0x%x\n",
            (ql2xmaxqdepth == 0) ? 16 : ql2xmaxqdepth);

        copy_info(&info,
            "Number of free request entries = %d\n", ha->req_q_cnt);

        copy_info(&info,
            "Number of mailbox timeouts = %ld\n", ha->total_mbx_timeout);

        copy_info(&info,
            "Number of ISP aborts = %ld\n", ha->total_isp_aborts);

        copy_info(&info,
            "Number of loop resyncs = %ld\n", ha->total_loop_resync);

        copy_info(&info,
            "Number of retries for empty slots = %ld\n",
            qla2x00_stats.outarray_full);

        copy_info(&info,
            "Number of reqs in pending_q= %ld, retry_q= %d, "
            "done_q= %ld, scsi_retry_q= %d\n",
            ha->qthreads, ha->retry_q_cnt,
            ha->done_q_cnt, ha->scsi_retry_q_cnt);


        flags = (uint32_t *) &ha->flags;

        if (atomic_read(&ha->loop_state) == LOOP_DOWN) {
                loop_state = "DOWN";
        } else if (atomic_read(&ha->loop_state) == LOOP_UP) {
                loop_state = "UP";
        } else if (atomic_read(&ha->loop_state) == LOOP_READY) {
                loop_state = "READY";
        } else if (atomic_read(&ha->loop_state) == LOOP_TIMEOUT) {
                loop_state = "TIMEOUT";
        } else if (atomic_read(&ha->loop_state) == LOOP_UPDATE) {
                loop_state = "UPDATE";
        } else {
                loop_state = "UNKNOWN";
        }

        copy_info(&info, 
            "Host adapter:loop state = <%s>, flags = 0x%lx\n",
            loop_state , *flags);

        copy_info(&info, "Dpc flags = 0x%lx\n", ha->dpc_flags);

        copy_info(&info, "MBX flags = 0x%x\n", ha->mbx_flags);

        copy_info(&info, "Link down Timeout = %3.3d\n",
            ha->link_down_timeout);

        copy_info(&info, "Port down retry = %3.3d\n",
            ha->port_down_retry_count);

        copy_info(&info, "Login retry count = %3.3d\n",
            ha->login_retry_count);

        copy_info(&info,
            "Commands retried with dropped frame(s) = %d\n",
            ha->dropped_frame_error_cnt);

        copy_info(&info,
            "Product ID = %04x %04x %04x %04x\n", ha->product_id[0],
            ha->product_id[1], ha->product_id[2], ha->product_id[3]);

        copy_info(&info, "\n");

        /* 2.25 node/port display to proc */
        /* Display the node name for adapter */
        copy_info(&info, "\nSCSI Device Information:\n");
        copy_info(&info,
            "scsi-qla%d-adapter-node="
            "%02x%02x%02x%02x%02x%02x%02x%02x;\n",
            (int)ha->instance,
            ha->init_cb->node_name[0],
            ha->init_cb->node_name[1],
            ha->init_cb->node_name[2],
            ha->init_cb->node_name[3],
            ha->init_cb->node_name[4],
            ha->init_cb->node_name[5],
            ha->init_cb->node_name[6],
            ha->init_cb->node_name[7]);

        /* display the port name for adapter */
        copy_info(&info,
            "scsi-qla%d-adapter-port="
            "%02x%02x%02x%02x%02x%02x%02x%02x;\n",
            (int)ha->instance,
            ha->init_cb->port_name[0],
            ha->init_cb->port_name[1],
            ha->init_cb->port_name[2],
            ha->init_cb->port_name[3],
            ha->init_cb->port_name[4],
            ha->init_cb->port_name[5],
            ha->init_cb->port_name[6],
            ha->init_cb->port_name[7]);

        /* Print out device port names */
        for (t = 0; t < MAX_FIBRE_DEVICES; t++) {
                if ((tq = TGT_Q(ha, t)) == NULL)
                        continue;

                copy_info(&info,
                    "scsi-qla%d-target-%d="
                    "%02x%02x%02x%02x%02x%02x%02x%02x;\n",
                    (int)ha->instance, t,
                    tq->port_name[0], tq->port_name[1],
                    tq->port_name[2], tq->port_name[3],
                    tq->port_name[4], tq->port_name[5],
                    tq->port_name[6], tq->port_name[7]);
        }

        copy_info(&info, "\nSCSI LUN Information:\n");
        copy_info(&info,
            "(Id:Lun)  * - indicates lun is not registered with the OS.\n");

        /* scan for all equipment stats */
        for (t = 0; t < MAX_FIBRE_DEVICES; t++) {
                /* scan all luns */
                for (l = 0; l < ha->max_luns; l++) {
                        up = (os_lun_t *) GET_LU_Q(ha, t, l);

                        if (up == NULL) {
                                continue;
                        }
                        if (up->fclun == NULL) {
                                continue;
                        }

                        copy_info(&info,
                            "(%2d:%2d): Total reqs %ld,",
                            t,l,up->io_cnt);

                        copy_info(&info,
                            " Pending reqs %ld,",
                            up->out_cnt);

                        if (up->io_cnt < 4) {
                                copy_info(&info,
                                    " flags 0x%x*,",
                                    (int)up->q_flag);
                        } else {
                                copy_info(&info,
                                    " flags 0x%x,",
                                    (int)up->q_flag);
                        }

                        copy_info(&info, 
                            " %ld:%d:%02x %02x",
                            up->fclun->fcport->ha->instance,
                            up->fclun->fcport->cur_path,
                            up->fclun->fcport->loop_id,
                            up->fclun->device_type);

                        copy_info(&info, "\n");

                        if (info.pos >= info.offset + info.length) {
                                /* No need to continue */
                                goto profile_stop;
                        }
                }

                if (info.pos >= info.offset + info.length) {
                        /* No need to continue */
                        break;
                }
        }

profile_stop:

        retval = info.pos > info.offset ? info.pos - info.offset : 0;

        DEBUG3(printk(KERN_INFO 
            "Exiting proc_info: info.pos=%d, offset=0x%lx, "
            "length=0x%x\n", info.pos, offset, length);)

        return (retval);
}

/*
* qla2x00_display_fc_names
*      This routine will the node names of the different devices found
*      after port inquiry.
*
* Input:
*      cmd = SCSI command structure
*
* Returns:
*      None.
*/
static void
qla2x00_display_fc_names(scsi_qla_host_t *ha) 
{
        uint16_t        tgt;
        os_tgt_t        *tq;

        /* Display the node name for adapter */
        qla_printk(KERN_INFO, ha,
            "scsi-qla%d-adapter-node=%02x%02x%02x%02x%02x%02x%02x%02x\\;\n",
            (int)ha->instance,
            ha->init_cb->node_name[0],
            ha->init_cb->node_name[1],
            ha->init_cb->node_name[2],
            ha->init_cb->node_name[3],
            ha->init_cb->node_name[4],
            ha->init_cb->node_name[5],
            ha->init_cb->node_name[6],
            ha->init_cb->node_name[7]);

        /* display the port name for adapter */
        qla_printk(KERN_INFO, ha,
            "scsi-qla%d-adapter-port=%02x%02x%02x%02x%02x%02x%02x%02x\\;\n",
            (int)ha->instance,
            ha->init_cb->port_name[0],
            ha->init_cb->port_name[1],
            ha->init_cb->port_name[2],
            ha->init_cb->port_name[3],
            ha->init_cb->port_name[4],
            ha->init_cb->port_name[5],
            ha->init_cb->port_name[6],
            ha->init_cb->port_name[7]);

        /* Print out device port names */
        for (tgt = 0; tgt < MAX_TARGETS; tgt++) {
                if ((tq = ha->otgt[tgt]) == NULL)
                        continue;

                if (tq->fcport == NULL)
                        continue;

                switch (ha->binding_type) {
                        case BIND_BY_PORT_NAME:
                                qla_printk(KERN_INFO, ha,
                                    "scsi-qla%d-tgt-%d-di-0-port="
                                    "%02x%02x%02x%02x%02x%02x%02x%02x\\;\n",
                                    (int)ha->instance, 
                                    tgt,
                                    tq->port_name[0], 
                                    tq->port_name[1],
                                    tq->port_name[2], 
                                    tq->port_name[3],
                                    tq->port_name[4], 
                                    tq->port_name[5],
                                    tq->port_name[6], 
                                    tq->port_name[7]);

                                break;

                        case BIND_BY_PORT_ID:
                                qla_printk(KERN_INFO, ha,
                                    "scsi-qla%d-tgt-%d-di-0-pid="
                                    "%02x%02x%02x\\;\n",
                                    (int)ha->instance,
                                    tgt,
                                    tq->d_id.b.domain,
                                    tq->d_id.b.area,
                                    tq->d_id.b.al_pa);
                                break;
                }

#if VSA
                qla_printk(KERN_INFO, ha,
                    "scsi-qla%d-target-%d-vsa=01;\n", (int)ha->instance, tgt);
#endif
        }
}

/*
 *  qla2x00_suspend_lun
 *      Suspend lun and start port down timer
 *
 * Input:
 *      ha = visable adapter block pointer.
 *  lq = lun queue
 *  cp = Scsi command pointer 
 *  time = time in seconds
 *  count = number of times to let time expire
 *  delay_lun = non-zero, if lun should be delayed rather than suspended
 *
 * Return:
 *     QLA_SUCCESS  -- suspended lun 
 *     QLA_FUNCTION_FAILED  -- Didn't suspend lun
 *
 * Context:
 *      Interrupt context.
 */
int
__qla2x00_suspend_lun(scsi_qla_host_t *ha,
                os_lun_t *lq, int time, int count, int delay_lun)
{
        int     rval;
        srb_t *sp;
        struct list_head *list, *temp;
        unsigned long flags;

        rval = QLA_SUCCESS;

        /* if the lun_q is already suspended then don't do it again */
        if (lq->q_state == LUN_STATE_READY ||lq->q_state == LUN_STATE_RUN) {

                spin_lock_irqsave(&lq->q_lock, flags);
                if (lq->q_state == LUN_STATE_READY) {
                        lq->q_max = count;
                        lq->q_count = 0;
                }
                /* Set the suspend time usually 6 secs */
                atomic_set(&lq->q_timer, time);

                /* now suspend the lun */
                lq->q_state = LUN_STATE_WAIT;

                if (delay_lun) {
                        set_bit(LUN_EXEC_DELAYED, &lq->q_flag);
                        DEBUG(printk(KERN_INFO
                            "scsi(%ld): Delay lun execution for %d secs, "
                            "count=%d, max count=%d, state=%d\n",
                            ha->host_no,
                            time,
                            lq->q_count, lq->q_max, lq->q_state));
                } else {
                        DEBUG(printk(KERN_INFO
                            "scsi(%ld): Suspend lun for %d secs, count=%d, "
                            "max count=%d, state=%d\n",
                            ha->host_no,
                            time,
                            lq->q_count, lq->q_max, lq->q_state));
                }
                spin_unlock_irqrestore(&lq->q_lock, flags);

                /*
                 * Remove all pending commands from request queue and  put them
                 * in the scsi_retry queue.
                 */
                spin_lock_irqsave(&ha->list_lock, flags);
                list_for_each_safe(list, temp, &ha->pending_queue) {
                        sp = list_entry(list, srb_t, list);
                        if (sp->lun_queue != lq)
                                continue;

                        __del_from_pending_queue(ha, sp);

                        if (sp->cmd->allowed < count)
                                sp->cmd->allowed = count;
                        __add_to_scsi_retry_queue(ha, sp);

                } /* list_for_each_safe */
                spin_unlock_irqrestore(&ha->list_lock, flags);
                rval = QLA_SUCCESS;
        } else {
                rval = QLA_FUNCTION_FAILED;
        }

        return (rval);
}

/*
 * qla2x00_mark_device_lost Updates fcport state when device goes offline.
 *
 * Input: ha = adapter block pointer.  fcport = port structure pointer.
 *
 * Return: None.
 *
 * Context:
 */
void qla2x00_mark_device_lost(scsi_qla_host_t *ha, fc_port_t *fcport,
    int do_login)
{
        /* 
         * We may need to retry the login, so don't change the state of the
         * port but do the retries.
         */
        if (atomic_read(&fcport->state) != FCS_DEVICE_DEAD)
                atomic_set(&fcport->state, FCS_DEVICE_LOST);

        if (!do_login)
                return;

        if (fcport->login_retry == 0) {
                fcport->login_retry = ha->login_retry_count;
                set_bit(RELOGIN_NEEDED, &ha->dpc_flags);

                DEBUG(printk("scsi(%ld): Port login retry: "
                    "%02x%02x%02x%02x%02x%02x%02x%02x, "
                    "id = 0x%04x retry cnt=%d\n",
                    ha->host_no,
                    fcport->port_name[0],
                    fcport->port_name[1],
                    fcport->port_name[2],
                    fcport->port_name[3],
                    fcport->port_name[4],
                    fcport->port_name[5],
                    fcport->port_name[6],
                    fcport->port_name[7],
                    fcport->loop_id,
                    fcport->login_retry));
        }
}

/*
 * qla2x00_mark_all_devices_lost
 *      Updates fcport state when device goes offline.
 *
 * Input:
 *      ha = adapter block pointer.
 *      fcport = port structure pointer.
 *
 * Return:
 *      None.
 *
 * Context:
 */
void
qla2x00_mark_all_devices_lost(scsi_qla_host_t *ha) 
{
        fc_port_t *fcport;

        list_for_each_entry(fcport, &ha->fcports, list) {
                if (fcport->port_type != FCT_TARGET)
                        continue;

                /*
                 * No point in marking the device as lost, if the device is
                 * already DEAD.
                 */
                if (atomic_read(&fcport->state) == FCS_DEVICE_DEAD)
                        continue;

                atomic_set(&fcport->state, FCS_DEVICE_LOST);
        }
}

/*
* qla2x00_mem_alloc
*      Allocates adapter memory.
*
* Returns:
*      0  = success.
*      1  = failure.
*/
static uint8_t
qla2x00_mem_alloc(scsi_qla_host_t *ha)
{
        char    name[16];
        uint8_t   status = 1;
        int     retry= 10;

        do {
                /*
                 * This will loop only once if everything goes well, else some
                 * number of retries will be performed to get around a kernel
                 * bug where available mem is not allocated until after a
                 * little delay and a retry.
                 */
                ha->request_ring = dma_alloc_coherent(&ha->pdev->dev,
                    (ha->request_q_length + 1) * sizeof(request_t),
                    &ha->request_dma, GFP_KERNEL);
                if (ha->request_ring == NULL) {
                        qla_printk(KERN_WARNING, ha,
                            "Memory Allocation failed - request_ring\n");

                        qla2x00_mem_free(ha);
                        msleep(100);

                        continue;
                }

                ha->response_ring = dma_alloc_coherent(&ha->pdev->dev,
                    (ha->response_q_length + 1) * sizeof(response_t),
                    &ha->response_dma, GFP_KERNEL);
                if (ha->response_ring == NULL) {
                        qla_printk(KERN_WARNING, ha,
                            "Memory Allocation failed - response_ring\n");

                        qla2x00_mem_free(ha);
                        msleep(100);

                        continue;
                }

                ha->gid_list = dma_alloc_coherent(&ha->pdev->dev, GID_LIST_SIZE,
                    &ha->gid_list_dma, GFP_KERNEL);
                if (ha->gid_list == NULL) {
                        qla_printk(KERN_WARNING, ha,
                            "Memory Allocation failed - gid_list\n");

                        qla2x00_mem_free(ha);
                        msleep(100);

                        continue;
                }

                ha->rlc_rsp = dma_alloc_coherent(&ha->pdev->dev,
                    sizeof(rpt_lun_cmd_rsp_t), &ha->rlc_rsp_dma, GFP_KERNEL);
                if (ha->rlc_rsp == NULL) {
                        qla_printk(KERN_WARNING, ha,
                                "Memory Allocation failed - rlc");

                        qla2x00_mem_free(ha);
                        msleep(100);

                        continue;
                }

                snprintf(name, sizeof(name), "qla2xxx_%ld", ha->host_no);
                ha->s_dma_pool = dma_pool_create(name, &ha->pdev->dev,
                    DMA_POOL_SIZE, 8, 0);
                if (ha->s_dma_pool == NULL) {
                        qla_printk(KERN_WARNING, ha,
                            "Memory Allocation failed - s_dma_pool\n");

                        qla2x00_mem_free(ha);
                        msleep(100);

                        continue;
                }

                /* get consistent memory allocated for init control block */
                ha->init_cb = dma_pool_alloc(ha->s_dma_pool, GFP_KERNEL,
                    &ha->init_cb_dma);
                if (ha->init_cb == NULL) {
                        qla_printk(KERN_WARNING, ha,
                            "Memory Allocation failed - init_cb\n");

                        qla2x00_mem_free(ha);
                        msleep(100);

                        continue;
                }
                memset(ha->init_cb, 0, sizeof(init_cb_t));

                /* Get consistent memory allocated for Get Port Database cmd */
                ha->iodesc_pd = dma_pool_alloc(ha->s_dma_pool, GFP_KERNEL,
                    &ha->iodesc_pd_dma);
                if (ha->iodesc_pd == NULL) {
                        /* error */
                        qla_printk(KERN_WARNING, ha,
                            "Memory Allocation failed - iodesc_pd\n");

                        qla2x00_mem_free(ha);
                        msleep(100);

                        continue;
                }
                memset(ha->iodesc_pd, 0, PORT_DATABASE_SIZE);

                /* Allocate ioctl related memory. */
                if (qla2x00_alloc_ioctl_mem(ha)) {
                        qla_printk(KERN_WARNING, ha,
                            "Memory Allocation failed - ioctl_mem\n");

                        qla2x00_mem_free(ha);
                        msleep(100);

                        continue;
                }

                if (qla2x00_allocate_sp_pool(ha)) {
                        qla_printk(KERN_WARNING, ha,
                            "Memory Allocation failed - "
                            "qla2x00_allocate_sp_pool()\n");

                        qla2x00_mem_free(ha);
                        msleep(100);

                        continue;
                }

                /* Allocate memory for SNS commands */
                if (IS_QLA2100(ha) || IS_QLA2200(ha)) {
                        /* Get consistent memory allocated for SNS commands */
                        ha->sns_cmd = dma_alloc_coherent(&ha->pdev->dev,
                            sizeof(struct sns_cmd_pkt), &ha->sns_cmd_dma,
                            GFP_KERNEL);
                        if (ha->sns_cmd == NULL) {
                                /* error */
                                qla_printk(KERN_WARNING, ha,
                                    "Memory Allocation failed - sns_cmd\n");

                                qla2x00_mem_free(ha);
                                msleep(100);

                                continue;
                        }
                        memset(ha->sns_cmd, 0, sizeof(struct sns_cmd_pkt));
                } else {
                        /* Get consistent memory allocated for MS IOCB */
                        ha->ms_iocb = dma_pool_alloc(ha->s_dma_pool, GFP_KERNEL,
                            &ha->ms_iocb_dma);
                        if (ha->ms_iocb == NULL) {
                                /* error */
                                qla_printk(KERN_WARNING, ha,
                                    "Memory Allocation failed - ms_iocb\n");

                                qla2x00_mem_free(ha);
                                msleep(100);

                                continue;
                        }
                        memset(ha->ms_iocb, 0, sizeof(ms_iocb_entry_t));

                        /*
                         * Get consistent memory allocated for CT SNS
                         * commands
                         */
                        ha->ct_sns = dma_alloc_coherent(&ha->pdev->dev,
                            sizeof(struct ct_sns_pkt), &ha->ct_sns_dma,
                            GFP_KERNEL);
                        if (ha->ct_sns == NULL) {
                                /* error */
                                qla_printk(KERN_WARNING, ha,
                                    "Memory Allocation failed - ct_sns\n");

                                qla2x00_mem_free(ha);
                                msleep(100);

                                continue;
                        }
                        memset(ha->ct_sns, 0, sizeof(struct ct_sns_pkt));
                }

                /* Done all allocations without any error. */
                status = 0;

        } while (retry-- && status != 0);

        if (status) {
                printk(KERN_WARNING
                        "%s(): **** FAILED ****\n", __func__);
        }

        return(status);
}

/*
* qla2x00_mem_free
*      Frees all adapter allocated memory.
*
* Input:
*      ha = adapter block pointer.
*/
static void
qla2x00_mem_free(scsi_qla_host_t *ha)
{
        uint32_t        t;
        struct list_head        *fcpl, *fcptemp;
        fc_port_t       *fcport;
        struct list_head        *fcll, *fcltemp;
        fc_lun_t        *fclun;
        unsigned long   wtime;/* max wait time if mbx cmd is busy. */

        if (ha == NULL) {
                /* error */
                DEBUG2(printk("%s(): ERROR invalid ha pointer.\n", __func__));
                return;
        }

        /* Free the target queues */
        for (t = 0; t < MAX_TARGETS; t++) {
                qla2x00_tgt_free(ha, t);
        }

        /* Make sure all other threads are stopped. */
        wtime = 60 * HZ;
        while (ha->dpc_wait && wtime) {
                set_current_state(TASK_INTERRUPTIBLE);
                wtime = schedule_timeout(wtime);
        }

        /* free ioctl memory */
        qla2x00_free_ioctl_mem(ha);

        /* free sp pool */
        qla2x00_free_sp_pool(ha);

        if (ha->sns_cmd)
                dma_free_coherent(&ha->pdev->dev, sizeof(struct sns_cmd_pkt),
                    ha->sns_cmd, ha->sns_cmd_dma);

        if (ha->ct_sns)
                dma_free_coherent(&ha->pdev->dev, sizeof(struct ct_sns_pkt),
                    ha->ct_sns, ha->ct_sns_dma);

        if (ha->ms_iocb)
                dma_pool_free(ha->s_dma_pool, ha->ms_iocb, ha->ms_iocb_dma);

        if (ha->iodesc_pd)
                dma_pool_free(ha->s_dma_pool, ha->iodesc_pd, ha->iodesc_pd_dma);

        if (ha->init_cb)
                dma_pool_free(ha->s_dma_pool, ha->init_cb, ha->init_cb_dma);

        if (ha->s_dma_pool)
                dma_pool_destroy(ha->s_dma_pool);

        if (ha->rlc_rsp)
                dma_free_coherent(&ha->pdev->dev,
                    sizeof(rpt_lun_cmd_rsp_t), ha->rlc_rsp,
                    ha->rlc_rsp_dma);

        if (ha->gid_list)
                dma_free_coherent(&ha->pdev->dev, GID_LIST_SIZE, ha->gid_list,
                    ha->gid_list_dma);

        if (ha->response_ring)
                dma_free_coherent(&ha->pdev->dev,
                    (ha->response_q_length + 1) * sizeof(response_t),
                    ha->response_ring, ha->response_dma);

        if (ha->request_ring)
                dma_free_coherent(&ha->pdev->dev,
                    (ha->request_q_length + 1) * sizeof(request_t),
                    ha->request_ring, ha->request_dma);

        ha->sns_cmd = NULL;
        ha->sns_cmd_dma = 0;
        ha->ct_sns = NULL;
        ha->ct_sns_dma = 0;
        ha->ms_iocb = NULL;
        ha->ms_iocb_dma = 0;
        ha->iodesc_pd = NULL;
        ha->iodesc_pd_dma = 0;
        ha->init_cb = NULL;
        ha->init_cb_dma = 0;

        ha->s_dma_pool = NULL;

        ha->rlc_rsp = NULL;
        ha->rlc_rsp_dma = 0;
        ha->gid_list = NULL;
        ha->gid_list_dma = 0;

        ha->response_ring = NULL;
        ha->response_dma = 0;
        ha->request_ring = NULL;
        ha->request_dma = 0;

        list_for_each_safe(fcpl, fcptemp, &ha->fcports) {
                fcport = list_entry(fcpl, fc_port_t, list);

                /* fc luns */
                list_for_each_safe(fcll, fcltemp, &fcport->fcluns) {
                        fclun = list_entry(fcll, fc_lun_t, list);

                        list_del_init(&fclun->list);
                        kfree(fclun);
                }

                /* fc ports */
                list_del_init(&fcport->list);
                kfree(fcport);
        }
        INIT_LIST_HEAD(&ha->fcports);

        if (ha->fw_dump)
                free_pages((unsigned long)ha->fw_dump, ha->fw_dump_order);

        if (ha->fw_dump_buffer)
                vfree(ha->fw_dump_buffer);

        ha->fw_dump = NULL;
        ha->fw_dump_reading = 0;
        ha->fw_dump_buffer = NULL;
}

/*
 * qla2x00_allocate_sp_pool
 *       This routine is called during initialization to allocate
 *       memory for local srb_t.
 *
 * Input:
 *       ha   = adapter block pointer.
 *
 * Context:
 *      Kernel context.
 * 
 * Note: Sets the ref_count for non Null sp to one.
 */
static int
qla2x00_allocate_sp_pool(scsi_qla_host_t *ha) 
{
        int      rval;

        rval = QLA_SUCCESS;
        ha->srb_mempool = mempool_create(SRB_MIN_REQ, mempool_alloc_slab,
            mempool_free_slab, srb_cachep);
        if (ha->srb_mempool == NULL) {
                qla_printk(KERN_INFO, ha, "Unable to allocate SRB mempool.\n");
                rval = QLA_FUNCTION_FAILED;
        }
        return (rval);
}

/*
 *  This routine frees all adapter allocated memory.
 *  
 */
static void
qla2x00_free_sp_pool( scsi_qla_host_t *ha) 
{
        if (ha->srb_mempool) {
                mempool_destroy(ha->srb_mempool);
                ha->srb_mempool = NULL;
        }
}

/**************************************************************************
* qla2x00_do_dpc
*   This kernel thread is a task that is schedule by the interrupt handler
*   to perform the background processing for interrupts.
*
* Notes:
* This task always run in the context of a kernel thread.  It
* is kick-off by the driver's detect code and starts up
* up one per adapter. It immediately goes to sleep and waits for
* some fibre event.  When either the interrupt handler or
* the timer routine detects a event it will one of the task
* bits then wake us up.
**************************************************************************/
static int
qla2x00_do_dpc(void *data)
{
        DECLARE_MUTEX_LOCKED(sem);
        scsi_qla_host_t *ha;
        fc_port_t       *fcport;
        os_lun_t        *q;
        srb_t           *sp;
        uint8_t         status;
        unsigned long   flags = 0;
        struct list_head *list, *templist;
        int     dead_cnt, online_cnt;
        int     retry_cmds = 0;
        uint16_t        next_loopid;
        int t;
        os_tgt_t *tq;

        ha = (scsi_qla_host_t *)data;

        lock_kernel();

        daemonize("%s_dpc", ha->host_str);
        allow_signal(SIGHUP);

        ha->dpc_wait = &sem;

        set_user_nice(current, -20);

        unlock_kernel();

        complete(&ha->dpc_inited);

        while (1) {
                DEBUG3(printk("qla2x00: DPC handler sleeping\n"));

                if (down_interruptible(&sem))
                        break;

                if (ha->dpc_should_die)
                        break;

                DEBUG3(printk("qla2x00: DPC handler waking up\n"));

                /* Initialization not yet finished. Don't do anything yet. */
                if (!ha->flags.init_done || ha->dpc_active)
                        continue;

                DEBUG3(printk("scsi(%ld): DPC handler\n", ha->host_no));

                ha->dpc_active = 1;

                if (!list_empty(&ha->done_queue))
                        qla2x00_done(ha);

                /* Process commands in retry queue */
                if (test_and_clear_bit(PORT_RESTART_NEEDED, &ha->dpc_flags)) {
                        DEBUG(printk("scsi(%ld): DPC checking retry_q. "
                            "total=%d\n",
                            ha->host_no, ha->retry_q_cnt));

                        spin_lock_irqsave(&ha->list_lock, flags);
                        dead_cnt = online_cnt = 0;
                        list_for_each_safe(list, templist, &ha->retry_queue) {
                                sp = list_entry(list, srb_t, list);
                                q = sp->lun_queue;
                                DEBUG3(printk("scsi(%ld): pid=%ld sp=%p, "
                                    "spflags=0x%x, q_flag= 0x%lx\n",
                                    ha->host_no, sp->cmd->serial_number, sp,
                                    sp->flags, q->q_flag));

                                if (q == NULL)
                                        continue;
                                fcport = q->fclun->fcport;

                                if (atomic_read(&fcport->state) ==
                                    FCS_DEVICE_DEAD ||
                                    atomic_read(&fcport->ha->loop_state) == LOOP_DEAD) {

                                        __del_from_retry_queue(ha, sp);
                                        sp->cmd->result = DID_NO_CONNECT << 16;
                                        if (atomic_read(&fcport->ha->loop_state) ==
                                            LOOP_DOWN) 
                                                sp->err_id = SRB_ERR_LOOP;
                                        else
                                                sp->err_id = SRB_ERR_PORT;
                                        sp->cmd->host_scribble =
                                            (unsigned char *) NULL;
                                        __add_to_done_queue(ha, sp);
                                        dead_cnt++;
                                } else if (atomic_read(&fcport->state) !=
                                    FCS_DEVICE_LOST) {

                                        __del_from_retry_queue(ha, sp);
                                        sp->cmd->result = DID_BUS_BUSY << 16;
                                        sp->cmd->host_scribble =
                                            (unsigned char *) NULL;
                                        __add_to_done_queue(ha, sp);
                                        online_cnt++;
                                }
                        } /* list_for_each_safe() */
                        spin_unlock_irqrestore(&ha->list_lock, flags);

                        DEBUG(printk("scsi(%ld): done processing retry queue "
                            "- dead=%d, online=%d\n ",
                            ha->host_no, dead_cnt, online_cnt));
                }

                /* Process commands in scsi retry queue */
                if (test_and_clear_bit(SCSI_RESTART_NEEDED, &ha->dpc_flags)) {
                        /*
                         * Any requests we want to delay for some period is put
                         * in the scsi retry queue with a delay added. The
                         * timer will schedule a "scsi_restart_needed" every 
                         * second as long as there are requests in the scsi
                         * queue. 
                         */
                        DEBUG(printk("scsi(%ld): DPC checking scsi "
                            "retry_q.total=%d\n",
                            ha->host_no, ha->scsi_retry_q_cnt));

                        online_cnt = 0;
                        spin_lock_irqsave(&ha->list_lock, flags);
                        list_for_each_safe(list, templist,
                            &ha->scsi_retry_queue) {

                                sp = list_entry(list, srb_t, list);
                                q = sp->lun_queue;
                                tq = sp->tgt_queue;

                                DEBUG3(printk("scsi(%ld): scsi_retry_q: "
                                    "pid=%ld sp=%p, spflags=0x%x, "
                                    "q_flag= 0x%lx,q_state=%d\n",
                                    ha->host_no, sp->cmd->serial_number,
                                    sp, sp->flags, q->q_flag, q->q_state));

                                /* Was this lun suspended */
                                if (q->q_state != LUN_STATE_WAIT) {
                                        online_cnt++;
                                        __del_from_scsi_retry_queue(ha, sp);

                                        if (test_bit(TQF_RETRY_CMDS,
                                            &tq->flags)) {
                                                qla2x00_extend_timeout(sp->cmd,
                                                    (sp->cmd->timeout_per_command / HZ) - QLA_CMD_TIMER_DELTA);
                                                __add_to_pending_queue(ha, sp);
                                                retry_cmds++;
                                        } else
                                                __add_to_retry_queue(ha, sp);
                                }

                                /* Was this command suspended for N secs */
                                if (sp->delay != 0) {
                                        sp->delay--;
                                        if (sp->delay == 0) {
                                                online_cnt++;
                                                __del_from_scsi_retry_queue(
                                                    ha, sp);
                                                __add_to_retry_queue(ha,sp);
                                        }
                                }
                        }
                        spin_unlock_irqrestore(&ha->list_lock, flags);

                        /* Clear all Target Unsuspended bits */
                        for (t = 0; t < ha->max_targets; t++) {
                                if ((tq = ha->otgt[t]) == NULL)
                                        continue;

                                if (test_bit(TQF_RETRY_CMDS, &tq->flags))
                                        clear_bit(TQF_RETRY_CMDS, &tq->flags);
                        }
                        if (retry_cmds)
                                qla2x00_next(ha);

                        DEBUG(if (online_cnt > 0))
                        DEBUG(printk("scsi(%ld): dpc() found scsi reqs to "
                            "restart= %d\n",
                            ha->host_no, online_cnt));
                }

                if (ha->flags.mbox_busy) {
                        if (!list_empty(&ha->done_queue))
                                qla2x00_done(ha);

                        ha->dpc_active = 0;
                        continue;
                }

                if (test_and_clear_bit(ISP_ABORT_NEEDED, &ha->dpc_flags)) {

                        DEBUG(printk("scsi(%ld): dpc: sched "
                            "qla2x00_abort_isp ha = %p\n",
                            ha->host_no, ha));
                        if (!(test_and_set_bit(ABORT_ISP_ACTIVE,
                            &ha->dpc_flags))) {

                                if (qla2x00_abort_isp(ha)) {
                                        /* failed. retry later */
                                        set_bit(ISP_ABORT_NEEDED,
                                            &ha->dpc_flags);
                                }
                                clear_bit(ABORT_ISP_ACTIVE, &ha->dpc_flags);
                        }
                        DEBUG(printk("scsi(%ld): dpc: qla2x00_abort_isp end\n",
                            ha->host_no));
                }

                if (test_and_clear_bit(RESET_MARKER_NEEDED, &ha->dpc_flags) &&
                    (!(test_and_set_bit(RESET_ACTIVE, &ha->dpc_flags)))) {

                        DEBUG(printk("scsi(%ld): qla2x00_reset_marker()\n",
                            ha->host_no));

                        qla2x00_rst_aen(ha);
                        clear_bit(RESET_ACTIVE, &ha->dpc_flags);
                }

                /* Retry each device up to login retry count */
                if ((test_and_clear_bit(RELOGIN_NEEDED, &ha->dpc_flags)) &&
                    !test_bit(LOOP_RESYNC_NEEDED, &ha->dpc_flags) &&
                    atomic_read(&ha->loop_state) != LOOP_DOWN) {

                        DEBUG(printk("scsi(%ld): qla2x00_port_login()\n",
                            ha->host_no));

                        next_loopid = 0;
                        list_for_each_entry(fcport, &ha->fcports, list) {
                                if (fcport->port_type != FCT_TARGET)
                                        continue;

                                /*
                                 * If the port is not ONLINE then try to login
                                 * to it if we haven't run out of retries.
                                 */
                                if (atomic_read(&fcport->state) != FCS_ONLINE &&
                                    fcport->login_retry) {

                                        fcport->login_retry--;
                                        if (fcport->flags & FCF_FABRIC_DEVICE) {
                                                if (fcport->flags &
                                                    FCF_TAPE_PRESENT)
                                                        qla2x00_fabric_logout(
                                                            ha,
                                                            fcport->loop_id);
                                                status = qla2x00_fabric_login(
                                                    ha, fcport, &next_loopid);
                                        } else
                                                status =
                                                    qla2x00_local_device_login(
                                                        ha, fcport->loop_id);

                                        if (status == QLA_SUCCESS) {
                                                fcport->old_loop_id = fcport->loop_id;

                                                DEBUG(printk("scsi(%ld): port login OK: logged in ID 0x%x\n",
                                                    ha->host_no, fcport->loop_id));
                                                
                                                fcport->port_login_retry_count =
                                                    ha->port_down_retry_count * PORT_RETRY_TIME;
                                                atomic_set(&fcport->state, FCS_ONLINE);
                                                atomic_set(&fcport->port_down_timer,
                                                    ha->port_down_retry_count * PORT_RETRY_TIME);

                                                fcport->login_retry = 0;
                                        } else if (status == 1) {
                                                set_bit(RELOGIN_NEEDED, &ha->dpc_flags);
                                                /* retry the login again */
                                                DEBUG(printk("scsi(%ld): Retrying %d login again loop_id 0x%x\n",
                                                    ha->host_no,
                                                    fcport->login_retry, fcport->loop_id));
                                        } else {
                                                fcport->login_retry = 0;
                                        }
                                }
                                if (test_bit(LOOP_RESYNC_NEEDED, &ha->dpc_flags))
                                        break;
                        }
                        DEBUG(printk("scsi(%ld): qla2x00_port_login - end\n",
                            ha->host_no));
                }

                if ((test_bit(LOGIN_RETRY_NEEDED, &ha->dpc_flags)) &&
                    atomic_read(&ha->loop_state) != LOOP_DOWN) {

                        clear_bit(LOGIN_RETRY_NEEDED, &ha->dpc_flags);
                        DEBUG(printk("scsi(%ld): qla2x00_login_retry()\n",
                            ha->host_no));
                                
                        set_bit(LOOP_RESYNC_NEEDED, &ha->dpc_flags);

                        DEBUG(printk("scsi(%ld): qla2x00_login_retry - end\n",
                            ha->host_no));
                }

                if (test_and_clear_bit(LOOP_RESYNC_NEEDED, &ha->dpc_flags)) {

                        DEBUG(printk("scsi(%ld): qla2x00_loop_resync()\n",
                            ha->host_no));

                        if (!(test_and_set_bit(LOOP_RESYNC_ACTIVE,
                            &ha->dpc_flags))) {

                                qla2x00_loop_resync(ha);

                                clear_bit(LOOP_RESYNC_ACTIVE, &ha->dpc_flags);
                        }

                        DEBUG(printk("scsi(%ld): qla2x00_loop_resync - end\n",
                            ha->host_no));
                }


                if (test_bit(RESTART_QUEUES_NEEDED, &ha->dpc_flags)) {
                        DEBUG(printk("scsi(%ld): qla2x00_restart_queues()\n",
                            ha->host_no));

                        qla2x00_restart_queues(ha, 0);

                        DEBUG(printk("scsi(%ld): qla2x00_restart_queues - end\n",
                            ha->host_no));
                }

                if (test_bit(ABORT_QUEUES_NEEDED, &ha->dpc_flags)) {

                        DEBUG(printk("scsi(%ld): qla2x00_abort_queues()\n",
                            ha->host_no));
                                
                        qla2x00_abort_queues(ha, 0);

                        DEBUG(printk("scsi(%ld): qla2x00_abort_queues - end\n",
                            ha->host_no));
                }

                if (test_and_clear_bit(FCPORT_RESCAN_NEEDED, &ha->dpc_flags)) {

                        DEBUG(printk("scsi(%ld): Rescan flagged fcports...\n",
                            ha->host_no));

                        qla2x00_rescan_fcports(ha);

                        DEBUG(printk("scsi(%ld): Rescan flagged fcports..."
                            "end.\n",
                            ha->host_no));
                }


                if (!ha->interrupts_on)
                        qla2x00_enable_intrs(ha);

                if (!list_empty(&ha->done_queue))
                        qla2x00_done(ha);

                ha->dpc_active = 0;
        } /* End of while(1) */

        DEBUG(printk("scsi(%ld): DPC handler exiting\n", ha->host_no));

        /*
         * Make sure that nobody tries to wake us up again.
         */
        ha->dpc_wait = NULL;
        ha->dpc_active = 0;

        complete_and_exit(&ha->dpc_exited, 0);
}

/*
 *  qla2x00_abort_queues
 *      Abort all commands on queues on device
 *
 * Input:
 *      ha = adapter block pointer.
 *
 * Context:
 *      Interrupt context.
 */
void
qla2x00_abort_queues(scsi_qla_host_t *ha, uint8_t doneqflg) 
{

        srb_t       *sp;
        struct list_head *list, *temp;
        unsigned long flags;

        clear_bit(ABORT_QUEUES_NEEDED, &ha->dpc_flags);

        /* Return all commands device queues. */
        spin_lock_irqsave(&ha->list_lock,flags);
        list_for_each_safe(list, temp, &ha->pending_queue) {
                sp = list_entry(list, srb_t, list);

                if (sp->flags & SRB_ABORTED)
                        continue;

                /* Remove srb from LUN queue. */
                __del_from_pending_queue(ha, sp);

                /* Set ending status. */
                sp->cmd->result = DID_BUS_BUSY << 16;

                __add_to_done_queue(ha, sp);
        }
        spin_unlock_irqrestore(&ha->list_lock, flags);
}

/*
*  qla2x00_rst_aen
*      Processes asynchronous reset.
*
* Input:
*      ha  = adapter block pointer.
*/
static void
qla2x00_rst_aen(scsi_qla_host_t *ha) 
{
        if (ha->flags.online && !ha->flags.reset_active &&
            !atomic_read(&ha->loop_down_timer) &&
            !(test_bit(ABORT_ISP_ACTIVE, &ha->dpc_flags))) {
                do {
                        clear_bit(RESET_MARKER_NEEDED, &ha->dpc_flags);

                        /*
                         * Issue marker command only when we are going to start
                         * the I/O.
                         */
                        ha->marker_needed = 1;
                } while (!atomic_read(&ha->loop_down_timer) &&
                    (test_bit(RESET_MARKER_NEEDED, &ha->dpc_flags)));
        }
}


/*
 * This routine will allocate SP from the free queue
 * input:
 *        scsi_qla_host_t *
 * output:
 *        srb_t * or NULL
 */
static srb_t *
qla2x00_get_new_sp(scsi_qla_host_t *ha)
{
        srb_t *sp;

        sp = mempool_alloc(ha->srb_mempool, GFP_ATOMIC);
        if (sp)
                atomic_set(&sp->ref_count, 1);
        return (sp);
}

/**************************************************************************
*   qla2x00_timer
*
* Description:
*   One second timer
*
* Context: Interrupt
***************************************************************************/
static void
qla2x00_timer(scsi_qla_host_t *ha)
{
        int             t,l;
        unsigned long   cpu_flags = 0;
        fc_port_t       *fcport;
        os_lun_t *lq;
        os_tgt_t *tq;
        int             start_dpc = 0;
        int             index;
        srb_t           *sp;

        /*
         * We try and restart any request in the retry queue every second.
         */
        if (!list_empty(&ha->retry_queue)) {
                set_bit(PORT_RESTART_NEEDED, &ha->dpc_flags);
                start_dpc++;
        }

        /*
         * We try and restart any request in the scsi_retry queue every second.
         */
        if (!list_empty(&ha->scsi_retry_queue)) {
                set_bit(SCSI_RESTART_NEEDED, &ha->dpc_flags);
                start_dpc++;
        }

        /*
         * Ports - Port down timer.
         *
         * Whenever, a port is in the LOST state we start decrementing its port
         * down timer every second until it reaches zero. Once  it reaches zero
         * the port it marked DEAD. 
         */
        t = 0;
        list_for_each_entry(fcport, &ha->fcports, list) {
                if (fcport->port_type != FCT_TARGET)
                        continue;

                if (atomic_read(&fcport->state) == FCS_DEVICE_LOST) {

                        if (atomic_read(&fcport->port_down_timer) == 0)
                                continue;

                        if (atomic_dec_and_test(&fcport->port_down_timer) != 0) 
                                atomic_set(&fcport->state, FCS_DEVICE_DEAD);
                        
                        DEBUG(printk("scsi(%ld): fcport-%d - port retry count: "
                            "%d remainning\n",
                            ha->host_no,
                            t, atomic_read(&fcport->port_down_timer)));
                }
                t++;
        } /* End of for fcport  */

        /*
         * LUNS - lun suspend timer.
         *
         * Whenever, a lun is suspended the timer starts decrementing its
         * suspend timer every second until it reaches zero. Once  it reaches
         * zero the lun retry count is decremented. 
         */

        /*
         * FIXME(dg) - Need to convert this linear search of luns into a search
         * of a list of suspended luns.
         */
        for (t = 0; t < ha->max_targets; t++) {
                if ((tq = ha->otgt[t]) == NULL)
                        continue;

                for (l = 0; l < ha->max_luns; l++) {
                        if ((lq = (os_lun_t *) tq->olun[l]) == NULL)
                                continue;

                        spin_lock_irqsave(&lq->q_lock, cpu_flags);
                        if (lq->q_state == LUN_STATE_WAIT &&
                                atomic_read(&lq->q_timer) != 0) {

                                if (atomic_dec_and_test(&lq->q_timer) != 0) {
                                        /*
                                         * A delay should immediately
                                         * transition to a READY state
                                         */
                                        if (test_and_clear_bit(LUN_EXEC_DELAYED,
                                            &lq->q_flag)) {
                                                lq->q_state = LUN_STATE_READY;
                                        }
                                        else {
                                                lq->q_count++;
                                                if (lq->q_count == lq->q_max)
                                                        lq->q_state =
                                                            LUN_STATE_TIMEOUT;
                                                else
                                                        lq->q_state =
                                                            LUN_STATE_RUN;
                                        }
                                }
                                DEBUG3(printk("scsi(%ld): lun%d - timer %d, "
                                    "count=%d, max=%d, state=%d\n",
                                    ha->host_no,
                                    l,
                                    atomic_read(&lq->q_timer),
                                    lq->q_count, lq->q_max, lq->q_state));
                        }
                        spin_unlock_irqrestore(&lq->q_lock, cpu_flags);
                } /* End of for luns  */
        } /* End of for targets  */

        /* Loop down handler. */
        if (atomic_read(&ha->loop_down_timer) > 0 &&
            !(test_bit(ABORT_ISP_ACTIVE, &ha->dpc_flags)) && ha->flags.online) {

                if (atomic_read(&ha->loop_down_timer) ==
                    ha->loop_down_abort_time) {

                        DEBUG(printk("scsi(%ld): Loop Down - aborting the "
                            "queues before time expire\n",
                            ha->host_no));

                        if (!IS_QLA2100(ha) && ha->link_down_timeout)
                                atomic_set(&ha->loop_state, LOOP_DEAD); 

                        /* Schedule an ISP abort to return any tape commands. */
                        spin_lock_irqsave(&ha->hardware_lock, cpu_flags);
                        for (index = 1; index < MAX_OUTSTANDING_COMMANDS;
                            index++) {
                                sp = ha->outstanding_cmds[index];
                                if (!sp)
                                        continue;
                                if (!(sp->fclun->fcport->flags &
                                    FCF_TAPE_PRESENT))
                                        continue;

                                set_bit(ISP_ABORT_NEEDED, &ha->dpc_flags);
                                break;
                        }
                        spin_unlock_irqrestore(&ha->hardware_lock, cpu_flags);

                        set_bit(ABORT_QUEUES_NEEDED, &ha->dpc_flags);
                        start_dpc++;
                }

                /* if the loop has been down for 4 minutes, reinit adapter */
                if (atomic_dec_and_test(&ha->loop_down_timer) != 0) {
                        DEBUG(printk("scsi(%ld): Loop down exceed 4 mins - "
                            "restarting queues.\n",
                            ha->host_no));

                        set_bit(RESTART_QUEUES_NEEDED, &ha->dpc_flags);
                        start_dpc++;

                        if (!(ha->device_flags & DFLG_NO_CABLE)) {
                                DEBUG(printk("scsi(%ld): Loop down - "
                                    "aborting ISP.\n",
                                    ha->host_no));
                                qla_printk(KERN_WARNING, ha,
                                    "Loop down - aborting ISP.\n");

                                set_bit(ISP_ABORT_NEEDED, &ha->dpc_flags);
                        }
                }
                DEBUG3(printk("scsi(%ld): Loop Down - seconds remainning %d\n",
                    ha->host_no,
                    atomic_read(&ha->loop_down_timer)));
        }

        /*
         * Done Q Handler -- dgFIXME This handler will kick off doneq if we
         * haven't process it in 2 seconds.
         */
        if (!list_empty(&ha->done_queue))
                qla2x00_done(ha);


        /* Schedule the DPC routine if needed */
        if ((test_bit(ISP_ABORT_NEEDED, &ha->dpc_flags) ||
            test_bit(LOOP_RESYNC_NEEDED, &ha->dpc_flags) ||
            start_dpc ||
            test_bit(LOGIN_RETRY_NEEDED, &ha->dpc_flags) ||
            test_bit(RELOGIN_NEEDED, &ha->dpc_flags)) &&
            ha->dpc_wait && !ha->dpc_active) {

                up(ha->dpc_wait);
        }

        qla2x00_restart_timer(ha, WATCH_INTERVAL);
}

/*
 * qla2x00_extend_timeout
 *      This routine will extend the timeout to the specified value.
 *
 * Input:
 *      cmd = SCSI command structure
 *
 * Returns:
 *      None.
 */
void 
qla2x00_extend_timeout(struct scsi_cmnd *cmd, int timeout) 
{
        srb_t *sp = (srb_t *) CMD_SP(cmd);
        u_long our_jiffies = (timeout * HZ) + jiffies;

        sp->ext_history= 0; 
        sp->e_start = jiffies;
        if (cmd->eh_timeout.function) {
                mod_timer(&cmd->eh_timeout,our_jiffies);
                sp->ext_history |= 1;
        }
        if (sp->timer.function != NULL) {
                /* 
                 * Our internal timer should timeout before the midlayer has a
                 * chance begin the abort process
                 */
                mod_timer(&sp->timer,our_jiffies - (QLA_CMD_TIMER_DELTA * HZ));

                sp->ext_history |= 2;
        }
}

/**************************************************************************
*   qla2x00_cmd_timeout
*
* Description:
*       Handles the command if it times out in any state.
*
* Input:
*     sp - pointer to validate
*
* Returns:
* None.
* Note:Need to add the support for if( sp->state == SRB_FAILOVER_STATE).
**************************************************************************/
void
qla2x00_cmd_timeout(srb_t *sp)
{
        int t, l;
        int processed;
        scsi_qla_host_t *vis_ha, *dest_ha;
        struct scsi_cmnd *cmd;
        unsigned long flags, cpu_flags;
        fc_port_t *fcport;

        cmd = sp->cmd;
        vis_ha = (scsi_qla_host_t *)cmd->device->host->hostdata;

        DEBUG3(printk("cmd_timeout: Entering sp->state = %x\n", sp->state));

        t = cmd->device->id;
        l = cmd->device->lun;
        fcport = sp->fclun->fcport;
        dest_ha = sp->ha;

        /*
         * If IO is found either in retry Queue 
         *    OR in Lun Queue
         * Return this IO back to host
         */
        spin_lock_irqsave(&vis_ha->list_lock, flags);
        processed = 0;
        if (sp->state == SRB_PENDING_STATE) {
                __del_from_pending_queue(vis_ha, sp);
                DEBUG2(printk("scsi(%ld): Found in Pending queue pid %ld, "
                    "State = %x., fcport state=%d sjiffs=%lx njiffs=%lx\n",
                    vis_ha->host_no, cmd->serial_number, sp->state,
                    atomic_read(&fcport->state), sp->r_start, jiffies));

                /*
                 * If FC_DEVICE is marked as dead return the cmd with
                 * DID_NO_CONNECT status.  Otherwise set the host_byte to
                 * DID_BUS_BUSY to let the OS  retry this cmd.
                 */
                if (atomic_read(&fcport->state) == FCS_DEVICE_DEAD ||
                    atomic_read(&fcport->ha->loop_state) == LOOP_DEAD) {
                        cmd->result = DID_NO_CONNECT << 16;
                        if (atomic_read(&fcport->ha->loop_state) == LOOP_DOWN) 
                                sp->err_id = SRB_ERR_LOOP;
                        else
                                sp->err_id = SRB_ERR_PORT;
                } else {
                        cmd->result = DID_BUS_BUSY << 16;
                }
                __add_to_done_queue(vis_ha, sp);
                processed++;
        } 
        spin_unlock_irqrestore(&vis_ha->list_lock, flags);

        if (processed) {
                qla2x00_done(vis_ha);
                return;
        }

        spin_lock_irqsave(&dest_ha->list_lock, flags);
        if ((sp->state == SRB_RETRY_STATE) ||
            (sp->state == SRB_SCSI_RETRY_STATE)) {

                DEBUG2(printk("scsi(%ld): Found in (Scsi) Retry queue or "
                    "failover Q pid %ld, State = %x., fcport state=%d "
                    "jiffies=%lx retried=%d\n",
                    dest_ha->host_no, cmd->serial_number, sp->state,
                    atomic_read(&fcport->state), jiffies, cmd->retries));

                if ((sp->state == SRB_RETRY_STATE)) {
                        __del_from_retry_queue(dest_ha, sp);
                } else if ((sp->state == SRB_SCSI_RETRY_STATE)) {
                        __del_from_scsi_retry_queue(dest_ha, sp);
                } 

                /*
                 * If FC_DEVICE is marked as dead return the cmd with
                 * DID_NO_CONNECT status.  Otherwise set the host_byte to
                 * DID_BUS_BUSY to let the OS  retry this cmd.
                 */
                if ((atomic_read(&fcport->state) == FCS_DEVICE_DEAD) ||
                    atomic_read(&dest_ha->loop_state) == LOOP_DEAD) {
                        qla2x00_extend_timeout(cmd, EXTEND_CMD_TIMEOUT);
                        cmd->result = DID_NO_CONNECT << 16;
                        if (atomic_read(&dest_ha->loop_state) == LOOP_DOWN) 
                                sp->err_id = SRB_ERR_LOOP;
                        else
                                sp->err_id = SRB_ERR_PORT;
                } else {
                        cmd->result = DID_BUS_BUSY << 16;
                }

                __add_to_done_queue(dest_ha, sp);
                processed++;
        } 
        spin_unlock_irqrestore(&dest_ha->list_lock, flags);

        if (processed) {
                qla2x00_done(dest_ha);
                return;
        }

        spin_lock_irqsave(&dest_ha->list_lock, cpu_flags);
        if (sp->state == SRB_DONE_STATE) {
                /* IO in done_q  -- leave it */
                DEBUG(printk("scsi(%ld): Found in Done queue pid %ld sp=%p.\n",
                    dest_ha->host_no, cmd->serial_number, sp));
        } else if (sp->state == SRB_SUSPENDED_STATE) {
                DEBUG(printk("scsi(%ld): Found SP %p in suspended state  "
                    "- pid %ld:\n",
                    dest_ha->host_no, sp, cmd->serial_number));
                DEBUG(qla2x00_dump_buffer((uint8_t *)sp, sizeof(srb_t));)
        } else if (sp->state == SRB_ACTIVE_STATE) {
                /*
                 * IO is with ISP find the command in our active list.
                 */
                spin_unlock_irqrestore(&dest_ha->list_lock, cpu_flags);
                spin_lock_irqsave(&dest_ha->hardware_lock, flags);
                if (sp == dest_ha->outstanding_cmds[
                    (unsigned long)sp->cmd->host_scribble]) {

                        DEBUG(printk("cmd_timeout: Found in ISP \n"));

                        if (sp->flags & SRB_TAPE) {
                                /*
                                 * We cannot allow the midlayer error handler
                                 * to wakeup and begin the abort process.
                                 * Extend the timer so that the firmware can
                                 * properly return the IOCB.
                                 */
                                DEBUG(printk("cmd_timeout: Extending timeout "
                                    "of FCP2 tape command!\n"));
                                qla2x00_extend_timeout(sp->cmd,
                                    EXTEND_CMD_TIMEOUT);
                        }
                        sp->state = SRB_ACTIVE_TIMEOUT_STATE;
                        spin_unlock_irqrestore(&dest_ha->hardware_lock, flags);
                } else {
                        spin_unlock_irqrestore(&dest_ha->hardware_lock, flags);
                        printk(KERN_INFO 
                                "qla_cmd_timeout: State indicates it is with "
                                "ISP, But not in active array\n");
                }
                spin_lock_irqsave(&dest_ha->list_lock, cpu_flags);
        } else if (sp->state == SRB_ACTIVE_TIMEOUT_STATE) {
                DEBUG(printk("qla2100%ld: Found in Active timeout state"
                                "pid %ld, State = %x., \n",
                                dest_ha->host_no,
                                sp->cmd->serial_number, sp->state);)
        } else {
                /* EMPTY */
                DEBUG2(printk("cmd_timeout%ld: LOST command state = "
                                "0x%x, sp=%p\n",
                                vis_ha->host_no, sp->state,sp);)

                qla_printk(KERN_INFO, vis_ha,
                        "cmd_timeout: LOST command state = 0x%x\n", sp->state);
        }
        spin_unlock_irqrestore(&dest_ha->list_lock, cpu_flags);

        DEBUG3(printk("cmd_timeout: Leaving\n");)
}

/**************************************************************************
* qla2x00_done
*      Process completed commands.
*
* Input:
*      old_ha           = adapter block pointer.
*
**************************************************************************/
void
qla2x00_done(scsi_qla_host_t *old_ha)
{
        os_lun_t        *lq;
        struct scsi_cmnd *cmd;
        unsigned long   flags = 0;
        scsi_qla_host_t *ha;
        scsi_qla_host_t *vis_ha;
        int     send_marker_once = 0;
        srb_t           *sp, *sptemp;
        LIST_HEAD(local_sp_list);

        /*
         * Get into local queue such that we do not wind up calling done queue
         * tasklet for the same IOs from DPC or any other place.
         */
        spin_lock_irqsave(&old_ha->list_lock, flags);
        list_splice_init(&old_ha->done_queue, &local_sp_list);
        spin_unlock_irqrestore(&old_ha->list_lock, flags);

        /*
         * All done commands are in the local queue, now do the call back.
         */
        list_for_each_entry_safe(sp, sptemp, &local_sp_list, list) {
                old_ha->done_q_cnt--;
                sp->state = SRB_NO_QUEUE_STATE;

                /* remove command from local list */
                list_del_init(&sp->list);

                cmd = sp->cmd;
                if (cmd == NULL)
                        continue;

                vis_ha = (scsi_qla_host_t *)cmd->device->host->hostdata;
                lq = sp->lun_queue;
                ha = sp->ha;

                if (sp->flags & SRB_DMA_VALID) {
                        sp->flags &= ~SRB_DMA_VALID;

                        /* Release memory used for this I/O */
                        if (cmd->use_sg) {
                                pci_unmap_sg(ha->pdev, cmd->request_buffer,
                                    cmd->use_sg, cmd->sc_data_direction);
                        } else if (cmd->request_bufflen) {
                                pci_unmap_page(ha->pdev, sp->dma_handle,
                                    cmd->request_bufflen,
                                    cmd->sc_data_direction);
                        }
                }


                switch (host_byte(cmd->result)) {
                        case DID_OK:
                        case DID_ERROR:
                                break;

                        case DID_RESET:
                                /*
                                 * Set marker needed, so we don't have to
                                 * send multiple markers
                                 */
                                if (!send_marker_once) {
                                        ha->marker_needed = 1;
                                        send_marker_once++;
                                }

                                /*
                                 * WORKAROUND
                                 *
                                 * A backdoor device-reset requires different
                                 * error handling.  This code differentiates
                                 * between normal error handling and the
                                 * backdoor method.
                                 *
                                 */
                                if (ha->host->eh_active != EH_ACTIVE)
                                        cmd->result = DID_BUS_BUSY << 16;
                                break;


                        case DID_ABORT:
                                sp->flags &= ~SRB_ABORT_PENDING;
                                sp->flags |= SRB_ABORTED;

                                if (sp->flags & SRB_TIMEOUT)
                                        cmd->result = DID_TIME_OUT << 16;

                                break;

                        default:
                                DEBUG2(printk("scsi(%ld:%d:%d) %s: did_error "
                                    "= %d, comp-scsi= 0x%x-0x%x pid=%ld.\n",
                                    vis_ha->host_no,
                                    cmd->device->id, cmd->device->lun,
                                    __func__,
                                    host_byte(cmd->result),
                                    CMD_COMPL_STATUS(cmd),
                                    CMD_SCSI_STATUS(cmd), cmd->serial_number));
                                break;
                }

                /*
                 * Call the mid-level driver interrupt handler -- via sp_put()
                 */
                sp_put(ha, sp);
        } /* end of while */
}

/*
 * qla2x00_process_response_queue_in_zio_mode
 *      Process response queue completion as fast as possible
 *      to achieve Zero Interrupt Opertions-ZIO
 *
 * Input:
 *      ha = adapter block pointer.
 *
 * Context:
 *      Kernel context.
 */
static inline void
qla2x00_process_response_queue_in_zio_mode(scsi_qla_host_t *ha)
{
        unsigned long flags;

        /* Check for unprocessed commands in response queue. */
        if (!ha->flags.process_response_queue)
                return;
        if (!ha->flags.online)
                return;
        if (ha->response_ring_ptr->signature == RESPONSE_PROCESSED)
                return;
        
        spin_lock_irqsave(&ha->hardware_lock,flags);
        qla2x00_process_response_queue(ha);
        spin_unlock_irqrestore(&ha->hardware_lock, flags);
}

/*
 * qla2x00_next
 *      Retrieve and process next job in the LUN queue.
 *
 * Input:
 *      tq = SCSI target queue pointer.
 *      lq = SCSI LUN queue pointer.
 *      TGT_LOCK must be already obtained.
 *
 * Output:
 *      Releases TGT_LOCK upon exit.
 *
 * Context:
 *      Kernel/Interrupt context.
 * 
 * Note: This routine will always try to start I/O from visible HBA.
 */
void
qla2x00_next(scsi_qla_host_t *vis_ha) 
{
        int             rval;
        unsigned long   flags;
        scsi_qla_host_t *dest_ha;
        fc_port_t       *fcport;
        srb_t           *sp, *sptemp;
        LIST_HEAD(local_sp_list);

        dest_ha = NULL;

        spin_lock_irqsave(&vis_ha->list_lock, flags);
        list_splice_init(&vis_ha->pending_queue, &local_sp_list);
        vis_ha->qthreads = 0;
        spin_unlock_irqrestore(&vis_ha->list_lock, flags);

        list_for_each_entry_safe(sp, sptemp, &local_sp_list, list) {
                list_del_init(&sp->list);
                sp->state = SRB_NO_QUEUE_STATE;

                fcport = sp->fclun->fcport;
                dest_ha = fcport->ha;

                /* If device is dead then send request back to OS */
                if (atomic_read(&fcport->state) == FCS_DEVICE_DEAD) {
                        sp->cmd->result = DID_NO_CONNECT << 16;
                        if (atomic_read(&dest_ha->loop_state) == LOOP_DOWN) 
                                sp->err_id = SRB_ERR_LOOP;
                        else
                                sp->err_id = SRB_ERR_PORT;

                        DEBUG3(printk("scsi(%ld): loop/port is down - pid=%ld, "
                            "sp=%p err_id=%d loopid=0x%x queued to dest HBA "
                            "scsi%ld.\n", dest_ha->host_no,
                            sp->cmd->serial_number, sp, sp->err_id,
                            fcport->loop_id, dest_ha->host_no));
                        /* 
                         * Initiate a failover - done routine will initiate.
                         */
                        add_to_done_queue(vis_ha, sp);

                        continue;
                }

                /*
                 * SCSI Kluge: Whenever, we need to wait for an event such as
                 * loop down (i.e. loop_down_timer ) or port down (i.e.  LUN
                 * request qeueue is suspended) then we will recycle new
                 * commands back to the SCSI layer.  We do this because this is
                 * normally a temporary condition and we don't want the
                 * mid-level scsi.c driver to get upset and start aborting
                 * commands.  The timeout value is extracted from the command
                 * minus 1-second and put on a retry queue (watchdog). Once the
                 * command timeout it is returned to the mid-level with a BUSY
                 * status, so the mid-level will retry it. This process
                 * continues until the LOOP DOWN time expires or the condition
                 * goes away.
                 */
                if (!(sp->flags & (SRB_IOCTL | SRB_TAPE)) &&
                    (atomic_read(&fcport->state) != FCS_ONLINE ||
                        test_bit(ABORT_ISP_ACTIVE, &dest_ha->dpc_flags) ||
                        atomic_read(&dest_ha->loop_state) != LOOP_READY)) {

                        DEBUG3(printk("scsi(%ld): pid=%ld port=0x%x state=%d "
                            "loop state=%d, loop counter=0x%x "
                            "dpc_flags=0x%lx\n", sp->cmd->serial_number,
                            dest_ha->host_no, fcport->loop_id,
                            atomic_read(&fcport->state),
                            atomic_read(&dest_ha->loop_state),
                            atomic_read(&dest_ha->loop_down_timer),
                            dest_ha->dpc_flags));

                        qla2x00_extend_timeout(sp->cmd, EXTEND_CMD_TIMEOUT);
                        add_to_retry_queue(vis_ha, sp);

                        continue;
                } 

                /*
                 * If this request's lun is suspended then put the request on
                 * the  scsi_retry queue. 
                 */
                if (!(sp->flags & (SRB_IOCTL | SRB_TAPE)) &&
                    sp->lun_queue->q_state == LUN_STATE_WAIT) {
                        DEBUG3(printk("scsi(%ld): lun wait state - pid=%ld, "
                            "opcode=%d, allowed=%d, retries=%d\n",
                            dest_ha->host_no,
                            sp->cmd->serial_number,
                            sp->cmd->cmnd[0],
                            sp->cmd->allowed,
                            sp->cmd->retries));
                                
                        add_to_scsi_retry_queue(vis_ha, sp);

                        continue;
                }

                sp->lun_queue->io_cnt++;

                rval = qla2x00_start_scsi(sp);
                if (rval != QLA_SUCCESS) {
                        /* Place request back on top of device queue */
                        /* add to the top of queue */
                        add_to_pending_queue_head(vis_ha, sp);

                        sp->lun_queue->io_cnt--;
                }
        }

        if (!IS_QLA2100(vis_ha) && !IS_QLA2200(vis_ha)) {
                /* Process response_queue if ZIO support is enabled*/ 
                qla2x00_process_response_queue_in_zio_mode(vis_ha);

        }
}

/* XXX(hch): crude hack to emulate a down_timeout() */
int
qla2x00_down_timeout(struct semaphore *sema, unsigned long timeout)
{
        const unsigned int step = HZ/10;

        do {
                if (!down_trylock(sema))
                        return 0;
                set_current_state(TASK_INTERRUPTIBLE);
                if (schedule_timeout(step))
                        break;
        } while ((timeout -= step) > 0);

        return -ETIMEDOUT;
}

static void
qla2xxx_get_port_id(struct scsi_target *starget)
{
        struct Scsi_Host *shost = dev_to_shost(starget->dev.parent);
        scsi_qla_host_t *ha = to_qla_host(shost);
        struct fc_port *fc;

        list_for_each_entry(fc, &ha->fcports, list) {
                if (fc->os_target_id == starget->id) {
                        fc_starget_port_id(starget) = fc->d_id.b.domain << 16 |
                                fc->d_id.b.area << 8 | 
                                fc->d_id.b.al_pa;
                        return;
                }
        }
        fc_starget_port_id(starget) = -1;
}

static void
qla2xxx_get_port_name(struct scsi_target *starget)
{
        struct Scsi_Host *shost = dev_to_shost(starget->dev.parent);
        scsi_qla_host_t *ha = to_qla_host(shost);
        struct fc_port *fc;

        list_for_each_entry(fc, &ha->fcports, list) {
                if (fc->os_target_id == starget->id) {
                        fc_starget_port_name(starget) =
                                __be64_to_cpu(*(uint64_t *)fc->port_name);
                        return;
                }
        }
        fc_starget_port_name(starget) = -1;
}

static void
qla2xxx_get_node_name(struct scsi_target *starget)
{
        struct Scsi_Host *shost = dev_to_shost(starget->dev.parent);
        scsi_qla_host_t *ha = to_qla_host(shost);
        struct fc_port *fc;

        list_for_each_entry(fc, &ha->fcports, list) {
                if (fc->os_target_id == starget->id) {
                        fc_starget_node_name(starget) =
                                __be64_to_cpu(*(uint64_t *)fc->node_name);
                        return;
                }
        }
        fc_starget_node_name(starget) = -1;
}

static struct fc_function_template qla2xxx_transport_functions = {
        .get_starget_port_id = qla2xxx_get_port_id,
        .show_starget_port_id = 1,
        .get_starget_port_name = qla2xxx_get_port_name,
        .show_starget_port_name = 1,
        .get_starget_node_name = qla2xxx_get_node_name,
        .show_starget_node_name = 1,
};

/**
 * qla2x00_module_init - Module initialization.
 **/
static int __init
qla2x00_module_init(void)
{
        /* Allocate cache for SRBs. */
        sprintf(srb_cachep_name, "qla2xxx_srbs");
        srb_cachep = kmem_cache_create(srb_cachep_name, sizeof(srb_t), 0,
            SLAB_HWCACHE_ALIGN, NULL, NULL);
        if (srb_cachep == NULL) {
                printk(KERN_ERR
                    "qla2xxx: Unable to allocate SRB cache...Failing load!\n");
                return -ENOMEM;
        }

        /* Derive version string. */
        strcpy(qla2x00_version_str, QLA2XXX_VERSION);
#if DEBUG_QLA2100
        strcat(qla2x00_version_str, "-debug");
#endif

        qla2xxx_transport_template = fc_attach_transport(&qla2xxx_transport_functions);
        if (!qla2xxx_transport_template)
                return -ENODEV;

        printk(KERN_INFO "QLogic Fibre Channel HBA Driver\n");
        return 0;
}

/**
 * qla2x00_module_exit - Module cleanup.
 **/
static void __exit
qla2x00_module_exit(void)
{
        /* Free SRBs cache. */
        if (srb_cachep != NULL) {
                if (kmem_cache_destroy(srb_cachep) != 0) {
                        printk(KERN_ERR
                            "qla2xxx: Unable to free SRB cache...Memory pools "
                            "still active?\n");
                }
                srb_cachep = NULL;
        }

        fc_release_transport(qla2xxx_transport_template);
}

module_init(qla2x00_module_init);
module_exit(qla2x00_module_exit);

MODULE_AUTHOR("QLogic Corporation");
MODULE_DESCRIPTION("QLogic Fibre Channel HBA Driver");
MODULE_LICENSE("GPL");
MODULE_VERSION(QLA2XXX_VERSION);