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 : 479 : dwarf_decl_file (Dwarf_Die *die) 42 : : { 43 : 479 : Dwarf_Attribute attr_mem; 44 : 479 : Dwarf_Word idx = 0; 45 : : 46 [ + + ]: 479 : if (INTUSE(dwarf_formudata) (INTUSE(dwarf_attr_integrate) 47 : : (die, DW_AT_decl_file, &attr_mem), 48 : : &idx) != 0) 49 : : return NULL; 50 : : 51 : 299 : Dwarf_Files *files; 52 : 299 : size_t nfiles; 53 [ - + ]: 299 : if (INTUSE(dwarf_getsrcfiles) (&CUDIE (attr_mem.cu), &files, &nfiles) != 0) 54 : 0 : return NULL; 55 : : 56 [ - + ]: 299 : if (idx >= nfiles) 57 : : { 58 : 0 : __libdw_seterrno (DWARF_E_INVALID_DWARF); 59 : 0 : return NULL; 60 : : } 61 : : 62 : 299 : return files->info[idx].name; 63 : : } 64 : : OLD_VERSION (dwarf_decl_file, ELFUTILS_0.122)