1 /* Test program for dwarf_getscopes.
2 Copyright (C) 2005 Red Hat, Inc.
3 This file is part of elfutils.
4
5 This file is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 3 of the License, or
8 (at your option) any later version.
9
10 elfutils is distributed in the hope that it will be useful, but
11 WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
14
15 You should have received a copy of the GNU General Public License
16 along with this program. If not, see <http://www.gnu.org/licenses/>. */
17
18 #include <config.h>
19 #include <assert.h>
20 #include <inttypes.h>
21 #include ELFUTILS_HEADER(dwfl)
22 #include <dwarf.h>
23 #include <argp.h>
24 #include <stdio.h>
25 #include <stdio_ext.h>
26 #include <locale.h>
27 #include <stdlib.h>
28 #include <error.h>
29 #include <string.h>
30
31
32 static void
paddr(const char * prefix,Dwarf_Addr addr,Dwfl_Line * line)33 paddr (const char *prefix, Dwarf_Addr addr, Dwfl_Line *line)
34 {
35 const char *src;
36 int lineno, linecol;
37 if (line != NULL
38 && (src = dwfl_lineinfo (line, &addr, &lineno, &linecol,
39 NULL, NULL)) != NULL)
40 {
41 if (linecol != 0)
42 printf ("%s%#" PRIx64 " (%s:%d:%d)",
43 prefix, addr, src, lineno, linecol);
44 else
45 printf ("%s%#" PRIx64 " (%s:%d)",
46 prefix, addr, src, lineno);
47 }
48 else
49 printf ("%s%#" PRIx64, prefix, addr);
50 }
51
52 static void
print_vars(unsigned int indent,Dwarf_Die * die)53 print_vars (unsigned int indent, Dwarf_Die *die)
54 {
55 Dwarf_Die child;
56 if (dwarf_child (die, &child) == 0)
57 do
58 switch (dwarf_tag (&child))
59 {
60 case DW_TAG_variable:
61 case DW_TAG_formal_parameter:
62 printf ("%*s%-30s[%6" PRIx64 "]\n", indent, "",
63 dwarf_diename (&child),
64 (uint64_t) dwarf_dieoffset (&child));
65 break;
66 default:
67 break;
68 }
69 while (dwarf_siblingof (&child, &child) == 0);
70
71 Dwarf_Attribute attr_mem;
72 Dwarf_Die origin;
73 if (dwarf_hasattr (die, DW_AT_abstract_origin)
74 && dwarf_formref_die (dwarf_attr (die, DW_AT_abstract_origin, &attr_mem),
75 &origin) != NULL
76 && dwarf_child (&origin, &child) == 0)
77 do
78 switch (dwarf_tag (&child))
79 {
80 case DW_TAG_variable:
81 case DW_TAG_formal_parameter:
82 printf ("%*s%s (abstract)\n", indent, "",
83 dwarf_diename (&child));
84 break;
85 default:
86 break;
87 }
88 while (dwarf_siblingof (&child, &child) == 0);
89 }
90
91
92 #define INDENT 4
93
94 static void
handle_address(GElf_Addr pc,Dwfl * dwfl)95 handle_address (GElf_Addr pc, Dwfl *dwfl)
96 {
97 Dwarf_Addr cubias;
98 Dwarf_Die *cudie = dwfl_addrdie (dwfl, pc, &cubias);
99 if (cudie == NULL)
100 error (EXIT_FAILURE, 0, "dwfl_addrdie: %s", dwfl_errmsg (-1));
101
102 Dwarf_Die *scopes;
103 int n = dwarf_getscopes (cudie, pc - cubias, &scopes);
104 if (n < 0)
105 error (EXIT_FAILURE, 0, "dwarf_getscopes: %s", dwarf_errmsg (-1));
106 else if (n == 0)
107 printf ("%#" PRIx64 ": not in any scope\n", pc);
108 else
109 {
110 printf ("%#" PRIx64 ":\n", pc);
111 unsigned int indent = 0;
112 while (n-- > 0)
113 {
114 Dwarf_Die *const die = &scopes[n];
115
116 indent += INDENT;
117 printf ("%*s%s (%#x)", indent, "",
118 dwarf_diename (die) ?: "<unnamed>",
119 dwarf_tag (die));
120
121 Dwarf_Addr lowpc, highpc;
122 if (dwarf_lowpc (die, &lowpc) == 0
123 && dwarf_highpc (die, &highpc) == 0)
124 {
125 lowpc += cubias;
126 highpc += cubias;
127 Dwfl_Line *loline = dwfl_getsrc (dwfl, lowpc);
128 Dwfl_Line *hiline = dwfl_getsrc (dwfl, highpc);
129 paddr (": ", lowpc, loline);
130 if (highpc != lowpc)
131 paddr (" .. ", lowpc, hiline == loline ? NULL : hiline);
132 }
133 puts ("");
134
135 print_vars (indent + INDENT, die);
136 }
137 }
138 }
139
140 int
main(int argc,char * argv[])141 main (int argc, char *argv[])
142 {
143 int remaining;
144
145 /* Set locale. */
146 (void) setlocale (LC_ALL, "");
147
148 Dwfl *dwfl = NULL;
149 (void) argp_parse (dwfl_standard_argp (), argc, argv, 0, &remaining, &dwfl);
150 assert (dwfl != NULL);
151
152 int result = 0;
153
154 /* Now handle the addresses. In case none are given on the command
155 line, read from stdin. */
156 if (remaining == argc)
157 {
158 /* We use no threads here which can interfere with handling a stream. */
159 (void) __fsetlocking (stdin, FSETLOCKING_BYCALLER);
160
161 char *buf = NULL;
162 size_t len = 0;
163 while (!feof_unlocked (stdin))
164 {
165 if (getline (&buf, &len, stdin) < 0)
166 break;
167
168 char *endp;
169 uintmax_t addr = strtoumax (buf, &endp, 0);
170 if (endp != buf)
171 handle_address (addr, dwfl);
172 else
173 result = 1;
174 }
175
176 free (buf);
177 }
178 else
179 {
180 do
181 {
182 char *endp;
183 uintmax_t addr = strtoumax (argv[remaining], &endp, 0);
184 if (endp != argv[remaining])
185 handle_address (addr, dwfl);
186 else
187 result = 1;
188 }
189 while (++remaining < argc);
190 }
191
192 dwfl_end (dwfl);
193
194 return result;
195 }
196