1 | #include <linux/kernel.h> |
2 | #include <elfutils/libdwfl.h> |
3 | #include "../../util/unwind-libdw.h" |
4 | #include "../../util/perf_regs.h" |
5 | #include "../../util/event.h" |
6 | #include "../../util/sample.h" |
7 | #include "dwarf-regs-table.h" |
8 | #include "perf_regs.h" |
9 | |
10 | |
11 | bool libdw__arch_set_initial_registers(Dwfl_Thread *thread, void *arg) |
12 | { |
13 | struct unwind_info *ui = arg; |
14 | struct regs_dump *user_regs = &ui->sample->user_regs; |
15 | Dwarf_Word dwarf_regs[ARRAY_SIZE(s390_dwarf_regs)]; |
16 | |
17 | #define REG(r) ({ \ |
18 | Dwarf_Word val = 0; \ |
19 | perf_reg_value(&val, user_regs, PERF_REG_S390_##r); \ |
20 | val; \ |
21 | }) |
22 | /* |
23 | * For DWARF register mapping details, |
24 | * see also perf/arch/s390/include/dwarf-regs-table.h |
25 | */ |
26 | dwarf_regs[0] = REG(R0); |
27 | dwarf_regs[1] = REG(R1); |
28 | dwarf_regs[2] = REG(R2); |
29 | dwarf_regs[3] = REG(R3); |
30 | dwarf_regs[4] = REG(R4); |
31 | dwarf_regs[5] = REG(R5); |
32 | dwarf_regs[6] = REG(R6); |
33 | dwarf_regs[7] = REG(R7); |
34 | dwarf_regs[8] = REG(R8); |
35 | dwarf_regs[9] = REG(R9); |
36 | dwarf_regs[10] = REG(R10); |
37 | dwarf_regs[11] = REG(R11); |
38 | dwarf_regs[12] = REG(R12); |
39 | dwarf_regs[13] = REG(R13); |
40 | dwarf_regs[14] = REG(R14); |
41 | dwarf_regs[15] = REG(R15); |
42 | |
43 | dwarf_regs[16] = REG(FP0); |
44 | dwarf_regs[17] = REG(FP2); |
45 | dwarf_regs[18] = REG(FP4); |
46 | dwarf_regs[19] = REG(FP6); |
47 | dwarf_regs[20] = REG(FP1); |
48 | dwarf_regs[21] = REG(FP3); |
49 | dwarf_regs[22] = REG(FP5); |
50 | dwarf_regs[23] = REG(FP7); |
51 | dwarf_regs[24] = REG(FP8); |
52 | dwarf_regs[25] = REG(FP10); |
53 | dwarf_regs[26] = REG(FP12); |
54 | dwarf_regs[27] = REG(FP14); |
55 | dwarf_regs[28] = REG(FP9); |
56 | dwarf_regs[29] = REG(FP11); |
57 | dwarf_regs[30] = REG(FP13); |
58 | dwarf_regs[31] = REG(FP15); |
59 | |
60 | dwarf_regs[64] = REG(MASK); |
61 | dwarf_regs[65] = REG(PC); |
62 | |
63 | dwfl_thread_state_register_pc(thread, dwarf_regs[65]); |
64 | return dwfl_thread_state_registers(thread, 0, 32, dwarf_regs); |
65 | } |
66 | |