125b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* Get function information. 203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Copyright (C) 2005, 2013 Red Hat, Inc. 303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes This file is part of elfutils. 425b3c049e70834cf33790a28643ab058b507b35cBen Cheng Written by Ulrich Drepper <drepper@redhat.com>, 2005. 525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes This file is free software; you can redistribute it and/or modify 703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes it under the terms of either 825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes * the GNU Lesser General Public License as published by the Free 1003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Software Foundation; either version 3 of the License, or (at 1103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes your option) any later version 1203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 1303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes or 1403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 1503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes * the GNU General Public License as published by the Free 1603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Software Foundation; either version 2 of the License, or (at 1703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes your option) any later version 1803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 1903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes or both in parallel, as here. 2003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 2103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes elfutils is distributed in the hope that it will be useful, but 2225b3c049e70834cf33790a28643ab058b507b35cBen Cheng WITHOUT ANY WARRANTY; without even the implied warranty of 2325b3c049e70834cf33790a28643ab058b507b35cBen Cheng MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 2425b3c049e70834cf33790a28643ab058b507b35cBen Cheng General Public License for more details. 2525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 2603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes You should have received copies of the GNU General Public License and 2703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes the GNU Lesser General Public License along with this program. If 2803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes not, see <http://www.gnu.org/licenses/>. */ 2925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 3025b3c049e70834cf33790a28643ab058b507b35cBen Cheng#ifdef HAVE_CONFIG_H 3125b3c049e70834cf33790a28643ab058b507b35cBen Cheng# include <config.h> 3225b3c049e70834cf33790a28643ab058b507b35cBen Cheng#endif 3325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 3425b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <dwarf.h> 3525b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include "libdwP.h" 3625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 3725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 3803333823c75a1c1887e923828113a1b0fd12020cElliott Hughesstruct visitor_info 3903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes{ 4003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes /* The user callback of dwarf_getfuncs. */ 4103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes int (*callback) (Dwarf_Die *, void *); 4203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 4303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes /* The user arg value to dwarf_getfuncs. */ 4403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes void *arg; 4503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 4603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes /* Addr of the DIE offset where to (re)start the search. Zero for all. */ 4703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes void *start_addr; 4803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 4903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes /* Last subprogram DIE addr seen. */ 5003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes void *last_addr; 5103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 5203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes /* The CU only contains C functions. Allows pruning of most subtrees. */ 5303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes bool c_cu; 5403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes}; 5503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 5603333823c75a1c1887e923828113a1b0fd12020cElliott Hughesstatic int 5703333823c75a1c1887e923828113a1b0fd12020cElliott Hughestree_visitor (unsigned int depth __attribute__ ((unused)), 5803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes struct Dwarf_Die_Chain *chain, void *arg) 5903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes{ 6003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes struct visitor_info *const v = arg; 6103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwarf_Die *die = &chain->die; 6203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes void *start_addr = v->start_addr; 6303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes void *die_addr = die->addr; 6403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 6503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes /* Pure C CUs can only contain defining subprogram DIEs as direct 6603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes children of the CU DIE or as nested function inside a normal C 6703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes code constructs. */ 6803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes int tag = INTUSE(dwarf_tag) (die); 6903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (v->c_cu 7003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes && tag != DW_TAG_subprogram 7103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes && tag != DW_TAG_lexical_block 7203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes && tag != DW_TAG_inlined_subroutine) 7303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 7403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes chain->prune = true; 7503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes return DWARF_CB_OK; 7603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 7703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 7803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes /* Skip all DIEs till we found the (re)start addr. */ 7903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (start_addr != NULL) 8003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 8103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (die_addr == start_addr) 8203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes v->start_addr = NULL; 8303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes return DWARF_CB_OK; 8403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 8503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 8603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes /* If this isn't a (defining) subprogram entity, skip DIE. */ 8703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (tag != DW_TAG_subprogram 8803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes || INTUSE(dwarf_hasattr) (die, DW_AT_declaration)) 8903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes return DWARF_CB_OK; 9003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 9103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes v->last_addr = die_addr; 9203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes return (*v->callback) (die, v->arg); 9303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes} 9403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 9525b3c049e70834cf33790a28643ab058b507b35cBen Chengptrdiff_t 9625b3c049e70834cf33790a28643ab058b507b35cBen Chengdwarf_getfuncs (Dwarf_Die *cudie, int (*callback) (Dwarf_Die *, void *), 9725b3c049e70834cf33790a28643ab058b507b35cBen Cheng void *arg, ptrdiff_t offset) 9825b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 9925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (cudie == NULL 10025b3c049e70834cf33790a28643ab058b507b35cBen Cheng || INTUSE(dwarf_tag) (cudie) != DW_TAG_compile_unit)) 10125b3c049e70834cf33790a28643ab058b507b35cBen Cheng return -1; 10225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 10303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes int lang = INTUSE(dwarf_srclang) (cudie); 10403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes bool c_cu = (lang == DW_LANG_C89 10503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes || lang == DW_LANG_C 10603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes || lang == DW_LANG_C99 10703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes || lang == DW_LANG_C11); 10825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 10903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes struct visitor_info v = { callback, arg, (void *) offset, NULL, c_cu }; 11003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes struct Dwarf_Die_Chain chain = { .die = CUDIE (cudie->cu), 11103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes .parent = NULL }; 11203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes int res = __libdw_visit_scopes (0, &chain, &tree_visitor, NULL, &v); 11325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 11403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (res == DWARF_CB_ABORT) 11503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes return (ptrdiff_t) v.last_addr; 11603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes else 11703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes return res; 11825b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 119