tests/get-aranges.c

   1 /* Copyright (C) 2002, 2004 Red Hat, Inc.
   2    This file is part of elfutils.
   3    Written by Ulrich Drepper <drepper@redhat.com>, 2002.
   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 #ifdef HAVE_CONFIG_H
  19 # include <config.h>
  20 #endif
  21
  22 #include <fcntl.h>
  23 #include <libelf.h>
  24 #include ELFUTILS_HEADER(dw)
  25 #include <stdio.h>
  26 #include <unistd.h>
  27
  28
  29 static const Dwarf_Addr testaddr[] =
  30 {
  31   0x804842b, 0x804842c, 0x804843c, 0x8048459, 0x804845a,
  32   0x804845b, 0x804845c, 0x8048460, 0x8048465, 0x8048466,
  33   0x8048467, 0x8048468, 0x8048470, 0x8048471, 0x8048472
  34 };
  35 #define ntestaddr (sizeof (testaddr) / sizeof (testaddr[0]))
  36
  37
  38 int
  39 main (int argc, char *argv[])
  40 {
  41   int result = 0;
  42   int cnt;
  43
  44   for (cnt = 1; cnt < argc; ++cnt)
  45     {
  46       int fd = open (argv[cnt], O_RDONLY);
  47
  48       Dwarf *dbg = dwarf_begin (fd, DWARF_C_READ);
  49       if (dbg == NULL)
  50         {
  51           printf ("%s not usable\n", argv[cnt]);
  52           result = 1;
  53           close (fd);
  54           continue;
  55         }
  56
  57       Dwarf_Aranges *aranges;
  58       size_t naranges;
  59       if (dwarf_getaranges (dbg, &aranges, &naranges) != 0)
  60         printf ("%s: cannot get aranges\n", argv[cnt]);
  61       else
  62         {
  63           for (size_t i = 0; i < ntestaddr; ++i)
  64             {
  65               Dwarf_Arange *found;
  66
  67               found = dwarf_getarange_addr (aranges, testaddr[i]);
  68               if (found != NULL)
  69                 {
  70                   Dwarf_Off cu_offset;
  71
  72                   if (dwarf_getarangeinfo (found, NULL, NULL, &cu_offset) != 0)
  73                     {
  74                       puts ("failed to get CU die offset");
  75                       result = 1;
  76                     }
  77                   else
  78                     {
  79                       const char *cuname;
  80                       Dwarf_Die cu_die;
  81
  82                       if (dwarf_offdie (dbg, cu_offset, &cu_die) == NULL
  83                           || (cuname = dwarf_diename (&cu_die)) == NULL)
  84                         {
  85                           puts ("failed to get CU die");
  86                           result = 1;
  87                         }
  88                       else
  89                         printf ("CU name: \"%s\"\n", cuname);
  90                     }
  91                 }
  92               else
  93                 printf ("%#llx: not in range\n",
  94                         (unsigned long long int) testaddr[i]);
  95             }
  96
  97           for (size_t i = 0; i < naranges; ++i)
  98             {
  99               Dwarf_Arange *arange = dwarf_onearange (aranges, i);
 100               if (arange == NULL)
 101                 {
 102                   printf ("cannot get arange %zu: %s\n", i, dwarf_errmsg (-1));
 103                   break;
 104                 }
 105
 106               Dwarf_Addr start;
 107               Dwarf_Word length;
 108               Dwarf_Off cu_offset;
 109
 110               if (dwarf_getarangeinfo (arange, &start, &length, &cu_offset)
 111                   != 0)
 112                 {
 113                   printf ("cannot get info from aranges[%zu]\n", i);
 114                   result = 1;
 115                 }
 116               else
 117                 {
 118                   printf (" [%2zu] start: %#llx, length: %llu, cu: %llu\n",
 119                           i, (unsigned long long int) start,
 120                           (unsigned long long int) length,
 121                           (unsigned long long int) cu_offset);
 122
 123                   const char *cuname;
 124                   Dwarf_Die cu_die;
 125                   if (dwarf_offdie (dbg, cu_offset, &cu_die) == NULL
 126                       || (cuname = dwarf_diename (&cu_die)) == NULL)
 127                     {
 128                       puts ("failed to get CU die");
 129                       result = 1;
 130                     }
 131                   else
 132                     printf ("CU name: \"%s\"\n", cuname);
 133                 }
 134             }
 135         }
 136
 137       dwarf_end (dbg);
 138       close (fd);
 139     }
 140
 141   return result;
 142 }