Merge with /home/shaggy/git/linus-clean/
[linux-2.6] / arch / sparc / kernel / ebus.c
1 /* $Id: ebus.c,v 1.20 2002/01/05 01:13:43 davem Exp $
2  * ebus.c: PCI to EBus bridge device.
3  *
4  * Copyright (C) 1997  Eddie C. Dost  (ecd@skynet.be)
5  *
6  * Adopted for sparc by V. Roganov and G. Raiko.
7  * Fixes for different platforms by Pete Zaitcev.
8  */
9
10 #include <linux/config.h>
11 #include <linux/kernel.h>
12 #include <linux/types.h>
13 #include <linux/init.h>
14 #include <linux/slab.h>
15 #include <linux/string.h>
16
17 #include <asm/system.h>
18 #include <asm/page.h>
19 #include <asm/pbm.h>
20 #include <asm/ebus.h>
21 #include <asm/io.h>
22 #include <asm/oplib.h>
23 #include <asm/bpp.h>
24
25 struct linux_ebus *ebus_chain = NULL;
26
27 /* We are together with pcic.c under CONFIG_PCI. */
28 extern unsigned int pcic_pin_to_irq(unsigned int, char *name);
29
30 /*
31  * IRQ Blacklist
32  * Here we list PROMs and systems that are known to supply crap as IRQ numbers.
33  */
34 struct ebus_device_irq {
35         char *name;
36         unsigned int pin;
37 };
38
39 struct ebus_system_entry {
40         char *esname;
41         struct ebus_device_irq *ipt;
42 };
43
44 static struct ebus_device_irq je1_1[] = {
45         { "8042",                3 },
46         { "SUNW,CS4231",         0 },
47         { "parallel",            0 },
48         { "se",                  2 },
49         { NULL, 0 }
50 };
51
52 /*
53  * Gleb's JE1 supplied reasonable pin numbers, but mine did not (OBP 2.32).
54  * Blacklist the sucker... Note that Gleb's system will work.
55  */
56 static struct ebus_system_entry ebus_blacklist[] = {
57         { "SUNW,JavaEngine1", je1_1 },
58         { NULL, NULL }
59 };
60
61 static struct ebus_device_irq *ebus_blackp = NULL;
62
63 /*
64  */
65 static inline unsigned long ebus_alloc(size_t size)
66 {
67         return (unsigned long)kmalloc(size, GFP_ATOMIC);
68 }
69
70 /*
71  */
72 int __init ebus_blacklist_irq(char *name)
73 {
74         struct ebus_device_irq *dp;
75
76         if ((dp = ebus_blackp) != NULL) {
77                 for (; dp->name != NULL; dp++) {
78                         if (strcmp(name, dp->name) == 0) {
79                                 return pcic_pin_to_irq(dp->pin, name);
80                         }
81                 }
82         }
83         return 0;
84 }
85
86 void __init fill_ebus_child(int node, struct linux_prom_registers *preg,
87                                 struct linux_ebus_child *dev)
88 {
89         int regs[PROMREG_MAX];
90         int irqs[PROMREG_MAX];
91         char lbuf[128];
92         int i, len;
93
94         dev->prom_node = node;
95         prom_getstring(node, "name", lbuf, sizeof(lbuf));
96         strcpy(dev->prom_name, lbuf);
97
98         len = prom_getproperty(node, "reg", (void *)regs, sizeof(regs));
99         if (len == -1) len = 0;
100         dev->num_addrs = len / sizeof(regs[0]);
101
102         for (i = 0; i < dev->num_addrs; i++) {
103                 if (regs[i] >= dev->parent->num_addrs) {
104                         prom_printf("UGH: property for %s was %d, need < %d\n",
105                                     dev->prom_name, len, dev->parent->num_addrs);
106                         panic(__FUNCTION__);
107                 }
108                 dev->resource[i].start = dev->parent->resource[regs[i]].start; /* XXX resource */
109         }
110
111         for (i = 0; i < PROMINTR_MAX; i++)
112                 dev->irqs[i] = PCI_IRQ_NONE;
113
114         if ((dev->irqs[0] = ebus_blacklist_irq(dev->prom_name)) != 0) {
115                 dev->num_irqs = 1;
116         } else if ((len = prom_getproperty(node, "interrupts",
117             (char *)&irqs, sizeof(irqs))) == -1 || len == 0) {
118                 dev->num_irqs = 0;
119                 dev->irqs[0] = 0;
120                 if (dev->parent->num_irqs != 0) {
121                         dev->num_irqs = 1;
122                         dev->irqs[0] = dev->parent->irqs[0];
123 /* P3 */ /* printk("EBUS: dev %s irq %d from parent\n", dev->prom_name, dev->irqs[0]); */
124                 }
125         } else {
126                 dev->num_irqs = len / sizeof(irqs[0]);
127                 if (irqs[0] == 0 || irqs[0] >= 8) {
128                         /*
129                          * XXX Zero is a valid pin number...
130                          * This works as long as Ebus is not wired to INTA#.
131                          */
132                         printk("EBUS: %s got bad irq %d from PROM\n",
133                             dev->prom_name, irqs[0]);
134                         dev->num_irqs = 0;
135                         dev->irqs[0] = 0;
136                 } else {
137                         dev->irqs[0] = pcic_pin_to_irq(irqs[0], dev->prom_name);
138                 }
139         }
140 }
141
142 void __init fill_ebus_device(int node, struct linux_ebus_device *dev)
143 {
144         struct linux_prom_registers regs[PROMREG_MAX];
145         struct linux_ebus_child *child;
146         int irqs[PROMINTR_MAX];
147         char lbuf[128];
148         int i, n, len;
149         unsigned long baseaddr;
150
151         dev->prom_node = node;
152         prom_getstring(node, "name", lbuf, sizeof(lbuf));
153         strcpy(dev->prom_name, lbuf);
154
155         len = prom_getproperty(node, "reg", (void *)regs, sizeof(regs));
156         if (len % sizeof(struct linux_prom_registers)) {
157                 prom_printf("UGH: proplen for %s was %d, need multiple of %d\n",
158                             dev->prom_name, len,
159                             (int)sizeof(struct linux_prom_registers));
160                 panic(__FUNCTION__);
161         }
162         dev->num_addrs = len / sizeof(struct linux_prom_registers);
163
164         for (i = 0; i < dev->num_addrs; i++) {
165                 /*
166                  * XXX Collect JE-1 PROM
167                  * 
168                  * Example - JS-E with 3.11:
169                  *  /ebus
170                  *      regs 
171                  *        0x00000000, 0x0, 0x00000000, 0x0, 0x00000000,
172                  *        0x82000010, 0x0, 0xf0000000, 0x0, 0x01000000,
173                  *        0x82000014, 0x0, 0x38800000, 0x0, 0x00800000,
174                  *      ranges
175                  *        0x00, 0x00000000, 0x02000010, 0x0, 0x0, 0x01000000,
176                  *        0x01, 0x01000000, 0x02000014, 0x0, 0x0, 0x00800000,
177                  *  /ebus/8042
178                  *      regs
179                  *        0x00000001, 0x00300060, 0x00000008,
180                  *        0x00000001, 0x00300060, 0x00000008,
181                  */
182                 n = regs[i].which_io;
183                 if (n >= 4) {
184                         /* XXX This is copied from old JE-1 by Gleb. */
185                         n = (regs[i].which_io - 0x10) >> 2;
186                 } else {
187                         ;
188                 }
189
190 /*
191  * XXX Now as we have regions, why don't we make an on-demand allocation...
192  */
193                 dev->resource[i].start = 0;
194                 if ((baseaddr = dev->bus->self->resource[n].start +
195                     regs[i].phys_addr) != 0) {
196                         /* dev->resource[i].name = dev->prom_name; */
197                         if ((baseaddr = (unsigned long) ioremap(baseaddr,
198                             regs[i].reg_size)) == 0) {
199                                 panic("ebus: unable to remap dev %s",
200                                     dev->prom_name);
201                         }
202                 }
203                 dev->resource[i].start = baseaddr;      /* XXX Unaligned */
204         }
205
206         for (i = 0; i < PROMINTR_MAX; i++)
207                 dev->irqs[i] = PCI_IRQ_NONE;
208
209         if ((dev->irqs[0] = ebus_blacklist_irq(dev->prom_name)) != 0) {
210                 dev->num_irqs = 1;
211         } else if ((len = prom_getproperty(node, "interrupts",
212             (char *)&irqs, sizeof(irqs))) == -1 || len == 0) {
213                 dev->num_irqs = 0;
214                 if ((dev->irqs[0] = dev->bus->self->irq) != 0) {
215                          dev->num_irqs = 1;
216 /* P3 */ /* printk("EBUS: child %s irq %d from parent\n", dev->prom_name, dev->irqs[0]); */
217                 }
218         } else {
219                 dev->num_irqs = 1;  /* dev->num_irqs = len / sizeof(irqs[0]); */
220                 if (irqs[0] == 0 || irqs[0] >= 8) {
221                         /* See above for the parent. XXX */
222                         printk("EBUS: %s got bad irq %d from PROM\n",
223                             dev->prom_name, irqs[0]);
224                         dev->num_irqs = 0;
225                         dev->irqs[0] = 0;
226                 } else {
227                         dev->irqs[0] = pcic_pin_to_irq(irqs[0], dev->prom_name);
228                 }
229         }
230
231         if ((node = prom_getchild(node))) {
232                 dev->children = (struct linux_ebus_child *)
233                         ebus_alloc(sizeof(struct linux_ebus_child));
234
235                 child = dev->children;
236                 child->next = NULL;
237                 child->parent = dev;
238                 child->bus = dev->bus;
239                 fill_ebus_child(node, &regs[0], child);
240
241                 while ((node = prom_getsibling(node)) != 0) {
242                         child->next = (struct linux_ebus_child *)
243                                 ebus_alloc(sizeof(struct linux_ebus_child));
244
245                         child = child->next;
246                         child->next = NULL;
247                         child->parent = dev;
248                         child->bus = dev->bus;
249                         fill_ebus_child(node, &regs[0], child);
250                 }
251         }
252 }
253
254 void __init ebus_init(void)
255 {
256         struct linux_prom_pci_registers regs[PROMREG_MAX];
257         struct linux_pbm_info *pbm;
258         struct linux_ebus_device *dev;
259         struct linux_ebus *ebus;
260         struct ebus_system_entry *sp;
261         struct pci_dev *pdev;
262         struct pcidev_cookie *cookie;
263         char lbuf[128];
264         unsigned long addr, *base;
265         unsigned short pci_command;
266         int nd, len, ebusnd;
267         int reg, nreg;
268         int num_ebus = 0;
269
270         prom_getstring(prom_root_node, "name", lbuf, sizeof(lbuf));
271         for (sp = ebus_blacklist; sp->esname != NULL; sp++) {
272                 if (strcmp(lbuf, sp->esname) == 0) {
273                         ebus_blackp = sp->ipt;
274                         break;
275                 }
276         }
277
278         pdev = pci_get_device(PCI_VENDOR_ID_SUN, PCI_DEVICE_ID_SUN_EBUS, NULL);
279         if (!pdev) {
280                 return;
281         }
282         cookie = pdev->sysdata;
283         ebusnd = cookie->prom_node;
284
285         ebus_chain = ebus = (struct linux_ebus *)
286                         ebus_alloc(sizeof(struct linux_ebus));
287         ebus->next = NULL;
288
289         while (ebusnd) {
290
291                 prom_getstring(ebusnd, "name", lbuf, sizeof(lbuf));
292                 ebus->prom_node = ebusnd;
293                 strcpy(ebus->prom_name, lbuf);
294                 ebus->self = pdev;
295                 ebus->parent = pbm = cookie->pbm;
296
297                 /* Enable BUS Master. */
298                 pci_read_config_word(pdev, PCI_COMMAND, &pci_command);
299                 pci_command |= PCI_COMMAND_MASTER;
300                 pci_write_config_word(pdev, PCI_COMMAND, pci_command);
301
302                 len = prom_getproperty(ebusnd, "reg", (void *)regs,
303                                        sizeof(regs));
304                 if (len == 0 || len == -1) {
305                         prom_printf("%s: can't find reg property\n",
306                                     __FUNCTION__);
307                         prom_halt();
308                 }
309                 nreg = len / sizeof(struct linux_prom_pci_registers);
310
311                 base = &ebus->self->resource[0].start;
312                 for (reg = 0; reg < nreg; reg++) {
313                         if (!(regs[reg].which_io & 0x03000000))
314                                 continue;
315
316                         addr = regs[reg].phys_lo;
317                         *base++ = addr;
318                 }
319
320                 nd = prom_getchild(ebusnd);
321                 if (!nd)
322                         goto next_ebus;
323
324                 ebus->devices = (struct linux_ebus_device *)
325                                 ebus_alloc(sizeof(struct linux_ebus_device));
326
327                 dev = ebus->devices;
328                 dev->next = NULL;
329                 dev->children = NULL;
330                 dev->bus = ebus;
331                 fill_ebus_device(nd, dev);
332
333                 while ((nd = prom_getsibling(nd)) != 0) {
334                         dev->next = (struct linux_ebus_device *)
335                                 ebus_alloc(sizeof(struct linux_ebus_device));
336
337                         dev = dev->next;
338                         dev->next = NULL;
339                         dev->children = NULL;
340                         dev->bus = ebus;
341                         fill_ebus_device(nd, dev);
342                 }
343
344         next_ebus:
345                 pdev = pci_get_device(PCI_VENDOR_ID_SUN,
346                                        PCI_DEVICE_ID_SUN_EBUS, pdev);
347                 if (!pdev)
348                         break;
349
350                 cookie = pdev->sysdata;
351                 ebusnd = cookie->prom_node;
352
353                 ebus->next = (struct linux_ebus *)
354                         ebus_alloc(sizeof(struct linux_ebus));
355                 ebus = ebus->next;
356                 ebus->next = NULL;
357                 ++num_ebus;
358         }
359         if (pdev)
360                 pci_dev_put(pdev);
361 }