1 /* Copyright (C) 2013 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(dw)
24 #include ELFUTILS_HEADER(dwfl)
25 #include <dwarf.h>
26 #include <argp.h>
27 #include <stdio.h>
28 #include <stdlib.h>
29 #include <string.h>
30 #include "system.h"
31
32 int
main(int argc,char * argv[])33 main (int argc, char *argv[])
34 {
35 int cnt;
36
37 Dwfl *dwfl = NULL;
38 (void) argp_parse (dwfl_standard_argp (), argc, argv, 0, &cnt, &dwfl);
39 assert (dwfl != NULL);
40
41 Dwarf_Die *cu = NULL;
42 Dwarf_Addr bias;
43 do
44 {
45 cu = dwfl_nextcu (dwfl, cu, &bias);
46 if (cu != NULL)
47 {
48 Dwfl_Module *mod = dwfl_cumodule (cu);
49 const char *modname = (dwfl_module_info (mod, NULL, NULL, NULL,
50 NULL, NULL, NULL, NULL)
51 ?: "<unknown>");
52 const char *cuname = (dwarf_diename (cu) ?: "<unknown>");
53
54 printf ("mod: %s CU: [%" PRIx64 "] %s\n", modname,
55 dwarf_dieoffset (cu), cuname);
56
57 size_t lines;
58 if (dwfl_getsrclines (cu, &lines) != 0)
59 continue; // No lines...
60
61 for (size_t i = 0; i < lines; i++)
62 {
63 Dwfl_Line *line = dwfl_onesrcline (cu, i);
64
65 Dwarf_Addr addr;
66 int lineno;
67 int colno;
68 Dwarf_Word mtime;
69 Dwarf_Word length;
70 const char *src = dwfl_lineinfo (line, &addr, &lineno, &colno,
71 &mtime, &length);
72
73 Dwarf_Addr dw_bias;
74 Dwarf_Line *dw_line = dwfl_dwarf_line (line, &dw_bias);
75 assert (bias == dw_bias);
76
77 Dwarf_Addr dw_addr;
78 if (dwarf_lineaddr (dw_line, &dw_addr) != 0)
79 error (EXIT_FAILURE, 0, "dwarf_lineaddr: %s",
80 dwarf_errmsg (-1));
81 assert (addr == dw_addr + dw_bias);
82
83 unsigned int dw_op_index;
84 if (dwarf_lineop_index (dw_line, &dw_op_index) != 0)
85 error (EXIT_FAILURE, 0, "dwarf_lineop_index: %s",
86 dwarf_errmsg (-1));
87
88 int dw_lineno;
89 if (dwarf_lineno (dw_line, &dw_lineno) != 0)
90 error (EXIT_FAILURE, 0, "dwarf_lineno: %s",
91 dwarf_errmsg (-1));
92 assert (lineno == dw_lineno);
93
94 int dw_colno;
95 if (dwarf_linecol (dw_line, &dw_colno) != 0)
96 error (EXIT_FAILURE, 0, "dwarf_lineno: %s",
97 dwarf_errmsg (-1));
98 assert (colno == dw_colno);
99
100 bool begin;
101 if (dwarf_linebeginstatement (dw_line, &begin) != 0)
102 error (EXIT_FAILURE, 0, "dwarf_linebeginstatement: %s",
103 dwarf_errmsg (-1));
104
105 bool end;
106 if (dwarf_lineendsequence (dw_line, &end) != 0)
107 error (EXIT_FAILURE, 0, "dwarf_lineendsequence: %s",
108 dwarf_errmsg (-1));
109
110 bool pend;
111 if (dwarf_lineprologueend (dw_line, &pend) != 0)
112 error (EXIT_FAILURE, 0, "dwarf_lineprologueend: %s",
113 dwarf_errmsg (-1));
114
115 bool ebegin;
116 if (dwarf_lineepiloguebegin (dw_line, &ebegin) != 0)
117 error (EXIT_FAILURE, 0, "dwarf_lineepiloguebegin: %s",
118 dwarf_errmsg (-1));
119
120 bool block;
121 if (dwarf_lineblock (dw_line, &block) != 0)
122 error (EXIT_FAILURE, 0, "dwarf_lineblock: %s",
123 dwarf_errmsg (-1));
124
125 unsigned int isa;
126 if (dwarf_lineisa (dw_line, &isa) != 0)
127 error (EXIT_FAILURE, 0, "dwarf_lineisa: %s",
128 dwarf_errmsg (-1));
129
130 unsigned int disc;
131 if (dwarf_linediscriminator (dw_line, &disc) != 0)
132 error (EXIT_FAILURE, 0, "dwarf_linediscriminator: %s",
133 dwarf_errmsg (-1));
134
135 const char *dw_src;
136 Dwarf_Word dw_mtime;
137 Dwarf_Word dw_length;
138 dw_src = dwarf_linesrc (dw_line, &dw_mtime, &dw_length);
139 assert (strcmp (src, dw_src) == 0);
140 assert (mtime == dw_mtime);
141 assert (length == dw_length);
142
143 printf ("%zd %#" PRIx64 " %s:%d:%d\n"
144 " time: %#" PRIX64 ", len: %" PRIu64
145 ", idx: %d, b: %d, e: %d"
146 ", pe: %d, eb: %d, block: %d"
147 ", isa: %d, disc: %d\n",
148 i, addr, src, lineno, colno, mtime, length,
149 dw_op_index, begin, end, pend, ebegin, block, isa, disc);
150
151 Dwarf_Die *linecu = dwfl_linecu (line);
152 assert (cu == linecu);
153
154 Dwfl_Module *linemod = dwfl_linemodule (line);
155 assert (mod == linemod);
156 }
157 }
158 }
159 while (cu != NULL);
160
161 dwfl_end (dwfl);
162
163 return 0;
164 }
165