Branch data Line data Source code
1 : : /* Return scope DIEs containing given DIE.
2 : : Copyright (C) 2005 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 : : #include "libdwP.h"
33 : : #include <assert.h>
34 : : #include <stdlib.h>
35 : :
36 : : static int
37 : 6 : scope_visitor (unsigned int depth, struct Dwarf_Die_Chain *die, void *arg)
38 : : {
39 [ + + ]: 6 : if (die->die.addr != *(void **) arg)
40 : : return 0;
41 : :
42 : 1 : Dwarf_Die *scopes = malloc (depth * sizeof scopes[0]);
43 [ - + ]: 1 : if (scopes == NULL)
44 : : {
45 : 0 : __libdw_seterrno (DWARF_E_NOMEM);
46 : 1 : return -1;
47 : : }
48 : :
49 : : unsigned int i = 0;
50 : : do
51 : : {
52 : 2 : scopes[i++] = die->die;
53 : 2 : die = die->parent;
54 : : }
55 [ + + ]: 2 : while (die != NULL);
56 [ - + ]: 1 : assert (i == depth);
57 : :
58 : 1 : *(void **) arg = scopes;
59 : 6 : return depth;
60 : : }
61 : :
62 : : int
63 : 1 : dwarf_getscopes_die (Dwarf_Die *die, Dwarf_Die **scopes)
64 : : {
65 [ + - ]: 1 : if (die == NULL)
66 : : return -1;
67 : :
68 [ - + ]: 1 : struct Dwarf_Die_Chain cu = { .die = CUDIE (die->cu), .parent = NULL };
69 : 1 : void *info = die->addr;
70 : 1 : int result = __libdw_visit_scopes (1, &cu, &scope_visitor, NULL, &info);
71 [ + - ]: 1 : if (result > 0)
72 : 1 : *scopes = info;
73 : : return result;
74 : 1 : }
|