9a0a462ceb
1997-09-11 04:36 Ulrich Drepper <drepper@cygnus.com> * db2/db_int.h: Define __set_errno if not yet available. * db2/btree/bt_rec.c: Use __set_errno to set errno value. * db2/clib/getlong.c: Likewise. * db2/db185/db185.c: Likewise. * db2/db185/db185_int.h: Likewise. * db2/dbm/dbm.c: Likewise. * db2/lock/lock_deadlock.c: Likewise. * db2/log/log_archive.c: Likewise. * elf/dl-profile.c: Implement mcount function. * gmon/gmon.c: Use __profil not profil because of namespace pollution. * gmon/mcount.c: Remove BSD kernel code. Use compare&swap instruction if possible to change state variable. Optimize frompc folding. * gmon/sys/gmon.h (struct gmonparam): Change state field to long int. * sysdeps/i386/i486/atomicity.h: New file. * sysdeps/stub/atomicity.h: New file. * sysdeps/mach/hurd/profil.c: Define function as __profil and make profil weak alias. * sysdeps/posix/profil.c: Likewise. * string/bits/string2.h: New file. * include/bits/string2.h: New file. * string/Makefile (routines): Add mempcpy. (tests): Add inl-tester. Remove _D__NO_STRING_INLINES from CFLAGS-* variables. * sysdeps/generic/mempcpy.c: New file. * sysdeps/generic/memccpy.c: Undef function name to enable definition as macro. * sysdeps/generic/memchr.c: Likewise. * sysdeps/generic/memcmp.c: Likewise. * sysdeps/generic/memmem.c: Likewise. * sysdeps/generic/memmove.c: Likewise. * sysdeps/generic/strcat.c: Likewise. * sysdeps/generic/strchr.c: Likewise. * sysdeps/generic/strcmp.c: Likewise. * sysdeps/generic/strcpy.c: Likewise. * sysdeps/generic/strcspn.c: Likewise. * sysdeps/generic/strlen.c: Likewise. * sysdeps/generic/strncat.c: Likewise. * sysdeps/generic/strncmp.c: Likewise. * sysdeps/generic/strncpy.c: Likewise. * sysdeps/generic/strpbrk.c: Likewise. * sysdeps/generic/strrchr.c: Likewise. * sysdeps/generic/strsep.c: Likewise. * sysdeps/generic/strspn.c: Likewise. * sysdeps/generic/strstr.c: Likewise. * sysdeps/generic/strtok.c: Likewise. * sysdeps/generic/strtok_r.c: Likewise. * sysdeps/i386/memset.c: Likewise. * sysdeps/i386/bits/string.h: Correct a few types and constraints. * sysdeps/i386/i486/bits/string.h: Heavy rewrites and optimizations. * string/stratcliff.c: Undefine __USE_STRING_INLINES. * string/tst-strlen.c: Likewise. * string/string.h: Add prototype for mempcpy. Include bits/string2.h header always if optimizing. * intl/dcgettext.c: Don't unconditionally define stpcpy, only if not yet defined. * intl/l10nflist.c: Likewise. * string/tester.c: Add copyright and make little cleanups. * inet/test_ifindex.c: Change type of ni variable to unsigned int. * locale/programs/ld-ctype.c (struct locale_ctype_t): Change type of fields map_collection_max and map_collection_act to size_t. * nss/libnss_files.map: Group entries. * posix/unistd.h: Add prototype for __setpgid and __profil. * sysdeps/generic/crypt.h: Declare __crypt_r. * sysdeps/i386/bits/select.h: Fix fatal bugs, use correct casts now. * sysdeps/i386/fpu/bits/mathinline.h (isgreater, isgreaterequal, isless, islessequal, islessgreater, isunordered): Optimize a bit. * sysdeps/stub/ftruncate.c: Include missing header for prototype. * sysdeps/stub/getdents.c: Likewise. * sysdeps/stub/reboot.c: Likewise. * sysdeps/stub/swapon.c: Likewise. * sysdeps/stub/syscall.c: Likewise. * sysdeps/stub/ualarm.c: Likewise. * sysdeps/stub/usleep.c: Likewise. * sysdeps/unix/sysv/linux/if_index.c: Don't compile or use opensock if SIOGIFINDEX and SIOGIFNAME are not defined. * sysdeps/unix/sysv/linux/net/if.h: Add IFF_PORTSEL and IFF_AUTOMEDIA according to recent kernel changes. 1997-09-10 21:32 Klaus Espenlaub <kespenla@student.informatik.uni-ulm.de> * Makeconfig: Use $(have-initfini) instead of $(elf) to figure out the installed name of the startup code. (common-generated): Add version.mk. * Makefile (distclean-1): Add glibcbug. * Makerules: Replace -lgcc by $(gnulib). * catgets/Makefile (generated): Add xmalloc.o. * csu/Makefile (generated): Replace align.h and end.h by defs.h to match the generated file. * manual/Makefile (mostlyclean): Add stub-manual and stamp.o. (realclean): Changed to remove chapters-incl[12]. * po/Makefile (realclean): New rule to remove the generated .mo files. * time/Makefile: Only include zonefile dependencies if $(no_deps) is not true to avoid make clean failure when directory time doesn't exist yet. (generated): Add tzselect. * stdio/fgets.c (fgets): Add casts to reduce gcc warning noise. * stdio/internals.c (flushbuf): Likewise. * stdio/linewrap.c (lwupdate): Likewise. * stdio/memstream.c (enlarge_buffer): Likewise. * stdio-common/vfscanf.c (_IO_vfscanf): Likewise. * time/tzset.c (compute_change): Likewise. * misc/init-misc.c (__init_misc): Only declare static if HAVE_GNU_LD is defined. * sysdeps/posix/pipestream.c (FUNC): Change to generate ANSI C style functions. * sysdeps/stub/init-posix.c: Likewise. * sysdeps/stub/profil.c: Likewise. * munch-tmpl.c (__libc_init): Convert to ANSI C style declaration to reduce gcc warning noise. * stdio/glue.c (_filbuf, _flsbuf): Likewise. * stdio/obstream.c (grow, seek, input, init_obstream): Likewise. * stdio/vasprintf.c (enlarge_buffer): Likewise. * sysdeps/generic/sysd-stdio.c (__stdio_read, __stdio_write, __stdio_seek, __stdio_close, __stdio_fileno, __stdio_open, __stdio_reopen): Likewise. * sysdeps/posix/defs.c (_cleanup): Likewise. * time/offtime.c (__offtime): Add cast. * posix/getopt.c: Don't use text_set_element if not defined. * configure.in: Provide a check for underscores before user labels that works even when the compiler used for building doesn't work (like when there is no C library). Use the old way if the compiler works. 1997-09-10 05:08 David S. Miller <davem@caip.rutgers.edu> * sysdeps/unix/sysv/linux/sparc/bits/ioctls.h: The TC* ioctls use 'T' not 't' on SparcLinux. * sysdeps/unix/sysv/linux/sparc/bits/termios.h: tcflag_t is 32 bits. * sysdeps/unix/sysv/linux/sparc/sparc64/longjmp.S: Add aliases for _longjmp and siglongjmp. 1997-09-09 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de> * libio/stdio.h: Add format attributes to the extra printf and scanf like functions. * stdio/stdio.h: Likewise. 1997-09-09 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de> * nis/nss_nisplus/nisplus-network.c (_nss_nisplus_getnetbyaddr_r): Print tablename_val, not tablename_len. * nis/nss_nisplus/nisplus-ethers.c (_nss_nisplus_getntohost_r): Use sprintf instead of sprintf, the string always fits. * nis/nss_nisplus/nisplus-hosts.c (_nss_nisplus_gethostbyaddr_r): Likewise. * nis/nss_nisplus/nisplus-network.c (_nss_nisplus_getnetbyaddr_r): Likewise. * nis/nss_nisplus/nisplus-proto.c (_nss_nisplus_getprotobynumber_r): Likewise. * nis/nss_nisplus/nisplus-rpc.c (_nss_nisplus_getrpcbynumber_r): Likewise. * nis/nss_nisplus/nisplus-service.c (_nss_nisplus_getservbynumber_r): Likewise. * nis/nss_nisplus/nisplus-alias.c (_nss_create_tablename): Use __stpcpy, __stpncpy and __strdup instead of public names. * nis/nss_nisplus/nisplus-ethers.c (_nss_create_tablename): Likewise. * nis/nss_nisplus/nisplus-grp.c (_nss_create_tablename): Likewise. * nis/nss_nisplus/nisplus-hosts.c (_nss_create_tablename): Likewise. * nis/nss_nisplus/nisplus-netgrp.c (_nss_nisplus_parse_netgroup): Likewise. * nis/nss_nisplus/nisplus-network.c (_nss_nisplus_parse_netent): Likewise. (_nss_create_tablename): Likewise. * nis/nss_nisplus/nisplus-proto.c (_nss_nisplus_parse_protoent): Likewise. (_nss_create_tablename): Likewise. * nis/nss_nisplus/nisplus-pwd.c (_nss_create_tablename): Likewise. * nis/nss_nisplus/nisplus-rpc.c (_nss_nisplus_parse_rpcent): Likewise. (_nss_create_tablename): Likewise. * nis/nss_nisplus/nisplus-service.c (_nss_nisplus_parse_servent): Likewise. (_nss_create_tablename): Likewise. * nis/nss_nisplus/nisplus-spwd.c (_nss_create_tablename): Likewise. * libc.map: Export __stpcpy and __strdup. 1997-09-09 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de> * math/Makefile (CFLAGS-test-float.c, CFLAGS-test-double.c, CFLAGS-test-ldouble.c): Pass -ffloat-store to avoid excessive precision. 1997-09-09 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de> * include/rpc/auth_des.h: New file. 1997-09-09 Paul Eggert <eggert@twinsun.com> * time/mktime.c (__mktime_internal): Declare sec_requested even if !LEAP_SECONDS_POSSIBLE, since it's needed at the end when checking for time_t overflow. 1997-09-09 22:11 Ulrich Drepper <drepper@cygnus.com> * sysdeps/posix/getcwd.c: Correct test for too small buffer. Reported by Erik Troan <ewt@redhat.com>. * elf/dl-close.c: Include <bits/libc-lock.h>, not <libc-lock.h>. * elf/dl-open.c: Likewise. 1997-09-07 17:09 Richard Henderson <rth@cygnus.com> * sysdeps/alpha/Makefile: Kill setjmp_aux. * sysdeps/alpha/bits/setjmp.h: Rewrite in terms of an array. * sysdeps/alpha/__longjmp.c: Remove. * sysdeps/alpha/setjmp_aux.c: Remove. * sysdeps/alpha/__longjmp.S: New file. * sysdeps/alpha/bsd-_setjmp.S: Stub out. * sysdeps/alpha/bsd-setjmp.S: Likewise. * sysdeps/alpha/setjmp.S: Do the work; don't call __setjmp_aux. Move _setjmp and setjmp from bsd-*.S. 1997-09-06 20:20 Ulrich Drepper <drepper@cygnus.com> * include/rpc/auth.h: New file. * include/rpc/auth_unix.h: New file. 1997-09-06 Paul Eggert <eggert@twinsun.com> Fix gmtime so that it reports leap seconds when TZ indicates that leap seconds are desired. * time/gmtime.c (<stddef.h>): Remove unnecessary include. (gmtime): Put after gmtime_r, to help the compiler inline. (__tz_convert): New decl. (gmtime_r): Use __tz_convert instead of __offtime, so that leap seconds are handled correctly. * time/localtime.c (<errno.h>, <libc-lock.h>): Remove includes that are now unnecessary. (__tzset_internal, __tz_compute, __tzfile_compute, __use_tzfile, __tzset_lock): Remove extern decls that are now unnecessary. (localtime_internal): Moved to __tz_convert in tzset.c. so that localtime and gmtime can both use it easily. (localtime): Put after localtime_r, to help the compiler inline. (localtime_r): Use __tz_convert instead of localtime_internal. * time/strftime.c (__tz_compute): Remove unused (and now incorrect) decl. * time/tzfile.c (__tzfile_compute): New arg USE_LOCALTIME. * time/tzset.c (<errno.h>): Include. (_tmbuf): New decl. (__tzfile_compute): New function. (tz_compute): Renamed from __tz_compute. No longer extern. Remove redundant call to tzset_internal. (tzset_internal): Renamed from __tzset_internal. No longer extern. (tzset_lock): Renamed from __tzset_lock. No longer extern. (__tz_convert): New function, containing functionality of old localtime_internal function, plus locking and optional UTC. 1997-09-06 Paul Eggert <eggert@twinsun.com> * time/tzfile.c (__tzfile_read): Don't read a file if TZ is the empty string, just use UTC without leap seconds. This is for compatibility with the Olson code. 1997-09-06 Paul Eggert <eggert@twinsun.com> * time/tzset.c (__tzname_max): Lock tz data structures before invoking tzset_internal. * time/tzfile.c: Define compute_tzname_max statically. 1997-09-07 10:57 Thorsten Kukuk <kukuk@vt.uni-paderborn.de> * nis/nis_call.c: Remove not longer necessary HAVE_SECURE_RPC ifdefs. * nis/nis_intern.h: Likewise. * nis/nss_nis/nis-publickey.c: Likewise. * nis/nss_nisplus/nisplus-publickey.c: Likewise. * nis/ypclnt.c: Likewise. * sunrpc/auth_des.c: Don't dereference NULL pointer, initialize ad->ad_timediff. * sunrpc/auth_none.c: Don't define our own prototypes, use the one from the header files. * sunrpc/auth_unix.c: Likewise. * sunrpc/clnt_raw.c: Likewise. * sunrpc/clnt_tcp.c: Likewise. * sunrpc/rpc_cmsg.c: Likewise. * sunrpc/key_call.c: Fix signal handling. * sunrpc/openchild.c: Don't use /bin/sh to start /usr/etc/keyenvoy, or we will get a deadlock with NIS+. * sunrpc/rpc/auth.h: Add prototype for xdr_opaque_auth, don't define HAVE_SECURE_RPC. 1997-09-07 15:51 Ulrich Drepper <drepper@cygnus.com> * sysdeps/i386/bits/select.h [__GNUC__] (__FD_ZERO, __FD_SET, __FD_CLR, __FD_ISSET): Use correct casts to address array correctly. Reported by urbanw@cs.umu.se. 1997-09-07 05:07 Ulrich Drepper <drepper@cygnus.com> * elf/dl-close.c: Include <bits/libc-lock.h>, not <libc-lock.h>. * elf/dl-open.c: Likewise. * sysdeps/i386/memset.c: Undefine memset in case the header with the optimized functions is included. Patches by NIIBE Yutaka <gniibe@mri.co.jp>. * sysdeps/i386/bits/string.h [__PIC__] (strcspn, strspn, strpbrk, strsep): Use register for second parameter. * sysdeps/i386/i486/bits/string.h: Likewise. Reported by NIIBE Yutaka <gniibe@mri.co.jp>. 1997-09-03 09:48 Geoff Keating <geoffk@ozemail.com.au> * math/libm-test.c: Change various tolerances to match what the tested routines can actually provide. * math/Makefile: Add new tests. * math/atest-sincos.c: New file. * math/atest-exp.c: New file. * csu/Makefile: Give initfini.s and initfiniS.s their own CFLAGS-* macros so they can be overridden. * sysdeps/powerpc/Makefile [subdir=csu]: Override flags for initfiniS.s to use -fpic instead of -fPIC, because the sed script breaks otherwise. * sysdeps/powerpc/Makefile [build-shared]: Use -fpic not -fPIC for efficiency. * sysdeps/powerpc/dl-machine.h (ELF_MACHINE_RUNTIME_TRAMPOLINE): Don't use register 0, to let _mcount be in a shared object. * sysdeps/powerpc/dl-machine.h: Use full sentences in comments. Generally clean up. Suppress some code we don't need when relocating ld.so. * sysdeps/powerpc/test-arith.c: Change loop indices to size_t when appropriate to suppress gcc warning. * resolv/res_send.c: Suppress warning. * sunrpc/xdr_sizeof.c: Suppress warning. * FAQ: Add ppc-linux. * manual/maint.texi: Add ppc-linux. Explain that gcc can't build it yet. * sysdeps/unix/sysv/linux/powerpc/profil-counter.h: Correct for current kernels. 1997-08-15 07:45 Geoff Keating <geoffk@ozemail.com.au> * stdlib/fmtmsg.c: Use two parameters for __libc_once_define. * sysdeps/i386/machine-gmon.h: Correct typo. * sysdeps/unix/sysv/linux/powerpc/bits/mman.h: Change to match kernel. * sysdeps/generic/dl-sysdep.c: Add hook for bizzare PPC argument hack. * sysdeps/unix/sysv/linux/powerpc/dl-sysdep.c: Rewrite to use sysdeps/linux/dl-sysdep.c. * sysdeps/powerpc/Makefile [subdir=gmon]: Compile ppc-mcount. * sysdeps/powerpc/machine-gmon.h: Use ppc-mcount. * sysdeps/powerpc/ppc-mcount: New file. The following are mostly changes to allow profiling: * sysdeps/powerpc/add_n.S: Added. * sysdeps/powerpc/add_n.s: Removed. * sysdeps/powerpc/addmul_1.S: Added. * sysdeps/powerpc/addmul_1.s: Removed. * sysdeps/powerpc/bsd-_setjmp.S: Use JUMPTARGET macro. * sysdeps/powerpc/bsd-setjmp.S: Use JUMPTARGET macro. * sysdeps/powerpc/lshift.S: Added. * sysdeps/powerpc/lshift.s: Removed. * sysdeps/powerpc/memset.S: Added. * sysdeps/powerpc/memset.s: Removed. * sysdeps/powerpc/mul_1.S: Added. * sysdeps/powerpc/mul_1.s: Removed. * sysdeps/powerpc/rshift.S: Added. * sysdeps/powerpc/rshift.s: Removed. * sysdeps/powerpc/s_copysign.S: Use ENTRY, END, weak_alias macros. * sysdeps/powerpc/s_fabs.S: Use ENTRY, END, weak_alias macros. * sysdeps/powerpc/setjmp.S: Use JUMPTARGET macro. * sysdeps/powerpc/strchr.S: Added. * sysdeps/powerpc/strchr.s: Removed. * sysdeps/powerpc/strcmp.S: Added. * sysdeps/powerpc/strcmp.s: Removed. * sysdeps/powerpc/strlen.S: Added. * sysdeps/powerpc/strlen.s: Removed. * sysdeps/powerpc/sub_n.S: Added. * sysdeps/powerpc/sub_n.s: Removed. * sysdeps/powerpc/submul_1.S: Added. * sysdeps/powerpc/submul_1.s: Removed. * sysdeps/unix/sysv/linux/powerpc/_exit.S: Removed. * sysdeps/unix/sysv/linux/powerpc/brk.S: Added. * sysdeps/unix/sysv/linux/powerpc/brk.c: Removed. * sysdeps/unix/sysv/linux/powerpc/clone.S: Use new macros. Fix various bugs. Document that it isn't tested. * sysdeps/unix/sysv/linux/powerpc/sigreturn.S: Make look like sysdeps/unix/_exit.S. * sysdeps/unix/sysv/linux/powerpc/socket.S: Use new macros. * sysdeps/unix/sysv/linux/powerpc/syscall.S: Use new macros. * sysdeps/unix/sysv/linux/powerpc/sysdep.h: Define some new macros to make assembler (possibly) more portable, allow profiling, etc.
713 lines
23 KiB
C
713 lines
23 KiB
C
/* Machine-dependent ELF dynamic relocation inline functions. PowerPC version.
|
|
Copyright (C) 1995, 1996, 1997 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 Library General Public License as
|
|
published by the Free Software Foundation; either version 2 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
|
|
Library General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Library General Public
|
|
License along with the GNU C Library; see the file COPYING.LIB. If not,
|
|
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
Boston, MA 02111-1307, USA. */
|
|
|
|
#ifndef dl_machine_h
|
|
#define dl_machine_h
|
|
|
|
#define ELF_MACHINE_NAME "powerpc"
|
|
|
|
#include <assert.h>
|
|
#include <string.h>
|
|
#include <link.h>
|
|
#include <sys/param.h>
|
|
|
|
|
|
/* stuff for the PLT */
|
|
#define PLT_INITIAL_ENTRY_WORDS 18
|
|
#define PLT_LONGBRANCH_ENTRY_WORDS 10
|
|
#define PLT_DOUBLE_SIZE (1<<13)
|
|
#define PLT_ENTRY_START_WORDS(entry_number) \
|
|
(PLT_INITIAL_ENTRY_WORDS + (entry_number)*2 + \
|
|
((entry_number) > PLT_DOUBLE_SIZE ? \
|
|
((entry_number) - PLT_DOUBLE_SIZE)*2 : \
|
|
0))
|
|
#define PLT_DATA_START_WORDS(num_entries) PLT_ENTRY_START_WORDS(num_entries)
|
|
|
|
#define OPCODE_ADDI(rd,ra,simm) \
|
|
(0x38000000 | (rd) << 21 | (ra) << 16 | (simm) & 0xffff)
|
|
#define OPCODE_ADDIS(rd,ra,simm) \
|
|
(0x3c000000 | (rd) << 21 | (ra) << 16 | (simm) & 0xffff)
|
|
#define OPCODE_ADD(rd,ra,rb) \
|
|
(0x7c000214 | (rd) << 21 | (ra) << 16 | (rb) << 11)
|
|
#define OPCODE_B(target) (0x48000000 | (target) & 0x03fffffc)
|
|
#define OPCODE_BA(target) (0x48000002 | (target) & 0x03fffffc)
|
|
#define OPCODE_BCTR() 0x4e800420
|
|
#define OPCODE_LWZ(rd,d,ra) \
|
|
(0x80000000 | (rd) << 21 | (ra) << 16 | (d) & 0xffff)
|
|
#define OPCODE_MTCTR(rd) (0x7C0903A6 | (rd) << 21)
|
|
#define OPCODE_RLWINM(ra,rs,sh,mb,me) \
|
|
(0x54000000 | (rs) << 21 | (ra) << 16 | (sh) << 11 | (mb) << 6 | (me) << 1)
|
|
|
|
#define OPCODE_LI(rd,simm) OPCODE_ADDI(rd,0,simm)
|
|
#define OPCODE_SLWI(ra,rs,sh) OPCODE_RLWINM(ra,rs,sh,0,31-sh)
|
|
|
|
#define PPC_DCBST(where) asm volatile ("dcbst 0,%0" : : "r"(where))
|
|
#define PPC_SYNC asm volatile ("sync")
|
|
#define PPC_ISYNC asm volatile ("sync; isync")
|
|
#define PPC_ICBI(where) asm volatile ("icbi 0,%0" : : "r"(where))
|
|
#define PPC_DIE asm volatile ("tweq 0,0")
|
|
|
|
/* Use this when you've modified some code, but it won't be in the
|
|
instruction fetch queue (or when it doesn't matter if it is). */
|
|
#define MODIFIED_CODE_NOQUEUE(where) \
|
|
do { PPC_DCBST(where); PPC_SYNC; PPC_ICBI(where); } while (0)
|
|
/* Use this when it might be in the instruction queue. */
|
|
#define MODIFIED_CODE(where) \
|
|
do { PPC_DCBST(where); PPC_SYNC; PPC_ICBI(where); PPC_ISYNC; } while (0)
|
|
|
|
|
|
/* Return nonzero iff E_MACHINE is compatible with the running host. */
|
|
static inline int
|
|
elf_machine_matches_host (Elf32_Half e_machine)
|
|
{
|
|
return e_machine == EM_PPC;
|
|
}
|
|
|
|
|
|
/* Return the link-time address of _DYNAMIC, stored as
|
|
the first value in the GOT. */
|
|
static inline Elf32_Addr
|
|
elf_machine_dynamic (void)
|
|
{
|
|
Elf32_Addr *got;
|
|
asm (" bl _GLOBAL_OFFSET_TABLE_-4@local"
|
|
: "=l"(got));
|
|
return *got;
|
|
}
|
|
|
|
/* Return the run-time load address of the shared object. */
|
|
static inline Elf32_Addr
|
|
elf_machine_load_address (void)
|
|
{
|
|
unsigned *got;
|
|
unsigned *branchaddr;
|
|
|
|
/* This is much harder than you'd expect. Possibly I'm missing something.
|
|
The 'obvious' way:
|
|
|
|
Apparently, "bcl 20,31,$+4" is what should be used to load LR
|
|
with the address of the next instruction.
|
|
I think this is so that machines that do bl/blr pairing don't
|
|
get confused.
|
|
|
|
asm ("bcl 20,31,0f ;"
|
|
"0: mflr 0 ;"
|
|
"lis %0,0b@ha;"
|
|
"addi %0,%0,0b@l;"
|
|
"subf %0,%0,0"
|
|
: "=b" (addr) : : "r0", "lr");
|
|
|
|
doesn't work, because the linker doesn't have to (and in fact doesn't)
|
|
update the @ha and @l references; the loader (which runs after this
|
|
code) will do that.
|
|
|
|
Instead, we use the following trick:
|
|
|
|
The linker puts the _link-time_ address of _DYNAMIC at the first
|
|
word in the GOT. We could branch to that address, if we wanted,
|
|
by using an @local reloc; the linker works this out, so it's safe
|
|
to use now. We can't, of course, actually branch there, because
|
|
we'd cause an illegal instruction exception; so we need to compute
|
|
the address ourselves. That gives us the following code: */
|
|
|
|
/* Get address of the 'b _DYNAMIC@local'... */
|
|
asm ("bl 0f ;"
|
|
"b _DYNAMIC@local;"
|
|
"0:"
|
|
: "=l"(branchaddr));
|
|
|
|
/* ... and the address of the GOT. */
|
|
asm (" bl _GLOBAL_OFFSET_TABLE_-4@local"
|
|
: "=l"(got));
|
|
|
|
/* So now work out the difference between where the branch actually points,
|
|
and the offset of that location in memory from the start of the file. */
|
|
return ((Elf32_Addr)branchaddr - *got
|
|
+ (*branchaddr & 0x3fffffc
|
|
| (int)(*branchaddr << 6 & 0x80000000) >> 6));
|
|
}
|
|
|
|
#define ELF_MACHINE_BEFORE_RTLD_RELOC(dynamic_info) /* nothing */
|
|
|
|
/* The PLT uses Elf32_Rela relocs. */
|
|
#define elf_machine_relplt elf_machine_rela
|
|
|
|
/* This code is used in dl-runtime.c to call the `fixup' function
|
|
and then redirect to the address it returns. It is called
|
|
from code built in the PLT by elf_machine_runtime_setup. */
|
|
#define ELF_MACHINE_RUNTIME_TRAMPOLINE asm ("\
|
|
.section \".text\"
|
|
.align 2
|
|
.globl _dl_runtime_resolve
|
|
.type _dl_runtime_resolve,@function
|
|
_dl_runtime_resolve:
|
|
# We need to save the registers used to pass parameters, and register 0,
|
|
# which is used by _mcount; the registers are saved in a stack frame.
|
|
stwu 1,-48(1)
|
|
stw 0,12(1)
|
|
stw 3,16(1)
|
|
stw 4,20(1)
|
|
# The code that calls this has put parameters for `fixup' in r12 and r11.
|
|
mr 3,12
|
|
stw 5,24(1)
|
|
mr 4,11
|
|
stw 6,28(1)
|
|
mflr 0
|
|
# We also need to save some of the condition register fields.
|
|
stw 7,32(1)
|
|
stw 0,52(1)
|
|
stw 8,36(1)
|
|
mfcr 0
|
|
stw 9,40(1)
|
|
stw 10,44(1)
|
|
stw 0,8(1)
|
|
bl fixup@local
|
|
# 'fixup' returns the address we want to branch to.
|
|
mtctr 3
|
|
# Put the registers back...
|
|
lwz 0,52(1)
|
|
lwz 10,44(1)
|
|
lwz 9,40(1)
|
|
mtlr 0
|
|
lwz 8,36(1)
|
|
lwz 0,8(1)
|
|
lwz 7,32(1)
|
|
lwz 6,28(1)
|
|
mtcrf 0xFF,0
|
|
lwz 5,24(1)
|
|
lwz 4,20(1)
|
|
lwz 3,16(1)
|
|
lwz 0,12(1)
|
|
# ...unwind the stack frame, and jump to the PLT entry we updated.
|
|
addi 1,1,48
|
|
bctr
|
|
0:
|
|
.size _dl_runtime_resolve,0b-_dl_runtime_resolve
|
|
# Undo '.section text'.
|
|
.previous
|
|
");
|
|
|
|
/* Initial entry point code for the dynamic linker.
|
|
The C function `_dl_start' is the real entry point;
|
|
its return value is the user program's entry point. */
|
|
#define RTLD_START \
|
|
static ElfW(Addr) _dl_start (void *arg) __attribute__((unused)); \
|
|
asm ("\
|
|
.section \".text\"
|
|
.align 2
|
|
.globl _start
|
|
.type _start,@function
|
|
_start:
|
|
# We start with the following on the stack, from top:
|
|
# argc (4 bytes);
|
|
# arguments for program (terminated by NULL);
|
|
# environment variables (terminated by NULL);
|
|
# arguments for the program loader.
|
|
# FIXME: perhaps this should do the same trick as elf/start.c?
|
|
|
|
# Call _dl_start with one parameter pointing at argc
|
|
mr 3,1
|
|
# (we have to frob the stack pointer a bit to allow room for
|
|
# _dl_start to save the link register)
|
|
li 4,0
|
|
addi 1,1,-16
|
|
stw 4,0(1)
|
|
bl _dl_start@local
|
|
|
|
# Now, we do our main work of calling initialisation procedures.
|
|
# The ELF ABI doesn't say anything about parameters for these,
|
|
# so we just pass argc, argv, and the environment.
|
|
# Changing these is strongly discouraged (not least because argc is
|
|
# passed by value!).
|
|
|
|
# Put our GOT pointer in r31,
|
|
bl _GLOBAL_OFFSET_TABLE_-4@local
|
|
mflr 31
|
|
# the address of _start in r30,
|
|
mr 30,3
|
|
# &_dl_argc in 29, &_dl_argv in 27, and _dl_default_scope in 28.
|
|
lwz 28,_dl_default_scope@got(31)
|
|
lwz 29,_dl_argc@got(31)
|
|
lwz 27,_dl_argv@got(31)
|
|
0:
|
|
# Set initfunc = _dl_init_next(_dl_default_scope[2])
|
|
lwz 3,8(28)
|
|
bl _dl_init_next@plt
|
|
# If initfunc is NULL, we exit the loop; otherwise,
|
|
cmpwi 3,0
|
|
beq 1f
|
|
# call initfunc(_dl_argc, _dl_argv, _dl_argv+_dl_argc+1)
|
|
mtlr 3
|
|
lwz 3,0(29)
|
|
lwz 4,0(27)
|
|
slwi 5,3,2
|
|
add 5,4,5
|
|
addi 5,5,4
|
|
blrl
|
|
# and loop.
|
|
b 0b
|
|
1:
|
|
# Now, to conform to the ELF ABI, we have to:
|
|
# Pass argc (actually _dl_argc) in r3;
|
|
lwz 3,0(29)
|
|
# pass argv (actually _dl_argv) in r4;
|
|
lwz 4,0(27)
|
|
# pass envp (actually _dl_argv+_dl_argc+1) in r5;
|
|
slwi 5,3,2
|
|
add 6,4,5
|
|
addi 5,6,4
|
|
# pass the auxilary vector in r6. This is passed to us just after _envp.
|
|
2: lwzu 0,4(6)
|
|
cmpwi 0,0,0
|
|
bne 2b
|
|
addi 6,6,4
|
|
# Pass a termination function pointer (in this case _dl_fini) in r7.
|
|
lwz 7,_dl_fini@got(31)
|
|
# Now, call the start function in r30...
|
|
mtctr 30
|
|
lwz 26,_dl_starting_up@got(31)
|
|
# Pass the stack pointer in r1 (so far so good), pointing to a NULL value.
|
|
# (This lets our startup code distinguish between a program linked statically,
|
|
# which linux will call with argc on top of the stack which will hopefully
|
|
# never be zero, and a dynamically linked program which will always have
|
|
# a NULL on the top of the stack).
|
|
# Take the opportunity to clear LR, so anyone who accidentally returns
|
|
# from _start gets SEGV. Also clear the next few words of the stack.
|
|
li 31,0
|
|
stw 31,0(1)
|
|
mtlr 31
|
|
stw 31,4(1)
|
|
stw 31,8(1)
|
|
stw 31,12(1)
|
|
# Clear _dl_starting_up.
|
|
stw 31,0(26)
|
|
# Go do it!
|
|
bctr
|
|
0:
|
|
.size _start,0b-_start
|
|
# Undo '.section text'.
|
|
.previous
|
|
");
|
|
|
|
/* The idea here is that to conform to the ABI, we are supposed to try
|
|
to load dynamic objects between 0x10000 (we actually use 0x40000 as
|
|
the lower bound, to increase the chance of a memory reference from
|
|
a null pointer giving a segfault) and the program's load address.
|
|
Regrettably, in this code we can't find the program's load address,
|
|
so we punt and choose 0x01800000, which is below the ABI's
|
|
recommended default, and what GNU ld currently chooses. We only use
|
|
the address as a preference for mmap, so if we get it wrong the
|
|
worst that happens is that it gets mapped somewhere else.
|
|
|
|
FIXME: Unfortunately, 'somewhere else' is probably right after the
|
|
program's break, which causes malloc to fail. We really need more
|
|
information here about the way memory is mapped. */
|
|
|
|
#define ELF_PREFERRED_ADDRESS_DATA \
|
|
static ElfW(Addr) _dl_preferred_address = 1
|
|
|
|
#define ELF_PREFERRED_ADDRESS(loader, maplength, mapstartpref) \
|
|
( { \
|
|
ElfW(Addr) prefd; \
|
|
if (mapstartpref != 0 && _dl_preferred_address == 1) \
|
|
_dl_preferred_address = mapstartpref; \
|
|
if (mapstartpref != 0) \
|
|
prefd = mapstartpref; \
|
|
else if (_dl_preferred_address == 1) \
|
|
prefd = _dl_preferred_address = \
|
|
(0x01800000 - maplength - 0x10000) & \
|
|
~(_dl_pagesize - 1); \
|
|
else if (_dl_preferred_address < maplength + 0x50000) \
|
|
prefd = 0; \
|
|
else \
|
|
prefd = _dl_preferred_address = \
|
|
((_dl_preferred_address - maplength - 0x10000) \
|
|
& ~(_dl_pagesize - 1)); \
|
|
prefd; \
|
|
} )
|
|
|
|
#define ELF_FIXED_ADDRESS(loader, mapstart) \
|
|
( { \
|
|
if (mapstart != 0 && _dl_preferred_address == 1) \
|
|
_dl_preferred_address = mapstart; \
|
|
} )
|
|
|
|
/* We require the address of the PLT entry returned from fixup, not
|
|
the first word of the PLT entry. */
|
|
#define ELF_FIXUP_RETURN_VALUE(map, result) ((Elf32_Addr) &(result))
|
|
|
|
/* Nonzero iff TYPE should not be allowed to resolve to one of
|
|
the main executable's symbols, as for a COPY reloc. */
|
|
#define elf_machine_lookup_noexec_p(type) ((type) == R_PPC_COPY)
|
|
|
|
/* Nonzero iff TYPE describes relocation of a PLT entry, so
|
|
PLT entries should not be allowed to define the value. */
|
|
/* We never want to use a PLT entry as the destination of a
|
|
reloc, when what is being relocated is a branch. This is
|
|
partly for efficiency, but mostly so we avoid loops. */
|
|
#define elf_machine_lookup_noplt_p(type) ((type) == R_PPC_REL24 || \
|
|
(type) == R_PPC_ADDR24 || \
|
|
(type) == R_PPC_JMP_SLOT)
|
|
|
|
/* A reloc type used for ld.so cmdline arg lookups to reject PLT entries. */
|
|
#define ELF_MACHINE_RELOC_NOPLT R_PPC_JMP_SLOT
|
|
|
|
/* Nonzero iff TYPE describes relocation of a PLT entry, so
|
|
PLT entries should not be allowed to define the value. */
|
|
#define elf_machine_pltrel_p(type) ((type) == R_PPC_JMP_SLOT)
|
|
|
|
/* Set up the loaded object described by L so its unrelocated PLT
|
|
entries will jump to the on-demand fixup code in dl-runtime.c.
|
|
Also install a small trampoline to be used by entries that have
|
|
been relocated to an address too far away for a single branch. */
|
|
|
|
/* A PLT entry does one of three things:
|
|
(i) Jumps to the actual routine. Such entries are set up above, in
|
|
elf_machine_rela.
|
|
|
|
(ii) Jumps to the actual routine via glue at the start of the PLT.
|
|
We do this by putting the address of the routine in space
|
|
allocated at the end of the PLT, and when the PLT entry is
|
|
called we load the offset of that word (from the start of the
|
|
space) into r11, then call the glue, which loads the word and
|
|
branches to that address. These entries are set up in
|
|
elf_machine_rela, but the glue is set up here.
|
|
|
|
(iii) Loads the index of this PLT entry (we count the double-size
|
|
entries as one entry for this purpose) into r11, then
|
|
branches to code at the start of the PLT. This code then
|
|
calls `fixup', in dl-runtime.c, via the glue in the macro
|
|
ELF_MACHINE_RUNTIME_TRAMPOLINE, which resets the PLT entry to
|
|
be one of the above two types. These entries are set up here. */
|
|
static inline int
|
|
elf_machine_runtime_setup (struct link_map *map, int lazy, int profile)
|
|
{
|
|
if (map->l_info[DT_JMPREL])
|
|
{
|
|
Elf32_Word i;
|
|
/* Fill in the PLT. Its initial contents are directed to a
|
|
function earlier in the PLT which arranges for the dynamic
|
|
linker to be called back. */
|
|
Elf32_Word *plt = (Elf32_Word *) ((char *) map->l_addr
|
|
+ map->l_info[DT_PLTGOT]->d_un.d_val);
|
|
Elf32_Word num_plt_entries = (map->l_info[DT_PLTRELSZ]->d_un.d_val
|
|
/ sizeof (Elf32_Rela));
|
|
Elf32_Word rel_offset_words = PLT_DATA_START_WORDS (num_plt_entries);
|
|
extern void _dl_runtime_resolve (void);
|
|
Elf32_Word size_modified;
|
|
|
|
if (lazy)
|
|
for (i = 0; i < num_plt_entries; i++)
|
|
{
|
|
Elf32_Word offset = PLT_ENTRY_START_WORDS (i);
|
|
|
|
if (i >= PLT_DOUBLE_SIZE)
|
|
{
|
|
plt[offset ] = OPCODE_LI (11, i * 4);
|
|
plt[offset+1] = OPCODE_ADDIS (11, 11, (i * 4 + 0x8000) >> 16);
|
|
plt[offset+2] = OPCODE_B (-(4 * (offset + 2)));
|
|
}
|
|
else
|
|
{
|
|
plt[offset ] = OPCODE_LI (11, i * 4);
|
|
plt[offset+1] = OPCODE_B (-(4 * (offset + 1)));
|
|
}
|
|
}
|
|
|
|
/* Multiply index of entry by 3 (in r11). */
|
|
plt[0] = OPCODE_SLWI (12, 11, 1);
|
|
plt[1] = OPCODE_ADD (11, 12, 11);
|
|
if ((Elf32_Word) (char *) _dl_runtime_resolve <= 0x01fffffc ||
|
|
(Elf32_Word) (char *) _dl_runtime_resolve >= 0xfe000000)
|
|
{
|
|
/* Load address of link map in r12. */
|
|
plt[2] = OPCODE_LI (12, (Elf32_Word) (char *) map);
|
|
plt[3] = OPCODE_ADDIS (12, 12, (((Elf32_Word) (char *) map
|
|
+ 0x8000) >> 16));
|
|
|
|
/* Call _dl_runtime_resolve. */
|
|
plt[4] = OPCODE_BA ((Elf32_Word) (char *) _dl_runtime_resolve);
|
|
}
|
|
else
|
|
{
|
|
/* Get address of _dl_runtime_resolve in CTR. */
|
|
plt[2] = OPCODE_LI (12, (Elf32_Word) (char *) _dl_runtime_resolve);
|
|
plt[3] = OPCODE_ADDIS (12, 12, ((((Elf32_Word) (char *)
|
|
_dl_runtime_resolve)
|
|
+ 0x8000) >> 16));
|
|
plt[4] = OPCODE_MTCTR (12);
|
|
|
|
/* Load address of link map in r12. */
|
|
plt[5] = OPCODE_LI (12, (Elf32_Word) (char *) map);
|
|
plt[6] = OPCODE_ADDIS (12, 12, (((Elf32_Word) (char *) map
|
|
+ 0x8000) >> 16));
|
|
|
|
/* Call _dl_runtime_resolve. */
|
|
plt[7] = OPCODE_BCTR ();
|
|
}
|
|
|
|
|
|
/* Convert the index in r11 into an actual address, and get the
|
|
word at that address. */
|
|
plt[PLT_LONGBRANCH_ENTRY_WORDS] =
|
|
OPCODE_ADDIS (11, 11, (((Elf32_Word) (char*) (plt + rel_offset_words)
|
|
+ 0x8000) >> 16));
|
|
plt[PLT_LONGBRANCH_ENTRY_WORDS+1] =
|
|
OPCODE_LWZ (11, (Elf32_Word) (char*) (plt+rel_offset_words), 11);
|
|
|
|
/* Call the procedure at that address. */
|
|
plt[PLT_LONGBRANCH_ENTRY_WORDS+2] = OPCODE_MTCTR (11);
|
|
plt[PLT_LONGBRANCH_ENTRY_WORDS+3] = OPCODE_BCTR ();
|
|
|
|
|
|
/* Now, we've modified code (quite a lot of code, possibly). We
|
|
need to write the changes from the data cache to a
|
|
second-level unified cache, then make sure that stale data in
|
|
the instruction cache is removed. (In a multiprocessor
|
|
system, the effect is more complex.)
|
|
|
|
Assumes the cache line size is at least 32 bytes, or at least
|
|
that dcbst and icbi apply to 32-byte lines. At present, all
|
|
PowerPC processors have line sizes of exactly 32 bytes. */
|
|
|
|
size_modified = lazy ? rel_offset_words : PLT_INITIAL_ENTRY_WORDS;
|
|
for (i = 0; i < size_modified; i+=8)
|
|
PPC_DCBST (plt + i);
|
|
PPC_SYNC;
|
|
for (i = 0; i < size_modified; i+=8)
|
|
PPC_ICBI (plt + i);
|
|
PPC_ISYNC;
|
|
}
|
|
|
|
return lazy;
|
|
}
|
|
|
|
static inline void
|
|
elf_machine_lazy_rel (struct link_map *map, const Elf32_Rela *reloc)
|
|
{
|
|
assert (ELF32_R_TYPE (reloc->r_info) == R_PPC_JMP_SLOT);
|
|
/* elf_machine_runtime_setup handles this. */
|
|
}
|
|
|
|
#endif /* dl_machine_h */
|
|
|
|
#ifdef RESOLVE
|
|
|
|
/* Perform the relocation specified by RELOC and SYM (which is fully resolved).
|
|
LOADADDR is the load address of the object; INFO is an array indexed
|
|
by DT_* of the .dynamic section info. */
|
|
|
|
static inline void
|
|
elf_machine_rela (struct link_map *map, const Elf32_Rela *reloc,
|
|
const Elf32_Sym *sym, const struct r_found_version *version,
|
|
Elf32_Addr *const reloc_addr)
|
|
{
|
|
#ifndef RTLD_BOOTSTRAP
|
|
const Elf32_Sym *const refsym = sym;
|
|
extern char **_dl_argv;
|
|
#endif
|
|
Elf32_Word loadbase, finaladdr;
|
|
const int rinfo = ELF32_R_TYPE (reloc->r_info);
|
|
|
|
if (rinfo == R_PPC_NONE)
|
|
return;
|
|
|
|
assert (sym != NULL);
|
|
/* The condition on the next two lines is a hack around a bug in Solaris
|
|
tools on Sparc. It's not clear whether it should really be here at all,
|
|
but if not the binutils need to be changed. */
|
|
if ((sym->st_shndx != SHN_UNDEF
|
|
&& ELF32_ST_BIND (sym->st_info) == STB_LOCAL)
|
|
|| rinfo == R_PPC_RELATIVE)
|
|
{
|
|
/* Has already been relocated. */
|
|
loadbase = map->l_addr;
|
|
finaladdr = loadbase + reloc->r_addend;
|
|
}
|
|
else
|
|
{
|
|
loadbase = (Elf32_Word) (char *) (RESOLVE (&sym, version,
|
|
ELF32_R_TYPE(reloc->r_info)));
|
|
if (sym == NULL)
|
|
{
|
|
/* Weak symbol that wasn't actually defined anywhere. */
|
|
assert(loadbase == 0);
|
|
finaladdr = reloc->r_addend;
|
|
}
|
|
else
|
|
finaladdr = (loadbase + (Elf32_Word) (char *) sym->st_value
|
|
+ reloc->r_addend);
|
|
}
|
|
|
|
/* This is still an if/else if chain because GCC uses the GOT to find
|
|
the table for table-based switch statements, and we haven't set it
|
|
up yet. */
|
|
if (rinfo == R_PPC_UADDR32 ||
|
|
rinfo == R_PPC_GLOB_DAT ||
|
|
rinfo == R_PPC_ADDR32 ||
|
|
rinfo == R_PPC_RELATIVE)
|
|
{
|
|
*reloc_addr = finaladdr;
|
|
}
|
|
#ifndef RTLD_BOOTSTRAP
|
|
else if (rinfo == R_PPC_ADDR16_LO)
|
|
{
|
|
*(Elf32_Half*) reloc_addr = finaladdr;
|
|
}
|
|
else if (rinfo == R_PPC_ADDR16_HI)
|
|
{
|
|
*(Elf32_Half*) reloc_addr = finaladdr >> 16;
|
|
}
|
|
else if (rinfo == R_PPC_ADDR16_HA)
|
|
{
|
|
*(Elf32_Half*) reloc_addr = (finaladdr + 0x8000) >> 16;
|
|
}
|
|
else if (rinfo == R_PPC_REL24)
|
|
{
|
|
Elf32_Sword delta = finaladdr - (Elf32_Word) (char *) reloc_addr;
|
|
if (delta << 6 >> 6 != delta)
|
|
{
|
|
_dl_signal_error(0, map->l_name,
|
|
"R_PPC_REL24 relocation out of range");
|
|
}
|
|
*reloc_addr = *reloc_addr & 0xfc000003 | delta & 0x3fffffc;
|
|
}
|
|
else if (rinfo == R_PPC_ADDR24)
|
|
{
|
|
if (finaladdr << 6 >> 6 != finaladdr)
|
|
{
|
|
_dl_signal_error(0, map->l_name,
|
|
"R_PPC_ADDR24 relocation out of range");
|
|
}
|
|
*reloc_addr = *reloc_addr & 0xfc000003 | finaladdr & 0x3fffffc;
|
|
}
|
|
else if (rinfo == R_PPC_COPY)
|
|
{
|
|
if (sym == NULL)
|
|
/* This can happen in trace mode when an object could not be
|
|
found. */
|
|
return;
|
|
if (sym->st_size > refsym->st_size
|
|
|| (_dl_verbose && sym->st_size < refsym->st_size))
|
|
{
|
|
const char *strtab;
|
|
|
|
strtab = ((void *) map->l_addr
|
|
+ map->l_info[DT_STRTAB]->d_un.d_ptr);
|
|
_dl_sysdep_error (_dl_argv[0] ?: "<program name unknown>",
|
|
": Symbol `", strtab + refsym->st_name,
|
|
"' has different size in shared object, "
|
|
"consider re-linking\n", NULL);
|
|
}
|
|
memcpy (reloc_addr, (char *) finaladdr, MIN (sym->st_size,
|
|
refsym->st_size));
|
|
}
|
|
#endif
|
|
else if (rinfo == R_PPC_REL32)
|
|
{
|
|
*reloc_addr = finaladdr - (Elf32_Word) (char *) reloc_addr;
|
|
}
|
|
else if (rinfo == R_PPC_JMP_SLOT)
|
|
{
|
|
Elf32_Sword delta = finaladdr - (Elf32_Word) (char *) reloc_addr;
|
|
if (delta << 6 >> 6 == delta)
|
|
*reloc_addr = OPCODE_B (delta);
|
|
else if (finaladdr <= 0x01fffffc || finaladdr >= 0xfe000000)
|
|
*reloc_addr = OPCODE_BA (finaladdr);
|
|
else
|
|
{
|
|
Elf32_Word *plt;
|
|
Elf32_Word index;
|
|
|
|
plt = (Elf32_Word *)((char *)map->l_addr
|
|
+ map->l_info[DT_PLTGOT]->d_un.d_val);
|
|
index = (reloc_addr - plt - PLT_INITIAL_ENTRY_WORDS)/2;
|
|
if (index >= PLT_DOUBLE_SIZE)
|
|
{
|
|
/* Slots greater than or equal to 2^13 have 4 words available
|
|
instead of two. */
|
|
/* FIXME: There are some possible race conditions in this code,
|
|
when called from 'fixup'.
|
|
|
|
1) Suppose that a lazy PLT entry is executing, a
|
|
context switch between threads (or a signal) occurs,
|
|
and the new thread or signal handler calls the same
|
|
lazy PLT entry. Then the PLT entry would be changed
|
|
while it's being run, which will cause a segfault
|
|
(almost always).
|
|
|
|
2) Suppose the reverse: that a lazy PLT entry is
|
|
being updated, a context switch occurs, and the new
|
|
code calls the lazy PLT entry that is being updated.
|
|
Then the half-fixed PLT entry will be executed, which
|
|
will also almost always cause a segfault.
|
|
|
|
These problems don't happen with the 2-word entries, because
|
|
only one of the two instructions are changed when a lazy
|
|
entry is retargeted at the actual PLT entry; the li
|
|
instruction stays the same (we have to update it anyway,
|
|
because we might not be updating a lazy PLT entry). */
|
|
reloc_addr[0] = OPCODE_LI (11, finaladdr);
|
|
reloc_addr[1] = OPCODE_ADDIS (11, 11, finaladdr + 0x8000 >> 16);
|
|
reloc_addr[2] = OPCODE_MTCTR (11);
|
|
reloc_addr[3] = OPCODE_BCTR ();
|
|
}
|
|
else
|
|
{
|
|
Elf32_Word num_plt_entries;
|
|
|
|
num_plt_entries = (map->l_info[DT_PLTRELSZ]->d_un.d_val
|
|
/ sizeof(Elf32_Rela));
|
|
|
|
plt[index+PLT_DATA_START_WORDS (num_plt_entries)] = finaladdr;
|
|
reloc_addr[0] = OPCODE_LI (11, index*4);
|
|
reloc_addr[1] =
|
|
OPCODE_B (-(4*(index*2
|
|
+ 1
|
|
- PLT_LONGBRANCH_ENTRY_WORDS
|
|
+ PLT_INITIAL_ENTRY_WORDS)));
|
|
}
|
|
}
|
|
MODIFIED_CODE (reloc_addr);
|
|
}
|
|
else
|
|
{
|
|
#ifdef RTLD_BOOTSTRAP
|
|
PPC_DIE; /* There is no point calling _dl_sysdep_error, it
|
|
almost certainly hasn't been relocated properly. */
|
|
#else
|
|
_dl_sysdep_error (_dl_argv[0] ?: "<program name unknown>",
|
|
": Unknown relocation type\n", NULL);
|
|
#endif
|
|
}
|
|
|
|
#ifndef RTLD_BOOTSTRAP
|
|
if (rinfo == R_PPC_ADDR16_LO ||
|
|
rinfo == R_PPC_ADDR16_HI ||
|
|
rinfo == R_PPC_ADDR16_HA ||
|
|
rinfo == R_PPC_REL24 ||
|
|
rinfo == R_PPC_ADDR24)
|
|
MODIFIED_CODE_NOQUEUE (reloc_addr);
|
|
#endif
|
|
}
|
|
|
|
#define ELF_MACHINE_NO_REL 1
|
|
|
|
#endif
|