1 /* $Id: ebus.c,v 1.64 2001/11/08 04:41:33 davem Exp $
2 * ebus.c: PCI to EBus bridge device.
4 * Copyright (C) 1997 Eddie C. Dost (ecd@skynet.be)
5 * Copyright (C) 1999 David S. Miller (davem@redhat.com)
8 #include <linux/config.h>
9 #include <linux/module.h>
10 #include <linux/kernel.h>
11 #include <linux/types.h>
12 #include <linux/init.h>
13 #include <linux/slab.h>
14 #include <linux/string.h>
15 #include <linux/interrupt.h>
16 #include <linux/delay.h>
18 #include <asm/system.h>
22 #include <asm/oplib.h>
26 /* EBUS dma library. */
28 #define EBDMA_CSR 0x00UL /* Control/Status */
29 #define EBDMA_ADDR 0x04UL /* DMA Address */
30 #define EBDMA_COUNT 0x08UL /* DMA Count */
32 #define EBDMA_CSR_INT_PEND 0x00000001
33 #define EBDMA_CSR_ERR_PEND 0x00000002
34 #define EBDMA_CSR_DRAIN 0x00000004
35 #define EBDMA_CSR_INT_EN 0x00000010
36 #define EBDMA_CSR_RESET 0x00000080
37 #define EBDMA_CSR_WRITE 0x00000100
38 #define EBDMA_CSR_EN_DMA 0x00000200
39 #define EBDMA_CSR_CYC_PEND 0x00000400
40 #define EBDMA_CSR_DIAG_RD_DONE 0x00000800
41 #define EBDMA_CSR_DIAG_WR_DONE 0x00001000
42 #define EBDMA_CSR_EN_CNT 0x00002000
43 #define EBDMA_CSR_TC 0x00004000
44 #define EBDMA_CSR_DIS_CSR_DRN 0x00010000
45 #define EBDMA_CSR_BURST_SZ_MASK 0x000c0000
46 #define EBDMA_CSR_BURST_SZ_1 0x00080000
47 #define EBDMA_CSR_BURST_SZ_4 0x00000000
48 #define EBDMA_CSR_BURST_SZ_8 0x00040000
49 #define EBDMA_CSR_BURST_SZ_16 0x000c0000
50 #define EBDMA_CSR_DIAG_EN 0x00100000
51 #define EBDMA_CSR_DIS_ERR_PEND 0x00400000
52 #define EBDMA_CSR_TCI_DIS 0x00800000
53 #define EBDMA_CSR_EN_NEXT 0x01000000
54 #define EBDMA_CSR_DMA_ON 0x02000000
55 #define EBDMA_CSR_A_LOADED 0x04000000
56 #define EBDMA_CSR_NA_LOADED 0x08000000
57 #define EBDMA_CSR_DEV_ID_MASK 0xf0000000
59 #define EBUS_DMA_RESET_TIMEOUT 10000
61 static void __ebus_dma_reset(struct ebus_dma_info
*p
, int no_drain
)
66 writel(EBDMA_CSR_RESET
, p
->regs
+ EBDMA_CSR
);
72 for (i
= EBUS_DMA_RESET_TIMEOUT
; i
> 0; i
--) {
73 val
= readl(p
->regs
+ EBDMA_CSR
);
75 if (!(val
& (EBDMA_CSR_DRAIN
| EBDMA_CSR_CYC_PEND
)))
81 static irqreturn_t
ebus_dma_irq(int irq
, void *dev_id
, struct pt_regs
*regs
)
83 struct ebus_dma_info
*p
= dev_id
;
87 spin_lock_irqsave(&p
->lock
, flags
);
88 csr
= readl(p
->regs
+ EBDMA_CSR
);
89 writel(csr
, p
->regs
+ EBDMA_CSR
);
90 spin_unlock_irqrestore(&p
->lock
, flags
);
92 if (csr
& EBDMA_CSR_ERR_PEND
) {
93 printk(KERN_CRIT
"ebus_dma(%s): DMA error!\n", p
->name
);
94 p
->callback(p
, EBUS_DMA_EVENT_ERROR
, p
->client_cookie
);
96 } else if (csr
& EBDMA_CSR_INT_PEND
) {
98 (csr
& EBDMA_CSR_TC
) ?
99 EBUS_DMA_EVENT_DMA
: EBUS_DMA_EVENT_DEVICE
,
108 int ebus_dma_register(struct ebus_dma_info
*p
)
114 if (p
->flags
& ~(EBUS_DMA_FLAG_USE_EBDMA_HANDLER
|
115 EBUS_DMA_FLAG_TCI_DISABLE
))
117 if ((p
->flags
& EBUS_DMA_FLAG_USE_EBDMA_HANDLER
) && !p
->callback
)
119 if (!strlen(p
->name
))
122 __ebus_dma_reset(p
, 1);
124 csr
= EBDMA_CSR_BURST_SZ_16
| EBDMA_CSR_EN_CNT
;
126 if (p
->flags
& EBUS_DMA_FLAG_TCI_DISABLE
)
127 csr
|= EBDMA_CSR_TCI_DIS
;
129 writel(csr
, p
->regs
+ EBDMA_CSR
);
133 EXPORT_SYMBOL(ebus_dma_register
);
135 int ebus_dma_irq_enable(struct ebus_dma_info
*p
, int on
)
141 if (p
->flags
& EBUS_DMA_FLAG_USE_EBDMA_HANDLER
) {
142 if (request_irq(p
->irq
, ebus_dma_irq
, SA_SHIRQ
, p
->name
, p
))
146 spin_lock_irqsave(&p
->lock
, flags
);
147 csr
= readl(p
->regs
+ EBDMA_CSR
);
148 csr
|= EBDMA_CSR_INT_EN
;
149 writel(csr
, p
->regs
+ EBDMA_CSR
);
150 spin_unlock_irqrestore(&p
->lock
, flags
);
152 spin_lock_irqsave(&p
->lock
, flags
);
153 csr
= readl(p
->regs
+ EBDMA_CSR
);
154 csr
&= ~EBDMA_CSR_INT_EN
;
155 writel(csr
, p
->regs
+ EBDMA_CSR
);
156 spin_unlock_irqrestore(&p
->lock
, flags
);
158 if (p
->flags
& EBUS_DMA_FLAG_USE_EBDMA_HANDLER
) {
165 EXPORT_SYMBOL(ebus_dma_irq_enable
);
167 void ebus_dma_unregister(struct ebus_dma_info
*p
)
173 spin_lock_irqsave(&p
->lock
, flags
);
174 csr
= readl(p
->regs
+ EBDMA_CSR
);
175 if (csr
& EBDMA_CSR_INT_EN
) {
176 csr
&= ~EBDMA_CSR_INT_EN
;
177 writel(csr
, p
->regs
+ EBDMA_CSR
);
180 spin_unlock_irqrestore(&p
->lock
, flags
);
185 EXPORT_SYMBOL(ebus_dma_unregister
);
187 int ebus_dma_request(struct ebus_dma_info
*p
, dma_addr_t bus_addr
, size_t len
)
193 if (len
>= (1 << 24))
196 spin_lock_irqsave(&p
->lock
, flags
);
197 csr
= readl(p
->regs
+ EBDMA_CSR
);
199 if (!(csr
& EBDMA_CSR_EN_DMA
))
202 if (csr
& EBDMA_CSR_NA_LOADED
)
205 writel(len
, p
->regs
+ EBDMA_COUNT
);
206 writel(bus_addr
, p
->regs
+ EBDMA_ADDR
);
210 spin_unlock_irqrestore(&p
->lock
, flags
);
214 EXPORT_SYMBOL(ebus_dma_request
);
216 void ebus_dma_prepare(struct ebus_dma_info
*p
, int write
)
221 spin_lock_irqsave(&p
->lock
, flags
);
222 __ebus_dma_reset(p
, 0);
224 csr
= (EBDMA_CSR_INT_EN
|
226 EBDMA_CSR_BURST_SZ_16
|
230 csr
|= EBDMA_CSR_WRITE
;
231 if (p
->flags
& EBUS_DMA_FLAG_TCI_DISABLE
)
232 csr
|= EBDMA_CSR_TCI_DIS
;
234 writel(csr
, p
->regs
+ EBDMA_CSR
);
236 spin_unlock_irqrestore(&p
->lock
, flags
);
238 EXPORT_SYMBOL(ebus_dma_prepare
);
240 unsigned int ebus_dma_residue(struct ebus_dma_info
*p
)
242 return readl(p
->regs
+ EBDMA_COUNT
);
244 EXPORT_SYMBOL(ebus_dma_residue
);
246 unsigned int ebus_dma_addr(struct ebus_dma_info
*p
)
248 return readl(p
->regs
+ EBDMA_ADDR
);
250 EXPORT_SYMBOL(ebus_dma_addr
);
252 void ebus_dma_enable(struct ebus_dma_info
*p
, int on
)
257 spin_lock_irqsave(&p
->lock
, flags
);
258 orig_csr
= csr
= readl(p
->regs
+ EBDMA_CSR
);
260 csr
|= EBDMA_CSR_EN_DMA
;
262 csr
&= ~EBDMA_CSR_EN_DMA
;
263 if ((orig_csr
& EBDMA_CSR_EN_DMA
) !=
264 (csr
& EBDMA_CSR_EN_DMA
))
265 writel(csr
, p
->regs
+ EBDMA_CSR
);
266 spin_unlock_irqrestore(&p
->lock
, flags
);
268 EXPORT_SYMBOL(ebus_dma_enable
);
270 struct linux_ebus
*ebus_chain
= NULL
;
272 #ifdef CONFIG_SUN_AUXIO
273 extern void auxio_probe(void);
276 static inline void *ebus_alloc(size_t size
)
280 mem
= kzalloc(size
, GFP_ATOMIC
);
282 panic("ebus_alloc: out of memory");
286 static void __init
ebus_ranges_init(struct linux_ebus
*ebus
)
290 ebus
->num_ebus_ranges
= 0;
291 success
= prom_getproperty(ebus
->prom_node
, "ranges",
292 (char *)ebus
->ebus_ranges
,
293 sizeof(ebus
->ebus_ranges
));
295 ebus
->num_ebus_ranges
= (success
/sizeof(struct linux_prom_ebus_ranges
));
298 static void __init
ebus_intmap_init(struct linux_ebus
*ebus
)
302 ebus
->num_ebus_intmap
= 0;
303 success
= prom_getproperty(ebus
->prom_node
, "interrupt-map",
304 (char *)ebus
->ebus_intmap
,
305 sizeof(ebus
->ebus_intmap
));
309 ebus
->num_ebus_intmap
= (success
/sizeof(struct linux_prom_ebus_intmap
));
311 success
= prom_getproperty(ebus
->prom_node
, "interrupt-map-mask",
312 (char *)&ebus
->ebus_intmask
,
313 sizeof(ebus
->ebus_intmask
));
315 prom_printf("%s: can't get interrupt-map-mask\n", __FUNCTION__
);
320 int __init
ebus_intmap_match(struct linux_ebus
*ebus
,
321 struct linux_prom_registers
*reg
,
324 unsigned int hi
, lo
, irq
;
327 if (!ebus
->num_ebus_intmap
)
330 hi
= reg
->which_io
& ebus
->ebus_intmask
.phys_hi
;
331 lo
= reg
->phys_addr
& ebus
->ebus_intmask
.phys_lo
;
332 irq
= *interrupt
& ebus
->ebus_intmask
.interrupt
;
333 for (i
= 0; i
< ebus
->num_ebus_intmap
; i
++) {
334 if ((ebus
->ebus_intmap
[i
].phys_hi
== hi
) &&
335 (ebus
->ebus_intmap
[i
].phys_lo
== lo
) &&
336 (ebus
->ebus_intmap
[i
].interrupt
== irq
)) {
337 *interrupt
= ebus
->ebus_intmap
[i
].cinterrupt
;
344 void __init
fill_ebus_child(int node
, struct linux_prom_registers
*preg
,
345 struct linux_ebus_child
*dev
, int non_standard_regs
)
347 int regs
[PROMREG_MAX
];
348 int irqs
[PROMREG_MAX
];
351 dev
->prom_node
= node
;
352 prom_getstring(node
, "name", dev
->prom_name
, sizeof(dev
->prom_name
));
353 printk(" (%s)", dev
->prom_name
);
355 len
= prom_getproperty(node
, "reg", (void *)regs
, sizeof(regs
));
356 dev
->num_addrs
= len
/ sizeof(regs
[0]);
358 if (non_standard_regs
) {
359 /* This is to handle reg properties which are not
360 * in the parent relative format. One example are
361 * children of the i2c device on CompactPCI systems.
363 * So, for such devices we just record the property
364 * raw in the child resources.
366 for (i
= 0; i
< dev
->num_addrs
; i
++)
367 dev
->resource
[i
].start
= regs
[i
];
369 for (i
= 0; i
< dev
->num_addrs
; i
++) {
371 if (rnum
>= dev
->parent
->num_addrs
) {
372 prom_printf("UGH: property for %s was %d, need < %d\n",
373 dev
->prom_name
, len
, dev
->parent
->num_addrs
);
376 dev
->resource
[i
].start
= dev
->parent
->resource
[i
].start
;
377 dev
->resource
[i
].end
= dev
->parent
->resource
[i
].end
;
378 dev
->resource
[i
].flags
= IORESOURCE_MEM
;
379 dev
->resource
[i
].name
= dev
->prom_name
;
383 for (i
= 0; i
< PROMINTR_MAX
; i
++)
384 dev
->irqs
[i
] = PCI_IRQ_NONE
;
386 len
= prom_getproperty(node
, "interrupts", (char *)&irqs
, sizeof(irqs
));
387 if ((len
== -1) || (len
== 0)) {
390 * Oh, well, some PROMs don't export interrupts
391 * property to children of EBus devices...
393 * Be smart about PS/2 keyboard and mouse.
395 if (!strcmp(dev
->parent
->prom_name
, "8042")) {
396 if (!strcmp(dev
->prom_name
, "kb_ps2")) {
398 dev
->irqs
[0] = dev
->parent
->irqs
[0];
401 dev
->irqs
[0] = dev
->parent
->irqs
[1];
405 dev
->num_irqs
= len
/ sizeof(irqs
[0]);
406 for (i
= 0; i
< dev
->num_irqs
; i
++) {
407 struct pci_pbm_info
*pbm
= dev
->bus
->parent
;
408 struct pci_controller_info
*p
= pbm
->parent
;
410 if (ebus_intmap_match(dev
->bus
, preg
, &irqs
[i
]) != -1) {
411 dev
->irqs
[i
] = p
->irq_build(pbm
,
415 /* If we get a bogus interrupt property, just
416 * record the raw value instead of punting.
418 dev
->irqs
[i
] = irqs
[i
];
424 static int __init
child_regs_nonstandard(struct linux_ebus_device
*dev
)
426 if (!strcmp(dev
->prom_name
, "i2c") ||
427 !strcmp(dev
->prom_name
, "SUNW,lombus"))
432 void __init
fill_ebus_device(int node
, struct linux_ebus_device
*dev
)
434 struct linux_prom_registers regs
[PROMREG_MAX
];
435 struct linux_ebus_child
*child
;
436 int irqs
[PROMINTR_MAX
];
439 dev
->prom_node
= node
;
440 prom_getstring(node
, "name", dev
->prom_name
, sizeof(dev
->prom_name
));
441 printk(" [%s", dev
->prom_name
);
443 len
= prom_getproperty(node
, "reg", (void *)regs
, sizeof(regs
));
446 goto probe_interrupts
;
449 if (len
% sizeof(struct linux_prom_registers
)) {
450 prom_printf("UGH: proplen for %s was %d, need multiple of %d\n",
452 (int)sizeof(struct linux_prom_registers
));
455 dev
->num_addrs
= len
/ sizeof(struct linux_prom_registers
);
457 for (i
= 0; i
< dev
->num_addrs
; i
++) {
458 /* XXX Learn how to interpret ebus ranges... -DaveM */
459 if (regs
[i
].which_io
>= 0x10)
460 n
= (regs
[i
].which_io
- 0x10) >> 2;
462 n
= regs
[i
].which_io
;
464 dev
->resource
[i
].start
= dev
->bus
->self
->resource
[n
].start
;
465 dev
->resource
[i
].start
+= (unsigned long)regs
[i
].phys_addr
;
466 dev
->resource
[i
].end
=
467 (dev
->resource
[i
].start
+ (unsigned long)regs
[i
].reg_size
- 1UL);
468 dev
->resource
[i
].flags
= IORESOURCE_MEM
;
469 dev
->resource
[i
].name
= dev
->prom_name
;
470 request_resource(&dev
->bus
->self
->resource
[n
],
475 for (i
= 0; i
< PROMINTR_MAX
; i
++)
476 dev
->irqs
[i
] = PCI_IRQ_NONE
;
478 len
= prom_getproperty(node
, "interrupts", (char *)&irqs
, sizeof(irqs
));
479 if ((len
== -1) || (len
== 0)) {
482 dev
->num_irqs
= len
/ sizeof(irqs
[0]);
483 for (i
= 0; i
< dev
->num_irqs
; i
++) {
484 struct pci_pbm_info
*pbm
= dev
->bus
->parent
;
485 struct pci_controller_info
*p
= pbm
->parent
;
487 if (ebus_intmap_match(dev
->bus
, ®s
[0], &irqs
[i
]) != -1) {
488 dev
->irqs
[i
] = p
->irq_build(pbm
,
492 /* If we get a bogus interrupt property, just
493 * record the raw value instead of punting.
495 dev
->irqs
[i
] = irqs
[i
];
500 if ((node
= prom_getchild(node
))) {
502 dev
->children
= ebus_alloc(sizeof(struct linux_ebus_child
));
504 child
= dev
->children
;
507 child
->bus
= dev
->bus
;
508 fill_ebus_child(node
, ®s
[0],
509 child
, child_regs_nonstandard(dev
));
511 while ((node
= prom_getsibling(node
)) != 0) {
512 child
->next
= ebus_alloc(sizeof(struct linux_ebus_child
));
517 child
->bus
= dev
->bus
;
518 fill_ebus_child(node
, ®s
[0],
519 child
, child_regs_nonstandard(dev
));
525 static struct pci_dev
*find_next_ebus(struct pci_dev
*start
, int *is_rio_p
)
527 struct pci_dev
*pdev
= start
;
529 while ((pdev
= pci_get_device(PCI_VENDOR_ID_SUN
, PCI_ANY_ID
, pdev
)))
530 if (pdev
->device
== PCI_DEVICE_ID_SUN_EBUS
||
531 pdev
->device
== PCI_DEVICE_ID_SUN_RIO_EBUS
)
534 *is_rio_p
= !!(pdev
&& (pdev
->device
== PCI_DEVICE_ID_SUN_RIO_EBUS
));
539 void __init
ebus_init(void)
541 struct pci_pbm_info
*pbm
;
542 struct linux_ebus_device
*dev
;
543 struct linux_ebus
*ebus
;
544 struct pci_dev
*pdev
;
545 struct pcidev_cookie
*cookie
;
546 int nd
, ebusnd
, is_rio
;
549 pdev
= find_next_ebus(NULL
, &is_rio
);
551 printk("ebus: No EBus's found.\n");
555 cookie
= pdev
->sysdata
;
556 ebusnd
= cookie
->prom_node
;
558 ebus_chain
= ebus
= ebus_alloc(sizeof(struct linux_ebus
));
560 ebus
->is_rio
= is_rio
;
563 /* SUNW,pci-qfe uses four empty ebuses on it.
564 I think we should not consider them here,
565 as they have half of the properties this
566 code expects and once we do PCI hot-plug,
567 we'd have to tweak with the ebus_chain
568 in the runtime after initialization. -jj */
569 if (!prom_getchild (ebusnd
)) {
570 pdev
= find_next_ebus(pdev
, &is_rio
);
572 if (ebus
== ebus_chain
) {
574 printk("ebus: No EBus's found.\n");
579 ebus
->is_rio
= is_rio
;
580 cookie
= pdev
->sysdata
;
581 ebusnd
= cookie
->prom_node
;
584 printk("ebus%d:", num_ebus
);
586 prom_getstring(ebusnd
, "name", ebus
->prom_name
, sizeof(ebus
->prom_name
));
587 ebus
->index
= num_ebus
;
588 ebus
->prom_node
= ebusnd
;
590 ebus
->parent
= pbm
= cookie
->pbm
;
592 ebus_ranges_init(ebus
);
593 ebus_intmap_init(ebus
);
595 nd
= prom_getchild(ebusnd
);
599 ebus
->devices
= ebus_alloc(sizeof(struct linux_ebus_device
));
603 dev
->children
= NULL
;
605 fill_ebus_device(nd
, dev
);
607 while ((nd
= prom_getsibling(nd
)) != 0) {
608 dev
->next
= ebus_alloc(sizeof(struct linux_ebus_device
));
612 dev
->children
= NULL
;
614 fill_ebus_device(nd
, dev
);
620 pdev
= find_next_ebus(pdev
, &is_rio
);
624 cookie
= pdev
->sysdata
;
625 ebusnd
= cookie
->prom_node
;
627 ebus
->next
= ebus_alloc(sizeof(struct linux_ebus
));
630 ebus
->is_rio
= is_rio
;
633 pci_dev_put(pdev
); /* XXX for the case, when ebusnd is 0, is it OK? */
635 #ifdef CONFIG_SUN_AUXIO