/* Report a module to libdwfl based on ELF program headers. Copyright (C) 2005-2010 Red Hat, Inc. This file is part of elfutils. This file is free software; you can redistribute it and/or modify it under the terms of either * the GNU Lesser General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version or * the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version or both in parallel, as here. elfutils is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received copies of the GNU General Public License and the GNU Lesser General Public License along with this program. If not, see . */ #include "libdwflP.h" #include #include /* We start every ET_REL module at a moderately aligned boundary. This keeps the low addresses easy to read compared to a layout starting at 0 (as when using -e). It also makes it unlikely that a middle section will have a larger alignment and require rejiggering (see below). */ #define REL_MIN_ALIGN ((GElf_Xword) 0x100) bool internal_function __libdwfl_elf_address_range (Elf *elf, GElf_Addr base, bool add_p_vaddr, bool sanity, GElf_Addr *vaddrp, GElf_Addr *address_syncp, GElf_Addr *startp, GElf_Addr *endp, GElf_Addr *biasp, GElf_Half *e_typep) { GElf_Ehdr ehdr_mem, *ehdr = gelf_getehdr (elf, &ehdr_mem); if (ehdr == NULL) { elf_error: __libdwfl_seterrno (DWFL_E_LIBELF); return false; } GElf_Addr vaddr = 0; GElf_Addr address_sync = 0; GElf_Addr start = 0, end = 0, bias = 0; switch (ehdr->e_type) { case ET_REL: /* For a relocatable object, we do an arbitrary section layout. By updating the section header in place, we leave the layout information to be found by relocation. */ start = end = base = (base + REL_MIN_ALIGN - 1) & -REL_MIN_ALIGN; bool first = true; Elf_Scn *scn = NULL; while ((scn = elf_nextscn (elf, scn)) != NULL) { GElf_Shdr shdr_mem; GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem); if (unlikely (shdr == NULL)) goto elf_error; if (shdr->sh_flags & SHF_ALLOC) { const GElf_Xword align = shdr->sh_addralign ?: 1; const GElf_Addr next = (end + align - 1) & -align; if (shdr->sh_addr == 0 /* Once we've started doing layout we have to do it all, unless we just layed out the first section at 0 when it already was at 0. */ || (bias == 0 && end > start && end != next)) { shdr->sh_addr = next; if (end == base) /* This is the first section assigned a location. Use its aligned address as the module's base. */ start = base = shdr->sh_addr; else if (unlikely (base & (align - 1))) { /* If BASE has less than the maximum alignment of any section, we eat more than the optimal amount of padding and so make the module's apparent size come out larger than it would when placed at zero. So reset the layout with a better base. */ start = end = base = (base + align - 1) & -align; Elf_Scn *prev_scn = NULL; do { prev_scn = elf_nextscn (elf, prev_scn); GElf_Shdr prev_shdr_mem; GElf_Shdr *prev_shdr = gelf_getshdr (prev_scn, &prev_shdr_mem); if (unlikely (prev_shdr == NULL)) goto elf_error; if (prev_shdr->sh_flags & SHF_ALLOC) { const GElf_Xword prev_align = prev_shdr->sh_addralign ?: 1; prev_shdr->sh_addr = (end + prev_align - 1) & -prev_align; end = prev_shdr->sh_addr + prev_shdr->sh_size; if (unlikely (! gelf_update_shdr (prev_scn, prev_shdr))) goto elf_error; } } while (prev_scn != scn); continue; } end = shdr->sh_addr + shdr->sh_size; if (likely (shdr->sh_addr != 0) && unlikely (! gelf_update_shdr (scn, shdr))) goto elf_error; } else { /* The address is already assigned. Just track it. */ if (first || end < shdr->sh_addr + shdr->sh_size) end = shdr->sh_addr + shdr->sh_size; if (first || bias > shdr->sh_addr) /* This is the lowest address in the module. */ bias = shdr->sh_addr; if ((shdr->sh_addr - bias + base) & (align - 1)) /* This section winds up misaligned using BASE. Adjust BASE upwards to make it congruent to the lowest section address in the file modulo ALIGN. */ base = (((base + align - 1) & -align) + (bias & (align - 1))); } first = false; } } if (bias != 0) { /* The section headers had nonzero sh_addr values. The layout was already done. We've just collected the total span. Now just compute the bias from the requested base. */ start = base; end = end - bias + start; bias = start - bias; } break; /* Everything else has to have program headers. */ case ET_EXEC: case ET_CORE: /* An assigned base address is meaningless for these. */ base = 0; add_p_vaddr = true; case ET_DYN: default:; size_t phnum; if (unlikely (elf_getphdrnum (elf, &phnum) != 0)) goto elf_error; for (size_t i = 0; i < phnum; ++i) { GElf_Phdr phdr_mem, *ph = gelf_getphdr (elf, i, &phdr_mem); if (unlikely (ph == NULL)) goto elf_error; if (ph->p_type == PT_LOAD) { vaddr = ph->p_vaddr & -ph->p_align; address_sync = ph->p_vaddr + ph->p_memsz; break; } } if (add_p_vaddr) { start = base + vaddr; bias = base; } else { start = base; bias = base - vaddr; } for (size_t i = phnum; i-- > 0;) { GElf_Phdr phdr_mem, *ph = gelf_getphdr (elf, i, &phdr_mem); if (unlikely (ph == NULL)) goto elf_error; if (ph->p_type == PT_LOAD && ph->p_vaddr + ph->p_memsz > 0) { end = bias + (ph->p_vaddr + ph->p_memsz); break; } } if (end == 0 && sanity) { __libdwfl_seterrno (DWFL_E_NO_PHDR); return false; } break; } if (vaddrp) *vaddrp = vaddr; if (address_syncp) *address_syncp = address_sync; if (startp) *startp = start; if (endp) *endp = end; if (biasp) *biasp = bias; if (e_typep) *e_typep = ehdr->e_type; return true; } Dwfl_Module * internal_function __libdwfl_report_elf (Dwfl *dwfl, const char *name, const char *file_name, int fd, Elf *elf, GElf_Addr base, bool add_p_vaddr, bool sanity) { GElf_Addr vaddr, address_sync, start, end, bias; GElf_Half e_type; if (! __libdwfl_elf_address_range (elf, base, add_p_vaddr, sanity, &vaddr, &address_sync, &start, &end, &bias, &e_type)) return NULL; Dwfl_Module *m = INTUSE(dwfl_report_module) (dwfl, name, start, end); if (m != NULL) { if (m->main.name == NULL) { m->main.name = strdup (file_name); m->main.fd = fd; } else if ((fd >= 0 && m->main.fd != fd) || strcmp (m->main.name, file_name)) { overlap: m->gc = true; __libdwfl_seterrno (DWFL_E_OVERLAP); return NULL; } /* Preinstall the open ELF handle for the module. */ if (m->main.elf == NULL) { m->main.elf = elf; m->main.vaddr = vaddr; m->main.address_sync = address_sync; m->main_bias = bias; m->e_type = e_type; } else { elf_end (elf); if (m->main_bias != bias || m->main.vaddr != vaddr || m->main.address_sync != address_sync) goto overlap; } } return m; } Dwfl_Module * dwfl_report_elf (Dwfl *dwfl, const char *name, const char *file_name, int fd, GElf_Addr base, bool add_p_vaddr) { bool closefd = false; if (fd < 0) { closefd = true; fd = open (file_name, O_RDONLY); if (fd < 0) { __libdwfl_seterrno (DWFL_E_ERRNO); return NULL; } } Elf *elf; Dwfl_Error error = __libdw_open_file (&fd, &elf, closefd, false); if (error != DWFL_E_NOERROR) { __libdwfl_seterrno (error); return NULL; } Dwfl_Module *mod = __libdwfl_report_elf (dwfl, name, file_name, fd, elf, base, add_p_vaddr, true); if (mod == NULL) { elf_end (elf); if (closefd) close (fd); } return mod; } INTDEF (dwfl_report_elf) NEW_VERSION (dwfl_report_elf, ELFUTILS_0.156) #ifdef SYMBOL_VERSIONING Dwfl_Module * _compat_without_add_p_vaddr_dwfl_report_elf (Dwfl *dwfl, const char *name, const char *file_name, int fd, GElf_Addr base); COMPAT_VERSION_NEWPROTO (dwfl_report_elf, ELFUTILS_0.122, without_add_p_vaddr) Dwfl_Module * _compat_without_add_p_vaddr_dwfl_report_elf (Dwfl *dwfl, const char *name, const char *file_name, int fd, GElf_Addr base) { return dwfl_report_elf (dwfl, name, file_name, fd, base, true); } #endif