tests/dwfllines.c

   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 }