xref: /src/sys/arch/alpha/pci/sio.c

/* $NetBSD: sio.c,v 1.57 2021/08/07 16:18:41 thorpej Exp $ */

/*-
 * Copyright (c) 2000 The NetBSD Foundation, Inc.
 * All rights reserved.
 *
 * This code is derived from software contributed to The NetBSD Foundation
 * by Jason R. Thorpe.
 *
 * 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, 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.
 *
 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. 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 FOUNDATION 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.
 */

/*
 * Copyright (c) 1995, 1996 Carnegie-Mellon University.
 * All rights reserved.
 *
 * Author: Chris G. Demetriou
 *
 * Permission to use, copy, modify and distribute this software and
 * its documentation is hereby granted, provided that both the copyright
 * notice and this permission notice appear in all copies of the
 * software, derivative works or modified versions, and any portions
 * thereof, and that both notices appear in supporting documentation.
 *
 * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
 * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND
 * FOR ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
 *
 * Carnegie Mellon requests users of this software to return to
 *
 *  Software Distribution Coordinator  or  Software.Distribution (at) CS.CMU.EDU
 *  School of Computer Science
 *  Carnegie Mellon University
 *  Pittsburgh PA 15213-3890
 *
 * any improvements or extensions that they make and grant Carnegie the
 * rights to redistribute these changes.
 */

#include "opt_dec_2100_a500.h"
#include "opt_dec_2100a_a500.h"
#include "eisa.h"
#include "sio.h"

#include <sys/cdefs.h>			/* RCS ID & Copyright macro defns */

__KERNEL_RCSID(0, "$NetBSD: sio.c,v 1.57 2021/08/07 16:18:41 thorpej Exp $");

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

#include <machine/intr.h>
#include <sys/bus.h>
#include <machine/rpb.h>

#include <dev/isa/isavar.h>
#include <dev/eisa/eisavar.h>

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

#include <alpha/pci/siovar.h>

#if defined(DEC_2100_A500) || defined(DEC_2100A_A500)
#include <alpha/pci/pci_2100_a500.h>
#include <alpha/sableio/sableiovar.h>
#endif

struct sio_softc {
	device_t	sc_dev;

	pci_chipset_tag_t sc_pc;

	bus_space_tag_t sc_iot, sc_memt;
	bus_dma_tag_t	sc_parent_dmat;
#if NPCEB > 0
	int		sc_haseisa;
#endif
	int		sc_is82c693;

	/* ISA chipset must persist; it's used after autoconfig. */
	isa_chipset_tag_t sc_ic;
};

static int	siomatch(device_t, cfdata_t, void *);
static void	sioattach(device_t, device_t, void *);

CFATTACH_DECL_NEW(sio, sizeof(struct sio_softc),
    siomatch, sioattach, NULL, NULL);

#if NPCEB > 0
static int	pcebmatch(device_t, cfdata_t, void *);

CFATTACH_DECL_NEW(pceb, sizeof(struct sio_softc),
    pcebmatch, sioattach, NULL, NULL);
#endif

union sio_attach_args {
	struct isabus_attach_args sa_iba;
	struct eisabus_attach_args sa_eba;
};

static void	sio_isa_attach_hook(device_t, device_t,
		    struct isabus_attach_args *);
static void	sio_isa_detach_hook(isa_chipset_tag_t, device_t);
#if NPCEB > 0
static void	sio_eisa_attach_hook(device_t, device_t,
		    struct eisabus_attach_args *);
static int	sio_eisa_maxslots(void *);
static int	sio_eisa_intr_map(void *, u_int, eisa_intr_handle_t *);
#endif

static void	sio_bridge_callback(device_t);

static int
siomatch(device_t parent, cfdata_t match, void *aux)
{
	struct pci_attach_args *pa = aux;

	/*
	 * The Cypress 82C693 is more-or-less an SIO, but with
	 * indirect register access.  (XXX for everything, or
	 * just the ELCR?)
	 */
	if (PCI_VENDOR(pa->pa_id) == PCI_VENDOR_CONTAQ &&
	    PCI_PRODUCT(pa->pa_id) == PCI_PRODUCT_CONTAQ_82C693 &&
	    pa->pa_function == 0)
		return (1);

	if (PCI_VENDOR(pa->pa_id) == PCI_VENDOR_INTEL &&
	    PCI_PRODUCT(pa->pa_id) == PCI_PRODUCT_INTEL_SIO)
		return (1);

	if (PCI_VENDOR(pa->pa_id) == PCI_VENDOR_ALI &&
	    PCI_PRODUCT(pa->pa_id) == PCI_PRODUCT_ALI_M1533)
		return (1);

	return (0);
}

#if NPCEB > 0
static int
pcebmatch(device_t parent, cfdata_t match, void *aux)
{
	struct pci_attach_args *pa = aux;

	if (PCI_VENDOR(pa->pa_id) == PCI_VENDOR_INTEL &&
	    PCI_PRODUCT(pa->pa_id) == PCI_PRODUCT_INTEL_PCEB)
		return (1);

	return (0);
}
#endif

static void
sioattach(device_t parent, device_t self, void *aux)
{
	struct sio_softc *sc = device_private(self);
	struct pci_attach_args *pa = aux;
	char devinfo[256];

	pci_devinfo(pa->pa_id, pa->pa_class, 0, devinfo, sizeof(devinfo));
	aprint_normal(": %s (rev. 0x%02x)\n", devinfo,
	    PCI_REVISION(pa->pa_class));

	sc->sc_dev = self;
	sc->sc_pc = pa->pa_pc;
	sc->sc_iot = pa->pa_iot;
	sc->sc_memt = pa->pa_memt;
	sc->sc_parent_dmat = pa->pa_dmat;
#if NPCEB > 0
	sc->sc_haseisa = (PCI_VENDOR(pa->pa_id) == PCI_VENDOR_INTEL &&
	    PCI_PRODUCT(pa->pa_id) == PCI_PRODUCT_INTEL_PCEB);
#endif
	sc->sc_is82c693 = (PCI_VENDOR(pa->pa_id) == PCI_VENDOR_CONTAQ &&
	    PCI_PRODUCT(pa->pa_id) == PCI_PRODUCT_CONTAQ_82C693);

	config_defer(self, sio_bridge_callback);
}

static void
sio_bridge_callback(device_t self)
{
	struct sio_softc *sc = device_private(self);
	union sio_attach_args sa;
#if NPCEB > 0
	struct alpha_eisa_chipset ec;

	if (sc->sc_haseisa) {
		ec.ec_v = NULL;
		ec.ec_attach_hook = sio_eisa_attach_hook;
		ec.ec_maxslots = sio_eisa_maxslots;

		/*
		 * Deal with platforms that hook EISA interrupts
		 * up differently.
		 */
		switch (cputype) {
#if defined(DEC_2100_A500) || defined(DEC_2100A_A500)
		case ST_DEC_2100_A500:
		case ST_DEC_2100A_A500:
			pci_2100_a500_eisa_pickintr(sc->sc_pc, &ec);
			break;
#endif
		default:
			ec.ec_intr_map = sio_eisa_intr_map;
			ec.ec_intr_string = sio_intr_string;
			ec.ec_intr_evcnt = sio_intr_evcnt;
			ec.ec_intr_establish = sio_isa_intr_establish;
			ec.ec_intr_disestablish = sio_intr_disestablish;
		}

		sa.sa_eba.eba_iot = sc->sc_iot;
		sa.sa_eba.eba_memt = sc->sc_memt;
		sa.sa_eba.eba_dmat =
		    alphabus_dma_get_tag(sc->sc_parent_dmat, ALPHA_BUS_EISA);
		sa.sa_eba.eba_ec = &ec;
		config_found(sc->sc_dev, &sa.sa_eba, eisabusprint,
		    CFARGS(.iattr = "eisabus"));
	}
#endif /* NPCEB */

	/*
	 * Deal with platforms which have Odd ISA DMA needs.
	 */
	switch (cputype) {
#if defined(DEC_2100_A500) || defined(DEC_2100A_A500)
	case ST_DEC_2100_A500:
	case ST_DEC_2100A_A500:
		sc->sc_ic = sableio_pickisa();
		break;
#endif
	default:
		sc->sc_ic = kmem_zalloc(sizeof(*sc->sc_ic), KM_SLEEP);
	}

	sc->sc_ic->ic_v = NULL;
	sc->sc_ic->ic_attach_hook = sio_isa_attach_hook;
	sc->sc_ic->ic_detach_hook = sio_isa_detach_hook;

	/*
	 * Deal with platforms that hook up ISA interrupts differently.
	 */
	switch (cputype) {
#if defined(DEC_2100_A500) || defined(DEC_2100A_A500)
	case ST_DEC_2100_A500:
	case ST_DEC_2100A_A500:
		pci_2100_a500_isa_pickintr(sc->sc_pc, sc->sc_ic);
		break;
#endif
	default:
		sc->sc_ic->ic_intr_evcnt = sio_intr_evcnt;
		sc->sc_ic->ic_intr_establish = sio_isa_intr_establish;
		sc->sc_ic->ic_intr_disestablish = sio_intr_disestablish;
		sc->sc_ic->ic_intr_alloc = sio_intr_alloc;
	}

	sa.sa_iba.iba_iot = sc->sc_iot;
	sa.sa_iba.iba_memt = sc->sc_memt;
	sa.sa_iba.iba_dmat =
	    alphabus_dma_get_tag(sc->sc_parent_dmat, ALPHA_BUS_ISA);
	sa.sa_iba.iba_ic = sc->sc_ic;
	config_found(sc->sc_dev, &sa.sa_iba, isabusprint,
	    CFARGS(.iattr = "isabus"));
}

static void
sio_isa_attach_hook(device_t parent, device_t self, struct isabus_attach_args *iba)
{

	/* Nothing to do. */
}

static void
sio_isa_detach_hook(isa_chipset_tag_t ic, device_t self)
{

	/* Nothing to do. */
}

#if NPCEB > 0

static void
sio_eisa_attach_hook(device_t parent, device_t self, struct eisabus_attach_args *eba)
{

#if NEISA > 0
	eisa_init(eba->eba_ec);
#endif
}

static int
sio_eisa_maxslots(void *v)
{

	return 16;		/* as good a number as any.  only 8, maybe? */
}

static int
sio_eisa_intr_map(void *v, u_int irq, eisa_intr_handle_t *ihp)
{

#define	ICU_LEN		16	/* number of ISA IRQs (XXX) */

	if (irq >= ICU_LEN) {
		printf("sio_eisa_intr_map: bad IRQ %d\n", irq);
		*ihp = -1;
		return 1;
	}
	if (irq == 2) {
		printf("sio_eisa_intr_map: changed IRQ 2 to IRQ 9\n");
		irq = 9;
	}

	*ihp = irq;
	return 0;
}

#endif /* NPCEB */