/*	$NetBSD: ciss_pci.c,v 1.23 2023/12/20 05:08:34 thorpej Exp $	*/
/*	$OpenBSD: ciss_pci.c,v 1.9 2005/12/13 15:56:01 brad Exp $	*/

/*
 * Copyright (c) 2005 Michael Shalayeff
 * All rights reserved.
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF MIND, USE, DATA OR PROFITS, WHETHER IN
 * AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
 * OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: ciss_pci.c,v 1.23 2023/12/20 05:08:34 thorpej Exp $");

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/kernel.h>
#include <sys/device.h>

#include <dev/pci/pcidevs.h>
#include <dev/pci/pcivar.h>

#include <sys/bus.h>

#include <dev/scsipi/scsipi_all.h>
#include <dev/scsipi/scsipi_disk.h>
#include <dev/scsipi/scsipiconf.h>

#include <dev/ic/cissreg.h>
#include <dev/ic/cissvar.h>

#define	CISS_BAR	0x10

int	ciss_pci_match(device_t, cfdata_t, void *);
void	ciss_pci_attach(device_t, device_t, void *);

CFATTACH_DECL_NEW(ciss_pci, sizeof(struct ciss_softc),
	ciss_pci_match, ciss_pci_attach, NULL, NULL);


static const struct {
	int vendor;
	int product;
	const char *name;
} ciss_pci_devices[] = {
#define CISS_PCI_DEVICE(v, p, d) { PCI_VENDOR_##v, PCI_PRODUCT_##v##_##p, d }
	CISS_PCI_DEVICE(COMPAQ, CSA532, "Compaq Smart Array 532"),
	CISS_PCI_DEVICE(COMPAQ, CSA5300, "Compaq Smart Array 5300 V1"),
	CISS_PCI_DEVICE(COMPAQ, CSA5300_2, "Compaq Smart Array 5300 V2"),
	CISS_PCI_DEVICE(COMPAQ, CSA5312, "Compaq Smart Array 5312"),
	CISS_PCI_DEVICE(COMPAQ, CSA5i, "Compaq Smart Array 5i"),
	CISS_PCI_DEVICE(COMPAQ, CSA5i_2, "Compaq Smart Array 5i V2"),
	CISS_PCI_DEVICE(COMPAQ, CSA6i, "Compaq Smart Array 6i"),
	CISS_PCI_DEVICE(COMPAQ, CSA641, "Compaq Smart Array 641"),
	CISS_PCI_DEVICE(COMPAQ, CSA642, "Compaq Smart Array 642"),
	CISS_PCI_DEVICE(COMPAQ, CSA6400, "Compaq Smart Array 6400"),
	CISS_PCI_DEVICE(COMPAQ, CSA6400EM, "Compaq Smart Array 6400EM"),
	CISS_PCI_DEVICE(COMPAQ, CSA6422, "Compaq Smart Array 6422"),
	CISS_PCI_DEVICE(COMPAQ, CSA64XX, "Compaq Smart Array 64XX"),
	CISS_PCI_DEVICE(HP, HPSAE200, "Smart Array E200"),
	CISS_PCI_DEVICE(HP, HPSAE200I_1, "HP Smart Array E200I-1"),
	CISS_PCI_DEVICE(HP, HPSAE200I_2, "HP Smart Array E200I-2"),
	CISS_PCI_DEVICE(HP, HPSAE200I_3, "HP Smart Array E200I-3"),
	CISS_PCI_DEVICE(HP, HPSAP600, "HP Smart Array P600"),
	CISS_PCI_DEVICE(HP, HPSAP800, "HP Smart Array P800"),
	CISS_PCI_DEVICE(HP, HPSAV100, "HP Smart Array V100"),
	CISS_PCI_DEVICE(HP, HPSA_1, "HP Smart Array 1"),
	CISS_PCI_DEVICE(HP, HPSA_2, "HP Smart Array 2"),
	CISS_PCI_DEVICE(HP, HPSA_3, "HP Smart Array 3"),
	CISS_PCI_DEVICE(HP, HPSA_4, "HP Smart Array 4"),
	CISS_PCI_DEVICE(HP, HPSA_5, "HP Smart Array 5"),
	CISS_PCI_DEVICE(HP, HPSA_6, "HP Smart Array 6"),
	CISS_PCI_DEVICE(HP, HPSA_7, "HP Smart Array 7"),
	CISS_PCI_DEVICE(HP, HPSA_8, "HP Smart Array 8"),
	CISS_PCI_DEVICE(HP, HPSA_9, "HP Smart Array 9"),
	CISS_PCI_DEVICE(HP, HPSA_10, "HP Smart Array 10"),
	CISS_PCI_DEVICE(HP, HPSA_11, "HP Smart Array 11"),
	CISS_PCI_DEVICE(HP, HPSA_12, "HP Smart Array 12"),
	CISS_PCI_DEVICE(HP, HPSA_13, "HP Smart Array 13"),
	CISS_PCI_DEVICE(HP, HPSA_P700M, "Smart Array P700m"),
	CISS_PCI_DEVICE(HP, HPSA_P212, "Smart Array P212"),
	CISS_PCI_DEVICE(HP, HPSA_P410, "Smart Array P410"),
	CISS_PCI_DEVICE(HP, HPSA_P410I, "Smart Array P410i"),
	CISS_PCI_DEVICE(HP, HPSA_P411, "Smart Array P411"),
	CISS_PCI_DEVICE(HP, HPSA_P812, "Smart Array P822"),
	CISS_PCI_DEVICE(HP, HPSA_P712M, "Smart Array P712m"),
	CISS_PCI_DEVICE(HP, HPSA_14, "Smart Array 14"),
	CISS_PCI_DEVICE(HP, HPSA_P222, "Smart Array P222"),
	CISS_PCI_DEVICE(HP, HPSA_P420, "Smart Array P420"),
	CISS_PCI_DEVICE(HP, HPSA_P421, "Smart Array P421"),
	CISS_PCI_DEVICE(HP, HPSA_P822, "Smart Array P822"),
	CISS_PCI_DEVICE(HP, HPSA_P420I, "Smart Array P420i"),
	CISS_PCI_DEVICE(HP, HPSA_P220I, "Smart Array P220i"),
	CISS_PCI_DEVICE(HP, HPSA_P721I, "Smart Array P721i"),
	CISS_PCI_DEVICE(HP, HPSA_P430I, "Smart Array P430i"),
	CISS_PCI_DEVICE(HP, HPSA_P830I, "Smart Array P830i"),
	CISS_PCI_DEVICE(HP, HPSA_P430, "Smart Array P430"),
	CISS_PCI_DEVICE(HP, HPSA_P431, "Smart Array P431"),
	CISS_PCI_DEVICE(HP, HPSA_P830, "Smart Array P830"),
	CISS_PCI_DEVICE(HP, HPSA_P731M, "Smart Array P731m"),
	CISS_PCI_DEVICE(HP, HPSA_P230I, "Smart Array P230i"),
	CISS_PCI_DEVICE(HP, HPSA_P530, "Smart Array P530"),
	CISS_PCI_DEVICE(HP, HPSA_P531, "Smart Array P531"),
	CISS_PCI_DEVICE(HP, HPSA_P244BR, "Smart Array P244br"),
	CISS_PCI_DEVICE(HP, HPSA_P741M, "Smart Array P741m"),
	CISS_PCI_DEVICE(HP, HPSA_H240AR, "Smart Array H240ar"),
	CISS_PCI_DEVICE(HP, HPSA_P440AR, "Smart Array H440ar"),
	CISS_PCI_DEVICE(HP, HPSA_P840AR, "Smart Array P840ar"),
	CISS_PCI_DEVICE(HP, HPSA_P440, "Smart Array P440"),
	CISS_PCI_DEVICE(HP, HPSA_P441, "Smart Array P441"),
	CISS_PCI_DEVICE(HP, HPSA_P841, "Smart Array P841"),
	CISS_PCI_DEVICE(HP, HPSA_H244BR, "Smart Array H244br"),
	CISS_PCI_DEVICE(HP, HPSA_H240, "Smart Array H240"),
	CISS_PCI_DEVICE(HP, HPSA_H241, "Smart Array H241"),
	CISS_PCI_DEVICE(HP, HPSA_P246BR, "Smart Array P246br"),
	CISS_PCI_DEVICE(HP, HPSA_P840, "Smart Array P840"),
	CISS_PCI_DEVICE(HP, HPSA_P542D, "Smart Array P542d"),
	CISS_PCI_DEVICE(HP, HPSA_P240NR, "Smart Array P240nr"),
	CISS_PCI_DEVICE(HP, HPSA_H240NR, "Smart Array H240nr"),
};

int
ciss_pci_match(device_t parent, cfdata_t match, void *aux)
{
	struct pci_attach_args *pa = aux;
	pcireg_t reg = pci_conf_read(pa->pa_pc, pa->pa_tag, PCI_SUBSYS_ID_REG);
	int i;

	for (i = 0; i < __arraycount(ciss_pci_devices); i++)
	{
		if ((PCI_VENDOR(pa->pa_id) == ciss_pci_devices[i].vendor &&
		     PCI_PRODUCT(pa->pa_id) == ciss_pci_devices[i].product) ||
		    (PCI_VENDOR(reg) == ciss_pci_devices[i].vendor &&
		     PCI_PRODUCT(reg) == ciss_pci_devices[i].product))
			return 1;
	}

	return 0;
}

void
ciss_pci_attach(device_t parent, device_t self, void *aux)
{
	struct ciss_softc *sc = device_private(self);
	struct pci_attach_args *pa = aux;
	bus_size_t size, cfgsz;
	pci_intr_handle_t *ih;
	const char *intrstr;
	int cfg_bar, memtype;
	pcireg_t reg = pci_conf_read(pa->pa_pc, pa->pa_tag, PCI_SUBSYS_ID_REG);
	int i;
	char intrbuf[PCI_INTRSTR_LEN];
	int (*intr_handler)(void *);

	sc->sc_dev = self;

	aprint_naive("\n");
	for (i = 0; i < __arraycount(ciss_pci_devices); i++)
	{
		if ((PCI_VENDOR(pa->pa_id) == ciss_pci_devices[i].vendor &&
		     PCI_PRODUCT(pa->pa_id) == ciss_pci_devices[i].product) ||
		    (PCI_VENDOR(reg) == ciss_pci_devices[i].vendor &&
		     PCI_PRODUCT(reg) == ciss_pci_devices[i].product))
		{
			aprint_normal(": %s\n", ciss_pci_devices[i].name);
			break;
		}
	}

	memtype = pci_mapreg_type(pa->pa_pc, pa->pa_tag, CISS_BAR);
	if (memtype != (PCI_MAPREG_TYPE_MEM | PCI_MAPREG_MEM_TYPE_32BIT) &&
	    memtype != (PCI_MAPREG_TYPE_MEM | PCI_MAPREG_MEM_TYPE_64BIT)) {
		aprint_error_dev(self, "wrong BAR type\n");
		return;
	}
	if (pci_mapreg_map(pa, CISS_BAR, memtype, 0,
	    &sc->sc_iot, &sc->sc_ioh, NULL, &size)) {
		aprint_error_dev(self, "can't map controller i/o space\n");
		return;
	}
	sc->sc_dmat = pa->pa_dmat;

	sc->iem = CISS_INTR_OPQ_SA5;
	reg = pci_conf_read(pa->pa_pc, pa->pa_tag, PCI_SUBSYS_ID_REG);
	if (PCI_VENDOR(reg) == PCI_VENDOR_COMPAQ &&
	    (PCI_PRODUCT(reg) == PCI_PRODUCT_COMPAQ_CSA5i ||
	     PCI_PRODUCT(reg) == PCI_PRODUCT_COMPAQ_CSA532 ||
	     PCI_PRODUCT(reg) == PCI_PRODUCT_COMPAQ_CSA5312))
		sc->iem = CISS_INTR_OPQ_SA5B;

	cfg_bar = bus_space_read_2(sc->sc_iot, sc->sc_ioh, CISS_CFG_BAR);
	sc->cfgoff = bus_space_read_4(sc->sc_iot, sc->sc_ioh, CISS_CFG_OFF);
	if (cfg_bar != CISS_BAR) {
		if (pci_mapreg_map(pa, cfg_bar, PCI_MAPREG_TYPE_MEM, 0,
		    NULL, &sc->cfg_ioh, NULL, &cfgsz)) {
			aprint_error_dev(self,
			    "can't map controller config space\n");
			bus_space_unmap(sc->sc_iot, sc->sc_ioh, size);
			return;
		}
	} else {
		sc->cfg_ioh = sc->sc_ioh;
		cfgsz = size;
	}

	if (sc->cfgoff + sizeof(struct ciss_config) > cfgsz) {
		aprint_error_dev(self, "unfit config space\n");
		bus_space_unmap(sc->sc_iot, sc->sc_ioh, size);
		if (cfg_bar != CISS_BAR)
			bus_space_unmap(sc->sc_iot, sc->cfg_ioh, cfgsz);
		return;
	}

	/* Read the configuration */
	bus_space_read_region_4(sc->sc_iot, sc->cfg_ioh, sc->cfgoff,
	    (u_int32_t *)&sc->cfg, sizeof(sc->cfg) / 4);

	/* disable interrupts until ready */
	bus_space_write_4(sc->sc_iot, sc->sc_ioh, CISS_IMR,
	    bus_space_read_4(sc->sc_iot, sc->sc_ioh, CISS_IMR) |
		sc->iem | CISS_INTR_OPQ | CISS_INTR_MSI);

	int counts[PCI_INTR_TYPE_SIZE] = {
		[PCI_INTR_TYPE_INTX] = 1,
		[PCI_INTR_TYPE_MSI] = 0,
		[PCI_INTR_TYPE_MSIX] = 0,
	};
	int max_type = PCI_INTR_TYPE_INTX;

	/*
	 * Allow MSI/MSI-X only if PERFORMANT method is supported, SIMPLE
	 * doesn't seem to work with MSI.
	 */
	if (CISS_PERF_SUPPORTED(sc)) {
#if 1
		counts[PCI_INTR_TYPE_MSI] = counts[PCI_INTR_TYPE_MSIX] = 1;
		max_type = PCI_INTR_TYPE_MSIX;
#endif
		sc->iem |= CISS_INTR_OPQ | CISS_INTR_MSI;
	}

	if (pci_intr_alloc(pa, &ih, counts, max_type)) {
		aprint_error_dev(self, "can't map interrupt\n");
		bus_space_unmap(sc->sc_iot, sc->sc_ioh, size);
		if (cfg_bar != CISS_BAR)
			bus_space_unmap(sc->sc_iot, sc->cfg_ioh, cfgsz);
		return;
	}
	intrstr = pci_intr_string(pa->pa_pc, ih[0], intrbuf, sizeof(intrbuf));

	switch (pci_intr_type(pa->pa_pc, ih[0])) {
	case PCI_INTR_TYPE_INTX:
		intr_handler = CISS_PERF_SUPPORTED(sc)
		    ? ciss_intr_perf_intx : ciss_intr_simple_intx;
		break;
	default:
		KASSERT(CISS_PERF_SUPPORTED(sc));
		intr_handler = ciss_intr_perf_msi;
		break;
	}

	sc->sc_ih = pci_intr_establish_xname(pa->pa_pc, ih[0], IPL_BIO,
	    intr_handler, sc, device_xname(self));
	if (!sc->sc_ih) {
		aprint_error_dev(sc->sc_dev, "can't establish interrupt");
		if (intrstr)
			aprint_error(" at %s", intrstr);
		aprint_error("\n");
		pci_intr_release(pa->pa_pc, ih, 1);
		bus_space_unmap(sc->sc_iot, sc->sc_ioh, size);
		if (cfg_bar != CISS_BAR)
			bus_space_unmap(sc->sc_iot, sc->cfg_ioh, cfgsz);
		return;
	}
	aprint_normal_dev(self, "interrupting at %s\n", intrstr);

	aprint_normal("%s", device_xname(sc->sc_dev));
	if (ciss_attach(sc)) {
		pci_intr_disestablish(pa->pa_pc, sc->sc_ih);
		sc->sc_ih = NULL;
		bus_space_unmap(sc->sc_iot, sc->sc_ioh, size);
		if (cfg_bar != CISS_BAR)
			bus_space_unmap(sc->sc_iot, sc->cfg_ioh, cfgsz);
		return;
	}

	/* enable interrupts now */
	bus_space_write_4(sc->sc_iot, sc->sc_ioh, CISS_IMR,
	    bus_space_read_4(sc->sc_iot, sc->sc_ioh, CISS_IMR) & ~sc->iem);
}