125b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* Report modules by examining dynamic linker data structures. 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 "libdwflP.h" 5225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 5325b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <byteswap.h> 5425b3c049e70834cf33790a28643ab058b507b35cBen Cheng#include <endian.h> 5525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 5625b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* This element is always provided and always has a constant value. 5725b3c049e70834cf33790a28643ab058b507b35cBen Cheng This makes it an easy thing to scan for to discern the format. */ 5825b3c049e70834cf33790a28643ab058b507b35cBen Cheng#define PROBE_TYPE AT_PHENT 5925b3c049e70834cf33790a28643ab058b507b35cBen Cheng#define PROBE_VAL32 sizeof (Elf32_Phdr) 6025b3c049e70834cf33790a28643ab058b507b35cBen Cheng#define PROBE_VAL64 sizeof (Elf64_Phdr) 6125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 6225b3c049e70834cf33790a28643ab058b507b35cBen Cheng#if BYTE_ORDER == BIG_ENDIAN 6325b3c049e70834cf33790a28643ab058b507b35cBen Cheng# define BE32(x) (x) 6425b3c049e70834cf33790a28643ab058b507b35cBen Cheng# define BE64(x) (x) 6525b3c049e70834cf33790a28643ab058b507b35cBen Cheng# define LE32(x) bswap_32 (x) 6625b3c049e70834cf33790a28643ab058b507b35cBen Cheng# define LE64(x) bswap_64 (x) 6725b3c049e70834cf33790a28643ab058b507b35cBen Cheng#else 6825b3c049e70834cf33790a28643ab058b507b35cBen Cheng# define LE32(x) (x) 6925b3c049e70834cf33790a28643ab058b507b35cBen Cheng# define LE64(x) (x) 7025b3c049e70834cf33790a28643ab058b507b35cBen Cheng# define BE32(x) bswap_32 (x) 7125b3c049e70834cf33790a28643ab058b507b35cBen Cheng# define BE64(x) bswap_64 (x) 7225b3c049e70834cf33790a28643ab058b507b35cBen Cheng#endif 7325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 7425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 7525b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* Examine an auxv data block and determine its format. 7625b3c049e70834cf33790a28643ab058b507b35cBen Cheng Return true iff we figured it out. */ 7725b3c049e70834cf33790a28643ab058b507b35cBen Chengstatic bool 7825b3c049e70834cf33790a28643ab058b507b35cBen Chengauxv_format_probe (const void *auxv, size_t size, 7925b3c049e70834cf33790a28643ab058b507b35cBen Cheng uint_fast8_t *elfclass, uint_fast8_t *elfdata) 8025b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 8125b3c049e70834cf33790a28643ab058b507b35cBen Cheng const union 8225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 8325b3c049e70834cf33790a28643ab058b507b35cBen Cheng char buf[size]; 8425b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf32_auxv_t a32[size / sizeof (Elf32_auxv_t)]; 8525b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf64_auxv_t a64[size / sizeof (Elf64_auxv_t)]; 8625b3c049e70834cf33790a28643ab058b507b35cBen Cheng } *u = auxv; 8725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 8825b3c049e70834cf33790a28643ab058b507b35cBen Cheng inline bool check64 (size_t i) 8925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 9025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (u->a64[i].a_type == BE64 (PROBE_TYPE) 9125b3c049e70834cf33790a28643ab058b507b35cBen Cheng && u->a64[i].a_un.a_val == BE64 (PROBE_VAL64)) 9225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 9325b3c049e70834cf33790a28643ab058b507b35cBen Cheng *elfdata = ELFDATA2MSB; 9425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return true; 9525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 9625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 9725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (u->a64[i].a_type == LE64 (PROBE_TYPE) 9825b3c049e70834cf33790a28643ab058b507b35cBen Cheng && u->a64[i].a_un.a_val == LE64 (PROBE_VAL64)) 9925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 10025b3c049e70834cf33790a28643ab058b507b35cBen Cheng *elfdata = ELFDATA2LSB; 10125b3c049e70834cf33790a28643ab058b507b35cBen Cheng return true; 10225b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 10325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 10425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 10525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 10625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 10725b3c049e70834cf33790a28643ab058b507b35cBen Cheng inline bool check32 (size_t i) 10825b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 10925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (u->a32[i].a_type == BE32 (PROBE_TYPE) 11025b3c049e70834cf33790a28643ab058b507b35cBen Cheng && u->a32[i].a_un.a_val == BE32 (PROBE_VAL32)) 11125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 11225b3c049e70834cf33790a28643ab058b507b35cBen Cheng *elfdata = ELFDATA2MSB; 11325b3c049e70834cf33790a28643ab058b507b35cBen Cheng return true; 11425b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 11525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 11625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (u->a32[i].a_type == LE32 (PROBE_TYPE) 11725b3c049e70834cf33790a28643ab058b507b35cBen Cheng && u->a32[i].a_un.a_val == LE32 (PROBE_VAL32)) 11825b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 11925b3c049e70834cf33790a28643ab058b507b35cBen Cheng *elfdata = ELFDATA2LSB; 12025b3c049e70834cf33790a28643ab058b507b35cBen Cheng return true; 12125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 12225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 12325b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 12425b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 12525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 12625b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (size_t i = 0; i < size / sizeof (Elf64_auxv_t); ++i) 12725b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 12825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (check64 (i)) 12925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 13025b3c049e70834cf33790a28643ab058b507b35cBen Cheng *elfclass = ELFCLASS64; 13125b3c049e70834cf33790a28643ab058b507b35cBen Cheng return true; 13225b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 13325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 13425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (check32 (i * 2) || check32 (i * 2 + 1)) 13525b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 13625b3c049e70834cf33790a28643ab058b507b35cBen Cheng *elfclass = ELFCLASS32; 13725b3c049e70834cf33790a28643ab058b507b35cBen Cheng return true; 13825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 13925b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 14025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 14125b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 14225b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 14325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 14425b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* This is a Dwfl_Memory_Callback that wraps another memory callback. 14525b3c049e70834cf33790a28643ab058b507b35cBen Cheng If the underlying callback cannot fill the data, then this will 14625b3c049e70834cf33790a28643ab058b507b35cBen Cheng fall back to fetching data from module files. */ 14725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 14825b3c049e70834cf33790a28643ab058b507b35cBen Chengstruct integrated_memory_callback 14925b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 15025b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwfl_Memory_Callback *memory_callback; 15125b3c049e70834cf33790a28643ab058b507b35cBen Cheng void *memory_callback_arg; 15225b3c049e70834cf33790a28643ab058b507b35cBen Cheng void *buffer; 15325b3c049e70834cf33790a28643ab058b507b35cBen Cheng}; 15425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 15525b3c049e70834cf33790a28643ab058b507b35cBen Chengstatic bool 15625b3c049e70834cf33790a28643ab058b507b35cBen Chengintegrated_memory_callback (Dwfl *dwfl, int ndx, 15725b3c049e70834cf33790a28643ab058b507b35cBen Cheng void **buffer, size_t *buffer_available, 15825b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr vaddr, 15925b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t minread, 16025b3c049e70834cf33790a28643ab058b507b35cBen Cheng void *arg) 16125b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 16225b3c049e70834cf33790a28643ab058b507b35cBen Cheng struct integrated_memory_callback *info = arg; 16325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 16425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (ndx == -1) 16525b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 16625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Called for cleanup. */ 16725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (info->buffer != NULL) 16825b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 16925b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* The last probe buffer came from the underlying callback. 17025b3c049e70834cf33790a28643ab058b507b35cBen Cheng Let it do its cleanup. */ 17125b3c049e70834cf33790a28643ab058b507b35cBen Cheng assert (*buffer == info->buffer); /* XXX */ 17225b3c049e70834cf33790a28643ab058b507b35cBen Cheng *buffer = info->buffer; 17325b3c049e70834cf33790a28643ab058b507b35cBen Cheng info->buffer = NULL; 17425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return (*info->memory_callback) (dwfl, ndx, buffer, buffer_available, 17525b3c049e70834cf33790a28643ab058b507b35cBen Cheng vaddr, minread, 17625b3c049e70834cf33790a28643ab058b507b35cBen Cheng info->memory_callback_arg); 17725b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 17825b3c049e70834cf33790a28643ab058b507b35cBen Cheng *buffer = NULL; 17925b3c049e70834cf33790a28643ab058b507b35cBen Cheng *buffer_available = 0; 18025b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 18125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 18225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 18325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (*buffer != NULL) 18425b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* For a final-read request, we only use the underlying callback. */ 18525b3c049e70834cf33790a28643ab058b507b35cBen Cheng return (*info->memory_callback) (dwfl, ndx, buffer, buffer_available, 18625b3c049e70834cf33790a28643ab058b507b35cBen Cheng vaddr, minread, info->memory_callback_arg); 18725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 18825b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Let the underlying callback try to fill this request. */ 18925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if ((*info->memory_callback) (dwfl, ndx, &info->buffer, buffer_available, 19025b3c049e70834cf33790a28643ab058b507b35cBen Cheng vaddr, minread, info->memory_callback_arg)) 19125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 19225b3c049e70834cf33790a28643ab058b507b35cBen Cheng *buffer = info->buffer; 19325b3c049e70834cf33790a28643ab058b507b35cBen Cheng return true; 19425b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 19525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 19625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Now look for module text covering this address. */ 19725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 19825b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwfl_Module *mod; 19925b3c049e70834cf33790a28643ab058b507b35cBen Cheng (void) INTUSE(dwfl_addrsegment) (dwfl, vaddr, &mod); 20025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (mod == NULL) 20125b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 20225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 20325b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwarf_Addr bias; 20425b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Scn *scn = INTUSE(dwfl_module_address_section) (mod, &vaddr, &bias); 20525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (scn == NULL)) 20625b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 20725b3c049e70834cf33790a28643ab058b507b35cBen Cheng#if 0 // XXX would have to handle ndx=-1 cleanup calls passed down. 20825b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* If we have no sections we can try to fill it from the module file 20925b3c049e70834cf33790a28643ab058b507b35cBen Cheng based on its phdr mappings. */ 21025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (likely (mod->e_type != ET_REL) && mod->main.elf != NULL) 21125b3c049e70834cf33790a28643ab058b507b35cBen Cheng return INTUSE(dwfl_elf_phdr_memory_callback) 21225b3c049e70834cf33790a28643ab058b507b35cBen Cheng (dwfl, 0, buffer, buffer_available, 21325b3c049e70834cf33790a28643ab058b507b35cBen Cheng vaddr - mod->main.bias, minread, mod->main.elf); 21425b3c049e70834cf33790a28643ab058b507b35cBen Cheng#endif 21525b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 21625b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 21725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 21825b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Data *data = elf_rawdata (scn, NULL); 21925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (data == NULL)) 22025b3c049e70834cf33790a28643ab058b507b35cBen Cheng // XXX throw error? 22125b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 22225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 22325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (data->d_size < vaddr)) 22425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 22525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 22625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Provide as much data as we have. */ 22725b3c049e70834cf33790a28643ab058b507b35cBen Cheng void *contents = data->d_buf + vaddr; 22825b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t avail = data->d_size - vaddr; 22925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (avail < minread)) 23025b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 23125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 23225b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* If probing for a string, make sure it's terminated. */ 23325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (minread == 0 && unlikely (memchr (contents, '\0', avail) == NULL)) 23425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 23525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 23625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We have it! */ 23725b3c049e70834cf33790a28643ab058b507b35cBen Cheng *buffer = contents; 23825b3c049e70834cf33790a28643ab058b507b35cBen Cheng *buffer_available = avail; 23925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return true; 24025b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 24125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 24225b3c049e70834cf33790a28643ab058b507b35cBen Chengstatic size_t 24325b3c049e70834cf33790a28643ab058b507b35cBen Chengaddrsize (uint_fast8_t elfclass) 24425b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 24525b3c049e70834cf33790a28643ab058b507b35cBen Cheng return elfclass * 4; 24625b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 24725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 24825b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* Report a module for each struct link_map in the linked list at r_map 24925b3c049e70834cf33790a28643ab058b507b35cBen Cheng in the struct r_debug at R_DEBUG_VADDR. 25025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 25125b3c049e70834cf33790a28643ab058b507b35cBen Cheng For each link_map entry, if an existing module resides at its address, 25225b3c049e70834cf33790a28643ab058b507b35cBen Cheng this just modifies that module's name and suggested file name. If 25325b3c049e70834cf33790a28643ab058b507b35cBen Cheng no such module exists, this calls dwfl_report_elf on the l_name string. 25425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 25525b3c049e70834cf33790a28643ab058b507b35cBen Cheng Returns the number of modules found, or -1 for errors. */ 25625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 25725b3c049e70834cf33790a28643ab058b507b35cBen Chengstatic int 25825b3c049e70834cf33790a28643ab058b507b35cBen Chengreport_r_debug (uint_fast8_t elfclass, uint_fast8_t elfdata, 25925b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwfl *dwfl, GElf_Addr r_debug_vaddr, 26025b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwfl_Memory_Callback *memory_callback, 26125b3c049e70834cf33790a28643ab058b507b35cBen Cheng void *memory_callback_arg) 26225b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 26325b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Skip r_version, to aligned r_map field. */ 26425b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr read_vaddr = r_debug_vaddr + addrsize (elfclass); 26525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 26625b3c049e70834cf33790a28643ab058b507b35cBen Cheng void *buffer = NULL; 26725b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t buffer_available = 0; 26825b3c049e70834cf33790a28643ab058b507b35cBen Cheng inline int release_buffer (int result) 26925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 27025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (buffer != NULL) 27125b3c049e70834cf33790a28643ab058b507b35cBen Cheng (void) (*memory_callback) (dwfl, -1, &buffer, &buffer_available, 0, 0, 27225b3c049e70834cf33790a28643ab058b507b35cBen Cheng memory_callback_arg); 27325b3c049e70834cf33790a28643ab058b507b35cBen Cheng return result; 27425b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 27525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 27625b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr addrs[4]; 27725b3c049e70834cf33790a28643ab058b507b35cBen Cheng inline bool read_addrs (GElf_Addr vaddr, size_t n) 27825b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 27925b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t nb = n * addrsize (elfclass); /* Address words -> bytes to read. */ 28025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 28125b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Read a new buffer if the old one doesn't cover these words. */ 28225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (buffer == NULL 28325b3c049e70834cf33790a28643ab058b507b35cBen Cheng || vaddr < read_vaddr 28425b3c049e70834cf33790a28643ab058b507b35cBen Cheng || vaddr - read_vaddr + nb > buffer_available) 28525b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 28625b3c049e70834cf33790a28643ab058b507b35cBen Cheng release_buffer (0); 28725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 28825b3c049e70834cf33790a28643ab058b507b35cBen Cheng read_vaddr = vaddr; 28925b3c049e70834cf33790a28643ab058b507b35cBen Cheng int segndx = INTUSE(dwfl_addrsegment) (dwfl, vaddr, NULL); 29025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (segndx < 0) 29125b3c049e70834cf33790a28643ab058b507b35cBen Cheng || unlikely (! (*memory_callback) (dwfl, segndx, 29225b3c049e70834cf33790a28643ab058b507b35cBen Cheng &buffer, &buffer_available, 29325b3c049e70834cf33790a28643ab058b507b35cBen Cheng vaddr, nb, memory_callback_arg))) 29425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return true; 29525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 29625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 29725b3c049e70834cf33790a28643ab058b507b35cBen Cheng const union 29825b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 29925b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf32_Addr a32[n]; 30025b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf64_Addr a64[n]; 30125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } *in = vaddr - read_vaddr + buffer; 30225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 30325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (elfclass == ELFCLASS32) 30425b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 30525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (elfdata == ELFDATA2MSB) 30625b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (size_t i = 0; i < n; ++i) 30725b3c049e70834cf33790a28643ab058b507b35cBen Cheng addrs[i] = BE32 (in->a32[i]); 30825b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 30925b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (size_t i = 0; i < n; ++i) 31025b3c049e70834cf33790a28643ab058b507b35cBen Cheng addrs[i] = LE32 (in->a32[i]); 31125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 31225b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 31325b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 31425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (elfdata == ELFDATA2MSB) 31525b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (size_t i = 0; i < n; ++i) 31625b3c049e70834cf33790a28643ab058b507b35cBen Cheng addrs[i] = BE64 (in->a64[i]); 31725b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 31825b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (size_t i = 0; i < n; ++i) 31925b3c049e70834cf33790a28643ab058b507b35cBen Cheng addrs[i] = LE64 (in->a64[i]); 32025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 32125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 32225b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 32325b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 32425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 32525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (read_addrs (read_vaddr, 1))) 32625b3c049e70834cf33790a28643ab058b507b35cBen Cheng return release_buffer (-1); 32725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 32825b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr next = addrs[0]; 32925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 33025b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwfl_Module **lastmodp = &dwfl->modulelist; 33125b3c049e70834cf33790a28643ab058b507b35cBen Cheng int result = 0; 33225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 33325b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* There can't be more elements in the link_map list than there are 33425b3c049e70834cf33790a28643ab058b507b35cBen Cheng segments. DWFL->lookup_elts is probably twice that number, so it 33525b3c049e70834cf33790a28643ab058b507b35cBen Cheng is certainly above the upper bound. If we iterate too many times, 33625b3c049e70834cf33790a28643ab058b507b35cBen Cheng there must be a loop in the pointers due to link_map clobberation. */ 33725b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t iterations = 0; 33825b3c049e70834cf33790a28643ab058b507b35cBen Cheng while (next != 0 && ++iterations < dwfl->lookup_elts) 33925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 34025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (read_addrs (next, 4)) 34125b3c049e70834cf33790a28643ab058b507b35cBen Cheng return release_buffer (-1); 34225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 34325b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr l_addr = addrs[0]; 34425b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr l_name = addrs[1]; 34525b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr l_ld = addrs[2]; 34625b3c049e70834cf33790a28643ab058b507b35cBen Cheng next = addrs[3]; 34725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 34825b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* If a clobbered or truncated memory image has no useful pointer, 34925b3c049e70834cf33790a28643ab058b507b35cBen Cheng just skip this element. */ 35025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (l_ld == 0) 35125b3c049e70834cf33790a28643ab058b507b35cBen Cheng continue; 35225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 35325b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Fetch the string at the l_name address. */ 35425b3c049e70834cf33790a28643ab058b507b35cBen Cheng const char *name = NULL; 35525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (buffer != NULL 35625b3c049e70834cf33790a28643ab058b507b35cBen Cheng && read_vaddr <= l_name 35725b3c049e70834cf33790a28643ab058b507b35cBen Cheng && l_name + 1 - read_vaddr < buffer_available 35825b3c049e70834cf33790a28643ab058b507b35cBen Cheng && memchr (l_name - read_vaddr + buffer, '\0', 35925b3c049e70834cf33790a28643ab058b507b35cBen Cheng buffer_available - (l_name - read_vaddr)) != NULL) 36025b3c049e70834cf33790a28643ab058b507b35cBen Cheng name = l_name - read_vaddr + buffer; 36125b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 36225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 36325b3c049e70834cf33790a28643ab058b507b35cBen Cheng release_buffer (0); 36425b3c049e70834cf33790a28643ab058b507b35cBen Cheng read_vaddr = l_name; 36525b3c049e70834cf33790a28643ab058b507b35cBen Cheng int segndx = INTUSE(dwfl_addrsegment) (dwfl, l_name, NULL); 36625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (likely (segndx >= 0) 36725b3c049e70834cf33790a28643ab058b507b35cBen Cheng && (*memory_callback) (dwfl, segndx, 36825b3c049e70834cf33790a28643ab058b507b35cBen Cheng &buffer, &buffer_available, 36925b3c049e70834cf33790a28643ab058b507b35cBen Cheng l_name, 0, memory_callback_arg)) 37025b3c049e70834cf33790a28643ab058b507b35cBen Cheng name = buffer; 37125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 37225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 37325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (name != NULL && name[0] == '\0') 37425b3c049e70834cf33790a28643ab058b507b35cBen Cheng name = NULL; 37525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 37625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* If content-sniffing already reported a module covering 37725b3c049e70834cf33790a28643ab058b507b35cBen Cheng the same area, find that existing module to adjust. 37825b3c049e70834cf33790a28643ab058b507b35cBen Cheng The l_ld address is the only one we know for sure 37925b3c049e70834cf33790a28643ab058b507b35cBen Cheng to be within the module's own segments (its .dynamic). */ 38025b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwfl_Module *mod = INTUSE(dwfl_addrmodule) (dwfl, l_ld); 38125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (mod != NULL) 38225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 38325b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We have a module. We can give it a better name from l_name. */ 38425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (name != NULL && mod->name[0] == '[') 38525b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 38625b3c049e70834cf33790a28643ab058b507b35cBen Cheng char *newname = strdup (basename (name)); 38725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (newname != NULL) 38825b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 38925b3c049e70834cf33790a28643ab058b507b35cBen Cheng free (mod->name); 39025b3c049e70834cf33790a28643ab058b507b35cBen Cheng mod->name = newname; 39125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 39225b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 39325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 39425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (name == NULL && mod->name[0] == '/') 39525b3c049e70834cf33790a28643ab058b507b35cBen Cheng name = mod->name; 39625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 39725b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* If we don't have a file for it already, we can pre-install 39825b3c049e70834cf33790a28643ab058b507b35cBen Cheng the full file name from l_name. Opening the file by this 39925b3c049e70834cf33790a28643ab058b507b35cBen Cheng name will be the fallback when no build ID match is found. 40025b3c049e70834cf33790a28643ab058b507b35cBen Cheng XXX hook for sysroot */ 40125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (name != NULL && mod->main.name == NULL) 40225b3c049e70834cf33790a28643ab058b507b35cBen Cheng mod->main.name = strdup (name); 40325b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 40425b3c049e70834cf33790a28643ab058b507b35cBen Cheng else if (name != NULL) 40525b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 40625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We have to find the file's phdrs to compute along with l_addr 40725b3c049e70834cf33790a28643ab058b507b35cBen Cheng what its runtime address boundaries are. */ 40825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 40925b3c049e70834cf33790a28643ab058b507b35cBen Cheng // XXX hook for sysroot 41025b3c049e70834cf33790a28643ab058b507b35cBen Cheng mod = INTUSE(dwfl_report_elf) (dwfl, basename (name), 41125b3c049e70834cf33790a28643ab058b507b35cBen Cheng name, -1, l_addr); 41225b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 41325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 41425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (mod != NULL) 41525b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 41625b3c049e70834cf33790a28643ab058b507b35cBen Cheng ++result; 41725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 41825b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Move this module to the end of the list, so that we end 41925b3c049e70834cf33790a28643ab058b507b35cBen Cheng up with a list in the same order as the link_map chain. */ 42025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (mod->next != NULL) 42125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 42225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (*lastmodp != mod) 42325b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 42425b3c049e70834cf33790a28643ab058b507b35cBen Cheng lastmodp = &dwfl->modulelist; 42525b3c049e70834cf33790a28643ab058b507b35cBen Cheng while (*lastmodp != mod) 42625b3c049e70834cf33790a28643ab058b507b35cBen Cheng lastmodp = &(*lastmodp)->next; 42725b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 42825b3c049e70834cf33790a28643ab058b507b35cBen Cheng *lastmodp = mod->next; 42925b3c049e70834cf33790a28643ab058b507b35cBen Cheng mod->next = NULL; 43025b3c049e70834cf33790a28643ab058b507b35cBen Cheng while (*lastmodp != NULL) 43125b3c049e70834cf33790a28643ab058b507b35cBen Cheng lastmodp = &(*lastmodp)->next; 43225b3c049e70834cf33790a28643ab058b507b35cBen Cheng *lastmodp = mod; 43325b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 43425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 43525b3c049e70834cf33790a28643ab058b507b35cBen Cheng lastmodp = &mod->next; 43625b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 43725b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 43825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 43925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return release_buffer (result); 44025b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 44125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 44225b3c049e70834cf33790a28643ab058b507b35cBen Chengstatic GElf_Addr 44325b3c049e70834cf33790a28643ab058b507b35cBen Chengconsider_executable (Dwfl_Module *mod, GElf_Addr at_phdr, GElf_Addr at_entry, 44425b3c049e70834cf33790a28643ab058b507b35cBen Cheng uint_fast8_t *elfclass, uint_fast8_t *elfdata, 44525b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwfl_Memory_Callback *memory_callback, 44625b3c049e70834cf33790a28643ab058b507b35cBen Cheng void *memory_callback_arg) 44725b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 44825b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Ehdr ehdr; 44925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (unlikely (gelf_getehdr (mod->main.elf, &ehdr) == NULL)) 45025b3c049e70834cf33790a28643ab058b507b35cBen Cheng return 0; 45125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 45225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (at_entry != 0) 45325b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 45425b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* If we have an AT_ENTRY value, reject this executable if 45525b3c049e70834cf33790a28643ab058b507b35cBen Cheng its entry point address could not have supplied that. */ 45625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 45725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (ehdr.e_entry == 0) 45825b3c049e70834cf33790a28643ab058b507b35cBen Cheng return 0; 45925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 46025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (mod->e_type == ET_EXEC) 46125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 46225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (ehdr.e_entry != at_entry) 46325b3c049e70834cf33790a28643ab058b507b35cBen Cheng return 0; 46425b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 46525b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 46625b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 46725b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* It could be a PIE. */ 46825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 46925b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 47025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 47125b3c049e70834cf33790a28643ab058b507b35cBen Cheng // XXX this could be saved in the file cache: phdr vaddr, DT_DEBUG d_val vaddr 47225b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Find the vaddr of the DT_DEBUG's d_ptr. This is the memory 47325b3c049e70834cf33790a28643ab058b507b35cBen Cheng address where &r_debug was written at runtime. */ 47425b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Xword align = mod->dwfl->segment_align; 47525b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr d_val_vaddr = 0; 47625b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (uint_fast16_t i = 0; i < ehdr.e_phnum; ++i) 47725b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 47825b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Phdr phdr_mem; 47925b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Phdr *phdr = gelf_getphdr (mod->main.elf, i, &phdr_mem); 48025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (phdr == NULL) 48125b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 48225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 48325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (phdr->p_align > 1 && (align == 0 || phdr->p_align < align)) 48425b3c049e70834cf33790a28643ab058b507b35cBen Cheng align = phdr->p_align; 48525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 48625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (at_phdr != 0 48725b3c049e70834cf33790a28643ab058b507b35cBen Cheng && phdr->p_type == PT_LOAD 48825b3c049e70834cf33790a28643ab058b507b35cBen Cheng && (phdr->p_offset & -align) == (ehdr.e_phoff & -align)) 48925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 49025b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* This is the segment that would map the phdrs. 49125b3c049e70834cf33790a28643ab058b507b35cBen Cheng If we have an AT_PHDR value, reject this executable 49225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if its phdr mapping could not have supplied that. */ 49325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (mod->e_type == ET_EXEC) 49425b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 49525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (ehdr.e_phoff - phdr->p_offset + phdr->p_vaddr != at_phdr) 49625b3c049e70834cf33790a28643ab058b507b35cBen Cheng return 0; 49725b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 49825b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 49925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 50025b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* It could be a PIE. If the AT_PHDR value and our 50125b3c049e70834cf33790a28643ab058b507b35cBen Cheng phdr address don't match modulo ALIGN, then this 50225b3c049e70834cf33790a28643ab058b507b35cBen Cheng could not have been the right PIE. */ 50325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (((ehdr.e_phoff - phdr->p_offset + phdr->p_vaddr) & -align) 50425b3c049e70834cf33790a28643ab058b507b35cBen Cheng != (at_phdr & -align)) 50525b3c049e70834cf33790a28643ab058b507b35cBen Cheng return 0; 50625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 50725b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Calculate the bias applied to the PIE's p_vaddr values. */ 50825b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr bias = (at_phdr - (ehdr.e_phoff - phdr->p_offset 50925b3c049e70834cf33790a28643ab058b507b35cBen Cheng + phdr->p_vaddr)); 51025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 51125b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Final sanity check: if we have an AT_ENTRY value, 51225b3c049e70834cf33790a28643ab058b507b35cBen Cheng reject this PIE unless its biased e_entry matches. */ 51325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (at_entry != 0 && at_entry != ehdr.e_entry + bias) 51425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return 0; 51525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 51625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* If we're changing the module's address range, 51725b3c049e70834cf33790a28643ab058b507b35cBen Cheng we've just invalidated the module lookup table. */ 51825b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr mod_bias = dwfl_adjusted_address (mod, 0); 51925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (bias != mod_bias) 52025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 52125b3c049e70834cf33790a28643ab058b507b35cBen Cheng mod->low_addr -= mod_bias; 52225b3c049e70834cf33790a28643ab058b507b35cBen Cheng mod->high_addr -= mod_bias; 52325b3c049e70834cf33790a28643ab058b507b35cBen Cheng mod->low_addr += bias; 52425b3c049e70834cf33790a28643ab058b507b35cBen Cheng mod->high_addr += bias; 52525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 52625b3c049e70834cf33790a28643ab058b507b35cBen Cheng free (mod->dwfl->lookup_module); 52725b3c049e70834cf33790a28643ab058b507b35cBen Cheng mod->dwfl->lookup_module = NULL; 52825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 52925b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 53025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 53125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 53225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (phdr->p_type == PT_DYNAMIC) 53325b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 53425b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Data *data = elf_getdata_rawchunk (mod->main.elf, phdr->p_offset, 53525b3c049e70834cf33790a28643ab058b507b35cBen Cheng phdr->p_filesz, ELF_T_DYN); 53625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (data == NULL) 53725b3c049e70834cf33790a28643ab058b507b35cBen Cheng continue; 53825b3c049e70834cf33790a28643ab058b507b35cBen Cheng const size_t entsize = gelf_fsize (mod->main.elf, 53925b3c049e70834cf33790a28643ab058b507b35cBen Cheng ELF_T_DYN, 1, EV_CURRENT); 54025b3c049e70834cf33790a28643ab058b507b35cBen Cheng const size_t n = data->d_size / entsize; 54125b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (size_t j = 0; j < n; ++j) 54225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 54325b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Dyn dyn_mem; 54425b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Dyn *dyn = gelf_getdyn (data, j, &dyn_mem); 54525b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (dyn != NULL && dyn->d_tag == DT_DEBUG) 54625b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 54725b3c049e70834cf33790a28643ab058b507b35cBen Cheng d_val_vaddr = phdr->p_vaddr + entsize * j + entsize / 2; 54825b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 54925b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 55025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 55125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 55225b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 55325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 55425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (d_val_vaddr != 0) 55525b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 55625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Now we have the final address from which to read &r_debug. */ 55725b3c049e70834cf33790a28643ab058b507b35cBen Cheng d_val_vaddr = dwfl_adjusted_address (mod, d_val_vaddr); 55825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 55925b3c049e70834cf33790a28643ab058b507b35cBen Cheng void *buffer = NULL; 56025b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t buffer_available = addrsize (ehdr.e_ident[EI_CLASS]); 56125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 56225b3c049e70834cf33790a28643ab058b507b35cBen Cheng int segndx = INTUSE(dwfl_addrsegment) (mod->dwfl, d_val_vaddr, NULL); 56325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 56425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if ((*memory_callback) (mod->dwfl, segndx, 56525b3c049e70834cf33790a28643ab058b507b35cBen Cheng &buffer, &buffer_available, 56625b3c049e70834cf33790a28643ab058b507b35cBen Cheng d_val_vaddr, buffer_available, 56725b3c049e70834cf33790a28643ab058b507b35cBen Cheng memory_callback_arg)) 56825b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 56925b3c049e70834cf33790a28643ab058b507b35cBen Cheng const union 57025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 57125b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf32_Addr a32; 57225b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf64_Addr a64; 57325b3c049e70834cf33790a28643ab058b507b35cBen Cheng } *u = buffer; 57425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 57525b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr vaddr; 57625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (ehdr.e_ident[EI_CLASS] == ELFCLASS32) 57725b3c049e70834cf33790a28643ab058b507b35cBen Cheng vaddr = (ehdr.e_ident[EI_DATA] == ELFDATA2MSB 57825b3c049e70834cf33790a28643ab058b507b35cBen Cheng ? BE32 (u->a32) : LE32 (u->a32)); 57925b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 58025b3c049e70834cf33790a28643ab058b507b35cBen Cheng vaddr = (ehdr.e_ident[EI_DATA] == ELFDATA2MSB 58125b3c049e70834cf33790a28643ab058b507b35cBen Cheng ? BE64 (u->a64) : LE64 (u->a64)); 58225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 58325b3c049e70834cf33790a28643ab058b507b35cBen Cheng (*memory_callback) (mod->dwfl, -1, &buffer, &buffer_available, 0, 0, 58425b3c049e70834cf33790a28643ab058b507b35cBen Cheng memory_callback_arg); 58525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 58625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (*elfclass == ELFCLASSNONE) 58725b3c049e70834cf33790a28643ab058b507b35cBen Cheng *elfclass = ehdr.e_ident[EI_CLASS]; 58825b3c049e70834cf33790a28643ab058b507b35cBen Cheng else if (*elfclass != ehdr.e_ident[EI_CLASS]) 58925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return 0; 59025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 59125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (*elfdata == ELFDATANONE) 59225b3c049e70834cf33790a28643ab058b507b35cBen Cheng *elfdata = ehdr.e_ident[EI_DATA]; 59325b3c049e70834cf33790a28643ab058b507b35cBen Cheng else if (*elfdata != ehdr.e_ident[EI_DATA]) 59425b3c049e70834cf33790a28643ab058b507b35cBen Cheng return 0; 59525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 59625b3c049e70834cf33790a28643ab058b507b35cBen Cheng return vaddr; 59725b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 59825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 59925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 60025b3c049e70834cf33790a28643ab058b507b35cBen Cheng return 0; 60125b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 60225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 60325b3c049e70834cf33790a28643ab058b507b35cBen Cheng/* Try to find an existing executable module with a DT_DEBUG. */ 60425b3c049e70834cf33790a28643ab058b507b35cBen Chengstatic GElf_Addr 60525b3c049e70834cf33790a28643ab058b507b35cBen Chengfind_executable (Dwfl *dwfl, GElf_Addr at_phdr, GElf_Addr at_entry, 60625b3c049e70834cf33790a28643ab058b507b35cBen Cheng uint_fast8_t *elfclass, uint_fast8_t *elfdata, 60725b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwfl_Memory_Callback *memory_callback, 60825b3c049e70834cf33790a28643ab058b507b35cBen Cheng void *memory_callback_arg) 60925b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 61025b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (Dwfl_Module *mod = dwfl->modulelist; mod != NULL; mod = mod->next) 61125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (mod->main.elf != NULL) 61225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 61325b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr r_debug_vaddr = consider_executable (mod, at_phdr, at_entry, 61425b3c049e70834cf33790a28643ab058b507b35cBen Cheng elfclass, elfdata, 61525b3c049e70834cf33790a28643ab058b507b35cBen Cheng memory_callback, 61625b3c049e70834cf33790a28643ab058b507b35cBen Cheng memory_callback_arg); 61725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (r_debug_vaddr != 0) 61825b3c049e70834cf33790a28643ab058b507b35cBen Cheng return r_debug_vaddr; 61925b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 62025b3c049e70834cf33790a28643ab058b507b35cBen Cheng 62125b3c049e70834cf33790a28643ab058b507b35cBen Cheng return 0; 62225b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 62325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 62425b3c049e70834cf33790a28643ab058b507b35cBen Cheng 62525b3c049e70834cf33790a28643ab058b507b35cBen Chengint 62625b3c049e70834cf33790a28643ab058b507b35cBen Chengdwfl_link_map_report (Dwfl *dwfl, const void *auxv, size_t auxv_size, 62725b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwfl_Memory_Callback *memory_callback, 62825b3c049e70834cf33790a28643ab058b507b35cBen Cheng void *memory_callback_arg) 62925b3c049e70834cf33790a28643ab058b507b35cBen Cheng{ 63025b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr r_debug_vaddr = 0; 63125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 63225b3c049e70834cf33790a28643ab058b507b35cBen Cheng uint_fast8_t elfclass = ELFCLASSNONE; 63325b3c049e70834cf33790a28643ab058b507b35cBen Cheng uint_fast8_t elfdata = ELFDATANONE; 63425b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (likely (auxv != NULL) 63525b3c049e70834cf33790a28643ab058b507b35cBen Cheng && likely (auxv_format_probe (auxv, auxv_size, &elfclass, &elfdata))) 63625b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 63725b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr entry = 0; 63825b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr phdr = 0; 63925b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Xword phent = 0; 64025b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Xword phnum = 0; 64125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 64225b3c049e70834cf33790a28643ab058b507b35cBen Cheng#define AUXV_SCAN(NN, BL) do \ 64325b3c049e70834cf33790a28643ab058b507b35cBen Cheng { \ 64425b3c049e70834cf33790a28643ab058b507b35cBen Cheng const Elf##NN##_auxv_t *av = auxv; \ 64525b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (size_t i = 0; i < auxv_size / sizeof av[0]; ++i) \ 64625b3c049e70834cf33790a28643ab058b507b35cBen Cheng { \ 64725b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf##NN##_Addr val = BL##NN (av[i].a_un.a_val); \ 64825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (av[i].a_type == BL##NN (AT_ENTRY)) \ 64925b3c049e70834cf33790a28643ab058b507b35cBen Cheng entry = val; \ 65025b3c049e70834cf33790a28643ab058b507b35cBen Cheng else if (av[i].a_type == BL##NN (AT_PHDR)) \ 65125b3c049e70834cf33790a28643ab058b507b35cBen Cheng phdr = val; \ 65225b3c049e70834cf33790a28643ab058b507b35cBen Cheng else if (av[i].a_type == BL##NN (AT_PHNUM)) \ 65325b3c049e70834cf33790a28643ab058b507b35cBen Cheng phnum = val; \ 65425b3c049e70834cf33790a28643ab058b507b35cBen Cheng else if (av[i].a_type == BL##NN (AT_PHENT)) \ 65525b3c049e70834cf33790a28643ab058b507b35cBen Cheng phent = val; \ 65625b3c049e70834cf33790a28643ab058b507b35cBen Cheng else if (av[i].a_type == BL##NN (AT_PAGESZ)) \ 65725b3c049e70834cf33790a28643ab058b507b35cBen Cheng { \ 65825b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (val > 1 \ 65925b3c049e70834cf33790a28643ab058b507b35cBen Cheng && (dwfl->segment_align == 0 \ 66025b3c049e70834cf33790a28643ab058b507b35cBen Cheng || val < dwfl->segment_align)) \ 66125b3c049e70834cf33790a28643ab058b507b35cBen Cheng dwfl->segment_align = val; \ 66225b3c049e70834cf33790a28643ab058b507b35cBen Cheng } \ 66325b3c049e70834cf33790a28643ab058b507b35cBen Cheng } \ 66425b3c049e70834cf33790a28643ab058b507b35cBen Cheng } \ 66525b3c049e70834cf33790a28643ab058b507b35cBen Cheng while (0) 66625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 66725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (elfclass == ELFCLASS32) 66825b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 66925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (elfdata == ELFDATA2MSB) 67025b3c049e70834cf33790a28643ab058b507b35cBen Cheng AUXV_SCAN (32, BE); 67125b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 67225b3c049e70834cf33790a28643ab058b507b35cBen Cheng AUXV_SCAN (32, LE); 67325b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 67425b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 67525b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 67625b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (elfdata == ELFDATA2MSB) 67725b3c049e70834cf33790a28643ab058b507b35cBen Cheng AUXV_SCAN (64, BE); 67825b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 67925b3c049e70834cf33790a28643ab058b507b35cBen Cheng AUXV_SCAN (64, LE); 68025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 68125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 68225b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* If we found the phdr dimensions, search phdrs for PT_DYNAMIC. */ 68325b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr dyn_vaddr = 0; 68425b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Xword dyn_filesz = 0; 68525b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr dyn_bias = (GElf_Addr) -1; 68625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 68725b3c049e70834cf33790a28643ab058b507b35cBen Cheng inline bool consider_phdr (GElf_Word type, 68825b3c049e70834cf33790a28643ab058b507b35cBen Cheng GElf_Addr vaddr, GElf_Xword filesz) 68925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 69025b3c049e70834cf33790a28643ab058b507b35cBen Cheng switch (type) 69125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 69225b3c049e70834cf33790a28643ab058b507b35cBen Cheng case PT_PHDR: 69325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (dyn_bias == (GElf_Addr) -1 69425b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Do a sanity check on the putative address. */ 69525b3c049e70834cf33790a28643ab058b507b35cBen Cheng && ((vaddr & (dwfl->segment_align - 1)) 69625b3c049e70834cf33790a28643ab058b507b35cBen Cheng == (phdr & (dwfl->segment_align - 1)))) 69725b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 69825b3c049e70834cf33790a28643ab058b507b35cBen Cheng dyn_bias = phdr - vaddr; 69925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return dyn_vaddr != 0; 70025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 70125b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 70225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 70325b3c049e70834cf33790a28643ab058b507b35cBen Cheng case PT_DYNAMIC: 70425b3c049e70834cf33790a28643ab058b507b35cBen Cheng dyn_vaddr = vaddr; 70525b3c049e70834cf33790a28643ab058b507b35cBen Cheng dyn_filesz = filesz; 70625b3c049e70834cf33790a28643ab058b507b35cBen Cheng return dyn_bias != (GElf_Addr) -1; 70725b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 70825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 70925b3c049e70834cf33790a28643ab058b507b35cBen Cheng return false; 71025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 71125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 71225b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (phdr != 0 && phnum != 0) 71325b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 71425b3c049e70834cf33790a28643ab058b507b35cBen Cheng Dwfl_Module *phdr_mod; 71525b3c049e70834cf33790a28643ab058b507b35cBen Cheng int phdr_segndx = INTUSE(dwfl_addrsegment) (dwfl, phdr, &phdr_mod); 71625b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Data in = 71725b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 71825b3c049e70834cf33790a28643ab058b507b35cBen Cheng .d_type = ELF_T_PHDR, 71925b3c049e70834cf33790a28643ab058b507b35cBen Cheng .d_version = EV_CURRENT, 72025b3c049e70834cf33790a28643ab058b507b35cBen Cheng .d_size = phnum * phent, 72125b3c049e70834cf33790a28643ab058b507b35cBen Cheng .d_buf = NULL 72225b3c049e70834cf33790a28643ab058b507b35cBen Cheng }; 72325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if ((*memory_callback) (dwfl, phdr_segndx, &in.d_buf, &in.d_size, 72425b3c049e70834cf33790a28643ab058b507b35cBen Cheng phdr, phnum * phent, memory_callback_arg)) 72525b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 72625b3c049e70834cf33790a28643ab058b507b35cBen Cheng union 72725b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 72825b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf32_Phdr p32; 72925b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf64_Phdr p64; 73025b3c049e70834cf33790a28643ab058b507b35cBen Cheng char data[phnum * phent]; 73125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } buf; 73225b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Data out = 73325b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 73425b3c049e70834cf33790a28643ab058b507b35cBen Cheng .d_type = ELF_T_PHDR, 73525b3c049e70834cf33790a28643ab058b507b35cBen Cheng .d_version = EV_CURRENT, 73625b3c049e70834cf33790a28643ab058b507b35cBen Cheng .d_size = phnum * phent, 73725b3c049e70834cf33790a28643ab058b507b35cBen Cheng .d_buf = &buf 73825b3c049e70834cf33790a28643ab058b507b35cBen Cheng }; 73925b3c049e70834cf33790a28643ab058b507b35cBen Cheng in.d_size = out.d_size; 74025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (likely ((elfclass == ELFCLASS32 74125b3c049e70834cf33790a28643ab058b507b35cBen Cheng ? elf32_xlatetom : elf64_xlatetom) 74225b3c049e70834cf33790a28643ab058b507b35cBen Cheng (&out, &in, elfdata) != NULL)) 74325b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 74425b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We are looking for PT_DYNAMIC. */ 74525b3c049e70834cf33790a28643ab058b507b35cBen Cheng const union 74625b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 74725b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf32_Phdr p32[phnum]; 74825b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf64_Phdr p64[phnum]; 74925b3c049e70834cf33790a28643ab058b507b35cBen Cheng } *u = (void *) &buf; 75025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (elfclass == ELFCLASS32) 75125b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 75225b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (size_t i = 0; i < phnum; ++i) 75325b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (consider_phdr (u->p32[i].p_type, 75425b3c049e70834cf33790a28643ab058b507b35cBen Cheng u->p32[i].p_vaddr, 75525b3c049e70834cf33790a28643ab058b507b35cBen Cheng u->p32[i].p_filesz)) 75625b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 75725b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 75825b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 75925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 76025b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (size_t i = 0; i < phnum; ++i) 76125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (consider_phdr (u->p64[i].p_type, 76225b3c049e70834cf33790a28643ab058b507b35cBen Cheng u->p64[i].p_vaddr, 76325b3c049e70834cf33790a28643ab058b507b35cBen Cheng u->p64[i].p_filesz)) 76425b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 76525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 76625b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 76725b3c049e70834cf33790a28643ab058b507b35cBen Cheng 76825b3c049e70834cf33790a28643ab058b507b35cBen Cheng (*memory_callback) (dwfl, -1, &in.d_buf, &in.d_size, 0, 0, 76925b3c049e70834cf33790a28643ab058b507b35cBen Cheng memory_callback_arg); 77025b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 77125b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 77225b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We could not read the executable's phdrs from the 77325b3c049e70834cf33790a28643ab058b507b35cBen Cheng memory image. If we have a presupplied executable, 77425b3c049e70834cf33790a28643ab058b507b35cBen Cheng we can still use the AT_PHDR and AT_ENTRY values to 77525b3c049e70834cf33790a28643ab058b507b35cBen Cheng verify it, and to adjust its bias if it's a PIE. 77625b3c049e70834cf33790a28643ab058b507b35cBen Cheng 77725b3c049e70834cf33790a28643ab058b507b35cBen Cheng If there was an ET_EXEC module presupplied that contains 77825b3c049e70834cf33790a28643ab058b507b35cBen Cheng the AT_PHDR address, then we only consider that one. 77925b3c049e70834cf33790a28643ab058b507b35cBen Cheng We'll either accept it if its phdr location and e_entry 78025b3c049e70834cf33790a28643ab058b507b35cBen Cheng make sense or reject it if they don't. If there is no 78125b3c049e70834cf33790a28643ab058b507b35cBen Cheng presupplied ET_EXEC, then look for a presupplied module, 78225b3c049e70834cf33790a28643ab058b507b35cBen Cheng which might be a PIE (ET_DYN) that needs its bias adjusted. */ 78325b3c049e70834cf33790a28643ab058b507b35cBen Cheng r_debug_vaddr = ((phdr_mod == NULL 78425b3c049e70834cf33790a28643ab058b507b35cBen Cheng || phdr_mod->main.elf == NULL 78525b3c049e70834cf33790a28643ab058b507b35cBen Cheng || phdr_mod->e_type != ET_EXEC) 78625b3c049e70834cf33790a28643ab058b507b35cBen Cheng ? find_executable (dwfl, phdr, entry, 78725b3c049e70834cf33790a28643ab058b507b35cBen Cheng &elfclass, &elfdata, 78825b3c049e70834cf33790a28643ab058b507b35cBen Cheng memory_callback, 78925b3c049e70834cf33790a28643ab058b507b35cBen Cheng memory_callback_arg) 79025b3c049e70834cf33790a28643ab058b507b35cBen Cheng : consider_executable (phdr_mod, phdr, entry, 79125b3c049e70834cf33790a28643ab058b507b35cBen Cheng &elfclass, &elfdata, 79225b3c049e70834cf33790a28643ab058b507b35cBen Cheng memory_callback, 79325b3c049e70834cf33790a28643ab058b507b35cBen Cheng memory_callback_arg)); 79425b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 79525b3c049e70834cf33790a28643ab058b507b35cBen Cheng 79625b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* If we found PT_DYNAMIC, search it for DT_DEBUG. */ 79725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (dyn_filesz != 0) 79825b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 79925b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (dyn_bias != (GElf_Addr) -1) 80025b3c049e70834cf33790a28643ab058b507b35cBen Cheng dyn_vaddr += dyn_bias; 80125b3c049e70834cf33790a28643ab058b507b35cBen Cheng 80225b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Data in = 80325b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 80425b3c049e70834cf33790a28643ab058b507b35cBen Cheng .d_type = ELF_T_DYN, 80525b3c049e70834cf33790a28643ab058b507b35cBen Cheng .d_version = EV_CURRENT, 80625b3c049e70834cf33790a28643ab058b507b35cBen Cheng .d_size = dyn_filesz, 80725b3c049e70834cf33790a28643ab058b507b35cBen Cheng .d_buf = NULL 80825b3c049e70834cf33790a28643ab058b507b35cBen Cheng }; 80925b3c049e70834cf33790a28643ab058b507b35cBen Cheng int dyn_segndx = dwfl_addrsegment (dwfl, dyn_vaddr, NULL); 81025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if ((*memory_callback) (dwfl, dyn_segndx, &in.d_buf, &in.d_size, 81125b3c049e70834cf33790a28643ab058b507b35cBen Cheng dyn_vaddr, dyn_filesz, memory_callback_arg)) 81225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 81325b3c049e70834cf33790a28643ab058b507b35cBen Cheng union 81425b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 81525b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf32_Dyn d32; 81625b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf64_Dyn d64; 81725b3c049e70834cf33790a28643ab058b507b35cBen Cheng char data[dyn_filesz]; 81825b3c049e70834cf33790a28643ab058b507b35cBen Cheng } buf; 81925b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf_Data out = 82025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 82125b3c049e70834cf33790a28643ab058b507b35cBen Cheng .d_type = ELF_T_DYN, 82225b3c049e70834cf33790a28643ab058b507b35cBen Cheng .d_version = EV_CURRENT, 82325b3c049e70834cf33790a28643ab058b507b35cBen Cheng .d_size = dyn_filesz, 82425b3c049e70834cf33790a28643ab058b507b35cBen Cheng .d_buf = &buf 82525b3c049e70834cf33790a28643ab058b507b35cBen Cheng }; 82625b3c049e70834cf33790a28643ab058b507b35cBen Cheng in.d_size = out.d_size; 82725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (likely ((elfclass == ELFCLASS32 82825b3c049e70834cf33790a28643ab058b507b35cBen Cheng ? elf32_xlatetom : elf64_xlatetom) 82925b3c049e70834cf33790a28643ab058b507b35cBen Cheng (&out, &in, elfdata) != NULL)) 83025b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 83125b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We are looking for DT_DEBUG. */ 83225b3c049e70834cf33790a28643ab058b507b35cBen Cheng const union 83325b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 83425b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf32_Dyn d32[dyn_filesz / sizeof (Elf32_Dyn)]; 83525b3c049e70834cf33790a28643ab058b507b35cBen Cheng Elf64_Dyn d64[dyn_filesz / sizeof (Elf64_Dyn)]; 83625b3c049e70834cf33790a28643ab058b507b35cBen Cheng } *u = (void *) &buf; 83725b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (elfclass == ELFCLASS32) 83825b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 83925b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t n = dyn_filesz / sizeof (Elf32_Dyn); 84025b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (size_t i = 0; i < n; ++i) 84125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (u->d32[i].d_tag == DT_DEBUG) 84225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 84325b3c049e70834cf33790a28643ab058b507b35cBen Cheng r_debug_vaddr = u->d32[i].d_un.d_val; 84425b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 84525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 84625b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 84725b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 84825b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 84925b3c049e70834cf33790a28643ab058b507b35cBen Cheng size_t n = dyn_filesz / sizeof (Elf64_Dyn); 85025b3c049e70834cf33790a28643ab058b507b35cBen Cheng for (size_t i = 0; i < n; ++i) 85125b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (u->d64[i].d_tag == DT_DEBUG) 85225b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 85325b3c049e70834cf33790a28643ab058b507b35cBen Cheng r_debug_vaddr = u->d64[i].d_un.d_val; 85425b3c049e70834cf33790a28643ab058b507b35cBen Cheng break; 85525b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 85625b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 85725b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 85825b3c049e70834cf33790a28643ab058b507b35cBen Cheng 85925b3c049e70834cf33790a28643ab058b507b35cBen Cheng (*memory_callback) (dwfl, -1, &in.d_buf, &in.d_size, 0, 0, 86025b3c049e70834cf33790a28643ab058b507b35cBen Cheng memory_callback_arg); 86125b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 86225b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 86325b3c049e70834cf33790a28643ab058b507b35cBen Cheng } 86425b3c049e70834cf33790a28643ab058b507b35cBen Cheng else 86525b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* We have to look for a presupplied executable file to determine 86625b3c049e70834cf33790a28643ab058b507b35cBen Cheng the vaddr of its dynamic section and DT_DEBUG therein. */ 86725b3c049e70834cf33790a28643ab058b507b35cBen Cheng r_debug_vaddr = find_executable (dwfl, 0, 0, &elfclass, &elfdata, 86825b3c049e70834cf33790a28643ab058b507b35cBen Cheng memory_callback, memory_callback_arg); 86925b3c049e70834cf33790a28643ab058b507b35cBen Cheng 87025b3c049e70834cf33790a28643ab058b507b35cBen Cheng if (r_debug_vaddr == 0) 87125b3c049e70834cf33790a28643ab058b507b35cBen Cheng return 0; 87225b3c049e70834cf33790a28643ab058b507b35cBen Cheng 87325b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* For following pointers from struct link_map, we will use an 87425b3c049e70834cf33790a28643ab058b507b35cBen Cheng integrated memory access callback that can consult module text 87525b3c049e70834cf33790a28643ab058b507b35cBen Cheng elided from the core file. This is necessary when the l_name 87625b3c049e70834cf33790a28643ab058b507b35cBen Cheng pointer for the dynamic linker's own entry is a pointer into the 87725b3c049e70834cf33790a28643ab058b507b35cBen Cheng executable's .interp section. */ 87825b3c049e70834cf33790a28643ab058b507b35cBen Cheng struct integrated_memory_callback mcb = 87925b3c049e70834cf33790a28643ab058b507b35cBen Cheng { 88025b3c049e70834cf33790a28643ab058b507b35cBen Cheng .memory_callback = memory_callback, 88125b3c049e70834cf33790a28643ab058b507b35cBen Cheng .memory_callback_arg = memory_callback_arg 88225b3c049e70834cf33790a28643ab058b507b35cBen Cheng }; 88325b3c049e70834cf33790a28643ab058b507b35cBen Cheng 88425b3c049e70834cf33790a28643ab058b507b35cBen Cheng /* Now we can follow the dynamic linker's library list. */ 88525b3c049e70834cf33790a28643ab058b507b35cBen Cheng return report_r_debug (elfclass, elfdata, dwfl, r_debug_vaddr, 88625b3c049e70834cf33790a28643ab058b507b35cBen Cheng &integrated_memory_callback, &mcb); 88725b3c049e70834cf33790a28643ab058b507b35cBen Cheng} 88825b3c049e70834cf33790a28643ab058b507b35cBen ChengINTDEF (dwfl_link_map_report) 889