Merge branches 'release', 'bugzilla-8570', 'bugzilla-9966', 'bugzilla-9998', 'bugzill...
[linux-2.6] / arch / m68k / kernel / bios32.c
1 /*
2  * bios32.c - PCI BIOS functions for m68k systems.
3  *
4  * Written by Wout Klaren.
5  *
6  * Based on the DEC Alpha bios32.c by Dave Rusling and David Mosberger.
7  */
8
9 #include <linux/init.h>
10 #include <linux/kernel.h>
11
12 #if 0
13 # define DBG_DEVS(args)         printk args
14 #else
15 # define DBG_DEVS(args)
16 #endif
17
18 #ifdef CONFIG_PCI
19
20 /*
21  * PCI support for Linux/m68k. Currently only the Hades is supported.
22  *
23  * The support for PCI bridges in the DEC Alpha version has
24  * been removed in this version.
25  */
26
27 #include <linux/pci.h>
28 #include <linux/slab.h>
29 #include <linux/mm.h>
30
31 #include <asm/io.h>
32 #include <asm/pci.h>
33 #include <asm/uaccess.h>
34
35 #define KB              1024
36 #define MB              (1024*KB)
37 #define GB              (1024*MB)
38
39 #define MAJOR_REV       0
40 #define MINOR_REV       5
41
42 /*
43  * Align VAL to ALIGN, which must be a power of two.
44  */
45
46 #define ALIGN(val,align)        (((val) + ((align) - 1)) & ~((align) - 1))
47
48 /*
49  * Offsets relative to the I/O and memory base addresses from where resources
50  * are allocated.
51  */
52
53 #define IO_ALLOC_OFFSET         0x00004000
54 #define MEM_ALLOC_OFFSET        0x04000000
55
56 /*
57  * Declarations of hardware specific initialisation functions.
58  */
59
60 extern struct pci_bus_info *init_hades_pci(void);
61
62 /*
63  * Bus info structure of the PCI bus. A pointer to this structure is
64  * put in the sysdata member of the pci_bus structure.
65  */
66
67 static struct pci_bus_info *bus_info;
68
69 static int pci_modify = 1;              /* If set, layout the PCI bus ourself. */
70 static int skip_vga;                    /* If set do not modify base addresses
71                                            of vga cards.*/
72 static int disable_pci_burst;           /* If set do not allow PCI bursts. */
73
74 static unsigned int io_base;
75 static unsigned int mem_base;
76
77 /*
78  * static void disable_dev(struct pci_dev *dev)
79  *
80  * Disable PCI device DEV so that it does not respond to I/O or memory
81  * accesses.
82  *
83  * Parameters:
84  *
85  * dev  - device to disable.
86  */
87
88 static void __init disable_dev(struct pci_dev *dev)
89 {
90         unsigned short cmd;
91
92         if (((dev->class >> 8 == PCI_CLASS_NOT_DEFINED_VGA) ||
93              (dev->class >> 8 == PCI_CLASS_DISPLAY_VGA) ||
94              (dev->class >> 8 == PCI_CLASS_DISPLAY_XGA)) && skip_vga)
95                 return;
96
97         pci_read_config_word(dev, PCI_COMMAND, &cmd);
98
99         cmd &= (~PCI_COMMAND_IO & ~PCI_COMMAND_MEMORY & ~PCI_COMMAND_MASTER);
100         pci_write_config_word(dev, PCI_COMMAND, cmd);
101 }
102
103 /*
104  * static void layout_dev(struct pci_dev *dev)
105  *
106  * Layout memory and I/O for a device.
107  *
108  * Parameters:
109  *
110  * device       - device to layout memory and I/O for.
111  */
112
113 static void __init layout_dev(struct pci_dev *dev)
114 {
115         unsigned short cmd;
116         unsigned int base, mask, size, reg;
117         unsigned int alignto;
118         int i;
119
120         /*
121          * Skip video cards if requested.
122          */
123
124         if (((dev->class >> 8 == PCI_CLASS_NOT_DEFINED_VGA) ||
125              (dev->class >> 8 == PCI_CLASS_DISPLAY_VGA) ||
126              (dev->class >> 8 == PCI_CLASS_DISPLAY_XGA)) && skip_vga)
127                 return;
128
129         pci_read_config_word(dev, PCI_COMMAND, &cmd);
130
131         for (reg = PCI_BASE_ADDRESS_0, i = 0; reg <= PCI_BASE_ADDRESS_5; reg += 4, i++)
132         {
133                 /*
134                  * Figure out how much space and of what type this
135                  * device wants.
136                  */
137
138                 pci_write_config_dword(dev, reg, 0xffffffff);
139                 pci_read_config_dword(dev, reg, &base);
140
141                 if (!base)
142                 {
143                         /* this base-address register is unused */
144                         dev->resource[i].start = 0;
145                         dev->resource[i].end = 0;
146                         dev->resource[i].flags = 0;
147                         continue;
148                 }
149
150                 /*
151                  * We've read the base address register back after
152                  * writing all ones and so now we must decode it.
153                  */
154
155                 if (base & PCI_BASE_ADDRESS_SPACE_IO)
156                 {
157                         /*
158                          * I/O space base address register.
159                          */
160
161                         cmd |= PCI_COMMAND_IO;
162
163                         base &= PCI_BASE_ADDRESS_IO_MASK;
164                         mask = (~base << 1) | 0x1;
165                         size = (mask & base) & 0xffffffff;
166
167                         /*
168                          * Align to multiple of size of minimum base.
169                          */
170
171                         alignto = max_t(unsigned int, 0x040, size);
172                         base = ALIGN(io_base, alignto);
173                         io_base = base + size;
174                         pci_write_config_dword(dev, reg, base | PCI_BASE_ADDRESS_SPACE_IO);
175
176                         dev->resource[i].start = base;
177                         dev->resource[i].end = dev->resource[i].start + size - 1;
178                         dev->resource[i].flags = IORESOURCE_IO | PCI_BASE_ADDRESS_SPACE_IO;
179
180                         DBG_DEVS(("layout_dev: IO address: %lX\n", base));
181                 }
182                 else
183                 {
184                         unsigned int type;
185
186                         /*
187                          * Memory space base address register.
188                          */
189
190                         cmd |= PCI_COMMAND_MEMORY;
191                         type = base & PCI_BASE_ADDRESS_MEM_TYPE_MASK;
192                         base &= PCI_BASE_ADDRESS_MEM_MASK;
193                         mask = (~base << 1) | 0x1;
194                         size = (mask & base) & 0xffffffff;
195                         switch (type)
196                         {
197                         case PCI_BASE_ADDRESS_MEM_TYPE_32:
198                         case PCI_BASE_ADDRESS_MEM_TYPE_64:
199                                 break;
200
201                         case PCI_BASE_ADDRESS_MEM_TYPE_1M:
202                                 printk("bios32 WARNING: slot %d, function %d "
203                                        "requests memory below 1MB---don't "
204                                        "know how to do that.\n",
205                                        PCI_SLOT(dev->devfn),
206                                        PCI_FUNC(dev->devfn));
207                                 continue;
208                         }
209
210                         /*
211                          * Align to multiple of size of minimum base.
212                          */
213
214                         alignto = max_t(unsigned int, 0x1000, size);
215                         base = ALIGN(mem_base, alignto);
216                         mem_base = base + size;
217                         pci_write_config_dword(dev, reg, base);
218
219                         dev->resource[i].start = base;
220                         dev->resource[i].end = dev->resource[i].start + size - 1;
221                         dev->resource[i].flags = IORESOURCE_MEM;
222
223                         if (type == PCI_BASE_ADDRESS_MEM_TYPE_64)
224                         {
225                                 /*
226                                  * 64-bit address, set the highest 32 bits
227                                  * to zero.
228                                  */
229
230                                 reg += 4;
231                                 pci_write_config_dword(dev, reg, 0);
232
233                                 i++;
234                                 dev->resource[i].start = 0;
235                                 dev->resource[i].end = 0;
236                                 dev->resource[i].flags = 0;
237                         }
238                 }
239         }
240
241         /*
242          * Enable device:
243          */
244
245         if (dev->class >> 8 == PCI_CLASS_NOT_DEFINED ||
246             dev->class >> 8 == PCI_CLASS_NOT_DEFINED_VGA ||
247             dev->class >> 8 == PCI_CLASS_DISPLAY_VGA ||
248             dev->class >> 8 == PCI_CLASS_DISPLAY_XGA)
249         {
250                 /*
251                  * All of these (may) have I/O scattered all around
252                  * and may not use i/o-base address registers at all.
253                  * So we just have to always enable I/O to these
254                  * devices.
255                  */
256                 cmd |= PCI_COMMAND_IO;
257         }
258
259         pci_write_config_word(dev, PCI_COMMAND, cmd | PCI_COMMAND_MASTER);
260
261         pci_write_config_byte(dev, PCI_LATENCY_TIMER, (disable_pci_burst) ? 0 : 32);
262
263         if (bus_info != NULL)
264                 bus_info->conf_device(dev);     /* Machine dependent configuration. */
265
266         DBG_DEVS(("layout_dev: bus %d  slot 0x%x  VID 0x%x  DID 0x%x  class 0x%x\n",
267                   dev->bus->number, PCI_SLOT(dev->devfn), dev->vendor, dev->device, dev->class));
268 }
269
270 /*
271  * static void layout_bus(struct pci_bus *bus)
272  *
273  * Layout memory and I/O for all devices on the given bus.
274  *
275  * Parameters:
276  *
277  * bus  - bus.
278  */
279
280 static void __init layout_bus(struct pci_bus *bus)
281 {
282         unsigned int bio, bmem;
283         struct pci_dev *dev;
284
285         DBG_DEVS(("layout_bus: starting bus %d\n", bus->number));
286
287         if (!bus->devices && !bus->children)
288                 return;
289
290         /*
291          * Align the current bases on appropriate boundaries (4K for
292          * IO and 1MB for memory).
293          */
294
295         bio = io_base = ALIGN(io_base, 4*KB);
296         bmem = mem_base = ALIGN(mem_base, 1*MB);
297
298         /*
299          * PCI devices might have been setup by a PCI BIOS emulation
300          * running under TOS. In these cases there is a
301          * window during which two devices may have an overlapping
302          * address range. To avoid this causing trouble, we first
303          * turn off the I/O and memory address decoders for all PCI
304          * devices.  They'll be re-enabled only once all address
305          * decoders are programmed consistently.
306          */
307
308         DBG_DEVS(("layout_bus: disable_dev for bus %d\n", bus->number));
309
310         for (dev = bus->devices; dev; dev = dev->sibling)
311         {
312                 if ((dev->class >> 16 != PCI_BASE_CLASS_BRIDGE) ||
313                     (dev->class >> 8 == PCI_CLASS_BRIDGE_PCMCIA))
314                         disable_dev(dev);
315         }
316
317         /*
318          * Allocate space to each device:
319          */
320
321         DBG_DEVS(("layout_bus: starting bus %d devices\n", bus->number));
322
323         for (dev = bus->devices; dev; dev = dev->sibling)
324         {
325                 if ((dev->class >> 16 != PCI_BASE_CLASS_BRIDGE) ||
326                     (dev->class >> 8 == PCI_CLASS_BRIDGE_PCMCIA))
327                         layout_dev(dev);
328         }
329
330         DBG_DEVS(("layout_bus: bus %d finished\n", bus->number));
331 }
332
333 /*
334  * static void pcibios_fixup(void)
335  *
336  * Layout memory and I/O of all devices on the PCI bus if 'pci_modify' is
337  * true. This might be necessary because not every m68k machine with a PCI
338  * bus has a PCI BIOS. This function should be called right after
339  * pci_scan_bus() in pcibios_init().
340  */
341
342 static void __init pcibios_fixup(void)
343 {
344         if (pci_modify)
345         {
346                 /*
347                  * Set base addresses for allocation of I/O and memory space.
348                  */
349
350                 io_base = bus_info->io_space.start + IO_ALLOC_OFFSET;
351                 mem_base = bus_info->mem_space.start + MEM_ALLOC_OFFSET;
352
353                 /*
354                  * Scan the tree, allocating PCI memory and I/O space.
355                  */
356
357                 layout_bus(pci_bus_b(pci_root.next));
358         }
359
360         /*
361          * Fix interrupt assignments, etc.
362          */
363
364         bus_info->fixup(pci_modify);
365 }
366
367 /*
368  * static void pcibios_claim_resources(struct pci_bus *bus)
369  *
370  * Claim all resources that are assigned to devices on the given bus.
371  *
372  * Parameters:
373  *
374  * bus  - bus.
375  */
376
377 static void __init pcibios_claim_resources(struct pci_bus *bus)
378 {
379         struct pci_dev *dev;
380         int i;
381
382         while (bus)
383         {
384                 for (dev = bus->devices; (dev != NULL); dev = dev->sibling)
385                 {
386                         for (i = 0; i < PCI_NUM_RESOURCES; i++)
387                         {
388                                 struct resource *r = &dev->resource[i];
389                                 struct resource *pr;
390                                 struct pci_bus_info *bus_info = (struct pci_bus_info *) dev->sysdata;
391
392                                 if ((r->start == 0) || (r->parent != NULL))
393                                         continue;
394 #if 1
395                                 if (r->flags & IORESOURCE_IO)
396                                         pr = &bus_info->io_space;
397                                 else
398                                         pr = &bus_info->mem_space;
399 #else
400                                 if (r->flags & IORESOURCE_IO)
401                                         pr = &ioport_resource;
402                                 else
403                                         pr = &iomem_resource;
404 #endif
405                                 if (request_resource(pr, r) < 0)
406                                 {
407                                         printk(KERN_ERR "PCI: Address space collision on region %d of device %s\n", i, dev->name);
408                                 }
409                         }
410                 }
411
412                 if (bus->children)
413                         pcibios_claim_resources(bus->children);
414
415                 bus = bus->next;
416         }
417 }
418
419 /*
420  * int pcibios_assign_resource(struct pci_dev *dev, int i)
421  *
422  * Assign a new address to a PCI resource.
423  *
424  * Parameters:
425  *
426  * dev  - device.
427  * i    - resource.
428  *
429  * Result: 0 if successful.
430  */
431
432 int __init pcibios_assign_resource(struct pci_dev *dev, int i)
433 {
434         struct resource *r = &dev->resource[i];
435         struct resource *pr = pci_find_parent_resource(dev, r);
436         unsigned long size = r->end + 1;
437
438         if (!pr)
439                 return -EINVAL;
440
441         if (r->flags & IORESOURCE_IO)
442         {
443                 if (size > 0x100)
444                         return -EFBIG;
445
446                 if (allocate_resource(pr, r, size, bus_info->io_space.start +
447                                       IO_ALLOC_OFFSET,  bus_info->io_space.end, 1024))
448                         return -EBUSY;
449         }
450         else
451         {
452                 if (allocate_resource(pr, r, size, bus_info->mem_space.start +
453                                       MEM_ALLOC_OFFSET, bus_info->mem_space.end, size))
454                         return -EBUSY;
455         }
456
457         if (i < 6)
458                 pci_write_config_dword(dev, PCI_BASE_ADDRESS_0 + 4 * i, r->start);
459
460         return 0;
461 }
462
463 void __init pcibios_fixup_bus(struct pci_bus *bus)
464 {
465         struct pci_dev *dev;
466         void *sysdata;
467
468         sysdata = (bus->parent) ? bus->parent->sysdata : bus->sysdata;
469
470         for (dev = bus->devices; (dev != NULL); dev = dev->sibling)
471                 dev->sysdata = sysdata;
472 }
473
474 void __init pcibios_init(void)
475 {
476         printk("Linux/m68k PCI BIOS32 revision %x.%02x\n", MAJOR_REV, MINOR_REV);
477
478         bus_info = NULL;
479 #ifdef CONFIG_HADES
480         if (MACH_IS_HADES)
481                 bus_info = init_hades_pci();
482 #endif
483         if (bus_info != NULL)
484         {
485                 printk("PCI: Probing PCI hardware\n");
486                 pci_scan_bus(0, bus_info->m68k_pci_ops, bus_info);
487                 pcibios_fixup();
488                 pcibios_claim_resources(pci_root);
489         }
490         else
491                 printk("PCI: No PCI bus detected\n");
492 }
493
494 char * __init pcibios_setup(char *str)
495 {
496         if (!strcmp(str, "nomodify"))
497         {
498                 pci_modify = 0;
499                 return NULL;
500         }
501         else if (!strcmp(str, "skipvga"))
502         {
503                 skip_vga = 1;
504                 return NULL;
505         }
506         else if (!strcmp(str, "noburst"))
507         {
508                 disable_pci_burst = 1;
509                 return NULL;
510         }
511
512         return str;
513 }
514 #endif /* CONFIG_PCI */