mirror of
https://sourceware.org/git/glibc.git
synced 2025-10-31 22:10:34 +03:00
f8aeae3473
for ChangeLog [BZ #17090] [BZ #17620] [BZ #17621] [BZ #17628] * NEWS: Update. * elf/dl-tls.c (_dl_update_slotinfo): Clean up outdated DTV entries with Static TLS too. Skip entries past the end of the allocated DTV, from Alan Modra. (tls_get_addr_tail): Update to glibc_likely/unlikely. Move Static TLS DTV entry set up from... (_dl_allocate_tls_init): ... here (fix modid assertion), ... * elf/dl-reloc.c (_dl_nothread_init_static_tls): ... here... * nptl/allocatestack.c (init_one_static_tls): ... and here... * elf/dlopen.c (dl_open_worker): Drop l_tls_modid upper bound for Static TLS. * elf/tlsdeschtab.h (map_generation): Return size_t. Check that the slot we find is associated with the given map before using its generation count. * nptl_db/db_info.c: Include ldsodefs.h. (rtld_global, dtv_slotinfo_list, dtv_slotinfo): New typedefs. * nptl_db/structs.def (DB_RTLD_VARIABLE): New macro. (DB_MAIN_VARIABLE, DB_RTLD_GLOBAL_FIELD): Likewise. (link_map::l_tls_offset): New struct field. (dtv_t::counter): Likewise. (rtld_global): New struct. (_rtld_global): New rtld variable. (dl_tls_dtv_slotinfo_list): New rtld global field. (dtv_slotinfo_list): New struct. (dtv_slotinfo): Likewise. * nptl_db/td_symbol_list.c: Drop gnu/lib-names.h include. (td_lookup): Rename to... (td_mod_lookup): ... this. Use new mod parameter instead of LIBPTHREAD_SO. * nptl_db/td_thr_tlsbase.c: Include link.h. (dtv_slotinfo_list, dtv_slotinfo): New functions. (td_thr_tlsbase): Check DTV generation. Compute Static TLS addresses even if the DTV is out of date or missing them. * nptl_db/fetch-value.c (_td_locate_field): Do not refuse to index zero-length arrays. * nptl_db/thread_dbP.h: Include gnu/lib-names.h. (td_lookup): Make it a macro implemented in terms of... (td_mod_lookup): ... this declaration. * nptl_db/db-symbols.awk (DB_RTLD_VARIABLE): Override. (DB_MAIN_VARIABLE): Likewise.
286 lines
8.0 KiB
C
286 lines
8.0 KiB
C
/* Helper routines for libthread_db.
|
|
Copyright (C) 2003-2015 Free Software Foundation, Inc.
|
|
This file is part of the GNU C Library.
|
|
|
|
The GNU C Library is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Lesser General Public
|
|
License as published by the Free Software Foundation; either
|
|
version 2.1 of the License, or (at your option) any later version.
|
|
|
|
The GNU C Library is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Lesser General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Lesser General Public
|
|
License along with the GNU C Library; if not, see
|
|
<http://www.gnu.org/licenses/>. */
|
|
|
|
#include "thread_dbP.h"
|
|
#include <byteswap.h>
|
|
#include <assert.h>
|
|
#include <stdint.h>
|
|
|
|
td_err_e
|
|
_td_check_sizeof (td_thragent_t *ta, uint32_t *sizep, int sizep_name)
|
|
{
|
|
if (*sizep == 0)
|
|
{
|
|
psaddr_t descptr;
|
|
ps_err_e err = td_lookup (ta->ph, sizep_name, &descptr);
|
|
if (err == PS_NOSYM)
|
|
return TD_NOCAPAB;
|
|
if (err == PS_OK)
|
|
err = ps_pdread (ta->ph, descptr, sizep, sizeof *sizep);
|
|
if (err != PS_OK)
|
|
return TD_ERR;
|
|
if (*sizep & 0xff000000U)
|
|
*sizep = bswap_32 (*sizep);
|
|
}
|
|
return TD_OK;
|
|
}
|
|
|
|
td_err_e
|
|
_td_locate_field (td_thragent_t *ta,
|
|
db_desc_t desc, int descriptor_name,
|
|
psaddr_t idx, psaddr_t *address)
|
|
{
|
|
uint32_t elemsize;
|
|
|
|
if (DB_DESC_SIZE (desc) == 0)
|
|
{
|
|
/* Read the information about this field from the inferior. */
|
|
psaddr_t descptr;
|
|
ps_err_e err = td_lookup (ta->ph, descriptor_name, &descptr);
|
|
if (err == PS_NOSYM)
|
|
return TD_NOCAPAB;
|
|
if (err == PS_OK)
|
|
err = ps_pdread (ta->ph, descptr, desc, DB_SIZEOF_DESC);
|
|
if (err != PS_OK)
|
|
return TD_ERR;
|
|
if (DB_DESC_SIZE (desc) == 0)
|
|
return TD_DBERR;
|
|
if (DB_DESC_SIZE (desc) & 0xff000000U)
|
|
{
|
|
/* Byte-swap these words, though we leave the size word
|
|
in native order as the handy way to distinguish. */
|
|
DB_DESC_OFFSET (desc) = bswap_32 (DB_DESC_OFFSET (desc));
|
|
DB_DESC_NELEM (desc) = bswap_32 (DB_DESC_NELEM (desc));
|
|
}
|
|
}
|
|
|
|
if (idx != 0 && DB_DESC_NELEM (desc) != 0
|
|
&& idx - (psaddr_t) 0 > DB_DESC_NELEM (desc))
|
|
/* This is an internal indicator to callers with nonzero IDX
|
|
that the IDX value is too big. */
|
|
return TD_NOAPLIC;
|
|
|
|
elemsize = DB_DESC_SIZE (desc);
|
|
if (elemsize & 0xff000000U)
|
|
elemsize = bswap_32 (elemsize);
|
|
|
|
*address += (int32_t) DB_DESC_OFFSET (desc);
|
|
*address += (elemsize / 8 * (idx - (psaddr_t) 0));
|
|
return TD_OK;
|
|
}
|
|
|
|
td_err_e
|
|
_td_fetch_value (td_thragent_t *ta,
|
|
db_desc_t desc, int descriptor_name,
|
|
psaddr_t idx, psaddr_t address,
|
|
psaddr_t *result)
|
|
{
|
|
ps_err_e err;
|
|
td_err_e terr = _td_locate_field (ta, desc, descriptor_name, idx, &address);
|
|
if (terr != TD_OK)
|
|
return terr;
|
|
|
|
if (DB_DESC_SIZE (desc) == 8 || DB_DESC_SIZE (desc) == bswap_32 (8))
|
|
{
|
|
uint8_t value;
|
|
err = ps_pdread (ta->ph, address, &value, sizeof value);
|
|
*result = (psaddr_t) 0 + value;
|
|
}
|
|
else if (DB_DESC_SIZE (desc) == 32)
|
|
{
|
|
uint32_t value;
|
|
err = ps_pdread (ta->ph, address, &value, sizeof value);
|
|
*result = (psaddr_t) 0 + value;
|
|
}
|
|
else if (DB_DESC_SIZE (desc) == 64)
|
|
{
|
|
uint64_t value;
|
|
if (sizeof (psaddr_t) < 8)
|
|
return TD_NOCAPAB;
|
|
err = ps_pdread (ta->ph, address, &value, sizeof value);
|
|
*result = (psaddr_t) 0 + value;
|
|
}
|
|
else if (DB_DESC_SIZE (desc) == bswap_32 (32))
|
|
{
|
|
uint32_t value;
|
|
err = ps_pdread (ta->ph, address, &value, sizeof value);
|
|
value = bswap_32 (value);
|
|
*result = (psaddr_t) 0 + value;
|
|
}
|
|
else if (DB_DESC_SIZE (desc) == bswap_32 (64))
|
|
{
|
|
uint64_t value;
|
|
if (sizeof (psaddr_t) < 8)
|
|
return TD_NOCAPAB;
|
|
err = ps_pdread (ta->ph, address, &value, sizeof value);
|
|
value = bswap_64 (value);
|
|
*result = (psaddr_t) 0 + value;
|
|
}
|
|
else
|
|
return TD_DBERR;
|
|
|
|
return err == PS_OK ? TD_OK : TD_ERR;
|
|
}
|
|
|
|
|
|
td_err_e
|
|
_td_store_value (td_thragent_t *ta,
|
|
uint32_t desc[2], int descriptor_name, psaddr_t idx,
|
|
psaddr_t address, psaddr_t widened_value)
|
|
{
|
|
ps_err_e err;
|
|
td_err_e terr = _td_locate_field (ta, desc, descriptor_name, idx, &address);
|
|
if (terr != TD_OK)
|
|
return terr;
|
|
|
|
if (DB_DESC_SIZE (desc) == 8 || DB_DESC_SIZE (desc) == bswap_32 (8))
|
|
{
|
|
uint8_t value = widened_value - (psaddr_t) 0;
|
|
err = ps_pdwrite (ta->ph, address, &value, sizeof value);
|
|
}
|
|
else if (DB_DESC_SIZE (desc) == 32)
|
|
{
|
|
uint32_t value = widened_value - (psaddr_t) 0;
|
|
err = ps_pdwrite (ta->ph, address, &value, sizeof value);
|
|
}
|
|
else if (DB_DESC_SIZE (desc) == 64)
|
|
{
|
|
uint64_t value = widened_value - (psaddr_t) 0;
|
|
if (sizeof (psaddr_t) < 8)
|
|
return TD_NOCAPAB;
|
|
err = ps_pdwrite (ta->ph, address, &value, sizeof value);
|
|
}
|
|
else if (DB_DESC_SIZE (desc) == bswap_32 (32))
|
|
{
|
|
uint32_t value = widened_value - (psaddr_t) 0;
|
|
value = bswap_32 (value);
|
|
err = ps_pdwrite (ta->ph, address, &value, sizeof value);
|
|
}
|
|
else if (DB_DESC_SIZE (desc) == bswap_32 (64))
|
|
{
|
|
uint64_t value = widened_value - (psaddr_t) 0;
|
|
if (sizeof (psaddr_t) < 8)
|
|
return TD_NOCAPAB;
|
|
value = bswap_64 (value);
|
|
err = ps_pdwrite (ta->ph, address, &value, sizeof value);
|
|
}
|
|
else
|
|
return TD_DBERR;
|
|
|
|
return err == PS_OK ? TD_OK : TD_ERR;
|
|
}
|
|
|
|
td_err_e
|
|
_td_fetch_value_local (td_thragent_t *ta,
|
|
db_desc_t desc, int descriptor_name, psaddr_t idx,
|
|
void *address,
|
|
psaddr_t *result)
|
|
{
|
|
td_err_e terr = _td_locate_field (ta, desc, descriptor_name, idx, &address);
|
|
if (terr != TD_OK)
|
|
return terr;
|
|
|
|
if (DB_DESC_SIZE (desc) == 8 || DB_DESC_SIZE (desc) == bswap_32 (8))
|
|
{
|
|
uint8_t value;
|
|
memcpy (&value, address, sizeof value);
|
|
*result = (psaddr_t) 0 + value;
|
|
}
|
|
else if (DB_DESC_SIZE (desc) == 32)
|
|
{
|
|
uint32_t value;
|
|
memcpy (&value, address, sizeof value);
|
|
*result = (psaddr_t) 0 + value;
|
|
}
|
|
else if (DB_DESC_SIZE (desc) == 64)
|
|
{
|
|
uint64_t value;
|
|
if (sizeof (psaddr_t) < 8)
|
|
return TD_NOCAPAB;
|
|
memcpy (&value, address, sizeof value);
|
|
*result = (psaddr_t) 0 + value;
|
|
}
|
|
else if (DB_DESC_SIZE (desc) == bswap_32 (32))
|
|
{
|
|
uint32_t value;
|
|
memcpy (&value, address, sizeof value);
|
|
value = bswap_32 (value);
|
|
*result = (psaddr_t) 0 + value;
|
|
}
|
|
else if (DB_DESC_SIZE (desc) == bswap_32 (64))
|
|
{
|
|
uint64_t value;
|
|
if (sizeof (psaddr_t) < 8)
|
|
return TD_NOCAPAB;
|
|
memcpy (&value, address, sizeof value);
|
|
value = bswap_64 (value);
|
|
*result = (psaddr_t) 0 + value;
|
|
}
|
|
else
|
|
return TD_DBERR;
|
|
|
|
return TD_OK;
|
|
}
|
|
|
|
|
|
td_err_e
|
|
_td_store_value_local (td_thragent_t *ta,
|
|
uint32_t desc[2], int descriptor_name, psaddr_t idx,
|
|
void *address, psaddr_t widened_value)
|
|
{
|
|
td_err_e terr = _td_locate_field (ta, desc, descriptor_name, idx, &address);
|
|
if (terr != TD_OK)
|
|
return terr;
|
|
|
|
if (DB_DESC_SIZE (desc) == 8 || DB_DESC_SIZE (desc) == bswap_32 (8))
|
|
{
|
|
uint8_t value = widened_value - (psaddr_t) 0;
|
|
memcpy (address, &value, sizeof value);
|
|
}
|
|
else if (DB_DESC_SIZE (desc) == 32)
|
|
{
|
|
uint32_t value = widened_value - (psaddr_t) 0;
|
|
memcpy (address, &value, sizeof value);
|
|
}
|
|
else if (DB_DESC_SIZE (desc) == 64)
|
|
{
|
|
uint64_t value = widened_value - (psaddr_t) 0;
|
|
if (sizeof (psaddr_t) < 8)
|
|
return TD_NOCAPAB;
|
|
memcpy (address, &value, sizeof value);
|
|
}
|
|
else if (DB_DESC_SIZE (desc) == bswap_32 (32))
|
|
{
|
|
uint32_t value = widened_value - (psaddr_t) 0;
|
|
value = bswap_32 (value);
|
|
memcpy (address, &value, sizeof value);
|
|
}
|
|
else if (DB_DESC_SIZE (desc) == bswap_32 (64))
|
|
{
|
|
uint64_t value = widened_value - (psaddr_t) 0;
|
|
if (sizeof (psaddr_t) < 8)
|
|
return TD_NOCAPAB;
|
|
value = bswap_64 (value);
|
|
memcpy (address, &value, sizeof value);
|
|
}
|
|
else
|
|
return TD_DBERR;
|
|
|
|
return TD_OK;
|
|
}
|