1 /* 2 * QEMU PowerPC pSeries Logical Partition (aka sPAPR) hardware System Emulator 3 * 4 * Hypercall based emulated RTAS 5 * 6 * Copyright (c) 2010-2011 David Gibson, IBM Corporation. 7 * 8 * Permission is hereby granted, free of charge, to any person obtaining a copy 9 * of this software and associated documentation files (the "Software"), to deal 10 * in the Software without restriction, including without limitation the rights 11 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 12 * copies of the Software, and to permit persons to whom the Software is 13 * furnished to do so, subject to the following conditions: 14 * 15 * The above copyright notice and this permission notice shall be included in 16 * all copies or substantial portions of the Software. 17 * 18 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 19 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 20 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 21 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 22 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 23 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN 24 * THE SOFTWARE. 25 * 26 */ 27 28 #include "qemu/osdep.h" 29 #include "qemu/log.h" 30 #include "qemu/error-report.h" 31 #include "system/system.h" 32 #include "system/device_tree.h" 33 #include "system/cpus.h" 34 #include "system/hw_accel.h" 35 #include "system/runstate.h" 36 #include "system/qtest.h" 37 #include "kvm_ppc.h" 38 39 #include "hw/ppc/spapr.h" 40 #include "hw/ppc/spapr_vio.h" 41 #include "hw/ppc/spapr_cpu_core.h" 42 #include "hw/ppc/ppc.h" 43 44 #include <libfdt.h> 45 #include "hw/ppc/spapr_drc.h" 46 #include "qemu/cutils.h" 47 #include "trace.h" 48 #include "hw/ppc/fdt.h" 49 #include "target/ppc/mmu-hash64.h" 50 #include "target/ppc/mmu-book3s-v3.h" 51 #include "migration/blocker.h" 52 #include "helper_regs.h" 53 54 static void rtas_display_character(PowerPCCPU *cpu, SpaprMachineState *spapr, 55 uint32_t token, uint32_t nargs, 56 target_ulong args, 57 uint32_t nret, target_ulong rets) 58 { 59 uint8_t c = rtas_ld(args, 0); 60 SpaprVioDevice *sdev = vty_lookup(spapr, 0); 61 62 if (!sdev) { 63 rtas_st(rets, 0, RTAS_OUT_HW_ERROR); 64 } else { 65 vty_putchars(sdev, &c, sizeof(c)); 66 rtas_st(rets, 0, RTAS_OUT_SUCCESS); 67 } 68 } 69 70 static void rtas_power_off(PowerPCCPU *cpu, SpaprMachineState *spapr, 71 uint32_t token, uint32_t nargs, target_ulong args, 72 uint32_t nret, target_ulong rets) 73 { 74 if (nargs != 2 || nret != 1) { 75 rtas_st(rets, 0, RTAS_OUT_PARAM_ERROR); 76 return; 77 } 78 qemu_system_shutdown_request(SHUTDOWN_CAUSE_GUEST_SHUTDOWN); 79 cpu_stop_current(); 80 rtas_st(rets, 0, RTAS_OUT_SUCCESS); 81 } 82 83 static void rtas_system_reboot(PowerPCCPU *cpu, SpaprMachineState *spapr, 84 uint32_t token, uint32_t nargs, 85 target_ulong args, 86 uint32_t nret, target_ulong rets) 87 { 88 if (nargs != 0 || nret != 1) { 89 rtas_st(rets, 0, RTAS_OUT_PARAM_ERROR); 90 return; 91 } 92 qemu_system_reset_request(SHUTDOWN_CAUSE_GUEST_RESET); 93 rtas_st(rets, 0, RTAS_OUT_SUCCESS); 94 } 95 96 static void rtas_query_cpu_stopped_state(PowerPCCPU *cpu_, 97 SpaprMachineState *spapr, 98 uint32_t token, uint32_t nargs, 99 target_ulong args, 100 uint32_t nret, target_ulong rets) 101 { 102 target_ulong id; 103 PowerPCCPU *cpu; 104 105 if (nargs != 1 || nret != 2) { 106 rtas_st(rets, 0, RTAS_OUT_PARAM_ERROR); 107 return; 108 } 109 110 id = rtas_ld(args, 0); 111 cpu = spapr_find_cpu(id); 112 if (cpu != NULL) { 113 CPUPPCState *env = &cpu->env; 114 if (env->quiesced) { 115 rtas_st(rets, 1, 0); 116 } else { 117 rtas_st(rets, 1, 2); 118 } 119 120 rtas_st(rets, 0, RTAS_OUT_SUCCESS); 121 return; 122 } 123 124 /* Didn't find a matching cpu */ 125 rtas_st(rets, 0, RTAS_OUT_PARAM_ERROR); 126 } 127 128 static void rtas_start_cpu(PowerPCCPU *callcpu, SpaprMachineState *spapr, 129 uint32_t token, uint32_t nargs, 130 target_ulong args, 131 uint32_t nret, target_ulong rets) 132 { 133 target_ulong id, start, r3; 134 PowerPCCPU *newcpu; 135 CPUPPCState *env; 136 target_ulong lpcr; 137 target_ulong caller_lpcr; 138 139 if (nargs != 3 || nret != 1) { 140 rtas_st(rets, 0, RTAS_OUT_PARAM_ERROR); 141 return; 142 } 143 144 id = rtas_ld(args, 0); 145 start = rtas_ld(args, 1); 146 r3 = rtas_ld(args, 2); 147 148 newcpu = spapr_find_cpu(id); 149 if (!newcpu) { 150 /* Didn't find a matching cpu */ 151 rtas_st(rets, 0, RTAS_OUT_PARAM_ERROR); 152 return; 153 } 154 155 env = &newcpu->env; 156 157 if (!CPU(newcpu)->halted) { 158 rtas_st(rets, 0, RTAS_OUT_HW_ERROR); 159 return; 160 } 161 162 cpu_synchronize_state(CPU(newcpu)); 163 164 env->msr = (1ULL << MSR_SF) | (1ULL << MSR_ME); 165 hreg_compute_hflags(env); 166 167 caller_lpcr = callcpu->env.spr[SPR_LPCR]; 168 lpcr = env->spr[SPR_LPCR]; 169 170 /* Set ILE the same way */ 171 lpcr = (lpcr & ~LPCR_ILE) | (caller_lpcr & LPCR_ILE); 172 173 /* Set AIL the same way */ 174 lpcr = (lpcr & ~LPCR_AIL) | (caller_lpcr & LPCR_AIL); 175 176 if (env->mmu_model == POWERPC_MMU_3_00) { 177 /* 178 * New cpus are expected to start in the same radix/hash mode 179 * as the existing CPUs 180 */ 181 if (ppc64_v3_radix(callcpu)) { 182 lpcr |= LPCR_UPRT | LPCR_GTSE | LPCR_HR; 183 } else { 184 lpcr &= ~(LPCR_UPRT | LPCR_GTSE | LPCR_HR); 185 } 186 env->spr[SPR_PSSCR] &= ~PSSCR_EC; 187 } 188 ppc_store_lpcr(newcpu, lpcr); 189 190 /* 191 * Set the timebase offset of the new CPU to that of the invoking 192 * CPU. This helps hotplugged CPU to have the correct timebase 193 * offset. 194 */ 195 newcpu->env.tb_env->tb_offset = callcpu->env.tb_env->tb_offset; 196 197 spapr_cpu_set_entry_state(newcpu, start, 0, r3, 0); 198 199 qemu_cpu_kick(CPU(newcpu)); 200 201 rtas_st(rets, 0, RTAS_OUT_SUCCESS); 202 } 203 204 static void rtas_stop_self(PowerPCCPU *cpu, SpaprMachineState *spapr, 205 uint32_t token, uint32_t nargs, 206 target_ulong args, 207 uint32_t nret, target_ulong rets) 208 { 209 CPUState *cs = CPU(cpu); 210 CPUPPCState *env = &cpu->env; 211 PowerPCCPUClass *pcc = POWERPC_CPU_GET_CLASS(cpu); 212 213 /* Disable Power-saving mode Exit Cause exceptions for the CPU. 214 * This could deliver an interrupt on a dying CPU and crash the 215 * guest. 216 * For the same reason, set PSSCR_EC. 217 */ 218 env->spr[SPR_PSSCR] |= PSSCR_EC; 219 env->quiesced = true; /* set "RTAS stopped" state. */ 220 ppc_maybe_interrupt(env); 221 cs->halted = 1; 222 ppc_store_lpcr(cpu, env->spr[SPR_LPCR] & ~pcc->lpcr_pm); 223 kvmppc_set_reg_ppc_online(cpu, 0); 224 cpu_exit(cs); 225 } 226 227 static void rtas_ibm_suspend_me(PowerPCCPU *cpu, SpaprMachineState *spapr, 228 uint32_t token, uint32_t nargs, 229 target_ulong args, 230 uint32_t nret, target_ulong rets) 231 { 232 CPUState *cs; 233 234 if (nargs != 0 || nret != 1) { 235 rtas_st(rets, 0, RTAS_OUT_PARAM_ERROR); 236 return; 237 } 238 239 CPU_FOREACH(cs) { 240 PowerPCCPU *c = POWERPC_CPU(cs); 241 CPUPPCState *e = &c->env; 242 if (c == cpu) { 243 continue; 244 } 245 246 /* See h_join */ 247 if (!cs->halted || (e->msr & (1ULL << MSR_EE))) { 248 rtas_st(rets, 0, H_MULTI_THREADS_ACTIVE); 249 return; 250 } 251 } 252 253 qemu_system_suspend_request(); 254 rtas_st(rets, 0, RTAS_OUT_SUCCESS); 255 } 256 257 static inline int sysparm_st(target_ulong addr, target_ulong len, 258 const void *val, uint16_t vallen) 259 { 260 hwaddr phys = ppc64_phys_to_real(addr); 261 262 if (len < 2) { 263 return RTAS_OUT_SYSPARM_PARAM_ERROR; 264 } 265 stw_be_phys(&address_space_memory, phys, vallen); 266 cpu_physical_memory_write(phys + 2, val, MIN(len - 2, vallen)); 267 return RTAS_OUT_SUCCESS; 268 } 269 270 static void rtas_ibm_get_system_parameter(PowerPCCPU *cpu, 271 SpaprMachineState *spapr, 272 uint32_t token, uint32_t nargs, 273 target_ulong args, 274 uint32_t nret, target_ulong rets) 275 { 276 PowerPCCPUClass *pcc = POWERPC_CPU_GET_CLASS(cpu); 277 MachineState *ms = MACHINE(spapr); 278 target_ulong parameter = rtas_ld(args, 0); 279 target_ulong buffer = rtas_ld(args, 1); 280 target_ulong length = rtas_ld(args, 2); 281 target_ulong ret; 282 283 switch (parameter) { 284 case RTAS_SYSPARM_SPLPAR_CHARACTERISTICS: { 285 g_autofree char *param_val = g_strdup_printf("MaxEntCap=%d," 286 "DesMem=%" PRIu64 "," 287 "DesProcs=%d," 288 "MaxPlatProcs=%d", 289 ms->smp.max_cpus, 290 ms->ram_size / MiB, 291 ms->smp.cpus, 292 ms->smp.max_cpus); 293 if (pcc->n_host_threads > 0) { 294 /* 295 * Add HostThrs property. This property is not present in PAPR but 296 * is expected by some guests to communicate the number of physical 297 * host threads per core on the system so that they can scale 298 * information which varies based on the thread configuration. 299 */ 300 g_autofree char *hostthr_val = g_strdup_printf(",HostThrs=%d", 301 pcc->n_host_threads); 302 char *old = param_val; 303 304 param_val = g_strconcat(param_val, hostthr_val, NULL); 305 g_free(old); 306 } 307 ret = sysparm_st(buffer, length, param_val, strlen(param_val) + 1); 308 break; 309 } 310 case RTAS_SYSPARM_DIAGNOSTICS_RUN_MODE: { 311 uint8_t param_val = DIAGNOSTICS_RUN_MODE_DISABLED; 312 313 ret = sysparm_st(buffer, length, ¶m_val, sizeof(param_val)); 314 break; 315 } 316 case RTAS_SYSPARM_UUID: 317 ret = sysparm_st(buffer, length, (unsigned char *)&qemu_uuid, 318 (qemu_uuid_set ? 16 : 0)); 319 break; 320 default: 321 ret = RTAS_OUT_NOT_SUPPORTED; 322 } 323 324 rtas_st(rets, 0, ret); 325 } 326 327 static void rtas_ibm_set_system_parameter(PowerPCCPU *cpu, 328 SpaprMachineState *spapr, 329 uint32_t token, uint32_t nargs, 330 target_ulong args, 331 uint32_t nret, target_ulong rets) 332 { 333 target_ulong parameter = rtas_ld(args, 0); 334 target_ulong ret = RTAS_OUT_NOT_SUPPORTED; 335 336 switch (parameter) { 337 case RTAS_SYSPARM_SPLPAR_CHARACTERISTICS: 338 case RTAS_SYSPARM_DIAGNOSTICS_RUN_MODE: 339 case RTAS_SYSPARM_UUID: 340 ret = RTAS_OUT_NOT_AUTHORIZED; 341 break; 342 } 343 344 rtas_st(rets, 0, ret); 345 } 346 347 /* Papr Section 7.4.9 ibm,configure-kernel-dump RTAS call */ 348 static void rtas_configure_kernel_dump(PowerPCCPU *cpu, 349 SpaprMachineState *spapr, 350 uint32_t token, uint32_t nargs, 351 target_ulong args, 352 uint32_t nret, target_ulong rets) 353 { 354 target_ulong cmd = rtas_ld(args, 0); 355 uint32_t ret_val; 356 357 /* Number of outputs has to be 1 */ 358 if (nret != 1) { 359 qemu_log_mask(LOG_GUEST_ERROR, 360 "FADump: ibm,configure-kernel-dump called with nret != 1.\n"); 361 rtas_st(rets, 0, RTAS_OUT_PARAM_ERROR); 362 return; 363 } 364 365 /* Number of inputs has to be 3 */ 366 if (nargs != 3) { 367 qemu_log_mask(LOG_GUEST_ERROR, 368 "FADump: ibm,configure-kernel-dump called with nargs != 3.\n"); 369 rtas_st(rets, 0, RTAS_OUT_PARAM_ERROR); 370 return; 371 } 372 373 switch (cmd) { 374 case FADUMP_CMD_REGISTER: 375 ret_val = do_fadump_register(spapr, args); 376 if (ret_val != RTAS_OUT_SUCCESS) { 377 rtas_st(rets, 0, ret_val); 378 return; 379 } 380 break; 381 case FADUMP_CMD_UNREGISTER: 382 if (spapr->fadump_dump_active) { 383 rtas_st(rets, 0, RTAS_OUT_DUMP_ACTIVE); 384 return; 385 } 386 387 spapr->fadump_registered = false; 388 spapr->fadump_dump_active = false; 389 memset(&spapr->registered_fdm, 0, sizeof(spapr->registered_fdm)); 390 break; 391 case FADUMP_CMD_INVALIDATE: 392 if (!spapr->fadump_dump_active) { 393 qemu_log_mask(LOG_GUEST_ERROR, 394 "FADump: Nothing to invalidate, no dump active\n"); 395 396 rtas_st(rets, 0, RTAS_OUT_PARAM_ERROR); 397 } 398 399 spapr->fadump_registered = false; 400 spapr->fadump_dump_active = false; 401 memset(&spapr->registered_fdm, 0, sizeof(spapr->registered_fdm)); 402 break; 403 default: 404 qemu_log_mask(LOG_GUEST_ERROR, 405 "FADump: Unknown command: " TARGET_FMT_lu "\n", cmd); 406 407 rtas_st(rets, 0, RTAS_OUT_PARAM_ERROR); 408 return; 409 } 410 411 rtas_st(rets, 0, RTAS_OUT_SUCCESS); 412 } 413 414 static void rtas_ibm_os_term(PowerPCCPU *cpu, 415 SpaprMachineState *spapr, 416 uint32_t token, uint32_t nargs, 417 target_ulong args, 418 uint32_t nret, target_ulong rets) 419 { 420 target_ulong msgaddr = rtas_ld(args, 0); 421 char msg[512]; 422 423 if (spapr->fadump_registered) { 424 /* If fadump boot works, control won't come back here */ 425 return trigger_fadump_boot(spapr, rets); 426 } 427 428 cpu_physical_memory_read(msgaddr, msg, sizeof(msg) - 1); 429 msg[sizeof(msg) - 1] = 0; 430 431 error_report("OS terminated: %s", msg); 432 qemu_system_guest_panicked(NULL); 433 434 rtas_st(rets, 0, RTAS_OUT_SUCCESS); 435 } 436 437 static void rtas_set_power_level(PowerPCCPU *cpu, SpaprMachineState *spapr, 438 uint32_t token, uint32_t nargs, 439 target_ulong args, uint32_t nret, 440 target_ulong rets) 441 { 442 int32_t power_domain; 443 444 if (nargs != 2 || nret != 2) { 445 rtas_st(rets, 0, RTAS_OUT_PARAM_ERROR); 446 return; 447 } 448 449 /* we currently only use a single, "live insert" powerdomain for 450 * hotplugged/dlpar'd resources, so the power is always live/full (100) 451 */ 452 power_domain = rtas_ld(args, 0); 453 if (power_domain != -1) { 454 rtas_st(rets, 0, RTAS_OUT_NOT_SUPPORTED); 455 return; 456 } 457 458 rtas_st(rets, 0, RTAS_OUT_SUCCESS); 459 rtas_st(rets, 1, 100); 460 } 461 462 static void rtas_get_power_level(PowerPCCPU *cpu, SpaprMachineState *spapr, 463 uint32_t token, uint32_t nargs, 464 target_ulong args, uint32_t nret, 465 target_ulong rets) 466 { 467 int32_t power_domain; 468 469 if (nargs != 1 || nret != 2) { 470 rtas_st(rets, 0, RTAS_OUT_PARAM_ERROR); 471 return; 472 } 473 474 /* we currently only use a single, "live insert" powerdomain for 475 * hotplugged/dlpar'd resources, so the power is always live/full (100) 476 */ 477 power_domain = rtas_ld(args, 0); 478 if (power_domain != -1) { 479 rtas_st(rets, 0, RTAS_OUT_NOT_SUPPORTED); 480 return; 481 } 482 483 rtas_st(rets, 0, RTAS_OUT_SUCCESS); 484 rtas_st(rets, 1, 100); 485 } 486 487 static void rtas_ibm_nmi_register(PowerPCCPU *cpu, 488 SpaprMachineState *spapr, 489 uint32_t token, uint32_t nargs, 490 target_ulong args, 491 uint32_t nret, target_ulong rets) 492 { 493 hwaddr rtas_addr; 494 target_ulong sreset_addr, mce_addr; 495 496 if (spapr_get_cap(spapr, SPAPR_CAP_FWNMI) == SPAPR_CAP_OFF) { 497 rtas_st(rets, 0, RTAS_OUT_NOT_SUPPORTED); 498 return; 499 } 500 501 rtas_addr = spapr_get_rtas_addr(); 502 if (!rtas_addr) { 503 rtas_st(rets, 0, RTAS_OUT_NOT_SUPPORTED); 504 return; 505 } 506 507 sreset_addr = rtas_ld(args, 0); 508 mce_addr = rtas_ld(args, 1); 509 510 /* PAPR requires these are in the first 32M of memory and within RMA */ 511 if (sreset_addr >= 32 * MiB || sreset_addr >= spapr->rma_size || 512 mce_addr >= 32 * MiB || mce_addr >= spapr->rma_size) { 513 rtas_st(rets, 0, RTAS_OUT_PARAM_ERROR); 514 return; 515 } 516 517 if (kvm_enabled()) { 518 if (kvmppc_set_fwnmi(cpu) < 0) { 519 rtas_st(rets, 0, RTAS_OUT_NOT_SUPPORTED); 520 return; 521 } 522 } 523 524 spapr->fwnmi_system_reset_addr = sreset_addr; 525 spapr->fwnmi_machine_check_addr = mce_addr; 526 527 rtas_st(rets, 0, RTAS_OUT_SUCCESS); 528 } 529 530 static void rtas_ibm_nmi_interlock(PowerPCCPU *cpu, 531 SpaprMachineState *spapr, 532 uint32_t token, uint32_t nargs, 533 target_ulong args, 534 uint32_t nret, target_ulong rets) 535 { 536 if (spapr_get_cap(spapr, SPAPR_CAP_FWNMI) == SPAPR_CAP_OFF) { 537 rtas_st(rets, 0, RTAS_OUT_NOT_SUPPORTED); 538 return; 539 } 540 541 if (spapr->fwnmi_machine_check_addr == -1) { 542 qemu_log_mask(LOG_GUEST_ERROR, 543 "FWNMI: ibm,nmi-interlock RTAS called with FWNMI not registered.\n"); 544 545 /* NMI register not called */ 546 rtas_st(rets, 0, RTAS_OUT_PARAM_ERROR); 547 return; 548 } 549 550 if (spapr->fwnmi_machine_check_interlock != cpu->vcpu_id) { 551 /* 552 * The vCPU that hit the NMI should invoke "ibm,nmi-interlock" 553 * This should be PARAM_ERROR, but Linux calls "ibm,nmi-interlock" 554 * for system reset interrupts, despite them not being interlocked. 555 * PowerVM silently ignores this and returns success here. Returning 556 * failure causes Linux to print the error "FWNMI: nmi-interlock 557 * failed: -3", although no other apparent ill effects, this is a 558 * regression for the user when enabling FWNMI. So for now, match 559 * PowerVM. When most Linux clients are fixed, this could be 560 * changed. 561 */ 562 rtas_st(rets, 0, RTAS_OUT_SUCCESS); 563 return; 564 } 565 566 /* 567 * vCPU issuing "ibm,nmi-interlock" is done with NMI handling, 568 * hence unset fwnmi_machine_check_interlock. 569 */ 570 spapr->fwnmi_machine_check_interlock = -1; 571 qemu_cond_signal(&spapr->fwnmi_machine_check_interlock_cond); 572 rtas_st(rets, 0, RTAS_OUT_SUCCESS); 573 migrate_del_blocker(&spapr->fwnmi_migration_blocker); 574 } 575 576 static struct rtas_call { 577 const char *name; 578 spapr_rtas_fn fn; 579 } rtas_table[RTAS_TOKEN_MAX - RTAS_TOKEN_BASE]; 580 581 target_ulong spapr_rtas_call(PowerPCCPU *cpu, SpaprMachineState *spapr, 582 uint32_t token, uint32_t nargs, target_ulong args, 583 uint32_t nret, target_ulong rets) 584 { 585 if ((token >= RTAS_TOKEN_BASE) && (token < RTAS_TOKEN_MAX)) { 586 struct rtas_call *call = rtas_table + (token - RTAS_TOKEN_BASE); 587 588 if (call->fn) { 589 call->fn(cpu, spapr, token, nargs, args, nret, rets); 590 return H_SUCCESS; 591 } 592 } 593 594 /* HACK: Some Linux early debug code uses RTAS display-character, 595 * but assumes the token value is 0xa (which it is on some real 596 * machines) without looking it up in the device tree. This 597 * special case makes this work */ 598 if (token == 0xa) { 599 rtas_display_character(cpu, spapr, 0xa, nargs, args, nret, rets); 600 return H_SUCCESS; 601 } 602 603 hcall_dprintf("Unknown RTAS token 0x%x\n", token); 604 rtas_st(rets, 0, RTAS_OUT_PARAM_ERROR); 605 return H_PARAMETER; 606 } 607 608 static uint64_t qtest_rtas_call(char *cmd, uint32_t nargs, uint64_t args, 609 uint32_t nret, uint64_t rets) 610 { 611 int token; 612 613 for (token = 0; token < RTAS_TOKEN_MAX - RTAS_TOKEN_BASE; token++) { 614 if (strcmp(cmd, rtas_table[token].name) == 0) { 615 SpaprMachineState *spapr = SPAPR_MACHINE(qdev_get_machine()); 616 PowerPCCPU *cpu = POWERPC_CPU(first_cpu); 617 618 rtas_table[token].fn(cpu, spapr, token + RTAS_TOKEN_BASE, 619 nargs, args, nret, rets); 620 return H_SUCCESS; 621 } 622 } 623 return H_PARAMETER; 624 } 625 626 static bool spapr_qtest_callback(CharFrontend *chr, gchar **words) 627 { 628 if (strcmp(words[0], "rtas") == 0) { 629 uint64_t res, args, ret; 630 unsigned long nargs, nret; 631 int rc; 632 633 rc = qemu_strtoul(words[2], NULL, 0, &nargs); 634 g_assert(rc == 0); 635 rc = qemu_strtou64(words[3], NULL, 0, &args); 636 g_assert(rc == 0); 637 rc = qemu_strtoul(words[4], NULL, 0, &nret); 638 g_assert(rc == 0); 639 rc = qemu_strtou64(words[5], NULL, 0, &ret); 640 g_assert(rc == 0); 641 res = qtest_rtas_call(words[1], nargs, args, nret, ret); 642 643 qtest_sendf(chr, "OK %"PRIu64"\n", res); 644 645 return true; 646 } 647 648 return false; 649 } 650 651 void spapr_rtas_register(int token, const char *name, spapr_rtas_fn fn) 652 { 653 assert((token >= RTAS_TOKEN_BASE) && (token < RTAS_TOKEN_MAX)); 654 655 token -= RTAS_TOKEN_BASE; 656 657 assert(!name || !rtas_table[token].name); 658 659 rtas_table[token].name = name; 660 rtas_table[token].fn = fn; 661 } 662 663 void spapr_dt_rtas_tokens(void *fdt, int rtas) 664 { 665 int i; 666 667 for (i = 0; i < RTAS_TOKEN_MAX - RTAS_TOKEN_BASE; i++) { 668 struct rtas_call *call = &rtas_table[i]; 669 670 if (!call->name) { 671 continue; 672 } 673 674 _FDT(fdt_setprop_cell(fdt, rtas, call->name, i + RTAS_TOKEN_BASE)); 675 } 676 } 677 678 hwaddr spapr_get_rtas_addr(void) 679 { 680 SpaprMachineState *spapr = SPAPR_MACHINE(qdev_get_machine()); 681 int rtas_node; 682 const fdt32_t *rtas_data; 683 void *fdt = spapr->fdt_blob; 684 685 /* fetch rtas addr from fdt */ 686 rtas_node = fdt_path_offset(fdt, "/rtas"); 687 if (rtas_node < 0) { 688 return 0; 689 } 690 691 rtas_data = fdt_getprop(fdt, rtas_node, "linux,rtas-base", NULL); 692 if (!rtas_data) { 693 return 0; 694 } 695 696 /* 697 * We assume that the OS called RTAS instantiate-rtas, but some other 698 * OS might call RTAS instantiate-rtas-64 instead. This fine as of now 699 * as SLOF only supports 32-bit variant. 700 */ 701 return (hwaddr)fdt32_to_cpu(*rtas_data); 702 } 703 704 static void core_rtas_register_types(void) 705 { 706 spapr_rtas_register(RTAS_DISPLAY_CHARACTER, "display-character", 707 rtas_display_character); 708 spapr_rtas_register(RTAS_POWER_OFF, "power-off", rtas_power_off); 709 spapr_rtas_register(RTAS_SYSTEM_REBOOT, "system-reboot", 710 rtas_system_reboot); 711 spapr_rtas_register(RTAS_QUERY_CPU_STOPPED_STATE, "query-cpu-stopped-state", 712 rtas_query_cpu_stopped_state); 713 spapr_rtas_register(RTAS_START_CPU, "start-cpu", rtas_start_cpu); 714 spapr_rtas_register(RTAS_STOP_SELF, "stop-self", rtas_stop_self); 715 spapr_rtas_register(RTAS_IBM_SUSPEND_ME, "ibm,suspend-me", 716 rtas_ibm_suspend_me); 717 spapr_rtas_register(RTAS_IBM_GET_SYSTEM_PARAMETER, 718 "ibm,get-system-parameter", 719 rtas_ibm_get_system_parameter); 720 spapr_rtas_register(RTAS_IBM_SET_SYSTEM_PARAMETER, 721 "ibm,set-system-parameter", 722 rtas_ibm_set_system_parameter); 723 spapr_rtas_register(RTAS_IBM_OS_TERM, "ibm,os-term", 724 rtas_ibm_os_term); 725 spapr_rtas_register(RTAS_SET_POWER_LEVEL, "set-power-level", 726 rtas_set_power_level); 727 spapr_rtas_register(RTAS_GET_POWER_LEVEL, "get-power-level", 728 rtas_get_power_level); 729 spapr_rtas_register(RTAS_IBM_NMI_REGISTER, "ibm,nmi-register", 730 rtas_ibm_nmi_register); 731 spapr_rtas_register(RTAS_IBM_NMI_INTERLOCK, "ibm,nmi-interlock", 732 rtas_ibm_nmi_interlock); 733 734 /* Register fadump rtas call */ 735 spapr_rtas_register(RTAS_CONFIGURE_KERNEL_DUMP, "ibm,configure-kernel-dump", 736 rtas_configure_kernel_dump); 737 738 qtest_set_command_cb(spapr_qtest_callback); 739 } 740 741 type_init(core_rtas_register_types) 742