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