forked from Qortal/Brooklyn
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
75 lines
2.0 KiB
75 lines
2.0 KiB
// SPDX-License-Identifier: GPL-2.0 |
|
#include <elfutils/libdwfl.h> |
|
#include <linux/kernel.h> |
|
#include "../../../util/unwind-libdw.h" |
|
#include "../../../util/perf_regs.h" |
|
#include "../../../util/event.h" |
|
|
|
/* See backends/ppc_initreg.c and backends/ppc_regs.c in elfutils. */ |
|
static const int special_regs[3][2] = { |
|
{ 65, PERF_REG_POWERPC_LINK }, |
|
{ 101, PERF_REG_POWERPC_XER }, |
|
{ 109, PERF_REG_POWERPC_CTR }, |
|
}; |
|
|
|
bool libdw__arch_set_initial_registers(Dwfl_Thread *thread, void *arg) |
|
{ |
|
struct unwind_info *ui = arg; |
|
struct regs_dump *user_regs = &ui->sample->user_regs; |
|
Dwarf_Word dwarf_regs[32], dwarf_nip; |
|
size_t i; |
|
|
|
#define REG(r) ({ \ |
|
Dwarf_Word val = 0; \ |
|
perf_reg_value(&val, user_regs, PERF_REG_POWERPC_##r); \ |
|
val; \ |
|
}) |
|
|
|
dwarf_regs[0] = REG(R0); |
|
dwarf_regs[1] = REG(R1); |
|
dwarf_regs[2] = REG(R2); |
|
dwarf_regs[3] = REG(R3); |
|
dwarf_regs[4] = REG(R4); |
|
dwarf_regs[5] = REG(R5); |
|
dwarf_regs[6] = REG(R6); |
|
dwarf_regs[7] = REG(R7); |
|
dwarf_regs[8] = REG(R8); |
|
dwarf_regs[9] = REG(R9); |
|
dwarf_regs[10] = REG(R10); |
|
dwarf_regs[11] = REG(R11); |
|
dwarf_regs[12] = REG(R12); |
|
dwarf_regs[13] = REG(R13); |
|
dwarf_regs[14] = REG(R14); |
|
dwarf_regs[15] = REG(R15); |
|
dwarf_regs[16] = REG(R16); |
|
dwarf_regs[17] = REG(R17); |
|
dwarf_regs[18] = REG(R18); |
|
dwarf_regs[19] = REG(R19); |
|
dwarf_regs[20] = REG(R20); |
|
dwarf_regs[21] = REG(R21); |
|
dwarf_regs[22] = REG(R22); |
|
dwarf_regs[23] = REG(R23); |
|
dwarf_regs[24] = REG(R24); |
|
dwarf_regs[25] = REG(R25); |
|
dwarf_regs[26] = REG(R26); |
|
dwarf_regs[27] = REG(R27); |
|
dwarf_regs[28] = REG(R28); |
|
dwarf_regs[29] = REG(R29); |
|
dwarf_regs[30] = REG(R30); |
|
dwarf_regs[31] = REG(R31); |
|
if (!dwfl_thread_state_registers(thread, 0, 32, dwarf_regs)) |
|
return false; |
|
|
|
dwarf_nip = REG(NIP); |
|
dwfl_thread_state_register_pc(thread, dwarf_nip); |
|
for (i = 0; i < ARRAY_SIZE(special_regs); i++) { |
|
Dwarf_Word val = 0; |
|
perf_reg_value(&val, user_regs, special_regs[i][1]); |
|
if (!dwfl_thread_state_registers(thread, |
|
special_regs[i][0], 1, |
|
&val)) |
|
return false; |
|
} |
|
|
|
return true; |
|
}
|
|
|