arch/sparc/kernel/of_device.c

   1 #include <linux/string.h>
   2 #include <linux/kernel.h>
   3 #include <linux/of.h>
   4 #include <linux/init.h>
   5 #include <linux/module.h>
   6 #include <linux/mod_devicetable.h>
   7 #include <linux/slab.h>
   8 #include <linux/errno.h>
   9 #include <linux/of_device.h>
  10 #include <linux/of_platform.h>
  11
  12 static int node_match(struct device *dev, void *data)
  13 {
  14         struct of_device *op = to_of_device(dev);
  15         struct device_node *dp = data;
  16
  17         return (op->node == dp);
  18 }
  19
  20 struct of_device *of_find_device_by_node(struct device_node *dp)
  21 {
  22         struct device *dev = bus_find_device(&of_platform_bus_type, NULL,
  23                                              dp, node_match);
  24
  25         if (dev)
  26                 return to_of_device(dev);
  27
  28         return NULL;
  29 }
  30 EXPORT_SYMBOL(of_find_device_by_node);
  31
  32 unsigned int irq_of_parse_and_map(struct device_node *node, int index)
  33 {
  34         struct of_device *op = of_find_device_by_node(node);
  35
  36         if (!op || index >= op->num_irqs)
  37                 return 0;
  38
  39         return op->irqs[index];
  40 }
  41 EXPORT_SYMBOL(irq_of_parse_and_map);
  42
  43 /* Take the archdata values for IOMMU, STC, and HOSTDATA found in
  44  * BUS and propagate to all child of_device objects.
  45  */
  46 void of_propagate_archdata(struct of_device *bus)
  47 {
  48         struct dev_archdata *bus_sd = &bus->dev.archdata;
  49         struct device_node *bus_dp = bus->node;
  50         struct device_node *dp;
  51
  52         for (dp = bus_dp->child; dp; dp = dp->sibling) {
  53                 struct of_device *op = of_find_device_by_node(dp);
  54
  55                 op->dev.archdata.iommu = bus_sd->iommu;
  56                 op->dev.archdata.stc = bus_sd->stc;
  57                 op->dev.archdata.host_controller = bus_sd->host_controller;
  58                 op->dev.archdata.numa_node = bus_sd->numa_node;
  59
  60                 if (dp->child)
  61                         of_propagate_archdata(op);
  62         }
  63 }
  64
  65 struct bus_type of_platform_bus_type;
  66 EXPORT_SYMBOL(of_platform_bus_type);
  67
  68 static inline u64 of_read_addr(const u32 *cell, int size)
  69 {
  70         u64 r = 0;
  71         while (size--)
  72                 r = (r << 32) | *(cell++);
  73         return r;
  74 }
  75
  76 static void __init get_cells(struct device_node *dp,
  77                              int *addrc, int *sizec)
  78 {
  79         if (addrc)
  80                 *addrc = of_n_addr_cells(dp);
  81         if (sizec)
  82                 *sizec = of_n_size_cells(dp);
  83 }
  84
  85 /* Max address size we deal with */
  86 #define OF_MAX_ADDR_CELLS       4
  87
  88 struct of_bus {
  89         const char      *name;
  90         const char      *addr_prop_name;
  91         int             (*match)(struct device_node *parent);
  92         void            (*count_cells)(struct device_node *child,
  93                                        int *addrc, int *sizec);
  94         int             (*map)(u32 *addr, const u32 *range,
  95                                int na, int ns, int pna);
  96         unsigned long   (*get_flags)(const u32 *addr, unsigned long);
  97 };
  98
  99 /*
 100  * Default translator (generic bus)
 101  */
 102
 103 static void of_bus_default_count_cells(struct device_node *dev,
 104                                        int *addrc, int *sizec)
 105 {
 106         get_cells(dev, addrc, sizec);
 107 }
 108
 109 /* Make sure the least significant 64-bits are in-range.  Even
 110  * for 3 or 4 cell values it is a good enough approximation.
 111  */
 112 static int of_out_of_range(const u32 *addr, const u32 *base,
 113                            const u32 *size, int na, int ns)
 114 {
 115         u64 a = of_read_addr(addr, na);
 116         u64 b = of_read_addr(base, na);
 117
 118         if (a < b)
 119                 return 1;
 120
 121         b += of_read_addr(size, ns);
 122         if (a >= b)
 123                 return 1;
 124
 125         return 0;
 126 }
 127
 128 static int of_bus_default_map(u32 *addr, const u32 *range,
 129                               int na, int ns, int pna)
 130 {
 131         u32 result[OF_MAX_ADDR_CELLS];
 132         int i;
 133
 134         if (ns > 2) {
 135                 printk("of_device: Cannot handle size cells (%d) > 2.", ns);
 136                 return -EINVAL;
 137         }
 138
 139         if (of_out_of_range(addr, range, range + na + pna, na, ns))
 140                 return -EINVAL;
 141
 142         /* Start with the parent range base.  */
 143         memcpy(result, range + na, pna * 4);
 144
 145         /* Add in the child address offset.  */
 146         for (i = 0; i < na; i++)
 147                 result[pna - 1 - i] +=
 148                         (addr[na - 1 - i] -
 149                          range[na - 1 - i]);
 150
 151         memcpy(addr, result, pna * 4);
 152
 153         return 0;
 154 }
 155
 156 static unsigned long of_bus_default_get_flags(const u32 *addr, unsigned long flags)
 157 {
 158         if (flags)
 159                 return flags;
 160         return IORESOURCE_MEM;
 161 }
 162
 163 /*
 164  * PCI bus specific translator
 165  */
 166
 167 static int of_bus_pci_match(struct device_node *np)
 168 {
 169         if (!strcmp(np->type, "pci") || !strcmp(np->type, "pciex")) {
 170                 /* Do not do PCI specific frobbing if the
 171                  * PCI bridge lacks a ranges property.  We
 172                  * want to pass it through up to the next
 173                  * parent as-is, not with the PCI translate
 174                  * method which chops off the top address cell.
 175                  */
 176                 if (!of_find_property(np, "ranges", NULL))
 177                         return 0;
 178
 179                 return 1;
 180         }
 181
 182         return 0;
 183 }
 184
 185 static void of_bus_pci_count_cells(struct device_node *np,
 186                                    int *addrc, int *sizec)
 187 {
 188         if (addrc)
 189                 *addrc = 3;
 190         if (sizec)
 191                 *sizec = 2;
 192 }
 193
 194 static int of_bus_pci_map(u32 *addr, const u32 *range,
 195                           int na, int ns, int pna)
 196 {
 197         u32 result[OF_MAX_ADDR_CELLS];
 198         int i;
 199
 200         /* Check address type match */
 201         if ((addr[0] ^ range[0]) & 0x03000000)
 202                 return -EINVAL;
 203
 204         if (of_out_of_range(addr + 1, range + 1, range + na + pna,
 205                             na - 1, ns))
 206                 return -EINVAL;
 207
 208         /* Start with the parent range base.  */
 209         memcpy(result, range + na, pna * 4);
 210
 211         /* Add in the child address offset, skipping high cell.  */
 212         for (i = 0; i < na - 1; i++)
 213                 result[pna - 1 - i] +=
 214                         (addr[na - 1 - i] -
 215                          range[na - 1 - i]);
 216
 217         memcpy(addr, result, pna * 4);
 218
 219         return 0;
 220 }
 221
 222 static unsigned long of_bus_pci_get_flags(const u32 *addr, unsigned long flags)
 223 {
 224         u32 w = addr[0];
 225
 226         /* For PCI, we override whatever child busses may have used.  */
 227         flags = 0;
 228         switch((w >> 24) & 0x03) {
 229         case 0x01:
 230                 flags |= IORESOURCE_IO;
 231                 break;
 232
 233         case 0x02: /* 32 bits */
 234         case 0x03: /* 64 bits */
 235                 flags |= IORESOURCE_MEM;
 236                 break;
 237         }
 238         if (w & 0x40000000)
 239                 flags |= IORESOURCE_PREFETCH;
 240         return flags;
 241 }
 242
 243 /*
 244  * SBUS bus specific translator
 245  */
 246
 247 static int of_bus_sbus_match(struct device_node *np)
 248 {
 249         return !strcmp(np->name, "sbus") ||
 250                 !strcmp(np->name, "sbi");
 251 }
 252
 253 static void of_bus_sbus_count_cells(struct device_node *child,
 254                                    int *addrc, int *sizec)
 255 {
 256         if (addrc)
 257                 *addrc = 2;
 258         if (sizec)
 259                 *sizec = 1;
 260 }
 261
 262 static int of_bus_sbus_map(u32 *addr, const u32 *range, int na, int ns, int pna)
 263 {
 264         return of_bus_default_map(addr, range, na, ns, pna);
 265 }
 266
 267 static unsigned long of_bus_sbus_get_flags(const u32 *addr, unsigned long flags)
 268 {
 269         return IORESOURCE_MEM;
 270 }
 271
 272
 273 /*
 274  * Array of bus specific translators
 275  */
 276
 277 static struct of_bus of_busses[] = {
 278         /* PCI */
 279         {
 280                 .name = "pci",
 281                 .addr_prop_name = "assigned-addresses",
 282                 .match = of_bus_pci_match,
 283                 .count_cells = of_bus_pci_count_cells,
 284                 .map = of_bus_pci_map,
 285                 .get_flags = of_bus_pci_get_flags,
 286         },
 287         /* SBUS */
 288         {
 289                 .name = "sbus",
 290                 .addr_prop_name = "reg",
 291                 .match = of_bus_sbus_match,
 292                 .count_cells = of_bus_sbus_count_cells,
 293                 .map = of_bus_sbus_map,
 294                 .get_flags = of_bus_sbus_get_flags,
 295         },
 296         /* Default */
 297         {
 298                 .name = "default",
 299                 .addr_prop_name = "reg",
 300                 .match = NULL,
 301                 .count_cells = of_bus_default_count_cells,
 302                 .map = of_bus_default_map,
 303                 .get_flags = of_bus_default_get_flags,
 304         },
 305 };
 306
 307 static struct of_bus *of_match_bus(struct device_node *np)
 308 {
 309         int i;
 310
 311         for (i = 0; i < ARRAY_SIZE(of_busses); i ++)
 312                 if (!of_busses[i].match || of_busses[i].match(np))
 313                         return &of_busses[i];
 314         BUG();
 315         return NULL;
 316 }
 317
 318 static int __init build_one_resource(struct device_node *parent,
 319                                      struct of_bus *bus,
 320                                      struct of_bus *pbus,
 321                                      u32 *addr,
 322                                      int na, int ns, int pna)
 323 {
 324         const u32 *ranges;
 325         unsigned int rlen;
 326         int rone;
 327
 328         ranges = of_get_property(parent, "ranges", &rlen);
 329         if (ranges == NULL || rlen == 0) {
 330                 u32 result[OF_MAX_ADDR_CELLS];
 331                 int i;
 332
 333                 memset(result, 0, pna * 4);
 334                 for (i = 0; i < na; i++)
 335                         result[pna - 1 - i] =
 336                                 addr[na - 1 - i];
 337
 338                 memcpy(addr, result, pna * 4);
 339                 return 0;
 340         }
 341
 342         /* Now walk through the ranges */
 343         rlen /= 4;
 344         rone = na + pna + ns;
 345         for (; rlen >= rone; rlen -= rone, ranges += rone) {
 346                 if (!bus->map(addr, ranges, na, ns, pna))
 347                         return 0;
 348         }
 349
 350         return 1;
 351 }
 352
 353 static int __init use_1to1_mapping(struct device_node *pp)
 354 {
 355         /* If we have a ranges property in the parent, use it.  */
 356         if (of_find_property(pp, "ranges", NULL) != NULL)
 357                 return 0;
 358
 359         /* Some SBUS devices use intermediate nodes to express
 360          * hierarchy within the device itself.  These aren't
 361          * real bus nodes, and don't have a 'ranges' property.
 362          * But, we should still pass the translation work up
 363          * to the SBUS itself.
 364          */
 365         if (!strcmp(pp->name, "dma") ||
 366             !strcmp(pp->name, "espdma") ||
 367             !strcmp(pp->name, "ledma") ||
 368             !strcmp(pp->name, "lebuffer"))
 369                 return 0;
 370
 371         return 1;
 372 }
 373
 374 static int of_resource_verbose;
 375
 376 static void __init build_device_resources(struct of_device *op,
 377                                           struct device *parent)
 378 {
 379         struct of_device *p_op;
 380         struct of_bus *bus;
 381         int na, ns;
 382         int index, num_reg;
 383         const void *preg;
 384
 385         if (!parent)
 386                 return;
 387
 388         p_op = to_of_device(parent);
 389         bus = of_match_bus(p_op->node);
 390         bus->count_cells(op->node, &na, &ns);
 391
 392         preg = of_get_property(op->node, bus->addr_prop_name, &num_reg);
 393         if (!preg || num_reg == 0)
 394                 return;
 395
 396         /* Convert to num-cells.  */
 397         num_reg /= 4;
 398
 399         /* Conver to num-entries.  */
 400         num_reg /= na + ns;
 401
 402         for (index = 0; index < num_reg; index++) {
 403                 struct resource *r = &op->resource[index];
 404                 u32 addr[OF_MAX_ADDR_CELLS];
 405                 const u32 *reg = (preg + (index * ((na + ns) * 4)));
 406                 struct device_node *dp = op->node;
 407                 struct device_node *pp = p_op->node;
 408                 struct of_bus *pbus, *dbus;
 409                 u64 size, result = OF_BAD_ADDR;
 410                 unsigned long flags;
 411                 int dna, dns;
 412                 int pna, pns;
 413
 414                 size = of_read_addr(reg + na, ns);
 415
 416                 memcpy(addr, reg, na * 4);
 417
 418                 flags = bus->get_flags(reg, 0);
 419
 420                 if (use_1to1_mapping(pp)) {
 421                         result = of_read_addr(addr, na);
 422                         goto build_res;
 423                 }
 424
 425                 dna = na;
 426                 dns = ns;
 427                 dbus = bus;
 428
 429                 while (1) {
 430                         dp = pp;
 431                         pp = dp->parent;
 432                         if (!pp) {
 433                                 result = of_read_addr(addr, dna);
 434                                 break;
 435                         }
 436
 437                         pbus = of_match_bus(pp);
 438                         pbus->count_cells(dp, &pna, &pns);
 439
 440                         if (build_one_resource(dp, dbus, pbus, addr,
 441                                                dna, dns, pna))
 442                                 break;
 443
 444                         flags = pbus->get_flags(addr, flags);
 445
 446                         dna = pna;
 447                         dns = pns;
 448                         dbus = pbus;
 449                 }
 450
 451         build_res:
 452                 memset(r, 0, sizeof(*r));
 453
 454                 if (of_resource_verbose)
 455                         printk("%s reg[%d] -> %llx\n",
 456                                op->node->full_name, index,
 457                                result);
 458
 459                 if (result != OF_BAD_ADDR) {
 460                         r->start = result & 0xffffffff;
 461                         r->end = result + size - 1;
 462                         r->flags = flags | ((result >> 32ULL) & 0xffUL);
 463                 }
 464                 r->name = op->node->name;
 465         }
 466 }
 467
 468 static struct of_device * __init scan_one_device(struct device_node *dp,
 469                                                  struct device *parent)
 470 {
 471         struct of_device *op = kzalloc(sizeof(*op), GFP_KERNEL);
 472         const struct linux_prom_irqs *intr;
 473         struct dev_archdata *sd;
 474         int len, i;
 475
 476         if (!op)
 477                 return NULL;
 478
 479         sd = &op->dev.archdata;
 480         sd->prom_node = dp;
 481         sd->op = op;
 482
 483         op->node = dp;
 484
 485         op->clock_freq = of_getintprop_default(dp, "clock-frequency",
 486                                                (25*1000*1000));
 487         op->portid = of_getintprop_default(dp, "upa-portid", -1);
 488         if (op->portid == -1)
 489                 op->portid = of_getintprop_default(dp, "portid", -1);
 490
 491         intr = of_get_property(dp, "intr", &len);
 492         if (intr) {
 493                 op->num_irqs = len / sizeof(struct linux_prom_irqs);
 494                 for (i = 0; i < op->num_irqs; i++)
 495                         op->irqs[i] = intr[i].pri;
 496         } else {
 497                 const unsigned int *irq =
 498                         of_get_property(dp, "interrupts", &len);
 499
 500                 if (irq) {
 501                         op->num_irqs = len / sizeof(unsigned int);
 502                         for (i = 0; i < op->num_irqs; i++)
 503                                 op->irqs[i] = irq[i];
 504                 } else {
 505                         op->num_irqs = 0;
 506                 }
 507         }
 508         if (sparc_cpu_model == sun4d) {
 509                 static int pil_to_sbus[] = {
 510                         0, 0, 1, 2, 0, 3, 0, 4, 0, 5, 0, 6, 0, 7, 0, 0,
 511                 };
 512                 struct device_node *io_unit, *sbi = dp->parent;
 513                 const struct linux_prom_registers *regs;
 514                 int board, slot;
 515
 516                 while (sbi) {
 517                         if (!strcmp(sbi->name, "sbi"))
 518                                 break;
 519
 520                         sbi = sbi->parent;
 521                 }
 522                 if (!sbi)
 523                         goto build_resources;
 524
 525                 regs = of_get_property(dp, "reg", NULL);
 526                 if (!regs)
 527                         goto build_resources;
 528
 529                 slot = regs->which_io;
 530
 531                 /* If SBI's parent is not io-unit or the io-unit lacks
 532                  * a "board#" property, something is very wrong.
 533                  */
 534                 if (!sbi->parent || strcmp(sbi->parent->name, "io-unit")) {
 535                         printk("%s: Error, parent is not io-unit.\n",
 536                                sbi->full_name);
 537                         goto build_resources;
 538                 }
 539                 io_unit = sbi->parent;
 540                 board = of_getintprop_default(io_unit, "board#", -1);
 541                 if (board == -1) {
 542                         printk("%s: Error, lacks board# property.\n",
 543                                io_unit->full_name);
 544                         goto build_resources;
 545                 }
 546
 547                 for (i = 0; i < op->num_irqs; i++) {
 548                         int this_irq = op->irqs[i];
 549                         int sbusl = pil_to_sbus[this_irq];
 550
 551                         if (sbusl)
 552                                 this_irq = (((board + 1) << 5) +
 553                                             (sbusl << 2) +
 554                                             slot);
 555
 556                         op->irqs[i] = this_irq;
 557                 }
 558         }
 559
 560 build_resources:
 561         build_device_resources(op, parent);
 562
 563         op->dev.parent = parent;
 564         op->dev.bus = &of_platform_bus_type;
 565         if (!parent)
 566                 dev_set_name(&op->dev, "root");
 567         else
 568                 dev_set_name(&op->dev, "%08x", dp->node);
 569
 570         if (of_device_register(op)) {
 571                 printk("%s: Could not register of device.\n",
 572                        dp->full_name);
 573                 kfree(op);
 574                 op = NULL;
 575         }
 576
 577         return op;
 578 }
 579
 580 static void __init scan_tree(struct device_node *dp, struct device *parent)
 581 {
 582         while (dp) {
 583                 struct of_device *op = scan_one_device(dp, parent);
 584
 585                 if (op)
 586                         scan_tree(dp->child, &op->dev);
 587
 588                 dp = dp->sibling;
 589         }
 590 }
 591
 592 static void __init scan_of_devices(void)
 593 {
 594         struct device_node *root = of_find_node_by_path("/");
 595         struct of_device *parent;
 596
 597         parent = scan_one_device(root, NULL);
 598         if (!parent)
 599                 return;
 600
 601         scan_tree(root->child, &parent->dev);
 602 }
 603
 604 static int __init of_bus_driver_init(void)
 605 {
 606         int err;
 607
 608         err = of_bus_type_init(&of_platform_bus_type, "of");
 609         if (!err)
 610                 scan_of_devices();
 611
 612         return err;
 613 }
 614
 615 postcore_initcall(of_bus_driver_init);
 616
 617 static int __init of_debug(char *str)
 618 {
 619         int val = 0;
 620
 621         get_option(&str, &val);
 622         if (val & 1)
 623                 of_resource_verbose = 1;
 624         return 1;
 625 }
 626
 627 __setup("of_debug=", of_debug);