1 // SPDX-License-Identifier: GPL-2.0-or-later
3 * Copyright (C) 2017 Josh Poimboeuf <jpoimboe@redhat.com>
7 #include <linux/objtool.h>
8 #include <asm/orc_types.h>
9 #include <objtool/objtool.h>
10 #include <objtool/warn.h>
11 #include <objtool/endianness.h>
13 static const char *reg_name(unsigned int reg
)
30 case ORC_REG_BP_INDIRECT
:
32 case ORC_REG_SP_INDIRECT
:
39 static const char *orc_type_name(unsigned int type
)
42 case UNWIND_HINT_TYPE_CALL
:
44 case UNWIND_HINT_TYPE_REGS
:
46 case UNWIND_HINT_TYPE_REGS_PARTIAL
:
47 return "regs (partial)";
53 static void print_reg(unsigned int reg
, int offset
)
55 if (reg
== ORC_REG_BP_INDIRECT
)
56 printf("(bp%+d)", offset
);
57 else if (reg
== ORC_REG_SP_INDIRECT
)
58 printf("(sp)%+d", offset
);
59 else if (reg
== ORC_REG_UNDEFINED
)
62 printf("%s%+d", reg_name(reg
), offset
);
65 int orc_dump(const char *_objname
)
67 int fd
, nr_entries
, i
, *orc_ip
= NULL
, orc_size
= 0;
68 struct orc_entry
*orc
= NULL
;
71 Elf64_Addr orc_ip_addr
= 0;
72 size_t shstrtab_idx
, strtab_idx
= 0;
78 Elf_Data
*data
, *symtab
= NULL
, *rela_orc_ip
= NULL
;
83 elf_version(EV_CURRENT
);
85 fd
= open(objname
, O_RDONLY
);
91 elf
= elf_begin(fd
, ELF_C_READ_MMAP
, NULL
);
93 WARN_ELF("elf_begin");
97 if (elf_getshdrnum(elf
, &nr_sections
)) {
98 WARN_ELF("elf_getshdrnum");
102 if (elf_getshdrstrndx(elf
, &shstrtab_idx
)) {
103 WARN_ELF("elf_getshdrstrndx");
107 for (i
= 0; i
< nr_sections
; i
++) {
108 scn
= elf_getscn(elf
, i
);
110 WARN_ELF("elf_getscn");
114 if (!gelf_getshdr(scn
, &sh
)) {
115 WARN_ELF("gelf_getshdr");
119 name
= elf_strptr(elf
, shstrtab_idx
, sh
.sh_name
);
121 WARN_ELF("elf_strptr");
125 data
= elf_getdata(scn
, NULL
);
127 WARN_ELF("elf_getdata");
131 if (!strcmp(name
, ".symtab")) {
133 } else if (!strcmp(name
, ".strtab")) {
135 } else if (!strcmp(name
, ".orc_unwind")) {
137 orc_size
= sh
.sh_size
;
138 } else if (!strcmp(name
, ".orc_unwind_ip")) {
139 orc_ip
= data
->d_buf
;
140 orc_ip_addr
= sh
.sh_addr
;
141 } else if (!strcmp(name
, ".rela.orc_unwind_ip")) {
146 if (!symtab
|| !strtab_idx
|| !orc
|| !orc_ip
)
149 if (orc_size
% sizeof(*orc
) != 0) {
150 WARN("bad .orc_unwind section size");
154 nr_entries
= orc_size
/ sizeof(*orc
);
155 for (i
= 0; i
< nr_entries
; i
++) {
157 if (!gelf_getrela(rela_orc_ip
, i
, &rela
)) {
158 WARN_ELF("gelf_getrela");
162 if (!gelf_getsym(symtab
, GELF_R_SYM(rela
.r_info
), &sym
)) {
163 WARN_ELF("gelf_getsym");
167 if (GELF_ST_TYPE(sym
.st_info
) == STT_SECTION
) {
168 scn
= elf_getscn(elf
, sym
.st_shndx
);
170 WARN_ELF("elf_getscn");
174 if (!gelf_getshdr(scn
, &sh
)) {
175 WARN_ELF("gelf_getshdr");
179 name
= elf_strptr(elf
, shstrtab_idx
, sh
.sh_name
);
181 WARN_ELF("elf_strptr");
185 name
= elf_strptr(elf
, strtab_idx
, sym
.st_name
);
187 WARN_ELF("elf_strptr");
192 printf("%s+%llx:", name
, (unsigned long long)rela
.r_addend
);
195 printf("%llx:", (unsigned long long)(orc_ip_addr
+ (i
* sizeof(int)) + orc_ip
[i
]));
201 print_reg(orc
[i
].sp_reg
, bswap_if_needed(orc
[i
].sp_offset
));
205 print_reg(orc
[i
].bp_reg
, bswap_if_needed(orc
[i
].bp_offset
));
207 printf(" type:%s end:%d\n",
208 orc_type_name(orc
[i
].type
), orc
[i
].end
);