1 /* 2 * Common boot and setup code for both 32-bit and 64-bit. 3 * Extracted from arch/powerpc/kernel/setup_64.c. 4 * 5 * Copyright (C) 2001 PPC64 Team, IBM Corp 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 13 #undef DEBUG 14 15 #include <linux/module.h> 16 #include <linux/string.h> 17 #include <linux/sched.h> 18 #include <linux/init.h> 19 #include <linux/kernel.h> 20 #include <linux/reboot.h> 21 #include <linux/delay.h> 22 #include <linux/initrd.h> 23 #include <linux/platform_device.h> 24 #include <linux/seq_file.h> 25 #include <linux/ioport.h> 26 #include <linux/console.h> 27 #include <linux/screen_info.h> 28 #include <linux/root_dev.h> 29 #include <linux/notifier.h> 30 #include <linux/cpu.h> 31 #include <linux/unistd.h> 32 #include <linux/serial.h> 33 #include <linux/serial_8250.h> 34 #include <linux/debugfs.h> 35 #include <linux/percpu.h> 36 #include <linux/lmb.h> 37 #include <linux/of_platform.h> 38 #include <asm/io.h> 39 #include <asm/paca.h> 40 #include <asm/prom.h> 41 #include <asm/processor.h> 42 #include <asm/vdso_datapage.h> 43 #include <asm/pgtable.h> 44 #include <asm/smp.h> 45 #include <asm/elf.h> 46 #include <asm/machdep.h> 47 #include <asm/time.h> 48 #include <asm/cputable.h> 49 #include <asm/sections.h> 50 #include <asm/firmware.h> 51 #include <asm/btext.h> 52 #include <asm/nvram.h> 53 #include <asm/setup.h> 54 #include <asm/system.h> 55 #include <asm/rtas.h> 56 #include <asm/iommu.h> 57 #include <asm/serial.h> 58 #include <asm/cache.h> 59 #include <asm/page.h> 60 #include <asm/mmu.h> 61 #include <asm/xmon.h> 62 #include <asm/cputhreads.h> 63 #include <mm/mmu_decl.h> 64 65 #include "setup.h" 66 67 #ifdef DEBUG 68 #include <asm/udbg.h> 69 #define DBG(fmt...) udbg_printf(fmt) 70 #else 71 #define DBG(fmt...) 72 #endif 73 74 /* The main machine-dep calls structure 75 */ 76 struct machdep_calls ppc_md; 77 EXPORT_SYMBOL(ppc_md); 78 struct machdep_calls *machine_id; 79 EXPORT_SYMBOL(machine_id); 80 81 unsigned long klimit = (unsigned long) _end; 82 83 char cmd_line[COMMAND_LINE_SIZE]; 84 85 /* 86 * This still seems to be needed... -- paulus 87 */ 88 struct screen_info screen_info = { 89 .orig_x = 0, 90 .orig_y = 25, 91 .orig_video_cols = 80, 92 .orig_video_lines = 25, 93 .orig_video_isVGA = 1, 94 .orig_video_points = 16 95 }; 96 97 #ifdef __DO_IRQ_CANON 98 /* XXX should go elsewhere eventually */ 99 int ppc_do_canonicalize_irqs; 100 EXPORT_SYMBOL(ppc_do_canonicalize_irqs); 101 #endif 102 103 /* also used by kexec */ 104 void machine_shutdown(void) 105 { 106 if (ppc_md.machine_shutdown) 107 ppc_md.machine_shutdown(); 108 } 109 110 void machine_restart(char *cmd) 111 { 112 machine_shutdown(); 113 if (ppc_md.restart) 114 ppc_md.restart(cmd); 115 #ifdef CONFIG_SMP 116 smp_send_stop(); 117 #endif 118 printk(KERN_EMERG "System Halted, OK to turn off power\n"); 119 local_irq_disable(); 120 while (1) ; 121 } 122 123 void machine_power_off(void) 124 { 125 machine_shutdown(); 126 if (ppc_md.power_off) 127 ppc_md.power_off(); 128 #ifdef CONFIG_SMP 129 smp_send_stop(); 130 #endif 131 printk(KERN_EMERG "System Halted, OK to turn off power\n"); 132 local_irq_disable(); 133 while (1) ; 134 } 135 /* Used by the G5 thermal driver */ 136 EXPORT_SYMBOL_GPL(machine_power_off); 137 138 void (*pm_power_off)(void) = machine_power_off; 139 EXPORT_SYMBOL_GPL(pm_power_off); 140 141 void machine_halt(void) 142 { 143 machine_shutdown(); 144 if (ppc_md.halt) 145 ppc_md.halt(); 146 #ifdef CONFIG_SMP 147 smp_send_stop(); 148 #endif 149 printk(KERN_EMERG "System Halted, OK to turn off power\n"); 150 local_irq_disable(); 151 while (1) ; 152 } 153 154 155 #ifdef CONFIG_TAU 156 extern u32 cpu_temp(unsigned long cpu); 157 extern u32 cpu_temp_both(unsigned long cpu); 158 #endif /* CONFIG_TAU */ 159 160 #ifdef CONFIG_SMP 161 DEFINE_PER_CPU(unsigned int, cpu_pvr); 162 #endif 163 164 static void show_cpuinfo_summary(struct seq_file *m) 165 { 166 struct device_node *root; 167 const char *model = NULL; 168 #if defined(CONFIG_SMP) && defined(CONFIG_PPC32) 169 unsigned long bogosum = 0; 170 int i; 171 for_each_online_cpu(i) 172 bogosum += loops_per_jiffy; 173 seq_printf(m, "total bogomips\t: %lu.%02lu\n", 174 bogosum/(500000/HZ), bogosum/(5000/HZ) % 100); 175 #endif /* CONFIG_SMP && CONFIG_PPC32 */ 176 seq_printf(m, "timebase\t: %lu\n", ppc_tb_freq); 177 if (ppc_md.name) 178 seq_printf(m, "platform\t: %s\n", ppc_md.name); 179 root = of_find_node_by_path("/"); 180 if (root) 181 model = of_get_property(root, "model", NULL); 182 if (model) 183 seq_printf(m, "model\t\t: %s\n", model); 184 of_node_put(root); 185 186 if (ppc_md.show_cpuinfo != NULL) 187 ppc_md.show_cpuinfo(m); 188 189 #ifdef CONFIG_PPC32 190 /* Display the amount of memory */ 191 seq_printf(m, "Memory\t\t: %d MB\n", 192 (unsigned int)(total_memory / (1024 * 1024))); 193 #endif 194 } 195 196 static int show_cpuinfo(struct seq_file *m, void *v) 197 { 198 unsigned long cpu_id = (unsigned long)v - 1; 199 unsigned int pvr; 200 unsigned short maj; 201 unsigned short min; 202 203 /* We only show online cpus: disable preempt (overzealous, I 204 * knew) to prevent cpu going down. */ 205 preempt_disable(); 206 if (!cpu_online(cpu_id)) { 207 preempt_enable(); 208 return 0; 209 } 210 211 #ifdef CONFIG_SMP 212 pvr = per_cpu(cpu_pvr, cpu_id); 213 #else 214 pvr = mfspr(SPRN_PVR); 215 #endif 216 maj = (pvr >> 8) & 0xFF; 217 min = pvr & 0xFF; 218 219 seq_printf(m, "processor\t: %lu\n", cpu_id); 220 seq_printf(m, "cpu\t\t: "); 221 222 if (cur_cpu_spec->pvr_mask) 223 seq_printf(m, "%s", cur_cpu_spec->cpu_name); 224 else 225 seq_printf(m, "unknown (%08x)", pvr); 226 227 #ifdef CONFIG_ALTIVEC 228 if (cpu_has_feature(CPU_FTR_ALTIVEC)) 229 seq_printf(m, ", altivec supported"); 230 #endif /* CONFIG_ALTIVEC */ 231 232 seq_printf(m, "\n"); 233 234 #ifdef CONFIG_TAU 235 if (cur_cpu_spec->cpu_features & CPU_FTR_TAU) { 236 #ifdef CONFIG_TAU_AVERAGE 237 /* more straightforward, but potentially misleading */ 238 seq_printf(m, "temperature \t: %u C (uncalibrated)\n", 239 cpu_temp(cpu_id)); 240 #else 241 /* show the actual temp sensor range */ 242 u32 temp; 243 temp = cpu_temp_both(cpu_id); 244 seq_printf(m, "temperature \t: %u-%u C (uncalibrated)\n", 245 temp & 0xff, temp >> 16); 246 #endif 247 } 248 #endif /* CONFIG_TAU */ 249 250 /* 251 * Assume here that all clock rates are the same in a 252 * smp system. -- Cort 253 */ 254 if (ppc_proc_freq) 255 seq_printf(m, "clock\t\t: %lu.%06luMHz\n", 256 ppc_proc_freq / 1000000, ppc_proc_freq % 1000000); 257 258 if (ppc_md.show_percpuinfo != NULL) 259 ppc_md.show_percpuinfo(m, cpu_id); 260 261 /* If we are a Freescale core do a simple check so 262 * we dont have to keep adding cases in the future */ 263 if (PVR_VER(pvr) & 0x8000) { 264 switch (PVR_VER(pvr)) { 265 case 0x8000: /* 7441/7450/7451, Voyager */ 266 case 0x8001: /* 7445/7455, Apollo 6 */ 267 case 0x8002: /* 7447/7457, Apollo 7 */ 268 case 0x8003: /* 7447A, Apollo 7 PM */ 269 case 0x8004: /* 7448, Apollo 8 */ 270 case 0x800c: /* 7410, Nitro */ 271 maj = ((pvr >> 8) & 0xF); 272 min = PVR_MIN(pvr); 273 break; 274 default: /* e500/book-e */ 275 maj = PVR_MAJ(pvr); 276 min = PVR_MIN(pvr); 277 break; 278 } 279 } else { 280 switch (PVR_VER(pvr)) { 281 case 0x0020: /* 403 family */ 282 maj = PVR_MAJ(pvr) + 1; 283 min = PVR_MIN(pvr); 284 break; 285 case 0x1008: /* 740P/750P ?? */ 286 maj = ((pvr >> 8) & 0xFF) - 1; 287 min = pvr & 0xFF; 288 break; 289 default: 290 maj = (pvr >> 8) & 0xFF; 291 min = pvr & 0xFF; 292 break; 293 } 294 } 295 296 seq_printf(m, "revision\t: %hd.%hd (pvr %04x %04x)\n", 297 maj, min, PVR_VER(pvr), PVR_REV(pvr)); 298 299 #ifdef CONFIG_PPC32 300 seq_printf(m, "bogomips\t: %lu.%02lu\n", 301 loops_per_jiffy / (500000/HZ), 302 (loops_per_jiffy / (5000/HZ)) % 100); 303 #endif 304 305 #ifdef CONFIG_SMP 306 seq_printf(m, "\n"); 307 #endif 308 309 preempt_enable(); 310 311 /* If this is the last cpu, print the summary */ 312 if (cpumask_next(cpu_id, cpu_online_mask) >= nr_cpu_ids) 313 show_cpuinfo_summary(m); 314 315 return 0; 316 } 317 318 static void *c_start(struct seq_file *m, loff_t *pos) 319 { 320 if (*pos == 0) /* just in case, cpu 0 is not the first */ 321 *pos = cpumask_first(cpu_online_mask); 322 else 323 *pos = cpumask_next(*pos - 1, cpu_online_mask); 324 if ((*pos) < nr_cpu_ids) 325 return (void *)(unsigned long)(*pos + 1); 326 return NULL; 327 } 328 329 static void *c_next(struct seq_file *m, void *v, loff_t *pos) 330 { 331 (*pos)++; 332 return c_start(m, pos); 333 } 334 335 static void c_stop(struct seq_file *m, void *v) 336 { 337 } 338 339 const struct seq_operations cpuinfo_op = { 340 .start =c_start, 341 .next = c_next, 342 .stop = c_stop, 343 .show = show_cpuinfo, 344 }; 345 346 void __init check_for_initrd(void) 347 { 348 #ifdef CONFIG_BLK_DEV_INITRD 349 DBG(" -> check_for_initrd() initrd_start=0x%lx initrd_end=0x%lx\n", 350 initrd_start, initrd_end); 351 352 /* If we were passed an initrd, set the ROOT_DEV properly if the values 353 * look sensible. If not, clear initrd reference. 354 */ 355 if (is_kernel_addr(initrd_start) && is_kernel_addr(initrd_end) && 356 initrd_end > initrd_start) 357 ROOT_DEV = Root_RAM0; 358 else 359 initrd_start = initrd_end = 0; 360 361 if (initrd_start) 362 printk("Found initrd at 0x%lx:0x%lx\n", initrd_start, initrd_end); 363 364 DBG(" <- check_for_initrd()\n"); 365 #endif /* CONFIG_BLK_DEV_INITRD */ 366 } 367 368 #ifdef CONFIG_SMP 369 370 int threads_per_core, threads_shift; 371 cpumask_t threads_core_mask; 372 373 static void __init cpu_init_thread_core_maps(int tpc) 374 { 375 int i; 376 377 threads_per_core = tpc; 378 threads_core_mask = CPU_MASK_NONE; 379 380 /* This implementation only supports power of 2 number of threads 381 * for simplicity and performance 382 */ 383 threads_shift = ilog2(tpc); 384 BUG_ON(tpc != (1 << threads_shift)); 385 386 for (i = 0; i < tpc; i++) 387 cpu_set(i, threads_core_mask); 388 389 printk(KERN_INFO "CPU maps initialized for %d thread%s per core\n", 390 tpc, tpc > 1 ? "s" : ""); 391 printk(KERN_DEBUG " (thread shift is %d)\n", threads_shift); 392 } 393 394 395 /** 396 * setup_cpu_maps - initialize the following cpu maps: 397 * cpu_possible_mask 398 * cpu_present_mask 399 * 400 * Having the possible map set up early allows us to restrict allocations 401 * of things like irqstacks to num_possible_cpus() rather than NR_CPUS. 402 * 403 * We do not initialize the online map here; cpus set their own bits in 404 * cpu_online_mask as they come up. 405 * 406 * This function is valid only for Open Firmware systems. finish_device_tree 407 * must be called before using this. 408 * 409 * While we're here, we may as well set the "physical" cpu ids in the paca. 410 * 411 * NOTE: This must match the parsing done in early_init_dt_scan_cpus. 412 */ 413 void __init smp_setup_cpu_maps(void) 414 { 415 struct device_node *dn = NULL; 416 int cpu = 0; 417 int nthreads = 1; 418 419 DBG("smp_setup_cpu_maps()\n"); 420 421 while ((dn = of_find_node_by_type(dn, "cpu")) && cpu < NR_CPUS) { 422 const int *intserv; 423 int j, len; 424 425 DBG(" * %s...\n", dn->full_name); 426 427 intserv = of_get_property(dn, "ibm,ppc-interrupt-server#s", 428 &len); 429 if (intserv) { 430 nthreads = len / sizeof(int); 431 DBG(" ibm,ppc-interrupt-server#s -> %d threads\n", 432 nthreads); 433 } else { 434 DBG(" no ibm,ppc-interrupt-server#s -> 1 thread\n"); 435 intserv = of_get_property(dn, "reg", NULL); 436 if (!intserv) 437 intserv = &cpu; /* assume logical == phys */ 438 } 439 440 for (j = 0; j < nthreads && cpu < NR_CPUS; j++) { 441 DBG(" thread %d -> cpu %d (hard id %d)\n", 442 j, cpu, intserv[j]); 443 set_cpu_present(cpu, true); 444 set_hard_smp_processor_id(cpu, intserv[j]); 445 set_cpu_possible(cpu, true); 446 cpu++; 447 } 448 } 449 450 /* If no SMT supported, nthreads is forced to 1 */ 451 if (!cpu_has_feature(CPU_FTR_SMT)) { 452 DBG(" SMT disabled ! nthreads forced to 1\n"); 453 nthreads = 1; 454 } 455 456 #ifdef CONFIG_PPC64 457 /* 458 * On pSeries LPAR, we need to know how many cpus 459 * could possibly be added to this partition. 460 */ 461 if (machine_is(pseries) && firmware_has_feature(FW_FEATURE_LPAR) && 462 (dn = of_find_node_by_path("/rtas"))) { 463 int num_addr_cell, num_size_cell, maxcpus; 464 const unsigned int *ireg; 465 466 num_addr_cell = of_n_addr_cells(dn); 467 num_size_cell = of_n_size_cells(dn); 468 469 ireg = of_get_property(dn, "ibm,lrdr-capacity", NULL); 470 471 if (!ireg) 472 goto out; 473 474 maxcpus = ireg[num_addr_cell + num_size_cell]; 475 476 /* Double maxcpus for processors which have SMT capability */ 477 if (cpu_has_feature(CPU_FTR_SMT)) 478 maxcpus *= nthreads; 479 480 if (maxcpus > NR_CPUS) { 481 printk(KERN_WARNING 482 "Partition configured for %d cpus, " 483 "operating system maximum is %d.\n", 484 maxcpus, NR_CPUS); 485 maxcpus = NR_CPUS; 486 } else 487 printk(KERN_INFO "Partition configured for %d cpus.\n", 488 maxcpus); 489 490 for (cpu = 0; cpu < maxcpus; cpu++) 491 set_cpu_possible(cpu, true); 492 out: 493 of_node_put(dn); 494 } 495 vdso_data->processorCount = num_present_cpus(); 496 #endif /* CONFIG_PPC64 */ 497 498 /* Initialize CPU <=> thread mapping/ 499 * 500 * WARNING: We assume that the number of threads is the same for 501 * every CPU in the system. If that is not the case, then some code 502 * here will have to be reworked 503 */ 504 cpu_init_thread_core_maps(nthreads); 505 506 free_unused_pacas(); 507 } 508 #endif /* CONFIG_SMP */ 509 510 #ifdef CONFIG_PCSPKR_PLATFORM 511 static __init int add_pcspkr(void) 512 { 513 struct device_node *np; 514 struct platform_device *pd; 515 int ret; 516 517 np = of_find_compatible_node(NULL, NULL, "pnpPNP,100"); 518 of_node_put(np); 519 if (!np) 520 return -ENODEV; 521 522 pd = platform_device_alloc("pcspkr", -1); 523 if (!pd) 524 return -ENOMEM; 525 526 ret = platform_device_add(pd); 527 if (ret) 528 platform_device_put(pd); 529 530 return ret; 531 } 532 device_initcall(add_pcspkr); 533 #endif /* CONFIG_PCSPKR_PLATFORM */ 534 535 void probe_machine(void) 536 { 537 extern struct machdep_calls __machine_desc_start; 538 extern struct machdep_calls __machine_desc_end; 539 540 /* 541 * Iterate all ppc_md structures until we find the proper 542 * one for the current machine type 543 */ 544 DBG("Probing machine type ...\n"); 545 546 for (machine_id = &__machine_desc_start; 547 machine_id < &__machine_desc_end; 548 machine_id++) { 549 DBG(" %s ...", machine_id->name); 550 memcpy(&ppc_md, machine_id, sizeof(struct machdep_calls)); 551 if (ppc_md.probe()) { 552 DBG(" match !\n"); 553 break; 554 } 555 DBG("\n"); 556 } 557 /* What can we do if we didn't find ? */ 558 if (machine_id >= &__machine_desc_end) { 559 DBG("No suitable machine found !\n"); 560 for (;;); 561 } 562 563 printk(KERN_INFO "Using %s machine description\n", ppc_md.name); 564 } 565 566 /* Match a class of boards, not a specific device configuration. */ 567 int check_legacy_ioport(unsigned long base_port) 568 { 569 struct device_node *parent, *np = NULL; 570 int ret = -ENODEV; 571 572 switch(base_port) { 573 case I8042_DATA_REG: 574 if (!(np = of_find_compatible_node(NULL, NULL, "pnpPNP,303"))) 575 np = of_find_compatible_node(NULL, NULL, "pnpPNP,f03"); 576 if (np) { 577 parent = of_get_parent(np); 578 of_node_put(np); 579 np = parent; 580 break; 581 } 582 np = of_find_node_by_type(NULL, "8042"); 583 /* Pegasos has no device_type on its 8042 node, look for the 584 * name instead */ 585 if (!np) 586 np = of_find_node_by_name(NULL, "8042"); 587 break; 588 case FDC_BASE: /* FDC1 */ 589 np = of_find_node_by_type(NULL, "fdc"); 590 break; 591 #ifdef CONFIG_PPC_PREP 592 case _PIDXR: 593 case _PNPWRP: 594 case PNPBIOS_BASE: 595 /* implement me */ 596 #endif 597 default: 598 /* ipmi is supposed to fail here */ 599 break; 600 } 601 if (!np) 602 return ret; 603 parent = of_get_parent(np); 604 if (parent) { 605 if (strcmp(parent->type, "isa") == 0) 606 ret = 0; 607 of_node_put(parent); 608 } 609 of_node_put(np); 610 return ret; 611 } 612 EXPORT_SYMBOL(check_legacy_ioport); 613 614 static int ppc_panic_event(struct notifier_block *this, 615 unsigned long event, void *ptr) 616 { 617 ppc_md.panic(ptr); /* May not return */ 618 return NOTIFY_DONE; 619 } 620 621 static struct notifier_block ppc_panic_block = { 622 .notifier_call = ppc_panic_event, 623 .priority = INT_MIN /* may not return; must be done last */ 624 }; 625 626 void __init setup_panic(void) 627 { 628 atomic_notifier_chain_register(&panic_notifier_list, &ppc_panic_block); 629 } 630 631 #ifdef CONFIG_CHECK_CACHE_COHERENCY 632 /* 633 * For platforms that have configurable cache-coherency. This function 634 * checks that the cache coherency setting of the kernel matches the setting 635 * left by the firmware, as indicated in the device tree. Since a mismatch 636 * will eventually result in DMA failures, we print * and error and call 637 * BUG() in that case. 638 */ 639 640 #ifdef CONFIG_NOT_COHERENT_CACHE 641 #define KERNEL_COHERENCY 0 642 #else 643 #define KERNEL_COHERENCY 1 644 #endif 645 646 static int __init check_cache_coherency(void) 647 { 648 struct device_node *np; 649 const void *prop; 650 int devtree_coherency; 651 652 np = of_find_node_by_path("/"); 653 prop = of_get_property(np, "coherency-off", NULL); 654 of_node_put(np); 655 656 devtree_coherency = prop ? 0 : 1; 657 658 if (devtree_coherency != KERNEL_COHERENCY) { 659 printk(KERN_ERR 660 "kernel coherency:%s != device tree_coherency:%s\n", 661 KERNEL_COHERENCY ? "on" : "off", 662 devtree_coherency ? "on" : "off"); 663 BUG(); 664 } 665 666 return 0; 667 } 668 669 late_initcall(check_cache_coherency); 670 #endif /* CONFIG_CHECK_CACHE_COHERENCY */ 671 672 #ifdef CONFIG_DEBUG_FS 673 struct dentry *powerpc_debugfs_root; 674 EXPORT_SYMBOL(powerpc_debugfs_root); 675 676 static int powerpc_debugfs_init(void) 677 { 678 powerpc_debugfs_root = debugfs_create_dir("powerpc", NULL); 679 680 return powerpc_debugfs_root == NULL; 681 } 682 arch_initcall(powerpc_debugfs_init); 683 #endif 684 685 static int ppc_dflt_bus_notify(struct notifier_block *nb, 686 unsigned long action, void *data) 687 { 688 struct device *dev = data; 689 690 /* We are only intereted in device addition */ 691 if (action != BUS_NOTIFY_ADD_DEVICE) 692 return 0; 693 694 set_dma_ops(dev, &dma_direct_ops); 695 696 return NOTIFY_DONE; 697 } 698 699 static struct notifier_block ppc_dflt_plat_bus_notifier = { 700 .notifier_call = ppc_dflt_bus_notify, 701 .priority = INT_MAX, 702 }; 703 704 static struct notifier_block ppc_dflt_of_bus_notifier = { 705 .notifier_call = ppc_dflt_bus_notify, 706 .priority = INT_MAX, 707 }; 708 709 static int __init setup_bus_notifier(void) 710 { 711 bus_register_notifier(&platform_bus_type, &ppc_dflt_plat_bus_notifier); 712 bus_register_notifier(&of_platform_bus_type, &ppc_dflt_of_bus_notifier); 713 714 return 0; 715 } 716 717 arch_initcall(setup_bus_notifier); 718