1 /* Test program for dwarf_getscopes.
2 Copyright (C) 2005, 2014 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 <string.h>
29 #include "system.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 - 1);
129 paddr (": ", lowpc, loline);
130 if (highpc != lowpc)
131 paddr (" .. ", highpc - 1, hiline == loline ? NULL : hiline);
132 }
133 puts ("");
134
135 print_vars (indent + INDENT, die);
136 }
137 free (scopes);
138 }
139 }
140
141 int
main(int argc,char * argv[])142 main (int argc, char *argv[])
143 {
144 int remaining;
145
146 /* Set locale. */
147 (void) setlocale (LC_ALL, "");
148
149 Dwfl *dwfl = NULL;
150 (void) argp_parse (dwfl_standard_argp (), argc, argv, 0, &remaining, &dwfl);
151 assert (dwfl != NULL);
152
153 int result = 0;
154
155 /* Now handle the addresses. In case none are given on the command
156 line, read from stdin. */
157 if (remaining == argc)
158 {
159 /* We use no threads here which can interfere with handling a stream. */
160 (void) __fsetlocking (stdin, FSETLOCKING_BYCALLER);
161
162 char *buf = NULL;
163 size_t len = 0;
164 while (!feof_unlocked (stdin))
165 {
166 if (getline (&buf, &len, stdin) < 0)
167 break;
168
169 char *endp;
170 uintmax_t addr = strtoumax (buf, &endp, 0);
171 if (endp != buf)
172 handle_address (addr, dwfl);
173 else
174 result = 1;
175 }
176
177 free (buf);
178 }
179 else
180 {
181 do
182 {
183 char *endp;
184 uintmax_t addr = strtoumax (argv[remaining], &endp, 0);
185 if (endp != argv[remaining])
186 handle_address (addr, dwfl);
187 else
188 result = 1;
189 }
190 while (++remaining < argc);
191 }
192
193 dwfl_end (dwfl);
194
195 return result;
196 }
197