1 /*-*- Mode: C; c-basic-offset: 8; indent-tabs-mode: nil -*-*/
4 This file is part of systemd.
6 Copyright 2014 Lennart Poettering
8 systemd is free software; you can redistribute it and/or modify it
9 under the terms of the GNU Lesser General Public License as published by
10 the Free Software Foundation; either version 2.1 of the License, or
11 (at your option) any later version.
13 systemd is distributed in the hope that it will be useful, but
14 WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 Lesser General Public License for more details.
18 You should have received a copy of the GNU Lesser General Public License
19 along with systemd; If not, see <http://www.gnu.org/licenses/>.
23 #include <elfutils/libdwfl.h>
27 #include "stacktrace.h"
30 #define THREADS_MAX 64
32 struct stack_context {
40 static int frame_callback(Dwfl_Frame *frame, void *userdata) {
41 struct stack_context *c = userdata;
42 Dwarf_Addr pc, pc_adjusted, bias = 0;
43 _cleanup_free_ Dwarf_Die *scopes = NULL;
44 const char *fname = NULL, *symbol = NULL;
51 if (c->n_frame >= FRAMES_MAX)
52 return DWARF_CB_ABORT;
54 if (!dwfl_frame_pc(frame, &pc, &is_activation))
55 return DWARF_CB_ABORT;
57 pc_adjusted = pc - (is_activation ? 0 : 1);
59 module = dwfl_addrmodule(c->dwfl, pc_adjusted);
64 cudie = dwfl_module_addrdie(module, pc_adjusted, &bias);
66 n = dwarf_getscopes(cudie, pc_adjusted - bias, &scopes);
67 for (s = scopes; s < scopes + n; s++) {
68 if (IN_SET(dwarf_tag(s), DW_TAG_subprogram, DW_TAG_inlined_subroutine, DW_TAG_entry_point)) {
69 Dwarf_Attribute *a, space;
71 a = dwarf_attr_integrate(s, DW_AT_MIPS_linkage_name, &space);
73 a = dwarf_attr_integrate(s, DW_AT_linkage_name, &space);
75 symbol = dwarf_formstring(a);
77 symbol = dwarf_diename(s);
86 symbol = dwfl_module_addrname(module, pc_adjusted);
88 fname = dwfl_module_info(module, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
91 fprintf(c->f, "#%-2u 0x%016" PRIx64 " %s (%s)\n", c->n_frame, (uint64_t) pc, strna(symbol), strna(fname));
97 static int thread_callback(Dwfl_Thread *thread, void *userdata) {
98 struct stack_context *c = userdata;
104 if (c->n_thread >= THREADS_MAX)
105 return DWARF_CB_ABORT;
107 if (c->n_thread != 0)
112 tid = dwfl_thread_tid(thread);
113 fprintf(c->f, "Stack trace of thread " PID_FMT ":\n", tid);
115 if (dwfl_thread_getframes(thread, frame_callback, c) < 0)
116 return DWARF_CB_ABORT;
123 int coredump_make_stack_trace(int fd, const char *executable, char **ret) {
125 static const Dwfl_Callbacks callbacks = {
126 .find_elf = dwfl_build_id_find_elf,
127 .find_debuginfo = dwfl_standard_find_debuginfo,
130 struct stack_context c = {};
138 if (lseek(fd, 0, SEEK_SET) == (off_t) -1)
141 c.f = open_memstream(&buf, &sz);
145 elf_version(EV_CURRENT);
147 c.elf = elf_begin(fd, ELF_C_READ_MMAP, NULL);
153 c.dwfl = dwfl_begin(&callbacks);
159 if (dwfl_core_file_report(c.dwfl, c.elf, executable) < 0) {
164 if (dwfl_report_end(c.dwfl, NULL, NULL) != 0) {
169 if (dwfl_core_file_attach(c.dwfl, c.elf) < 0) {
174 if (dwfl_getthreads(c.dwfl, thread_callback, &c) < 0) {