ebus.c revision 1.12 1 /* $NetBSD: ebus.c,v 1.12 2000/06/24 23:27:23 eeh Exp $ */
2
3 /*
4 * Copyright (c) 1999, 2000 Matthew R. Green
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. The name of the author may not be used to endorse or promote products
16 * derived from this software without specific prior written permission.
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
19 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
20 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
21 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
22 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
23 * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
24 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
25 * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
26 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
27 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
28 * SUCH DAMAGE.
29 */
30
31 #include "opt_ddb.h"
32
33 /*
34 * UltraSPARC 5 and beyond ebus support.
35 *
36 * note that this driver is far from complete:
37 * - ebus2 dma code is completely unwritten
38 * - interrupt establish code is completely unwritten
39 * - bus map code is written and appears to work
40 */
41
42 #undef DEBUG
43 #define DEBUG
44
45 #ifdef DEBUG
46 #define EDB_PROM 0x01
47 #define EDB_CHILD 0x02
48 #define EDB_INTRMAP 0x04
49 #define EDB_BUSMAP 0x08
50 #define EDB_BUSDMA 0x10
51 #define EDB_INTR 0x20
52 int ebus_debug = 0;
53 #define DPRINTF(l, s) do { if (ebus_debug & l) printf s; } while (0)
54 #else
55 #define DPRINTF(l, s)
56 #endif
57
58 #include <sys/param.h>
59 #include <sys/conf.h>
60 #include <sys/device.h>
61 #include <sys/errno.h>
62 #include <sys/extent.h>
63 #include <sys/malloc.h>
64 #include <sys/systm.h>
65 #include <sys/time.h>
66
67 #include <vm/vm.h>
68 #include <vm/vm_kern.h>
69
70 #define _SPARC_BUS_DMA_PRIVATE
71 #include <machine/bus.h>
72 #include <machine/autoconf.h>
73
74 #include <dev/pci/pcivar.h>
75 #include <dev/pci/pcireg.h>
76 #include <dev/pci/pcidevs.h>
77
78 #include <sparc64/dev/iommureg.h>
79 #include <sparc64/dev/iommuvar.h>
80 #include <sparc64/dev/psychoreg.h>
81 #include <sparc64/dev/psychovar.h>
82 #include <sparc64/dev/ebusreg.h>
83 #include <sparc64/dev/ebusvar.h>
84 #include <sparc64/sparc64/cache.h>
85
86 int ebus_match __P((struct device *, struct cfdata *, void *));
87 void ebus_attach __P((struct device *, struct device *, void *));
88
89 struct cfattach ebus_ca = {
90 sizeof(struct ebus_softc), ebus_match, ebus_attach
91 };
92
93 int ebus_setup_attach_args __P((struct ebus_softc *, int,
94 struct ebus_attach_args *));
95 void ebus_destroy_attach_args __P((struct ebus_attach_args *));
96 int ebus_print __P((void *, const char *));
97 void ebus_find_ino __P((struct ebus_softc *, struct ebus_attach_args *));
98 int ebus_find_node __P((struct pci_attach_args *));
99
100 /*
101 * here are our bus space and bus dma routines.
102 */
103 static int ebus_bus_mmap __P((bus_space_tag_t, bus_type_t, bus_addr_t,
104 int, bus_space_handle_t *));
105 static int _ebus_bus_map __P((bus_space_tag_t, bus_type_t, bus_addr_t,
106 bus_size_t, int, vaddr_t,
107 bus_space_handle_t *));
108 static void *ebus_intr_establish __P((bus_space_tag_t, int, int,
109 int (*) __P((void *)), void *));
110
111 static int ebus_dmamap_load __P((bus_dma_tag_t, bus_dmamap_t, void *,
112 bus_size_t, struct proc *, int));
113 static void ebus_dmamap_unload __P((bus_dma_tag_t, bus_dmamap_t));
114 static void ebus_dmamap_sync __P((bus_dma_tag_t, bus_dmamap_t, bus_addr_t,
115 bus_size_t, int));
116 int ebus_dmamem_alloc __P((bus_dma_tag_t, bus_size_t, bus_size_t, bus_size_t,
117 bus_dma_segment_t *, int, int *, int));
118 void ebus_dmamem_free __P((bus_dma_tag_t, bus_dma_segment_t *, int));
119 int ebus_dmamem_map __P((bus_dma_tag_t, bus_dma_segment_t *, int, size_t,
120 caddr_t *, int));
121 void ebus_dmamem_unmap __P((bus_dma_tag_t, caddr_t, size_t));
122
123 int
124 ebus_match(parent, match, aux)
125 struct device *parent;
126 struct cfdata *match;
127 void *aux;
128 {
129 struct pci_attach_args *pa = aux;
130
131 if (PCI_CLASS(pa->pa_class) == PCI_CLASS_BRIDGE &&
132 PCI_VENDOR(pa->pa_id) == PCI_VENDOR_SUN &&
133 PCI_PRODUCT(pa->pa_id) == PCI_PRODUCT_SUN_EBUS &&
134 ebus_find_node(pa))
135 return (1);
136
137 return (0);
138 }
139
140 /*
141 * attach an ebus and all it's children. this code is modeled
142 * after the sbus code which does similar things.
143 */
144 void
145 ebus_attach(parent, self, aux)
146 struct device *parent, *self;
147 void *aux;
148 {
149 struct ebus_softc *sc = (struct ebus_softc *)self;
150 struct pci_attach_args *pa = aux;
151 struct ebus_attach_args eba;
152 struct ebus_interrupt_map_mask *immp;
153 int node, nmapmask, rv;
154 char devinfo[256];
155
156 printf("\n");
157
158 pci_devinfo(pa->pa_id, pa->pa_class, 0, devinfo);
159 printf("%s: %s, revision 0x%02x\n", self->dv_xname, devinfo,
160 PCI_REVISION(pa->pa_class));
161
162 sc->sc_parent = (struct psycho_softc *)parent;
163 sc->sc_bustag = pa->pa_memt;
164 sc->sc_childbustag = ebus_alloc_bus_tag(sc, PCI_MEMORY_BUS_SPACE);
165 sc->sc_dmatag = ebus_alloc_dma_tag(sc, pa->pa_dmat);
166
167 node = ebus_find_node(pa);
168 if (node == 0)
169 panic("could not find ebus node");
170
171 sc->sc_node = node;
172
173 /*
174 * fill in our softc with information from the prom
175 */
176 sc->sc_intmap = NULL;
177 sc->sc_range = NULL;
178 rv = getprop(node, "interrupt-map", sizeof(struct ebus_interrupt_map),
179 &sc->sc_nintmap, (void **)&sc->sc_intmap);
180 if (rv)
181 panic("could not get ebus interrupt-map");
182
183 immp = &sc->sc_intmapmask;
184 rv = getprop(node, "interrupt-map-mask",
185 sizeof(struct ebus_interrupt_map_mask), &nmapmask,
186 (void **)&immp);
187 if (rv)
188 panic("could not get ebus interrupt-map-mask");
189 if (nmapmask != 1)
190 panic("ebus interrupt-map-mask is broken");
191
192 rv = getprop(node, "ranges", sizeof(struct ebus_ranges),
193 &sc->sc_nrange, (void **)&sc->sc_range);
194 if (rv)
195 panic("could not get ebus ranges");
196
197 /*
198 * now attach all our children
199 */
200 DPRINTF(EDB_CHILD, ("ebus node %08x, searching children...\n", node));
201 for (node = firstchild(node); node; node = nextsibling(node)) {
202 char *name = getpropstring(node, "name");
203
204 if (ebus_setup_attach_args(sc, node, &eba) != 0) {
205 printf("ebus_attach: %s: incomplete\n", name);
206 continue;
207 } else {
208 DPRINTF(EDB_CHILD, ("- found child `%s', attaching\n", eba.ea_name));
209 (void)config_found(self, &eba, ebus_print);
210 }
211 ebus_destroy_attach_args(&eba);
212 }
213 }
214
215 int
216 ebus_setup_attach_args(sc, node, ea)
217 struct ebus_softc *sc;
218 int node;
219 struct ebus_attach_args *ea;
220 {
221 int n, rv;
222
223 bzero(ea, sizeof(struct ebus_attach_args));
224 rv = getprop(node, "name", 1, &n, (void **)&ea->ea_name);
225 if (rv != 0)
226 return (rv);
227 ea->ea_name[n] = '\0';
228
229 ea->ea_node = node;
230 ea->ea_bustag = sc->sc_childbustag;
231 ea->ea_dmatag = sc->sc_dmatag;
232
233 rv = getprop(node, "reg", sizeof(struct ebus_regs), &ea->ea_nregs,
234 (void **)&ea->ea_regs);
235 if (rv)
236 return (rv);
237
238 rv = getprop(node, "address", sizeof(u_int32_t), &ea->ea_nvaddrs,
239 (void **)&ea->ea_vaddrs);
240 if (rv != ENOENT) {
241 if (rv)
242 return (rv);
243
244 if (ea->ea_nregs != ea->ea_nvaddrs)
245 printf("ebus loses: device %s: %d regs and %d addrs\n",
246 ea->ea_name, ea->ea_nregs, ea->ea_nvaddrs);
247 } else
248 ea->ea_nvaddrs = 0;
249
250 if (getprop(node, "interrupts", sizeof(u_int32_t), &ea->ea_nintrs,
251 (void **)&ea->ea_intrs))
252 ea->ea_nintrs = 0;
253 else
254 ebus_find_ino(sc, ea);
255
256 return (0);
257 }
258
259 void
260 ebus_destroy_attach_args(ea)
261 struct ebus_attach_args *ea;
262 {
263
264 if (ea->ea_name)
265 free((void *)ea->ea_name, M_DEVBUF);
266 if (ea->ea_regs)
267 free((void *)ea->ea_regs, M_DEVBUF);
268 if (ea->ea_intrs)
269 free((void *)ea->ea_intrs, M_DEVBUF);
270 if (ea->ea_vaddrs)
271 free((void *)ea->ea_vaddrs, M_DEVBUF);
272 }
273
274 int
275 ebus_print(aux, p)
276 void *aux;
277 const char *p;
278 {
279 struct ebus_attach_args *ea = aux;
280 int i;
281
282 if (p)
283 printf("%s at %s", ea->ea_name, p);
284 for (i = 0; i < ea->ea_nregs; i++)
285 printf(" addr %x-%x", ea->ea_regs[i].lo,
286 ea->ea_regs[i].lo + ea->ea_regs[i].size - 1);
287 for (i = 0; i < ea->ea_nintrs; i++)
288 printf(" ipl %d", ea->ea_intrs[i]);
289 return (UNCONF);
290 }
291
292 /*
293 * find the INO values for each interrupt and fill them in.
294 *
295 * for each "reg" property of this device, mask it's hi and lo
296 * values with the "interrupt-map-mask"'s hi/lo values, and also
297 * mask the interrupt number with the interrupt mask. search the
298 * "interrupt-map" list for matching values of hi, lo and interrupt
299 * to give the INO for this interrupt.
300 */
301 void
302 ebus_find_ino(sc, ea)
303 struct ebus_softc *sc;
304 struct ebus_attach_args *ea;
305 {
306 u_int32_t hi, lo, intr;
307 int i, j, k;
308
309 DPRINTF(EDB_INTRMAP, ("ebus_find_ino: searching %d interrupts", ea->ea_nintrs));
310 for (j = 0; j < ea->ea_nintrs; j++) {
311 intr = ea->ea_intrs[j] & sc->sc_intmapmask.intr;
312
313 DPRINTF(EDB_INTRMAP, ("; intr %x masked to %x", ea->ea_intrs[j], intr));
314 for (i = 0; i < ea->ea_nregs; i++) {
315 hi = ea->ea_regs[i].hi & sc->sc_intmapmask.hi;
316 lo = ea->ea_regs[i].lo & sc->sc_intmapmask.lo;
317
318 DPRINTF(EDB_INTRMAP, ("; reg hi.lo %08x.08x masked to %08x.%08x", ea->ea_regs[i].hi, ea->ea_regs[i].lo, hi, lo));
319 for (k = 0; k < sc->sc_nintmap; k++) {
320 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));
321 if (hi == sc->sc_intmap[k].hi &&
322 lo == sc->sc_intmap[k].lo &&
323 intr == sc->sc_intmap[k].intr) {
324 ea->ea_intrs[j] =
325 sc->sc_intmap[k].cintr|INTMAP_OBIO;
326 DPRINTF(EDB_INTRMAP, ("; FOUND IT! changing to %d\n", sc->sc_intmap[k].cintr));
327 goto next_intr;
328 }
329 }
330 }
331 next_intr:
332 }
333 }
334
335 /*
336 * what is our OFW node? this depends on our pci chipset tag
337 * having it's "node" value set to the OFW node of the PCI bus,
338 * see the simba driver.
339 */
340 int
341 ebus_find_node(pa)
342 struct pci_attach_args *pa;
343 {
344 int node = pa->pa_pc->node;
345 int n, *ap;
346 int pcibus, bus, dev, fn;
347
348 DPRINTF(EDB_PROM, ("ebus_find_node: looking at pci node %08x\n", node));
349 for (node = firstchild(node); node; node = nextsibling(node)) {
350 char *name = getpropstring(node, "name");
351
352 DPRINTF(EDB_PROM, ("ebus_find_node: looking at PCI device `%s', node = %08x\n", name, node));
353 /* must be "ebus" */
354 if (strcmp(name, "ebus") != 0)
355 continue;
356
357 /* pull the PCI bus out of the pa_tag */
358 pcibus = (pa->pa_tag >> 16) & 0xff;
359 DPRINTF(EDB_PROM, ("; pcibus %d dev %d fn %d\n", pcibus, pa->pa_device, pa->pa_function));
360
361 /* get the PCI bus/device/function for this node */
362 ap = NULL;
363 if (getprop(node, "reg", sizeof(int), &n,
364 (void **)&ap))
365 continue;
366
367 bus = (ap[0] >> 16) & 0xff;
368 dev = (ap[0] >> 11) & 0x1f;
369 fn = (ap[0] >> 8) & 0x7;
370
371 DPRINTF(EDB_PROM, ("; looking for bus %d dev %d fn %d\n", pcibus, pa->pa_device, pa->pa_function));
372 if (pa->pa_device != dev ||
373 pa->pa_function != fn ||
374 pcibus != bus)
375 continue;
376
377 DPRINTF(EDB_PROM, ("; found it, returning %08x\n", node));
378 /* found it! */
379 free(ap, M_DEVBUF);
380 return (node);
381 }
382
383 /* damn! */
384 return (0);
385 }
386
387 /*
388 * bus space and bus dma below here
389 */
390 bus_space_tag_t
391 ebus_alloc_bus_tag(sc, type)
392 struct ebus_softc *sc;
393 int type;
394 {
395 bus_space_tag_t bt;
396
397 bt = (bus_space_tag_t)
398 malloc(sizeof(struct sparc_bus_space_tag), M_DEVBUF, M_NOWAIT);
399 if (bt == NULL)
400 panic("could not allocate ebus bus tag");
401
402 bzero(bt, sizeof *bt);
403 bt->cookie = sc;
404 bt->parent = sc->sc_bustag;
405 bt->type = type;
406 bt->sparc_bus_map = _ebus_bus_map;
407 bt->sparc_bus_mmap = ebus_bus_mmap;
408 bt->sparc_intr_establish = ebus_intr_establish;
409 return (bt);
410 }
411
412 /* XXX? */
413 bus_dma_tag_t
414 ebus_alloc_dma_tag(sc, pdt)
415 struct ebus_softc *sc;
416 bus_dma_tag_t pdt;
417 {
418 bus_dma_tag_t dt;
419
420 dt = (bus_dma_tag_t)
421 malloc(sizeof(struct sparc_bus_dma_tag), M_DEVBUF, M_NOWAIT);
422 if (dt == NULL)
423 panic("could not allocate ebus dma tag");
424
425 bzero(dt, sizeof *dt);
426 dt->_cookie = sc;
427 dt->_parent = pdt;
428 #define PCOPY(x) dt->x = pdt->x
429 PCOPY(_dmamap_create);
430 PCOPY(_dmamap_destroy);
431 dt->_dmamap_load = ebus_dmamap_load;
432 PCOPY(_dmamap_load_mbuf);
433 PCOPY(_dmamap_load_uio);
434 PCOPY(_dmamap_load_raw);
435 dt->_dmamap_unload = ebus_dmamap_unload;
436 dt->_dmamap_sync = ebus_dmamap_sync;
437 dt->_dmamem_alloc = ebus_dmamem_alloc;
438 dt->_dmamem_free = ebus_dmamem_free;
439 dt->_dmamem_map = ebus_dmamem_map;
440 dt->_dmamem_unmap = ebus_dmamem_unmap;
441 PCOPY(_dmamem_mmap);
442 #undef PCOPY
443 return (dt);
444 }
445
446 /*
447 * bus space support. <sparc64/dev/psychoreg.h> has a discussion
448 * about PCI physical addresses, which also applies to ebus.
449 */
450 static int
451 _ebus_bus_map(t, btype, offset, size, flags, vaddr, hp)
452 bus_space_tag_t t;
453 bus_type_t btype;
454 bus_addr_t offset;
455 bus_size_t size;
456 int flags;
457 vaddr_t vaddr;
458 bus_space_handle_t *hp;
459 {
460 struct ebus_softc *sc = t->cookie;
461 bus_addr_t hi, lo;
462 int i;
463
464 DPRINTF(EDB_BUSMAP, ("\n_ebus_bus_map: type %d off %016llx sz %x flags %d va %p", (int)t->type, (u_int64_t)offset, (int)size, (int)flags, vaddr));
465
466 hi = offset >> 32UL;
467 lo = offset & 0xffffffff;
468 DPRINTF(EDB_BUSMAP, (" (hi %08x lo %08x)", (u_int)hi, (u_int)lo));
469 for (i = 0; i < sc->sc_nrange; i++) {
470 bus_addr_t pciaddr;
471
472 if (hi != sc->sc_range[i].child_hi)
473 continue;
474 if (lo < sc->sc_range[i].child_lo ||
475 (lo + size) > (sc->sc_range[i].child_lo + sc->sc_range[i].size))
476 continue;
477
478 pciaddr = ((bus_addr_t)sc->sc_range[i].phys_mid << 32UL) |
479 sc->sc_range[i].phys_lo;
480 pciaddr += lo;
481 DPRINTF(EDB_BUSMAP, ("\n_ebus_bus_map: mapping paddr offset %qx pciaddr %qx\n",
482 offset, pciaddr));
483 /* pass it onto the psycho */
484 return (bus_space_map2(sc->sc_bustag, t->type, pciaddr,
485 size, flags, vaddr, hp));
486 }
487 DPRINTF(EDB_BUSMAP, (": FAILED\n"));
488 return (EINVAL);
489 }
490
491 static int
492 ebus_bus_mmap(t, btype, paddr, flags, hp)
493 bus_space_tag_t t;
494 bus_type_t btype;
495 bus_addr_t paddr;
496 int flags;
497 bus_space_handle_t *hp;
498 {
499 bus_addr_t offset = paddr;
500 struct ebus_softc *sc = t->cookie;
501 int i;
502
503 for (i = 0; i < sc->sc_nrange; i++) {
504 bus_addr_t paddr = ((bus_addr_t)sc->sc_range[i].child_hi << 32) |
505 sc->sc_range[i].child_lo;
506
507 if (offset != paddr)
508 continue;
509
510 DPRINTF(EDB_BUSMAP, ("\n_ebus_bus_mmap: mapping paddr %qx\n", paddr));
511 return (bus_space_mmap(sc->sc_bustag, 0, paddr,
512 flags, hp));
513 }
514
515 return (-1);
516 }
517
518 /*
519 * install an interrupt handler for a PCI device
520 */
521 void *
522 ebus_intr_establish(t, level, flags, handler, arg)
523 bus_space_tag_t t;
524 int level;
525 int flags;
526 int (*handler) __P((void *));
527 void *arg;
528 {
529 return (bus_intr_establish(t->parent, level, flags, handler, arg));
530 }
531
532 /*
533 * bus dma support
534 */
535 int
536 ebus_dmamap_load(t, map, buf, buflen, p, flags)
537 bus_dma_tag_t t;
538 bus_dmamap_t map;
539 void *buf;
540 bus_size_t buflen;
541 struct proc *p;
542 int flags;
543 {
544 struct ebus_softc *sc = t->_cookie;
545
546 return (iommu_dvmamap_load(t, &sc->sc_parent->sc_is, map, buf, buflen,
547 p, flags));
548 }
549
550 void
551 ebus_dmamap_unload(t, map)
552 bus_dma_tag_t t;
553 bus_dmamap_t map;
554 {
555 struct ebus_softc *sc = t->_cookie;
556
557 iommu_dvmamap_unload(t, &sc->sc_parent->sc_is, map);
558 }
559
560 void
561 ebus_dmamap_sync(t, map, offset, len, ops)
562 bus_dma_tag_t t;
563 bus_dmamap_t map;
564 bus_addr_t offset;
565 bus_size_t len;
566 int ops;
567 {
568 struct ebus_softc *sc = t->_cookie;
569
570 iommu_dvmamap_sync(t, &sc->sc_parent->sc_is, map, offset, len, ops);
571 bus_dmamap_sync(t->_parent, map, offset, len, ops);
572 }
573
574 int
575 ebus_dmamem_alloc(t, size, alignment, boundary, segs, nsegs, rsegs, flags)
576 bus_dma_tag_t t;
577 bus_size_t size;
578 bus_size_t alignment;
579 bus_size_t boundary;
580 bus_dma_segment_t *segs;
581 int nsegs;
582 int *rsegs;
583 int flags;
584 {
585 struct ebus_softc *sc = t->_cookie;
586
587 return (iommu_dvmamem_alloc(t, &sc->sc_parent->sc_is, size, alignment,
588 boundary, segs, nsegs, rsegs, flags));
589 }
590
591 void
592 ebus_dmamem_free(t, segs, nsegs)
593 bus_dma_tag_t t;
594 bus_dma_segment_t *segs;
595 int nsegs;
596 {
597 struct ebus_softc *sc = t->_cookie;
598
599 iommu_dvmamem_free(t, &sc->sc_parent->sc_is, segs, nsegs);
600 }
601
602 int
603 ebus_dmamem_map(t, segs, nsegs, size, kvap, flags)
604 bus_dma_tag_t t;
605 bus_dma_segment_t *segs;
606 int nsegs;
607 size_t size;
608 caddr_t *kvap;
609 int flags;
610 {
611 struct ebus_softc *sc = t->_cookie;
612
613 return (iommu_dvmamem_map(t, &sc->sc_parent->sc_is, segs, nsegs,
614 size, kvap, flags));
615 }
616
617 void
618 ebus_dmamem_unmap(t, kva, size)
619 bus_dma_tag_t t;
620 caddr_t kva;
621 size_t size;
622 {
623 struct ebus_softc *sc = t->_cookie;
624
625 iommu_dvmamem_unmap(t, &sc->sc_parent->sc_is, kva, size);
626 }
627