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 <error.h> 31 32 int 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
