125b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* Return file name containing definition of the given function. 225b3c049e70834cf33790a28643ab058b507b35cBen Cheng Copyright (C) 2005, 2009 Red Hat, Inc. 303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes This file is part of elfutils. 425b3c049e70834cf33790a28643ab058b507b35cBen Cheng Written by Ulrich Drepper <drepper@redhat.com>, 2005. 525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes This file is free software; you can redistribute it and/or modify 703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes it under the terms of either 825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes * the GNU Lesser General Public License as published by the Free 1003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Software Foundation; either version 3 of the License, or (at 1103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes your option) any later version 1203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 1303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes or 1403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 1503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes * the GNU General Public License as published by the Free 1603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Software Foundation; either version 2 of the License, or (at 1703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes your option) any later version 1803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 1903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes or both in parallel, as here. 2003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 2103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes elfutils is distributed in the hope that it will be useful, but 2225b3c049e70834cf33790a28643ab058b507b35cBen Cheng WITHOUT ANY WARRANTY; without even the implied warranty of 2325b3c049e70834cf33790a28643ab058b507b35cBen Cheng MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 2425b3c049e70834cf33790a28643ab058b507b35cBen Cheng General Public License for more details. 2525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 2603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes You should have received copies of the GNU General Public License and 2703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes the GNU Lesser General Public License along with this program. If 2803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes not, see <http://www.gnu.org/licenses/>. */ 2925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 3025b3c049e70834cf33790a28643ab058b507b35cBen Cheng#ifdef HAVE_CONFIG_H 3125b3c049e70834cf33790a28643ab058b507b35cBen Cheng# include <config.h> 3225b3c049e70834cf33790a28643ab058b507b35cBen Cheng#endif 3325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 3425b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <assert.h> 3525b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <dwarf.h> 3625b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include "libdwP.h" 3725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 3825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 3925b3c049e70834cf33790a28643ab058b507b35cBen Chengconst char * 4025b3c049e70834cf33790a28643ab058b507b35cBen Chengdwarf_decl_file (Dwarf_Die *die) 4125b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 4225b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwarf_Attribute attr_mem; 4303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwarf_Word idx = 0; 4425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 4503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (INTUSE(dwarf_formudata) (INTUSE(dwarf_attr_integrate) 4625b3c049e70834cf33790a28643ab058b507b35cBen Cheng (die, DW_AT_decl_file, &attr_mem), 4725b3c049e70834cf33790a28643ab058b507b35cBen Cheng &idx) != 0) 4825b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 4925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 5025b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Zero means no source file information available. */ 5125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (idx == 0) 5225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 5325b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdw_seterrno (DWARF_E_NO_ENTRY); 5425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 5525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 5625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 5725b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Get the array of source files for the CU. */ 5825b3c049e70834cf33790a28643ab058b507b35cBen Cheng struct Dwarf_CU *cu = die->cu; 5925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (cu->lines == NULL) 6025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 6125b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwarf_Lines *lines; 6225b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t nlines; 6325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 6425b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Let the more generic function do the work. It'll create more 6525b3c049e70834cf33790a28643ab058b507b35cBen Cheng data but that will be needed in an real program anyway. */ 6625b3c049e70834cf33790a28643ab058b507b35cBen Cheng (void) INTUSE(dwarf_getsrclines) (&CUDIE (cu), &lines, &nlines); 6725b3c049e70834cf33790a28643ab058b507b35cBen Cheng assert (cu->lines != NULL); 6825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 6925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 7025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (cu->lines == (void *) -1l) 7125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 7225b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* If the file index is not zero, there must be file information 7325b3c049e70834cf33790a28643ab058b507b35cBen Cheng available. */ 7425b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdw_seterrno (DWARF_E_INVALID_DWARF); 7525b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 7625b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 7725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 7825b3c049e70834cf33790a28643ab058b507b35cBen Cheng assert (cu->files != NULL && cu->files != (void *) -1l); 7925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 8025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (idx >= cu->files->nfiles) 8125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 8225b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdw_seterrno (DWARF_E_INVALID_DWARF); 8325b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 8425b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 8525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 8625b3c049e70834cf33790a28643ab058b507b35cBen Cheng return cu->files->info[idx].name; 8725b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 8825b3c049e70834cf33790a28643ab058b507b35cBen ChengOLD_VERSION (dwarf_decl_file, ELFUTILS_0.122) 8925b3c049e70834cf33790a28643ab058b507b35cBen ChengNEW_VERSION (dwarf_decl_file, ELFUTILS_0.143) 90