/src/elfutils/libdwfl/dwfl_module_dwarf_cfi.c
Line | Count | Source |
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 "cfi.h" |
35 | | |
36 | | Dwarf_CFI * |
37 | | internal_function |
38 | | __libdwfl_set_cfi (Dwfl_Module *mod, Dwarf_CFI **slot, Dwarf_CFI *cfi) |
39 | 0 | { |
40 | 0 | if (cfi != NULL && cfi->ebl == NULL) |
41 | 0 | { |
42 | 0 | Dwfl_Error error = __libdwfl_module_getebl (mod); |
43 | 0 | if (error == DWFL_E_NOERROR) |
44 | 0 | cfi->ebl = mod->ebl; |
45 | 0 | else |
46 | 0 | { |
47 | 0 | if (slot == &mod->eh_cfi) |
48 | 0 | INTUSE(dwarf_cfi_end) (cfi); |
49 | 0 | __libdwfl_seterrno (error); |
50 | 0 | return NULL; |
51 | 0 | } |
52 | 0 | } |
53 | | |
54 | 0 | return *slot = cfi; |
55 | 0 | } |
56 | | |
57 | | Dwarf_CFI * |
58 | | dwfl_module_dwarf_cfi (Dwfl_Module *mod, Dwarf_Addr *bias) |
59 | 0 | { |
60 | 0 | if (mod == NULL) |
61 | 0 | return NULL; |
62 | | |
63 | 0 | if (mod->dwarf_cfi != NULL) |
64 | 0 | { |
65 | 0 | *bias = dwfl_adjusted_dwarf_addr (mod, 0); |
66 | 0 | return mod->dwarf_cfi; |
67 | 0 | } |
68 | | |
69 | 0 | return __libdwfl_set_cfi (mod, &mod->dwarf_cfi, |
70 | 0 | INTUSE(dwarf_getcfi) |
71 | 0 | (INTUSE(dwfl_module_getdwarf) (mod, bias))); |
72 | 0 | } |
73 | | INTDEF (dwfl_module_dwarf_cfi) |