diff options
author | Ben Cheng <bccheng@google.com> | 2013-11-20 16:22:30 -0800 |
---|---|---|
committer | Ben Cheng <bccheng@google.com> | 2013-11-21 16:13:04 -0800 |
commit | 8701663f8720eaae76448f5d61890e142a67eba1 (patch) | |
tree | 8df246ca7346cb74964e70f65a64f0c386de3025 /tests/addrscopes.c | |
parent | 5a6aed9ada7eb3148d749cd0721bbfc119ad9fe8 (diff) | |
download | android_external_elfutils-8701663f8720eaae76448f5d61890e142a67eba1.tar.gz android_external_elfutils-8701663f8720eaae76448f5d61890e142a67eba1.tar.bz2 android_external_elfutils-8701663f8720eaae76448f5d61890e142a67eba1.zip |
Switch to elfutils 0.153.
Change-Id: I2452503997af46a55bc898ef0cfda4b658da9130
Diffstat (limited to 'tests/addrscopes.c')
-rw-r--r-- | tests/addrscopes.c | 203 |
1 files changed, 0 insertions, 203 deletions
diff --git a/tests/addrscopes.c b/tests/addrscopes.c deleted file mode 100644 index 3394cd29..00000000 --- a/tests/addrscopes.c +++ /dev/null @@ -1,203 +0,0 @@ -/* Test program for dwarf_getscopes. - Copyright (C) 2005 Red Hat, Inc. - This file is part of Red Hat elfutils. - - Red Hat elfutils is free software; you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by the - Free Software Foundation; version 2 of the License. - - Red Hat elfutils is distributed in the hope that it will be useful, but - WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - General Public License for more details. - - You should have received a copy of the GNU General Public License along - with Red Hat elfutils; if not, write to the Free Software Foundation, - Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA. - - Red Hat elfutils is an included package of the Open Invention Network. - An included package of the Open Invention Network is a package for which - Open Invention Network licensees cross-license their patents. No patent - license is granted, either expressly or impliedly, by designation as an - included package. Should you wish to participate in the Open Invention - Network licensing program, please visit www.openinventionnetwork.com - <http://www.openinventionnetwork.com>. */ - -#include <config.h> -#include <assert.h> -#include <inttypes.h> -#include ELFUTILS_HEADER(dwfl) -#include <dwarf.h> -#include <argp.h> -#include <stdio.h> -#include <stdio_ext.h> -#include <locale.h> -#include <stdlib.h> -#include <error.h> -#include <string.h> - - -static void -paddr (const char *prefix, Dwarf_Addr addr, Dwfl_Line *line) -{ - const char *src; - int lineno, linecol; - if (line != NULL - && (src = dwfl_lineinfo (line, &addr, &lineno, &linecol, - NULL, NULL)) != NULL) - { - if (linecol != 0) - printf ("%s%#" PRIx64 " (%s:%d:%d)", - prefix, addr, src, lineno, linecol); - else - printf ("%s%#" PRIx64 " (%s:%d)", - prefix, addr, src, lineno); - } - else - printf ("%s%#" PRIx64, prefix, addr); -} - -static void -print_vars (unsigned int indent, Dwarf_Die *die) -{ - Dwarf_Die child; - if (dwarf_child (die, &child) == 0) - do - switch (dwarf_tag (&child)) - { - case DW_TAG_variable: - case DW_TAG_formal_parameter: - printf ("%*s%-30s[%6" PRIx64 "]\n", indent, "", - dwarf_diename (&child), - (uint64_t) dwarf_dieoffset (&child)); - break; - default: - break; - } - while (dwarf_siblingof (&child, &child) == 0); - - Dwarf_Attribute attr_mem; - Dwarf_Die origin; - if (dwarf_hasattr (die, DW_AT_abstract_origin) - && dwarf_formref_die (dwarf_attr (die, DW_AT_abstract_origin, &attr_mem), - &origin) != NULL - && dwarf_child (&origin, &child) == 0) - do - switch (dwarf_tag (&child)) - { - case DW_TAG_variable: - case DW_TAG_formal_parameter: - printf ("%*s%s (abstract)\n", indent, "", - dwarf_diename (&child)); - break; - default: - break; - } - while (dwarf_siblingof (&child, &child) == 0); -} - - -#define INDENT 4 - -static void -handle_address (GElf_Addr pc, Dwfl *dwfl) -{ - Dwarf_Addr cubias; - Dwarf_Die *cudie = dwfl_addrdie (dwfl, pc, &cubias); - if (cudie == NULL) - error (EXIT_FAILURE, 0, "dwfl_addrdie: %s", dwfl_errmsg (-1)); - - Dwarf_Die *scopes; - int n = dwarf_getscopes (cudie, pc - cubias, &scopes); - if (n < 0) - error (EXIT_FAILURE, 0, "dwarf_getscopes: %s", dwarf_errmsg (-1)); - else if (n == 0) - printf ("%#" PRIx64 ": not in any scope\n", pc); - else - { - printf ("%#" PRIx64 ":\n", pc); - unsigned int indent = 0; - while (n-- > 0) - { - Dwarf_Die *const die = &scopes[n]; - - indent += INDENT; - printf ("%*s%s (%#x)", indent, "", - dwarf_diename (die) ?: "<unnamed>", - dwarf_tag (die)); - - Dwarf_Addr lowpc, highpc; - if (dwarf_lowpc (die, &lowpc) == 0 - && dwarf_highpc (die, &highpc) == 0) - { - lowpc += cubias; - highpc += cubias; - Dwfl_Line *loline = dwfl_getsrc (dwfl, lowpc); - Dwfl_Line *hiline = dwfl_getsrc (dwfl, highpc); - paddr (": ", lowpc, loline); - if (highpc != lowpc) - paddr (" .. ", lowpc, hiline == loline ? NULL : hiline); - } - puts (""); - - print_vars (indent + INDENT, die); - } - } -} - -int -main (int argc, char *argv[]) -{ - int remaining; - - /* Set locale. */ - (void) setlocale (LC_ALL, ""); - - Dwfl *dwfl = NULL; - (void) argp_parse (dwfl_standard_argp (), argc, argv, 0, &remaining, &dwfl); - assert (dwfl != NULL); - - int result = 0; - - /* Now handle the addresses. In case none are given on the command - line, read from stdin. */ - if (remaining == argc) - { - /* We use no threads here which can interfere with handling a stream. */ - (void) __fsetlocking (stdin, FSETLOCKING_BYCALLER); - - char *buf = NULL; - size_t len = 0; - while (!feof_unlocked (stdin)) - { - if (getline (&buf, &len, stdin) < 0) - break; - - char *endp; - uintmax_t addr = strtoumax (buf, &endp, 0); - if (endp != buf) - handle_address (addr, dwfl); - else - result = 1; - } - - free (buf); - } - else - { - do - { - char *endp; - uintmax_t addr = strtoumax (argv[remaining], &endp, 0); - if (endp != argv[remaining]) - handle_address (addr, dwfl); - else - result = 1; - } - while (++remaining < argc); - } - - dwfl_end (dwfl); - - return result; -} |