125b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* Look up the DIE in a reference-form attribute. 225b3c049e70834cf33790a28643ab058b507b35cBen Cheng Copyright (C) 2005-2010 Red Hat, Inc. 303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes This file is part of elfutils. 425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes This file is free software; you can redistribute it and/or modify 603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes it under the terms of either 725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes * the GNU Lesser General Public License as published by the Free 903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Software Foundation; either version 3 of the License, or (at 1003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes your option) any later version 1103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 1203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes or 1303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 1403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes * the GNU General Public License as published by the Free 1503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Software Foundation; either version 2 of the License, or (at 1603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes your option) any later version 1703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 1803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes or both in parallel, as here. 1903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 2003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes elfutils is distributed in the hope that it will be useful, but 2125b3c049e70834cf33790a28643ab058b507b35cBen Cheng WITHOUT ANY WARRANTY; without even the implied warranty of 2225b3c049e70834cf33790a28643ab058b507b35cBen Cheng MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 2325b3c049e70834cf33790a28643ab058b507b35cBen Cheng General Public License for more details. 2425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 2503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes You should have received copies of the GNU General Public License and 2603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes the GNU Lesser General Public License along with this program. If 2703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes not, see <http://www.gnu.org/licenses/>. */ 2825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 2925b3c049e70834cf33790a28643ab058b507b35cBen Cheng#ifdef HAVE_CONFIG_H 3025b3c049e70834cf33790a28643ab058b507b35cBen Cheng# include <config.h> 3125b3c049e70834cf33790a28643ab058b507b35cBen Cheng#endif 3225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 3325b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <string.h> 3425b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include "libdwP.h" 3525b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <dwarf.h> 3625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 3725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 3825b3c049e70834cf33790a28643ab058b507b35cBen ChengDwarf_Die * 3925b3c049e70834cf33790a28643ab058b507b35cBen Chengdwarf_formref_die (attr, result) 4025b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwarf_Attribute *attr; 4125b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwarf_Die *result; 4225b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 4325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (attr == NULL) 4425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 4525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 4625b3c049e70834cf33790a28643ab058b507b35cBen Cheng struct Dwarf_CU *cu = attr->cu; 4725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 4825b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwarf_Off offset; 4903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (attr->form == DW_FORM_ref_addr || attr->form == DW_FORM_GNU_ref_alt) 5025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 5125b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* This has an absolute offset. */ 5225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 5303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes uint8_t ref_size = (cu->version == 2 && attr->form == DW_FORM_ref_addr 5425b3c049e70834cf33790a28643ab058b507b35cBen Cheng ? cu->address_size 5525b3c049e70834cf33790a28643ab058b507b35cBen Cheng : cu->offset_size); 5625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 5703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwarf *dbg_ret = (attr->form == DW_FORM_GNU_ref_alt 5803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes ? cu->dbg->alt_dwarf : cu->dbg); 5903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 6003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (dbg_ret == NULL) 6103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 6203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes __libdw_seterrno (DWARF_E_NO_ALT_DEBUGLINK); 6303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes return NULL; 6403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 6503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 6603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (__libdw_read_offset (cu->dbg, dbg_ret, IDX_debug_info, attr->valp, 6725b3c049e70834cf33790a28643ab058b507b35cBen Cheng ref_size, &offset, IDX_debug_info, 0)) 6825b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 6925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 7003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes return INTUSE(dwarf_offdie) (dbg_ret, offset, result); 7125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 7225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 7303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes const unsigned char *datap; 7403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes size_t size; 7525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (attr->form == DW_FORM_ref_sig8) 7625b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 7725b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* This doesn't have an offset, but instead a value we 7825b3c049e70834cf33790a28643ab058b507b35cBen Cheng have to match in the .debug_types type unit headers. */ 7925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 8025b3c049e70834cf33790a28643ab058b507b35cBen Cheng uint64_t sig = read_8ubyte_unaligned (cu->dbg, attr->valp); 8125b3c049e70834cf33790a28643ab058b507b35cBen Cheng cu = Dwarf_Sig8_Hash_find (&cu->dbg->sig8_hash, sig, NULL); 8225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (cu == NULL) 8325b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Not seen before. We have to scan through the type units. */ 8425b3c049e70834cf33790a28643ab058b507b35cBen Cheng do 8525b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 8625b3c049e70834cf33790a28643ab058b507b35cBen Cheng cu = __libdw_intern_next_unit (attr->cu->dbg, true); 8725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (cu == NULL) 8825b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 8925b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdw_seterrno (INTUSE(dwarf_errno) () 9025b3c049e70834cf33790a28643ab058b507b35cBen Cheng ?: DWARF_E_INVALID_REFERENCE); 9125b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 9225b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 9325b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 9425b3c049e70834cf33790a28643ab058b507b35cBen Cheng while (cu->type_sig8 != sig); 9525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 9603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes datap = cu->dbg->sectiondata[IDX_debug_types]->d_buf; 9703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes size = cu->dbg->sectiondata[IDX_debug_types]->d_size; 9825b3c049e70834cf33790a28643ab058b507b35cBen Cheng offset = cu->type_offset; 9925b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 10025b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 10125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 10225b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Other forms produce an offset from the CU. */ 10325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (__libdw_formref (attr, &offset) != 0)) 10425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 10525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 10603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes datap = cu->startp; 10703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes size = cu->endp - cu->startp; 10825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 10925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 11003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (unlikely (offset >= size)) 11125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 11225b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdw_seterrno (DWARF_E_INVALID_DWARF); 11325b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 11425b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 11525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 11625b3c049e70834cf33790a28643ab058b507b35cBen Cheng memset (result, '\0', sizeof (Dwarf_Die)); 11703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes result->addr = (char *) datap + offset; 11825b3c049e70834cf33790a28643ab058b507b35cBen Cheng result->cu = cu; 11925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return result; 12025b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 12125b3c049e70834cf33790a28643ab058b507b35cBen ChengINTDEF (dwarf_formref_die) 122