mirror of
https://sourceware.org/git/glibc.git
synced 2024-12-13 14:50:17 +00:00
4dca2d3a7b
On hppa, a function pointer returned by la_symbind is actually a function
descriptor has the plabel bit set (bit 30). This must be cleared to get
the actual address of the descriptor. If the descriptor has been bound,
the first word of the descriptor is the physical address of theA function,
otherwise, the first word of the descriptor points to a trampoline in the
PLT.
This patch also adds a workaround on tests because on hppa (and it seems
to be the only ABI I have see it), some shared library adds a dynamic PLT
relocation to am empty symbol name:
$ readelf -r elf/tst-audit25mod1.so
[...]
Relocation section '.rela.plt' at offset 0x464 contains 6 entries:
Offset Info Type Sym.Value Sym. Name + Addend
00002008 00000081 R_PARISC_IPLT 508
[...]
It breaks some assumptions on the test, where a symbol with an empty
name ("") is passed on la_symbind.
Checked on x86_64-linux-gnu and hppa-linux-gnu.
(cherry picked from commit 9e94f57484)
89 lines
3.2 KiB
C
89 lines
3.2 KiB
C
/* Configuration of lookup functions.
|
|
Copyright (C) 2000-2021 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
|
|
<https://www.gnu.org/licenses/>. */
|
|
|
|
#define ELF_FUNCTION_PTR_IS_SPECIAL
|
|
#define DL_UNMAP_IS_SPECIAL
|
|
|
|
#include <dl-fptr.h>
|
|
|
|
/* Forward declaration. */
|
|
struct link_map;
|
|
|
|
void *_dl_symbol_address (struct link_map *map, const ElfW(Sym) *ref);
|
|
rtld_hidden_proto (_dl_symbol_address)
|
|
|
|
#define DL_SYMBOL_ADDRESS(map, ref) _dl_symbol_address(map, ref)
|
|
|
|
Elf32_Addr _dl_lookup_address (const void *address);
|
|
rtld_hidden_proto (_dl_lookup_address)
|
|
|
|
#define DL_LOOKUP_ADDRESS(addr) _dl_lookup_address ((const void *) addr)
|
|
|
|
void attribute_hidden _dl_unmap (struct link_map *map);
|
|
|
|
#define DL_UNMAP(map) _dl_unmap (map)
|
|
|
|
#define DL_DT_FUNCTION_ADDRESS(map, start, attr, addr) \
|
|
attr volatile unsigned int fptr[2]; \
|
|
/* The test for "start & 2" below is to accommodate old binaries which \
|
|
violated the ELF ABI by pointing DT_INIT and DT_FINI at a function \
|
|
descriptor. */ \
|
|
if ((ElfW(Addr)) (start) & 2) \
|
|
addr = (ElfW(Addr)) start; \
|
|
else \
|
|
{ \
|
|
fptr[0] = (unsigned int) (start); \
|
|
fptr[1] = (map)->l_info[DT_PLTGOT]->d_un.d_ptr; \
|
|
/* Set bit 30 to indicate to $$dyncall that this is a PLABEL. */ \
|
|
addr = (ElfW(Addr))((unsigned int)fptr | 2); \
|
|
} \
|
|
|
|
#define DL_CALL_DT_INIT(map, start, argc, argv, env) \
|
|
{ \
|
|
ElfW(Addr) addr; \
|
|
DL_DT_FUNCTION_ADDRESS(map, start, , addr) \
|
|
dl_init_t init = (dl_init_t) addr; \
|
|
init (argc, argv, env); \
|
|
}
|
|
|
|
#define DL_CALL_DT_FINI(map, start) \
|
|
{ \
|
|
ElfW(Addr) addr; \
|
|
DL_DT_FUNCTION_ADDRESS(map, start, , addr) \
|
|
fini_t fini = (fini_t) addr; \
|
|
fini (); \
|
|
}
|
|
|
|
/* The type of the return value of fixup/profile_fixup */
|
|
#define DL_FIXUP_VALUE_TYPE struct fdesc
|
|
|
|
/* Construct a fixup value from the address and linkmap */
|
|
#define DL_FIXUP_MAKE_VALUE(map, addr) \
|
|
(map) ? ((struct fdesc) { (addr), (map)->l_info[DT_PLTGOT]->d_un.d_ptr }) \
|
|
: ((struct fdesc) { 0, 0 })
|
|
|
|
/* Extract the code address from a fixup value */
|
|
#define DL_FIXUP_VALUE_CODE_ADDR(value) ((value).ip)
|
|
#define DL_FIXUP_VALUE_ADDR(value) ((uintptr_t) &(value))
|
|
/* Clear the plabel bit to get the actual address of the descriptor. */
|
|
#define DL_FIXUP_ADDR_VALUE(addr) \
|
|
(*(DL_FIXUP_VALUE_TYPE *) ((uintptr_t) (addr) & ~2))
|
|
#define DL_FIXUP_BINDNOW_ADDR_VALUE(addr) (addr)
|
|
#define DL_FIXUP_BINDNOW_RELOC(value, new_value, st_value) \
|
|
*(value) = *(DL_FIXUP_VALUE_TYPE *) ((uintptr_t) (new_value) & ~2)
|