arch/powerpc/platforms/maple/pci.c

   1 /*
   2  * Copyright (C) 2004 Benjamin Herrenschmuidt (benh@kernel.crashing.org),
   3  *                    IBM Corp.
   4  *
   5  * This program is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU General Public License
   7  * as published by the Free Software Foundation; either version
   8  * 2 of the License, or (at your option) any later version.
   9  */
  10
  11 #undef DEBUG
  12
  13 #include <linux/kernel.h>
  14 #include <linux/pci.h>
  15 #include <linux/delay.h>
  16 #include <linux/string.h>
  17 #include <linux/init.h>
  18 #include <linux/bootmem.h>
  19 #include <linux/irq.h>
  20
  21 #include <asm/sections.h>
  22 #include <asm/io.h>
  23 #include <asm/prom.h>
  24 #include <asm/pci-bridge.h>
  25 #include <asm/machdep.h>
  26 #include <asm/iommu.h>
  27 #include <asm/ppc-pci.h>
  28
  29 #include "maple.h"
  30
  31 #ifdef DEBUG
  32 #define DBG(x...) printk(x)
  33 #else
  34 #define DBG(x...)
  35 #endif
  36
  37 static struct pci_controller *u3_agp, *u3_ht, *u4_pcie;
  38
  39 static int __init fixup_one_level_bus_range(struct device_node *node, int higher)
  40 {
  41         for (; node != 0;node = node->sibling) {
  42                 const int *bus_range;
  43                 const unsigned int *class_code;
  44                 int len;
  45
  46                 /* For PCI<->PCI bridges or CardBus bridges, we go down */
  47                 class_code = of_get_property(node, "class-code", NULL);
  48                 if (!class_code || ((*class_code >> 8) != PCI_CLASS_BRIDGE_PCI &&
  49                         (*class_code >> 8) != PCI_CLASS_BRIDGE_CARDBUS))
  50                         continue;
  51                 bus_range = of_get_property(node, "bus-range", &len);
  52                 if (bus_range != NULL && len > 2 * sizeof(int)) {
  53                         if (bus_range[1] > higher)
  54                                 higher = bus_range[1];
  55                 }
  56                 higher = fixup_one_level_bus_range(node->child, higher);
  57         }
  58         return higher;
  59 }
  60
  61 /* This routine fixes the "bus-range" property of all bridges in the
  62  * system since they tend to have their "last" member wrong on macs
  63  *
  64  * Note that the bus numbers manipulated here are OF bus numbers, they
  65  * are not Linux bus numbers.
  66  */
  67 static void __init fixup_bus_range(struct device_node *bridge)
  68 {
  69         int *bus_range;
  70         struct property *prop;
  71         int len;
  72
  73         /* Lookup the "bus-range" property for the hose */
  74         prop = of_find_property(bridge, "bus-range", &len);
  75         if (prop == NULL  || prop->value == NULL || len < 2 * sizeof(int)) {
  76                 printk(KERN_WARNING "Can't get bus-range for %s\n",
  77                                bridge->full_name);
  78                 return;
  79         }
  80         bus_range = prop->value;
  81         bus_range[1] = fixup_one_level_bus_range(bridge->child, bus_range[1]);
  82 }
  83
  84
  85 static unsigned long u3_agp_cfa0(u8 devfn, u8 off)
  86 {
  87         return (1 << (unsigned long)PCI_SLOT(devfn)) |
  88                 ((unsigned long)PCI_FUNC(devfn) << 8) |
  89                 ((unsigned long)off & 0xFCUL);
  90 }
  91
  92 static unsigned long u3_agp_cfa1(u8 bus, u8 devfn, u8 off)
  93 {
  94         return ((unsigned long)bus << 16) |
  95                 ((unsigned long)devfn << 8) |
  96                 ((unsigned long)off & 0xFCUL) |
  97                 1UL;
  98 }
  99
 100 static volatile void __iomem *u3_agp_cfg_access(struct pci_controller* hose,
 101                                        u8 bus, u8 dev_fn, u8 offset)
 102 {
 103         unsigned int caddr;
 104
 105         if (bus == hose->first_busno) {
 106                 if (dev_fn < (11 << 3))
 107                         return NULL;
 108                 caddr = u3_agp_cfa0(dev_fn, offset);
 109         } else
 110                 caddr = u3_agp_cfa1(bus, dev_fn, offset);
 111
 112         /* Uninorth will return garbage if we don't read back the value ! */
 113         do {
 114                 out_le32(hose->cfg_addr, caddr);
 115         } while (in_le32(hose->cfg_addr) != caddr);
 116
 117         offset &= 0x07;
 118         return hose->cfg_data + offset;
 119 }
 120
 121 static int u3_agp_read_config(struct pci_bus *bus, unsigned int devfn,
 122                               int offset, int len, u32 *val)
 123 {
 124         struct pci_controller *hose;
 125         volatile void __iomem *addr;
 126
 127         hose = pci_bus_to_host(bus);
 128         if (hose == NULL)
 129                 return PCIBIOS_DEVICE_NOT_FOUND;
 130
 131         addr = u3_agp_cfg_access(hose, bus->number, devfn, offset);
 132         if (!addr)
 133                 return PCIBIOS_DEVICE_NOT_FOUND;
 134         /*
 135          * Note: the caller has already checked that offset is
 136          * suitably aligned and that len is 1, 2 or 4.
 137          */
 138         switch (len) {
 139         case 1:
 140                 *val = in_8(addr);
 141                 break;
 142         case 2:
 143                 *val = in_le16(addr);
 144                 break;
 145         default:
 146                 *val = in_le32(addr);
 147                 break;
 148         }
 149         return PCIBIOS_SUCCESSFUL;
 150 }
 151
 152 static int u3_agp_write_config(struct pci_bus *bus, unsigned int devfn,
 153                                int offset, int len, u32 val)
 154 {
 155         struct pci_controller *hose;
 156         volatile void __iomem *addr;
 157
 158         hose = pci_bus_to_host(bus);
 159         if (hose == NULL)
 160                 return PCIBIOS_DEVICE_NOT_FOUND;
 161
 162         addr = u3_agp_cfg_access(hose, bus->number, devfn, offset);
 163         if (!addr)
 164                 return PCIBIOS_DEVICE_NOT_FOUND;
 165         /*
 166          * Note: the caller has already checked that offset is
 167          * suitably aligned and that len is 1, 2 or 4.
 168          */
 169         switch (len) {
 170         case 1:
 171                 out_8(addr, val);
 172                 break;
 173         case 2:
 174                 out_le16(addr, val);
 175                 break;
 176         default:
 177                 out_le32(addr, val);
 178                 break;
 179         }
 180         return PCIBIOS_SUCCESSFUL;
 181 }
 182
 183 static struct pci_ops u3_agp_pci_ops =
 184 {
 185         .read = u3_agp_read_config,
 186         .write = u3_agp_write_config,
 187 };
 188
 189 static unsigned long u3_ht_cfa0(u8 devfn, u8 off)
 190 {
 191         return (devfn << 8) | off;
 192 }
 193
 194 static unsigned long u3_ht_cfa1(u8 bus, u8 devfn, u8 off)
 195 {
 196         return u3_ht_cfa0(devfn, off) + (bus << 16) + 0x01000000UL;
 197 }
 198
 199 static volatile void __iomem *u3_ht_cfg_access(struct pci_controller* hose,
 200                                       u8 bus, u8 devfn, u8 offset)
 201 {
 202         if (bus == hose->first_busno) {
 203                 if (PCI_SLOT(devfn) == 0)
 204                         return NULL;
 205                 return hose->cfg_data + u3_ht_cfa0(devfn, offset);
 206         } else
 207                 return hose->cfg_data + u3_ht_cfa1(bus, devfn, offset);
 208 }
 209
 210 static int u3_ht_read_config(struct pci_bus *bus, unsigned int devfn,
 211                              int offset, int len, u32 *val)
 212 {
 213         struct pci_controller *hose;
 214         volatile void __iomem *addr;
 215
 216         hose = pci_bus_to_host(bus);
 217         if (hose == NULL)
 218                 return PCIBIOS_DEVICE_NOT_FOUND;
 219
 220         if (offset > 0xff)
 221                 return PCIBIOS_BAD_REGISTER_NUMBER;
 222
 223         addr = u3_ht_cfg_access(hose, bus->number, devfn, offset);
 224         if (!addr)
 225                 return PCIBIOS_DEVICE_NOT_FOUND;
 226
 227         /*
 228          * Note: the caller has already checked that offset is
 229          * suitably aligned and that len is 1, 2 or 4.
 230          */
 231         switch (len) {
 232         case 1:
 233                 *val = in_8(addr);
 234                 break;
 235         case 2:
 236                 *val = in_le16(addr);
 237                 break;
 238         default:
 239                 *val = in_le32(addr);
 240                 break;
 241         }
 242         return PCIBIOS_SUCCESSFUL;
 243 }
 244
 245 static int u3_ht_write_config(struct pci_bus *bus, unsigned int devfn,
 246                               int offset, int len, u32 val)
 247 {
 248         struct pci_controller *hose;
 249         volatile void __iomem *addr;
 250
 251         hose = pci_bus_to_host(bus);
 252         if (hose == NULL)
 253                 return PCIBIOS_DEVICE_NOT_FOUND;
 254
 255         if (offset > 0xff)
 256                 return PCIBIOS_BAD_REGISTER_NUMBER;
 257
 258         addr = u3_ht_cfg_access(hose, bus->number, devfn, offset);
 259         if (!addr)
 260                 return PCIBIOS_DEVICE_NOT_FOUND;
 261         /*
 262          * Note: the caller has already checked that offset is
 263          * suitably aligned and that len is 1, 2 or 4.
 264          */
 265         switch (len) {
 266         case 1:
 267                 out_8(addr, val);
 268                 break;
 269         case 2:
 270                 out_le16(addr, val);
 271                 break;
 272         default:
 273                 out_le32(addr, val);
 274                 break;
 275         }
 276         return PCIBIOS_SUCCESSFUL;
 277 }
 278
 279 static struct pci_ops u3_ht_pci_ops =
 280 {
 281         .read = u3_ht_read_config,
 282         .write = u3_ht_write_config,
 283 };
 284
 285 static unsigned int u4_pcie_cfa0(unsigned int devfn, unsigned int off)
 286 {
 287         return (1 << PCI_SLOT(devfn))   |
 288                (PCI_FUNC(devfn) << 8)   |
 289                ((off >> 8) << 28)       |
 290                (off & 0xfcu);
 291 }
 292
 293 static unsigned int u4_pcie_cfa1(unsigned int bus, unsigned int devfn,
 294                                  unsigned int off)
 295 {
 296         return (bus << 16)              |
 297                (devfn << 8)             |
 298                ((off >> 8) << 28)       |
 299                (off & 0xfcu)            | 1u;
 300 }
 301
 302 static volatile void __iomem *u4_pcie_cfg_access(struct pci_controller* hose,
 303                                         u8 bus, u8 dev_fn, int offset)
 304 {
 305         unsigned int caddr;
 306
 307         if (bus == hose->first_busno)
 308                 caddr = u4_pcie_cfa0(dev_fn, offset);
 309         else
 310                 caddr = u4_pcie_cfa1(bus, dev_fn, offset);
 311
 312         /* Uninorth will return garbage if we don't read back the value ! */
 313         do {
 314                 out_le32(hose->cfg_addr, caddr);
 315         } while (in_le32(hose->cfg_addr) != caddr);
 316
 317         offset &= 0x03;
 318         return hose->cfg_data + offset;
 319 }
 320
 321 static int u4_pcie_read_config(struct pci_bus *bus, unsigned int devfn,
 322                                int offset, int len, u32 *val)
 323 {
 324         struct pci_controller *hose;
 325         volatile void __iomem *addr;
 326
 327         hose = pci_bus_to_host(bus);
 328         if (hose == NULL)
 329                 return PCIBIOS_DEVICE_NOT_FOUND;
 330         if (offset >= 0x1000)
 331                 return  PCIBIOS_BAD_REGISTER_NUMBER;
 332         addr = u4_pcie_cfg_access(hose, bus->number, devfn, offset);
 333         if (!addr)
 334                 return PCIBIOS_DEVICE_NOT_FOUND;
 335         /*
 336          * Note: the caller has already checked that offset is
 337          * suitably aligned and that len is 1, 2 or 4.
 338          */
 339         switch (len) {
 340         case 1:
 341                 *val = in_8(addr);
 342                 break;
 343         case 2:
 344                 *val = in_le16(addr);
 345                 break;
 346         default:
 347                 *val = in_le32(addr);
 348                 break;
 349         }
 350         return PCIBIOS_SUCCESSFUL;
 351 }
 352 static int u4_pcie_write_config(struct pci_bus *bus, unsigned int devfn,
 353                                 int offset, int len, u32 val)
 354 {
 355         struct pci_controller *hose;
 356         volatile void __iomem *addr;
 357
 358         hose = pci_bus_to_host(bus);
 359         if (hose == NULL)
 360                 return PCIBIOS_DEVICE_NOT_FOUND;
 361         if (offset >= 0x1000)
 362                 return  PCIBIOS_BAD_REGISTER_NUMBER;
 363         addr = u4_pcie_cfg_access(hose, bus->number, devfn, offset);
 364         if (!addr)
 365                 return PCIBIOS_DEVICE_NOT_FOUND;
 366         /*
 367          * Note: the caller has already checked that offset is
 368          * suitably aligned and that len is 1, 2 or 4.
 369          */
 370         switch (len) {
 371         case 1:
 372                 out_8(addr, val);
 373                 break;
 374         case 2:
 375                 out_le16(addr, val);
 376                 break;
 377         default:
 378                 out_le32(addr, val);
 379                 break;
 380         }
 381         return PCIBIOS_SUCCESSFUL;
 382 }
 383
 384 static struct pci_ops u4_pcie_pci_ops =
 385 {
 386         .read = u4_pcie_read_config,
 387         .write = u4_pcie_write_config,
 388 };
 389
 390 static void __init setup_u3_agp(struct pci_controller* hose)
 391 {
 392         /* On G5, we move AGP up to high bus number so we don't need
 393          * to reassign bus numbers for HT. If we ever have P2P bridges
 394          * on AGP, we'll have to move pci_assign_all_buses to the
 395          * pci_controller structure so we enable it for AGP and not for
 396          * HT childs.
 397          * We hard code the address because of the different size of
 398          * the reg address cell, we shall fix that by killing struct
 399          * reg_property and using some accessor functions instead
 400          */
 401         hose->first_busno = 0xf0;
 402         hose->last_busno = 0xff;
 403         hose->ops = &u3_agp_pci_ops;
 404         hose->cfg_addr = ioremap(0xf0000000 + 0x800000, 0x1000);
 405         hose->cfg_data = ioremap(0xf0000000 + 0xc00000, 0x1000);
 406
 407         u3_agp = hose;
 408 }
 409
 410 static void __init setup_u4_pcie(struct pci_controller* hose)
 411 {
 412         /* We currently only implement the "non-atomic" config space, to
 413          * be optimised later.
 414          */
 415         hose->ops = &u4_pcie_pci_ops;
 416         hose->cfg_addr = ioremap(0xf0000000 + 0x800000, 0x1000);
 417         hose->cfg_data = ioremap(0xf0000000 + 0xc00000, 0x1000);
 418
 419         u4_pcie = hose;
 420 }
 421
 422 static void __init setup_u3_ht(struct pci_controller* hose)
 423 {
 424         hose->ops = &u3_ht_pci_ops;
 425
 426         /* We hard code the address because of the different size of
 427          * the reg address cell, we shall fix that by killing struct
 428          * reg_property and using some accessor functions instead
 429          */
 430         hose->cfg_data = ioremap(0xf2000000, 0x02000000);
 431
 432         hose->first_busno = 0;
 433         hose->last_busno = 0xef;
 434
 435         u3_ht = hose;
 436 }
 437
 438 static int __init maple_add_bridge(struct device_node *dev)
 439 {
 440         int len;
 441         struct pci_controller *hose;
 442         char* disp_name;
 443         const int *bus_range;
 444         int primary = 1;
 445
 446         DBG("Adding PCI host bridge %s\n", dev->full_name);
 447
 448         bus_range = of_get_property(dev, "bus-range", &len);
 449         if (bus_range == NULL || len < 2 * sizeof(int)) {
 450                 printk(KERN_WARNING "Can't get bus-range for %s, assume bus 0\n",
 451                 dev->full_name);
 452         }
 453
 454         hose = pcibios_alloc_controller(dev);
 455         if (hose == NULL)
 456                 return -ENOMEM;
 457         hose->first_busno = bus_range ? bus_range[0] : 0;
 458         hose->last_busno = bus_range ? bus_range[1] : 0xff;
 459
 460         disp_name = NULL;
 461         if (of_device_is_compatible(dev, "u3-agp")) {
 462                 setup_u3_agp(hose);
 463                 disp_name = "U3-AGP";
 464                 primary = 0;
 465         } else if (of_device_is_compatible(dev, "u3-ht")) {
 466                 setup_u3_ht(hose);
 467                 disp_name = "U3-HT";
 468                 primary = 1;
 469         } else if (of_device_is_compatible(dev, "u4-pcie")) {
 470                 setup_u4_pcie(hose);
 471                 disp_name = "U4-PCIE";
 472                 primary = 0;
 473         }
 474         printk(KERN_INFO "Found %s PCI host bridge. Firmware bus number: %d->%d\n",
 475                 disp_name, hose->first_busno, hose->last_busno);
 476
 477         /* Interpret the "ranges" property */
 478         /* This also maps the I/O region and sets isa_io/mem_base */
 479         pci_process_bridge_OF_ranges(hose, dev, primary);
 480
 481         /* Fixup "bus-range" OF property */
 482         fixup_bus_range(dev);
 483
 484         /* Check for legacy IOs */
 485         isa_bridge_find_early(hose);
 486
 487         return 0;
 488 }
 489
 490
 491 void __devinit maple_pci_irq_fixup(struct pci_dev *dev)
 492 {
 493         DBG(" -> maple_pci_irq_fixup\n");
 494
 495         /* Fixup IRQ for PCIe host */
 496         if (u4_pcie != NULL && dev->bus->number == 0 &&
 497             pci_bus_to_host(dev->bus) == u4_pcie) {
 498                 printk(KERN_DEBUG "Fixup U4 PCIe IRQ\n");
 499                 dev->irq = irq_create_mapping(NULL, 1);
 500                 if (dev->irq != NO_IRQ)
 501                         set_irq_type(dev->irq, IRQ_TYPE_LEVEL_LOW);
 502         }
 503
 504         /* Hide AMD8111 IDE interrupt when in legacy mode so
 505          * the driver calls pci_get_legacy_ide_irq()
 506          */
 507         if (dev->vendor == PCI_VENDOR_ID_AMD &&
 508             dev->device == PCI_DEVICE_ID_AMD_8111_IDE &&
 509             (dev->class & 5) != 5) {
 510                 dev->irq = NO_IRQ;
 511         }
 512
 513         DBG(" <- maple_pci_irq_fixup\n");
 514 }
 515
 516 void __init maple_pci_init(void)
 517 {
 518         struct device_node *np, *root;
 519         struct device_node *ht = NULL;
 520
 521         /* Probe root PCI hosts, that is on U3 the AGP host and the
 522          * HyperTransport host. That one is actually "kept" around
 523          * and actually added last as it's resource management relies
 524          * on the AGP resources to have been setup first
 525          */
 526         root = of_find_node_by_path("/");
 527         if (root == NULL) {
 528                 printk(KERN_CRIT "maple_find_bridges: can't find root of device tree\n");
 529                 return;
 530         }
 531         for (np = NULL; (np = of_get_next_child(root, np)) != NULL;) {
 532                 if (!np->type)
 533                         continue;
 534                 if (strcmp(np->type, "pci") && strcmp(np->type, "ht"))
 535                         continue;
 536                 if ((of_device_is_compatible(np, "u4-pcie") ||
 537                      of_device_is_compatible(np, "u3-agp")) &&
 538                     maple_add_bridge(np) == 0)
 539                         of_node_get(np);
 540
 541                 if (of_device_is_compatible(np, "u3-ht")) {
 542                         of_node_get(np);
 543                         ht = np;
 544                 }
 545         }
 546         of_node_put(root);
 547
 548         /* Now setup the HyperTransport host if we found any
 549          */
 550         if (ht && maple_add_bridge(ht) != 0)
 551                 of_node_put(ht);
 552
 553         /* Setup the linkage between OF nodes and PHBs */
 554         pci_devs_phb_init();
 555
 556         /* Fixup the PCI<->OF mapping for U3 AGP due to bus renumbering. We
 557          * assume there is no P2P bridge on the AGP bus, which should be a
 558          * safe assumptions hopefully.
 559          */
 560         if (u3_agp) {
 561                 struct device_node *np = u3_agp->dn;
 562                 PCI_DN(np)->busno = 0xf0;
 563                 for (np = np->child; np; np = np->sibling)
 564                         PCI_DN(np)->busno = 0xf0;
 565         }
 566
 567         /* Tell pci.c to not change any resource allocations.  */
 568         pci_probe_only = 1;
 569 }
 570
 571 int maple_pci_get_legacy_ide_irq(struct pci_dev *pdev, int channel)
 572 {
 573         struct device_node *np;
 574         unsigned int defirq = channel ? 15 : 14;
 575         unsigned int irq;
 576
 577         if (pdev->vendor != PCI_VENDOR_ID_AMD ||
 578             pdev->device != PCI_DEVICE_ID_AMD_8111_IDE)
 579                 return defirq;
 580
 581         np = pci_device_to_OF_node(pdev);
 582         if (np == NULL) {
 583                 printk("Failed to locate OF node for IDE %s\n",
 584                        pci_name(pdev));
 585                 return defirq;
 586         }
 587         irq = irq_of_parse_and_map(np, channel & 0x1);
 588         if (irq == NO_IRQ) {
 589                 printk("Failed to map onboard IDE interrupt for channel %d\n",
 590                        channel);
 591                 return defirq;
 592         }
 593         return irq;
 594 }
 595
 596 /* XXX: To remove once all firmwares are ok */
 597 static void fixup_maple_ide(struct pci_dev* dev)
 598 {
 599         if (!machine_is(maple))
 600                 return;
 601
 602 #if 0 /* Enable this to enable IDE port 0 */
 603         {
 604                 u8 v;
 605
 606                 pci_read_config_byte(dev, 0x40, &v);
 607                 v |= 2;
 608                 pci_write_config_byte(dev, 0x40, v);
 609         }
 610 #endif
 611 #if 0 /* fix bus master base */
 612         pci_write_config_dword(dev, 0x20, 0xcc01);
 613         printk("old ide resource: %lx -> %lx \n",
 614                dev->resource[4].start, dev->resource[4].end);
 615         dev->resource[4].start = 0xcc00;
 616         dev->resource[4].end = 0xcc10;
 617 #endif
 618 #if 0 /* Enable this to fixup IDE sense/polarity of irqs in IO-APICs */
 619         {
 620                 struct pci_dev *apicdev;
 621                 u32 v;
 622
 623                 apicdev = pci_get_slot (dev->bus, PCI_DEVFN(5,0));
 624                 if (apicdev == NULL)
 625                         printk("IDE Fixup IRQ: Can't find IO-APIC !\n");
 626                 else {
 627                         pci_write_config_byte(apicdev, 0xf2, 0x10 + 2*14);
 628                         pci_read_config_dword(apicdev, 0xf4, &v);
 629                         v &= ~0x00000022;
 630                         pci_write_config_dword(apicdev, 0xf4, v);
 631                         pci_write_config_byte(apicdev, 0xf2, 0x10 + 2*15);
 632                         pci_read_config_dword(apicdev, 0xf4, &v);
 633                         v &= ~0x00000022;
 634                         pci_write_config_dword(apicdev, 0xf4, v);
 635                         pci_dev_put(apicdev);
 636                 }
 637         }
 638 #endif
 639 }
 640 DECLARE_PCI_FIXUP_HEADER(PCI_VENDOR_ID_AMD, PCI_DEVICE_ID_AMD_8111_IDE,
 641                          fixup_maple_ide);