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