Line data Source code
1 : /* Find DWARF CFI for a module in libdwfl.
2 : Copyright (C) 2009-2010 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 "libdwflP.h"
34 : #include "../libdw/cfi.h"
35 :
36 : Dwarf_CFI *
37 : internal_function
38 1912 : __libdwfl_set_cfi (Dwfl_Module *mod, Dwarf_CFI **slot, Dwarf_CFI *cfi)
39 : {
40 1912 : if (cfi != NULL && cfi->ebl == NULL)
41 : {
42 97 : Dwfl_Error error = __libdwfl_module_getebl (mod);
43 97 : if (error == DWFL_E_NOERROR)
44 97 : cfi->ebl = mod->ebl;
45 : else
46 : {
47 0 : if (slot == &mod->eh_cfi)
48 0 : INTUSE(dwarf_cfi_end) (cfi);
49 0 : __libdwfl_seterrno (error);
50 0 : return NULL;
51 : }
52 : }
53 :
54 1912 : return *slot = cfi;
55 : }
56 :
57 : Dwarf_CFI *
58 1850 : dwfl_module_dwarf_cfi (Dwfl_Module *mod, Dwarf_Addr *bias)
59 : {
60 1850 : if (mod == NULL)
61 : return NULL;
62 :
63 1850 : if (mod->dwarf_cfi != NULL)
64 : {
65 32 : *bias = dwfl_adjusted_dwarf_addr (mod, 0);
66 32 : return mod->dwarf_cfi;
67 : }
68 :
69 1818 : return __libdwfl_set_cfi (mod, &mod->dwarf_cfi,
70 : INTUSE(dwarf_getcfi)
71 : (INTUSE(dwfl_module_getdwarf) (mod, bias)));
72 : }
73 : INTDEF (dwfl_module_dwarf_cfi)
|