backends/ppc_symbol.c

   1 /* PPC specific symbolic name handling.
   2    Copyright (C) 2004, 2005, 2007 Red Hat, Inc.
   3    This file is part of elfutils.
   4    Written by Ulrich Drepper <drepper@redhat.com>, 2004.
   5
   6    This file is free software; you can redistribute it and/or modify
   7    it under the terms of either
   8
   9      * the GNU Lesser General Public License as published by the Free
  10        Software Foundation; either version 3 of the License, or (at
  11        your option) any later version
  12
  13    or
  14
  15      * the GNU General Public License as published by the Free
  16        Software Foundation; either version 2 of the License, or (at
  17        your option) any later version
  18
  19    or both in parallel, as here.
  20
  21    elfutils is distributed in the hope that it will be useful, but
  22    WITHOUT ANY WARRANTY; without even the implied warranty of
  23    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  24    General Public License for more details.
  25
  26    You should have received copies of the GNU General Public License and
  27    the GNU Lesser General Public License along with this program.  If
  28    not, see <http://www.gnu.org/licenses/>.  */
  29
  30 #ifdef HAVE_CONFIG_H
  31 # include <config.h>
  32 #endif
  33
  34 #include <assert.h>
  35 #include <elf.h>
  36 #include <stddef.h>
  37 #include <string.h>
  38
  39 #define BACKEND         ppc_
  40 #include "libebl_CPU.h"
  41
  42
  43 /* Check for the simple reloc types.  */
  44 Elf_Type
  45 ppc_reloc_simple_type (Ebl *ebl __attribute__ ((unused)), int type)
  46 {
  47   switch (type)
  48     {
  49     case R_PPC_ADDR32:
  50     case R_PPC_UADDR32:
  51       return ELF_T_WORD;
  52     case R_PPC_UADDR16:
  53       return ELF_T_HALF;
  54     default:
  55       return ELF_T_NUM;
  56     }
  57 }
  58
  59
  60 const char *
  61 ppc_dynamic_tag_name (int64_t tag, char *buf __attribute__ ((unused)),
  62                       size_t len __attribute__ ((unused)))
  63 {
  64   switch (tag)
  65     {
  66     case DT_PPC_GOT:
  67       return "PPC_GOT";
  68     default:
  69       break;
  70     }
  71   return NULL;
  72 }
  73
  74
  75 bool
  76 ppc_dynamic_tag_check (int64_t tag)
  77 {
  78   return tag == DT_PPC_GOT;
  79 }
  80
  81
  82 /* Look for DT_PPC_GOT.  */
  83 static bool
  84 find_dyn_got (Elf *elf, GElf_Ehdr *ehdr, GElf_Addr *addr)
  85 {
  86   for (int i = 0; i < ehdr->e_phnum; ++i)
  87     {
  88       GElf_Phdr phdr_mem;
  89       GElf_Phdr *phdr = gelf_getphdr (elf, i, &phdr_mem);
  90       if (phdr == NULL || phdr->p_type != PT_DYNAMIC)
  91         continue;
  92
  93       Elf_Scn *scn = gelf_offscn (elf, phdr->p_offset);
  94       GElf_Shdr shdr_mem;
  95       GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
  96       Elf_Data *data = elf_getdata (scn, NULL);
  97       if (shdr != NULL && shdr->sh_type == SHT_DYNAMIC && data != NULL)
  98         for (unsigned int j = 0; j < shdr->sh_size / shdr->sh_entsize; ++j)
  99           {
 100             GElf_Dyn dyn_mem;
 101             GElf_Dyn *dyn = gelf_getdyn (data, j, &dyn_mem);
 102             if (dyn != NULL && dyn->d_tag == DT_PPC_GOT)
 103               {
 104                 *addr = dyn->d_un.d_ptr;
 105                 return true;
 106               }
 107           }
 108
 109       /* There is only one PT_DYNAMIC entry.  */
 110       break;
 111     }
 112
 113   return false;
 114 }
 115
 116
 117 /* Check whether given symbol's st_value and st_size are OK despite failing
 118    normal checks.  */
 119 bool
 120 ppc_check_special_symbol (Elf *elf, GElf_Ehdr *ehdr, const GElf_Sym *sym,
 121                           const char *name, const GElf_Shdr *destshdr)
 122 {
 123   if (name == NULL)
 124     return false;
 125
 126   if (strcmp (name, "_GLOBAL_OFFSET_TABLE_") == 0)
 127     {
 128       /* In -msecure-plt mode, DT_PPC_GOT is present and must match.  */
 129       GElf_Addr gotaddr;
 130       if (find_dyn_got (elf, ehdr, &gotaddr))
 131         return sym->st_value == gotaddr;
 132
 133       /* In -mbss-plt mode, any place in the section is valid.  */
 134       return true;
 135     }
 136
 137   const char *sname = elf_strptr (elf, ehdr->e_shstrndx, destshdr->sh_name);
 138   if (sname == NULL)
 139     return false;
 140
 141   if (strcmp (name, "_SDA_BASE_") == 0)
 142     return (strcmp (sname, ".sdata") == 0
 143             && sym->st_value == destshdr->sh_addr + 0x8000
 144             && sym->st_size == 0);
 145
 146   if (strcmp (name, "_SDA2_BASE_") == 0)
 147     return (strcmp (sname, ".sdata2") == 0
 148             && sym->st_value == destshdr->sh_addr + 0x8000
 149             && sym->st_size == 0);
 150
 151   return false;
 152 }
 153
 154
 155 /* Check if backend uses a bss PLT in this file.  */
 156 bool
 157 ppc_bss_plt_p (Elf *elf, GElf_Ehdr *ehdr)
 158 {
 159   GElf_Addr addr;
 160   return ! find_dyn_got (elf, ehdr, &addr);
 161 }