1 /* Copyright (C) 2005 Red Hat, Inc.
2 This file is part of elfutils.
3
4 This file is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 3 of the License, or
7 (at your option) any later version.
8
9 elfutils is distributed in the hope that it will be useful, but
10 WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
13
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
16
17 #ifdef HAVE_CONFIG_H
18 # include <config.h>
19 #endif
20
21 #include <inttypes.h>
22 #include <assert.h>
23 #include ELFUTILS_HEADER(dwfl)
24 #include <argp.h>
25 #include <stdio.h>
26 #include <locale.h>
27 #include <stdlib.h>
28 #include <string.h>
29 #include "system.h"
30
31
32 static void
print_address(Dwfl_Module * mod,Dwarf_Addr address)33 print_address (Dwfl_Module *mod, Dwarf_Addr address)
34 {
35 int n = dwfl_module_relocations (mod);
36 if (n < 0)
37 error (0, 0, "dwfl_module_relocations: %s", dwfl_errmsg (-1));
38 else if (n > 0)
39 {
40 int i = dwfl_module_relocate_address (mod, &address);
41 if (i < 0)
42 error (0, 0, "dwfl_module_relocate_address: %s", dwfl_errmsg (-1));
43 else
44 {
45 const char *modname = dwfl_module_info (mod, NULL, NULL, NULL,
46 NULL, NULL, NULL, NULL);
47 const char *secname = dwfl_module_relocation_info (mod, i, NULL);
48 if (n > 1 || secname[0] != '\0')
49 printf ("%s(%s)+%#" PRIx64, modname, secname, address);
50 else
51 printf ("%s+%#" PRIx64, modname, address);
52 return;
53 }
54 }
55
56 printf ("%#" PRIx64, address);
57 }
58
59
60 struct args
61 {
62 const char *arg;
63 char *file;
64 int line;
65 };
66
67 static int
handle_module(Dwfl_Module * mod,void ** udata,const char * modname,Dwarf_Addr base,Dwarf * dbg,Dwarf_Addr bias,void * arg)68 handle_module (Dwfl_Module *mod __attribute__ ((unused)),
69 void **udata __attribute__ ((unused)),
70 const char *modname, Dwarf_Addr base __attribute__ ((unused)),
71 Dwarf *dbg __attribute__ ((unused)),
72 Dwarf_Addr bias __attribute__ ((unused)), void *arg)
73 {
74 const struct args *const a = arg;
75
76 Dwfl_Line **lines = NULL;
77 size_t nlines = 0;
78
79 if (dwfl_module_getsrc_file (mod, a->file, a->line, 0, &lines, &nlines) == 0)
80 {
81 for (size_t inner = 0; inner < nlines; ++inner)
82 {
83 Dwarf_Addr addr;
84 int line = a->line, col = 0;
85 const char *file = dwfl_lineinfo (lines[inner], &addr, &line, &col,
86 NULL, NULL);
87 if (file != NULL)
88 {
89 printf ("%s -> ", a->arg);
90 print_address (mod, addr);
91 if (modname[0] != '\0')
92 printf (" (%s:", modname);
93 if (strcmp (file, a->file) || line != a->line || col != 0)
94 printf (" %s%s:%d", modname[0] != '\0' ? "" : "(",
95 file, line);
96 if (col != 0)
97 printf (":%d", col);
98 if (modname[0] != '\0'
99 || strcmp (file, a->file) || line != a->line || col != 0)
100 puts (")");
101 else
102 puts ("");
103 }
104 }
105 free (lines);
106 }
107
108 return DWARF_CB_OK;
109 }
110
111 int
main(int argc,char * argv[])112 main (int argc, char *argv[])
113 {
114 int cnt;
115
116 /* Set locale. */
117 (void) setlocale (LC_ALL, "");
118
119 Dwfl *dwfl = NULL;
120 (void) argp_parse (dwfl_standard_argp (), argc, argv, 0, &cnt, &dwfl);
121 assert (dwfl != NULL);
122
123 for (; cnt < argc; ++cnt)
124 {
125 struct args a = { .arg = argv[cnt] };
126
127 switch (sscanf (a.arg, "%m[^:]:%d", &a.file, &a.line))
128 {
129 default:
130 case 0:
131 printf ("ignored %s\n", argv[cnt]);
132 continue;
133 case 1:
134 a.line = 0;
135 break;
136 case 2:
137 break;
138 }
139
140 (void) dwfl_getdwarf (dwfl, &handle_module, &a, 0);
141
142 free (a.file);
143 }
144
145 dwfl_end (dwfl);
146
147 return 0;
148 }
149