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
= kmalloc(size
, GFP_ATOMIC
);
282 panic("ebus_alloc: out of memory");
283 memset((char *)mem
, 0, size
);
287 static void __init
ebus_ranges_init(struct linux_ebus
*ebus
)
291 ebus
->num_ebus_ranges
= 0;
292 success
= prom_getproperty(ebus
->prom_node
, "ranges",
293 (char *)ebus
->ebus_ranges
,
294 sizeof(ebus
->ebus_ranges
));
296 ebus
->num_ebus_ranges
= (success
/sizeof(struct linux_prom_ebus_ranges
));
299 static void __init
ebus_intmap_init(struct linux_ebus
*ebus
)
303 ebus
->num_ebus_intmap
= 0;
304 success
= prom_getproperty(ebus
->prom_node
, "interrupt-map",
305 (char *)ebus
->ebus_intmap
,
306 sizeof(ebus
->ebus_intmap
));
310 ebus
->num_ebus_intmap
= (success
/sizeof(struct linux_prom_ebus_intmap
));
312 success
= prom_getproperty(ebus
->prom_node
, "interrupt-map-mask",
313 (char *)&ebus
->ebus_intmask
,
314 sizeof(ebus
->ebus_intmask
));
316 prom_printf("%s: can't get interrupt-map-mask\n", __FUNCTION__
);
321 int __init
ebus_intmap_match(struct linux_ebus
*ebus
,
322 struct linux_prom_registers
*reg
,
325 unsigned int hi
, lo
, irq
;
328 if (!ebus
->num_ebus_intmap
)
331 hi
= reg
->which_io
& ebus
->ebus_intmask
.phys_hi
;
332 lo
= reg
->phys_addr
& ebus
->ebus_intmask
.phys_lo
;
333 irq
= *interrupt
& ebus
->ebus_intmask
.interrupt
;
334 for (i
= 0; i
< ebus
->num_ebus_intmap
; i
++) {
335 if ((ebus
->ebus_intmap
[i
].phys_hi
== hi
) &&
336 (ebus
->ebus_intmap
[i
].phys_lo
== lo
) &&
337 (ebus
->ebus_intmap
[i
].interrupt
== irq
)) {
338 *interrupt
= ebus
->ebus_intmap
[i
].cinterrupt
;
345 void __init
fill_ebus_child(int node
, struct linux_prom_registers
*preg
,
346 struct linux_ebus_child
*dev
, int non_standard_regs
)
348 int regs
[PROMREG_MAX
];
349 int irqs
[PROMREG_MAX
];
352 dev
->prom_node
= node
;
353 prom_getstring(node
, "name", dev
->prom_name
, sizeof(dev
->prom_name
));
354 printk(" (%s)", dev
->prom_name
);
356 len
= prom_getproperty(node
, "reg", (void *)regs
, sizeof(regs
));
357 dev
->num_addrs
= len
/ sizeof(regs
[0]);
359 if (non_standard_regs
) {
360 /* This is to handle reg properties which are not
361 * in the parent relative format. One example are
362 * children of the i2c device on CompactPCI systems.
364 * So, for such devices we just record the property
365 * raw in the child resources.
367 for (i
= 0; i
< dev
->num_addrs
; i
++)
368 dev
->resource
[i
].start
= regs
[i
];
370 for (i
= 0; i
< dev
->num_addrs
; i
++) {
372 if (rnum
>= dev
->parent
->num_addrs
) {
373 prom_printf("UGH: property for %s was %d, need < %d\n",
374 dev
->prom_name
, len
, dev
->parent
->num_addrs
);
377 dev
->resource
[i
].start
= dev
->parent
->resource
[i
].start
;
378 dev
->resource
[i
].end
= dev
->parent
->resource
[i
].end
;
379 dev
->resource
[i
].flags
= IORESOURCE_MEM
;
380 dev
->resource
[i
].name
= dev
->prom_name
;
384 for (i
= 0; i
< PROMINTR_MAX
; i
++)
385 dev
->irqs
[i
] = PCI_IRQ_NONE
;
387 len
= prom_getproperty(node
, "interrupts", (char *)&irqs
, sizeof(irqs
));
388 if ((len
== -1) || (len
== 0)) {
391 * Oh, well, some PROMs don't export interrupts
392 * property to children of EBus devices...
394 * Be smart about PS/2 keyboard and mouse.
396 if (!strcmp(dev
->parent
->prom_name
, "8042")) {
397 if (!strcmp(dev
->prom_name
, "kb_ps2")) {
399 dev
->irqs
[0] = dev
->parent
->irqs
[0];
402 dev
->irqs
[0] = dev
->parent
->irqs
[1];
406 dev
->num_irqs
= len
/ sizeof(irqs
[0]);
407 for (i
= 0; i
< dev
->num_irqs
; i
++) {
408 struct pci_pbm_info
*pbm
= dev
->bus
->parent
;
409 struct pci_controller_info
*p
= pbm
->parent
;
411 if (ebus_intmap_match(dev
->bus
, preg
, &irqs
[i
]) != -1) {
412 dev
->irqs
[i
] = p
->irq_build(pbm
,
416 /* If we get a bogus interrupt property, just
417 * record the raw value instead of punting.
419 dev
->irqs
[i
] = irqs
[i
];
425 static int __init
child_regs_nonstandard(struct linux_ebus_device
*dev
)
427 if (!strcmp(dev
->prom_name
, "i2c") ||
428 !strcmp(dev
->prom_name
, "SUNW,lombus"))
433 void __init
fill_ebus_device(int node
, struct linux_ebus_device
*dev
)
435 struct linux_prom_registers regs
[PROMREG_MAX
];
436 struct linux_ebus_child
*child
;
437 int irqs
[PROMINTR_MAX
];
440 dev
->prom_node
= node
;
441 prom_getstring(node
, "name", dev
->prom_name
, sizeof(dev
->prom_name
));
442 printk(" [%s", dev
->prom_name
);
444 len
= prom_getproperty(node
, "reg", (void *)regs
, sizeof(regs
));
447 goto probe_interrupts
;
450 if (len
% sizeof(struct linux_prom_registers
)) {
451 prom_printf("UGH: proplen for %s was %d, need multiple of %d\n",
453 (int)sizeof(struct linux_prom_registers
));
456 dev
->num_addrs
= len
/ sizeof(struct linux_prom_registers
);
458 for (i
= 0; i
< dev
->num_addrs
; i
++) {
459 /* XXX Learn how to interpret ebus ranges... -DaveM */
460 if (regs
[i
].which_io
>= 0x10)
461 n
= (regs
[i
].which_io
- 0x10) >> 2;
463 n
= regs
[i
].which_io
;
465 dev
->resource
[i
].start
= dev
->bus
->self
->resource
[n
].start
;
466 dev
->resource
[i
].start
+= (unsigned long)regs
[i
].phys_addr
;
467 dev
->resource
[i
].end
=
468 (dev
->resource
[i
].start
+ (unsigned long)regs
[i
].reg_size
- 1UL);
469 dev
->resource
[i
].flags
= IORESOURCE_MEM
;
470 dev
->resource
[i
].name
= dev
->prom_name
;
471 request_resource(&dev
->bus
->self
->resource
[n
],
476 for (i
= 0; i
< PROMINTR_MAX
; i
++)
477 dev
->irqs
[i
] = PCI_IRQ_NONE
;
479 len
= prom_getproperty(node
, "interrupts", (char *)&irqs
, sizeof(irqs
));
480 if ((len
== -1) || (len
== 0)) {
483 dev
->num_irqs
= len
/ sizeof(irqs
[0]);
484 for (i
= 0; i
< dev
->num_irqs
; i
++) {
485 struct pci_pbm_info
*pbm
= dev
->bus
->parent
;
486 struct pci_controller_info
*p
= pbm
->parent
;
488 if (ebus_intmap_match(dev
->bus
, ®s
[0], &irqs
[i
]) != -1) {
489 dev
->irqs
[i
] = p
->irq_build(pbm
,
493 /* If we get a bogus interrupt property, just
494 * record the raw value instead of punting.
496 dev
->irqs
[i
] = irqs
[i
];
501 if ((node
= prom_getchild(node
))) {
503 dev
->children
= ebus_alloc(sizeof(struct linux_ebus_child
));
505 child
= dev
->children
;
508 child
->bus
= dev
->bus
;
509 fill_ebus_child(node
, ®s
[0],
510 child
, child_regs_nonstandard(dev
));
512 while ((node
= prom_getsibling(node
)) != 0) {
513 child
->next
= ebus_alloc(sizeof(struct linux_ebus_child
));
518 child
->bus
= dev
->bus
;
519 fill_ebus_child(node
, ®s
[0],
520 child
, child_regs_nonstandard(dev
));
526 static struct pci_dev
*find_next_ebus(struct pci_dev
*start
, int *is_rio_p
)
528 struct pci_dev
*pdev
= start
;
531 pdev
= pci_find_device(PCI_VENDOR_ID_SUN
, PCI_ANY_ID
, pdev
);
533 (pdev
->device
== PCI_DEVICE_ID_SUN_EBUS
||
534 pdev
->device
== PCI_DEVICE_ID_SUN_RIO_EBUS
))
536 } while (pdev
!= NULL
);
538 if (pdev
&& (pdev
->device
== PCI_DEVICE_ID_SUN_RIO_EBUS
))
546 void __init
ebus_init(void)
548 struct pci_pbm_info
*pbm
;
549 struct linux_ebus_device
*dev
;
550 struct linux_ebus
*ebus
;
551 struct pci_dev
*pdev
;
552 struct pcidev_cookie
*cookie
;
553 int nd
, ebusnd
, is_rio
;
556 pdev
= find_next_ebus(NULL
, &is_rio
);
558 printk("ebus: No EBus's found.\n");
562 cookie
= pdev
->sysdata
;
563 ebusnd
= cookie
->prom_node
;
565 ebus_chain
= ebus
= ebus_alloc(sizeof(struct linux_ebus
));
567 ebus
->is_rio
= is_rio
;
570 /* SUNW,pci-qfe uses four empty ebuses on it.
571 I think we should not consider them here,
572 as they have half of the properties this
573 code expects and once we do PCI hot-plug,
574 we'd have to tweak with the ebus_chain
575 in the runtime after initialization. -jj */
576 if (!prom_getchild (ebusnd
)) {
577 pdev
= find_next_ebus(pdev
, &is_rio
);
579 if (ebus
== ebus_chain
) {
581 printk("ebus: No EBus's found.\n");
586 ebus
->is_rio
= is_rio
;
587 cookie
= pdev
->sysdata
;
588 ebusnd
= cookie
->prom_node
;
591 printk("ebus%d:", num_ebus
);
593 prom_getstring(ebusnd
, "name", ebus
->prom_name
, sizeof(ebus
->prom_name
));
594 ebus
->index
= num_ebus
;
595 ebus
->prom_node
= ebusnd
;
597 ebus
->parent
= pbm
= cookie
->pbm
;
599 ebus_ranges_init(ebus
);
600 ebus_intmap_init(ebus
);
602 nd
= prom_getchild(ebusnd
);
606 ebus
->devices
= ebus_alloc(sizeof(struct linux_ebus_device
));
610 dev
->children
= NULL
;
612 fill_ebus_device(nd
, dev
);
614 while ((nd
= prom_getsibling(nd
)) != 0) {
615 dev
->next
= ebus_alloc(sizeof(struct linux_ebus_device
));
619 dev
->children
= NULL
;
621 fill_ebus_device(nd
, dev
);
627 pdev
= find_next_ebus(pdev
, &is_rio
);
631 cookie
= pdev
->sysdata
;
632 ebusnd
= cookie
->prom_node
;
634 ebus
->next
= ebus_alloc(sizeof(struct linux_ebus
));
637 ebus
->is_rio
= is_rio
;
641 #ifdef CONFIG_SUN_AUXIO