Branch data Line data Source code
1 : : /* Return specific DWARF attribute of a DIE, integrating indirections. 2 : : Copyright (C) 2005, 2018 Red Hat, Inc. 3 : : This file is part of elfutils. 4 : : 5 : : This file is free software; you can redistribute it and/or modify 6 : : it under the terms of either 7 : : 8 : : * the GNU Lesser General Public License as published by the Free 9 : : Software Foundation; either version 3 of the License, or (at 10 : : your option) any later version 11 : : 12 : : or 13 : : 14 : : * the GNU General Public License as published by the Free 15 : : Software Foundation; either version 2 of the License, or (at 16 : : your option) any later version 17 : : 18 : : or both in parallel, as here. 19 : : 20 : : elfutils is distributed in the hope that it will be useful, but 21 : : WITHOUT ANY WARRANTY; without even the implied warranty of 22 : : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 23 : : General Public License for more details. 24 : : 25 : : You should have received copies of the GNU General Public License and 26 : : the GNU Lesser General Public License along with this program. If 27 : : not, see <http://www.gnu.org/licenses/>. */ 28 : : 29 : : #ifdef HAVE_CONFIG_H 30 : : # include <config.h> 31 : : #endif 32 : : 33 : : #include <dwarf.h> 34 : : #include "libdwP.h" 35 : : 36 : : Dwarf_Attribute * 37 : 1896832 : dwarf_attr_integrate (Dwarf_Die *die, unsigned int search_name, 38 : : Dwarf_Attribute *result) 39 : : { 40 : 1896832 : Dwarf_Die die_mem; 41 : 1896832 : int chain = 16; /* Largest DIE ref chain we will follow. */ 42 : 2017812 : do 43 : : { 44 : 2017812 : Dwarf_Attribute *attr = INTUSE(dwarf_attr) (die, search_name, result); 45 [ + + ]: 2017812 : if (attr != NULL) 46 : 1133266 : return attr; 47 : : 48 : 884546 : attr = INTUSE(dwarf_attr) (die, DW_AT_abstract_origin, result); 49 [ + + ]: 884546 : if (attr == NULL) 50 : 763736 : attr = INTUSE(dwarf_attr) (die, DW_AT_specification, result); 51 [ + + ]: 763736 : if (attr == NULL) 52 : : break; 53 : : 54 : 120980 : die = INTUSE(dwarf_formref_die) (attr, &die_mem); 55 : : } 56 [ + - + - ]: 120980 : while (die != NULL && chain-- != 0); 57 : : 58 : : /* Not NULL if it didn't have abstract_origin and specification 59 : : attributes. If it is a split CU then see if the skeleton 60 : : has it. */ 61 [ + - + + ]: 763566 : if (die != NULL && is_cudie (die) 62 [ + + ]: 218 : && die->cu->unit_type == DW_UT_split_compile) 63 : : { 64 : 188 : Dwarf_CU *skel_cu = __libdw_find_split_unit (die->cu); 65 [ - + ]: 188 : if (skel_cu != NULL) 66 : : { 67 : 188 : Dwarf_Die skel_die = CUDIE (skel_cu); 68 : 188 : return INTUSE(dwarf_attr) (&skel_die, search_name, result); 69 : : } 70 : : } 71 : : return NULL; 72 : : } 73 : : INTDEF (dwarf_attr_integrate)