390 lines
9.7 KiB
C
390 lines
9.7 KiB
C
/* $NetBSD: isp_pci.c,v 1.9 1997/03/28 22:25:01 cgd Exp $ */
|
|
|
|
/*
|
|
* PCI specific probe and attach routines for Qlogic ISP SCSI adapters.
|
|
*
|
|
* Copyright (c) 1997 by Matthew Jacob
|
|
* NASA AMES Research Center
|
|
* All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
* notice immediately at the beginning of the file, without modification,
|
|
* this list of conditions, and the following disclaimer.
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
* 3. The name of the author may not be used to endorse or promote products
|
|
* derived from this software without specific prior written permission.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
|
|
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR
|
|
* ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
|
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
|
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
|
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
|
* SUCH DAMAGE.
|
|
*/
|
|
|
|
#include <sys/param.h>
|
|
#include <sys/systm.h>
|
|
#include <sys/malloc.h>
|
|
#include <sys/kernel.h>
|
|
#include <sys/queue.h>
|
|
#include <sys/device.h>
|
|
#include <machine/bus.h>
|
|
#include <machine/intr.h>
|
|
#include <scsi/scsi_all.h>
|
|
#include <scsi/scsiconf.h>
|
|
#include <dev/pci/pcireg.h>
|
|
#include <dev/pci/pcivar.h>
|
|
#include <dev/pci/pcidevs.h>
|
|
#include <vm/vm.h>
|
|
|
|
#include <dev/ic/ispreg.h>
|
|
#include <dev/ic/ispvar.h>
|
|
#include <dev/ic/ispmbox.h>
|
|
#include <dev/microcode/isp/asm_pci.h>
|
|
|
|
#ifdef __alpha__ /* XXX */
|
|
/* XXX XXX NEED REAL DMA MAPPING SUPPORT XXX XXX */
|
|
extern vm_offset_t alpha_XXX_dmamap(vm_offset_t);
|
|
#undef vtophys
|
|
#define vtophys(va) alpha_XXX_dmamap((vm_offset_t) va)
|
|
#endif
|
|
#define KVTOPHYS(x) vtophys(x)
|
|
|
|
|
|
static u_int16_t isp_pci_rd_reg __P((struct ispsoftc *, int));
|
|
static void isp_pci_wr_reg __P((struct ispsoftc *, int, u_int16_t));
|
|
static vm_offset_t
|
|
isp_pci_mbxdma __P((struct ispsoftc *, vm_offset_t, u_int32_t));
|
|
static int
|
|
isp_pci_dmasetup __P((struct ispsoftc *, struct scsi_xfer *, ispreq_t *,
|
|
u_int8_t *, u_int8_t));
|
|
|
|
static void isp_pci_reset1 __P((struct ispsoftc *));
|
|
|
|
static struct ispmdvec mdvec = {
|
|
isp_pci_rd_reg,
|
|
isp_pci_wr_reg,
|
|
isp_pci_mbxdma,
|
|
isp_pci_dmasetup,
|
|
NULL,
|
|
NULL,
|
|
isp_pci_reset1,
|
|
ISP_RISC_CODE,
|
|
ISP_CODE_LENGTH,
|
|
ISP_CODE_ORG,
|
|
/* BIU_PCI_CONF1_FIFO_16 | BIU_BURST_ENABLE */ 0
|
|
};
|
|
|
|
#define PCI_QLOGIC_ISP \
|
|
((PCI_PRODUCT_QLOGIC_ISP1020 << 16) | PCI_VENDOR_QLOGIC)
|
|
|
|
#define IO_MAP_REG 0x10
|
|
#define MEM_MAP_REG 0x14
|
|
|
|
int isp_pci_prefer_io = 0; /* 1 -> map via I/O (patchable data) */
|
|
|
|
|
|
#ifdef __BROKEN_INDIRECT_CONFIG
|
|
static int isp_pci_probe __P((struct device *, void *, void *));
|
|
#else
|
|
static int isp_pci_probe __P((struct device *, struct cfdata *, void *));
|
|
#endif
|
|
static void isp_pci_attach __P((struct device *, struct device *, void *));
|
|
|
|
struct isp_pcisoftc {
|
|
struct ispsoftc pci_isp;
|
|
bus_space_tag_t pci_st;
|
|
bus_space_handle_t pci_sh;
|
|
void * pci_ih;
|
|
};
|
|
|
|
struct cfattach isp_pci_ca = {
|
|
sizeof (struct isp_pcisoftc), isp_pci_probe, isp_pci_attach
|
|
};
|
|
|
|
static int
|
|
isp_pci_probe(parent, match, aux)
|
|
struct device *parent;
|
|
#ifdef __BROKEN_INDIRECT_CONFIG
|
|
void *match, *aux;
|
|
#else
|
|
struct cfdata *match;
|
|
void *aux;
|
|
#endif
|
|
{
|
|
struct pci_attach_args *pa = aux;
|
|
|
|
if (pa->pa_id == PCI_QLOGIC_ISP) {
|
|
return (1);
|
|
} else {
|
|
return (0);
|
|
}
|
|
}
|
|
|
|
|
|
static void
|
|
isp_pci_attach(parent, self, aux)
|
|
struct device *parent, *self;
|
|
void *aux;
|
|
{
|
|
struct pci_attach_args *pa = aux;
|
|
struct isp_pcisoftc *pcs = (struct isp_pcisoftc *) self;
|
|
bus_addr_t busbase;
|
|
bus_size_t bussize;
|
|
bus_space_tag_t st;
|
|
bus_space_handle_t sh;
|
|
pci_intr_handle_t ih;
|
|
const char *intrstr;
|
|
|
|
if (isp_pci_prefer_io) {
|
|
if (pci_io_find(pa->pa_pc, pa->pa_tag, IO_MAP_REG, &busbase,
|
|
&bussize)) {
|
|
printf(": unable to find PCI I/O base\n");
|
|
return;
|
|
}
|
|
st = pa->pa_iot;
|
|
} else {
|
|
if (pci_mem_find(pa->pa_pc, pa->pa_tag, MEM_MAP_REG, &busbase,
|
|
&bussize, NULL)) {
|
|
printf(": unable to find PCI memory base\n");
|
|
return;
|
|
}
|
|
st = pa->pa_memt;
|
|
}
|
|
if (bus_space_map(st, busbase, bussize, 0, &sh)) {
|
|
printf(": unable to map %s registers\n",
|
|
isp_pci_prefer_io ? "I/O" : "memory");
|
|
return;
|
|
}
|
|
printf("\n");
|
|
|
|
pcs->pci_st = st;
|
|
pcs->pci_sh = sh;
|
|
pcs->pci_isp.isp_mdvec = &mdvec;
|
|
isp_reset(&pcs->pci_isp);
|
|
if (pcs->pci_isp.isp_state != ISP_RESETSTATE) {
|
|
return;
|
|
}
|
|
isp_init(&pcs->pci_isp);
|
|
if (pcs->pci_isp.isp_state != ISP_INITSTATE) {
|
|
isp_uninit(&pcs->pci_isp);
|
|
return;
|
|
}
|
|
|
|
if (pci_intr_map(pa->pa_pc, pa->pa_intrtag, pa->pa_intrpin,
|
|
pa->pa_intrline, &ih)) {
|
|
printf("%s: couldn't map interrupt\n", pcs->pci_isp.isp_name);
|
|
isp_uninit(&pcs->pci_isp);
|
|
return;
|
|
}
|
|
|
|
intrstr = pci_intr_string(pa->pa_pc, ih);
|
|
if (intrstr == NULL)
|
|
intrstr = "<I dunno>";
|
|
pcs->pci_ih =
|
|
pci_intr_establish(pa->pa_pc, ih, IPL_BIO, isp_intr, &pcs->pci_isp);
|
|
if (pcs->pci_ih == NULL) {
|
|
printf("%s: couldn't establish interrupt at %s\n",
|
|
pcs->pci_isp.isp_name, intrstr);
|
|
isp_uninit(&pcs->pci_isp);
|
|
return;
|
|
}
|
|
printf("%s: interrupting at %s\n", pcs->pci_isp.isp_name, intrstr);
|
|
|
|
/*
|
|
* Do Generic attach now.
|
|
*/
|
|
isp_attach(&pcs->pci_isp);
|
|
if (pcs->pci_isp.isp_state != ISP_RUNSTATE) {
|
|
isp_uninit(&pcs->pci_isp);
|
|
}
|
|
}
|
|
|
|
#define PCI_BIU_REGS_OFF 0x00
|
|
#define PCI_MBOX_REGS_OFF 0x70
|
|
#define PCI_SXP_REGS_OFF 0x80
|
|
#define PCI_RISC_REGS_OFF 0x80
|
|
|
|
static u_int16_t
|
|
isp_pci_rd_reg(isp, regoff)
|
|
struct ispsoftc *isp;
|
|
int regoff;
|
|
{
|
|
struct isp_pcisoftc *pcs = (struct isp_pcisoftc *) isp;
|
|
int offset;
|
|
if ((regoff & BIU_BLOCK) != 0) {
|
|
offset = PCI_BIU_REGS_OFF;
|
|
} else if ((regoff & MBOX_BLOCK) != 0) {
|
|
offset = PCI_MBOX_REGS_OFF;
|
|
} else if ((regoff & SXP_BLOCK) != 0) {
|
|
offset = PCI_SXP_REGS_OFF;
|
|
/*
|
|
* XXX
|
|
*/
|
|
panic("SXP Registers not accessible yet!");
|
|
} else {
|
|
offset = PCI_RISC_REGS_OFF;
|
|
}
|
|
regoff &= 0xff;
|
|
offset += regoff;
|
|
return bus_space_read_2(pcs->pci_st, pcs->pci_sh, offset);
|
|
}
|
|
|
|
static void
|
|
isp_pci_wr_reg(isp, regoff, val)
|
|
struct ispsoftc *isp;
|
|
int regoff;
|
|
u_int16_t val;
|
|
{
|
|
struct isp_pcisoftc *pcs = (struct isp_pcisoftc *) isp;
|
|
int offset;
|
|
if ((regoff & BIU_BLOCK) != 0) {
|
|
offset = PCI_BIU_REGS_OFF;
|
|
} else if ((regoff & MBOX_BLOCK) != 0) {
|
|
offset = PCI_MBOX_REGS_OFF;
|
|
} else if ((regoff & SXP_BLOCK) != 0) {
|
|
offset = PCI_SXP_REGS_OFF;
|
|
/*
|
|
* XXX
|
|
*/
|
|
panic("SXP Registers not accessible yet!");
|
|
} else {
|
|
offset = PCI_RISC_REGS_OFF;
|
|
}
|
|
regoff &= 0xff;
|
|
offset += regoff;
|
|
bus_space_write_2(pcs->pci_st, pcs->pci_sh, offset, val);
|
|
}
|
|
|
|
static vm_offset_t
|
|
isp_pci_mbxdma(isp, kva, len)
|
|
struct ispsoftc *isp;
|
|
vm_offset_t kva;
|
|
u_int32_t len;
|
|
{
|
|
vm_offset_t pg, start, s1;
|
|
|
|
start = KVTOPHYS(kva);
|
|
|
|
pg = kva + NBPG;
|
|
s1 = (start >> PGSHIFT) + 1;
|
|
len -= NBPG;
|
|
|
|
while ((int32_t)len > 0) {
|
|
if (s1 != (KVTOPHYS(pg) >> PGSHIFT)) {
|
|
printf("%s: mailboxes across noncontiguous pages\n",
|
|
isp->isp_name);
|
|
return ((vm_offset_t) 0);
|
|
}
|
|
len -= NBPG;
|
|
pg += NBPG;
|
|
s1++;
|
|
}
|
|
return (start);
|
|
}
|
|
|
|
/*
|
|
* TODO: reduce the number of segments by
|
|
* cchecking for adjacent physical page.
|
|
*/
|
|
|
|
static int
|
|
isp_pci_dmasetup(isp, xs, rq, iptrp, optr)
|
|
struct ispsoftc *isp;
|
|
struct scsi_xfer *xs;
|
|
ispreq_t *rq;
|
|
u_int8_t *iptrp;
|
|
u_int8_t optr;
|
|
{
|
|
ispcontreq_t *crq;
|
|
unsigned long thiskv, nextkv;
|
|
int datalen, amt;
|
|
|
|
if (xs->datalen == 0) {
|
|
rq->req_seg_count = 1;
|
|
rq->req_flags |= REQFLAG_DATA_IN;
|
|
return (0);
|
|
}
|
|
|
|
if (xs->flags & SCSI_DATA_IN) {
|
|
rq->req_flags |= REQFLAG_DATA_IN;
|
|
} else {
|
|
rq->req_flags |= REQFLAG_DATA_OUT;
|
|
}
|
|
datalen = xs->datalen;
|
|
thiskv = (unsigned long) xs->data;
|
|
|
|
while (datalen && rq->req_seg_count < ISP_RQDSEG) {
|
|
nextkv = (thiskv + NBPG) & ~(NBPG-1);
|
|
amt = nextkv - thiskv;
|
|
if (amt > datalen)
|
|
amt = datalen;
|
|
rq->req_dataseg[rq->req_seg_count].ds_count = amt;
|
|
rq->req_dataseg[rq->req_seg_count].ds_base = KVTOPHYS(thiskv);
|
|
#if 0
|
|
printf("%s: seg%d: 0x%lx..0x%lx\n", isp->isp_name,
|
|
rq->req_seg_count, thiskv,
|
|
thiskv + (unsigned long) amt);
|
|
#endif
|
|
datalen -= amt;
|
|
thiskv = nextkv;
|
|
rq->req_seg_count++;
|
|
}
|
|
|
|
if (datalen == 0) {
|
|
return (0);
|
|
}
|
|
|
|
do {
|
|
int seg;
|
|
crq = (ispcontreq_t *) &isp->isp_rquest[*iptrp][0];
|
|
*iptrp = (*iptrp + 1) & (RQUEST_QUEUE_LEN - 1);
|
|
if (*iptrp == optr) {
|
|
printf("%s: Request Queue Overflow++\n",
|
|
isp->isp_name);
|
|
return (1);
|
|
}
|
|
rq->req_header.rqs_entry_count++;
|
|
bzero((void *)crq, sizeof (*crq));
|
|
crq->req_header.rqs_entry_count = 1;
|
|
crq->req_header.rqs_entry_type = RQSTYPE_DATASEG;
|
|
seg = 0;
|
|
while (datalen && seg < ISP_CDSEG) {
|
|
nextkv = (thiskv + NBPG) & ~(NBPG-1);
|
|
amt = nextkv - thiskv;
|
|
if (amt > datalen)
|
|
amt = datalen;
|
|
crq->req_dataseg[seg].ds_count = amt;
|
|
crq->req_dataseg[seg].ds_base = KVTOPHYS(thiskv);
|
|
#if 0
|
|
printf("%s: Cont%d seg%d: 0x%lx..0x%lx\n",
|
|
isp->isp_name, rq->req_header.rqs_entry_count,
|
|
seg, thiskv, thiskv + (unsigned long) amt);
|
|
#endif
|
|
datalen -= amt;
|
|
thiskv = nextkv;
|
|
rq->req_seg_count++;
|
|
seg++;
|
|
}
|
|
} while (datalen > 0);
|
|
return (0);
|
|
}
|
|
|
|
static void
|
|
isp_pci_reset1(isp)
|
|
struct ispsoftc *isp;
|
|
{
|
|
/* Make sure the BIOS is disabled */
|
|
isp_pci_wr_reg(isp, HCCR, PCI_HCCR_CMD_BIOS);
|
|
}
|