arch/ppc/kernel/pci.c

   1 /*
   2  * Common prep/chrp pci routines. -- Cort
   3  */
   4
   5 #include <linux/config.h>
   6 #include <linux/kernel.h>
   7 #include <linux/pci.h>
   8 #include <linux/delay.h>
   9 #include <linux/string.h>
  10 #include <linux/init.h>
  11 #include <linux/capability.h>
  12 #include <linux/sched.h>
  13 #include <linux/errno.h>
  14 #include <linux/bootmem.h>
  15
  16 #include <asm/processor.h>
  17 #include <asm/io.h>
  18 #include <asm/prom.h>
  19 #include <asm/sections.h>
  20 #include <asm/pci-bridge.h>
  21 #include <asm/byteorder.h>
  22 #include <asm/irq.h>
  23 #include <asm/uaccess.h>
  24 #include <asm/machdep.h>
  25
  26 #undef DEBUG
  27
  28 #ifdef DEBUG
  29 #define DBG(x...) printk(x)
  30 #else
  31 #define DBG(x...)
  32 #endif
  33
  34 unsigned long isa_io_base     = 0;
  35 unsigned long isa_mem_base    = 0;
  36 unsigned long pci_dram_offset = 0;
  37 int pcibios_assign_bus_offset = 1;
  38
  39 void pcibios_make_OF_bus_map(void);
  40
  41 static int pci_relocate_bridge_resource(struct pci_bus *bus, int i);
  42 static int probe_resource(struct pci_bus *parent, struct resource *pr,
  43                           struct resource *res, struct resource **conflict);
  44 static void update_bridge_base(struct pci_bus *bus, int i);
  45 static void pcibios_fixup_resources(struct pci_dev* dev);
  46 static void fixup_broken_pcnet32(struct pci_dev* dev);
  47 static int reparent_resources(struct resource *parent, struct resource *res);
  48 static void fixup_cpc710_pci64(struct pci_dev* dev);
  49
  50 /* By default, we don't re-assign bus numbers.
  51  */
  52 int pci_assign_all_buses;
  53
  54 struct pci_controller* hose_head;
  55 struct pci_controller** hose_tail = &hose_head;
  56
  57 static int pci_bus_count;
  58
  59 static void
  60 fixup_broken_pcnet32(struct pci_dev* dev)
  61 {
  62         if ((dev->class>>8 == PCI_CLASS_NETWORK_ETHERNET)) {
  63                 dev->vendor = PCI_VENDOR_ID_AMD;
  64                 pci_write_config_word(dev, PCI_VENDOR_ID, PCI_VENDOR_ID_AMD);
  65         }
  66 }
  67 DECLARE_PCI_FIXUP_HEADER(PCI_VENDOR_ID_TRIDENT, PCI_ANY_ID,                     fixup_broken_pcnet32);
  68
  69 static void
  70 fixup_cpc710_pci64(struct pci_dev* dev)
  71 {
  72         /* Hide the PCI64 BARs from the kernel as their content doesn't
  73          * fit well in the resource management
  74          */
  75         dev->resource[0].start = dev->resource[0].end = 0;
  76         dev->resource[0].flags = 0;
  77         dev->resource[1].start = dev->resource[1].end = 0;
  78         dev->resource[1].flags = 0;
  79 }
  80 DECLARE_PCI_FIXUP_HEADER(PCI_VENDOR_ID_IBM,     PCI_DEVICE_ID_IBM_CPC710_PCI64, fixup_cpc710_pci64);
  81
  82 static void
  83 pcibios_fixup_resources(struct pci_dev *dev)
  84 {
  85         struct pci_controller* hose = (struct pci_controller *)dev->sysdata;
  86         int i;
  87         unsigned long offset;
  88
  89         if (!hose) {
  90                 printk(KERN_ERR "No hose for PCI dev %s!\n", pci_name(dev));
  91                 return;
  92         }
  93         for (i = 0; i < DEVICE_COUNT_RESOURCE; i++) {
  94                 struct resource *res = dev->resource + i;
  95                 if (!res->flags)
  96                         continue;
  97                 if (res->end == 0xffffffff) {
  98                         DBG("PCI:%s Resource %d [%08lx-%08lx] is unassigned\n",
  99                             pci_name(dev), i, res->start, res->end);
 100                         res->end -= res->start;
 101                         res->start = 0;
 102                         res->flags |= IORESOURCE_UNSET;
 103                         continue;
 104                 }
 105                 offset = 0;
 106                 if (res->flags & IORESOURCE_MEM) {
 107                         offset = hose->pci_mem_offset;
 108                 } else if (res->flags & IORESOURCE_IO) {
 109                         offset = (unsigned long) hose->io_base_virt
 110                                 - isa_io_base;
 111                 }
 112                 if (offset != 0) {
 113                         res->start += offset;
 114                         res->end += offset;
 115 #ifdef DEBUG
 116                         printk("Fixup res %d (%lx) of dev %s: %lx -> %lx\n",
 117                                i, res->flags, pci_name(dev),
 118                                res->start - offset, res->start);
 119 #endif
 120                 }
 121         }
 122
 123         /* Call machine specific resource fixup */
 124         if (ppc_md.pcibios_fixup_resources)
 125                 ppc_md.pcibios_fixup_resources(dev);
 126 }
 127 DECLARE_PCI_FIXUP_HEADER(PCI_ANY_ID,            PCI_ANY_ID,                     pcibios_fixup_resources);
 128
 129 void pcibios_resource_to_bus(struct pci_dev *dev, struct pci_bus_region *region,
 130                         struct resource *res)
 131 {
 132         unsigned long offset = 0;
 133         struct pci_controller *hose = dev->sysdata;
 134
 135         if (hose && res->flags & IORESOURCE_IO)
 136                 offset = (unsigned long)hose->io_base_virt - isa_io_base;
 137         else if (hose && res->flags & IORESOURCE_MEM)
 138                 offset = hose->pci_mem_offset;
 139         region->start = res->start - offset;
 140         region->end = res->end - offset;
 141 }
 142 EXPORT_SYMBOL(pcibios_resource_to_bus);
 143
 144 void pcibios_bus_to_resource(struct pci_dev *dev, struct resource *res,
 145                              struct pci_bus_region *region)
 146 {
 147         unsigned long offset = 0;
 148         struct pci_controller *hose = dev->sysdata;
 149
 150         if (hose && res->flags & IORESOURCE_IO)
 151                 offset = (unsigned long)hose->io_base_virt - isa_io_base;
 152         else if (hose && res->flags & IORESOURCE_MEM)
 153                 offset = hose->pci_mem_offset;
 154         res->start = region->start + offset;
 155         res->end = region->end + offset;
 156 }
 157 EXPORT_SYMBOL(pcibios_bus_to_resource);
 158
 159 /*
 160  * We need to avoid collisions with `mirrored' VGA ports
 161  * and other strange ISA hardware, so we always want the
 162  * addresses to be allocated in the 0x000-0x0ff region
 163  * modulo 0x400.
 164  *
 165  * Why? Because some silly external IO cards only decode
 166  * the low 10 bits of the IO address. The 0x00-0xff region
 167  * is reserved for motherboard devices that decode all 16
 168  * bits, so it's ok to allocate at, say, 0x2800-0x28ff,
 169  * but we want to try to avoid allocating at 0x2900-0x2bff
 170  * which might have be mirrored at 0x0100-0x03ff..
 171  */
 172 void pcibios_align_resource(void *data, struct resource *res, unsigned long size,
 173                        unsigned long align)
 174 {
 175         struct pci_dev *dev = data;
 176
 177         if (res->flags & IORESOURCE_IO) {
 178                 unsigned long start = res->start;
 179
 180                 if (size > 0x100) {
 181                         printk(KERN_ERR "PCI: I/O Region %s/%d too large"
 182                                " (%ld bytes)\n", pci_name(dev),
 183                                dev->resource - res, size);
 184                 }
 185
 186                 if (start & 0x300) {
 187                         start = (start + 0x3ff) & ~0x3ff;
 188                         res->start = start;
 189                 }
 190         }
 191 }
 192 EXPORT_SYMBOL(pcibios_align_resource);
 193
 194 /*
 195  *  Handle resources of PCI devices.  If the world were perfect, we could
 196  *  just allocate all the resource regions and do nothing more.  It isn't.
 197  *  On the other hand, we cannot just re-allocate all devices, as it would
 198  *  require us to know lots of host bridge internals.  So we attempt to
 199  *  keep as much of the original configuration as possible, but tweak it
 200  *  when it's found to be wrong.
 201  *
 202  *  Known BIOS problems we have to work around:
 203  *      - I/O or memory regions not configured
 204  *      - regions configured, but not enabled in the command register
 205  *      - bogus I/O addresses above 64K used
 206  *      - expansion ROMs left enabled (this may sound harmless, but given
 207  *        the fact the PCI specs explicitly allow address decoders to be
 208  *        shared between expansion ROMs and other resource regions, it's
 209  *        at least dangerous)
 210  *
 211  *  Our solution:
 212  *      (1) Allocate resources for all buses behind PCI-to-PCI bridges.
 213  *          This gives us fixed barriers on where we can allocate.
 214  *      (2) Allocate resources for all enabled devices.  If there is
 215  *          a collision, just mark the resource as unallocated. Also
 216  *          disable expansion ROMs during this step.
 217  *      (3) Try to allocate resources for disabled devices.  If the
 218  *          resources were assigned correctly, everything goes well,
 219  *          if they weren't, they won't disturb allocation of other
 220  *          resources.
 221  *      (4) Assign new addresses to resources which were either
 222  *          not configured at all or misconfigured.  If explicitly
 223  *          requested by the user, configure expansion ROM address
 224  *          as well.
 225  */
 226
 227 static void __init
 228 pcibios_allocate_bus_resources(struct list_head *bus_list)
 229 {
 230         struct pci_bus *bus;
 231         int i;
 232         struct resource *res, *pr;
 233
 234         /* Depth-First Search on bus tree */
 235         list_for_each_entry(bus, bus_list, node) {
 236                 for (i = 0; i < 4; ++i) {
 237                         if ((res = bus->resource[i]) == NULL || !res->flags
 238                             || res->start > res->end)
 239                                 continue;
 240                         if (bus->parent == NULL)
 241                                 pr = (res->flags & IORESOURCE_IO)?
 242                                         &ioport_resource: &iomem_resource;
 243                         else {
 244                                 pr = pci_find_parent_resource(bus->self, res);
 245                                 if (pr == res) {
 246                                         /* this happens when the generic PCI
 247                                          * code (wrongly) decides that this
 248                                          * bridge is transparent  -- paulus
 249                                          */
 250                                         continue;
 251                                 }
 252                         }
 253
 254                         DBG("PCI: bridge rsrc %lx..%lx (%lx), parent %p\n",
 255                             res->start, res->end, res->flags, pr);
 256                         if (pr) {
 257                                 if (request_resource(pr, res) == 0)
 258                                         continue;
 259                                 /*
 260                                  * Must be a conflict with an existing entry.
 261                                  * Move that entry (or entries) under the
 262                                  * bridge resource and try again.
 263                                  */
 264                                 if (reparent_resources(pr, res) == 0)
 265                                         continue;
 266                         }
 267                         printk(KERN_ERR "PCI: Cannot allocate resource region "
 268                                "%d of PCI bridge %d\n", i, bus->number);
 269                         if (pci_relocate_bridge_resource(bus, i))
 270                                 bus->resource[i] = NULL;
 271                 }
 272                 pcibios_allocate_bus_resources(&bus->children);
 273         }
 274 }
 275
 276 /*
 277  * Reparent resource children of pr that conflict with res
 278  * under res, and make res replace those children.
 279  */
 280 static int __init
 281 reparent_resources(struct resource *parent, struct resource *res)
 282 {
 283         struct resource *p, **pp;
 284         struct resource **firstpp = NULL;
 285
 286         for (pp = &parent->child; (p = *pp) != NULL; pp = &p->sibling) {
 287                 if (p->end < res->start)
 288                         continue;
 289                 if (res->end < p->start)
 290                         break;
 291                 if (p->start < res->start || p->end > res->end)
 292                         return -1;      /* not completely contained */
 293                 if (firstpp == NULL)
 294                         firstpp = pp;
 295         }
 296         if (firstpp == NULL)
 297                 return -1;      /* didn't find any conflicting entries? */
 298         res->parent = parent;
 299         res->child = *firstpp;
 300         res->sibling = *pp;
 301         *firstpp = res;
 302         *pp = NULL;
 303         for (p = res->child; p != NULL; p = p->sibling) {
 304                 p->parent = res;
 305                 DBG(KERN_INFO "PCI: reparented %s [%lx..%lx] under %s\n",
 306                     p->name, p->start, p->end, res->name);
 307         }
 308         return 0;
 309 }
 310
 311 /*
 312  * A bridge has been allocated a range which is outside the range
 313  * of its parent bridge, so it needs to be moved.
 314  */
 315 static int __init
 316 pci_relocate_bridge_resource(struct pci_bus *bus, int i)
 317 {
 318         struct resource *res, *pr, *conflict;
 319         unsigned long try, size;
 320         int j;
 321         struct pci_bus *parent = bus->parent;
 322
 323         if (parent == NULL) {
 324                 /* shouldn't ever happen */
 325                 printk(KERN_ERR "PCI: can't move host bridge resource\n");
 326                 return -1;
 327         }
 328         res = bus->resource[i];
 329         if (res == NULL)
 330                 return -1;
 331         pr = NULL;
 332         for (j = 0; j < 4; j++) {
 333                 struct resource *r = parent->resource[j];
 334                 if (!r)
 335                         continue;
 336                 if ((res->flags ^ r->flags) & (IORESOURCE_IO | IORESOURCE_MEM))
 337                         continue;
 338                 if (!((res->flags ^ r->flags) & IORESOURCE_PREFETCH)) {
 339                         pr = r;
 340                         break;
 341                 }
 342                 if (res->flags & IORESOURCE_PREFETCH)
 343                         pr = r;
 344         }
 345         if (pr == NULL)
 346                 return -1;
 347         size = res->end - res->start;
 348         if (pr->start > pr->end || size > pr->end - pr->start)
 349                 return -1;
 350         try = pr->end;
 351         for (;;) {
 352                 res->start = try - size;
 353                 res->end = try;
 354                 if (probe_resource(bus->parent, pr, res, &conflict) == 0)
 355                         break;
 356                 if (conflict->start <= pr->start + size)
 357                         return -1;
 358                 try = conflict->start - 1;
 359         }
 360         if (request_resource(pr, res)) {
 361                 DBG(KERN_ERR "PCI: huh? couldn't move to %lx..%lx\n",
 362                     res->start, res->end);
 363                 return -1;              /* "can't happen" */
 364         }
 365         update_bridge_base(bus, i);
 366         printk(KERN_INFO "PCI: bridge %d resource %d moved to %lx..%lx\n",
 367                bus->number, i, res->start, res->end);
 368         return 0;
 369 }
 370
 371 static int __init
 372 probe_resource(struct pci_bus *parent, struct resource *pr,
 373                struct resource *res, struct resource **conflict)
 374 {
 375         struct pci_bus *bus;
 376         struct pci_dev *dev;
 377         struct resource *r;
 378         int i;
 379
 380         for (r = pr->child; r != NULL; r = r->sibling) {
 381                 if (r->end >= res->start && res->end >= r->start) {
 382                         *conflict = r;
 383                         return 1;
 384                 }
 385         }
 386         list_for_each_entry(bus, &parent->children, node) {
 387                 for (i = 0; i < 4; ++i) {
 388                         if ((r = bus->resource[i]) == NULL)
 389                                 continue;
 390                         if (!r->flags || r->start > r->end || r == res)
 391                                 continue;
 392                         if (pci_find_parent_resource(bus->self, r) != pr)
 393                                 continue;
 394                         if (r->end >= res->start && res->end >= r->start) {
 395                                 *conflict = r;
 396                                 return 1;
 397                         }
 398                 }
 399         }
 400         list_for_each_entry(dev, &parent->devices, bus_list) {
 401                 for (i = 0; i < 6; ++i) {
 402                         r = &dev->resource[i];
 403                         if (!r->flags || (r->flags & IORESOURCE_UNSET))
 404                                 continue;
 405                         if (pci_find_parent_resource(dev, r) != pr)
 406                                 continue;
 407                         if (r->end >= res->start && res->end >= r->start) {
 408                                 *conflict = r;
 409                                 return 1;
 410                         }
 411                 }
 412         }
 413         return 0;
 414 }
 415
 416 static void __init
 417 update_bridge_base(struct pci_bus *bus, int i)
 418 {
 419         struct resource *res = bus->resource[i];
 420         u8 io_base_lo, io_limit_lo;
 421         u16 mem_base, mem_limit;
 422         u16 cmd;
 423         unsigned long start, end, off;
 424         struct pci_dev *dev = bus->self;
 425         struct pci_controller *hose = dev->sysdata;
 426
 427         if (!hose) {
 428                 printk("update_bridge_base: no hose?\n");
 429                 return;
 430         }
 431         pci_read_config_word(dev, PCI_COMMAND, &cmd);
 432         pci_write_config_word(dev, PCI_COMMAND,
 433                               cmd & ~(PCI_COMMAND_IO | PCI_COMMAND_MEMORY));
 434         if (res->flags & IORESOURCE_IO) {
 435                 off = (unsigned long) hose->io_base_virt - isa_io_base;
 436                 start = res->start - off;
 437                 end = res->end - off;
 438                 io_base_lo = (start >> 8) & PCI_IO_RANGE_MASK;
 439                 io_limit_lo = (end >> 8) & PCI_IO_RANGE_MASK;
 440                 if (end > 0xffff) {
 441                         pci_write_config_word(dev, PCI_IO_BASE_UPPER16,
 442                                               start >> 16);
 443                         pci_write_config_word(dev, PCI_IO_LIMIT_UPPER16,
 444                                               end >> 16);
 445                         io_base_lo |= PCI_IO_RANGE_TYPE_32;
 446                 } else
 447                         io_base_lo |= PCI_IO_RANGE_TYPE_16;
 448                 pci_write_config_byte(dev, PCI_IO_BASE, io_base_lo);
 449                 pci_write_config_byte(dev, PCI_IO_LIMIT, io_limit_lo);
 450
 451         } else if ((res->flags & (IORESOURCE_MEM | IORESOURCE_PREFETCH))
 452                    == IORESOURCE_MEM) {
 453                 off = hose->pci_mem_offset;
 454                 mem_base = ((res->start - off) >> 16) & PCI_MEMORY_RANGE_MASK;
 455                 mem_limit = ((res->end - off) >> 16) & PCI_MEMORY_RANGE_MASK;
 456                 pci_write_config_word(dev, PCI_MEMORY_BASE, mem_base);
 457                 pci_write_config_word(dev, PCI_MEMORY_LIMIT, mem_limit);
 458
 459         } else if ((res->flags & (IORESOURCE_MEM | IORESOURCE_PREFETCH))
 460                    == (IORESOURCE_MEM | IORESOURCE_PREFETCH)) {
 461                 off = hose->pci_mem_offset;
 462                 mem_base = ((res->start - off) >> 16) & PCI_PREF_RANGE_MASK;
 463                 mem_limit = ((res->end - off) >> 16) & PCI_PREF_RANGE_MASK;
 464                 pci_write_config_word(dev, PCI_PREF_MEMORY_BASE, mem_base);
 465                 pci_write_config_word(dev, PCI_PREF_MEMORY_LIMIT, mem_limit);
 466
 467         } else {
 468                 DBG(KERN_ERR "PCI: ugh, bridge %s res %d has flags=%lx\n",
 469                     pci_name(dev), i, res->flags);
 470         }
 471         pci_write_config_word(dev, PCI_COMMAND, cmd);
 472 }
 473
 474 static inline void alloc_resource(struct pci_dev *dev, int idx)
 475 {
 476         struct resource *pr, *r = &dev->resource[idx];
 477
 478         DBG("PCI:%s: Resource %d: %08lx-%08lx (f=%lx)\n",
 479             pci_name(dev), idx, r->start, r->end, r->flags);
 480         pr = pci_find_parent_resource(dev, r);
 481         if (!pr || request_resource(pr, r) < 0) {
 482                 printk(KERN_ERR "PCI: Cannot allocate resource region %d"
 483                        " of device %s\n", idx, pci_name(dev));
 484                 if (pr)
 485                         DBG("PCI:  parent is %p: %08lx-%08lx (f=%lx)\n",
 486                             pr, pr->start, pr->end, pr->flags);
 487                 /* We'll assign a new address later */
 488                 r->flags |= IORESOURCE_UNSET;
 489                 r->end -= r->start;
 490                 r->start = 0;
 491         }
 492 }
 493
 494 static void __init
 495 pcibios_allocate_resources(int pass)
 496 {
 497         struct pci_dev *dev = NULL;
 498         int idx, disabled;
 499         u16 command;
 500         struct resource *r;
 501
 502         for_each_pci_dev(dev) {
 503                 pci_read_config_word(dev, PCI_COMMAND, &command);
 504                 for (idx = 0; idx < 6; idx++) {
 505                         r = &dev->resource[idx];
 506                         if (r->parent)          /* Already allocated */
 507                                 continue;
 508                         if (!r->flags || (r->flags & IORESOURCE_UNSET))
 509                                 continue;       /* Not assigned at all */
 510                         if (r->flags & IORESOURCE_IO)
 511                                 disabled = !(command & PCI_COMMAND_IO);
 512                         else
 513                                 disabled = !(command & PCI_COMMAND_MEMORY);
 514                         if (pass == disabled)
 515                                 alloc_resource(dev, idx);
 516                 }
 517                 if (pass)
 518                         continue;
 519                 r = &dev->resource[PCI_ROM_RESOURCE];
 520                 if (r->flags & IORESOURCE_ROM_ENABLE) {
 521                         /* Turn the ROM off, leave the resource region, but keep it unregistered. */
 522                         u32 reg;
 523                         DBG("PCI: Switching off ROM of %s\n", pci_name(dev));
 524                         r->flags &= ~IORESOURCE_ROM_ENABLE;
 525                         pci_read_config_dword(dev, dev->rom_base_reg, &reg);
 526                         pci_write_config_dword(dev, dev->rom_base_reg,
 527                                                reg & ~PCI_ROM_ADDRESS_ENABLE);
 528                 }
 529         }
 530 }
 531
 532 static void __init
 533 pcibios_assign_resources(void)
 534 {
 535         struct pci_dev *dev = NULL;
 536         int idx;
 537         struct resource *r;
 538
 539         for_each_pci_dev(dev) {
 540                 int class = dev->class >> 8;
 541
 542                 /* Don't touch classless devices and host bridges */
 543                 if (!class || class == PCI_CLASS_BRIDGE_HOST)
 544                         continue;
 545
 546                 for (idx = 0; idx < 6; idx++) {
 547                         r = &dev->resource[idx];
 548
 549                         /*
 550                          * We shall assign a new address to this resource,
 551                          * either because the BIOS (sic) forgot to do so
 552                          * or because we have decided the old address was
 553                          * unusable for some reason.
 554                          */
 555                         if ((r->flags & IORESOURCE_UNSET) && r->end &&
 556                             (!ppc_md.pcibios_enable_device_hook ||
 557                              !ppc_md.pcibios_enable_device_hook(dev, 1))) {
 558                                 r->flags &= ~IORESOURCE_UNSET;
 559                                 pci_assign_resource(dev, idx);
 560                         }
 561                 }
 562
 563 #if 0 /* don't assign ROMs */
 564                 r = &dev->resource[PCI_ROM_RESOURCE];
 565                 r->end -= r->start;
 566                 r->start = 0;
 567                 if (r->end)
 568                         pci_assign_resource(dev, PCI_ROM_RESOURCE);
 569 #endif
 570         }
 571 }
 572
 573
 574 int
 575 pcibios_enable_resources(struct pci_dev *dev, int mask)
 576 {
 577         u16 cmd, old_cmd;
 578         int idx;
 579         struct resource *r;
 580
 581         pci_read_config_word(dev, PCI_COMMAND, &cmd);
 582         old_cmd = cmd;
 583         for (idx=0; idx<6; idx++) {
 584                 /* Only set up the requested stuff */
 585                 if (!(mask & (1<<idx)))
 586                         continue;
 587
 588                 r = &dev->resource[idx];
 589                 if (r->flags & IORESOURCE_UNSET) {
 590                         printk(KERN_ERR "PCI: Device %s not available because of resource collisions\n", pci_name(dev));
 591                         return -EINVAL;
 592                 }
 593                 if (r->flags & IORESOURCE_IO)
 594                         cmd |= PCI_COMMAND_IO;
 595                 if (r->flags & IORESOURCE_MEM)
 596                         cmd |= PCI_COMMAND_MEMORY;
 597         }
 598         if (dev->resource[PCI_ROM_RESOURCE].start)
 599                 cmd |= PCI_COMMAND_MEMORY;
 600         if (cmd != old_cmd) {
 601                 printk("PCI: Enabling device %s (%04x -> %04x)\n", pci_name(dev), old_cmd, cmd);
 602                 pci_write_config_word(dev, PCI_COMMAND, cmd);
 603         }
 604         return 0;
 605 }
 606
 607 static int next_controller_index;
 608
 609 struct pci_controller * __init
 610 pcibios_alloc_controller(void)
 611 {
 612         struct pci_controller *hose;
 613
 614         hose = (struct pci_controller *)alloc_bootmem(sizeof(*hose));
 615         memset(hose, 0, sizeof(struct pci_controller));
 616
 617         *hose_tail = hose;
 618         hose_tail = &hose->next;
 619
 620         hose->index = next_controller_index++;
 621
 622         return hose;
 623 }
 624
 625 void pcibios_make_OF_bus_map(void)
 626 {
 627 }
 628
 629 /* Add sysfs properties */
 630 void pcibios_add_platform_entries(struct pci_dev *pdev)
 631 {
 632 }
 633
 634
 635 static int __init
 636 pcibios_init(void)
 637 {
 638         struct pci_controller *hose;
 639         struct pci_bus *bus;
 640         int next_busno;
 641
 642         printk(KERN_INFO "PCI: Probing PCI hardware\n");
 643
 644         /* Scan all of the recorded PCI controllers.  */
 645         for (next_busno = 0, hose = hose_head; hose; hose = hose->next) {
 646                 if (pci_assign_all_buses)
 647                         hose->first_busno = next_busno;
 648                 hose->last_busno = 0xff;
 649                 bus = pci_scan_bus(hose->first_busno, hose->ops, hose);
 650                 hose->last_busno = bus->subordinate;
 651                 if (pci_assign_all_buses || next_busno <= hose->last_busno)
 652                         next_busno = hose->last_busno + pcibios_assign_bus_offset;
 653         }
 654         pci_bus_count = next_busno;
 655
 656         /* OpenFirmware based machines need a map of OF bus
 657          * numbers vs. kernel bus numbers since we may have to
 658          * remap them.
 659          */
 660         if (pci_assign_all_buses && have_of)
 661                 pcibios_make_OF_bus_map();
 662
 663         /* Do machine dependent PCI interrupt routing */
 664         if (ppc_md.pci_swizzle && ppc_md.pci_map_irq)
 665                 pci_fixup_irqs(ppc_md.pci_swizzle, ppc_md.pci_map_irq);
 666
 667         /* Call machine dependent fixup */
 668         if (ppc_md.pcibios_fixup)
 669                 ppc_md.pcibios_fixup();
 670
 671         /* Allocate and assign resources */
 672         pcibios_allocate_bus_resources(&pci_root_buses);
 673         pcibios_allocate_resources(0);
 674         pcibios_allocate_resources(1);
 675         pcibios_assign_resources();
 676
 677         /* Call machine dependent post-init code */
 678         if (ppc_md.pcibios_after_init)
 679                 ppc_md.pcibios_after_init();
 680
 681         return 0;
 682 }
 683
 684 subsys_initcall(pcibios_init);
 685
 686 unsigned char __init
 687 common_swizzle(struct pci_dev *dev, unsigned char *pinp)
 688 {
 689         struct pci_controller *hose = dev->sysdata;
 690
 691         if (dev->bus->number != hose->first_busno) {
 692                 u8 pin = *pinp;
 693                 do {
 694                         pin = bridge_swizzle(pin, PCI_SLOT(dev->devfn));
 695                         /* Move up the chain of bridges. */
 696                         dev = dev->bus->self;
 697                 } while (dev->bus->self);
 698                 *pinp = pin;
 699
 700                 /* The slot is the idsel of the last bridge. */
 701         }
 702         return PCI_SLOT(dev->devfn);
 703 }
 704
 705 unsigned long resource_fixup(struct pci_dev * dev, struct resource * res,
 706                              unsigned long start, unsigned long size)
 707 {
 708         return start;
 709 }
 710
 711 void __init pcibios_fixup_bus(struct pci_bus *bus)
 712 {
 713         struct pci_controller *hose = (struct pci_controller *) bus->sysdata;
 714         unsigned long io_offset;
 715         struct resource *res;
 716         int i;
 717
 718         io_offset = (unsigned long)hose->io_base_virt - isa_io_base;
 719         if (bus->parent == NULL) {
 720                 /* This is a host bridge - fill in its resources */
 721                 hose->bus = bus;
 722
 723                 bus->resource[0] = res = &hose->io_resource;
 724                 if (!res->flags) {
 725                         if (io_offset)
 726                                 printk(KERN_ERR "I/O resource not set for host"
 727                                        " bridge %d\n", hose->index);
 728                         res->start = 0;
 729                         res->end = IO_SPACE_LIMIT;
 730                         res->flags = IORESOURCE_IO;
 731                 }
 732                 res->start += io_offset;
 733                 res->end += io_offset;
 734
 735                 for (i = 0; i < 3; ++i) {
 736                         res = &hose->mem_resources[i];
 737                         if (!res->flags) {
 738                                 if (i > 0)
 739                                         continue;
 740                                 printk(KERN_ERR "Memory resource not set for "
 741                                        "host bridge %d\n", hose->index);
 742                                 res->start = hose->pci_mem_offset;
 743                                 res->end = ~0U;
 744                                 res->flags = IORESOURCE_MEM;
 745                         }
 746                         bus->resource[i+1] = res;
 747                 }
 748         } else {
 749                 /* This is a subordinate bridge */
 750                 pci_read_bridge_bases(bus);
 751
 752                 for (i = 0; i < 4; ++i) {
 753                         if ((res = bus->resource[i]) == NULL)
 754                                 continue;
 755                         if (!res->flags)
 756                                 continue;
 757                         if (io_offset && (res->flags & IORESOURCE_IO)) {
 758                                 res->start += io_offset;
 759                                 res->end += io_offset;
 760                         } else if (hose->pci_mem_offset
 761                                    && (res->flags & IORESOURCE_MEM)) {
 762                                 res->start += hose->pci_mem_offset;
 763                                 res->end += hose->pci_mem_offset;
 764                         }
 765                 }
 766         }
 767
 768         if (ppc_md.pcibios_fixup_bus)
 769                 ppc_md.pcibios_fixup_bus(bus);
 770 }
 771
 772 char __init *pcibios_setup(char *str)
 773 {
 774         return str;
 775 }
 776
 777 /* the next one is stolen from the alpha port... */
 778 void __init
 779 pcibios_update_irq(struct pci_dev *dev, int irq)
 780 {
 781         pci_write_config_byte(dev, PCI_INTERRUPT_LINE, irq);
 782         /* XXX FIXME - update OF device tree node interrupt property */
 783 }
 784
 785 int pcibios_enable_device(struct pci_dev *dev, int mask)
 786 {
 787         u16 cmd, old_cmd;
 788         int idx;
 789         struct resource *r;
 790
 791         if (ppc_md.pcibios_enable_device_hook)
 792                 if (ppc_md.pcibios_enable_device_hook(dev, 0))
 793                         return -EINVAL;
 794
 795         pci_read_config_word(dev, PCI_COMMAND, &cmd);
 796         old_cmd = cmd;
 797         for (idx=0; idx<6; idx++) {
 798                 r = &dev->resource[idx];
 799                 if (r->flags & IORESOURCE_UNSET) {
 800                         printk(KERN_ERR "PCI: Device %s not available because of resource collisions\n", pci_name(dev));
 801                         return -EINVAL;
 802                 }
 803                 if (r->flags & IORESOURCE_IO)
 804                         cmd |= PCI_COMMAND_IO;
 805                 if (r->flags & IORESOURCE_MEM)
 806                         cmd |= PCI_COMMAND_MEMORY;
 807         }
 808         if (cmd != old_cmd) {
 809                 printk("PCI: Enabling device %s (%04x -> %04x)\n",
 810                        pci_name(dev), old_cmd, cmd);
 811                 pci_write_config_word(dev, PCI_COMMAND, cmd);
 812         }
 813         return 0;
 814 }
 815
 816 struct pci_controller*
 817 pci_bus_to_hose(int bus)
 818 {
 819         struct pci_controller* hose = hose_head;
 820
 821         for (; hose; hose = hose->next)
 822                 if (bus >= hose->first_busno && bus <= hose->last_busno)
 823                         return hose;
 824         return NULL;
 825 }
 826
 827 void __iomem *
 828 pci_bus_io_base(unsigned int bus)
 829 {
 830         struct pci_controller *hose;
 831
 832         hose = pci_bus_to_hose(bus);
 833         if (!hose)
 834                 return NULL;
 835         return hose->io_base_virt;
 836 }
 837
 838 unsigned long
 839 pci_bus_io_base_phys(unsigned int bus)
 840 {
 841         struct pci_controller *hose;
 842
 843         hose = pci_bus_to_hose(bus);
 844         if (!hose)
 845                 return 0;
 846         return hose->io_base_phys;
 847 }
 848
 849 unsigned long
 850 pci_bus_mem_base_phys(unsigned int bus)
 851 {
 852         struct pci_controller *hose;
 853
 854         hose = pci_bus_to_hose(bus);
 855         if (!hose)
 856                 return 0;
 857         return hose->pci_mem_offset;
 858 }
 859
 860 unsigned long
 861 pci_resource_to_bus(struct pci_dev *pdev, struct resource *res)
 862 {
 863         /* Hack alert again ! See comments in chrp_pci.c
 864          */
 865         struct pci_controller* hose =
 866                 (struct pci_controller *)pdev->sysdata;
 867         if (hose && res->flags & IORESOURCE_MEM)
 868                 return res->start - hose->pci_mem_offset;
 869         /* We may want to do something with IOs here... */
 870         return res->start;
 871 }
 872
 873
 874 static struct resource *__pci_mmap_make_offset(struct pci_dev *dev,
 875                                                unsigned long *offset,
 876                                                enum pci_mmap_state mmap_state)
 877 {
 878         struct pci_controller *hose = pci_bus_to_hose(dev->bus->number);
 879         unsigned long io_offset = 0;
 880         int i, res_bit;
 881
 882         if (hose == 0)
 883                 return NULL;            /* should never happen */
 884
 885         /* If memory, add on the PCI bridge address offset */
 886         if (mmap_state == pci_mmap_mem) {
 887                 *offset += hose->pci_mem_offset;
 888                 res_bit = IORESOURCE_MEM;
 889         } else {
 890                 io_offset = hose->io_base_virt - ___IO_BASE;
 891                 *offset += io_offset;
 892                 res_bit = IORESOURCE_IO;
 893         }
 894
 895         /*
 896          * Check that the offset requested corresponds to one of the
 897          * resources of the device.
 898          */
 899         for (i = 0; i <= PCI_ROM_RESOURCE; i++) {
 900                 struct resource *rp = &dev->resource[i];
 901                 int flags = rp->flags;
 902
 903                 /* treat ROM as memory (should be already) */
 904                 if (i == PCI_ROM_RESOURCE)
 905                         flags |= IORESOURCE_MEM;
 906
 907                 /* Active and same type? */
 908                 if ((flags & res_bit) == 0)
 909                         continue;
 910
 911                 /* In the range of this resource? */
 912                 if (*offset < (rp->start & PAGE_MASK) || *offset > rp->end)
 913                         continue;
 914
 915                 /* found it! construct the final physical address */
 916                 if (mmap_state == pci_mmap_io)
 917                         *offset += hose->io_base_phys - io_offset;
 918                 return rp;
 919         }
 920
 921         return NULL;
 922 }
 923
 924 /*
 925  * Set vm_page_prot of VMA, as appropriate for this architecture, for a pci
 926  * device mapping.
 927  */
 928 static pgprot_t __pci_mmap_set_pgprot(struct pci_dev *dev, struct resource *rp,
 929                                       pgprot_t protection,
 930                                       enum pci_mmap_state mmap_state,
 931                                       int write_combine)
 932 {
 933         unsigned long prot = pgprot_val(protection);
 934
 935         /* Write combine is always 0 on non-memory space mappings. On
 936          * memory space, if the user didn't pass 1, we check for a
 937          * "prefetchable" resource. This is a bit hackish, but we use
 938          * this to workaround the inability of /sysfs to provide a write
 939          * combine bit
 940          */
 941         if (mmap_state != pci_mmap_mem)
 942                 write_combine = 0;
 943         else if (write_combine == 0) {
 944                 if (rp->flags & IORESOURCE_PREFETCH)
 945                         write_combine = 1;
 946         }
 947
 948         /* XXX would be nice to have a way to ask for write-through */
 949         prot |= _PAGE_NO_CACHE;
 950         if (write_combine)
 951                 prot &= ~_PAGE_GUARDED;
 952         else
 953                 prot |= _PAGE_GUARDED;
 954
 955         printk("PCI map for %s:%lx, prot: %lx\n", pci_name(dev), rp->start,
 956                prot);
 957
 958         return __pgprot(prot);
 959 }
 960
 961 /*
 962  * This one is used by /dev/mem and fbdev who have no clue about the
 963  * PCI device, it tries to find the PCI device first and calls the
 964  * above routine
 965  */
 966 pgprot_t pci_phys_mem_access_prot(struct file *file,
 967                                   unsigned long pfn,
 968                                   unsigned long size,
 969                                   pgprot_t protection)
 970 {
 971         struct pci_dev *pdev = NULL;
 972         struct resource *found = NULL;
 973         unsigned long prot = pgprot_val(protection);
 974         unsigned long offset = pfn << PAGE_SHIFT;
 975         int i;
 976
 977         if (page_is_ram(pfn))
 978                 return prot;
 979
 980         prot |= _PAGE_NO_CACHE | _PAGE_GUARDED;
 981
 982         for_each_pci_dev(pdev) {
 983                 for (i = 0; i <= PCI_ROM_RESOURCE; i++) {
 984                         struct resource *rp = &pdev->resource[i];
 985                         int flags = rp->flags;
 986
 987                         /* Active and same type? */
 988                         if ((flags & IORESOURCE_MEM) == 0)
 989                                 continue;
 990                         /* In the range of this resource? */
 991                         if (offset < (rp->start & PAGE_MASK) ||
 992                             offset > rp->end)
 993                                 continue;
 994                         found = rp;
 995                         break;
 996                 }
 997                 if (found)
 998                         break;
 999         }
1000         if (found) {
1001                 if (found->flags & IORESOURCE_PREFETCH)
1002                         prot &= ~_PAGE_GUARDED;
1003                 pci_dev_put(pdev);
1004         }
1005
1006         DBG("non-PCI map for %lx, prot: %lx\n", offset, prot);
1007
1008         return __pgprot(prot);
1009 }
1010
1011
1012 /*
1013  * Perform the actual remap of the pages for a PCI device mapping, as
1014  * appropriate for this architecture.  The region in the process to map
1015  * is described by vm_start and vm_end members of VMA, the base physical
1016  * address is found in vm_pgoff.
1017  * The pci device structure is provided so that architectures may make mapping
1018  * decisions on a per-device or per-bus basis.
1019  *
1020  * Returns a negative error code on failure, zero on success.
1021  */
1022 int pci_mmap_page_range(struct pci_dev *dev, struct vm_area_struct *vma,
1023                         enum pci_mmap_state mmap_state,
1024                         int write_combine)
1025 {
1026         unsigned long offset = vma->vm_pgoff << PAGE_SHIFT;
1027         struct resource *rp;
1028         int ret;
1029
1030         rp = __pci_mmap_make_offset(dev, &offset, mmap_state);
1031         if (rp == NULL)
1032                 return -EINVAL;
1033
1034         vma->vm_pgoff = offset >> PAGE_SHIFT;
1035         vma->vm_page_prot = __pci_mmap_set_pgprot(dev, rp,
1036                                                   vma->vm_page_prot,
1037                                                   mmap_state, write_combine);
1038
1039         ret = remap_pfn_range(vma, vma->vm_start, vma->vm_pgoff,
1040                                vma->vm_end - vma->vm_start, vma->vm_page_prot);
1041
1042         return ret;
1043 }
1044
1045 /* Obsolete functions. Should be removed once the symbios driver
1046  * is fixed
1047  */
1048 unsigned long
1049 phys_to_bus(unsigned long pa)
1050 {
1051         struct pci_controller *hose;
1052         int i;
1053
1054         for (hose = hose_head; hose; hose = hose->next) {
1055                 for (i = 0; i < 3; ++i) {
1056                         if (pa >= hose->mem_resources[i].start
1057                             && pa <= hose->mem_resources[i].end) {
1058                                 /*
1059                                  * XXX the hose->pci_mem_offset really
1060                                  * only applies to mem_resources[0].
1061                                  * We need a way to store an offset for
1062                                  * the others.  -- paulus
1063                                  */
1064                                 if (i == 0)
1065                                         pa -= hose->pci_mem_offset;
1066                                 return pa;
1067                         }
1068                 }
1069         }
1070         /* hmmm, didn't find it */
1071         return 0;
1072 }
1073
1074 unsigned long
1075 pci_phys_to_bus(unsigned long pa, int busnr)
1076 {
1077         struct pci_controller* hose = pci_bus_to_hose(busnr);
1078         if (!hose)
1079                 return pa;
1080         return pa - hose->pci_mem_offset;
1081 }
1082
1083 unsigned long
1084 pci_bus_to_phys(unsigned int ba, int busnr)
1085 {
1086         struct pci_controller* hose = pci_bus_to_hose(busnr);
1087         if (!hose)
1088                 return ba;
1089         return ba + hose->pci_mem_offset;
1090 }
1091
1092 /* Provide information on locations of various I/O regions in physical
1093  * memory.  Do this on a per-card basis so that we choose the right
1094  * root bridge.
1095  * Note that the returned IO or memory base is a physical address
1096  */
1097
1098 long sys_pciconfig_iobase(long which, unsigned long bus, unsigned long devfn)
1099 {
1100         struct pci_controller* hose;
1101         long result = -EOPNOTSUPP;
1102
1103         hose = pci_bus_to_hose(bus);
1104         if (!hose)
1105                 return -ENODEV;
1106
1107         switch (which) {
1108         case IOBASE_BRIDGE_NUMBER:
1109                 return (long)hose->first_busno;
1110         case IOBASE_MEMORY:
1111                 return (long)hose->pci_mem_offset;
1112         case IOBASE_IO:
1113                 return (long)hose->io_base_phys;
1114         case IOBASE_ISA_IO:
1115                 return (long)isa_io_base;
1116         case IOBASE_ISA_MEM:
1117                 return (long)isa_mem_base;
1118         }
1119
1120         return result;
1121 }
1122
1123 void pci_resource_to_user(const struct pci_dev *dev, int bar,
1124                           const struct resource *rsrc,
1125                           u64 *start, u64 *end)
1126 {
1127         struct pci_controller *hose = pci_bus_to_hose(dev->bus->number);
1128         unsigned long offset = 0;
1129
1130         if (hose == NULL)
1131                 return;
1132
1133         if (rsrc->flags & IORESOURCE_IO)
1134                 offset = ___IO_BASE - hose->io_base_virt + hose->io_base_phys;
1135
1136         *start = rsrc->start + offset;
1137         *end = rsrc->end + offset;
1138 }
1139
1140 void __init
1141 pci_init_resource(struct resource *res, unsigned long start, unsigned long end,
1142                   int flags, char *name)
1143 {
1144         res->start = start;
1145         res->end = end;
1146         res->flags = flags;
1147         res->name = name;
1148         res->parent = NULL;
1149         res->sibling = NULL;
1150         res->child = NULL;
1151 }
1152
1153 void __iomem *pci_iomap(struct pci_dev *dev, int bar, unsigned long max)
1154 {
1155         unsigned long start = pci_resource_start(dev, bar);
1156         unsigned long len = pci_resource_len(dev, bar);
1157         unsigned long flags = pci_resource_flags(dev, bar);
1158
1159         if (!len)
1160                 return NULL;
1161         if (max && len > max)
1162                 len = max;
1163         if (flags & IORESOURCE_IO)
1164                 return ioport_map(start, len);
1165         if (flags & IORESOURCE_MEM)
1166                 /* Not checking IORESOURCE_CACHEABLE because PPC does
1167                  * not currently distinguish between ioremap and
1168                  * ioremap_nocache.
1169                  */
1170                 return ioremap(start, len);
1171         /* What? */
1172         return NULL;
1173 }
1174
1175 void pci_iounmap(struct pci_dev *dev, void __iomem *addr)
1176 {
1177         /* Nothing to do */
1178 }
1179 EXPORT_SYMBOL(pci_iomap);
1180 EXPORT_SYMBOL(pci_iounmap);
1181
1182 unsigned long pci_address_to_pio(phys_addr_t address)
1183 {
1184         struct pci_controller* hose = hose_head;
1185
1186         for (; hose; hose = hose->next) {
1187                 unsigned int size = hose->io_resource.end -
1188                         hose->io_resource.start + 1;
1189                 if (address >= hose->io_base_phys &&
1190                     address < (hose->io_base_phys + size)) {
1191                         unsigned long base =
1192                                 (unsigned long)hose->io_base_virt - _IO_BASE;
1193                         return base + (address - hose->io_base_phys);
1194                 }
1195         }
1196         return (unsigned int)-1;
1197 }
1198 EXPORT_SYMBOL(pci_address_to_pio);
1199
1200 /*
1201  * Null PCI config access functions, for the case when we can't
1202  * find a hose.
1203  */
1204 #define NULL_PCI_OP(rw, size, type)                                     \
1205 static int                                                              \
1206 null_##rw##_config_##size(struct pci_dev *dev, int offset, type val)    \
1207 {                                                                       \
1208         return PCIBIOS_DEVICE_NOT_FOUND;                                \
1209 }
1210
1211 static int
1212 null_read_config(struct pci_bus *bus, unsigned int devfn, int offset,
1213                  int len, u32 *val)
1214 {
1215         return PCIBIOS_DEVICE_NOT_FOUND;
1216 }
1217
1218 static int
1219 null_write_config(struct pci_bus *bus, unsigned int devfn, int offset,
1220                   int len, u32 val)
1221 {
1222         return PCIBIOS_DEVICE_NOT_FOUND;
1223 }
1224
1225 static struct pci_ops null_pci_ops =
1226 {
1227         null_read_config,
1228         null_write_config
1229 };
1230
1231 /*
1232  * These functions are used early on before PCI scanning is done
1233  * and all of the pci_dev and pci_bus structures have been created.
1234  */
1235 static struct pci_bus *
1236 fake_pci_bus(struct pci_controller *hose, int busnr)
1237 {
1238         static struct pci_bus bus;
1239
1240         if (hose == 0) {
1241                 hose = pci_bus_to_hose(busnr);
1242                 if (hose == 0)
1243                         printk(KERN_ERR "Can't find hose for PCI bus %d!\n", busnr);
1244         }
1245         bus.number = busnr;
1246         bus.sysdata = hose;
1247         bus.ops = hose? hose->ops: &null_pci_ops;
1248         return &bus;
1249 }
1250
1251 #define EARLY_PCI_OP(rw, size, type)                                    \
1252 int early_##rw##_config_##size(struct pci_controller *hose, int bus,    \
1253                                int devfn, int offset, type value)       \
1254 {                                                                       \
1255         return pci_bus_##rw##_config_##size(fake_pci_bus(hose, bus),    \
1256                                             devfn, offset, value);      \
1257 }
1258
1259 EARLY_PCI_OP(read, byte, u8 *)
1260 EARLY_PCI_OP(read, word, u16 *)
1261 EARLY_PCI_OP(read, dword, u32 *)
1262 EARLY_PCI_OP(write, byte, u8)
1263 EARLY_PCI_OP(write, word, u16)
1264 EARLY_PCI_OP(write, dword, u32)