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/utsname.h> 28 #include <linux/screen_info.h> 29 #include <linux/root_dev.h> 30 #include <linux/notifier.h> 31 #include <linux/cpu.h> 32 #include <linux/unistd.h> 33 #include <linux/serial.h> 34 #include <linux/serial_8250.h> 35 #include <asm/io.h> 36 #include <asm/prom.h> 37 #include <asm/processor.h> 38 #include <asm/vdso_datapage.h> 39 #include <asm/pgtable.h> 40 #include <asm/smp.h> 41 #include <asm/elf.h> 42 #include <asm/machdep.h> 43 #include <asm/time.h> 44 #include <asm/cputable.h> 45 #include <asm/sections.h> 46 #include <asm/firmware.h> 47 #include <asm/btext.h> 48 #include <asm/nvram.h> 49 #include <asm/setup.h> 50 #include <asm/system.h> 51 #include <asm/rtas.h> 52 #include <asm/iommu.h> 53 #include <asm/serial.h> 54 #include <asm/cache.h> 55 #include <asm/page.h> 56 #include <asm/mmu.h> 57 #include <asm/lmb.h> 58 #include <asm/xmon.h> 59 60 #include "setup.h" 61 62 #ifdef DEBUG 63 #include <asm/udbg.h> 64 #define DBG(fmt...) udbg_printf(fmt) 65 #else 66 #define DBG(fmt...) 67 #endif 68 69 /* The main machine-dep calls structure 70 */ 71 struct machdep_calls ppc_md; 72 EXPORT_SYMBOL(ppc_md); 73 struct machdep_calls *machine_id; 74 EXPORT_SYMBOL(machine_id); 75 76 unsigned long klimit = (unsigned long) _end; 77 78 /* 79 * This still seems to be needed... -- paulus 80 */ 81 struct screen_info screen_info = { 82 .orig_x = 0, 83 .orig_y = 25, 84 .orig_video_cols = 80, 85 .orig_video_lines = 25, 86 .orig_video_isVGA = 1, 87 .orig_video_points = 16 88 }; 89 90 #ifdef __DO_IRQ_CANON 91 /* XXX should go elsewhere eventually */ 92 int ppc_do_canonicalize_irqs; 93 EXPORT_SYMBOL(ppc_do_canonicalize_irqs); 94 #endif 95 96 /* also used by kexec */ 97 void machine_shutdown(void) 98 { 99 if (ppc_md.machine_shutdown) 100 ppc_md.machine_shutdown(); 101 } 102 103 void machine_restart(char *cmd) 104 { 105 machine_shutdown(); 106 if (ppc_md.restart) 107 ppc_md.restart(cmd); 108 #ifdef CONFIG_SMP 109 smp_send_stop(); 110 #endif 111 printk(KERN_EMERG "System Halted, OK to turn off power\n"); 112 local_irq_disable(); 113 while (1) ; 114 } 115 116 void machine_power_off(void) 117 { 118 machine_shutdown(); 119 if (ppc_md.power_off) 120 ppc_md.power_off(); 121 #ifdef CONFIG_SMP 122 smp_send_stop(); 123 #endif 124 printk(KERN_EMERG "System Halted, OK to turn off power\n"); 125 local_irq_disable(); 126 while (1) ; 127 } 128 /* Used by the G5 thermal driver */ 129 EXPORT_SYMBOL_GPL(machine_power_off); 130 131 void (*pm_power_off)(void) = machine_power_off; 132 EXPORT_SYMBOL_GPL(pm_power_off); 133 134 void machine_halt(void) 135 { 136 machine_shutdown(); 137 if (ppc_md.halt) 138 ppc_md.halt(); 139 #ifdef CONFIG_SMP 140 smp_send_stop(); 141 #endif 142 printk(KERN_EMERG "System Halted, OK to turn off power\n"); 143 local_irq_disable(); 144 while (1) ; 145 } 146 147 148 #ifdef CONFIG_TAU 149 extern u32 cpu_temp(unsigned long cpu); 150 extern u32 cpu_temp_both(unsigned long cpu); 151 #endif /* CONFIG_TAU */ 152 153 #ifdef CONFIG_SMP 154 DEFINE_PER_CPU(unsigned int, pvr); 155 #endif 156 157 static int show_cpuinfo(struct seq_file *m, void *v) 158 { 159 unsigned long cpu_id = (unsigned long)v - 1; 160 unsigned int pvr; 161 unsigned short maj; 162 unsigned short min; 163 164 if (cpu_id == NR_CPUS) { 165 #if defined(CONFIG_SMP) && defined(CONFIG_PPC32) 166 unsigned long bogosum = 0; 167 int i; 168 for_each_online_cpu(i) 169 bogosum += loops_per_jiffy; 170 seq_printf(m, "total bogomips\t: %lu.%02lu\n", 171 bogosum/(500000/HZ), bogosum/(5000/HZ) % 100); 172 #endif /* CONFIG_SMP && CONFIG_PPC32 */ 173 seq_printf(m, "timebase\t: %lu\n", ppc_tb_freq); 174 if (ppc_md.name) 175 seq_printf(m, "platform\t: %s\n", ppc_md.name); 176 if (ppc_md.show_cpuinfo != NULL) 177 ppc_md.show_cpuinfo(m); 178 179 return 0; 180 } 181 182 /* We only show online cpus: disable preempt (overzealous, I 183 * knew) to prevent cpu going down. */ 184 preempt_disable(); 185 if (!cpu_online(cpu_id)) { 186 preempt_enable(); 187 return 0; 188 } 189 190 #ifdef CONFIG_SMP 191 pvr = per_cpu(pvr, cpu_id); 192 #else 193 pvr = mfspr(SPRN_PVR); 194 #endif 195 maj = (pvr >> 8) & 0xFF; 196 min = pvr & 0xFF; 197 198 seq_printf(m, "processor\t: %lu\n", cpu_id); 199 seq_printf(m, "cpu\t\t: "); 200 201 if (cur_cpu_spec->pvr_mask) 202 seq_printf(m, "%s", cur_cpu_spec->cpu_name); 203 else 204 seq_printf(m, "unknown (%08x)", pvr); 205 206 #ifdef CONFIG_ALTIVEC 207 if (cpu_has_feature(CPU_FTR_ALTIVEC)) 208 seq_printf(m, ", altivec supported"); 209 #endif /* CONFIG_ALTIVEC */ 210 211 seq_printf(m, "\n"); 212 213 #ifdef CONFIG_TAU 214 if (cur_cpu_spec->cpu_features & CPU_FTR_TAU) { 215 #ifdef CONFIG_TAU_AVERAGE 216 /* more straightforward, but potentially misleading */ 217 seq_printf(m, "temperature \t: %u C (uncalibrated)\n", 218 cpu_temp(cpu_id)); 219 #else 220 /* show the actual temp sensor range */ 221 u32 temp; 222 temp = cpu_temp_both(cpu_id); 223 seq_printf(m, "temperature \t: %u-%u C (uncalibrated)\n", 224 temp & 0xff, temp >> 16); 225 #endif 226 } 227 #endif /* CONFIG_TAU */ 228 229 /* 230 * Assume here that all clock rates are the same in a 231 * smp system. -- Cort 232 */ 233 if (ppc_proc_freq) 234 seq_printf(m, "clock\t\t: %lu.%06luMHz\n", 235 ppc_proc_freq / 1000000, ppc_proc_freq % 1000000); 236 237 if (ppc_md.show_percpuinfo != NULL) 238 ppc_md.show_percpuinfo(m, cpu_id); 239 240 /* If we are a Freescale core do a simple check so 241 * we dont have to keep adding cases in the future */ 242 if (PVR_VER(pvr) & 0x8000) { 243 maj = PVR_MAJ(pvr); 244 min = PVR_MIN(pvr); 245 } else { 246 switch (PVR_VER(pvr)) { 247 case 0x0020: /* 403 family */ 248 maj = PVR_MAJ(pvr) + 1; 249 min = PVR_MIN(pvr); 250 break; 251 case 0x1008: /* 740P/750P ?? */ 252 maj = ((pvr >> 8) & 0xFF) - 1; 253 min = pvr & 0xFF; 254 break; 255 default: 256 maj = (pvr >> 8) & 0xFF; 257 min = pvr & 0xFF; 258 break; 259 } 260 } 261 262 seq_printf(m, "revision\t: %hd.%hd (pvr %04x %04x)\n", 263 maj, min, PVR_VER(pvr), PVR_REV(pvr)); 264 265 #ifdef CONFIG_PPC32 266 seq_printf(m, "bogomips\t: %lu.%02lu\n", 267 loops_per_jiffy / (500000/HZ), 268 (loops_per_jiffy / (5000/HZ)) % 100); 269 #endif 270 271 #ifdef CONFIG_SMP 272 seq_printf(m, "\n"); 273 #endif 274 275 preempt_enable(); 276 return 0; 277 } 278 279 static void *c_start(struct seq_file *m, loff_t *pos) 280 { 281 unsigned long i = *pos; 282 283 return i <= NR_CPUS ? (void *)(i + 1) : NULL; 284 } 285 286 static void *c_next(struct seq_file *m, void *v, loff_t *pos) 287 { 288 ++*pos; 289 return c_start(m, pos); 290 } 291 292 static void c_stop(struct seq_file *m, void *v) 293 { 294 } 295 296 struct seq_operations cpuinfo_op = { 297 .start =c_start, 298 .next = c_next, 299 .stop = c_stop, 300 .show = show_cpuinfo, 301 }; 302 303 void __init check_for_initrd(void) 304 { 305 #ifdef CONFIG_BLK_DEV_INITRD 306 DBG(" -> check_for_initrd() initrd_start=0x%lx initrd_end=0x%lx\n", 307 initrd_start, initrd_end); 308 309 /* If we were passed an initrd, set the ROOT_DEV properly if the values 310 * look sensible. If not, clear initrd reference. 311 */ 312 if (is_kernel_addr(initrd_start) && is_kernel_addr(initrd_end) && 313 initrd_end > initrd_start) 314 ROOT_DEV = Root_RAM0; 315 else 316 initrd_start = initrd_end = 0; 317 318 if (initrd_start) 319 printk("Found initrd at 0x%lx:0x%lx\n", initrd_start, initrd_end); 320 321 DBG(" <- check_for_initrd()\n"); 322 #endif /* CONFIG_BLK_DEV_INITRD */ 323 } 324 325 #ifdef CONFIG_SMP 326 327 /** 328 * setup_cpu_maps - initialize the following cpu maps: 329 * cpu_possible_map 330 * cpu_present_map 331 * cpu_sibling_map 332 * 333 * Having the possible map set up early allows us to restrict allocations 334 * of things like irqstacks to num_possible_cpus() rather than NR_CPUS. 335 * 336 * We do not initialize the online map here; cpus set their own bits in 337 * cpu_online_map as they come up. 338 * 339 * This function is valid only for Open Firmware systems. finish_device_tree 340 * must be called before using this. 341 * 342 * While we're here, we may as well set the "physical" cpu ids in the paca. 343 * 344 * NOTE: This must match the parsing done in early_init_dt_scan_cpus. 345 */ 346 void __init smp_setup_cpu_maps(void) 347 { 348 struct device_node *dn = NULL; 349 int cpu = 0; 350 351 while ((dn = of_find_node_by_type(dn, "cpu")) && cpu < NR_CPUS) { 352 const int *intserv; 353 int j, len = sizeof(u32), nthreads = 1; 354 355 intserv = of_get_property(dn, "ibm,ppc-interrupt-server#s", 356 &len); 357 if (intserv) 358 nthreads = len / sizeof(int); 359 else { 360 intserv = of_get_property(dn, "reg", NULL); 361 if (!intserv) 362 intserv = &cpu; /* assume logical == phys */ 363 } 364 365 for (j = 0; j < nthreads && cpu < NR_CPUS; j++) { 366 cpu_set(cpu, cpu_present_map); 367 set_hard_smp_processor_id(cpu, intserv[j]); 368 cpu_set(cpu, cpu_possible_map); 369 cpu++; 370 } 371 } 372 373 #ifdef CONFIG_PPC64 374 /* 375 * On pSeries LPAR, we need to know how many cpus 376 * could possibly be added to this partition. 377 */ 378 if (machine_is(pseries) && firmware_has_feature(FW_FEATURE_LPAR) && 379 (dn = of_find_node_by_path("/rtas"))) { 380 int num_addr_cell, num_size_cell, maxcpus; 381 const unsigned int *ireg; 382 383 num_addr_cell = of_n_addr_cells(dn); 384 num_size_cell = of_n_size_cells(dn); 385 386 ireg = of_get_property(dn, "ibm,lrdr-capacity", NULL); 387 388 if (!ireg) 389 goto out; 390 391 maxcpus = ireg[num_addr_cell + num_size_cell]; 392 393 /* Double maxcpus for processors which have SMT capability */ 394 if (cpu_has_feature(CPU_FTR_SMT)) 395 maxcpus *= 2; 396 397 if (maxcpus > NR_CPUS) { 398 printk(KERN_WARNING 399 "Partition configured for %d cpus, " 400 "operating system maximum is %d.\n", 401 maxcpus, NR_CPUS); 402 maxcpus = NR_CPUS; 403 } else 404 printk(KERN_INFO "Partition configured for %d cpus.\n", 405 maxcpus); 406 407 for (cpu = 0; cpu < maxcpus; cpu++) 408 cpu_set(cpu, cpu_possible_map); 409 out: 410 of_node_put(dn); 411 } 412 413 /* 414 * Do the sibling map; assume only two threads per processor. 415 */ 416 for_each_possible_cpu(cpu) { 417 cpu_set(cpu, cpu_sibling_map[cpu]); 418 if (cpu_has_feature(CPU_FTR_SMT)) 419 cpu_set(cpu ^ 0x1, cpu_sibling_map[cpu]); 420 } 421 422 vdso_data->processorCount = num_present_cpus(); 423 #endif /* CONFIG_PPC64 */ 424 } 425 #endif /* CONFIG_SMP */ 426 427 static __init int add_pcspkr(void) 428 { 429 struct device_node *np; 430 struct platform_device *pd; 431 int ret; 432 433 np = of_find_compatible_node(NULL, NULL, "pnpPNP,100"); 434 of_node_put(np); 435 if (!np) 436 return -ENODEV; 437 438 pd = platform_device_alloc("pcspkr", -1); 439 if (!pd) 440 return -ENOMEM; 441 442 ret = platform_device_add(pd); 443 if (ret) 444 platform_device_put(pd); 445 446 return ret; 447 } 448 device_initcall(add_pcspkr); 449 450 void probe_machine(void) 451 { 452 extern struct machdep_calls __machine_desc_start; 453 extern struct machdep_calls __machine_desc_end; 454 455 /* 456 * Iterate all ppc_md structures until we find the proper 457 * one for the current machine type 458 */ 459 DBG("Probing machine type ...\n"); 460 461 for (machine_id = &__machine_desc_start; 462 machine_id < &__machine_desc_end; 463 machine_id++) { 464 DBG(" %s ...", machine_id->name); 465 memcpy(&ppc_md, machine_id, sizeof(struct machdep_calls)); 466 if (ppc_md.probe()) { 467 DBG(" match !\n"); 468 break; 469 } 470 DBG("\n"); 471 } 472 /* What can we do if we didn't find ? */ 473 if (machine_id >= &__machine_desc_end) { 474 DBG("No suitable machine found !\n"); 475 for (;;); 476 } 477 478 printk(KERN_INFO "Using %s machine description\n", ppc_md.name); 479 } 480 481 /* Match a class of boards, not a specific device configuration. */ 482 int check_legacy_ioport(unsigned long base_port) 483 { 484 struct device_node *parent, *np = NULL; 485 int ret = -ENODEV; 486 487 switch(base_port) { 488 case I8042_DATA_REG: 489 np = of_find_node_by_type(NULL, "8042"); 490 break; 491 case FDC_BASE: /* FDC1 */ 492 np = of_find_node_by_type(NULL, "fdc"); 493 break; 494 #ifdef CONFIG_PPC_PREP 495 case _PIDXR: 496 case _PNPWRP: 497 case PNPBIOS_BASE: 498 /* implement me */ 499 #endif 500 default: 501 /* ipmi is supposed to fail here */ 502 break; 503 } 504 if (!np) 505 return ret; 506 parent = of_get_parent(np); 507 if (parent) { 508 if (strcmp(parent->type, "isa") == 0) 509 ret = 0; 510 of_node_put(parent); 511 } 512 of_node_put(np); 513 return ret; 514 } 515 EXPORT_SYMBOL(check_legacy_ioport); 516 517 static int ppc_panic_event(struct notifier_block *this, 518 unsigned long event, void *ptr) 519 { 520 ppc_md.panic(ptr); /* May not return */ 521 return NOTIFY_DONE; 522 } 523 524 static struct notifier_block ppc_panic_block = { 525 .notifier_call = ppc_panic_event, 526 .priority = INT_MIN /* may not return; must be done last */ 527 }; 528 529 void __init setup_panic(void) 530 { 531 atomic_notifier_chain_register(&panic_notifier_list, &ppc_panic_block); 532 } 533 534 #ifdef CONFIG_CHECK_CACHE_COHERENCY 535 /* 536 * For platforms that have configurable cache-coherency. This function 537 * checks that the cache coherency setting of the kernel matches the setting 538 * left by the firmware, as indicated in the device tree. Since a mismatch 539 * will eventually result in DMA failures, we print * and error and call 540 * BUG() in that case. 541 */ 542 543 #ifdef CONFIG_NOT_COHERENT_CACHE 544 #define KERNEL_COHERENCY 0 545 #else 546 #define KERNEL_COHERENCY 1 547 #endif 548 549 static int __init check_cache_coherency(void) 550 { 551 struct device_node *np; 552 const void *prop; 553 int devtree_coherency; 554 555 np = of_find_node_by_path("/"); 556 prop = of_get_property(np, "coherency-off", NULL); 557 of_node_put(np); 558 559 devtree_coherency = prop ? 0 : 1; 560 561 if (devtree_coherency != KERNEL_COHERENCY) { 562 printk(KERN_ERR 563 "kernel coherency:%s != device tree_coherency:%s\n", 564 KERNEL_COHERENCY ? "on" : "off", 565 devtree_coherency ? "on" : "off"); 566 BUG(); 567 } 568 569 return 0; 570 } 571 572 late_initcall(check_cache_coherency); 573 #endif /* CONFIG_CHECK_CACHE_COHERENCY */ 574