Import 2.3.15pre2

[davej-history.git] / drivers / block / cpqarray.c

/*
 *    Disk Array driver for Compaq SMART2 Controllers
 *    Copyright 1998 Compaq Computer Corporation
 *
 *    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 of the License, 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, GOOD TITLE or
 *    NON INFRINGEMENT.  See the GNU General Public License for more details.
 *
 *    You should have received a copy of the GNU General Public License
 *    along with this program; if not, write to the Free Software
 *    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 *    Questions/Comments/Bugfixes to arrays@compaq.com
 *
 *    If you want to make changes, improve or add functionality to this
 *    driver, you'll probably need the Compaq Array Controller Interface
 *    Specificiation (Document number ECG086/1198)
 */
#include <linux/module.h>
#include <linux/version.h>
#include <linux/types.h>
#include <linux/pci.h>
#include <linux/kernel.h>
#include <linux/malloc.h>
#include <linux/delay.h>
#include <linux/major.h>
#include <linux/fs.h>
#include <linux/blkpg.h>
#include <linux/timer.h>
#include <linux/proc_fs.h>
#include <linux/hdreg.h>
#include <asm/uaccess.h>
#include <asm/spinlock.h>
#include <asm/io.h>


#define SMART2_DRIVER_VERSION(maj,min,submin) ((maj<<16)|(min<<8)|(submin))

#define DRIVER_NAME "Compaq SMART2 Driver (v 1.0.4)"
#define DRIVER_VERSION SMART2_DRIVER_VERSION(1,0,4)
#define MAJOR_NR COMPAQ_SMART2_MAJOR
#include <linux/blk.h>
#include <linux/blkdev.h>
#include <linux/genhd.h>

#include "cpqarray.h"
#include "ida_cmd.h"
#include "smart1,2.h"
#include "ida_ioctl.h"

#define READ_AHEAD      128
#define NR_CMDS         128 /* This could probably go as high as ~400 */

#define MAX_CTLR        8
#define CTLR_SHIFT      8

static int nr_ctlr = 0;
static ctlr_info_t *hba[MAX_CTLR] = { 0, 0, 0, 0, 0, 0, 0, 0 };

static int eisa[8] = { 0, 0 ,0 ,0, 0, 0 ,0 ,0 };

#define NR_PRODUCTS (sizeof(products)/sizeof(struct board_type))

/*  board_id = Subsystem Device ID & Vendor ID
 *  product = Marketing Name for the board
 *  access = Address of the struct of function pointers 
 */
struct board_type products[] = {
        { 0x0040110E, "IDA",                    &smart1_access },
        { 0x0140110E, "IDA-2",                  &smart1_access },
        { 0x1040110E, "IAES",                   &smart1_access },
        { 0x2040110E, "SMART",                  &smart1_access },
        { 0x3040110E, "SMART-2/E",              &smart2e_access },
        { 0x40300E11, "SMART-2/P",              &smart2_access },
        { 0x40310E11, "SMART-2SL",              &smart2_access },
        { 0x40320E11, "Smart Array 3200",       &smart2_access },
        { 0x40330E11, "Smart Array 3100ES",     &smart2_access },
        { 0x40340E11, "Smart Array 221",        &smart2_access },
        { 0x40400E11, "Integrated Array",       &smart4_access },
        { 0x40500E11, "Smart Array 4200",       &smart4_access },
        { 0x40510E11, "Smart Array 4250ES",     &smart4_access },
};

static struct hd_struct * ida;
static int * ida_sizes;
static int * ida_blocksizes;
static int * ida_hardsizes;
static struct gendisk ida_gendisk[MAX_CTLR];

struct proc_dir_entry *proc_array = NULL;

/* Debug... */
#define DBG(s)  do { s } while(0)
/* Debug (general info)... */
#define DBGINFO(s) do { } while(0)
/* Debug Paranoid... */
#define DBGP(s)  do { } while(0)
/* Debug Extra Paranoid... */
#define DBGPX(s) do { } while(0)

void cpqarray_init(void);
static int cpqarray_pci_detect(void);
static int cpqarray_pci_init(ctlr_info_t *c, unchar bus, unchar device_fn);
static ulong remap_pci_mem(ulong base, ulong size);
static int cpqarray_eisa_detect(void);
static int pollcomplete(int ctlr);
static void getgeometry(int ctlr);
static void start_fwbk(int ctlr);

static cmdlist_t * cmd_alloc(ctlr_info_t *h);
static void cmd_free(ctlr_info_t *h, cmdlist_t *c);

static int sendcmd(
        __u8    cmd,
        int     ctlr,
        void    *buff,
        size_t  size,
        unsigned int blk,
        unsigned int blkcnt,
        unsigned int log_unit );

static int ida_open(struct inode *inode, struct file *filep);
static int ida_release(struct inode *inode, struct file *filep);
static int ida_ioctl(struct inode *inode, struct file *filep, unsigned int cmd, unsigned long arg);
static int ida_ctlr_ioctl(int ctlr, int dsk, ida_ioctl_t *io);

static void do_ida_request(int i);
/*
 * This is a hack.  This driver eats a major number for each controller, and
 * sets blkdev[xxx].request_fn to each one of these so the real request
 * function knows what controller its working with.
 */
#define DO_IDA_REQUEST(x) { do_ida_request(x); }

static void do_ida_request0(void) DO_IDA_REQUEST(0);
static void do_ida_request1(void) DO_IDA_REQUEST(1);
static void do_ida_request2(void) DO_IDA_REQUEST(2);
static void do_ida_request3(void) DO_IDA_REQUEST(3);
static void do_ida_request4(void) DO_IDA_REQUEST(4);
static void do_ida_request5(void) DO_IDA_REQUEST(5);
static void do_ida_request6(void) DO_IDA_REQUEST(6);
static void do_ida_request7(void) DO_IDA_REQUEST(7);

static void start_io(ctlr_info_t *h);

static inline void addQ(cmdlist_t **Qptr, cmdlist_t *c);
static inline cmdlist_t *removeQ(cmdlist_t **Qptr, cmdlist_t *c);
static inline void complete_buffers(struct buffer_head *bh, int ok);
static inline void complete_command(cmdlist_t *cmd, int timeout);

static void do_ida_intr(int irq, void *dev_id, struct pt_regs * regs);
static void ida_timer(unsigned long tdata);
static int frevalidate_logvol(kdev_t dev);
static int revalidate_logvol(kdev_t dev, int maxusage);
static int revalidate_allvol(kdev_t dev);

static void ida_procinit(int i);
static int ida_proc_get_info(char *buffer, char **start, off_t offset, int length, int *eof, void *data);

static void ida_geninit(struct gendisk *g)
{
        int ctlr = g-ida_gendisk;
        int i,j;
        drv_info_t *drv;

        for(i=0; i<NWD; i++) {
                drv = &hba[ctlr]->drv[i];
                if (!drv->nr_blks)
                        continue;
                ida[(ctlr<<CTLR_SHIFT) + (i<<NWD_SHIFT)].nr_sects =
                ida_sizes[(ctlr<<CTLR_SHIFT) + (i<<NWD_SHIFT)] =
                                drv->nr_blks;

                for(j=0; j<16; j++) {
                        ida_blocksizes[(ctlr<<CTLR_SHIFT) + (i<<NWD_SHIFT)+j] =
                                1024;
                        ida_hardsizes[(ctlr<<CTLR_SHIFT) + (i<<NWD_SHIFT)+j] =
                                drv->blk_size;
                }
                ida_gendisk[ctlr].nr_real++;
        }

}

struct file_operations ida_fops  = {
        NULL,                        /* lseek - default */
        block_read,                  /* read - general block-dev read */
        block_write,                 /* write - general block-dev write */
        NULL,                        /* readdir - bad */
        NULL,                        /* select */
        ida_ioctl,                  /* ioctl */
        NULL,                        /* mmap */
        ida_open,                     /* open code */
        NULL,
        ida_release,                  /* release */
        block_fsync,                  /* fsync */
        NULL,                        /* fasync */
        NULL,                   /* Disk change */
        frevalidate_logvol,     /* revalidate */
};


/*
 * Get us a file in /proc/array that says something about each controller.
 * Create /proc/array if it doesn't exist yet.
 */
static void ida_procinit(int i)
{
        struct proc_dir_entry *pd;

        if (proc_array == NULL) {
                proc_array = create_proc_entry("array", S_IFDIR|S_IRUGO|S_IXUGO,
                                                                &proc_root);
                if (!proc_array) return;
        }

        pd = create_proc_entry(hba[i]->devname, S_IFREG|S_IRUGO, proc_array);
        if (!pd) return;
        pd->read_proc = ida_proc_get_info;
        pd->data = hba[i];
}

/*
 * Report information about this controller.
 */
static int ida_proc_get_info(char *buffer, char **start, off_t offset, int length, int *eof, void *data)
{
        off_t pos = 0;
        off_t len = 0;
        int size, i, ctlr;
        ctlr_info_t *h = (ctlr_info_t*)data;
        drv_info_t *drv;
#ifdef CPQ_PROC_PRINT_QUEUES
        cmdlist_t *c;
#endif

        ctlr = h->ctlr;
        size = sprintf(buffer, "%s:  Compaq %s Controller\n"
                "       Board ID: %08lx\n"
                "       Firmware Revision: %c%c%c%c\n"
                "       Controller Sig: %08lx\n"
                "       Memory Address: %08lx\n"
                "       I/O Port: %04x\n"
                "       IRQ: %x\n"
                "       Logical drives: %d\n"
                "       Physical drives: %d\n\n"
                "       Current Q depth: %d\n"
                "       Max Q depth since init: %d\n\n",
                h->devname, 
                h->product_name,
                (unsigned long)h->board_id,
                h->firm_rev[0], h->firm_rev[1], h->firm_rev[2], h->firm_rev[3],
                (unsigned long)h->ctlr_sig, (unsigned long)h->vaddr,
                (unsigned int) h->ioaddr, (unsigned int)h->intr,
                h->log_drives, h->phys_drives,
                h->Qdepth, h->maxQsinceinit);

        pos += size; len += size;
        
        size = sprintf(buffer+len, "Logical Drive Info:\n");
        pos += size; len += size;

        for(i=0; i<h->log_drives; i++) {
                drv = &h->drv[i];
                size = sprintf(buffer+len, "ida/c%dd%d: blksz=%d nr_blks=%d\n",
                                ctlr, i, drv->blk_size, drv->nr_blks);
                pos += size; len += size;
        }

#ifdef CPQ_PROC_PRINT_QUEUES
        size = sprintf(buffer+len, "\nCurrent Queues:\n");
        pos += size; len += size;

        c = h->reqQ;
        size = sprintf(buffer+len, "reqQ = %p", c); pos += size; len += size;
        if (c) c=c->next;
        while(c && c != h->reqQ) {
                size = sprintf(buffer+len, "->%p", c);
                pos += size; len += size;
                c=c->next;
        }

        c = h->cmpQ;
        size = sprintf(buffer+len, "\ncmpQ = %p", c); pos += size; len += size;
        if (c) c=c->next;
        while(c && c != h->cmpQ) {
                size = sprintf(buffer+len, "->%p", c);
                pos += size; len += size;
                c=c->next;
        }

        size = sprintf(buffer+len, "\n"); pos += size; len += size;
#endif
        size = sprintf(buffer+len, "nr_allocs = %d\nnr_frees = %d\n",
                        h->nr_allocs, h->nr_frees);
        pos += size; len += size;

        *eof = 1;
        *start = buffer+offset;
        len -= offset;
        if (len>length)
                len = length;
        return len;
}

#ifdef MODULE

MODULE_PARM(eisa, "1-8i");
EXPORT_NO_SYMBOLS;

/* This is a bit of a hack... */
int init_module(void)
{
        int i, j;
        cpqarray_init();
        if (nr_ctlr == 0)
                return -EIO;

        for(i=0; i<nr_ctlr; i++) {
                ida_geninit(&ida_gendisk[i]); 
                for(j=0; j<NWD; j++)    
                        if (ida_sizes[(i<<CTLR_SHIFT) + (j<<NWD_SHIFT)])
                                resetup_one_dev(&ida_gendisk[i], j);
        }
        return 0;
}
void cleanup_module(void)
{
        int i;
        struct gendisk *g;

        for(i=0; i<nr_ctlr; i++) {
                hba[i]->access.set_intr_mask(hba[i], 0);
                free_irq(hba[i]->intr, hba[i]);
                iounmap((void*)hba[i]->vaddr);
                unregister_blkdev(MAJOR_NR+i, hba[i]->devname);
                del_timer(&hba[i]->timer);
                remove_proc_entry(hba[i]->devname, proc_array);
                kfree(hba[i]->cmd_pool);
                kfree(hba[i]->cmd_pool_bits);

                if (gendisk_head == &ida_gendisk[i]) {
                        gendisk_head = ida_gendisk[i].next;
                } else {
                        for(g=gendisk_head; g; g=g->next) {
                                if (g->next == &ida_gendisk[i]) {
                                        g->next = ida_gendisk[i].next;
                                        break;
                                }
                        }
                }
        }
        remove_proc_entry("array", &proc_root);
        kfree(ida);
        kfree(ida_sizes);
        kfree(ida_hardsizes);
        kfree(ida_blocksizes);


}
#endif /* MODULE */

/*
 *  This is it.  Find all the controllers and register them.  I really hate
 *  stealing all these major device numbers.
 */
void cpqarray_init(void)
{
        void (*request_fns[MAX_CTLR])(void) = {
                do_ida_request0, do_ida_request1,
                do_ida_request2, do_ida_request3,
                do_ida_request4, do_ida_request5,
                do_ida_request6, do_ida_request7,
        };
        int i;

        /* detect controllers */
        cpqarray_pci_detect();
        cpqarray_eisa_detect();
        
        if (nr_ctlr == 0)
                return;

        printk(DRIVER_NAME "\n");
        printk("Found %d controller(s)\n", nr_ctlr);

        /* allocate space for disk structs */
        ida = kmalloc(sizeof(struct hd_struct)*nr_ctlr*NWD*16, GFP_KERNEL);
        
        if(ida==NULL)
                goto bail;
        ida_sizes =      kmalloc(sizeof(int)*nr_ctlr*NWD*16, GFP_KERNEL);
        if(ida_sizes==NULL)
                goto bail2;
        ida_blocksizes = kmalloc(sizeof(int)*nr_ctlr*NWD*16, GFP_KERNEL);
        if(ida_blocksizes==NULL)
                goto bail3;
        ida_hardsizes =  kmalloc(sizeof(int)*nr_ctlr*NWD*16, GFP_KERNEL);
        if(ida_hardsizes==NULL)
                goto bail4;

        memset(ida, 0, sizeof(struct hd_struct)*nr_ctlr*NWD*16);
        memset(ida_sizes, 0, sizeof(int)*nr_ctlr*NWD*16);
        memset(ida_blocksizes, 0, sizeof(int)*nr_ctlr*NWD*16);
        memset(ida_hardsizes, 0, sizeof(int)*nr_ctlr*NWD*16);
        memset(ida_gendisk, 0, sizeof(struct gendisk)*MAX_CTLR);

        /* 
         * register block devices
         * Find disks and fill in structs
         * Get an interrupt, set the Q depth and get into /proc
         */
        for(i=0; i< nr_ctlr; i++) {
                hba[i]->access.set_intr_mask(hba[i], 0);
                if (request_irq(hba[i]->intr, do_ida_intr,
                        SA_INTERRUPT|SA_SHIRQ, hba[i]->devname, hba[i])) {

                        printk("Unable to get irq %d for %s\n", 
                                hba[i]->intr, hba[i]->devname);
                        continue;
                }
                if (register_blkdev(MAJOR_NR+i, hba[i]->devname, &ida_fops)) {
                        printk("Unable to get major number %d for ida\n",
                                MAJOR_NR+i);
                        continue;
                }

                hba[i]->cmd_pool = (cmdlist_t *)kmalloc(
                                NR_CMDS * sizeof(cmdlist_t), GFP_KERNEL);
                hba[i]->cmd_pool_bits = (__u32*)kmalloc(
                                ((NR_CMDS+31)/32)*sizeof(__u32), GFP_KERNEL);
                
                if(hba[i]->cmd_pool_bits == NULL || hba[i]->cmd_pool == NULL)
                {
                        int j;
                        if(hba[i]->cmd_pool_bits)
                                kfree(hba[i]->cmd_pool_bits);
                        if(hba[i]->cmd_pool)
                                kfree(hba[i]->cmd_pool);
                        for(j=0;i<i;j++)
                        {
                                free_irq(hba[j]->intr, hba[j]);
                                unregister_blkdev(MAJOR_NR+j, hba[j]->devname);
                                kfree(hba[j]->cmd_pool_bits);
                                kfree(hba[j]->cmd_pool);
                        }
                        free_irq(hba[i]->intr, hba[i]);
                        unregister_blkdev(MAJOR_NR+i, hba[i]->devname);
                        goto bail5;
                }
                memset(hba[i]->cmd_pool, 0, NR_CMDS * sizeof(cmdlist_t));
                memset(hba[i]->cmd_pool_bits, 0, ((NR_CMDS+31)/32)*sizeof(__u32));
                printk("Finding drives on %s", hba[i]->devname);
                getgeometry(i);
                start_fwbk(i); 

                hba[i]->access.set_intr_mask(hba[i], FIFO_NOT_EMPTY);

                ida_procinit(i);
                ida_gendisk[i].major = MAJOR_NR + i;
                ida_gendisk[i].major_name = "ida";
                ida_gendisk[i].minor_shift = NWD_SHIFT;
                ida_gendisk[i].max_p = 16;
                ida_gendisk[i].max_nr = 16;
                ida_gendisk[i].init = ida_geninit;
                ida_gendisk[i].part = ida + (i*256);
                ida_gendisk[i].sizes = ida_sizes + (i*256);
                /* ida_gendisk[i].nr_real is handled by getgeometry */
        
                blk_dev[MAJOR_NR+i].request_fn = request_fns[i];
                blksize_size[MAJOR_NR+i] = ida_blocksizes + (i*256);
                hardsect_size[MAJOR_NR+i] = ida_hardsizes + (i*256);
                read_ahead[MAJOR_NR+i] = READ_AHEAD;

                /* Get on the disk list */
                ida_gendisk[i].next = gendisk_head;
                gendisk_head = &ida_gendisk[i];

                init_timer(&hba[i]->timer);
                hba[i]->timer.expires = jiffies + IDA_TIMER;
                hba[i]->timer.data = (unsigned long)hba[i];
                hba[i]->timer.function = ida_timer;
                add_timer(&hba[i]->timer);

        }
        /* done ! */
        return;
bail5:
        kfree(ida_hardsizes);
bail4:
        kfree(ida_blocksizes);
bail3:
        kfree(ida_sizes);
bail2:
        kfree(ida);
bail:
        printk(KERN_ERR "cpqarray: out of memory.\n");
}

/*
 * Find the controller and initialize it
 *  Cannot use the class code to search, because older array controllers use
 *    0x018000 and new ones use 0x010400.  So I might as well search for each
 *    each device IDs, being there are only going to be three of them. 
 */
static int cpqarray_pci_detect(void)
{
        int index;
        unchar bus=0, dev_fn=0;
        
        /* This seems dumb, surely we could use an array of types to match ?? */

        for(index=0; ; index++) {
                if (pcibios_find_device(PCI_VENDOR_ID_DEC,
                         PCI_DEVICE_ID_COMPAQ_42XX, index, &bus, &dev_fn))
                        break;
                printk(KERN_DEBUG "42XX Device has been found at %x %x\n",
                                bus, dev_fn);
                if (index == 1000000) break;
                if (nr_ctlr == 8) {
                        printk("This driver supports a maximum of "
                                "8 controllers.\n");
                        break;
                }
                
                hba[nr_ctlr] = kmalloc(sizeof(ctlr_info_t), GFP_KERNEL);
                if(hba[nr_ctlr]==NULL)
                {
                        printk(KERN_ERR "cpqarray: out of memory.\n");
                        continue;
                }
                memset(hba[nr_ctlr], 0, sizeof(ctlr_info_t));
                if (cpqarray_pci_init(hba[nr_ctlr], bus, dev_fn) != 0)
                        continue;
                sprintf(hba[nr_ctlr]->devname, "ida%d", nr_ctlr);
                hba[nr_ctlr]->ctlr = nr_ctlr;
                nr_ctlr++;
        }

        for(index=0; ; index++) {
                unsigned short subvendor=0;

                if (pcibios_find_device(PCI_VENDOR_ID_NCR,
                         PCI_DEVICE_ID_NCR_53C1510, index, &bus, &dev_fn))
                        break;
                printk(KERN_DEBUG "Integrated RAID Chip has been found at %x %x\n",
                                bus, dev_fn);
                if(pcibios_read_config_word(bus, dev_fn, 
                        PCI_SUBSYSTEM_VENDOR_ID, &subvendor))   
                {
                        printk(KERN_DEBUG "cpqarray failed to read subvendor\n");
                        break;
                }
                if(subvendor !=  PCI_VENDOR_ID_COMPAQ)
                        break;
                printk(KERN_DEBUG "Its a compaq RAID Chip\n");
                if (index == 1000000) break;
                if (nr_ctlr == 8) {
                        printk("This driver supports a maximum of "
                                "8 controllers.\n");
                        break;
                }

                hba[nr_ctlr] = kmalloc(sizeof(ctlr_info_t), GFP_KERNEL);
                if(hba[nr_ctlr]==NULL)
                {
                        printk(KERN_ERR "cpqarray: out of memory.\n");
                        continue;
                }
                memset(hba[nr_ctlr], 0, sizeof(ctlr_info_t));
                /* DOESNT THIS LEAK MEMORY ?????? - AC */
                if (cpqarray_pci_init(hba[nr_ctlr], bus, dev_fn) != 0)
                        continue;
                sprintf(hba[nr_ctlr]->devname, "ida%d", nr_ctlr);
                hba[nr_ctlr]->ctlr = nr_ctlr;
                nr_ctlr++;
        }

        for(index=0; ; index++) {
                if (pcibios_find_device(PCI_VENDOR_ID_COMPAQ,
                        PCI_DEVICE_ID_COMPAQ_SMART2P, index, &bus, &dev_fn))
                        break;

                if (index == 1000000) break;
                if (nr_ctlr == 8) {
                        printk("This driver supports a maximum of "
                                "8 controllers.\n");
                        break;
                }
                
                hba[nr_ctlr] = kmalloc(sizeof(ctlr_info_t), GFP_KERNEL);
                if(hba[nr_ctlr]==NULL)
                {
                        printk(KERN_ERR "cpqarray: out of memory.\n");
                        continue;
                }
                memset(hba[nr_ctlr], 0, sizeof(ctlr_info_t));
                if (cpqarray_pci_init(hba[nr_ctlr], bus, dev_fn) != 0)
                        continue;
                sprintf(hba[nr_ctlr]->devname, "ida%d", nr_ctlr);
                hba[nr_ctlr]->ctlr = nr_ctlr;
                nr_ctlr++;
        }

        return nr_ctlr;
}
/*
 * Find the IO address of the controller, its IRQ and so forth.  Fill
 * in some basic stuff into the ctlr_info_t structure.
 */
static int cpqarray_pci_init(ctlr_info_t *c, unchar bus, unchar device_fn)
{
        ushort vendor_id, device_id, command;
        unchar cache_line_size, latency_timer;
        unchar irq, revision;
        uint addr[6];
        __u32 board_id;
        struct pci_dev *pdev;

        int i;

        pdev = pci_find_slot(bus, device_fn);
        vendor_id = pdev->vendor;
        device_id = pdev->device;
        irq = pdev->irq;

        for(i=0; i<6; i++)
                addr[i] = pdev->resource[i].flags;

        (void) pcibios_read_config_word(bus, device_fn,
                                        PCI_COMMAND,&command);
        (void) pcibios_read_config_byte(bus, device_fn,
                                        PCI_CLASS_REVISION,&revision);
        (void) pcibios_read_config_byte(bus, device_fn,
                                        PCI_CACHE_LINE_SIZE, &cache_line_size);
        (void) pcibios_read_config_byte(bus, device_fn,
                                        PCI_LATENCY_TIMER, &latency_timer);

        (void) pcibios_read_config_dword(bus, device_fn, 0x2c, &board_id);

DBGINFO(
        printk("vendor_id = %x\n", vendor_id);
        printk("device_id = %x\n", device_id);
        printk("command = %x\n", command);
        for(i=0; i<6; i++)
                printk("addr[%d] = %x\n", i, addr[i]);
        printk("revision = %x\n", revision);
        printk("irq = %x\n", irq);
        printk("cache_line_size = %x\n", cache_line_size);
        printk("latency_timer = %x\n", latency_timer);
        printk("board_id = %x\n", board_id);
);

        c->intr = irq;
        c->ioaddr = addr[0] & ~0x1;

        /*
         * Memory base addr is first addr with the first bit _not_ set
         */
        for(i=0; i<6; i++)
                if (!(addr[i] & 0x1)) {
                        c->paddr = pdev->resource[i].start;
                        break;
                }
        c->vaddr = remap_pci_mem(c->paddr, 128);
        c->board_id = board_id;

        for(i=0; i<NR_PRODUCTS; i++) {
                if (board_id == products[i].board_id) {
                        c->product_name = products[i].product_name;
                        c->access = *(products[i].access);
                        break;
                }
        }
        if (i == NR_PRODUCTS) {
                printk("Sorry, I don't know how to access the SMART Array"
                        " controller %08lx\n", (unsigned long)board_id);
                return -1;
        }

        return 0;
}

/*
 * Map (physical) PCI mem into (virtual) kernel space
 */
static ulong remap_pci_mem(ulong base, ulong size)
{
        ulong page_base        = ((ulong) base) & PAGE_MASK;
        ulong page_offs        = ((ulong) base) - page_base;
        ulong page_remapped    = (ulong) ioremap(page_base, page_offs+size);

        return (ulong) (page_remapped ? (page_remapped + page_offs) : 0UL);
}

/*
 * Copy the contents of the ints[] array passed to us by init.
 */
void cpqarray_setup(char *str, int *ints)
{
        int i;
        for(i=0; i<ints[0] && i<8; i++)
                eisa[i] = ints[i+1];
}

/*
 * Find an EISA controller's signature.  Set up an hba if we find it.
 */
static int cpqarray_eisa_detect(void)
{
        int i=0, j;
        __u32 board_id;
        int intr;

        while(i<8 && eisa[i]) {
                if (nr_ctlr == 8) {
                        printk("This driver supports a maximum of "
                                "8 controllers.\n");
                        break;
                }
                board_id = inl(eisa[i]+0xC80);
                for(j=0; j < NR_PRODUCTS; j++)
                        if (board_id == products[j].board_id) 
                                break;

                if (j == NR_PRODUCTS) {
                        printk("Sorry, I don't know how to access the SMART"
                          " Array controller %08lx\n", (unsigned long)board_id);
                        continue;
                }
                hba[nr_ctlr] = kmalloc(sizeof(ctlr_info_t), GFP_KERNEL);
                if(hba[nr_ctlr]==NULL)
                {
                        printk(KERN_ERR "cpqarray: out of memory.\n");
                        continue;
                }
                memset(hba[nr_ctlr], 0, sizeof(ctlr_info_t));
                hba[nr_ctlr]->ioaddr = eisa[i];

                /*
                 * Read the config register to find our interrupt
                 */
                intr = inb(eisa[i]+0xCC0) >> 4;
                if (intr & 1) intr = 11;
                else if (intr & 2) intr = 10;
                else if (intr & 4) intr = 14;
                else if (intr & 8) intr = 15;
                
                hba[nr_ctlr]->intr = intr;
                sprintf(hba[nr_ctlr]->devname, "ida%d", nr_ctlr);
                hba[nr_ctlr]->product_name = products[j].product_name;
                hba[nr_ctlr]->access = *(products[j].access);
                hba[nr_ctlr]->ctlr = nr_ctlr;
                hba[nr_ctlr]->board_id = board_id;

DBGINFO(
        printk("i = %d, j = %d\n", i, j);
        printk("irq = %x\n", intr);
        printk("product name = %s\n", products[j].product_name);
        printk("board_id = %x\n", board_id);
);

                nr_ctlr++;
                i++;
        }

        return nr_ctlr;
}


/*
 * Open.  Make sure the device is really there.
 */
static int ida_open(struct inode *inode, struct file *filep)
{
        int ctlr = MAJOR(inode->i_rdev) - MAJOR_NR;
        int dsk  = MINOR(inode->i_rdev) >> NWD_SHIFT;

        DBGINFO(printk("ida_open %x (%x:%x)\n", inode->i_rdev, ctlr, dsk) );
        if (ctlr > MAX_CTLR || hba[ctlr] == NULL)
                return -ENXIO;

        if (!suser() && ida_sizes[(ctlr << CTLR_SHIFT) +
                                                MINOR(inode->i_rdev)] == 0)
                return -ENXIO;

        /*
         * Root is allowed to open raw volume zero even if its not configured
         * so array config can still work.  I don't think I really like this,
         * but I'm already using way to many device nodes to claim another one
         * for "raw controller".
         */
        if (suser()
                && ida_sizes[(ctlr << CTLR_SHIFT) + MINOR(inode->i_rdev)] == 0 
                && MINOR(inode->i_rdev) != 0)
                return -ENXIO;

        hba[ctlr]->drv[dsk].usage_count++;
        hba[ctlr]->usage_count++;
        MOD_INC_USE_COUNT;
        return 0;
}

/*
 * Close.  Sync first.
 */
static int ida_release(struct inode *inode, struct file *filep)
{
        int ctlr = MAJOR(inode->i_rdev) - MAJOR_NR;
        int dsk  = MINOR(inode->i_rdev) >> NWD_SHIFT;

        DBGINFO(printk("ida_release %x (%x:%x)\n", inode->i_rdev, ctlr, dsk) );
        fsync_dev(inode->i_rdev);

        hba[ctlr]->drv[dsk].usage_count--;
        hba[ctlr]->usage_count--;
        MOD_DEC_USE_COUNT;
        return 0;
}

/*
 * Enqueuing and dequeuing functions for cmdlists.
 */
static inline void addQ(cmdlist_t **Qptr, cmdlist_t *c)
{
        if (*Qptr == NULL) {
                *Qptr = c;
                c->next = c->prev = c;
        } else {
                c->prev = (*Qptr)->prev;
                c->next = (*Qptr);
                (*Qptr)->prev->next = c;
                (*Qptr)->prev = c;
        }
}

static inline cmdlist_t *removeQ(cmdlist_t **Qptr, cmdlist_t *c)
{
        if (c && c->next != c) {
                if (*Qptr == c) *Qptr = c->next;
                c->prev->next = c->next;
                c->next->prev = c->prev;
        } else {
                *Qptr = NULL;
        }
        return c;
}

/*
 * Get a request and submit it to the controller.
 * This routine needs to grab all the requests it possibly can from the
 * req Q and submit them.  Interrupts are off (and need to be off) when you
 * are in here (either via the dummy do_ida_request functions or by being
 * called from the interrupt handler
 */
static void do_ida_request(int ctlr)
{
        ctlr_info_t *h = hba[ctlr];
        cmdlist_t *c;
        int seg, sect;
        char *lastdataend;
        struct buffer_head *bh;
        struct request *creq;

        creq = blk_dev[MAJOR_NR+ctlr].current_request;
        if (creq == NULL || creq->rq_status == RQ_INACTIVE)
                goto doreq_done;

        if (ctlr != MAJOR(creq->rq_dev)-MAJOR_NR ||
                ctlr > nr_ctlr || h == NULL) {
                printk("doreq cmd for %d, %x at %p\n",
                                ctlr, creq->rq_dev, creq);
                complete_buffers(creq->bh, 0);
                goto doreq_done;
        }

        if ((c = cmd_alloc(h)) == NULL)
                goto doreq_done;

        bh = creq->bh;

        c->ctlr = ctlr;
        c->hdr.unit = MINOR(creq->rq_dev) >> NWD_SHIFT;
        c->hdr.size = sizeof(rblk_t) >> 2;
        c->size += sizeof(rblk_t);

        c->req.hdr.blk = ida[(ctlr<<CTLR_SHIFT) + MINOR(creq->rq_dev)].start_sect + creq->sector;
        c->bh = bh;
DBGPX(
        if (bh == NULL)
                panic("bh == NULL?");
        
        printk("sector=%d, nr_sectors=%d\n", creq->sector, creq->nr_sectors);
);
        seg = 0; lastdataend = NULL;
        sect = 0;
        while(bh) {
                sect += bh->b_size/512;
DBGPX(
                if (bh->b_size % 512) {
                        printk("Oh damn.  %d+%d, size = %d\n", creq->sector, sect, bh->b_size);
                        panic("b_size %% 512 != 0");
                }
);
                if (bh->b_data == lastdataend) {
                        c->req.sg[seg-1].size += bh->b_size;
                        lastdataend += bh->b_size;
                } else {
                        c->req.sg[seg].size = bh->b_size;
                        c->req.sg[seg].addr = (__u32)virt_to_bus(bh->b_data);
                        lastdataend = bh->b_data + bh->b_size;
                        if (++seg == SG_MAX)
                                break;
                }
                bh = bh->b_reqnext;
        }
DBGPX(  printk("Submitting %d sectors in %d segments\n", sect, seg); );
        c->req.hdr.sg_cnt = seg;
        c->req.hdr.blk_cnt = sect;

        creq->sector += sect;
        creq->nr_sectors -= sect;

        /* Ready the next request:
         * Fix up creq if we still have more buffers in the buffer chain, or
         * mark this request as done and ready the next one.
         */
        if (creq->nr_sectors) {
DBGPX(
                if (bh==NULL) {
                        printk("sector=%d, nr_sectors=%d, sect=%d, seg=%d\n",
                                creq->sector, creq->nr_sectors, sect, seg);
                        panic("mother...");
                }
);
                creq->bh = bh->b_reqnext;
                bh->b_reqnext = NULL;
DBGPX(          printk("More to do on same request %p\n", creq); );
        } else {
DBGPX(          printk("Done with %p, queueing %p\n", creq, creq->next); );
                creq->rq_status = RQ_INACTIVE;
                blk_dev[MAJOR_NR+ctlr].current_request = creq->next;
                wake_up(&wait_for_request);
        }

        c->req.hdr.cmd = (creq->cmd == READ) ? IDA_READ : IDA_WRITE;
        c->type = CMD_RWREQ;

        /* Put the request on the tail of the request queue */
        addQ(&h->reqQ, c);
        h->Qdepth++;
        if (h->Qdepth > h->maxQsinceinit) h->maxQsinceinit = h->Qdepth;

doreq_done:
        start_io(h);
}

/* 
 * start_io submits everything on a controller's request queue
 * and moves it to the completion queue.
 *
 * Interrupts had better be off if you're in here
 */
static void start_io(ctlr_info_t *h)
{
        cmdlist_t *c;

        while((c = h->reqQ) != NULL) {
                /* Can't do anything if we're busy */
                if (h->access.fifo_full(h) == 0)
                        return;

                /* Get the first entry from the request Q */
                removeQ(&h->reqQ, c);
                h->Qdepth--;
        
                /* Tell the controller to do our bidding */
                h->access.submit_command(h, c);

                /* Get onto the completion Q */
                addQ(&h->cmpQ, c);
        }
}

static inline void complete_buffers(struct buffer_head *bh, int ok)
{
        struct buffer_head *xbh;
        while(bh) {
                xbh = bh->b_reqnext;
                bh->b_reqnext = NULL;
                
                bh->b_end_io(bh, ok);

                bh = xbh;
        }
}
/*
 * Mark all buffers that cmd was responsible for
 */
static inline void complete_command(cmdlist_t *cmd, int timeout)
{
        char buf[80];
        int ok=1;

        if (cmd->req.hdr.rcode & RCODE_NONFATAL &&
           (hba[cmd->ctlr]->misc_tflags & MISC_NONFATAL_WARN) == 0) {
                sprintf(buf, "Non Fatal error on ida/c%dd%d\n",
                                cmd->ctlr, cmd->hdr.unit);
                console_print(buf);
                hba[cmd->ctlr]->misc_tflags |= MISC_NONFATAL_WARN;
        }
        if (cmd->req.hdr.rcode & RCODE_FATAL) {
                sprintf(buf, "Fatal error on ida/c%dd%d\n",
                                cmd->ctlr, cmd->hdr.unit);
                console_print(buf);
                ok = 0;
        }
        if (cmd->req.hdr.rcode & RCODE_INVREQ) {
                                sprintf(buf, "Invalid request on ida/c%dd%d = (cmd=%x sect=%d cnt=%d sg=%d ret=%x)\n",
                                cmd->ctlr, cmd->hdr.unit, cmd->req.hdr.cmd,
                                cmd->req.hdr.blk, cmd->req.hdr.blk_cnt,
                                cmd->req.hdr.sg_cnt, cmd->req.hdr.rcode);
                console_print(buf);
                ok = 0; 
        }
        if (timeout) ok = 0;
        complete_buffers(cmd->bh, ok);
}

/*
 *  The controller will interrupt us upon completion of commands.
 *  Find the command on the completion queue, remove it, tell the OS and
 *  try to queue up more IO
 */
static void do_ida_intr(int irq, void *dev_id, struct pt_regs *regs)
{
        ctlr_info_t *h = dev_id;
        cmdlist_t *c;
        unsigned long istat;
        unsigned long flags;
        __u32 a,a1;


        istat = h->access.intr_pending(h);
        /* Is this interrupt for us? */
        if (istat == 0)
                return;

        /*
         * If there are completed commands in the completion queue,
         * we had better do something about it.
         */
        spin_lock_irqsave(&io_request_lock, flags);
        if (istat & FIFO_NOT_EMPTY) {
                while((a = h->access.command_completed(h))) {
                        a1 = a; a &= ~3;
                        if ((c = h->cmpQ) == NULL) goto bad_completion;
                        while(c->busaddr != a) {
                                c = c->next;
                                if (c == h->cmpQ) break;
                        }
                        /*
                         * If we've found the command, take it off the
                         * completion Q and free it
                         */
                        if (c->busaddr == a) {
                                removeQ(&h->cmpQ, c);
                                if (c->type == CMD_RWREQ) {
                                        complete_command(c, 0);
                                        cmd_free(h, c);
                                } else if (c->type == CMD_IOCTL_PEND) {
                                        c->type = CMD_IOCTL_DONE;
                                }
                                continue;
                        }
bad_completion:
                        printk("Completion of %08lx ignored\n", (unsigned long)a1);
                }
        }

        /*
         * See if we can queue up some more IO
         */
        do_ida_request(h->ctlr);
        spin_unlock_irqrestore(&io_request_lock, flags);
}

/*
 * This timer was for timing out requests that haven't happened after
 * IDA_TIMEOUT.  That wasn't such a good idea.  This timer is used to
 * reset a flags structure so we don't flood the user with
 * "Non-Fatal error" messages.
 */
static void ida_timer(unsigned long tdata)
{
        ctlr_info_t *h = (ctlr_info_t*)tdata;

        h->timer.expires = jiffies + IDA_TIMER;
        add_timer(&h->timer);
        h->misc_tflags = 0;
}

/*
 *  ida_ioctl does some miscellaneous stuff like reporting drive geometry,
 *  setting readahead and submitting commands from userspace to the controller.
 */
static int ida_ioctl(struct inode *inode, struct file *filep, unsigned int cmd, unsigned long arg)
{
        int ctlr = MAJOR(inode->i_rdev) - MAJOR_NR;
        int dsk  = MINOR(inode->i_rdev) >> NWD_SHIFT;
        int error;
        int diskinfo[4];
        struct hd_geometry *geo = (struct hd_geometry *)arg;
        ida_ioctl_t *io = (ida_ioctl_t*)arg;
        ida_ioctl_t my_io;

        switch(cmd) {
        case HDIO_GETGEO:
                if (hba[ctlr]->drv[dsk].cylinders) {
                        diskinfo[0] = hba[ctlr]->drv[dsk].heads;
                        diskinfo[1] = hba[ctlr]->drv[dsk].sectors;
                        diskinfo[2] = hba[ctlr]->drv[dsk].cylinders;
                } else {
                        diskinfo[0] = 0xff;
                        diskinfo[1] = 0x3f;
                        diskinfo[2] = hba[ctlr]->drv[dsk].nr_blks / (0xff*0x3f);
                }
                put_user(diskinfo[0], &geo->heads);
                put_user(diskinfo[1], &geo->sectors);
                put_user(diskinfo[2], &geo->cylinders);
                put_user(ida[(ctlr<<CTLR_SHIFT)+MINOR(inode->i_rdev)].start_sect, &geo->start);
                return 0;
        case IDAGETDRVINFO:
                return copy_to_user(&io->c.drv,&hba[ctlr]->drv[dsk],sizeof(drv_info_t));
        case BLKGETSIZE:
                if (!arg) return -EINVAL;
                put_user(ida[(ctlr<<CTLR_SHIFT)+MINOR(inode->i_rdev)].nr_sects, (long*)arg);
                return 0;
        case BLKRRPART:
                return revalidate_logvol(inode->i_rdev, 1);
        case IDAPASSTHRU:
                if (!suser()) return -EPERM;
                error = copy_from_user(&my_io, io, sizeof(my_io));
                if (error) return error;
                error = ida_ctlr_ioctl(ctlr, dsk, &my_io);
                if (error) return error;
                error = copy_to_user(io, &my_io, sizeof(my_io));
                return error;
        case IDAGETCTLRSIG:
                if (!arg) return -EINVAL;
                put_user(hba[ctlr]->ctlr_sig, (int*)arg);
                return 0;
        case IDAREVALIDATEVOLS:
                return revalidate_allvol(inode->i_rdev);
        case IDADRIVERVERSION:
                if (!arg) return -EINVAL;
                put_user(DRIVER_VERSION, (unsigned long*)arg);
                return 0;

        case BLKFLSBUF:
        case BLKROSET:
        case BLKROGET:
        case BLKRASET:
        case BLKRAGET:
        case BLKPG:
                return blk_ioctl(inode->i_rdev, cmd, arg);

        default:
                return -EBADRQC;
        }
                
}
/*
 * ida_ctlr_ioctl is for passing commands to the controller from userspace.
 * The command block (io) has already been copied to kernel space for us,
 * however, any elements in the sglist need to be copied to kernel space
 * or copied back to userspace.
 *
 * Only root may perform a controller passthru command, however I'm not doing
 * any serious sanity checking on the arguments.  Doing an IDA_WRITE_MEDIA and
 * putting a 64M buffer in the sglist is probably a *bad* idea.
 */
static int ida_ctlr_ioctl(int ctlr, int dsk, ida_ioctl_t *io)
{
        ctlr_info_t *h = hba[ctlr];
        cmdlist_t *c;
        void *p = NULL;
        unsigned long flags;
        int error;

        if ((c = cmd_alloc(NULL)) == NULL)
                return -ENOMEM;
        c->ctlr = ctlr;
        c->hdr.unit = (io->unit & UNITVALID) ? (io->unit & ~UNITVALID) : dsk;
        c->hdr.size = sizeof(rblk_t) >> 2;
        c->size += sizeof(rblk_t);

        c->req.hdr.cmd = io->cmd;
        c->req.hdr.blk = io->blk;
        c->req.hdr.blk_cnt = io->blk_cnt;
        c->type = CMD_IOCTL_PEND;

        /* Pre submit processing */
        switch(io->cmd) {
        case PASSTHRU_A:
                p = kmalloc(io->sg[0].size, GFP_KERNEL);
                if (!p) { error = -ENOMEM; goto ioctl_err_exit; }
                copy_from_user(p, (void*)io->sg[0].addr, io->sg[0].size);
                c->req.bp = virt_to_bus(&(io->c));
                c->req.sg[0].size = io->sg[0].size;
                c->req.sg[0].addr = virt_to_bus(p);
                c->req.hdr.sg_cnt = 1;
                break;
        case IDA_READ:
                p = kmalloc(io->sg[0].size, GFP_KERNEL);
                if (!p) { error = -ENOMEM; goto ioctl_err_exit; }
                c->req.sg[0].size = io->sg[0].size;
                c->req.sg[0].addr = virt_to_bus(p);
                c->req.hdr.sg_cnt = 1;
                break;
        case IDA_WRITE:
        case IDA_WRITE_MEDIA:
        case DIAG_PASS_THRU:
                p = kmalloc(io->sg[0].size, GFP_KERNEL);
                if (!p) { error = -ENOMEM; goto ioctl_err_exit; }
                copy_from_user(p, (void*)io->sg[0].addr, io->sg[0].size);
                c->req.sg[0].size = io->sg[0].size;
                c->req.sg[0].addr = virt_to_bus(p);
                c->req.hdr.sg_cnt = 1;
                break;
        default:
                c->req.sg[0].size = sizeof(io->c);
                c->req.sg[0].addr = virt_to_bus(&io->c);
                c->req.hdr.sg_cnt = 1;
        }

        /* Put the request on the tail of the request queue */
        spin_lock_irqsave(&io_request_lock, flags);
        addQ(&h->reqQ, c);
        h->Qdepth++;
        start_io(h);
        spin_unlock_irqrestore(&io_request_lock, flags);

        /* Wait for completion */
        while(c->type != CMD_IOCTL_DONE)
                schedule();

        /* Post submit processing */
        switch(io->cmd) {
        case PASSTHRU_A:
        case IDA_READ:
        case DIAG_PASS_THRU:
                copy_to_user((void*)io->sg[0].addr, p, io->sg[0].size);
                /* fall through and free p */
        case IDA_WRITE:
        case IDA_WRITE_MEDIA:
                kfree(p);
                break;
        default:
                /* Nothing to do */
        }

        io->rcode = c->req.hdr.rcode;
        error = 0;
ioctl_err_exit:
        cmd_free(NULL, c);
        return error;
}

/*
 * Commands are pre-allocated in a large block.  Here we use a simple bitmap
 * scheme to suballocte them to the driver.  Operations that are not time
 * critical (and can wait for kmalloc and possibly sleep) can pass in NULL
 * as the first argument to get a new command.
 */
static cmdlist_t * cmd_alloc(ctlr_info_t *h)
{
        cmdlist_t * c;
        int i;

        if (h == NULL) {
                c = (cmdlist_t*)kmalloc(sizeof(cmdlist_t), GFP_KERNEL);
                if(c==NULL)
                        return NULL;
        } else {
                do {
                        i = find_first_zero_bit(h->cmd_pool_bits, NR_CMDS);
                        if (i == NR_CMDS)
                                return NULL;
                } while(test_and_set_bit(i%32, h->cmd_pool_bits+(i/32)) != 0);
                c = h->cmd_pool + i;
                h->nr_allocs++;
        }

        memset(c, 0, sizeof(cmdlist_t));
        c->busaddr = virt_to_bus(c);
        return c;
}

static void cmd_free(ctlr_info_t *h, cmdlist_t *c)
{
        int i;

        if (h == NULL) {
                kfree(c);
        } else {
                i = c - h->cmd_pool;
                clear_bit(i%32, h->cmd_pool_bits+(i/32));
                h->nr_frees++;
        }
}

/***********************************************************************
    name:        sendcmd
    Send a command to an IDA using the memory mapped FIFO interface
    and wait for it to complete.  
    This routine should only be called at init time.
***********************************************************************/
static int sendcmd(
        __u8    cmd,
        int     ctlr,
        void    *buff,
        size_t  size,
        unsigned int blk,
        unsigned int blkcnt,
        unsigned int log_unit )
{
        cmdlist_t *c;
        int complete;
        unsigned long temp;
        unsigned long i;
        ctlr_info_t *info_p = hba[ctlr];

        c = cmd_alloc(info_p);
        c->ctlr = ctlr;
        c->hdr.unit = log_unit;
        c->hdr.prio = 0;
        c->hdr.size = sizeof(rblk_t) >> 2;
        c->size += sizeof(rblk_t);

        /* The request information. */
        c->req.hdr.next = 0;
        c->req.hdr.rcode = 0;
        c->req.bp = 0;
        c->req.hdr.sg_cnt = 1;
        c->req.hdr.reserved = 0;
        
        if (size == 0)
                c->req.sg[0].size = 512;
        else
                c->req.sg[0].size = size;

        c->req.hdr.blk = blk;
        c->req.hdr.blk_cnt = blkcnt;
        c->req.hdr.cmd = (unsigned char) cmd;
        c->req.sg[0].addr = (__u32) virt_to_bus(buff);
        /*
         * Disable interrupt
         */
        info_p->access.set_intr_mask(info_p, 0);
        /* Make sure there is room in the command FIFO */
        /* Actually it should be completely empty at this time. */
        for (i = 200000; i > 0; i--) {
                temp = info_p->access.fifo_full(info_p);
                if (temp != 0) {
                        break;
                }
                udelay(10);
DBG(
                printk("ida%d: idaSendPciCmd FIFO full, waiting!\n",
                       ctlr);
);
        } 
        /*
         * Send the cmd
         */
        info_p->access.submit_command(info_p, c);
        complete = pollcomplete(ctlr);
        if (complete != 1) {
                if (complete != c->busaddr) {
                        printk(
                        "ida%d: idaSendPciCmd "
                      "Invalid command list address returned! (%08lx)\n",
                                ctlr, (unsigned long)complete);
                        cmd_free(info_p, c);
                        return (IO_ERROR);
                }
        } else {
                printk(
                        "ida%d: idaSendPciCmd Timeout out, "
                        "No command list address returned!\n",
                        ctlr);
                cmd_free(info_p, c);
                return (IO_ERROR);
        }

        if (c->req.hdr.rcode & 0x00FE) {
                if (!(c->req.hdr.rcode & BIG_PROBLEM)) {
                        printk(
                        "ida%d: idaSendPciCmd, error: Controller failed "
                                "at init time "
                                "cmd: 0x%x, return code = 0x%x\n",
                                ctlr, c->req.hdr.cmd, c->req.hdr.rcode);

                        cmd_free(info_p, c);
                        return (IO_ERROR);
                }
        }
        cmd_free(info_p, c);
        return (IO_OK);
}

static int frevalidate_logvol(kdev_t dev)
{
        return revalidate_logvol(dev, 0);
}

/*
 * revalidate_allvol is for online array config utilities.  After a
 * utility reconfigures the drives in the array, it can use this function
 * (through an ioctl) to make the driver zap any previous disk structs for
 * that controller and get new ones.
 *
 * Right now I'm using the getgeometry() function to do this, but this
 * function should probably be finer grained and allow you to revalidate one
 * particualar logical volume (instead of all of them on a particular
 * controller).
 */
static int revalidate_allvol(kdev_t dev)
{
        int ctlr, i;
        unsigned long flags;

        ctlr = MAJOR(dev) - MAJOR_NR;
        if (MINOR(dev) != 0)
                return -ENXIO;

        spin_lock_irqsave(&io_request_lock, flags);
        if (hba[ctlr]->usage_count > 1) {
                spin_unlock_irqrestore(&io_request_lock, flags);
                printk("Device busy for volume revalidation (usage=%d)\n",
                                        hba[ctlr]->usage_count);
                return -EBUSY;
        }
        spin_unlock_irqrestore(&io_request_lock, flags);
        hba[ctlr]->usage_count++;

        /*
         * Set the partition and block size structures for all volumes
         * on this controller to zero.  We will reread all of this data
         */
        memset(ida+(ctlr*256),            0, sizeof(struct hd_struct)*NWD*16);
        memset(ida_sizes+(ctlr*256),      0, sizeof(int)*NWD*16);
        memset(ida_blocksizes+(ctlr*256), 0, sizeof(int)*NWD*16);
        memset(ida_hardsizes+(ctlr*256),  0, sizeof(int)*NWD*16);
        memset(hba[ctlr]->drv,            0, sizeof(drv_info_t)*NWD);
        ida_gendisk[ctlr].nr_real = 0;

        /*
         * Tell the array controller not to give us any interupts while
         * we check the new geometry.  Then turn interrupts back on when
         * we're done.
         */
        hba[ctlr]->access.set_intr_mask(hba[ctlr], 0);
        getgeometry(ctlr);
        hba[ctlr]->access.set_intr_mask(hba[ctlr], FIFO_NOT_EMPTY);

        ida_geninit(&ida_gendisk[ctlr]);
        for(i=0; i<NWD; i++)
                if (ida_sizes[(ctlr<<CTLR_SHIFT) + (i<<NWD_SHIFT)])
                        revalidate_logvol(dev+(i<<NWD_SHIFT), 2);

        hba[ctlr]->usage_count--;
        return 0;
}

/* Borrowed and adapted from sd.c */
static int revalidate_logvol(kdev_t dev, int maxusage)
{
        int ctlr, target;
        struct gendisk *gdev;
        unsigned long flags;
        int max_p;
        int start;
        int i;

        target = DEVICE_NR(dev);
        ctlr = MAJOR(dev) - MAJOR_NR;
        gdev = &ida_gendisk[ctlr];
        
        spin_lock_irqsave(&io_request_lock, flags);
        if (hba[ctlr]->drv[target].usage_count > maxusage) {
                spin_unlock_irqrestore(&io_request_lock, flags);
                printk("Device busy for revalidation (usage=%d)\n",
                                        hba[ctlr]->drv[target].usage_count);
                return -EBUSY;
        }

        hba[ctlr]->drv[target].usage_count++;
        spin_unlock_irqrestore(&io_request_lock, flags);

        max_p = gdev->max_p;
        start = target << gdev->minor_shift;

        for(i=max_p; i>=0; i--) {
                int minor = start+i;
                kdev_t devi = MKDEV(MAJOR_NR + ctlr, minor);
                struct super_block *sb = get_super(devi);
                sync_dev(devi);
                if (sb) invalidate_inodes(sb);
                invalidate_buffers(devi);
                gdev->part[minor].start_sect = 0;       
                gdev->part[minor].nr_sects = 0; 

                /* reset the blocksize so we can read the partition table */
                blksize_size[MAJOR_NR+ctlr][minor] = 1024;
        }

        gdev->part[start].nr_sects =  hba[ctlr]->drv[target].nr_blks;
        resetup_one_dev(gdev, target);
        hba[ctlr]->drv[target].usage_count--;
        return 0;
}


/********************************************************************
    name: pollcomplete
    Wait polling for a command to complete.
    The memory mapped FIFO is polled for the completion.
    Used only at init time, interrupts disabled.
 ********************************************************************/
static int pollcomplete(int ctlr)
{
        int done;
        int i;

        /* Wait (up to 2 seconds) for a command to complete */

        for (i = 200000; i > 0; i--) {
                done = hba[ctlr]->access.command_completed(hba[ctlr]);
                if (done == 0) {
                        udelay(10);     /* a short fixed delay */
                } else
                        return (done);
        }
        /* Invalid address to tell caller we ran out of time */
        return 1;
}
/*****************************************************************
    start_fwbk
    Starts controller firmwares background processing. 
    Currently only the Integrated Raid controller needs this done.
    If the PCI mem address registers are written to after this, 
         data corruption may occur
*****************************************************************/
static void start_fwbk(int ctlr)
{
                id_ctlr_t *id_ctlr_buf; 
        int ret_code;

        if(     hba[ctlr]->board_id != 0x40400E11)
        /* Not a Integrated Raid, so there is nothing for us to do */
                return;
        printk(KERN_DEBUG "Starting firmware's background processing\n");
        /* Command does not return anything, but idasend command needs a 
                buffer */
        id_ctlr_buf = (id_ctlr_t *)kmalloc(sizeof(id_ctlr_t), GFP_KERNEL);
        if(id_ctlr_buf==NULL)
        {
                printk(KERN_WARNING "Out of memory. Unable to start background processing.\n");
                return;
        }               
        ret_code = sendcmd(RESUME_BACKGROUND_ACTIVITY, ctlr, 
                id_ctlr_buf, 0, 0, 0, 0);
        if(ret_code != IO_OK)
                printk(KERN_WARNING "Unable to start background processing\n");
        kfree(id_ctlr_buf);
}
/*****************************************************************
    getgeometry
    Get ida logical volume geometry from the controller 
    This is a large bit of code which once existed in two flavors,
    It is used only at init time.
*****************************************************************/
static void getgeometry(int ctlr)
{                               
        id_log_drv_t *id_ldrive;
        id_ctlr_t *id_ctlr_buf;
        sense_log_drv_stat_t *id_lstatus_buf;
        config_t *sense_config_buf;
        unsigned int log_unit, log_index;
        int ret_code, size;
        drv_info_t *drv;
        ctlr_info_t *info_p = hba[ctlr];

        info_p->log_drv_map = 0;        
        
        id_ldrive = (id_log_drv_t *)kmalloc(sizeof(id_log_drv_t), GFP_KERNEL);
        if(id_ldrive == NULL)
                return;
        id_ctlr_buf = (id_ctlr_t *)kmalloc(sizeof(id_ctlr_t), GFP_KERNEL);
        if(id_ctlr_buf == NULL)
                goto bail2;
        id_lstatus_buf = (sense_log_drv_stat_t *)kmalloc(sizeof(sense_log_drv_stat_t), GFP_KERNEL);
        if(id_lstatus_buf == NULL)
                goto bail3;
        sense_config_buf = (config_t *)kmalloc(sizeof(config_t), GFP_KERNEL);
        if(sense_config_buf == NULL)
                goto bail4;
        memset(id_ldrive, 0, sizeof(id_log_drv_t));
        memset(id_ctlr_buf, 0, sizeof(id_ctlr_t));
        memset(id_lstatus_buf, 0, sizeof(sense_log_drv_stat_t));
        memset(sense_config_buf, 0, sizeof(config_t));

        info_p->phys_drives = 0;
        info_p->log_drv_map = 0;
        info_p->drv_assign_map = 0;
        info_p->drv_spare_map = 0;
        info_p->mp_failed_drv_map = 0;  /* only initialized here */
        /* Get controllers info for this logical drive */
        ret_code = sendcmd(ID_CTLR, ctlr, id_ctlr_buf, 0, 0, 0, 0);
        if (ret_code == IO_ERROR) {
                /*
                 * If can't get controller info, set the logical drive map to 0,
                 * so the idastubopen will fail on all logical drives
                 * on the controller.
                 */
                goto geo_ret;   /* release the buf and return */
        }
        info_p->log_drives = id_ctlr_buf->nr_drvs;;
        *(__u32*)(info_p->firm_rev) = *(__u32*)(id_ctlr_buf->firm_rev);
        info_p->ctlr_sig = id_ctlr_buf->cfg_sig;

        printk(" (%s)\n", info_p->product_name);
        /*
         * Initialize logical drive map to zero
         */
        log_index = 0;
        /*
         * Get drive geometry for all logical drives
         */
        if (id_ctlr_buf->nr_drvs > 16)
                printk("ida%d:  This driver supports 16 logical drives "
                        "per controller.\n.  Additional drives will not be "
                        "detected\n", ctlr);

        for (log_unit = 0;
             (log_index < id_ctlr_buf->nr_drvs)
             && (log_unit < NWD);
             log_unit++) {

                size = sizeof(sense_log_drv_stat_t);

                /*
                   Send "Identify logical drive status" cmd
                 */
                ret_code = sendcmd(SENSE_LOG_DRV_STAT,
                             ctlr, id_lstatus_buf, size, 0, 0, log_unit);
                if (ret_code == IO_ERROR) {
                        /*
                           If can't get logical drive status, set
                           the logical drive map to 0, so the
                           idastubopen will fail for all logical drives
                           on the controller. 
                         */
                        info_p->log_drv_map = 0;        
                        printk(
                             "ida%d: idaGetGeometry - Controller failed "
                                "to report status of logical drive %d\n"
                         "Access to this controller has been disabled\n",
                                ctlr, log_unit);
                        goto geo_ret;   /* release the buf and return */

                }
                /*
                   Make sure the logical drive is configured
                 */
                if (id_lstatus_buf->status != LOG_NOT_CONF) {
                        ret_code = sendcmd(ID_LOG_DRV, ctlr, id_ldrive,
                               sizeof(id_log_drv_t), 0, 0, log_unit);
                        /*
                           If error, the bit for this
                           logical drive won't be set and
                           idastubopen will return error. 
                         */
                        if (ret_code != IO_ERROR) {
                                drv = &info_p->drv[log_unit];
                                drv->blk_size = id_ldrive->blk_size;
                                drv->nr_blks = id_ldrive->nr_blks;
                                drv->cylinders = id_ldrive->drv.cyl;
                                drv->heads = id_ldrive->drv.heads;
                                drv->sectors = id_ldrive->drv.sect_per_track;
                                info_p->log_drv_map |=  (1 << log_unit);

        printk("ida/c%dd%d: blksz=%d nr_blks=%d\n",
                ctlr, log_unit, drv->blk_size, drv->nr_blks);
                                ret_code = sendcmd(SENSE_CONFIG,
                                                  ctlr, sense_config_buf,
                                 sizeof(config_t), 0, 0, log_unit);
                                if (ret_code == IO_ERROR) {
                                        info_p->log_drv_map = 0;
                                        goto geo_ret;   /* release the buf and return */
                                }
                                info_p->phys_drives =
                                    sense_config_buf->ctlr_phys_drv;
                                info_p->drv_assign_map
                                    |= sense_config_buf->drv_asgn_map;
                                info_p->drv_assign_map
                                    |= sense_config_buf->spare_asgn_map;
                                info_p->drv_spare_map
                                    |= sense_config_buf->spare_asgn_map;
                        }       /* end of if no error on id_ldrive */
                        log_index = log_index + 1;
                }               /* end of if logical drive configured */
        }                       /* end of for log_unit */
geo_ret:
        kfree(sense_config_buf);
bail4:  
        kfree(id_ldrive);
bail3:
        kfree(id_lstatus_buf);
bail2:  
        kfree(id_ctlr_buf);
}