]> git.ipfire.org Git - thirdparty/glibc.git/blobdiff - sysdeps/powerpc/powerpc32/dl-machine.h
Update copyright dates with scripts/update-copyrights.
[thirdparty/glibc.git] / sysdeps / powerpc / powerpc32 / dl-machine.h
index 4da239d0f46ed89e6f54993ba8b80896672233d9..f391e5af1b042f93437716f27177fa493f86cfe0 100644 (file)
@@ -1,5 +1,5 @@
 /* Machine-dependent ELF dynamic relocation inline functions.  PowerPC version.
-   Copyright (C) 1995-2002, 2003 Free Software Foundation, Inc.
+   Copyright (C) 1995-2020 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
@@ -13,9 +13,8 @@
    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, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307 USA.  */
+   License along with the GNU C Library; if not, see
+   <https://www.gnu.org/licenses/>.  */
 
 #ifndef dl_machine_h
 #define dl_machine_h
 
 #include <assert.h>
 #include <dl-tls.h>
+#include <dl-irel.h>
+#include <hwcapinfo.h>
+
+/* Translate a processor specific dynamic tag to the index
+   in l_info array.  */
+#define DT_PPC(x) (DT_PPC_##x - DT_LOPROC + DT_NUM)
 
 /* Return nonzero iff ELF header is compatible with the running host.  */
 static inline int
@@ -32,24 +37,35 @@ elf_machine_matches_host (const Elf32_Ehdr *ehdr)
   return ehdr->e_machine == EM_PPC;
 }
 
+/* Return the value of the GOT pointer.  */
+static inline Elf32_Addr * __attribute__ ((const))
+ppc_got (void)
+{
+  Elf32_Addr *got;
+
+  asm ("bcl 20,31,1f\n"
+       "1:     mflr %0\n"
+       "       addis %0,%0,_GLOBAL_OFFSET_TABLE_-1b@ha\n"
+       "       addi %0,%0,_GLOBAL_OFFSET_TABLE_-1b@l\n"
+       : "=b" (got) : : "lr");
+
+  return got;
+}
 
 /* Return the link-time address of _DYNAMIC, stored as
    the first value in the GOT. */
-static inline Elf32_Addr
+static inline Elf32_Addr __attribute__ ((const))
 elf_machine_dynamic (void)
 {
-  Elf32_Addr *got;
-  asm (" bl _GLOBAL_OFFSET_TABLE_-4@local"
-       : "=l"(got));
-  return *got;
+  return *ppc_got ();
 }
 
 /* Return the run-time load address of the shared object.  */
-static inline Elf32_Addr
+static inline Elf32_Addr __attribute__ ((const))
 elf_machine_load_address (void)
 {
-  unsigned int *got;
-  unsigned int *branchaddr;
+  Elf32_Addr *branchaddr;
+  Elf32_Addr runtime_dynamic;
 
   /* This is much harder than you'd expect.  Possibly I'm missing something.
      The 'obvious' way:
@@ -80,19 +96,17 @@ elf_machine_load_address (void)
      the address ourselves. That gives us the following code: */
 
   /* Get address of the 'b _DYNAMIC@local'...  */
-  asm ("bl 0f ;"
+  asm ("bcl 20,31,0f;"
        "b _DYNAMIC@local;"
        "0:"
-       : "=l"(branchaddr));
-
-  /* ... and the address of the GOT.  */
-  asm (" bl _GLOBAL_OFFSET_TABLE_-4@local"
-       : "=l"(got));
+       : "=l" (branchaddr));
 
   /* 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
-         + ((int)(*branchaddr << 6 & 0xffffff00) >> 6));
+  runtime_dynamic = ((Elf32_Addr) branchaddr
+                    + ((Elf32_Sword) (*branchaddr << 6 & 0xffffff00) >> 6));
+
+  return runtime_dynamic - elf_machine_dynamic ();
 }
 
 #define ELF_MACHINE_BEFORE_RTLD_RELOC(dynamic_info) /* nothing */
@@ -100,160 +114,6 @@ elf_machine_load_address (void)
 /* 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.  */
-#if !defined PROF
-#define ELF_MACHINE_RUNTIME_TRAMPOLINE asm ("\n\
-       .section \".text\"      \n\
-       .align 2        \n\
-       .globl _dl_runtime_resolve      \n\
-       .type _dl_runtime_resolve,@function     \n\
-_dl_runtime_resolve:   \n\
- # We need to save the registers used to pass parameters, and register 0,\n\
- # which is used by _mcount; the registers are saved in a stack frame.\n\
-       stwu 1,-64(1)   \n\
-       stw 0,12(1)     \n\
-       stw 3,16(1)     \n\
-       stw 4,20(1)     \n\
- # The code that calls this has put parameters for `fixup' in r12 and r11.\n\
-       mr 3,12 \n\
-       stw 5,24(1)     \n\
-       mr 4,11 \n\
-       stw 6,28(1)     \n\
-       mflr 0  \n\
- # We also need to save some of the condition register fields.\n\
-       stw 7,32(1)     \n\
-       stw 0,48(1)     \n\
-       stw 8,36(1)     \n\
-       mfcr 0  \n\
-       stw 9,40(1)     \n\
-       stw 10,44(1)    \n\
-       stw 0,8(1)      \n\
-       bl fixup@local  \n\
- # 'fixup' returns the address we want to branch to.\n\
-       mtctr 3 \n\
- # Put the registers back...\n\
-       lwz 0,48(1)     \n\
-       lwz 10,44(1)    \n\
-       lwz 9,40(1)     \n\
-       mtlr 0  \n\
-       lwz 8,36(1)     \n\
-       lwz 0,8(1)      \n\
-       lwz 7,32(1)     \n\
-       lwz 6,28(1)     \n\
-       mtcrf 0xFF,0    \n\
-       lwz 5,24(1)     \n\
-       lwz 4,20(1)     \n\
-       lwz 3,16(1)     \n\
-       lwz 0,12(1)     \n\
- # ...unwind the stack frame, and jump to the PLT entry we updated.\n\
-       addi 1,1,64     \n\
-       bctr    \n\
-       .size    _dl_runtime_resolve,.-_dl_runtime_resolve      \n\
-       \n\
-       .align 2        \n\
-       .globl _dl_prof_resolve \n\
-       .type _dl_prof_resolve,@function        \n\
-_dl_prof_resolve:      \n\
- # We need to save the registers used to pass parameters, and register 0,\n\
- # which is used by _mcount; the registers are saved in a stack frame.\n\
-       stwu 1,-64(1)   \n\
-        stw 0,12(1)    \n\
-       stw 3,16(1)     \n\
-       stw 4,20(1)     \n\
- # The code that calls this has put parameters for `fixup' in r12 and r11.\n\
-       mr 3,12 \n\
-       stw 5,24(1)     \n\
-       mr 4,11 \n\
-       stw 6,28(1)     \n\
-       mflr 5  \n\
- # We also need to save some of the condition register fields.\n\
-       stw 7,32(1)     \n\
-       stw 5,48(1)     \n\
-       stw 8,36(1)     \n\
-       mfcr 0  \n\
-       stw 9,40(1)     \n\
-       stw 10,44(1)    \n\
-       stw 0,8(1)      \n\
-       bl profile_fixup@local  \n\
- # 'fixup' returns the address we want to branch to.\n\
-       mtctr 3 \n\
- # Put the registers back...\n\
-       lwz 0,48(1)     \n\
-       lwz 10,44(1)    \n\
-       lwz 9,40(1)     \n\
-       mtlr 0  \n\
-       lwz 8,36(1)     \n\
-       lwz 0,8(1)      \n\
-       lwz 7,32(1)     \n\
-       lwz 6,28(1)     \n\
-       mtcrf 0xFF,0    \n\
-       lwz 5,24(1)     \n\
-       lwz 4,20(1)     \n\
-       lwz 3,16(1)     \n\
-        lwz 0,12(1)    \n\
- # ...unwind the stack frame, and jump to the PLT entry we updated.\n\
-       addi 1,1,64     \n\
-       bctr    \n\
-       .size    _dl_prof_resolve,.-_dl_prof_resolve    \n\
- # Undo '.section text'.\n\
-       .previous       \n\
-");
-#else
-# define ELF_MACHINE_RUNTIME_TRAMPOLINE asm ("\n\
-       .section \".text\"      \n\
-       .align 2        \n\
-       .globl _dl_runtime_resolve      \n\
-       .globl _dl_prof_resolve \n\
-       .type _dl_runtime_resolve,@function     \n\
-       .type _dl_prof_resolve,@function        \n\
-_dl_runtime_resolve:   \n\
-_dl_prof_resolve:      \n\
- # We need to save the registers used to pass parameters, and register 0,\n\
- # which is used by _mcount; the registers are saved in a stack frame.\n\
-       stwu 1,-64(1)   \n\
-       stw 0,12(1)     \n\
-       stw 3,16(1)     \n\
-       stw 4,20(1)     \n\
- # The code that calls this has put parameters for `fixup' in r12 and r11.\n\
-       mr 3,12 \n\
-       stw 5,24(1)     \n\
-       mr 4,11 \n\
-       stw 6,28(1)     \n\
-       mflr 0  \n\
- # We also need to save some of the condition register fields.\n\
-       stw 7,32(1)     \n\
-       stw 0,48(1)     \n\
-       stw 8,36(1)     \n\
-       mfcr 0  \n\
-       stw 9,40(1)     \n\
-       stw 10,44(1)    \n\
-       stw 0,8(1)      \n\
-       bl fixup@local  \n\
- # 'fixup' returns the address we want to branch to.\n\
-       mtctr 3 \n\
- # Put the registers back...\n\
-       lwz 0,48(1)     \n\
-       lwz 10,44(1)    \n\
-       lwz 9,40(1)     \n\
-       mtlr 0  \n\
-       lwz 8,36(1)     \n\
-       lwz 0,8(1)      \n\
-       lwz 7,32(1)     \n\
-       lwz 6,28(1)     \n\
-       mtcrf 0xFF,0    \n\
-       lwz 5,24(1)     \n\
-       lwz 4,20(1)     \n\
-       lwz 3,16(1)     \n\
-       lwz 0,12(1)     \n\
- # ...unwind the stack frame, and jump to the PLT entry we updated.\n\
-       addi 1,1,64     \n\
-       bctr    \n\
-       .size    _dl_runtime_resolve,.-_dl_runtime_resolve      \n\
-");
-#endif
-
 /* Mask identifying addresses reserved for the user program,
    where the dynamic linker should not map anything.  */
 #define ELF_MACHINE_USER_ADDRESS_MASK  0xf0000000UL
@@ -271,12 +131,11 @@ __elf_preferred_address(struct link_map *loader, size_t maplength,
 
 /* ELF_RTYPE_CLASS_PLT iff TYPE describes relocation of a PLT entry, so
    PLT entries should not be allowed to define the value.
-   ELF_RTYPE_CLASS_NOCOPY iff TYPE should not be allowed to resolve to one
+   ELF_RTYPE_CLASS_COPY iff TYPE should not be allowed to resolve to one
    of the main executable's symbols, as for a COPY reloc.  */
 /* 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.  */
-#if defined USE_TLS && (!defined RTLD_BOOTSTRAP || USE___THREAD)
 #define elf_machine_type_class(type)                   \
   ((((type) == R_PPC_JMP_SLOT                          \
     || (type) == R_PPC_REL24                           \
@@ -284,40 +143,108 @@ __elf_preferred_address(struct link_map *loader, size_t maplength,
        && (type) <= R_PPC_DTPREL32)                    \
     || (type) == R_PPC_ADDR24) * ELF_RTYPE_CLASS_PLT)  \
    | (((type) == R_PPC_COPY) * ELF_RTYPE_CLASS_COPY))
-#else
-#define elf_machine_type_class(type) \
-  ((((type) == R_PPC_JMP_SLOT                          \
-    || (type) == R_PPC_REL24                           \
-    || (type) == R_PPC_ADDR24) * ELF_RTYPE_CLASS_PLT)  \
-   | (((type) == R_PPC_COPY) * ELF_RTYPE_CLASS_COPY))
-#endif
 
 /* A reloc type used for ld.so cmdline arg lookups to reject PLT entries.  */
 #define ELF_MACHINE_JMP_SLOT   R_PPC_JMP_SLOT
 
 /* The PowerPC never uses REL relocations.  */
 #define ELF_MACHINE_NO_REL 1
+#define ELF_MACHINE_NO_RELA 0
 
-/* Set up the loaded object described by L so its unrelocated PLT
+/* We define an initialization function to initialize HWCAP/HWCAP2 and
+   platform data so it can be copied into the TCB later.  This is called
+   very early in _dl_sysdep_start for dynamically linked binaries.  */
+#ifdef SHARED
+# define DL_PLATFORM_INIT dl_platform_init ()
+
+static inline void __attribute__ ((unused))
+dl_platform_init (void)
+{
+  __tcb_parse_hwcap_and_convert_at_platform ();
+}
+#endif
+
+/* Set up the loaded object described by MAP 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.  */
 extern int __elf_machine_runtime_setup (struct link_map *map,
                                        int lazy, int profile);
-#define elf_machine_runtime_setup __elf_machine_runtime_setup
+
+static inline int
+elf_machine_runtime_setup (struct link_map *map,
+                          int lazy, int profile)
+{
+  if (map->l_info[DT_JMPREL] == 0)
+    return lazy;
+
+  if (map->l_info[DT_PPC(GOT)] == 0)
+    /* Handle old style PLT.  */
+    return __elf_machine_runtime_setup (map, lazy, profile);
+
+  /* New style non-exec PLT consisting of an array of addresses.  */
+  map->l_info[DT_PPC(GOT)]->d_un.d_ptr += map->l_addr;
+  if (lazy)
+    {
+      Elf32_Addr *plt, *got, glink;
+      Elf32_Word num_plt_entries;
+      void (*dlrr) (void);
+      extern void _dl_runtime_resolve (void);
+      extern void _dl_prof_resolve (void);
+
+      if (__glibc_likely (!profile))
+       dlrr = _dl_runtime_resolve;
+      else
+       {
+         if (GLRO(dl_profile) != NULL
+             &&_dl_name_match_p (GLRO(dl_profile), map))
+           GL(dl_profile_map) = map;
+         dlrr = _dl_prof_resolve;
+       }
+      got = (Elf32_Addr *) map->l_info[DT_PPC(GOT)]->d_un.d_ptr;
+      glink = got[1];
+      got[1] = (Elf32_Addr) dlrr;
+      got[2] = (Elf32_Addr) map;
+
+      /* Relocate everything in .plt by the load address offset.  */
+      plt = (Elf32_Addr *) D_PTR (map, l_info[DT_PLTGOT]);
+      num_plt_entries = (map->l_info[DT_PLTRELSZ]->d_un.d_val
+                        / sizeof (Elf32_Rela));
+
+      /* If a library is prelinked but we have to relocate anyway,
+        we have to be able to undo the prelinking of .plt section.
+        The prelinker saved us at got[1] address of .glink
+        section's start.  */
+      if (glink)
+       {
+         glink += map->l_addr;
+         while (num_plt_entries-- != 0)
+           *plt++ = glink, glink += 4;
+       }
+      else
+       while (num_plt_entries-- != 0)
+         *plt++ += map->l_addr;
+    }
+  return lazy;
+}
 
 /* Change the PLT entry whose reloc is 'reloc' to call the actual routine.  */
 extern Elf32_Addr __elf_machine_fixup_plt (struct link_map *map,
-                                          const Elf32_Rela *reloc,
                                           Elf32_Addr *reloc_addr,
                                           Elf32_Addr finaladdr);
 
 static inline Elf32_Addr
 elf_machine_fixup_plt (struct link_map *map, lookup_t t,
+                      const ElfW(Sym) *refsym, const ElfW(Sym) *sym,
                       const Elf32_Rela *reloc,
                       Elf32_Addr *reloc_addr, Elf64_Addr finaladdr)
 {
-  return __elf_machine_fixup_plt (map, reloc, reloc_addr, finaladdr);
+  if (map->l_info[DT_PPC(GOT)] == 0)
+    /* Handle old style PLT.  */
+    return __elf_machine_fixup_plt (map, reloc_addr, finaladdr);
+
+  *reloc_addr = finaladdr;
+  return finaladdr;
 }
 
 /* Return the final value of a plt relocation.  */
@@ -328,60 +255,81 @@ elf_machine_plt_value (struct link_map *map, const Elf32_Rela *reloc,
   return value + reloc->r_addend;
 }
 
+
+/* Names of the architecture-specific auditing callback functions.  */
+#define ARCH_LA_PLTENTER ppc32_gnu_pltenter
+#define ARCH_LA_PLTEXIT ppc32_gnu_pltexit
+
 #endif /* dl_machine_h */
 
-#ifdef RESOLVE
+#ifdef RESOLVE_MAP
 
 /* Do the actual processing of a reloc, once its target address
    has been determined.  */
 extern void __process_machine_rela (struct link_map *map,
                                    const Elf32_Rela *reloc,
+                                   struct link_map *sym_map,
                                    const Elf32_Sym *sym,
                                    const Elf32_Sym *refsym,
                                    Elf32_Addr *const reloc_addr,
                                    Elf32_Addr finaladdr,
-                                   int rinfo) attribute_hidden;
+                                   int rinfo, bool skip_ifunc)
+  attribute_hidden;
 
 /* Call _dl_signal_error when a resolved value overflows a relocated area.  */
 extern void _dl_reloc_overflow (struct link_map *map,
                                const char *name,
                                Elf32_Addr *const reloc_addr,
-                               const Elf32_Sym *sym,
                                const Elf32_Sym *refsym) attribute_hidden;
 
 /* 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.  */
 
-inline void
+auto inline void __attribute__ ((always_inline))
 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)
+                 void *const reloc_addr_arg, int skip_ifunc)
 {
+  Elf32_Addr *const reloc_addr = reloc_addr_arg;
   const Elf32_Sym *const refsym = sym;
   Elf32_Addr value;
   const int r_type = ELF32_R_TYPE (reloc->r_info);
+  struct link_map *sym_map = NULL;
 
+#ifndef RESOLVE_CONFLICT_FIND_MAP
   if (r_type == R_PPC_RELATIVE)
     {
       *reloc_addr = map->l_addr + reloc->r_addend;
       return;
     }
 
-  if (__builtin_expect (r_type == R_PPC_NONE, 0))
+  if (__glibc_unlikely (r_type == R_PPC_NONE))
     return;
 
-#if defined USE_TLS && !defined RTLD_BOOTSTRAP
-  struct link_map *sym_map = RESOLVE_MAP (&sym, version, r_type);
-  value = sym == NULL ? 0 : sym_map->l_addr + sym->st_value;
+  /* binutils on ppc32 includes st_value in r_addend for relocations
+     against local symbols.  */
+  if (__builtin_expect (ELF32_ST_BIND (sym->st_info) == STB_LOCAL, 0)
+      && sym->st_shndx != SHN_UNDEF)
+    {
+      sym_map = map;
+      value = map->l_addr;
+    }
+  else
+    {
+      sym_map = RESOLVE_MAP (&sym, version, r_type);
+      value = SYMBOL_ADDRESS (sym_map, sym, true);
+    }
+  value += reloc->r_addend;
 #else
-  value = RESOLVE (&sym, version, r_type);
-# ifndef RTLD_BOOTSTRAP
-  if (sym != NULL)
-# endif
-    value += sym->st_value;
+  value = reloc->r_addend;
 #endif
-  value += reloc->r_addend;
+
+  if (sym != NULL
+      && __builtin_expect (ELFW(ST_TYPE) (sym->st_info) == STT_GNU_IFUNC, 0)
+      && __builtin_expect (sym->st_shndx != SHN_UNDEF, 1)
+      && __builtin_expect (!skip_ifunc, 1))
+    value = elf_ifunc_invoke (value);
 
   /* A small amount of code is duplicated here for speed.  In libc,
      more than 90% of the relocs are R_PPC_RELATIVE; in the X11 shared
@@ -396,101 +344,117 @@ elf_machine_rela (struct link_map *map, const Elf32_Rela *reloc,
       *reloc_addr = value;
       break;
 
-#if defined USE_TLS && (!defined RTLD_BOOTSTRAP || USE___THREAD)
-    case R_PPC_DTPMOD32:
-# ifdef RTLD_BOOTSTRAP
-      /* During startup the dynamic linker is always index 1.  */
-      *reloc_addr = 1;
-# else
-      /* Get the information from the link map returned by the
-        RESOLVE_MAP function.  */
-      if (sym_map != NULL)
-       *reloc_addr = sym_map->l_tls_modid;
-# endif
-      break;
-
+#ifndef RESOLVE_CONFLICT_FIND_MAP
 # ifdef RTLD_BOOTSTRAP
 #  define NOT_BOOTSTRAP 0
 # else
 #  define NOT_BOOTSTRAP 1
 # endif
-# define DO_TLS_RELOC(suffix)                                                \
-    case R_PPC_DTPREL##suffix:                                               \
-      /* During relocation all TLS symbols are defined and used.             \
-        Therefore the offset is already correct.  */                         \
-      if (NOT_BOOTSTRAP)                                                     \
-       do_reloc##suffix ("R_PPC_DTPREL"#suffix,                              \
-                         TLS_DTPREL_VALUE (sym, reloc));                     \
-      break;                                                                 \
-    case R_PPC_TPREL##suffix:                                                \
-      if (!NOT_BOOTSTRAP || sym_map)                                         \
-       {                                                                     \
-         if (NOT_BOOTSTRAP)                                                  \
-           CHECK_STATIC_TLS (map, sym_map);                                  \
-         do_reloc##suffix ("R_PPC_TPREL"#suffix,                             \
-                           TLS_TPREL_VALUE (sym_map, sym, reloc));           \
-       }                                                                     \
-      break;
 
-      inline void do_reloc32 (const char *r_name, Elf32_Addr value)
+    case R_PPC_DTPMOD32:
+      if (map->l_info[DT_PPC(OPT)]
+         && (map->l_info[DT_PPC(OPT)]->d_un.d_val & PPC_OPT_TLS))
        {
-         *reloc_addr = value;
+         if (!NOT_BOOTSTRAP)
+           {
+             reloc_addr[0] = 0;
+             reloc_addr[1] = (sym_map->l_tls_offset - TLS_TP_OFFSET
+                              + TLS_DTV_OFFSET);
+             break;
+           }
+         else if (sym_map != NULL)
+           {
+# ifndef SHARED
+             CHECK_STATIC_TLS (map, sym_map);
+# else
+             if (TRY_STATIC_TLS (map, sym_map))
+# endif
+               {
+                 reloc_addr[0] = 0;
+                 /* Set up for local dynamic.  */
+                 reloc_addr[1] = (sym_map->l_tls_offset - TLS_TP_OFFSET
+                                  + TLS_DTV_OFFSET);
+                 break;
+               }
+           }
        }
-    DO_TLS_RELOC (32)
-# ifndef RTLD_BOOTSTRAP                /* PIC code like ld.so doesn't use these.  */
-    inline void do_reloc16 (const char *r_name, Elf32_Addr value)
-      {
-       if (__builtin_expect (value > 0x7fff && value < 0xffff8000, 0))
-         _dl_reloc_overflow (map,  "R_PPC_ADDR16", reloc_addr, sym, refsym);
-       *(Elf32_Half *) reloc_addr = value;
-      }
-    inline void do_reloc16_LO (const char *r_name, Elf32_Addr value)
-      {
-       *(Elf32_Half *) reloc_addr = value;
-      }
-    inline void do_reloc16_HI (const char *r_name, Elf32_Addr value)
-      {
-       *(Elf32_Half *) reloc_addr = value >> 16;
-      }
-    inline void do_reloc16_HA (const char *r_name, Elf32_Addr value)
-      {
-       *(Elf32_Half *) reloc_addr = (value + 0x8000) >> 16;
-      }
-    DO_TLS_RELOC (16)
-    DO_TLS_RELOC (16_LO)
-    DO_TLS_RELOC (16_HI)
-    DO_TLS_RELOC (16_HA)
+      if (!NOT_BOOTSTRAP)
+       /* During startup the dynamic linker is always index 1.  */
+       *reloc_addr = 1;
+      else if (sym_map != NULL)
+       /* Get the information from the link map returned by the
+          RESOLVE_MAP function.  */
+       *reloc_addr = sym_map->l_tls_modid;
+      break;
+    case R_PPC_DTPREL32:
+      if (map->l_info[DT_PPC(OPT)]
+         && (map->l_info[DT_PPC(OPT)]->d_un.d_val & PPC_OPT_TLS))
+       {
+         if (!NOT_BOOTSTRAP)
+           {
+             *reloc_addr = TLS_TPREL_VALUE (sym_map, sym, reloc);
+             break;
+           }
+         else if (sym_map != NULL)
+           {
+             /* This reloc is always preceded by R_PPC_DTPMOD32.  */
+# ifndef SHARED
+             assert (HAVE_STATIC_TLS (map, sym_map));
+# else
+             if (HAVE_STATIC_TLS (map, sym_map))
 # endif
-#endif /* USE_TLS etc. */
+               {
+                 *reloc_addr = TLS_TPREL_VALUE (sym_map, sym, reloc);
+                 break;
+               }
+           }
+       }
+      /* During relocation all TLS symbols are defined and used.
+        Therefore the offset is already correct.  */
+      if (NOT_BOOTSTRAP && sym_map != NULL)
+       *reloc_addr = TLS_DTPREL_VALUE (sym, reloc);
+      break;
+    case R_PPC_TPREL32:
+      if (!NOT_BOOTSTRAP || sym_map != NULL)
+       {
+         if (NOT_BOOTSTRAP)
+           CHECK_STATIC_TLS (map, sym_map);
+         *reloc_addr = TLS_TPREL_VALUE (sym_map, sym, reloc);
+       }
+      break;
+#endif
 
-#ifdef RESOLVE_CONFLICT_FIND_MAP
     case R_PPC_JMP_SLOT:
+#ifdef RESOLVE_CONFLICT_FIND_MAP
       RESOLVE_CONFLICT_FIND_MAP (map, reloc_addr);
-      /* FALLTHROUGH */
 #endif
+      if (map->l_info[DT_PPC(GOT)] != 0)
+       {
+         *reloc_addr = value;
+         break;
+       }
+      /* FALLTHROUGH */
 
     default:
-      __process_machine_rela (map, reloc, sym, refsym,
-                             reloc_addr, value, r_type);
+      __process_machine_rela (map, reloc, sym_map, sym, refsym,
+                             reloc_addr, value, r_type, skip_ifunc);
     }
 }
 
-static inline void
+auto inline void __attribute__ ((always_inline))
 elf_machine_rela_relative (Elf32_Addr l_addr, const Elf32_Rela *reloc,
-                          Elf32_Addr *const reloc_addr)
+                          void *const reloc_addr_arg)
 {
+  Elf32_Addr *const reloc_addr = reloc_addr_arg;
   *reloc_addr = l_addr + reloc->r_addend;
 }
 
-static inline void
+auto inline void __attribute__ ((always_inline))
 elf_machine_lazy_rel (struct link_map *map,
-                     Elf32_Addr l_addr, const Elf32_Rela *reloc)
+                     Elf32_Addr l_addr, const Elf32_Rela *reloc,
+                     int skip_ifunc)
 {
   /* elf_machine_runtime_setup handles this. */
 }
 
-/* The SVR4 ABI specifies that the JMPREL relocs must be inside the
-   DT_RELA table.  */
-#define ELF_MACHINE_PLTREL_OVERLAP 1
-
-#endif /* RESOLVE */
+#endif /* RESOLVE_MAP */