103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes/* Test program for dwarf_getscopes. 203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Copyright (C) 2005 Red Hat, Inc. 303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes This file is part of elfutils. 403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes This file is free software; you can redistribute it and/or modify 603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes it under the terms of the GNU General Public License as published by 703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes the Free Software Foundation; either version 3 of the License, or 803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes (at your option) any later version. 903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 1003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes elfutils is distributed in the hope that it will be useful, but 1103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes WITHOUT ANY WARRANTY; without even the implied warranty of 1203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 1303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes GNU General Public License for more details. 1403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 1503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes You should have received a copy of the GNU General Public License 1603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes along with this program. If not, see <http://www.gnu.org/licenses/>. */ 1703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 1803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <config.h> 1903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <assert.h> 2003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <inttypes.h> 2103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include ELFUTILS_HEADER(dwfl) 2203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <dwarf.h> 2303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <argp.h> 2403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <stdio.h> 2503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <stdio_ext.h> 2603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <locale.h> 2703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <stdlib.h> 2803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <error.h> 2903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <string.h> 3003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 3103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 3203333823c75a1c1887e923828113a1b0fd12020cElliott Hughesstatic void 3303333823c75a1c1887e923828113a1b0fd12020cElliott Hughespaddr (const char *prefix, Dwarf_Addr addr, Dwfl_Line *line) 3403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes{ 3503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes const char *src; 3603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes int lineno, linecol; 3703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (line != NULL 3803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes && (src = dwfl_lineinfo (line, &addr, &lineno, &linecol, 3903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes NULL, NULL)) != NULL) 4003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 4103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (linecol != 0) 4203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("%s%#" PRIx64 " (%s:%d:%d)", 4303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes prefix, addr, src, lineno, linecol); 4403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes else 4503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("%s%#" PRIx64 " (%s:%d)", 4603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes prefix, addr, src, lineno); 4703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 4803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes else 4903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("%s%#" PRIx64, prefix, addr); 5003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes} 5103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 5203333823c75a1c1887e923828113a1b0fd12020cElliott Hughesstatic void 5303333823c75a1c1887e923828113a1b0fd12020cElliott Hughesprint_vars (unsigned int indent, Dwarf_Die *die) 5403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes{ 5503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwarf_Die child; 5603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (dwarf_child (die, &child) == 0) 5703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes do 5803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes switch (dwarf_tag (&child)) 5903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 6003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes case DW_TAG_variable: 6103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes case DW_TAG_formal_parameter: 6203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("%*s%-30s[%6" PRIx64 "]\n", indent, "", 6303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes dwarf_diename (&child), 6403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes (uint64_t) dwarf_dieoffset (&child)); 6503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes break; 6603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes default: 6703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes break; 6803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 6903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes while (dwarf_siblingof (&child, &child) == 0); 7003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 7103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwarf_Attribute attr_mem; 7203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwarf_Die origin; 7303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (dwarf_hasattr (die, DW_AT_abstract_origin) 7403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes && dwarf_formref_die (dwarf_attr (die, DW_AT_abstract_origin, &attr_mem), 7503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes &origin) != NULL 7603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes && dwarf_child (&origin, &child) == 0) 7703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes do 7803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes switch (dwarf_tag (&child)) 7903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 8003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes case DW_TAG_variable: 8103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes case DW_TAG_formal_parameter: 8203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("%*s%s (abstract)\n", indent, "", 8303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes dwarf_diename (&child)); 8403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes break; 8503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes default: 8603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes break; 8703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 8803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes while (dwarf_siblingof (&child, &child) == 0); 8903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes} 9003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 9103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 9203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#define INDENT 4 9303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 9403333823c75a1c1887e923828113a1b0fd12020cElliott Hughesstatic void 9503333823c75a1c1887e923828113a1b0fd12020cElliott Hugheshandle_address (GElf_Addr pc, Dwfl *dwfl) 9603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes{ 9703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwarf_Addr cubias; 9803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwarf_Die *cudie = dwfl_addrdie (dwfl, pc, &cubias); 9903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (cudie == NULL) 10003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes error (EXIT_FAILURE, 0, "dwfl_addrdie: %s", dwfl_errmsg (-1)); 10103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 10203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwarf_Die *scopes; 10303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes int n = dwarf_getscopes (cudie, pc - cubias, &scopes); 10403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (n < 0) 10503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes error (EXIT_FAILURE, 0, "dwarf_getscopes: %s", dwarf_errmsg (-1)); 10603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes else if (n == 0) 10703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("%#" PRIx64 ": not in any scope\n", pc); 10803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes else 10903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 11003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("%#" PRIx64 ":\n", pc); 11103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes unsigned int indent = 0; 11203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes while (n-- > 0) 11303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 11403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwarf_Die *const die = &scopes[n]; 11503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 11603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes indent += INDENT; 11703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("%*s%s (%#x)", indent, "", 11803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes dwarf_diename (die) ?: "<unnamed>", 11903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes dwarf_tag (die)); 12003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 12103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwarf_Addr lowpc, highpc; 12203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (dwarf_lowpc (die, &lowpc) == 0 12303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes && dwarf_highpc (die, &highpc) == 0) 12403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 12503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes lowpc += cubias; 12603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes highpc += cubias; 12703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwfl_Line *loline = dwfl_getsrc (dwfl, lowpc); 12803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwfl_Line *hiline = dwfl_getsrc (dwfl, highpc); 12903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes paddr (": ", lowpc, loline); 13003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (highpc != lowpc) 13103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes paddr (" .. ", lowpc, hiline == loline ? NULL : hiline); 13203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 13303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes puts (""); 13403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 13503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes print_vars (indent + INDENT, die); 13603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 13703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 13803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes} 13903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 14003333823c75a1c1887e923828113a1b0fd12020cElliott Hughesint 14103333823c75a1c1887e923828113a1b0fd12020cElliott Hughesmain (int argc, char *argv[]) 14203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes{ 14303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes int remaining; 14403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 14503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes /* Set locale. */ 14603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes (void) setlocale (LC_ALL, ""); 14703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 14803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwfl *dwfl = NULL; 14903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes (void) argp_parse (dwfl_standard_argp (), argc, argv, 0, &remaining, &dwfl); 15003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes assert (dwfl != NULL); 15103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 15203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes int result = 0; 15303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 15403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes /* Now handle the addresses. In case none are given on the command 15503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes line, read from stdin. */ 15603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (remaining == argc) 15703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 15803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes /* We use no threads here which can interfere with handling a stream. */ 15903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes (void) __fsetlocking (stdin, FSETLOCKING_BYCALLER); 16003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 16103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes char *buf = NULL; 16203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes size_t len = 0; 16303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes while (!feof_unlocked (stdin)) 16403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 16503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (getline (&buf, &len, stdin) < 0) 16603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes break; 16703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 16803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes char *endp; 16903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes uintmax_t addr = strtoumax (buf, &endp, 0); 17003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (endp != buf) 17103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes handle_address (addr, dwfl); 17203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes else 17303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes result = 1; 17403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 17503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 17603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes free (buf); 17703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 17803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes else 17903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 18003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes do 18103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 18203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes char *endp; 18303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes uintmax_t addr = strtoumax (argv[remaining], &endp, 0); 18403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (endp != argv[remaining]) 18503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes handle_address (addr, dwfl); 18603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes else 18703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes result = 1; 18803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 18903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes while (++remaining < argc); 19003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 19103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 19203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes dwfl_end (dwfl); 19303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 19403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes return result; 19503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes} 196