Branch data Line data Source code
1 : : /* Return file name containing definition of the given function.
2 : : Copyright (C) 2005, 2009 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 <assert.h>
35 : : #include <dwarf.h>
36 : : #include "libdwP.h"
37 : :
38 : :
39 : : NEW_VERSION (dwarf_decl_file, ELFUTILS_0.143)
40 : : const char *
41 : 958 : dwarf_decl_file (Dwarf_Die *die)
42 : : {
43 : 958 : Dwarf_Attribute attr_mem;
44 : 958 : Dwarf_Word idx = 0;
45 : :
46 [ + + ]: 958 : if (INTUSE(dwarf_formudata) (INTUSE(dwarf_attr_integrate)
47 : : (die, DW_AT_decl_file, &attr_mem),
48 : : &idx) != 0)
49 : : return NULL;
50 : :
51 : 598 : Dwarf_Files *files;
52 : 598 : size_t nfiles;
53 [ - + ]: 598 : if (INTUSE(dwarf_getsrcfiles) (&CUDIE (attr_mem.cu), &files, &nfiles) != 0)
54 : 0 : return NULL;
55 : :
56 [ - + ]: 598 : if (idx >= nfiles)
57 : : {
58 : 0 : __libdw_seterrno (DWARF_E_INVALID_DWARF);
59 : 0 : return NULL;
60 : : }
61 : :
62 : 598 : return files->info[idx].name;
63 : : }
64 : : OLD_VERSION (dwarf_decl_file, ELFUTILS_0.122)
|