xref: /src/sys/arch/mips/alchemy/dev/aupci.c

/* $NetBSD: aupci.c,v 1.1 2006/02/09 00:26:40 gdamore Exp $ */

/*-
 * Copyright (c) 2006 Itronix Inc.
 * All rights reserved.
 *
 * Written by Garrett D'Amore for Itronix Inc.
 *
 * 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.
 * 3. The name of Itronix Inc. may not be used to endorse
 *    or promote products derived from this software without specific
 *    prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY ITRONIX INC. ``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 ITRONIX INC. 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 "opt_pci.h"
#include "pci.h"

#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: aupci.c,v 1.1 2006/02/09 00:26:40 gdamore Exp $");

#include <sys/types.h>
#include <sys/param.h>
#include <sys/time.h>
#include <sys/systm.h>
#include <sys/errno.h>
#include <sys/device.h>
#include <sys/malloc.h>
#include <sys/extent.h>

#include <uvm/uvm_extern.h>

#include <machine/bus.h>
#include <machine/cpu.h>
#include <machine/pte.h>
#include <machine/wired_map.h>

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

#ifdef	PCI_NETBSD_CONFIGURE
#include <mips/cache.h>
#endif

#include <mips/alchemy/include/au_wired_space.h>
#include <mips/alchemy/include/aubusvar.h>
#include <mips/alchemy/include/aureg.h>
#include <mips/alchemy/include/auvar.h>

#include <mips/alchemy/dev/aupcireg.h>
#include <mips/alchemy/dev/aupcivar.h>

struct aupci_softc {
	struct device			sc_dev;
	struct mips_pci_chipset		sc_pc;
	struct mips_bus_space		sc_mem_space;
	struct mips_bus_space		sc_io_space;

	bus_space_tag_t			sc_memt;
	bus_space_tag_t			sc_iot;

	bus_space_tag_t			sc_bust;

	bus_space_handle_t		sc_bush;
	vaddr_t				sc_cfgva;
	paddr_t				sc_cfgpa;
	paddr_t				sc_cfgbase;
	paddr_t				sc_membase;
	paddr_t				sc_iobase;

	/* XXX: dma tag */
};

int		aupcimatch(struct device *, struct cfdata *, void *);
void		aupciattach(struct device *, struct device *, void *);

#if NPCI > 0
static void aupci_attach_hook(struct device *, struct device *,
    struct pcibus_attach_args *);
static int aupci_bus_maxdevs(void *, int);
static pcitag_t aupci_make_tag(void *, int, int, int);
static void aupci_decompose_tag(void *, pcitag_t, int *, int *, int *);
static pcireg_t aupci_conf_read(void *, pcitag_t, int);
static void aupci_conf_write(void *, pcitag_t, int, pcireg_t);
static const char *aupci_intr_string(void *, pci_intr_handle_t);
static void aupci_conf_interrupt(void *, int, int, int, int, int *);
static void *aupci_intr_establish(void *, pci_intr_handle_t, int,
    int (*)(void *), void *);
static void aupci_intr_disestablish(void *, void *);

#ifdef	PCI_NETBSD_CONFIGURE
static struct extent	*io_ex = NULL;
static struct extent	*mem_ex = NULL;
#endif	/* PCI_NETBSD_CONFIGURE */

#define	PCI_CFG_READ	0
#define	PCI_CFG_WRITE	1

#endif	/* NPCI > 0 */

CFATTACH_DECL(aupci, sizeof(struct aupci_softc),
    aupcimatch, aupciattach, NULL, NULL);

int aupci_found = 0;

/*
 * Physical PCI addresses are 36-bits long, so we need to have
 * adequate storage space for them.
 */
#if NPCI > 0
#if !defined(_MIPS_PADDR_T_64BIT) && !defined(_LP64)
#error	"aupci requires 64 bit paddr_t!"
#endif
#endif

int
aupcimatch(struct device *parent, struct cfdata *match, void *aux)
{
	struct aubus_attach_args *aa = (struct aubus_attach_args *)aux;

	if (strcmp(aa->aa_name, "aupci") != 0)
		return 0;

	if (aupci_found)
		return 0;

	return 1;
}

void
aupciattach(struct device *parent, struct device *self, void *aux)
{
	struct aupci_softc		*sc = (struct aupci_softc *)self;
	struct aubus_attach_args	*aa = (struct aubus_attach_args *)aux;
	uint32_t			cfg;
#if NPCI > 0
	struct pcibus_attach_args	pba;
#endif

	aupci_found = 1;

	sc->sc_bust = aa->aa_st;
	if (bus_space_map(sc->sc_bust, aa->aa_addrs[0], 512, 0,
		&sc->sc_bush) != 0) {
		printf("\n%s: unable to map PCI registers\n",
		    sc->sc_dev.dv_xname);
		return;
	}

#if NPCI > 0
	/*
	 * XXX: These physical addresses are locked in on the CPUs we have
	 * seen.  Perhaps these should be passed in via locators, thru
	 * the configuration file.
	 */
	sc->sc_cfgbase = PCI_CONFIG_BASE;
	sc->sc_membase = PCI_MEM_BASE;
	sc->sc_iobase = PCI_IO_BASE;

	/*
	 * We cannot map all of configuration space, because of the IDSEL
	 * logic.  So we create a single entry and reuse it.  For now we
	 * just map it to the start of configuration space, though we
	 * will be "adjusting" this for subsequent accesses later.
	 */
	sc->sc_cfgpa = 0;
	sc->sc_cfgva = AU_PCI_CFG_VA;
#endif

	/*
	 * Configure byte swapping, as YAMON doesn't do it.  YAMON does take
	 * care of most of the rest of the details (clocking, etc.), however.
	 */
#if _BYTE_ORDER == _BIG_ENDIAN
	/*
	 * N.B.: This still doesn't do the DMA thing properly.  I have
	 * not yet figured out how to get DMA access to work properly
	 * without having bytes swapped while the processor is in
	 * big-endian mode.  I'm not even sure that the Alchemy part
	 * can do it without swapping the bytes (which would be a
	 * bummer, since then only parts which had hardware detection
	 * and swapping support would work without special hacks in
	 * their drivers.)
	 */
	cfg = AUPCI_CONFIG_CH | AUPCI_CONFIG_R1H |
	    AUPCI_CONFIG_R2H | AUPCI_CONFIG_AEN |
	    AUPCI_CONFIG_SM | AUPCI_CONFIG_ST | AUPCI_CONFIG_SIC_DATA;
#else
	cfg = AUPCI_CONFIG_CH | AUPCI_CONFIG_R1H |
	    AUPCI_CONFIG_R2H | AUPCI_CONFIG_AEN;
#endif
	bus_space_write_4(sc->sc_bust, sc->sc_bush, AUPCI_CONFIG, cfg);

	cfg = bus_space_read_4(sc->sc_bust, sc->sc_bush, AUPCI_COMMAND_STATUS);

	printf(": Alchemy Host-PCI Bridge");
	if (cfg & PCI_STATUS_66MHZ_SUPPORT)
		printf(", 66MHz");
	else
		printf(", 33MHz");


	printf("\n");

#if NPCI > 0
	/*
	 * 256MB virtual PCI memory.  Note that we probably cannot
	 * really use all this because of limits on the number wired
	 * entries we can have at once.  In all likelihood, we won't
	 * use wired entries for more than a few megs anyway, since
	 * big devices like framebuffers are likely to be mapped into
	 * USEG using ordinary TLB entries.
	 */
	sc->sc_memt = &sc->sc_mem_space;
	au_wired_space_init(sc->sc_memt, "pcimem",
	    sc->sc_membase | AU_PCI_MEM_VA, AU_PCI_MEM_VA, AU_PCI_MEM_SZ,
	    AU_WIRED_SPACE_LITTLE_ENDIAN /* | AU_WIRED_SPACE_SWAP_HW */);

	/*
	 * IO space.
	 */
	sc->sc_iot = &sc->sc_io_space;
	au_wired_space_init(sc->sc_iot, "pciio",
	    sc->sc_iobase | AU_PCI_IO_VA, AU_PCI_IO_VA, AU_PCI_IO_SZ,
	    AU_WIRED_SPACE_LITTLE_ENDIAN | /* AU_WIRED_SPACE_SWAP_HW | */
	    AU_WIRED_SPACE_IO);

	sc->sc_pc.pc_conf_v = sc;
	sc->sc_pc.pc_attach_hook = aupci_attach_hook;
	sc->sc_pc.pc_bus_maxdevs = aupci_bus_maxdevs;
	sc->sc_pc.pc_make_tag = aupci_make_tag;
	sc->sc_pc.pc_decompose_tag = aupci_decompose_tag;
	sc->sc_pc.pc_conf_read = aupci_conf_read;
	sc->sc_pc.pc_conf_write = aupci_conf_write;

	sc->sc_pc.pc_intr_v = sc;
	sc->sc_pc.pc_intr_map = aupci_intr_map;
	sc->sc_pc.pc_intr_string = aupci_intr_string;
	sc->sc_pc.pc_intr_establish = aupci_intr_establish;
	sc->sc_pc.pc_intr_disestablish = aupci_intr_disestablish;
	sc->sc_pc.pc_conf_interrupt = aupci_conf_interrupt;

#ifdef PCI_NETBSD_CONFIGURE
	mem_ex = extent_create("pcimem", AU_PCI_MEM_VA,
	    AU_PCI_MEM_VA + AU_PCI_MEM_SZ - 1, M_DEVBUF, NULL, 0, EX_WAITOK);
	io_ex = extent_create("pciio", AU_PCI_IO_VA,
	    AU_PCI_IO_VA + AU_PCI_IO_SZ - 1, M_DEVBUF, NULL, 0, EX_WAITOK);
	pci_configure_bus(&sc->sc_pc,
	    io_ex, mem_ex, NULL, 0, mips_dcache_align);
	extent_destroy(mem_ex);
	extent_destroy(io_ex);
#endif

	pba.pba_iot = sc->sc_iot;
	pba.pba_memt = sc->sc_memt;
	/* XXX: review dma tag logic */
	pba.pba_dmat = aa->aa_dt;
	pba.pba_dmat64 = NULL;
	pba.pba_pc = &sc->sc_pc;
	pba.pba_flags = PCI_FLAGS_IO_ENABLED | PCI_FLAGS_MEM_ENABLED;
	pba.pba_bus = 0;
	pba.pba_bridgetag = NULL;

	config_found_ia(self, "pcibus", &pba, pcibusprint);
#endif	/* NPCI > 0 */
}

#if NPCI > 0

void
aupci_attach_hook(struct device *parent, struct device *self,
    struct pcibus_attach_args *pba)
{
}

int
aupci_bus_maxdevs(void *v, int busno)
{

	return 32;
}

pcitag_t
aupci_make_tag(void *v, int bus, int device, int function)
{
	pcitag_t		tag;

	if (bus >= 256 || device >= 32 || function >= 8)
		panic("aupci_make_tag: bad request");

	tag = (bus << 16) | (device << 11) | (function << 8);

	return tag;
}

void
aupci_decompose_tag(void *v, pcitag_t tag, int *b, int *d, int *f)
{

	if (b != NULL)
		*b = (tag >> 16) & 0xff;
	if (d != NULL)
		*d = (tag >> 11) & 0x1f;
	if (f != NULL)
		*f = (tag >> 8) & 0x07;
}

/*
 * Figure out the configuration space physical address for a given
 * tag, taking into consideration the IDSEL logic on bus 0.
 */
static inline paddr_t
aupci_conf_tag_to_pa(void *v, pcitag_t tag)
{
	uint32_t		offset;
	int			b, d, f;
	struct aupci_softc	*sc = (struct aupci_softc *)v;

	aupci_decompose_tag(v, tag, &b, &d, &f);
	if (b) {
		/* configuration type 1 */
		offset = 0x80000000 | tag;
	} else if (d > 19) {
		/* device num too big for bus 0 */
		return 0;
	} else {
		offset = (0x800 << d) | (f << 8);
	}
	return (sc->sc_cfgbase + offset);
}

static inline boolean_t
aupci_conf_access(void *v, int dir, pcitag_t tag, int reg, pcireg_t *datap)
{
	uint32_t		status;
	int			s;
	vsize_t			off;
	paddr_t			pa;
	struct aupci_softc	*sc = (struct aupci_softc *)v;

	pa = aupci_conf_tag_to_pa(v, tag);
	/* probing illegal target is OK, return an error indication */
	if (pa == 0)
		return FALSE;

	/* align it down to start of phys addr */
	off = pa & (MIPS3_WIRED_SIZE - 1);
	pa -= off;

	s = splhigh();

	if (sc->sc_cfgpa != pa) {
		if (mips3_wired_enter_region(sc->sc_cfgva, pa,
			MIPS3_WIRED_SIZE) == FALSE) {
			printf("%s: cannot map PCI configuration space!\n",
			    sc->sc_dev.dv_xname);
			splx(s);
			return FALSE;
		}
		sc->sc_cfgpa = pa;
	}

	/*
	 * Note that configuration space accesses are *always* endian
	 * swapped properly by the processor.
	 */
	if (dir == PCI_CFG_WRITE)
		*(volatile pcireg_t *)(sc->sc_cfgva + off + reg) = *datap;
	else
		*datap = *(volatile pcireg_t *)(sc->sc_cfgva + off + reg);

	DELAY(2);

	/* check for and clear master abort condition */
	status = bus_space_read_4(sc->sc_bust, sc->sc_bush, AUPCI_CONFIG);
	bus_space_write_4(sc->sc_bust, sc->sc_bush, AUPCI_CONFIG,
	    status & ~(AUPCI_CONFIG_EF));

	/* if we got a PCI master abort, fail it */
	if (status & AUPCI_CONFIG_EF)
		return FALSE;

	splx(s);

	return TRUE;
}


pcireg_t
aupci_conf_read(void *v, pcitag_t tag, int reg)
{
	pcireg_t		data;

	if (aupci_conf_access(v, PCI_CFG_READ, tag, reg, &data) == FALSE)
		return 0xffffffff;

	return (data);
}

void
aupci_conf_write(void *v, pcitag_t tag, int reg, pcireg_t data)
{

	aupci_conf_access(v, PCI_CFG_WRITE, tag, reg, &data);
}

const char *
aupci_intr_string(void *v, pci_intr_handle_t ih)
{
	static char	name[16];

	sprintf(name, "irq %u", (unsigned)ih);
	return (name);
}

void *
aupci_intr_establish(void *v, pci_intr_handle_t ih, int ipl,
    int (*handler)(void *), void *arg)
{

	return (au_intr_establish(ih, 0, ipl, IST_LEVEL_LOW, handler, arg));
}

void
aupci_intr_disestablish(void *v, void *cookie)
{

	au_intr_disestablish(cookie);
}

void
aupci_conf_interrupt(void *v, int bus, int dev, int ipin, int swiz, int *iline)
{
	/*
	 * We let the machdep_pci_intr_map take care of IRQ routing.
	 * On some platforms the BIOS may have handled this properly,
	 * on others it might not have.  For now we avoid clobbering
	 * the settings establishsed by the BIOS, so that they will be
	 * there if the platform logic is confident that it can rely
	 * on them.
	 */
}

#endif