Branch data Line data Source code
1 : : /* Get function information.
2 : : Copyright (C) 2005 Red Hat, Inc.
3 : : This file is part of elfutils.
4 : : Written by Ulrich Drepper <drepper@redhat.com>, 2005.
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 : : ptrdiff_t
39 : 3704 : dwarf_getfuncs (Dwarf_Die *cudie, int (*callback) (Dwarf_Die *, void *),
40 : : void *arg, ptrdiff_t offset)
41 : : {
42 [ + - ][ + - ]: 3704 : if (unlikely (cudie == NULL
43 : : || INTUSE(dwarf_tag) (cudie) != DW_TAG_compile_unit))
44 : : return -1;
45 : :
46 : : Dwarf_Die die_mem;
47 : : Dwarf_Die *die;
48 : :
49 : : int res;
50 [ + - ]: 3704 : if (offset == 0)
51 : 3704 : res = INTUSE(dwarf_child) (cudie, &die_mem);
52 : : else
53 : : {
54 : 0 : die = INTUSE(dwarf_offdie) (cudie->cu->dbg, offset, &die_mem);
55 : 0 : res = INTUSE(dwarf_siblingof) (die, &die_mem);
56 : : }
57 [ + + ]: 3704 : die = res != 0 ? NULL : &die_mem;
58 : :
59 [ + + ]: 389437 : while (die != NULL)
60 : : {
61 [ + + ]: 385733 : if (INTUSE(dwarf_tag) (die) == DW_TAG_subprogram)
62 : : {
63 [ - + ]: 26000 : if (callback (die, arg) != DWARF_CB_OK)
64 : 0 : return INTUSE(dwarf_dieoffset) (die);
65 : : }
66 : :
67 [ + + ]: 385733 : if (INTUSE(dwarf_siblingof) (die, &die_mem) != 0)
68 : : break;
69 : : }
70 : :
71 : : /* That's all. */
72 : : return 0;
73 : : }
|