/* $OpenBSD: ebus.c,v 1.22 2008/06/11 05:15:43 kettenis Exp $ */ /* $NetBSD: ebus.c,v 1.24 2001/07/25 03:49:54 eeh Exp $ */ /* * Copyright (c) 1999, 2000 Matthew R. Green * 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, 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 ``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 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. */ /* * UltraSPARC 5 and beyond ebus support. * * note that this driver is not complete: * - ebus2 dma code is completely unwritten * - interrupt establish is written and appears to work * - bus map code is written and appears to work */ #ifdef DEBUG #define EDB_PROM 0x01 #define EDB_CHILD 0x02 #define EDB_INTRMAP 0x04 #define EDB_BUSMAP 0x08 #define EDB_BUSDMA 0x10 #define EDB_INTR 0x20 int ebus_debug = 0x0; #define DPRINTF(l, s) do { if (ebus_debug & l) printf s; } while (0) #else #define DPRINTF(l, s) #endif #include #include #include #include #include #include #include #include #define _SPARC_BUS_DMA_PRIVATE #include #include #include #include #include #include #include #include #include #include #include #include #include int ebus_match(struct device *, void *, void *); void ebus_attach(struct device *, struct device *, void *); struct cfattach ebus_ca = { sizeof(struct ebus_softc), ebus_match, ebus_attach }; struct cfdriver ebus_cd = { NULL, "ebus", DV_DULL }; void ebus_find_ino(struct ebus_softc *, struct ebus_attach_args *); int ebus_find_node(struct pci_attach_args *); /* * here are our bus space and bus dma routines. */ static paddr_t ebus_bus_mmap(bus_space_tag_t, bus_space_tag_t, bus_addr_t, off_t, int, int); static int _ebus_bus_map(bus_space_tag_t, bus_space_tag_t, bus_addr_t, bus_size_t, int, bus_space_handle_t *); bus_space_tag_t ebus_alloc_mem_tag(struct ebus_softc *, bus_space_tag_t); bus_space_tag_t ebus_alloc_io_tag(struct ebus_softc *, bus_space_tag_t); bus_space_tag_t _ebus_alloc_bus_tag(struct ebus_softc *sc, const char *, bus_space_tag_t, int); int ebus_match(struct device *parent, void *match, void *aux) { struct pci_attach_args *pa = aux; char name[10]; int node; /* Only attach if there's a PROM node. */ node = PCITAG_NODE(pa->pa_tag); if (node == -1) return (0); /* Match a real ebus */ OF_getprop(node, "name", &name, sizeof(name)); if (PCI_CLASS(pa->pa_class) == PCI_CLASS_BRIDGE && PCI_VENDOR(pa->pa_id) == PCI_VENDOR_SUN && PCI_PRODUCT(pa->pa_id) == PCI_PRODUCT_SUN_EBUS && strcmp(name, "ebus") == 0) return (1); /* Or a real RIO ebus */ if (PCI_CLASS(pa->pa_class) == PCI_CLASS_BRIDGE && PCI_VENDOR(pa->pa_id) == PCI_VENDOR_SUN && PCI_PRODUCT(pa->pa_id) == PCI_PRODUCT_SUN_RIO_EBUS && strcmp(name, "ebus") == 0) return (1); /* Or a fake ebus */ if (PCI_CLASS(pa->pa_class) == PCI_CLASS_BRIDGE && PCI_VENDOR(pa->pa_id) == PCI_VENDOR_ALTERA && PCI_PRODUCT(pa->pa_id) == PCI_PRODUCT_ALTERA_EBUS && strcmp(name, "ebus") == 0) return (1); /* Or a PCI-ISA bridge XXX I hope this is on-board. */ if (PCI_CLASS(pa->pa_class) == PCI_CLASS_BRIDGE && PCI_SUBCLASS(pa->pa_class) == PCI_SUBCLASS_BRIDGE_ISA) { return (1); } return (0); } /* * attach an ebus and all its children. this code is modeled * after the sbus code which does similar things. */ void ebus_attach(struct device *parent, struct device *self, void *aux) { struct ebus_softc *sc = (struct ebus_softc *)self; struct pci_attach_args *pa = aux; struct ebus_attach_args eba; struct ebus_interrupt_map_mask *immp; int node, nmapmask, error; printf("\n"); sc->sc_memtag = ebus_alloc_mem_tag(sc, pa->pa_memt); sc->sc_iotag = ebus_alloc_io_tag(sc, pa->pa_iot); sc->sc_dmatag = ebus_alloc_dma_tag(sc, pa->pa_dmat); node = PCITAG_NODE(pa->pa_tag); if (node == -1) panic("could not find ebus node"); sc->sc_node = node; /* * fill in our softc with information from the prom */ sc->sc_intmap = NULL; sc->sc_range = NULL; error = getprop(node, "interrupt-map", sizeof(struct ebus_interrupt_map), &sc->sc_nintmap, (void **)&sc->sc_intmap); switch (error) { case 0: immp = &sc->sc_intmapmask; error = getprop(node, "interrupt-map-mask", sizeof(struct ebus_interrupt_map_mask), &nmapmask, (void **)&immp); if (error) panic("could not get ebus interrupt-map-mask"); if (nmapmask != 1) panic("ebus interrupt-map-mask is broken"); break; case ENOENT: break; default: panic("ebus interrupt-map: error %d", error); break; } error = getprop(node, "ranges", sizeof(struct ebus_ranges), &sc->sc_nrange, &sc->sc_range); if (error) panic("ebus ranges: error %d", error); /* * now attach all our children */ DPRINTF(EDB_CHILD, ("ebus node %08x, searching children...\n", node)); for (node = firstchild(node); node; node = nextsibling(node)) { if (!checkstatus(node)) continue; if (ebus_setup_attach_args(sc, node, &eba) != 0) { DPRINTF(EDB_CHILD, ("ebus_attach: %s: incomplete\n", getpropstring(node, "name"))); continue; } else { DPRINTF(EDB_CHILD, ("- found child `%s', attaching\n", eba.ea_name)); (void)config_found(self, &eba, ebus_print); } ebus_destroy_attach_args(&eba); } } int ebus_setup_attach_args(struct ebus_softc *sc, int node, struct ebus_attach_args *ea) { int n, rv; bzero(ea, sizeof(struct ebus_attach_args)); rv = getprop(node, "name", 1, &n, (void **)&ea->ea_name); if (rv != 0) return (rv); ea->ea_name[n] = '\0'; ea->ea_node = node; ea->ea_memtag = sc->sc_memtag; ea->ea_iotag = sc->sc_iotag; ea->ea_dmatag = sc->sc_dmatag; rv = getprop(node, "reg", sizeof(struct ebus_regs), &ea->ea_nregs, (void **)&ea->ea_regs); if (rv) return (rv); rv = getprop(node, "address", sizeof(u_int32_t), &ea->ea_nvaddrs, (void **)&ea->ea_vaddrs); if (rv != ENOENT) { if (rv) return (rv); if (ea->ea_nregs != ea->ea_nvaddrs) printf("ebus loses: device %s: %d regs and %d addrs\n", ea->ea_name, ea->ea_nregs, ea->ea_nvaddrs); } else ea->ea_nvaddrs = 0; if (getprop(node, "interrupts", sizeof(u_int32_t), &ea->ea_nintrs, (void **)&ea->ea_intrs)) ea->ea_nintrs = 0; else ebus_find_ino(sc, ea); return (0); } void ebus_destroy_attach_args(struct ebus_attach_args *ea) { if (ea->ea_name) free((void *)ea->ea_name, M_DEVBUF); if (ea->ea_regs) free((void *)ea->ea_regs, M_DEVBUF); if (ea->ea_intrs) free((void *)ea->ea_intrs, M_DEVBUF); if (ea->ea_vaddrs) free((void *)ea->ea_vaddrs, M_DEVBUF); } int ebus_print(void *aux, const char *p) { struct ebus_attach_args *ea = aux; int i; if (p) printf("\"%s\" at %s", ea->ea_name, p); for (i = 0; i < ea->ea_nregs; i++) printf("%s %x-%x", i == 0 ? " addr" : ",", ea->ea_regs[i].lo, ea->ea_regs[i].lo + ea->ea_regs[i].size - 1); for (i = 0; i < ea->ea_nintrs; i++) printf(" ivec 0x%x", ea->ea_intrs[i]); return (UNCONF); } /* * find the INO values for each interrupt and fill them in. * * for each "reg" property of this device, mask its hi and lo * values with the "interrupt-map-mask"'s hi/lo values, and also * mask the interrupt number with the interrupt mask. search the * "interrupt-map" list for matching values of hi, lo and interrupt * to give the INO for this interrupt. */ void ebus_find_ino(struct ebus_softc *sc, struct ebus_attach_args *ea) { u_int32_t hi, lo, intr; int i, j, k; if (sc->sc_nintmap == 0) { for (i = 0; i < ea->ea_nintrs; i++) { OF_mapintr(ea->ea_node, &ea->ea_intrs[i], sizeof(ea->ea_intrs[0]), sizeof(ea->ea_intrs[0])); } return; } DPRINTF(EDB_INTRMAP, ("ebus_find_ino: searching %d interrupts", ea->ea_nintrs)); for (j = 0; j < ea->ea_nintrs; j++) { intr = ea->ea_intrs[j] & sc->sc_intmapmask.intr; DPRINTF(EDB_INTRMAP, ("; intr %x masked to %x", ea->ea_intrs[j], intr)); for (i = 0; i < ea->ea_nregs; i++) { hi = ea->ea_regs[i].hi & sc->sc_intmapmask.hi; lo = ea->ea_regs[i].lo & sc->sc_intmapmask.lo; DPRINTF(EDB_INTRMAP, ("; reg hi.lo %08x.%08x masked to %08x.%08x", ea->ea_regs[i].hi, ea->ea_regs[i].lo, hi, lo)); for (k = 0; k < sc->sc_nintmap; k++) { DPRINTF(EDB_INTRMAP, ("; checking hi.lo %08x.%08x intr %x", sc->sc_intmap[k].hi, sc->sc_intmap[k].lo, sc->sc_intmap[k].intr)); if (hi == sc->sc_intmap[k].hi && lo == sc->sc_intmap[k].lo && intr == sc->sc_intmap[k].intr) { ea->ea_intrs[j] = sc->sc_intmap[k].cintr; DPRINTF(EDB_INTRMAP, ("; FOUND IT! changing to %d\n", sc->sc_intmap[k].cintr)); goto next_intr; } } } next_intr:; } } bus_space_tag_t ebus_alloc_mem_tag(struct ebus_softc *sc, bus_space_tag_t parent) { return (_ebus_alloc_bus_tag(sc, "mem", parent, 0x02)); /* 32-bit mem space (where's the #define???) */ } bus_space_tag_t ebus_alloc_io_tag(struct ebus_softc *sc, bus_space_tag_t parent) { return (_ebus_alloc_bus_tag(sc, "io", parent, 0x01)); /* IO space (where's the #define???) */ } /* * bus space and bus dma below here */ bus_space_tag_t _ebus_alloc_bus_tag(struct ebus_softc *sc, const char *name, bus_space_tag_t parent, int ss) { struct sparc_bus_space_tag *bt; bt = malloc(sizeof(*bt), M_DEVBUF, M_NOWAIT | M_ZERO); if (bt == NULL) panic("could not allocate ebus bus tag"); snprintf(bt->name, sizeof(bt->name), "%s_%s", sc->sc_dev.dv_xname, name); bt->cookie = sc; bt->parent = parent; bt->default_type = ss; bt->asi = parent->asi; bt->sasi = parent->sasi; bt->sparc_bus_map = _ebus_bus_map; bt->sparc_bus_mmap = ebus_bus_mmap; return (bt); } bus_dma_tag_t ebus_alloc_dma_tag(struct ebus_softc *sc, bus_dma_tag_t pdt) { bus_dma_tag_t dt; dt = malloc(sizeof(*dt), M_DEVBUF, M_NOWAIT | M_ZERO); if (dt == NULL) panic("could not allocate ebus dma tag"); dt->_cookie = sc; dt->_parent = pdt; sc->sc_dmatag = dt; return (dt); } /* * bus space support. has a discussion * about PCI physical addresses, which also applies to ebus. */ static int _ebus_bus_map(bus_space_tag_t t, bus_space_tag_t t0, bus_addr_t offset, bus_size_t size, int flags, bus_space_handle_t *hp) { struct ebus_softc *sc = t->cookie; struct ebus_ranges *range = sc->sc_range; bus_addr_t hi, lo; int i; DPRINTF(EDB_BUSMAP, ("\n_ebus_bus_map: type %d off %016llx sz %x flags %d", (int)t->default_type, (unsigned long long)offset, (int)size, (int)flags)); if (t->parent == 0 || t->parent->sparc_bus_map == 0) { printf("\n_ebus_bus_map: invalid parent"); return (EINVAL); } t = t->parent; if (flags & BUS_SPACE_MAP_PROMADDRESS) { return ((*t->sparc_bus_map) (t, t0, offset, size, flags, hp)); } hi = offset >> 32UL; lo = offset & 0xffffffff; DPRINTF(EDB_BUSMAP, (" (hi %08x lo %08x)", (u_int)hi, (u_int)lo)); for (i = 0; i < sc->sc_nrange; i++) { bus_addr_t pciaddr; if (hi != range[i].child_hi) continue; if (lo < range[i].child_lo || (lo + size) > (range[i].child_lo + range[i].size)) continue; if(((range[i].phys_hi >> 24) & 3) != t->default_type) continue; pciaddr = ((bus_addr_t)range[i].phys_mid << 32UL) | range[i].phys_lo; pciaddr += lo; DPRINTF(EDB_BUSMAP, ("\n_ebus_bus_map: mapping space %x paddr offset %qx " "pciaddr %qx\n", (int)t->default_type, (unsigned long long)offset, (unsigned long long)pciaddr)); return ((*t->sparc_bus_map)(t, t0, pciaddr, size, flags, hp)); } DPRINTF(EDB_BUSMAP, (": FAILED\n")); return (EINVAL); } static paddr_t ebus_bus_mmap(bus_space_tag_t t, bus_space_tag_t t0, bus_addr_t paddr, off_t off, int prot, int flags) { bus_addr_t offset = paddr; struct ebus_softc *sc = t->cookie; struct ebus_ranges *range = sc->sc_range; int i; if (t->parent == 0 || t->parent->sparc_bus_mmap == 0) { printf("\nebus_bus_mmap: invalid parent"); return (-1); } t = t->parent; for (i = 0; i < sc->sc_nrange; i++) { bus_addr_t paddr = ((bus_addr_t)range[i].child_hi << 32) | range[i].child_lo; if (offset != paddr) continue; DPRINTF(EDB_BUSMAP, ("\n_ebus_bus_mmap: mapping paddr %qx\n", (unsigned long long)paddr)); return ((*t->sparc_bus_mmap)(t, t0, paddr, off, prot, flags)); } return (-1); }