125b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* Recover relocatibility for addresses computed from debug information. 225b3c049e70834cf33790a28643ab058b507b35cBen Cheng Copyright (C) 2005-2010 Red Hat, Inc. 325b3c049e70834cf33790a28643ab058b507b35cBen Cheng This file is part of Red Hat elfutils. 425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 525b3c049e70834cf33790a28643ab058b507b35cBen Cheng Red Hat elfutils is free software; you can redistribute it and/or modify 625b3c049e70834cf33790a28643ab058b507b35cBen Cheng it under the terms of the GNU General Public License as published by the 725b3c049e70834cf33790a28643ab058b507b35cBen Cheng Free Software Foundation; version 2 of the License. 825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 925b3c049e70834cf33790a28643ab058b507b35cBen Cheng Red Hat elfutils is distributed in the hope that it will be useful, but 1025b3c049e70834cf33790a28643ab058b507b35cBen Cheng WITHOUT ANY WARRANTY; without even the implied warranty of 1125b3c049e70834cf33790a28643ab058b507b35cBen Cheng MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 1225b3c049e70834cf33790a28643ab058b507b35cBen Cheng General Public License for more details. 1325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 1425b3c049e70834cf33790a28643ab058b507b35cBen Cheng You should have received a copy of the GNU General Public License along 1525b3c049e70834cf33790a28643ab058b507b35cBen Cheng with Red Hat elfutils; if not, write to the Free Software Foundation, 1625b3c049e70834cf33790a28643ab058b507b35cBen Cheng Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA. 1725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 1825b3c049e70834cf33790a28643ab058b507b35cBen Cheng In addition, as a special exception, Red Hat, Inc. gives You the 1925b3c049e70834cf33790a28643ab058b507b35cBen Cheng additional right to link the code of Red Hat elfutils with code licensed 2025b3c049e70834cf33790a28643ab058b507b35cBen Cheng under any Open Source Initiative certified open source license 2125b3c049e70834cf33790a28643ab058b507b35cBen Cheng (http://www.opensource.org/licenses/index.php) which requires the 2225b3c049e70834cf33790a28643ab058b507b35cBen Cheng distribution of source code with any binary distribution and to 2325b3c049e70834cf33790a28643ab058b507b35cBen Cheng distribute linked combinations of the two. Non-GPL Code permitted under 2425b3c049e70834cf33790a28643ab058b507b35cBen Cheng this exception must only link to the code of Red Hat elfutils through 2525b3c049e70834cf33790a28643ab058b507b35cBen Cheng those well defined interfaces identified in the file named EXCEPTION 2625b3c049e70834cf33790a28643ab058b507b35cBen Cheng found in the source code files (the "Approved Interfaces"). The files 2725b3c049e70834cf33790a28643ab058b507b35cBen Cheng of Non-GPL Code may instantiate templates or use macros or inline 2825b3c049e70834cf33790a28643ab058b507b35cBen Cheng functions from the Approved Interfaces without causing the resulting 2925b3c049e70834cf33790a28643ab058b507b35cBen Cheng work to be covered by the GNU General Public License. Only Red Hat, 3025b3c049e70834cf33790a28643ab058b507b35cBen Cheng Inc. may make changes or additions to the list of Approved Interfaces. 3125b3c049e70834cf33790a28643ab058b507b35cBen Cheng Red Hat's grant of this exception is conditioned upon your not adding 3225b3c049e70834cf33790a28643ab058b507b35cBen Cheng any new exceptions. If you wish to add a new Approved Interface or 3325b3c049e70834cf33790a28643ab058b507b35cBen Cheng exception, please contact Red Hat. You must obey the GNU General Public 3425b3c049e70834cf33790a28643ab058b507b35cBen Cheng License in all respects for all of the Red Hat elfutils code and other 3525b3c049e70834cf33790a28643ab058b507b35cBen Cheng code used in conjunction with Red Hat elfutils except the Non-GPL Code 3625b3c049e70834cf33790a28643ab058b507b35cBen Cheng covered by this exception. If you modify this file, you may extend this 3725b3c049e70834cf33790a28643ab058b507b35cBen Cheng exception to your version of the file, but you are not obligated to do 3825b3c049e70834cf33790a28643ab058b507b35cBen Cheng so. If you do not wish to provide this exception without modification, 3925b3c049e70834cf33790a28643ab058b507b35cBen Cheng you must delete this exception statement from your version and license 4025b3c049e70834cf33790a28643ab058b507b35cBen Cheng this file solely under the GPL without exception. 4125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 4225b3c049e70834cf33790a28643ab058b507b35cBen Cheng Red Hat elfutils is an included package of the Open Invention Network. 4325b3c049e70834cf33790a28643ab058b507b35cBen Cheng An included package of the Open Invention Network is a package for which 4425b3c049e70834cf33790a28643ab058b507b35cBen Cheng Open Invention Network licensees cross-license their patents. No patent 4525b3c049e70834cf33790a28643ab058b507b35cBen Cheng license is granted, either expressly or impliedly, by designation as an 4625b3c049e70834cf33790a28643ab058b507b35cBen Cheng included package. Should you wish to participate in the Open Invention 4725b3c049e70834cf33790a28643ab058b507b35cBen Cheng Network licensing program, please visit www.openinventionnetwork.com 4825b3c049e70834cf33790a28643ab058b507b35cBen Cheng <http://www.openinventionnetwork.com>. */ 4925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 5025b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include "libdwflP.h" 5125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 5225b3c049e70834cf33790a28643ab058b507b35cBen Chengstruct dwfl_relocation 5325b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 5425b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t count; 5525b3c049e70834cf33790a28643ab058b507b35cBen Cheng struct 5625b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 5725b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Scn *scn; 5825b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Scn *relocs; 5925b3c049e70834cf33790a28643ab058b507b35cBen Cheng const char *name; 6025b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr start, end; 6125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } refs[0]; 6225b3c049e70834cf33790a28643ab058b507b35cBen Cheng}; 6325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 6425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 6525b3c049e70834cf33790a28643ab058b507b35cBen Chengstruct secref 6625b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 6725b3c049e70834cf33790a28643ab058b507b35cBen Cheng struct secref *next; 6825b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Scn *scn; 6925b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Scn *relocs; 7025b3c049e70834cf33790a28643ab058b507b35cBen Cheng const char *name; 7125b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr start, end; 7225b3c049e70834cf33790a28643ab058b507b35cBen Cheng}; 7325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 7425b3c049e70834cf33790a28643ab058b507b35cBen Chengstatic int 7525b3c049e70834cf33790a28643ab058b507b35cBen Chengcompare_secrefs (const void *a, const void *b) 7625b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 7725b3c049e70834cf33790a28643ab058b507b35cBen Cheng struct secref *const *p1 = a; 7825b3c049e70834cf33790a28643ab058b507b35cBen Cheng struct secref *const *p2 = b; 7925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 8025b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* No signed difference calculation is correct here, since the 8125b3c049e70834cf33790a28643ab058b507b35cBen Cheng terms are unsigned and could be more than INT64_MAX apart. */ 8225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if ((*p1)->start < (*p2)->start) 8325b3c049e70834cf33790a28643ab058b507b35cBen Cheng return -1; 8425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if ((*p1)->start > (*p2)->start) 8525b3c049e70834cf33790a28643ab058b507b35cBen Cheng return 1; 8625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 8725b3c049e70834cf33790a28643ab058b507b35cBen Cheng return 0; 8825b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 8925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 9025b3c049e70834cf33790a28643ab058b507b35cBen Chengstatic int 9125b3c049e70834cf33790a28643ab058b507b35cBen Chengcache_sections (Dwfl_Module *mod) 9225b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 9325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (likely (mod->reloc_info != NULL)) 9425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return mod->reloc_info->count; 9525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 9625b3c049e70834cf33790a28643ab058b507b35cBen Cheng struct secref *refs = NULL; 9725b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t nrefs = 0; 9825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 9925b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t shstrndx; 10025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (elf_getshdrstrndx (mod->main.elf, &shstrndx) < 0)) 10125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 10225b3c049e70834cf33790a28643ab058b507b35cBen Cheng elf_error: 10325b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdwfl_seterrno (DWFL_E_LIBELF); 10425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return -1; 10525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 10625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 10725b3c049e70834cf33790a28643ab058b507b35cBen Cheng bool check_reloc_sections = false; 10825b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Scn *scn = NULL; 10925b3c049e70834cf33790a28643ab058b507b35cBen Cheng while ((scn = elf_nextscn (mod->main.elf, scn)) != NULL) 11025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 11125b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Shdr shdr_mem; 11225b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem); 11325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (shdr == NULL) 11425b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto elf_error; 11525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 11625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if ((shdr->sh_flags & SHF_ALLOC) && shdr->sh_addr == 0 11725b3c049e70834cf33790a28643ab058b507b35cBen Cheng && mod->e_type == ET_REL) 11825b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 11925b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* This section might not yet have been looked at. */ 12025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (__libdwfl_relocate_value (mod, mod->main.elf, &shstrndx, 12125b3c049e70834cf33790a28643ab058b507b35cBen Cheng elf_ndxscn (scn), 12225b3c049e70834cf33790a28643ab058b507b35cBen Cheng &shdr->sh_addr) != DWFL_E_NOERROR) 12325b3c049e70834cf33790a28643ab058b507b35cBen Cheng continue; 12425b3c049e70834cf33790a28643ab058b507b35cBen Cheng shdr = gelf_getshdr (scn, &shdr_mem); 12525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (shdr == NULL)) 12625b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto elf_error; 12725b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 12825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 12925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (shdr->sh_flags & SHF_ALLOC) 13025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 13125b3c049e70834cf33790a28643ab058b507b35cBen Cheng const char *name = elf_strptr (mod->main.elf, shstrndx, 13225b3c049e70834cf33790a28643ab058b507b35cBen Cheng shdr->sh_name); 13325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (name == NULL)) 13425b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto elf_error; 13525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 13625b3c049e70834cf33790a28643ab058b507b35cBen Cheng struct secref *newref = alloca (sizeof *newref); 13725b3c049e70834cf33790a28643ab058b507b35cBen Cheng newref->scn = scn; 13825b3c049e70834cf33790a28643ab058b507b35cBen Cheng newref->relocs = NULL; 13925b3c049e70834cf33790a28643ab058b507b35cBen Cheng newref->name = name; 14025b3c049e70834cf33790a28643ab058b507b35cBen Cheng newref->start = dwfl_adjusted_address (mod, shdr->sh_addr); 14125b3c049e70834cf33790a28643ab058b507b35cBen Cheng newref->end = newref->start + shdr->sh_size; 14225b3c049e70834cf33790a28643ab058b507b35cBen Cheng newref->next = refs; 14325b3c049e70834cf33790a28643ab058b507b35cBen Cheng refs = newref; 14425b3c049e70834cf33790a28643ab058b507b35cBen Cheng ++nrefs; 14525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 14625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 14725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (mod->e_type == ET_REL 14825b3c049e70834cf33790a28643ab058b507b35cBen Cheng && shdr->sh_size != 0 14925b3c049e70834cf33790a28643ab058b507b35cBen Cheng && (shdr->sh_type == SHT_REL || shdr->sh_type == SHT_RELA) 15025b3c049e70834cf33790a28643ab058b507b35cBen Cheng && mod->dwfl->callbacks->section_address != NULL) 15125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 15225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (shdr->sh_info < elf_ndxscn (scn)) 15325b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 15425b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We've already looked at the section these relocs apply to. */ 15525b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Scn *tscn = elf_getscn (mod->main.elf, shdr->sh_info); 15625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (likely (tscn != NULL)) 15725b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (struct secref *sec = refs; sec != NULL; sec = sec->next) 15825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (sec->scn == tscn) 15925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 16025b3c049e70834cf33790a28643ab058b507b35cBen Cheng sec->relocs = scn; 16125b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 16225b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 16325b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 16425b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 16525b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We'll have to do a second pass. */ 16625b3c049e70834cf33790a28643ab058b507b35cBen Cheng check_reloc_sections = true; 16725b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 16825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 16925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 17025b3c049e70834cf33790a28643ab058b507b35cBen Cheng mod->reloc_info = malloc (offsetof (struct dwfl_relocation, refs[nrefs])); 17125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (mod->reloc_info == NULL) 17225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 17325b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdwfl_seterrno (DWFL_E_NOMEM); 17425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return -1; 17525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 17625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 17725b3c049e70834cf33790a28643ab058b507b35cBen Cheng struct secref **sortrefs = alloca (nrefs * sizeof sortrefs[0]); 17825b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (size_t i = nrefs; i-- > 0; refs = refs->next) 17925b3c049e70834cf33790a28643ab058b507b35cBen Cheng sortrefs[i] = refs; 18025b3c049e70834cf33790a28643ab058b507b35cBen Cheng assert (refs == NULL); 18125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 18225b3c049e70834cf33790a28643ab058b507b35cBen Cheng qsort (sortrefs, nrefs, sizeof sortrefs[0], &compare_secrefs); 18325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 18425b3c049e70834cf33790a28643ab058b507b35cBen Cheng mod->reloc_info->count = nrefs; 18525b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (size_t i = 0; i < nrefs; ++i) 18625b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 18725b3c049e70834cf33790a28643ab058b507b35cBen Cheng mod->reloc_info->refs[i].name = sortrefs[i]->name; 18825b3c049e70834cf33790a28643ab058b507b35cBen Cheng mod->reloc_info->refs[i].scn = sortrefs[i]->scn; 18925b3c049e70834cf33790a28643ab058b507b35cBen Cheng mod->reloc_info->refs[i].relocs = sortrefs[i]->relocs; 19025b3c049e70834cf33790a28643ab058b507b35cBen Cheng mod->reloc_info->refs[i].start = sortrefs[i]->start; 19125b3c049e70834cf33790a28643ab058b507b35cBen Cheng mod->reloc_info->refs[i].end = sortrefs[i]->end; 19225b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 19325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 19425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (check_reloc_sections)) 19525b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 19625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* There was a reloc section that preceded its target section. 19725b3c049e70834cf33790a28643ab058b507b35cBen Cheng So we have to scan again now that we have cached all the 19825b3c049e70834cf33790a28643ab058b507b35cBen Cheng possible target sections we care about. */ 19925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 20025b3c049e70834cf33790a28643ab058b507b35cBen Cheng scn = NULL; 20125b3c049e70834cf33790a28643ab058b507b35cBen Cheng while ((scn = elf_nextscn (mod->main.elf, scn)) != NULL) 20225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 20325b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Shdr shdr_mem; 20425b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem); 20525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (shdr == NULL) 20625b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto elf_error; 20725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 20825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (shdr->sh_size != 0 20925b3c049e70834cf33790a28643ab058b507b35cBen Cheng && (shdr->sh_type == SHT_REL || shdr->sh_type == SHT_RELA)) 21025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 21125b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Scn *tscn = elf_getscn (mod->main.elf, shdr->sh_info); 21225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (likely (tscn != NULL)) 21325b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (size_t i = 0; i < nrefs; ++i) 21425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (mod->reloc_info->refs[i].scn == tscn) 21525b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 21625b3c049e70834cf33790a28643ab058b507b35cBen Cheng mod->reloc_info->refs[i].relocs = scn; 21725b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 21825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 21925b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 22025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 22125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 22225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 22325b3c049e70834cf33790a28643ab058b507b35cBen Cheng return nrefs; 22425b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 22525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 22625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 22725b3c049e70834cf33790a28643ab058b507b35cBen Chengint 22825b3c049e70834cf33790a28643ab058b507b35cBen Chengdwfl_module_relocations (Dwfl_Module *mod) 22925b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 23025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (mod == NULL) 23125b3c049e70834cf33790a28643ab058b507b35cBen Cheng return -1; 23225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 23325b3c049e70834cf33790a28643ab058b507b35cBen Cheng switch (mod->e_type) 23425b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 23525b3c049e70834cf33790a28643ab058b507b35cBen Cheng case ET_REL: 23625b3c049e70834cf33790a28643ab058b507b35cBen Cheng return cache_sections (mod); 23725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 23825b3c049e70834cf33790a28643ab058b507b35cBen Cheng case ET_DYN: 23925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return 1; 24025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 24125b3c049e70834cf33790a28643ab058b507b35cBen Cheng case ET_EXEC: 24225b3c049e70834cf33790a28643ab058b507b35cBen Cheng assert (mod->main.vaddr == mod->low_addr); 24325b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 24425b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 24525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 24625b3c049e70834cf33790a28643ab058b507b35cBen Cheng return 0; 24725b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 24825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 24925b3c049e70834cf33790a28643ab058b507b35cBen Chengconst char * 25025b3c049e70834cf33790a28643ab058b507b35cBen Chengdwfl_module_relocation_info (Dwfl_Module *mod, unsigned int idx, 25125b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf32_Word *shndxp) 25225b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 25325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (mod == NULL) 25425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 25525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 25625b3c049e70834cf33790a28643ab058b507b35cBen Cheng switch (mod->e_type) 25725b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 25825b3c049e70834cf33790a28643ab058b507b35cBen Cheng case ET_REL: 25925b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 26025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 26125b3c049e70834cf33790a28643ab058b507b35cBen Cheng case ET_DYN: 26225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (idx != 0) 26325b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 26425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (shndxp) 26525b3c049e70834cf33790a28643ab058b507b35cBen Cheng *shndxp = SHN_ABS; 26625b3c049e70834cf33790a28643ab058b507b35cBen Cheng return ""; 26725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 26825b3c049e70834cf33790a28643ab058b507b35cBen Cheng default: 26925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 27025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 27125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 27225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (cache_sections (mod) < 0) 27325b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 27425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 27525b3c049e70834cf33790a28643ab058b507b35cBen Cheng struct dwfl_relocation *sections = mod->reloc_info; 27625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 27725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (idx >= sections->count) 27825b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 27925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 28025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (shndxp) 28125b3c049e70834cf33790a28643ab058b507b35cBen Cheng *shndxp = elf_ndxscn (sections->refs[idx].scn); 28225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 28325b3c049e70834cf33790a28643ab058b507b35cBen Cheng return sections->refs[idx].name; 28425b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 28525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 28625b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* Check that MOD is valid and make sure its relocation has been done. */ 28725b3c049e70834cf33790a28643ab058b507b35cBen Chengstatic bool 28825b3c049e70834cf33790a28643ab058b507b35cBen Chengcheck_module (Dwfl_Module *mod) 28925b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 29025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (INTUSE(dwfl_module_getsymtab) (mod) < 0) 29125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 29225b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwfl_Error error = dwfl_errno (); 29325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (error != DWFL_E_NO_SYMTAB) 29425b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 29525b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdwfl_seterrno (error); 29625b3c049e70834cf33790a28643ab058b507b35cBen Cheng return true; 29725b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 29825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 29925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 30025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (mod->dw == NULL) 30125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 30225b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwarf_Addr bias; 30325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (INTUSE(dwfl_module_getdwarf) (mod, &bias) == NULL) 30425b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 30525b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwfl_Error error = dwfl_errno (); 30625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (error != DWFL_E_NO_DWARF) 30725b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 30825b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdwfl_seterrno (error); 30925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return true; 31025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 31125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 31225b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 31325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 31425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 31525b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 31625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 31725b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* Find the index in MOD->reloc_info.refs containing *ADDR. */ 31825b3c049e70834cf33790a28643ab058b507b35cBen Chengstatic int 31925b3c049e70834cf33790a28643ab058b507b35cBen Chengfind_section (Dwfl_Module *mod, Dwarf_Addr *addr) 32025b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 32125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (cache_sections (mod) < 0) 32225b3c049e70834cf33790a28643ab058b507b35cBen Cheng return -1; 32325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 32425b3c049e70834cf33790a28643ab058b507b35cBen Cheng struct dwfl_relocation *sections = mod->reloc_info; 32525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 32625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* The sections are sorted by address, so we can use binary search. */ 32725b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t l = 0, u = sections->count; 32825b3c049e70834cf33790a28643ab058b507b35cBen Cheng while (l < u) 32925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 33025b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t idx = (l + u) / 2; 33125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (*addr < sections->refs[idx].start) 33225b3c049e70834cf33790a28643ab058b507b35cBen Cheng u = idx; 33325b3c049e70834cf33790a28643ab058b507b35cBen Cheng else if (*addr > sections->refs[idx].end) 33425b3c049e70834cf33790a28643ab058b507b35cBen Cheng l = idx + 1; 33525b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 33625b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 33725b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Consider the limit of a section to be inside it, unless it's 33825b3c049e70834cf33790a28643ab058b507b35cBen Cheng inside the next one. A section limit address can appear in 33925b3c049e70834cf33790a28643ab058b507b35cBen Cheng line records. */ 34025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (*addr == sections->refs[idx].end 34125b3c049e70834cf33790a28643ab058b507b35cBen Cheng && idx < sections->count 34225b3c049e70834cf33790a28643ab058b507b35cBen Cheng && *addr == sections->refs[idx + 1].start) 34325b3c049e70834cf33790a28643ab058b507b35cBen Cheng ++idx; 34425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 34525b3c049e70834cf33790a28643ab058b507b35cBen Cheng *addr -= sections->refs[idx].start; 34625b3c049e70834cf33790a28643ab058b507b35cBen Cheng return idx; 34725b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 34825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 34925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 35025b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdwfl_seterrno (DWFL_E (LIBDW, DWARF_E_NO_MATCH)); 35125b3c049e70834cf33790a28643ab058b507b35cBen Cheng return -1; 35225b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 35325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 35425b3c049e70834cf33790a28643ab058b507b35cBen Chengint 35525b3c049e70834cf33790a28643ab058b507b35cBen Chengdwfl_module_relocate_address (Dwfl_Module *mod, Dwarf_Addr *addr) 35625b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 35725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (check_module (mod))) 35825b3c049e70834cf33790a28643ab058b507b35cBen Cheng return -1; 35925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 36025b3c049e70834cf33790a28643ab058b507b35cBen Cheng switch (mod->e_type) 36125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 36225b3c049e70834cf33790a28643ab058b507b35cBen Cheng case ET_REL: 36325b3c049e70834cf33790a28643ab058b507b35cBen Cheng return find_section (mod, addr); 36425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 36525b3c049e70834cf33790a28643ab058b507b35cBen Cheng case ET_DYN: 36625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* All relative to first and only relocation base: module start. */ 36725b3c049e70834cf33790a28643ab058b507b35cBen Cheng *addr -= mod->low_addr; 36825b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 36925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 37025b3c049e70834cf33790a28643ab058b507b35cBen Cheng default: 37125b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Already absolute, dwfl_module_relocations returned zero. We 37225b3c049e70834cf33790a28643ab058b507b35cBen Cheng shouldn't really have been called, but it's a harmless no-op. */ 37325b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 37425b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 37525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 37625b3c049e70834cf33790a28643ab058b507b35cBen Cheng return 0; 37725b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 37825b3c049e70834cf33790a28643ab058b507b35cBen ChengINTDEF (dwfl_module_relocate_address) 37925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 38025b3c049e70834cf33790a28643ab058b507b35cBen ChengElf_Scn * 38125b3c049e70834cf33790a28643ab058b507b35cBen Chengdwfl_module_address_section (Dwfl_Module *mod, Dwarf_Addr *address, 38225b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwarf_Addr *bias) 38325b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 38425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (check_module (mod)) 38525b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 38625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 38725b3c049e70834cf33790a28643ab058b507b35cBen Cheng int idx = find_section (mod, address); 38825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (idx < 0) 38925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 39025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 39125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (mod->reloc_info->refs[idx].relocs != NULL) 39225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 39325b3c049e70834cf33790a28643ab058b507b35cBen Cheng assert (mod->e_type == ET_REL); 39425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 39525b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Scn *tscn = mod->reloc_info->refs[idx].scn; 39625b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Scn *relocscn = mod->reloc_info->refs[idx].relocs; 39725b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwfl_Error result = __libdwfl_relocate_section (mod, mod->main.elf, 39825b3c049e70834cf33790a28643ab058b507b35cBen Cheng relocscn, tscn, true); 39925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (likely (result == DWFL_E_NOERROR)) 40025b3c049e70834cf33790a28643ab058b507b35cBen Cheng mod->reloc_info->refs[idx].relocs = NULL; 40125b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 40225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 40325b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdwfl_seterrno (result); 40425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 40525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 40625b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 40725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 40825b3c049e70834cf33790a28643ab058b507b35cBen Cheng *bias = dwfl_adjusted_address (mod, 0); 40925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return mod->reloc_info->refs[idx].scn; 41025b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 41125b3c049e70834cf33790a28643ab058b507b35cBen ChengINTDEF (dwfl_module_address_section) 412