NetBSD-5.0.2/sys/arch/ofppc/pci/pegasospci.c
/* $NetBSD: pegasospci.c,v 1.14 2008/04/28 20:23:31 martin Exp $ */
/*-
* Copyright (c) 2007 The NetBSD Foundation, Inc.
* All rights reserved.
*
* This code is derived from software contributed to The NetBSD Foundation
* by Tim Rightnour
*
* 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.
*/
#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: pegasospci.c,v 1.14 2008/04/28 20:23:31 martin Exp $");
#include "opt_pci.h"
#include <sys/param.h>
#include <sys/device.h>
#include <sys/malloc.h>
#include <sys/extent.h>
#include <sys/systm.h>
#include <dev/pci/pcivar.h>
#include <dev/pci/pciconf.h>
#include <dev/ofw/openfirm.h>
#include <dev/ofw/ofw_pci.h>
#include <machine/autoconf.h>
#include <machine/pio.h>
#include <machine/isa_machdep.h>
#include <machine/pegasosreg.h>
struct pegasospci_softc {
struct device sc_dev;
struct genppc_pci_chipset sc_pc;
struct powerpc_bus_space sc_iot;
struct powerpc_bus_space sc_memt;
};
static void pegasospci_attach(struct device *, struct device *, void *);
static int pegasospci_match(struct device *, struct cfdata *, void *);
static pcireg_t pegasospci_indirect_conf_read(void *, pcitag_t, int);
static void pegasospci_indirect_conf_write(void *, pcitag_t, int, pcireg_t);
CFATTACH_DECL(pegasospci, sizeof(struct pegasospci_softc),
pegasospci_match, pegasospci_attach, NULL, NULL);
extern struct genppc_pci_chipset *genppc_pct;
static u_int32_t *pciagp_magic;
static void
pegasospci_get_chipset_tag(pci_chipset_tag_t pc)
{
pc->pc_conf_v = (void *)pc;
pc->pc_attach_hook = genppc_pci_indirect_attach_hook;
pc->pc_bus_maxdevs = genppc_pci_bus_maxdevs;
pc->pc_make_tag = genppc_pci_indirect_make_tag;
pc->pc_conf_read = genppc_pci_indirect_conf_read;
pc->pc_conf_write = genppc_pci_indirect_conf_write;
pc->pc_intr_v = (void *)pc;
pc->pc_intr_map = genofw_pci_intr_map;
pc->pc_intr_string = genppc_pci_intr_string;
pc->pc_intr_evcnt = genppc_pci_intr_evcnt;
pc->pc_intr_establish = genppc_pci_intr_establish;
pc->pc_intr_disestablish = genppc_pci_intr_disestablish;
pc->pc_conf_interrupt = genppc_pci_conf_interrupt;
pc->pc_decompose_tag = genppc_pci_indirect_decompose_tag;
pc->pc_conf_hook = genofw_pci_conf_hook;
pc->pc_addr = 0;
pc->pc_data = 0;
pc->pc_bus = 0;
pc->pc_node = 0;
pc->pc_ihandle = 0;
pc->pc_memt = 0;
pc->pc_iot = 0;
}
static int
pegasospci_match(struct device *parent, struct cfdata *cf, void *aux)
{
struct confargs *ca = aux;
char name[32];
if (strcmp(ca->ca_name, "pci") != 0)
return 0;
memset(name, 0, sizeof(name));
OF_getprop(ca->ca_node, "device_type", name, sizeof(name));
if (strcmp(name, "pci") != 0)
return 0;
if (strcmp(model_name, "Pegasos2") != 0)
return 0;
return 10;
}
static void
pegasospci_attach(struct device *parent, struct device *self, void *aux)
{
struct pegasospci_softc *sc = (void *)self;
pci_chipset_tag_t pc = &sc->sc_pc;
struct confargs *ca = aux;
struct pcibus_attach_args pba;
struct genppc_pci_chipset_businfo *pbi;
int isprim = 0, node = ca->ca_node;
uint32_t reg[2], busrange[2];
#ifdef PCI_NETBSD_CONFIGURE
struct extent *ioext, *memext;
#endif
aprint_normal("\n");
if (OF_getprop(node, "reg", reg, sizeof(reg)) < 8)
return;
/* PCI bus number */
if (OF_getprop(node, "bus-range", busrange, sizeof(busrange)) != 8)
return;
/* bus space map the io ranges */
sc->sc_iot.pbs_flags = _BUS_SPACE_LITTLE_ENDIAN|_BUS_SPACE_IO_TYPE;
sc->sc_iot.pbs_base = 0x00000000;
if (ofwoea_map_space(RANGE_TYPE_PCI, RANGE_IO, node, &sc->sc_iot,
"pegasospci io-space") != 0)
panic("Can't init pegasospci io tag");
sc->sc_memt.pbs_flags = _BUS_SPACE_LITTLE_ENDIAN|_BUS_SPACE_MEM_TYPE;
sc->sc_memt.pbs_base = 0x00000000;
if (ofwoea_map_space(RANGE_TYPE_PCI, RANGE_MEM, node, &sc->sc_memt,
"pegasospci mem-space") != 0)
panic("Can't init pegasospci mem tag");
/* are we the primary pci bus? */
if (of_find_firstchild_byname(OF_finddevice("/"), "pci") == node) {
int isa_node;
isprim++;
/* yes we are, now do we have an ISA child? */
isa_node = of_find_firstchild_byname(node, "isa");
if (isa_node != -1) {
/* The Pegasos is very simple. isa == pci */
genppc_isa_io_space_tag = sc->sc_iot;
genppc_isa_mem_space_tag = sc->sc_memt;
map_isa_ioregs();
init_ofppc_interrupt();
ofppc_init_comcons(isa_node);
}
}
pegasospci_get_chipset_tag(pc);
pc->pc_node = node;
pc->pc_bus = busrange[0];
pc->pc_iot = &sc->sc_iot;
pc->pc_memt = &sc->sc_memt;
/* XXX Warning, the mapiodevs will go away if this region is later
* bus space initted or mapped
*/
if (isprim) {
/* Pegasos2: primary PCI host (33MHz) @ 0x80000000 */
pc->pc_addr = mapiodev(PEGASOS2_PCI0_ADDR, 4);
pc->pc_data = mapiodev(PEGASOS2_PCI0_DATA, 4);
} else {
/* Pegasos2: second PCI host (66MHz) @ 0xc0000000 */
pc->pc_addr = mapiodev(PEGASOS2_PCI1_ADDR, 4);
pc->pc_data = mapiodev(PEGASOS2_PCI1_DATA, 4);
pciagp_magic = mapiodev(PEGASOS2_AGP_MAGIC, 8);
pc->pc_conf_read = pegasospci_indirect_conf_read;
pc->pc_conf_write = pegasospci_indirect_conf_write;
}
pbi = malloc(sizeof(struct genppc_pci_chipset_businfo),
M_DEVBUF, M_NOWAIT);
KASSERT(pbi != NULL);
pbi->pbi_properties = prop_dictionary_create();
KASSERT(pbi->pbi_properties != NULL);
SIMPLEQ_INIT(&pc->pc_pbi);
SIMPLEQ_INSERT_TAIL(&pc->pc_pbi, pbi, next);
genofw_setup_pciintr_map((void *)pc, pbi, pc->pc_node);
#ifdef PCI_NETBSD_CONFIGURE
if (isprim) {
ioext = extent_create("pciio", 0x00001400, 0x0000ffff,
M_DEVBUF, NULL, 0, EX_NOWAIT);
memext = extent_create("pcimem", sc->sc_memt.pbs_base,
sc->sc_memt.pbs_limit-1, M_DEVBUF, NULL, 0, EX_NOWAIT);
if (pci_configure_bus(pc, ioext, memext, NULL, 0, CACHELINESIZE))
printf("pci_configure_bus() failed\n");
extent_destroy(ioext);
extent_destroy(memext);
}
#endif /* PCI_NETBSD_CONFIGURE */
memset(&pba, 0, sizeof(pba));
pba.pba_memt = pc->pc_memt;
pba.pba_iot = pc->pc_iot;
pba.pba_dmat = &pci_bus_dma_tag;
pba.pba_dmat64 = NULL;
pba.pba_bus = pc->pc_bus;
pba.pba_bridgetag = NULL;
pba.pba_pc = pc;
pba.pba_flags = PCI_FLAGS_IO_ENABLED | PCI_FLAGS_MEM_ENABLED;
config_found_ia(self, "pcibus", &pba, pcibusprint);
}
static pcireg_t
pegasospci_indirect_conf_read(void *cookie, pcitag_t tag, int reg)
{
pci_chipset_tag_t pc = cookie;
pcireg_t data;
int s;
s = splhigh();
out32rb(pciagp_magic, PEGASOS2_AGP_MAGIC_COOKIE);
out32rb(pc->pc_addr, tag | reg);
data = in32rb(pc->pc_data);
out32rb(pc->pc_addr, 0);
out32rb(pciagp_magic + 1, PEGASOS2_AGP_MAGIC_COOKIE);
splx(s);
return data;
}
static void
pegasospci_indirect_conf_write(void *cookie, pcitag_t tag, int reg,
pcireg_t data)
{
pci_chipset_tag_t pc = cookie;
int s;
s = splhigh();
out32rb(pciagp_magic, PEGASOS2_AGP_MAGIC_COOKIE);
out32rb(pc->pc_addr, tag | reg);
out32rb(pc->pc_data, data);
out32rb(pc->pc_addr, 0);
out32rb(pciagp_magic + 1, PEGASOS2_AGP_MAGIC_COOKIE);
splx(s);
}