Branch data Line data Source code
1 : : /* Check whether given DIE has specific attribute.
2 : : Copyright (C) 2003, 2005, 2014, 2017 Red Hat, Inc.
3 : : This file is part of elfutils.
4 : : Written by Ulrich Drepper <drepper@redhat.com>, 2003.
5 : :
6 : : This file is free software; you can redistribute it and/or modify
7 : : it under the terms of either
8 : :
9 : : * the GNU Lesser General Public License as published by the Free
10 : : Software Foundation; either version 3 of the License, or (at
11 : : your option) any later version
12 : :
13 : : or
14 : :
15 : : * the GNU General Public License as published by the Free
16 : : Software Foundation; either version 2 of the License, or (at
17 : : your option) any later version
18 : :
19 : : or both in parallel, as here.
20 : :
21 : : elfutils is distributed in the hope that it will be useful, but
22 : : WITHOUT ANY WARRANTY; without even the implied warranty of
23 : : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
24 : : General Public License for more details.
25 : :
26 : : You should have received copies of the GNU General Public License and
27 : : the GNU Lesser General Public License along with this program. If
28 : : not, see <http://www.gnu.org/licenses/>. */
29 : :
30 : : #ifdef HAVE_CONFIG_H
31 : : # include <config.h>
32 : : #endif
33 : :
34 : : #include <dwarf.h>
35 : : #include "libdwP.h"
36 : :
37 : :
38 : : int
39 : 24764382 : dwarf_hasattr (Dwarf_Die *die, unsigned int search_name)
40 : : {
41 [ + - ]: 24764382 : if (die == NULL)
42 : : return 0;
43 : :
44 : : /* Find the abbreviation entry. */
45 : 24764382 : Dwarf_Abbrev *abbrevp = __libdw_dieabbrev (die, NULL);
46 [ - + ]: 24764382 : if (unlikely (abbrevp == DWARF_END_ABBREV))
47 : : {
48 : 0 : __libdw_seterrno (DWARF_E_INVALID_DWARF);
49 : 0 : return 0;
50 : : }
51 : :
52 : : /* Search the name attribute. Dwarf_Abbrev was checked when created,
53 : : so we can read unchecked here. */
54 : 24764382 : const unsigned char *attrp = abbrevp->attrp;
55 : 122897532 : while (1)
56 : : {
57 : : /* Get attribute name and form. */
58 : 122897532 : unsigned int attr_name;
59 : 122897532 : get_uleb128_unchecked (attr_name, attrp);
60 : 122897532 : unsigned int attr_form;
61 : 122897532 : get_uleb128_unchecked (attr_form, attrp);
62 : :
63 : : /* We can stop if we found the end of the attribute list. */
64 [ + + ]: 122897532 : if (attr_name == 0 && attr_form == 0)
65 : : return 0;
66 : :
67 [ + + ]: 98312620 : if (attr_name == search_name)
68 : : return 1;
69 : :
70 [ + + ]: 98133150 : if (attr_form == DW_FORM_implicit_const)
71 : : {
72 : 444844 : int64_t attr_value __attribute__ ((unused));
73 : 444844 : get_sleb128_unchecked (attr_value, attrp);
74 : : }
75 : : }
76 : : }
77 : : INTDEF (dwarf_hasattr)
|