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