arch/ppc64/kernel/pmac_feature.c

   1 /*
   2  *  arch/ppc/platforms/pmac_feature.c
   3  *
   4  *  Copyright (C) 1996-2001 Paul Mackerras (paulus@cs.anu.edu.au)
   5  *                          Ben. Herrenschmidt (benh@kernel.crashing.org)
   6  *
   7  *  This program is free software; you can redistribute it and/or
   8  *  modify it under the terms of the GNU General Public License
   9  *  as published by the Free Software Foundation; either version
  10  *  2 of the License, or (at your option) any later version.
  11  *
  12  *  TODO:
  13  *
  14  *   - Replace mdelay with some schedule loop if possible
  15  *   - Shorten some obfuscated delays on some routines (like modem
  16  *     power)
  17  *   - Refcount some clocks (see darwin)
  18  *   - Split split split...
  19  *
  20  */
  21 #include <linux/config.h>
  22 #include <linux/types.h>
  23 #include <linux/init.h>
  24 #include <linux/delay.h>
  25 #include <linux/kernel.h>
  26 #include <linux/sched.h>
  27 #include <linux/spinlock.h>
  28 #include <linux/adb.h>
  29 #include <linux/pmu.h>
  30 #include <linux/ioport.h>
  31 #include <linux/pci.h>
  32 #include <asm/sections.h>
  33 #include <asm/errno.h>
  34 #include <asm/keylargo.h>
  35 #include <asm/uninorth.h>
  36 #include <asm/io.h>
  37 #include <asm/prom.h>
  38 #include <asm/machdep.h>
  39 #include <asm/pmac_feature.h>
  40 #include <asm/dbdma.h>
  41 #include <asm/pci-bridge.h>
  42 #include <asm/pmac_low_i2c.h>
  43
  44 #undef DEBUG_FEATURE
  45
  46 #ifdef DEBUG_FEATURE
  47 #define DBG(fmt...) printk(KERN_DEBUG fmt)
  48 #else
  49 #define DBG(fmt...)
  50 #endif
  51
  52 /*
  53  * We use a single global lock to protect accesses. Each driver has
  54  * to take care of its own locking
  55  */
  56 static DEFINE_SPINLOCK(feature_lock  __pmacdata);
  57
  58 #define LOCK(flags)     spin_lock_irqsave(&feature_lock, flags);
  59 #define UNLOCK(flags)   spin_unlock_irqrestore(&feature_lock, flags);
  60
  61
  62 /*
  63  * Instance of some macio stuffs
  64  */
  65 struct macio_chip macio_chips[MAX_MACIO_CHIPS]  __pmacdata;
  66
  67 struct macio_chip* __pmac
  68 macio_find(struct device_node* child, int type)
  69 {
  70         while(child) {
  71                 int     i;
  72
  73                 for (i=0; i < MAX_MACIO_CHIPS && macio_chips[i].of_node; i++)
  74                         if (child == macio_chips[i].of_node &&
  75                             (!type || macio_chips[i].type == type))
  76                                 return &macio_chips[i];
  77                 child = child->parent;
  78         }
  79         return NULL;
  80 }
  81
  82 static const char* macio_names[] __pmacdata =
  83 {
  84         "Unknown",
  85         "Grand Central",
  86         "OHare",
  87         "OHareII",
  88         "Heathrow",
  89         "Gatwick",
  90         "Paddington",
  91         "Keylargo",
  92         "Pangea",
  93         "Intrepid",
  94         "K2"
  95 };
  96
  97
  98
  99 /*
 100  * Uninorth reg. access. Note that Uni-N regs are big endian
 101  */
 102
 103 #define UN_REG(r)       (uninorth_base + ((r) >> 2))
 104 #define UN_IN(r)        (in_be32(UN_REG(r)))
 105 #define UN_OUT(r,v)     (out_be32(UN_REG(r), (v)))
 106 #define UN_BIS(r,v)     (UN_OUT((r), UN_IN(r) | (v)))
 107 #define UN_BIC(r,v)     (UN_OUT((r), UN_IN(r) & ~(v)))
 108
 109 static struct device_node* uninorth_node __pmacdata;
 110 static u32* uninorth_base __pmacdata;
 111 static u32 uninorth_rev __pmacdata;
 112 static void *u3_ht;
 113
 114 extern struct device_node *k2_skiplist[2];
 115
 116 /*
 117  * For each motherboard family, we have a table of functions pointers
 118  * that handle the various features.
 119  */
 120
 121 typedef long (*feature_call)(struct device_node* node, long param, long value);
 122
 123 struct feature_table_entry {
 124         unsigned int    selector;
 125         feature_call    function;
 126 };
 127
 128 struct pmac_mb_def
 129 {
 130         const char*                     model_string;
 131         const char*                     model_name;
 132         int                             model_id;
 133         struct feature_table_entry*     features;
 134         unsigned long                   board_flags;
 135 };
 136 static struct pmac_mb_def pmac_mb __pmacdata;
 137
 138 /*
 139  * Here are the chip specific feature functions
 140  */
 141
 142
 143 static long __pmac g5_read_gpio(struct device_node* node, long param, long value)
 144 {
 145         struct macio_chip* macio = &macio_chips[0];
 146
 147         return MACIO_IN8(param);
 148 }
 149
 150
 151 static long __pmac g5_write_gpio(struct device_node* node, long param, long value)
 152 {
 153         struct macio_chip* macio = &macio_chips[0];
 154
 155         MACIO_OUT8(param, (u8)(value & 0xff));
 156         return 0;
 157 }
 158
 159 static long __pmac g5_gmac_enable(struct device_node* node, long param, long value)
 160 {
 161         struct macio_chip* macio = &macio_chips[0];
 162         unsigned long flags;
 163
 164         if (node == NULL)
 165                 return -ENODEV;
 166
 167         LOCK(flags);
 168         if (value) {
 169                 MACIO_BIS(KEYLARGO_FCR1, K2_FCR1_GMAC_CLK_ENABLE);
 170                 mb();
 171                 k2_skiplist[0] = NULL;
 172         } else {
 173                 k2_skiplist[0] = node;
 174                 mb();
 175                 MACIO_BIC(KEYLARGO_FCR1, K2_FCR1_GMAC_CLK_ENABLE);
 176         }
 177
 178         UNLOCK(flags);
 179         mdelay(1);
 180
 181         return 0;
 182 }
 183
 184 static long __pmac g5_fw_enable(struct device_node* node, long param, long value)
 185 {
 186         struct macio_chip* macio = &macio_chips[0];
 187         unsigned long flags;
 188
 189         if (node == NULL)
 190                 return -ENODEV;
 191
 192         LOCK(flags);
 193         if (value) {
 194                 MACIO_BIS(KEYLARGO_FCR1, K2_FCR1_FW_CLK_ENABLE);
 195                 mb();
 196                 k2_skiplist[1] = NULL;
 197         } else {
 198                 k2_skiplist[1] = node;
 199                 mb();
 200                 MACIO_BIC(KEYLARGO_FCR1, K2_FCR1_FW_CLK_ENABLE);
 201         }
 202
 203         UNLOCK(flags);
 204         mdelay(1);
 205
 206         return 0;
 207 }
 208
 209 static long __pmac g5_mpic_enable(struct device_node* node, long param, long value)
 210 {
 211         unsigned long flags;
 212
 213         if (node->parent == NULL || strcmp(node->parent->name, "u3"))
 214                 return 0;
 215
 216         LOCK(flags);
 217         UN_BIS(U3_TOGGLE_REG, U3_MPIC_RESET | U3_MPIC_OUTPUT_ENABLE);
 218         UNLOCK(flags);
 219
 220         return 0;
 221 }
 222
 223 #ifdef CONFIG_SMP
 224 static long __pmac g5_reset_cpu(struct device_node* node, long param, long value)
 225 {
 226         unsigned int reset_io = 0;
 227         unsigned long flags;
 228         struct macio_chip* macio;
 229         struct device_node* np;
 230
 231         macio = &macio_chips[0];
 232         if (macio->type != macio_keylargo2)
 233                 return -ENODEV;
 234
 235         np = find_path_device("/cpus");
 236         if (np == NULL)
 237                 return -ENODEV;
 238         for (np = np->child; np != NULL; np = np->sibling) {
 239                 u32* num = (u32 *)get_property(np, "reg", NULL);
 240                 u32* rst = (u32 *)get_property(np, "soft-reset", NULL);
 241                 if (num == NULL || rst == NULL)
 242                         continue;
 243                 if (param == *num) {
 244                         reset_io = *rst;
 245                         break;
 246                 }
 247         }
 248         if (np == NULL || reset_io == 0)
 249                 return -ENODEV;
 250
 251         LOCK(flags);
 252         MACIO_OUT8(reset_io, KEYLARGO_GPIO_OUTPUT_ENABLE);
 253         (void)MACIO_IN8(reset_io);
 254         udelay(1);
 255         MACIO_OUT8(reset_io, 0);
 256         (void)MACIO_IN8(reset_io);
 257         UNLOCK(flags);
 258
 259         return 0;
 260 }
 261 #endif /* CONFIG_SMP */
 262
 263 /*
 264  * This can be called from pmac_smp so isn't static
 265  *
 266  * This takes the second CPU off the bus on dual CPU machines
 267  * running UP
 268  */
 269 void __pmac g5_phy_disable_cpu1(void)
 270 {
 271         UN_OUT(U3_API_PHY_CONFIG_1, 0);
 272 }
 273
 274 static long __pmac generic_get_mb_info(struct device_node* node, long param, long value)
 275 {
 276         switch(param) {
 277                 case PMAC_MB_INFO_MODEL:
 278                         return pmac_mb.model_id;
 279                 case PMAC_MB_INFO_FLAGS:
 280                         return pmac_mb.board_flags;
 281                 case PMAC_MB_INFO_NAME:
 282                         /* hack hack hack... but should work */
 283                         *((const char **)value) = pmac_mb.model_name;
 284                         return 0;
 285         }
 286         return -EINVAL;
 287 }
 288
 289
 290 /*
 291  * Table definitions
 292  */
 293
 294 /* Used on any machine
 295  */
 296 static struct feature_table_entry any_features[]  __pmacdata = {
 297         { PMAC_FTR_GET_MB_INFO,         generic_get_mb_info },
 298         { 0, NULL }
 299 };
 300
 301 /* G5 features
 302  */
 303 static struct feature_table_entry g5_features[]  __pmacdata = {
 304         { PMAC_FTR_GMAC_ENABLE,         g5_gmac_enable },
 305         { PMAC_FTR_1394_ENABLE,         g5_fw_enable },
 306         { PMAC_FTR_ENABLE_MPIC,         g5_mpic_enable },
 307         { PMAC_FTR_READ_GPIO,           g5_read_gpio },
 308         { PMAC_FTR_WRITE_GPIO,          g5_write_gpio },
 309 #ifdef CONFIG_SMP
 310         { PMAC_FTR_RESET_CPU,           g5_reset_cpu },
 311 #endif /* CONFIG_SMP */
 312         { 0, NULL }
 313 };
 314
 315 static struct pmac_mb_def pmac_mb_defs[] __pmacdata = {
 316         {       "PowerMac7,2",                  "PowerMac G5",
 317                 PMAC_TYPE_POWERMAC_G5,          g5_features,
 318                 0,
 319         },
 320         {       "PowerMac7,3",                  "PowerMac G5",
 321                 PMAC_TYPE_POWERMAC_G5,          g5_features,
 322                 0,
 323         },
 324         {       "RackMac3,1",                   "XServe G5",
 325                 PMAC_TYPE_POWERMAC_G5,          g5_features,
 326                 0,
 327         },
 328 };
 329
 330 /*
 331  * The toplevel feature_call callback
 332  */
 333 long __pmac pmac_do_feature_call(unsigned int selector, ...)
 334 {
 335         struct device_node* node;
 336         long param, value;
 337         int i;
 338         feature_call func = NULL;
 339         va_list args;
 340
 341         if (pmac_mb.features)
 342                 for (i=0; pmac_mb.features[i].function; i++)
 343                         if (pmac_mb.features[i].selector == selector) {
 344                                 func = pmac_mb.features[i].function;
 345                                 break;
 346                         }
 347         if (!func)
 348                 for (i=0; any_features[i].function; i++)
 349                         if (any_features[i].selector == selector) {
 350                                 func = any_features[i].function;
 351                                 break;
 352                         }
 353         if (!func)
 354                 return -ENODEV;
 355
 356         va_start(args, selector);
 357         node = (struct device_node*)va_arg(args, void*);
 358         param = va_arg(args, long);
 359         value = va_arg(args, long);
 360         va_end(args);
 361
 362         return func(node, param, value);
 363 }
 364
 365 static int __init probe_motherboard(void)
 366 {
 367         int i;
 368         struct macio_chip* macio = &macio_chips[0];
 369         const char* model = NULL;
 370         struct device_node *dt;
 371
 372         /* Lookup known motherboard type in device-tree. First try an
 373          * exact match on the "model" property, then try a "compatible"
 374          * match is none is found.
 375          */
 376         dt = find_devices("device-tree");
 377         if (dt != NULL)
 378                 model = (const char *) get_property(dt, "model", NULL);
 379         for(i=0; model && i<(sizeof(pmac_mb_defs)/sizeof(struct pmac_mb_def)); i++) {
 380             if (strcmp(model, pmac_mb_defs[i].model_string) == 0) {
 381                 pmac_mb = pmac_mb_defs[i];
 382                 goto found;
 383             }
 384         }
 385         for(i=0; i<(sizeof(pmac_mb_defs)/sizeof(struct pmac_mb_def)); i++) {
 386             if (machine_is_compatible(pmac_mb_defs[i].model_string)) {
 387                 pmac_mb = pmac_mb_defs[i];
 388                 goto found;
 389             }
 390         }
 391
 392         /* Fallback to selection depending on mac-io chip type */
 393         switch(macio->type) {
 394         case macio_keylargo2:
 395                 pmac_mb.model_id = PMAC_TYPE_UNKNOWN_K2;
 396                 pmac_mb.model_name = "Unknown K2-based";
 397                 pmac_mb.features = g5_features;
 398
 399         default:
 400                 return -ENODEV;
 401         }
 402 found:
 403         /* Check for "mobile" machine */
 404         if (model && (strncmp(model, "PowerBook", 9) == 0
 405                    || strncmp(model, "iBook", 5) == 0))
 406                 pmac_mb.board_flags |= PMAC_MB_MOBILE;
 407
 408
 409         printk(KERN_INFO "PowerMac motherboard: %s\n", pmac_mb.model_name);
 410         return 0;
 411 }
 412
 413 /* Initialize the Core99 UniNorth host bridge and memory controller
 414  */
 415 static void __init probe_uninorth(void)
 416 {
 417         uninorth_node = of_find_node_by_name(NULL, "u3");
 418         if (uninorth_node && uninorth_node->n_addrs > 0) {
 419                 /* Small hack until I figure out if parsing in prom.c is correct. I should
 420                  * get rid of those pre-parsed junk anyway
 421                  */
 422                 unsigned long address = uninorth_node->addrs[0].address;
 423                 uninorth_base = ioremap(address, 0x40000);
 424                 uninorth_rev = in_be32(UN_REG(UNI_N_VERSION));
 425                 u3_ht = ioremap(address + U3_HT_CONFIG_BASE, 0x1000);
 426         } else
 427                 uninorth_node = NULL;
 428
 429         if (!uninorth_node)
 430                 return;
 431
 432         printk(KERN_INFO "Found U3 memory controller & host bridge, revision: %d\n",
 433                uninorth_rev);
 434         printk(KERN_INFO "Mapped at 0x%08lx\n", (unsigned long)uninorth_base);
 435
 436 }
 437
 438 static void __init probe_one_macio(const char* name, const char* compat, int type)
 439 {
 440         struct device_node*     node;
 441         int                     i;
 442         volatile u32*           base;
 443         u32*                    revp;
 444
 445         node = find_devices(name);
 446         if (!node || !node->n_addrs)
 447                 return;
 448         if (compat)
 449                 do {
 450                         if (device_is_compatible(node, compat))
 451                                 break;
 452                         node = node->next;
 453                 } while (node);
 454         if (!node)
 455                 return;
 456         for(i=0; i<MAX_MACIO_CHIPS; i++) {
 457                 if (!macio_chips[i].of_node)
 458                         break;
 459                 if (macio_chips[i].of_node == node)
 460                         return;
 461         }
 462         if (i >= MAX_MACIO_CHIPS) {
 463                 printk(KERN_ERR "pmac_feature: Please increase MAX_MACIO_CHIPS !\n");
 464                 printk(KERN_ERR "pmac_feature: %s skipped\n", node->full_name);
 465                 return;
 466         }
 467         base = (volatile u32*)ioremap(node->addrs[0].address, node->addrs[0].size);
 468         if (!base) {
 469                 printk(KERN_ERR "pmac_feature: Can't map mac-io chip !\n");
 470                 return;
 471         }
 472         if (type == macio_keylargo) {
 473                 u32* did = (u32 *)get_property(node, "device-id", NULL);
 474                 if (*did == 0x00000025)
 475                         type = macio_pangea;
 476                 if (*did == 0x0000003e)
 477                         type = macio_intrepid;
 478         }
 479         macio_chips[i].of_node  = node;
 480         macio_chips[i].type     = type;
 481         macio_chips[i].base     = base;
 482         macio_chips[i].flags    = MACIO_FLAG_SCCB_ON | MACIO_FLAG_SCCB_ON;
 483         macio_chips[i].name     = macio_names[type];
 484         revp = (u32 *)get_property(node, "revision-id", NULL);
 485         if (revp)
 486                 macio_chips[i].rev = *revp;
 487         printk(KERN_INFO "Found a %s mac-io controller, rev: %d, mapped at 0x%p\n",
 488                 macio_names[type], macio_chips[i].rev, macio_chips[i].base);
 489 }
 490
 491 static int __init
 492 probe_macios(void)
 493 {
 494         probe_one_macio("mac-io", "K2-Keylargo", macio_keylargo2);
 495
 496         macio_chips[0].lbus.index = 0;
 497         macio_chips[1].lbus.index = 1;
 498
 499         return (macio_chips[0].of_node == NULL) ? -ENODEV : 0;
 500 }
 501
 502 static void __init
 503 set_initial_features(void)
 504 {
 505         struct device_node *np;
 506
 507         if (macio_chips[0].type == macio_keylargo2) {
 508 #ifndef CONFIG_SMP
 509                 /* On SMP machines running UP, we have the second CPU eating
 510                  * bus cycles. We need to take it off the bus. This is done
 511                  * from pmac_smp for SMP kernels running on one CPU
 512                  */
 513                 np = of_find_node_by_type(NULL, "cpu");
 514                 if (np != NULL)
 515                         np = of_find_node_by_type(np, "cpu");
 516                 if (np != NULL) {
 517                         g5_phy_disable_cpu1();
 518                         of_node_put(np);
 519                 }
 520 #endif /* CONFIG_SMP */
 521                 /* Enable GMAC for now for PCI probing. It will be disabled
 522                  * later on after PCI probe
 523                  */
 524                 np = of_find_node_by_name(NULL, "ethernet");
 525                 while(np) {
 526                         if (device_is_compatible(np, "K2-GMAC"))
 527                                 g5_gmac_enable(np, 0, 1);
 528                         np = of_find_node_by_name(np, "ethernet");
 529                 }
 530
 531                 /* Enable FW before PCI probe. Will be disabled later on
 532                  * Note: We should have a batter way to check that we are
 533                  * dealing with uninorth internal cell and not a PCI cell
 534                  * on the external PCI. The code below works though.
 535                  */
 536                 np = of_find_node_by_name(NULL, "firewire");
 537                 while(np) {
 538                         if (device_is_compatible(np, "pci106b,5811")) {
 539                                 macio_chips[0].flags |= MACIO_FLAG_FW_SUPPORTED;
 540                                 g5_fw_enable(np, 0, 1);
 541                         }
 542                         np = of_find_node_by_name(np, "firewire");
 543                 }
 544         }
 545 }
 546
 547 void __init
 548 pmac_feature_init(void)
 549 {
 550         /* Detect the UniNorth memory controller */
 551         probe_uninorth();
 552
 553         /* Probe mac-io controllers */
 554         if (probe_macios()) {
 555                 printk(KERN_WARNING "No mac-io chip found\n");
 556                 return;
 557         }
 558
 559         /* Setup low-level i2c stuffs */
 560         pmac_init_low_i2c();
 561
 562         /* Probe machine type */
 563         if (probe_motherboard())
 564                 printk(KERN_WARNING "Unknown PowerMac !\n");
 565
 566         /* Set some initial features (turn off some chips that will
 567          * be later turned on)
 568          */
 569         set_initial_features();
 570 }
 571
 572 int __init pmac_feature_late_init(void)
 573 {
 574 #if 0
 575         struct device_node* np;
 576
 577         /* Request some resources late */
 578         if (uninorth_node)
 579                 request_OF_resource(uninorth_node, 0, NULL);
 580         np = find_devices("hammerhead");
 581         if (np)
 582                 request_OF_resource(np, 0, NULL);
 583         np = find_devices("interrupt-controller");
 584         if (np)
 585                 request_OF_resource(np, 0, NULL);
 586 #endif
 587         return 0;
 588 }
 589
 590 device_initcall(pmac_feature_late_init);
 591
 592 #if 0
 593 static void dump_HT_speeds(char *name, u32 cfg, u32 frq)
 594 {
 595         int     freqs[16] = { 200,300,400,500,600,800,1000,0,0,0,0,0,0,0,0,0 };
 596         int     bits[8] = { 8,16,0,32,2,4,0,0 };
 597         int     freq = (frq >> 8) & 0xf;
 598
 599         if (freqs[freq] == 0)
 600                 printk("%s: Unknown HT link frequency %x\n", name, freq);
 601         else
 602                 printk("%s: %d MHz on main link, (%d in / %d out) bits width\n",
 603                        name, freqs[freq],
 604                        bits[(cfg >> 28) & 0x7], bits[(cfg >> 24) & 0x7]);
 605 }
 606 #endif
 607
 608 void __init pmac_check_ht_link(void)
 609 {
 610 #if 0 /* Disabled for now */
 611         u32     ufreq, freq, ucfg, cfg;
 612         struct device_node *pcix_node;
 613         u8      px_bus, px_devfn;
 614         struct pci_controller *px_hose;
 615
 616         (void)in_be32(u3_ht + U3_HT_LINK_COMMAND);
 617         ucfg = cfg = in_be32(u3_ht + U3_HT_LINK_CONFIG);
 618         ufreq = freq = in_be32(u3_ht + U3_HT_LINK_FREQ);
 619         dump_HT_speeds("U3 HyperTransport", cfg, freq);
 620
 621         pcix_node = of_find_compatible_node(NULL, "pci", "pci-x");
 622         if (pcix_node == NULL) {
 623                 printk("No PCI-X bridge found\n");
 624                 return;
 625         }
 626         px_hose = pcix_node->phb;
 627         px_bus = pcix_node->busno;
 628         px_devfn = pcix_node->devfn;
 629
 630         early_read_config_dword(px_hose, px_bus, px_devfn, 0xc4, &cfg);
 631         early_read_config_dword(px_hose, px_bus, px_devfn, 0xcc, &freq);
 632         dump_HT_speeds("PCI-X HT Uplink", cfg, freq);
 633         early_read_config_dword(px_hose, px_bus, px_devfn, 0xc8, &cfg);
 634         early_read_config_dword(px_hose, px_bus, px_devfn, 0xd0, &freq);
 635         dump_HT_speeds("PCI-X HT Downlink", cfg, freq);
 636 #endif
 637 }