1cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng/* Test program for dwarf_getscopes. 2cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Copyright (C) 2005 Red Hat, Inc. 3cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng This file is part of Red Hat elfutils. 4cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 5cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Red Hat elfutils is free software; you can redistribute it and/or modify 6cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng it under the terms of the GNU General Public License as published by the 7cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Free Software Foundation; version 2 of the License. 8cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 9cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Red Hat elfutils is distributed in the hope that it will be useful, but 10cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng WITHOUT ANY WARRANTY; without even the implied warranty of 11cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 12cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng General Public License for more details. 13cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 14cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng You should have received a copy of the GNU General Public License along 15cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng with Red Hat elfutils; if not, write to the Free Software Foundation, 16cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA. 17cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 18cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Red Hat elfutils is an included package of the Open Invention Network. 19cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng An included package of the Open Invention Network is a package for which 20cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Open Invention Network licensees cross-license their patents. No patent 21cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng license is granted, either expressly or impliedly, by designation as an 22cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng included package. Should you wish to participate in the Open Invention 23cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Network licensing program, please visit www.openinventionnetwork.com 24cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng <http://www.openinventionnetwork.com>. */ 25cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 26cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <config.h> 27cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <assert.h> 28cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <inttypes.h> 29cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include ELFUTILS_HEADER(dwfl) 30cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <dwarf.h> 31cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <argp.h> 32cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <stdio.h> 33cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <stdio_ext.h> 34cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <locale.h> 35cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <stdlib.h> 36cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <error.h> 37cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <string.h> 38cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <fnmatch.h> 39cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 40cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 41cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengstatic void 42cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengpaddr (const char *prefix, Dwarf_Addr addr, Dwfl_Line *line) 43cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 44cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng const char *src; 45cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng int lineno, linecol; 46cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (line != NULL 47cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng && (src = dwfl_lineinfo (line, &addr, &lineno, &linecol, 48cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng NULL, NULL)) != NULL) 49cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 50cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (linecol != 0) 51cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng printf ("%s%#" PRIx64 " (%s:%d:%d)", 52cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng prefix, addr, src, lineno, linecol); 53cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng else 54cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng printf ("%s%#" PRIx64 " (%s:%d)", 55cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng prefix, addr, src, lineno); 56cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 57cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng else 58cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng printf ("%s%#" PRIx64, prefix, addr); 59cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 60cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 61cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 62cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengstatic void 63cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengprint_vars (unsigned int indent, Dwarf_Die *die) 64cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 65cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Die child; 66cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (dwarf_child (die, &child) == 0) 67cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng do 68cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng switch (dwarf_tag (&child)) 69cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 70cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_TAG_variable: 71cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_TAG_formal_parameter: 72cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng printf ("%*s%-30s[%6" PRIx64 "]\n", indent, "", 73cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng dwarf_diename (&child), 74cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng (uint64_t) dwarf_dieoffset (&child)); 75cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 76cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng default: 77cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 78cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 79cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng while (dwarf_siblingof (&child, &child) == 0); 80cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 81cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Attribute attr_mem; 82cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Die origin; 83cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (dwarf_hasattr (die, DW_AT_abstract_origin) 84cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng && dwarf_formref_die (dwarf_attr (die, DW_AT_abstract_origin, &attr_mem), 85cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng &origin) != NULL 86cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng && dwarf_child (&origin, &child) == 0) 87cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng do 88cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng switch (dwarf_tag (&child)) 89cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 90cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_TAG_variable: 91cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_TAG_formal_parameter: 92cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng printf ("%*s%s (abstract)\n", indent, "", 93cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng dwarf_diename (&child)); 94cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 95cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng default: 96cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 97cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 98cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng while (dwarf_siblingof (&child, &child) == 0); 99cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 100cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 101cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 102cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#define INDENT 4 103cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 104cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengstruct args 105cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 106cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwfl *dwfl; 107cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Die *cu; 108cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Addr dwbias; 109cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng char **argv; 110cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng}; 111cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 112cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengstatic int 113cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chenghandle_function (Dwarf_Die *funcdie, void *arg) 114cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 115cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng struct args *a = arg; 116cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 117cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng const char *name = dwarf_diename (funcdie); 118cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng char **argv = a->argv; 119cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (argv[0] != NULL) 120cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 121cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng bool match; 122cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng do 123cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng match = fnmatch (*argv, name, 0) == 0; 124cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng while (!match && *++argv); 125cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (!match) 126cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return 0; 127cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 128cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 129cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Die *scopes; 130cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng int n = dwarf_getscopes_die (funcdie, &scopes); 131cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (n <= 0) 132cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng error (EXIT_FAILURE, 0, "dwarf_getscopes_die: %s", dwarf_errmsg (-1)); 133cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng else 134cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 135cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Addr start, end; 136cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng const char *fname; 137cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng const char *modname = dwfl_module_info (dwfl_cumodule (a->cu), NULL, 138cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng &start, &end, 139cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng NULL, NULL, 140cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng &fname, NULL); 141cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (modname == NULL) 142cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng error (EXIT_FAILURE, 0, "dwfl_module_info: %s", dwarf_errmsg (-1)); 143cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (modname[0] == '\0') 144cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng modname = fname; 145cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng printf ("%s: %#" PRIx64 " .. %#" PRIx64 "\n", modname, start, end); 146cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 147cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng unsigned int indent = 0; 148cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng while (n-- > 0) 149cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 150cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Die *const die = &scopes[n]; 151cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 152cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng indent += INDENT; 153cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng printf ("%*s%s (%#x)", indent, "", 154cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng dwarf_diename (die) ?: "<unnamed>", 155cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng dwarf_tag (die)); 156cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 157cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Addr lowpc, highpc; 158cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (dwarf_lowpc (die, &lowpc) == 0 159cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng && dwarf_highpc (die, &highpc) == 0) 160cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 161cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng lowpc += a->dwbias; 162cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng highpc += a->dwbias; 163cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwfl_Line *loline = dwfl_getsrc (a->dwfl, lowpc); 164cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwfl_Line *hiline = dwfl_getsrc (a->dwfl, highpc); 165cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng paddr (": ", lowpc, loline); 166cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (highpc != lowpc) 167cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng paddr (" .. ", lowpc, hiline == loline ? NULL : hiline); 168cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 169cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng puts (""); 170cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 171cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng print_vars (indent + INDENT, die); 172cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 173cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 174cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 175cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return 0; 176cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 177cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 178cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 179cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengint 180cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengmain (int argc, char *argv[]) 181cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 182cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng int remaining; 183cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 184cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Set locale. */ 185cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng (void) setlocale (LC_ALL, ""); 186cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 187cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng struct args a = { .dwfl = NULL, .cu = NULL }; 188cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 189cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng (void) argp_parse (dwfl_standard_argp (), argc, argv, 0, &remaining, 190cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng &a.dwfl); 191cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng assert (a.dwfl != NULL); 192cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng a.argv = &argv[remaining]; 193cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 194cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng int result = 0; 195cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 196cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng while ((a.cu = dwfl_nextcu (a.dwfl, a.cu, &a.dwbias)) != NULL) 197cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng dwarf_getfuncs (a.cu, &handle_function, &a, 0); 198cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 199cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng dwfl_end (a.dwfl); 200cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 201cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return result; 202cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 203