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 39cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 40cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengstatic void 41cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengpaddr (const char *prefix, Dwarf_Addr addr, Dwfl_Line *line) 42cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 43cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng const char *src; 44cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng int lineno, linecol; 45cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (line != NULL 46cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng && (src = dwfl_lineinfo (line, &addr, &lineno, &linecol, 47cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng NULL, NULL)) != NULL) 48cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 49cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (linecol != 0) 50cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng printf ("%s%#" PRIx64 " (%s:%d:%d)", 51cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng prefix, addr, src, lineno, linecol); 52cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng else 53cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng printf ("%s%#" PRIx64 " (%s:%d)", 54cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng prefix, addr, src, lineno); 55cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 56cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng else 57cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng printf ("%s%#" PRIx64, prefix, addr); 58cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 59cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 60cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengstatic void 61cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengprint_vars (unsigned int indent, Dwarf_Die *die) 62cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 63cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Die child; 64cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (dwarf_child (die, &child) == 0) 65cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng do 66cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng switch (dwarf_tag (&child)) 67cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 68cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_TAG_variable: 69cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_TAG_formal_parameter: 70cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng printf ("%*s%-30s[%6" PRIx64 "]\n", indent, "", 71cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng dwarf_diename (&child), 72cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng (uint64_t) dwarf_dieoffset (&child)); 73cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 74cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng default: 75cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 76cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 77cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng while (dwarf_siblingof (&child, &child) == 0); 78cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 79cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Attribute attr_mem; 80cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Die origin; 81cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (dwarf_hasattr (die, DW_AT_abstract_origin) 82cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng && dwarf_formref_die (dwarf_attr (die, DW_AT_abstract_origin, &attr_mem), 83cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng &origin) != NULL 84cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng && dwarf_child (&origin, &child) == 0) 85cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng do 86cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng switch (dwarf_tag (&child)) 87cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 88cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_TAG_variable: 89cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_TAG_formal_parameter: 90cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng printf ("%*s%s (abstract)\n", indent, "", 91cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng dwarf_diename (&child)); 92cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 93cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng default: 94cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 95cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 96cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng while (dwarf_siblingof (&child, &child) == 0); 97cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 98cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 99cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 100cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#define INDENT 4 101cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 102cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengstatic void 103cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chenghandle_address (GElf_Addr pc, Dwfl *dwfl) 104cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 105cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Addr cubias; 106cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Die *cudie = dwfl_addrdie (dwfl, pc, &cubias); 107cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (cudie == NULL) 108cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng error (EXIT_FAILURE, 0, "dwfl_addrdie: %s", dwfl_errmsg (-1)); 109cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 110cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Die *scopes; 111cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng int n = dwarf_getscopes (cudie, pc - cubias, &scopes); 112cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (n < 0) 113cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng error (EXIT_FAILURE, 0, "dwarf_getscopes: %s", dwarf_errmsg (-1)); 114cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng else if (n == 0) 115cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng printf ("%#" PRIx64 ": not in any scope\n", pc); 116cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng else 117cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 118cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng printf ("%#" PRIx64 ":\n", pc); 119cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng unsigned int indent = 0; 120cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng while (n-- > 0) 121cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 122cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Die *const die = &scopes[n]; 123cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 124cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng indent += INDENT; 125cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng printf ("%*s%s (%#x)", indent, "", 126cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng dwarf_diename (die) ?: "<unnamed>", 127cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng dwarf_tag (die)); 128cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 129cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Addr lowpc, highpc; 130cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (dwarf_lowpc (die, &lowpc) == 0 131cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng && dwarf_highpc (die, &highpc) == 0) 132cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 133cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng lowpc += cubias; 134cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng highpc += cubias; 135cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwfl_Line *loline = dwfl_getsrc (dwfl, lowpc); 136cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwfl_Line *hiline = dwfl_getsrc (dwfl, highpc); 137cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng paddr (": ", lowpc, loline); 138cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (highpc != lowpc) 139cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng paddr (" .. ", lowpc, hiline == loline ? NULL : hiline); 140cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 141cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng puts (""); 142cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 143cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng print_vars (indent + INDENT, die); 144cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 145cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 146cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 147cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 148cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengint 149cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengmain (int argc, char *argv[]) 150cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 151cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng int remaining; 152cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 153cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Set locale. */ 154cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng (void) setlocale (LC_ALL, ""); 155cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 156cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwfl *dwfl = NULL; 157cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng (void) argp_parse (dwfl_standard_argp (), argc, argv, 0, &remaining, &dwfl); 158cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng assert (dwfl != NULL); 159cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 160cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng int result = 0; 161cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 162cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Now handle the addresses. In case none are given on the command 163cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng line, read from stdin. */ 164cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (remaining == argc) 165cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 166cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* We use no threads here which can interfere with handling a stream. */ 167cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng (void) __fsetlocking (stdin, FSETLOCKING_BYCALLER); 168cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 169cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng char *buf = NULL; 170cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng size_t len = 0; 171cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng while (!feof_unlocked (stdin)) 172cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 173cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (getline (&buf, &len, stdin) < 0) 174cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 175cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 176cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng char *endp; 177cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng uintmax_t addr = strtoumax (buf, &endp, 0); 178cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (endp != buf) 179cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng handle_address (addr, dwfl); 180cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng else 181cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng result = 1; 182cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 183cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 184cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng free (buf); 185cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 186cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng else 187cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 188cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng do 189cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 190cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng char *endp; 191cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng uintmax_t addr = strtoumax (argv[remaining], &endp, 0); 192cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (endp != argv[remaining]) 193cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng handle_address (addr, dwfl); 194cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng else 195cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng result = 1; 196cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 197cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng while (++remaining < argc); 198cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 199cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 200cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng dwfl_end (dwfl); 201cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 202cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return result; 203cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 204