mirror of git://sourceware.org/git/glibc.git
Thu Jun 20 21:19:07 1996 Richard Henderson <rth@tamu.edu>
* sysdeps/alpha/dl-machine.h (elf_alpha_fix_plt): Changed to a 12-byte PLT entry to remove dependency on $gp. Take a new got_addr parameter. (elf_machine_rela): Pass the new parameter. (ELF_MACHINE_RUNTIME_TRAMPOLINE): Do arithmetic for 12-byte PLT. (RTLD_START): Do normal linkage with program entry.
This commit is contained in:
parent
51ec5cb28a
commit
7b5092a79d
|
|
@ -1,7 +1,7 @@
|
|||
/* Machine-dependent ELF dynamic relocation inline functions. Alpha version.
|
||||
Copyright (C) 1996 Free Software Foundation, Inc.
|
||||
This file is part of the GNU C Library.
|
||||
Contributed by Richard Henderson <rht@tamu.edu>.
|
||||
Contributed by Richard Henderson <rth@tamu.edu>.
|
||||
|
||||
The GNU C Library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Library General Public License as
|
||||
|
|
@ -84,42 +84,64 @@ elf_machine_load_address (void)
|
|||
static inline void
|
||||
elf_alpha_fix_plt(struct link_map *l,
|
||||
const Elf64_Rela *reloc,
|
||||
Elf64_Addr got_addr,
|
||||
Elf64_Addr value)
|
||||
{
|
||||
const Elf64_Rela *rela_plt;
|
||||
Elf64_Word *plte;
|
||||
long disp;
|
||||
long edisp;
|
||||
|
||||
/* Recover the PLT entry address by calculating reloc's index into the
|
||||
.rela.plt, and finding that entry in the .plt. */
|
||||
|
||||
rela_plt = (void *)(l->l_addr + l->l_info[DT_JMPREL]->d_un.d_ptr);
|
||||
|
||||
plte = (void *)(l->l_addr + l->l_info[DT_PLTGOT]->d_un.d_ptr);
|
||||
plte += 2*(reloc - rela_plt) + 8;
|
||||
plte = (void *)(l->l_addr + l->l_info[DT_PLTGOT]->d_un.d_ptr + 32);
|
||||
plte += 3 * (reloc - rela_plt);
|
||||
|
||||
/* Find the displacement from the plt entry to the function. */
|
||||
|
||||
disp = value - (Elf64_Addr)&plte[2];
|
||||
edisp = (long)(value - (Elf64_Addr)&plte[3]) / 4;
|
||||
|
||||
/* Change "lda $27, ofs($31)" to "ldq $27, ofs($gp)" */
|
||||
plte[0] = 0xa77d0000 | (plte[0] & 0xffff);
|
||||
|
||||
if (disp >= -0x100000 && disp < 0x100000)
|
||||
if (edisp >= -0x100000 && edisp < 0x100000)
|
||||
{
|
||||
/* If we are in range, use br to perfect branch prediction and
|
||||
elide the dependancy on the address load. This case happens,
|
||||
e.g., when a shared library call is resolved to the same library. */
|
||||
/* Change "br $0, plt0" to "br $31,function" */
|
||||
plte[1] = 0xc3e00000 | (disp & 0x1fffff);
|
||||
|
||||
int hi, lo;
|
||||
hi = value - (Elf64_Addr)&plte[0];
|
||||
lo = (short)hi;
|
||||
hi = (hi - lo) >> 16;
|
||||
|
||||
/* Emit "ldah $27,H($27)" */
|
||||
plte[0] = 0x277b0000 | (hi & 0xffff);
|
||||
|
||||
/* Emit "lda $27,L($27)" */
|
||||
plte[1] = 0x237b0000 | (lo & 0xffff);
|
||||
|
||||
/* Emit "br $31,function" */
|
||||
plte[2] = 0xc3e00000 | (edisp & 0x1fffff);
|
||||
}
|
||||
else
|
||||
{
|
||||
/* Don't bother with the hint since we already know the hint is
|
||||
wrong. Eliding it prevents the wrong page from getting pulled
|
||||
into the cache. */
|
||||
/* Change "br $0, plt0" to "jmp $31,($27)" */
|
||||
plte[1] = 0x6bfb0000;
|
||||
|
||||
int hi, lo;
|
||||
hi = got_addr - (Elf64_Addr)&plte[0];
|
||||
lo = (short)hi;
|
||||
hi = (hi - lo) >> 16;
|
||||
|
||||
/* Emit "ldah $27,H($27)" */
|
||||
plte[0] = 0x277b0000 | (hi & 0xffff);
|
||||
|
||||
/* Emit "ldq $27,L($27)" */
|
||||
plte[1] = 0xa77b0000 | (lo & 0xffff);
|
||||
|
||||
/* Emit "jmp $31,($27)" */
|
||||
plte[2] = 0x6bfb0000;
|
||||
}
|
||||
|
||||
/* Flush the instruction cache now that we've diddled. Tag it as
|
||||
|
|
@ -172,7 +194,7 @@ elf_machine_rela (struct link_map *map,
|
|||
else if (r_info == R_ALPHA_JMP_SLOT)
|
||||
{
|
||||
*reloc_addr = sym_value;
|
||||
elf_alpha_fix_plt(map, reloc, sym_value);
|
||||
elf_alpha_fix_plt(map, reloc, (Elf64_Addr)reloc_addr, sym_value);
|
||||
}
|
||||
else if (r_info == R_ALPHA_REFQUAD)
|
||||
{
|
||||
|
|
@ -285,11 +307,10 @@ _dl_runtime_resolve:
|
|||
/* Set up the arguments for _dl_runtime_resolve. */
|
||||
/* $16 = link_map out of plt0 */
|
||||
ldq $16, 8($27)
|
||||
/* $17 = (($0 - 8) - ($1 + 16)) / 8 * sizeof(Elf_Rela) */
|
||||
/* $17 = (($28 - 4) - ($27 + 16)) / 12 * sizeof(Elf_Rela) */
|
||||
subq $28, $27, $28
|
||||
subq $28, 24, $28
|
||||
subq $28, 20, $28
|
||||
addq $28, $28, $17
|
||||
addq $28, $17, $17
|
||||
/* Do the fixup */
|
||||
bsr $26, fixup..ng
|
||||
/* Move the destination address to a safe place. */
|
||||
|
|
@ -370,4 +391,5 @@ _dl_start_user:
|
|||
2: /* Pass our finalizer function to the user in $0. */
|
||||
lda $0, _dl_fini
|
||||
/* Jump to the user's entry point. */
|
||||
mov $9, $27
|
||||
jmp ($9)");
|
||||
|
|
|
|||
Loading…
Reference in New Issue