125b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* Core file handling. 225b3c049e70834cf33790a28643ab058b507b35cBen Cheng Copyright (C) 2008-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 <config.h> 5125b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include "../libelf/libelfP.h" /* For NOTE_ALIGN. */ 5225b3c049e70834cf33790a28643ab058b507b35cBen Cheng#undef _ 5325b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include "libdwflP.h" 5425b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <gelf.h> 5525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 5625b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <sys/param.h> 5725b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <unistd.h> 5825b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <endian.h> 5925b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <byteswap.h> 6025b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include "system.h" 6125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 6225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 6325b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* This is a prototype of what a new libelf interface might be. 6425b3c049e70834cf33790a28643ab058b507b35cBen Cheng This implementation is pessimal for non-mmap cases and should 6525b3c049e70834cf33790a28643ab058b507b35cBen Cheng be replaced by more diddling inside libelf internals. */ 6625b3c049e70834cf33790a28643ab058b507b35cBen Chengstatic Elf * 6725b3c049e70834cf33790a28643ab058b507b35cBen Chengelf_begin_rand (Elf *parent, loff_t offset, loff_t size, loff_t *next) 6825b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 6925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (parent == NULL) 7025b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 7125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 7225b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* On failure return, we update *NEXT to point back at OFFSET. */ 7325b3c049e70834cf33790a28643ab058b507b35cBen Cheng inline Elf *fail (int error) 7425b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 7525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (next != NULL) 7625b3c049e70834cf33790a28643ab058b507b35cBen Cheng *next = offset; 7725b3c049e70834cf33790a28643ab058b507b35cBen Cheng //__libelf_seterrno (error); 7825b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdwfl_seterrno (DWFL_E (LIBELF, error)); 7925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 8025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 8125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 8225b3c049e70834cf33790a28643ab058b507b35cBen Cheng loff_t min = (parent->kind == ELF_K_ELF ? 8325b3c049e70834cf33790a28643ab058b507b35cBen Cheng (parent->class == ELFCLASS32 8425b3c049e70834cf33790a28643ab058b507b35cBen Cheng ? sizeof (Elf32_Ehdr) : sizeof (Elf64_Ehdr)) 8525b3c049e70834cf33790a28643ab058b507b35cBen Cheng : parent->kind == ELF_K_AR ? SARMAG 8625b3c049e70834cf33790a28643ab058b507b35cBen Cheng : 0); 8725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 8825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (offset < min) 8925b3c049e70834cf33790a28643ab058b507b35cBen Cheng || unlikely (offset >= (loff_t) parent->maximum_size)) 9025b3c049e70834cf33790a28643ab058b507b35cBen Cheng return fail (ELF_E_RANGE); 9125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 9225b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* For an archive, fetch just the size field 9325b3c049e70834cf33790a28643ab058b507b35cBen Cheng from the archive header to override SIZE. */ 9425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (parent->kind == ELF_K_AR) 9525b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 9625b3c049e70834cf33790a28643ab058b507b35cBen Cheng struct ar_hdr h = { .ar_size = "" }; 9725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 9825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (parent->maximum_size - offset < sizeof h)) 9925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return fail (ELF_E_RANGE); 10025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 10125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (parent->map_address != NULL) 10225b3c049e70834cf33790a28643ab058b507b35cBen Cheng memcpy (h.ar_size, parent->map_address + parent->start_offset + offset, 10325b3c049e70834cf33790a28643ab058b507b35cBen Cheng sizeof h.ar_size); 10425b3c049e70834cf33790a28643ab058b507b35cBen Cheng else if (unlikely (pread_retry (parent->fildes, 10525b3c049e70834cf33790a28643ab058b507b35cBen Cheng h.ar_size, sizeof (h.ar_size), 10625b3c049e70834cf33790a28643ab058b507b35cBen Cheng parent->start_offset + offset 10725b3c049e70834cf33790a28643ab058b507b35cBen Cheng + offsetof (struct ar_hdr, ar_size)) 10825b3c049e70834cf33790a28643ab058b507b35cBen Cheng != sizeof (h.ar_size))) 10925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return fail (ELF_E_READ_ERROR); 11025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 11125b3c049e70834cf33790a28643ab058b507b35cBen Cheng offset += sizeof h; 11225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 11325b3c049e70834cf33790a28643ab058b507b35cBen Cheng char *endp; 11425b3c049e70834cf33790a28643ab058b507b35cBen Cheng size = strtoll (h.ar_size, &endp, 10); 11525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (endp == h.ar_size) 11625b3c049e70834cf33790a28643ab058b507b35cBen Cheng || unlikely ((loff_t) parent->maximum_size - offset < size)) 11725b3c049e70834cf33790a28643ab058b507b35cBen Cheng return fail (ELF_E_INVALID_ARCHIVE); 11825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 11925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 12025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely ((loff_t) parent->maximum_size - offset < size)) 12125b3c049e70834cf33790a28643ab058b507b35cBen Cheng return fail (ELF_E_RANGE); 12225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 12325b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Even if we fail at this point, update *NEXT to point past the file. */ 12425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (next != NULL) 12525b3c049e70834cf33790a28643ab058b507b35cBen Cheng *next = offset + size; 12625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 12725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (offset == 0) 12825b3c049e70834cf33790a28643ab058b507b35cBen Cheng && unlikely (size == (loff_t) parent->maximum_size)) 12925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return elf_clone (parent, parent->cmd); 13025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 13125b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Note the image is guaranteed live only as long as PARENT 13225b3c049e70834cf33790a28643ab058b507b35cBen Cheng lives. Using elf_memory is quite suboptimal if the whole 13325b3c049e70834cf33790a28643ab058b507b35cBen Cheng file is not mmap'd. We really should have something like 13425b3c049e70834cf33790a28643ab058b507b35cBen Cheng a generalization of the archive support. */ 13525b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Data *data = elf_getdata_rawchunk (parent, offset, size, ELF_T_BYTE); 13625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (data == NULL) 13725b3c049e70834cf33790a28643ab058b507b35cBen Cheng return NULL; 13825b3c049e70834cf33790a28643ab058b507b35cBen Cheng assert ((loff_t) data->d_size == size); 13925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return elf_memory (data->d_buf, size); 14025b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 14125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 14225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 14325b3c049e70834cf33790a28643ab058b507b35cBen Chengint 14425b3c049e70834cf33790a28643ab058b507b35cBen Chengdwfl_report_core_segments (Dwfl *dwfl, Elf *elf, size_t phnum, GElf_Phdr *notes) 14525b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 14625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (dwfl == NULL)) 14725b3c049e70834cf33790a28643ab058b507b35cBen Cheng return -1; 14825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 14925b3c049e70834cf33790a28643ab058b507b35cBen Cheng int result = 0; 15025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 15125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (notes != NULL) 15225b3c049e70834cf33790a28643ab058b507b35cBen Cheng notes->p_type = PT_NULL; 15325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 15425b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (size_t ndx = 0; result >= 0 && ndx < phnum; ++ndx) 15525b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 15625b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Phdr phdr_mem; 15725b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Phdr *phdr = gelf_getphdr (elf, ndx, &phdr_mem); 15825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (phdr == NULL)) 15925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 16025b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdwfl_seterrno (DWFL_E_LIBELF); 16125b3c049e70834cf33790a28643ab058b507b35cBen Cheng return -1; 16225b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 16325b3c049e70834cf33790a28643ab058b507b35cBen Cheng switch (phdr->p_type) 16425b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 16525b3c049e70834cf33790a28643ab058b507b35cBen Cheng case PT_LOAD: 16625b3c049e70834cf33790a28643ab058b507b35cBen Cheng result = dwfl_report_segment (dwfl, ndx, phdr, 0, NULL); 16725b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 16825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 16925b3c049e70834cf33790a28643ab058b507b35cBen Cheng case PT_NOTE: 17025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (notes != NULL) 17125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 17225b3c049e70834cf33790a28643ab058b507b35cBen Cheng *notes = *phdr; 17325b3c049e70834cf33790a28643ab058b507b35cBen Cheng notes = NULL; 17425b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 17525b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 17625b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 17725b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 17825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 17925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return result; 18025b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 18125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 18225b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* Never read more than this much without mmap. */ 18325b3c049e70834cf33790a28643ab058b507b35cBen Cheng#define MAX_EAGER_COST 8192 18425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 18525b3c049e70834cf33790a28643ab058b507b35cBen Chengstatic bool 18625b3c049e70834cf33790a28643ab058b507b35cBen Chengcore_file_read_eagerly (Dwfl_Module *mod, 18725b3c049e70834cf33790a28643ab058b507b35cBen Cheng void **userdata __attribute__ ((unused)), 18825b3c049e70834cf33790a28643ab058b507b35cBen Cheng const char *name __attribute__ ((unused)), 18925b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwarf_Addr start __attribute__ ((unused)), 19025b3c049e70834cf33790a28643ab058b507b35cBen Cheng void **buffer, size_t *buffer_available, 19125b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Off cost, GElf_Off worthwhile, 19225b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Off whole, 19325b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Off contiguous __attribute__ ((unused)), 19425b3c049e70834cf33790a28643ab058b507b35cBen Cheng void *arg, Elf **elfp) 19525b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 19625b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf *core = arg; 19725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 19825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (whole <= *buffer_available) 19925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 20025b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* All there ever was, we already have on hand. */ 20125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 20225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (core->map_address == NULL) 20325b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 20425b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We already malloc'd the buffer. */ 20525b3c049e70834cf33790a28643ab058b507b35cBen Cheng *elfp = elf_memory (*buffer, whole); 20625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (*elfp == NULL)) 20725b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 20825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 20925b3c049e70834cf33790a28643ab058b507b35cBen Cheng (*elfp)->flags |= ELF_F_MALLOCED; 21025b3c049e70834cf33790a28643ab058b507b35cBen Cheng *buffer = NULL; 21125b3c049e70834cf33790a28643ab058b507b35cBen Cheng *buffer_available = 0; 21225b3c049e70834cf33790a28643ab058b507b35cBen Cheng return true; 21325b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 21425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 21525b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We can use the image inside the core file directly. */ 21625b3c049e70834cf33790a28643ab058b507b35cBen Cheng *elfp = elf_begin_rand (core, *buffer - core->map_address, whole, NULL); 21725b3c049e70834cf33790a28643ab058b507b35cBen Cheng *buffer = NULL; 21825b3c049e70834cf33790a28643ab058b507b35cBen Cheng *buffer_available = 0; 21925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return *elfp != NULL; 22025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 22125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 22225b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We don't have the whole file. 22325b3c049e70834cf33790a28643ab058b507b35cBen Cheng Figure out if this is better than nothing. */ 22425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 22525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (worthwhile == 0) 22625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Caller doesn't think so. */ 22725b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 22825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 22925b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* 23025b3c049e70834cf33790a28643ab058b507b35cBen Cheng XXX would like to fall back to partial file via memory 23125b3c049e70834cf33790a28643ab058b507b35cBen Cheng when build id find_elf fails 23225b3c049e70834cf33790a28643ab058b507b35cBen Cheng also, link_map name may give file name from disk better than partial here 23325b3c049e70834cf33790a28643ab058b507b35cBen Cheng requires find_elf hook re-doing the magic to fall back if no file found 23425b3c049e70834cf33790a28643ab058b507b35cBen Cheng */ 23525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 23625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (mod->build_id_len > 0) 23725b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* There is a build ID that could help us find the whole file, 23825b3c049e70834cf33790a28643ab058b507b35cBen Cheng which might be more useful than what we have. 23925b3c049e70834cf33790a28643ab058b507b35cBen Cheng We'll just rely on that. */ 24025b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 24125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 24225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (core->map_address != NULL) 24325b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* It's cheap to get, so get it. */ 24425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return true; 24525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 24625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Only use it if there isn't too much to be read. */ 24725b3c049e70834cf33790a28643ab058b507b35cBen Cheng return cost <= MAX_EAGER_COST; 24825b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 24925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 25025b3c049e70834cf33790a28643ab058b507b35cBen Chengbool 25125b3c049e70834cf33790a28643ab058b507b35cBen Chengdwfl_elf_phdr_memory_callback (Dwfl *dwfl, int ndx, 25225b3c049e70834cf33790a28643ab058b507b35cBen Cheng void **buffer, size_t *buffer_available, 25325b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr vaddr, 25425b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t minread, 25525b3c049e70834cf33790a28643ab058b507b35cBen Cheng void *arg) 25625b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 25725b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf *elf = arg; 25825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 25925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (ndx == -1) 26025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 26125b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Called for cleanup. */ 26225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (elf->map_address == NULL) 26325b3c049e70834cf33790a28643ab058b507b35cBen Cheng free (*buffer); 26425b3c049e70834cf33790a28643ab058b507b35cBen Cheng *buffer = NULL; 26525b3c049e70834cf33790a28643ab058b507b35cBen Cheng *buffer_available = 0; 26625b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 26725b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 26825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 26925b3c049e70834cf33790a28643ab058b507b35cBen Cheng const GElf_Off align = dwfl->segment_align ?: 1; 27025b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Phdr phdr; 27125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 27225b3c049e70834cf33790a28643ab058b507b35cBen Cheng do 27325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (gelf_getphdr (elf, ndx++, &phdr) == NULL)) 27425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 27525b3c049e70834cf33790a28643ab058b507b35cBen Cheng while (phdr.p_type != PT_LOAD 27625b3c049e70834cf33790a28643ab058b507b35cBen Cheng || ((phdr.p_vaddr + phdr.p_memsz + align - 1) & -align) <= vaddr); 27725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 27825b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Off start = vaddr - phdr.p_vaddr + phdr.p_offset; 27925b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Off end; 28025b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr end_vaddr; 28125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 28225b3c049e70834cf33790a28643ab058b507b35cBen Cheng inline void update_end () 28325b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 28425b3c049e70834cf33790a28643ab058b507b35cBen Cheng end = (phdr.p_offset + phdr.p_filesz + align - 1) & -align; 28525b3c049e70834cf33790a28643ab058b507b35cBen Cheng end_vaddr = (phdr.p_vaddr + phdr.p_memsz + align - 1) & -align; 28625b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 28725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 28825b3c049e70834cf33790a28643ab058b507b35cBen Cheng update_end (); 28925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 29025b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Use following contiguous segments to get towards SIZE. */ 29125b3c049e70834cf33790a28643ab058b507b35cBen Cheng inline bool more (size_t size) 29225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 29325b3c049e70834cf33790a28643ab058b507b35cBen Cheng while (end <= start || end - start < size) 29425b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 29525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (phdr.p_filesz < phdr.p_memsz) 29625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* This segment is truncated, so no following one helps us. */ 29725b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 29825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 29925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (gelf_getphdr (elf, ndx++, &phdr) == NULL)) 30025b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 30125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 30225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (phdr.p_type == PT_LOAD) 30325b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 30425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (phdr.p_offset > end 30525b3c049e70834cf33790a28643ab058b507b35cBen Cheng || phdr.p_vaddr > end_vaddr) 30625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* It's discontiguous! */ 30725b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 30825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 30925b3c049e70834cf33790a28643ab058b507b35cBen Cheng update_end (); 31025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 31125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 31225b3c049e70834cf33790a28643ab058b507b35cBen Cheng return true; 31325b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 31425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 31525b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We need at least this much. */ 31625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (! more (minread)) 31725b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 31825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 31925b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* See how much more we can get of what the caller wants. */ 32025b3c049e70834cf33790a28643ab058b507b35cBen Cheng (void) more (*buffer_available); 32125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 32225b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* If it's already on hand anyway, use as much as there is. */ 32325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (elf->map_address != NULL) 32425b3c049e70834cf33790a28643ab058b507b35cBen Cheng (void) more (elf->maximum_size - start); 32525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 32625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Make sure we don't look past the end of the actual file, 32725b3c049e70834cf33790a28643ab058b507b35cBen Cheng even if the headers tell us to. */ 32825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (end > elf->maximum_size)) 32925b3c049e70834cf33790a28643ab058b507b35cBen Cheng end = elf->maximum_size; 33025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 33125b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* If the file is too small, there is nothing at all to get. */ 33225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (start >= end)) 33325b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 33425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 33525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (elf->map_address != NULL) 33625b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 33725b3c049e70834cf33790a28643ab058b507b35cBen Cheng void *contents = elf->map_address + elf->start_offset + start; 33825b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t size = end - start; 33925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 34025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (minread == 0) /* String mode. */ 34125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 34225b3c049e70834cf33790a28643ab058b507b35cBen Cheng const void *eos = memchr (contents, '\0', size); 34325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (eos == NULL) || unlikely (eos == contents)) 34425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 34525b3c049e70834cf33790a28643ab058b507b35cBen Cheng size = eos + 1 - contents; 34625b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 34725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 34825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (*buffer == NULL) 34925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 35025b3c049e70834cf33790a28643ab058b507b35cBen Cheng *buffer = contents; 35125b3c049e70834cf33790a28643ab058b507b35cBen Cheng *buffer_available = size; 35225b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 35325b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 35425b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 35525b3c049e70834cf33790a28643ab058b507b35cBen Cheng *buffer_available = MIN (size, *buffer_available); 35625b3c049e70834cf33790a28643ab058b507b35cBen Cheng memcpy (*buffer, contents, *buffer_available); 35725b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 35825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 35925b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 36025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 36125b3c049e70834cf33790a28643ab058b507b35cBen Cheng void *into = *buffer; 36225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (*buffer == NULL) 36325b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 36425b3c049e70834cf33790a28643ab058b507b35cBen Cheng *buffer_available = MIN (minread ?: 512, 36525b3c049e70834cf33790a28643ab058b507b35cBen Cheng MAX (4096, MIN (end - start, 36625b3c049e70834cf33790a28643ab058b507b35cBen Cheng *buffer_available))); 36725b3c049e70834cf33790a28643ab058b507b35cBen Cheng into = malloc (*buffer_available); 36825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (into == NULL)) 36925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 37025b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdwfl_seterrno (DWFL_E_NOMEM); 37125b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 37225b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 37325b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 37425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 37525b3c049e70834cf33790a28643ab058b507b35cBen Cheng ssize_t nread = pread_retry (elf->fildes, into, *buffer_available, start); 37625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (nread < (ssize_t) minread) 37725b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 37825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (into != *buffer) 37925b3c049e70834cf33790a28643ab058b507b35cBen Cheng free (into); 38025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (nread < 0) 38125b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdwfl_seterrno (DWFL_E_ERRNO); 38225b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 38325b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 38425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 38525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (minread == 0) /* String mode. */ 38625b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 38725b3c049e70834cf33790a28643ab058b507b35cBen Cheng const void *eos = memchr (into, '\0', nread); 38825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (eos == NULL) || unlikely (eos == into)) 38925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 39025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (*buffer == NULL) 39125b3c049e70834cf33790a28643ab058b507b35cBen Cheng free (into); 39225b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 39325b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 39425b3c049e70834cf33790a28643ab058b507b35cBen Cheng nread = eos + 1 - into; 39525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 39625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 39725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (*buffer == NULL) 39825b3c049e70834cf33790a28643ab058b507b35cBen Cheng *buffer = into; 39925b3c049e70834cf33790a28643ab058b507b35cBen Cheng *buffer_available = nread; 40025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 40125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 40225b3c049e70834cf33790a28643ab058b507b35cBen Cheng return true; 40325b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 40425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 40525b3c049e70834cf33790a28643ab058b507b35cBen Chengint 40625b3c049e70834cf33790a28643ab058b507b35cBen Chengdwfl_core_file_report (Dwfl *dwfl, Elf *elf) 40725b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 40825b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t phnum; 40925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (elf_getphdrnum (elf, &phnum) != 0)) 41025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 41125b3c049e70834cf33790a28643ab058b507b35cBen Cheng __libdwfl_seterrno (DWFL_E_LIBELF); 41225b3c049e70834cf33790a28643ab058b507b35cBen Cheng return -1; 41325b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 41425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 41525b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* First report each PT_LOAD segment. */ 41625b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Phdr notes_phdr; 41725b3c049e70834cf33790a28643ab058b507b35cBen Cheng int ndx = dwfl_report_core_segments (dwfl, elf, phnum, ¬es_phdr); 41825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (ndx <= 0)) 41925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return ndx; 42025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 42125b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Now sniff segment contents for modules. */ 42225b3c049e70834cf33790a28643ab058b507b35cBen Cheng int sniffed = 0; 42325b3c049e70834cf33790a28643ab058b507b35cBen Cheng ndx = 0; 42425b3c049e70834cf33790a28643ab058b507b35cBen Cheng do 42525b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 42625b3c049e70834cf33790a28643ab058b507b35cBen Cheng int seg = dwfl_segment_report_module (dwfl, ndx, NULL, 42725b3c049e70834cf33790a28643ab058b507b35cBen Cheng &dwfl_elf_phdr_memory_callback, elf, 42825b3c049e70834cf33790a28643ab058b507b35cBen Cheng core_file_read_eagerly, elf); 42925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (seg < 0)) 43025b3c049e70834cf33790a28643ab058b507b35cBen Cheng return seg; 43125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (seg > ndx) 43225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 43325b3c049e70834cf33790a28643ab058b507b35cBen Cheng ndx = seg; 43425b3c049e70834cf33790a28643ab058b507b35cBen Cheng ++sniffed; 43525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 43625b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 43725b3c049e70834cf33790a28643ab058b507b35cBen Cheng ++ndx; 43825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 43925b3c049e70834cf33790a28643ab058b507b35cBen Cheng while (ndx < (int) phnum); 44025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 44125b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Next, we should follow the chain from DT_DEBUG. */ 44225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 44325b3c049e70834cf33790a28643ab058b507b35cBen Cheng const void *auxv = NULL; 44425b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t auxv_size = 0; 44525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (likely (notes_phdr.p_type == PT_NOTE)) 44625b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 44725b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* PT_NOTE -> NT_AUXV -> AT_PHDR -> PT_DYNAMIC -> DT_DEBUG */ 44825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 44925b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Data *notes = elf_getdata_rawchunk (elf, 45025b3c049e70834cf33790a28643ab058b507b35cBen Cheng notes_phdr.p_offset, 45125b3c049e70834cf33790a28643ab058b507b35cBen Cheng notes_phdr.p_filesz, 45225b3c049e70834cf33790a28643ab058b507b35cBen Cheng ELF_T_NHDR); 45325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (likely (notes != NULL)) 45425b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 45525b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t pos = 0; 45625b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Nhdr nhdr; 45725b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t name_pos; 45825b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t desc_pos; 45925b3c049e70834cf33790a28643ab058b507b35cBen Cheng while ((pos = gelf_getnote (notes, pos, &nhdr, 46025b3c049e70834cf33790a28643ab058b507b35cBen Cheng &name_pos, &desc_pos)) > 0) 46125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (nhdr.n_type == NT_AUXV 46225b3c049e70834cf33790a28643ab058b507b35cBen Cheng && nhdr.n_namesz == sizeof "CORE" 46325b3c049e70834cf33790a28643ab058b507b35cBen Cheng && !memcmp (notes->d_buf + name_pos, "CORE", sizeof "CORE")) 46425b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 46525b3c049e70834cf33790a28643ab058b507b35cBen Cheng auxv = notes->d_buf + desc_pos; 46625b3c049e70834cf33790a28643ab058b507b35cBen Cheng auxv_size = nhdr.n_descsz; 46725b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 46825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 46925b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 47025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 47125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 47225b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Now we have NT_AUXV contents. From here on this processing could be 47325b3c049e70834cf33790a28643ab058b507b35cBen Cheng used for a live process with auxv read from /proc. */ 47425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 47525b3c049e70834cf33790a28643ab058b507b35cBen Cheng int listed = dwfl_link_map_report (dwfl, auxv, auxv_size, 47625b3c049e70834cf33790a28643ab058b507b35cBen Cheng dwfl_elf_phdr_memory_callback, elf); 47725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 47825b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We return the number of modules we found if we found any. 47925b3c049e70834cf33790a28643ab058b507b35cBen Cheng If we found none, we return -1 instead of 0 if there was an 48025b3c049e70834cf33790a28643ab058b507b35cBen Cheng error rather than just nothing found. If link_map handling 48125b3c049e70834cf33790a28643ab058b507b35cBen Cheng failed, we still have the sniffed modules. */ 48225b3c049e70834cf33790a28643ab058b507b35cBen Cheng return sniffed == 0 || listed > sniffed ? listed : sniffed; 48325b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 48425b3c049e70834cf33790a28643ab058b507b35cBen ChengINTDEF (dwfl_core_file_report) 485