125b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* Report a module to libdwfl based on ELF program headers. 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#include <fcntl.h> 5225b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <unistd.h> 5325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 5425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 5525b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* We start every ET_REL module at a moderately aligned boundary. 5625b3c049e70834cf33790a28643ab058b507b35cBen Cheng This keeps the low addresses easy to read compared to a layout 5725b3c049e70834cf33790a28643ab058b507b35cBen Cheng starting at 0 (as when using -e). It also makes it unlikely 5825b3c049e70834cf33790a28643ab058b507b35cBen Cheng that a middle section will have a larger alignment and require 5925b3c049e70834cf33790a28643ab058b507b35cBen Cheng rejiggering (see below). */ 6025b3c049e70834cf33790a28643ab058b507b35cBen Cheng#define REL_MIN_ALIGN ((GElf_Xword) 0x100) 6125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 6225b3c049e70834cf33790a28643ab058b507b35cBen ChengDwfl_Module * 6325b3c049e70834cf33790a28643ab058b507b35cBen Chenginternal_function 6425b3c049e70834cf33790a28643ab058b507b35cBen Cheng__libdwfl_report_elf (Dwfl *dwfl, const char *name, const char *file_name, 6525b3c049e70834cf33790a28643ab058b507b35cBen Cheng int fd, Elf *elf, GElf_Addr base, bool sanity) 6625b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 6725b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Ehdr ehdr_mem, *ehdr = gelf_getehdr (elf, &ehdr_mem); 6825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (ehdr == NULL) 6925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 7025b3c049e70834cf33790a28643ab058b507b35cBen Cheng elf_error: 7125b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdwfl_seterrno (DWFL_E_LIBELF); 7225b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 7325b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 7425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 7525b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr vaddr = 0; 7625b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr address_sync = 0; 7725b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr start = 0, end = 0, bias = 0; 7825b3c049e70834cf33790a28643ab058b507b35cBen Cheng switch (ehdr->e_type) 7925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 8025b3c049e70834cf33790a28643ab058b507b35cBen Cheng case ET_REL: 8125b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* For a relocatable object, we do an arbitrary section layout. 8225b3c049e70834cf33790a28643ab058b507b35cBen Cheng By updating the section header in place, we leave the layout 8325b3c049e70834cf33790a28643ab058b507b35cBen Cheng information to be found by relocation. */ 8425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 8525b3c049e70834cf33790a28643ab058b507b35cBen Cheng start = end = base = (base + REL_MIN_ALIGN - 1) & -REL_MIN_ALIGN; 8625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 8725b3c049e70834cf33790a28643ab058b507b35cBen Cheng bool first = true; 8825b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Scn *scn = NULL; 8925b3c049e70834cf33790a28643ab058b507b35cBen Cheng while ((scn = elf_nextscn (elf, scn)) != NULL) 9025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 9125b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Shdr shdr_mem; 9225b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem); 9325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (shdr == NULL)) 9425b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto elf_error; 9525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 9625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (shdr->sh_flags & SHF_ALLOC) 9725b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 9825b3c049e70834cf33790a28643ab058b507b35cBen Cheng const GElf_Xword align = shdr->sh_addralign ?: 1; 9925b3c049e70834cf33790a28643ab058b507b35cBen Cheng const GElf_Addr next = (end + align - 1) & -align; 10025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (shdr->sh_addr == 0 10125b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Once we've started doing layout we have to do it all, 10225b3c049e70834cf33790a28643ab058b507b35cBen Cheng unless we just layed out the first section at 0 when 10325b3c049e70834cf33790a28643ab058b507b35cBen Cheng it already was at 0. */ 10425b3c049e70834cf33790a28643ab058b507b35cBen Cheng || (bias == 0 && end > start && end != next)) 10525b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 10625b3c049e70834cf33790a28643ab058b507b35cBen Cheng shdr->sh_addr = next; 10725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (end == base) 10825b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* This is the first section assigned a location. 10925b3c049e70834cf33790a28643ab058b507b35cBen Cheng Use its aligned address as the module's base. */ 11025b3c049e70834cf33790a28643ab058b507b35cBen Cheng start = base = shdr->sh_addr; 11125b3c049e70834cf33790a28643ab058b507b35cBen Cheng else if (unlikely (base & (align - 1))) 11225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 11325b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* If BASE has less than the maximum alignment of 11425b3c049e70834cf33790a28643ab058b507b35cBen Cheng any section, we eat more than the optimal amount 11525b3c049e70834cf33790a28643ab058b507b35cBen Cheng of padding and so make the module's apparent 11625b3c049e70834cf33790a28643ab058b507b35cBen Cheng size come out larger than it would when placed 11725b3c049e70834cf33790a28643ab058b507b35cBen Cheng at zero. So reset the layout with a better base. */ 11825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 11925b3c049e70834cf33790a28643ab058b507b35cBen Cheng start = end = base = (base + align - 1) & -align; 12025b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Scn *prev_scn = NULL; 12125b3c049e70834cf33790a28643ab058b507b35cBen Cheng do 12225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 12325b3c049e70834cf33790a28643ab058b507b35cBen Cheng prev_scn = elf_nextscn (elf, prev_scn); 12425b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Shdr prev_shdr_mem; 12525b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Shdr *prev_shdr = gelf_getshdr (prev_scn, 12625b3c049e70834cf33790a28643ab058b507b35cBen Cheng &prev_shdr_mem); 12725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (prev_shdr == NULL)) 12825b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto elf_error; 12925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (prev_shdr->sh_flags & SHF_ALLOC) 13025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 13125b3c049e70834cf33790a28643ab058b507b35cBen Cheng const GElf_Xword prev_align 13225b3c049e70834cf33790a28643ab058b507b35cBen Cheng = prev_shdr->sh_addralign ?: 1; 13325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 13425b3c049e70834cf33790a28643ab058b507b35cBen Cheng prev_shdr->sh_addr 13525b3c049e70834cf33790a28643ab058b507b35cBen Cheng = (end + prev_align - 1) & -prev_align; 13625b3c049e70834cf33790a28643ab058b507b35cBen Cheng end = prev_shdr->sh_addr + prev_shdr->sh_size; 13725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 13825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (! gelf_update_shdr (prev_scn, 13925b3c049e70834cf33790a28643ab058b507b35cBen Cheng prev_shdr))) 14025b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto elf_error; 14125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 14225b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 14325b3c049e70834cf33790a28643ab058b507b35cBen Cheng while (prev_scn != scn); 14425b3c049e70834cf33790a28643ab058b507b35cBen Cheng continue; 14525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 14625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 14725b3c049e70834cf33790a28643ab058b507b35cBen Cheng end = shdr->sh_addr + shdr->sh_size; 14825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (likely (shdr->sh_addr != 0) 14925b3c049e70834cf33790a28643ab058b507b35cBen Cheng && unlikely (! gelf_update_shdr (scn, shdr))) 15025b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto elf_error; 15125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 15225b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 15325b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 15425b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* The address is already assigned. Just track it. */ 15525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (first || end < shdr->sh_addr + shdr->sh_size) 15625b3c049e70834cf33790a28643ab058b507b35cBen Cheng end = shdr->sh_addr + shdr->sh_size; 15725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (first || bias > shdr->sh_addr) 15825b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* This is the lowest address in the module. */ 15925b3c049e70834cf33790a28643ab058b507b35cBen Cheng bias = shdr->sh_addr; 16025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 16125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if ((shdr->sh_addr - bias + base) & (align - 1)) 16225b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* This section winds up misaligned using BASE. 16325b3c049e70834cf33790a28643ab058b507b35cBen Cheng Adjust BASE upwards to make it congruent to 16425b3c049e70834cf33790a28643ab058b507b35cBen Cheng the lowest section address in the file modulo ALIGN. */ 16525b3c049e70834cf33790a28643ab058b507b35cBen Cheng base = (((base + align - 1) & -align) 16625b3c049e70834cf33790a28643ab058b507b35cBen Cheng + (bias & (align - 1))); 16725b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 16825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 16925b3c049e70834cf33790a28643ab058b507b35cBen Cheng first = false; 17025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 17125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 17225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 17325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (bias != 0) 17425b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 17525b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* The section headers had nonzero sh_addr values. The layout 17625b3c049e70834cf33790a28643ab058b507b35cBen Cheng was already done. We've just collected the total span. 17725b3c049e70834cf33790a28643ab058b507b35cBen Cheng Now just compute the bias from the requested base. */ 17825b3c049e70834cf33790a28643ab058b507b35cBen Cheng start = base; 17925b3c049e70834cf33790a28643ab058b507b35cBen Cheng end = end - bias + start; 18025b3c049e70834cf33790a28643ab058b507b35cBen Cheng bias = start - bias; 18125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 18225b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 18325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 18425b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Everything else has to have program headers. */ 18525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 18625b3c049e70834cf33790a28643ab058b507b35cBen Cheng case ET_EXEC: 18725b3c049e70834cf33790a28643ab058b507b35cBen Cheng case ET_CORE: 18825b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* An assigned base address is meaningless for these. */ 18925b3c049e70834cf33790a28643ab058b507b35cBen Cheng base = 0; 19025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 19125b3c049e70834cf33790a28643ab058b507b35cBen Cheng case ET_DYN: 19225b3c049e70834cf33790a28643ab058b507b35cBen Cheng default:; 19325b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t phnum; 19425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (elf_getphdrnum (elf, &phnum) != 0)) 19525b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto elf_error; 19625b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (size_t i = 0; i < phnum; ++i) 19725b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 19825b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Phdr phdr_mem, *ph = gelf_getphdr (elf, i, &phdr_mem); 19925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (ph == NULL)) 20025b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto elf_error; 20125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (ph->p_type == PT_LOAD) 20225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 20325b3c049e70834cf33790a28643ab058b507b35cBen Cheng vaddr = ph->p_vaddr & -ph->p_align; 20425b3c049e70834cf33790a28643ab058b507b35cBen Cheng address_sync = ph->p_vaddr + ph->p_memsz; 20525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if ((base & (ph->p_align - 1)) != 0) 20625b3c049e70834cf33790a28643ab058b507b35cBen Cheng base = (base + ph->p_align - 1) & -ph->p_align; 20725b3c049e70834cf33790a28643ab058b507b35cBen Cheng start = base + (ph->p_vaddr & -ph->p_align); 20825b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 20925b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 21025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 21125b3c049e70834cf33790a28643ab058b507b35cBen Cheng bias = start - vaddr; 21225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 21325b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (size_t i = phnum; i-- > 0;) 21425b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 21525b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Phdr phdr_mem, *ph = gelf_getphdr (elf, i, &phdr_mem); 21625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (ph == NULL)) 21725b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto elf_error; 21825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (ph->p_type == PT_LOAD 21925b3c049e70834cf33790a28643ab058b507b35cBen Cheng && ph->p_vaddr + ph->p_memsz > 0) 22025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 22125b3c049e70834cf33790a28643ab058b507b35cBen Cheng end = base + (ph->p_vaddr + ph->p_memsz); 22225b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 22325b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 22425b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 22525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 22625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (end == 0 && sanity) 22725b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 22825b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdwfl_seterrno (DWFL_E_NO_PHDR); 22925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 23025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 23125b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 23225b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 23325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 23425b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwfl_Module *m = INTUSE(dwfl_report_module) (dwfl, name, start, end); 23525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (m != NULL) 23625b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 23725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (m->main.name == NULL) 23825b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 23925b3c049e70834cf33790a28643ab058b507b35cBen Cheng m->main.name = strdup (file_name); 24025b3c049e70834cf33790a28643ab058b507b35cBen Cheng m->main.fd = fd; 24125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 24225b3c049e70834cf33790a28643ab058b507b35cBen Cheng else if ((fd >= 0 && m->main.fd != fd) 24325b3c049e70834cf33790a28643ab058b507b35cBen Cheng || strcmp (m->main.name, file_name)) 24425b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 24525b3c049e70834cf33790a28643ab058b507b35cBen Cheng overlap: 24625b3c049e70834cf33790a28643ab058b507b35cBen Cheng m->gc = true; 24725b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdwfl_seterrno (DWFL_E_OVERLAP); 24825b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 24925b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 25025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 25125b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Preinstall the open ELF handle for the module. */ 25225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (m->main.elf == NULL) 25325b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 25425b3c049e70834cf33790a28643ab058b507b35cBen Cheng m->main.elf = elf; 25525b3c049e70834cf33790a28643ab058b507b35cBen Cheng m->main.vaddr = vaddr; 25625b3c049e70834cf33790a28643ab058b507b35cBen Cheng m->main.address_sync = address_sync; 25725b3c049e70834cf33790a28643ab058b507b35cBen Cheng m->main_bias = bias; 25825b3c049e70834cf33790a28643ab058b507b35cBen Cheng m->e_type = ehdr->e_type; 25925b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 26025b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 26125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 26225b3c049e70834cf33790a28643ab058b507b35cBen Cheng elf_end (elf); 26325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (m->main_bias != bias 26425b3c049e70834cf33790a28643ab058b507b35cBen Cheng || m->main.vaddr != vaddr || m->main.address_sync != address_sync) 26525b3c049e70834cf33790a28643ab058b507b35cBen Cheng goto overlap; 26625b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 26725b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 26825b3c049e70834cf33790a28643ab058b507b35cBen Cheng return m; 26925b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 27025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 27125b3c049e70834cf33790a28643ab058b507b35cBen ChengDwfl_Module * 27225b3c049e70834cf33790a28643ab058b507b35cBen Chengdwfl_report_elf (Dwfl *dwfl, const char *name, 27325b3c049e70834cf33790a28643ab058b507b35cBen Cheng const char *file_name, int fd, GElf_Addr base) 27425b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 27525b3c049e70834cf33790a28643ab058b507b35cBen Cheng bool closefd = false; 27625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (fd < 0) 27725b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 27825b3c049e70834cf33790a28643ab058b507b35cBen Cheng closefd = true; 27925b3c049e70834cf33790a28643ab058b507b35cBen Cheng fd = open64 (file_name, O_RDONLY); 28025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (fd < 0) 28125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 28225b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdwfl_seterrno (DWFL_E_ERRNO); 28325b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 28425b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 28525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 28625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 28725b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf *elf; 28825b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwfl_Error error = __libdw_open_file (&fd, &elf, closefd, false); 28925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (error != DWFL_E_NOERROR) 29025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 29125b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdwfl_seterrno (error); 29225b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 29325b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 29425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 29525b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwfl_Module *mod = __libdwfl_report_elf (dwfl, name, file_name, 29625b3c049e70834cf33790a28643ab058b507b35cBen Cheng fd, elf, base, true); 29725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (mod == NULL) 29825b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 29925b3c049e70834cf33790a28643ab058b507b35cBen Cheng elf_end (elf); 30025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (closefd) 30125b3c049e70834cf33790a28643ab058b507b35cBen Cheng close (fd); 30225b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 30325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 30425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return mod; 30525b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 30625b3c049e70834cf33790a28643ab058b507b35cBen ChengINTDEF (dwfl_report_elf) 307