OSDN Git Service

* elf-bfd.h (elf_backend_reloc_type_class): Pass in the entire
[pf3gnuchains/pf3gnuchains4x.git] / bfd / elf32-cris.c
index e57202b..aca0852 100644 (file)
@@ -85,6 +85,8 @@ static boolean elf_cris_finish_dynamic_sections
   PARAMS ((bfd *, struct bfd_link_info *));
 static void elf_cris_hide_symbol
   PARAMS ((struct bfd_link_info *, struct elf_link_hash_entry *));
+static enum elf_reloc_type_class elf_cris_reloc_type_class
+  PARAMS ((const Elf_Internal_Rela *));
 
 static reloc_howto_type cris_elf_howto_table [] =
 {
@@ -635,9 +637,9 @@ elf_cris_link_hash_table_create (abfd)
      bfd *abfd;
 {
   struct elf_cris_link_hash_table *ret;
+  bfd_size_type amt = sizeof (struct elf_cris_link_hash_table);
 
-  ret = ((struct elf_cris_link_hash_table *)
-        bfd_alloc (abfd, sizeof (struct elf_cris_link_hash_table)));
+  ret = ((struct elf_cris_link_hash_table *) bfd_alloc (abfd, amt));
   if (ret == (struct elf_cris_link_hash_table *) NULL)
     return NULL;
 
@@ -756,7 +758,7 @@ cris_elf_relocate_section (output_bfd, info, input_bfd, input_section,
       struct elf_link_hash_entry * h;
       bfd_vma                      relocation;
       bfd_reloc_status_type        r;
-      const char *                 name = NULL;
+      const char *                 symname = NULL;
       int                          r_type;
 
       r_type = ELF32_R_TYPE (rel->r_info);
@@ -801,9 +803,10 @@ cris_elf_relocate_section (output_bfd, info, input_bfd, input_section,
                        + sec->output_offset
                        + sym->st_value);
 
-         name = bfd_elf_string_from_elf_section
-           (input_bfd, symtab_hdr->sh_link, sym->st_name);
-         name = (name == NULL) ? bfd_section_name (input_bfd, sec) : name;
+         symname = (bfd_elf_string_from_elf_section
+                    (input_bfd, symtab_hdr->sh_link, sym->st_name));
+         if (symname == NULL)
+           symname = bfd_section_name (input_bfd, sec);
        }
       else
        {
@@ -813,7 +816,7 @@ cris_elf_relocate_section (output_bfd, info, input_bfd, input_section,
                 || h->root.type == bfd_link_hash_warning)
            h = (struct elf_link_hash_entry *) h->root.u.i.link;
 
-         name = h->root.root.string;
+         symname = h->root.root.string;
 
          if (h->root.type == bfd_link_hash_defined
              || h->root.type == bfd_link_hash_defweak)
@@ -873,21 +876,12 @@ cris_elf_relocate_section (output_bfd, info, input_bfd, input_section,
                              + sec->output_offset);
              else
                {
-                 if (input_bfd->my_archive)
-                   (*_bfd_error_handler)
-                     (_("%s(%s): unresolvable relocation %s against symbol `%s' from %s section"),
-                      bfd_get_filename (bfd_my_archive (input_bfd)),
-                      bfd_get_filename (input_bfd),
-                      cris_elf_howto_table[r_type].name,
-                      name,
-                      bfd_get_section_name (input_bfd, input_section));
-                 else
-                   (*_bfd_error_handler)
-                     (_("%s: unresolvable relocation %s against symbol `%s' from %s section"),
-                      bfd_get_filename (input_bfd),
-                      cris_elf_howto_table[r_type].name,
-                      name,
-                      bfd_get_section_name (input_bfd, input_section));
+                 (*_bfd_error_handler)
+                   (_("%s: unresolvable relocation %s against symbol `%s' from %s section"),
+                    bfd_archive_filename (input_bfd),
+                    cris_elf_howto_table[r_type].name,
+                    symname,
+                    bfd_get_section_name (input_bfd, input_section));
                  bfd_set_error (bfd_error_bad_value);
                  return false;
                }
@@ -895,14 +889,14 @@ cris_elf_relocate_section (output_bfd, info, input_bfd, input_section,
          else if (h->root.type == bfd_link_hash_undefweak)
            relocation = 0;
          else if (info->shared
-                  && !info->symbolic
+                  && (!info->symbolic || info->allow_shlib_undefined)
                   && !info->no_undefined
                   && ELF_ST_VISIBILITY (h->other) == STV_DEFAULT)
            relocation = 0;
          else
            {
              if (!(info->callbacks->undefined_symbol
-                   (info, name, input_bfd,
+                   (info, symname, input_bfd,
                     input_section, rel->r_offset,
                     (!info->shared || info->no_undefined
                      || ELF_ST_VISIBILITY (h->other)))))
@@ -947,9 +941,9 @@ cris_elf_relocate_section (output_bfd, info, input_bfd, input_section,
            {
              (*_bfd_error_handler)
                (_("%s: No PLT nor GOT for relocation %s against symbol `%s' from %s section"),
-                bfd_get_filename (input_bfd),
+                bfd_archive_filename (input_bfd),
                 cris_elf_howto_table[r_type].name,
-                name[0] != '\0' ? name : _("[whose name is lost]"),
+                symname[0] != '\0' ? symname : _("[whose name is lost]"),
                 bfd_get_section_name (input_bfd, input_section));
 
              /* FIXME: Perhaps blaming input is not the right thing to
@@ -1066,17 +1060,17 @@ cris_elf_relocate_section (output_bfd, info, input_bfd, input_section,
                if (h == NULL)
                  (*_bfd_error_handler)
                    (_("%s: relocation %s with non-zero addend %d against local symbol from %s section"),
-                    bfd_get_filename (input_bfd),
+                    bfd_archive_filename (input_bfd),
                     cris_elf_howto_table[r_type].name,
                     rel->r_addend,
                     bfd_get_section_name (input_bfd, input_section));
                else
                  (*_bfd_error_handler)
                    (_("%s: relocation %s with non-zero addend %d against symbol `%s' from %s section"),
-                    bfd_get_filename (input_bfd),
+                    bfd_archive_filename (input_bfd),
                     cris_elf_howto_table[r_type].name,
                     rel->r_addend,
-                    name[0] != '\0' ? name : _("[whose name is lost]"),
+                    symname[0] != '\0' ? symname : _("[whose name is lost]"),
                     bfd_get_section_name (input_bfd, input_section));
 
                bfd_set_error (bfd_error_bad_value);
@@ -1091,9 +1085,9 @@ cris_elf_relocate_section (output_bfd, info, input_bfd, input_section,
            {
              (*_bfd_error_handler)
                (_("%s: relocation %s is not allowed for global symbol: `%s' from %s section"),
-                bfd_get_filename (input_bfd),
+                bfd_archive_filename (input_bfd),
                 cris_elf_howto_table[r_type].name,
-                name,
+                symname,
                 bfd_get_section_name (input_bfd, input_section));
              bfd_set_error (bfd_error_bad_value);
              return false;
@@ -1209,7 +1203,7 @@ cris_elf_relocate_section (output_bfd, info, input_bfd, input_section,
                    {
                      (*_bfd_error_handler)
                        (_("%s: Internal inconsistency; no relocation section %s"),
-                        bfd_get_filename (input_bfd),
+                        bfd_archive_filename (input_bfd),
                         name);
 
                      bfd_set_error (bfd_error_bad_value);
@@ -1325,13 +1319,13 @@ cris_elf_relocate_section (output_bfd, info, input_bfd, input_section,
            {
            case bfd_reloc_overflow:
              r = info->callbacks->reloc_overflow
-               (info, name, howto->name, (bfd_vma) 0,
+               (info, symname, howto->name, (bfd_vma) 0,
                 input_bfd, input_section, rel->r_offset);
              break;
 
            case bfd_reloc_undefined:
              r = info->callbacks->undefined_symbol
-               (info, name, input_bfd, input_section, rel->r_offset,
+               (info, symname, input_bfd, input_section, rel->r_offset,
                 true);
              break;
 
@@ -1354,7 +1348,7 @@ cris_elf_relocate_section (output_bfd, info, input_bfd, input_section,
 
          if (msg)
            r = info->callbacks->warning
-             (info, msg, name, input_bfd, input_section, rel->r_offset);
+             (info, msg, symname, input_bfd, input_section, rel->r_offset);
 
          if (! r)
            return false;
@@ -1503,6 +1497,7 @@ elf_cris_finish_dynamic_symbol (output_bfd, info, h, sym)
       asection *sgot;
       asection *srela;
       Elf_Internal_Rela rela;
+      bfd_byte *where;
 
       /* This symbol has an entry in the global offset table.  Set it up.  */
 
@@ -1512,27 +1507,25 @@ elf_cris_finish_dynamic_symbol (output_bfd, info, h, sym)
 
       rela.r_offset = (sgot->output_section->vma
                       + sgot->output_offset
-                      + (h->got.offset &~ 1));
+                      + (h->got.offset &~ (bfd_vma) 1));
 
       /* If this is a static link, or it is a -Bsymbolic link and the
         symbol is defined locally or was forced to be local because
         of a version file, we just want to emit a RELATIVE reloc.
         The entry in the global offset table will already have been
         initialized in the relocate_section function.  */
+      where = sgot->contents + (h->got.offset &~ (bfd_vma) 1);
       if (! elf_hash_table (info)->dynamic_sections_created
          || (info->shared
              && (info->symbolic || h->dynindx == -1)
              && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR)))
        {
          rela.r_info = ELF32_R_INFO (0, R_CRIS_RELATIVE);
-         rela.r_addend = bfd_get_signed_32 (output_bfd,
-                                            (sgot->contents
-                                             + (h->got.offset & ~1)));
+         rela.r_addend = bfd_get_signed_32 (output_bfd, where);
        }
       else
        {
-         bfd_put_32 (output_bfd, (bfd_vma) 0,
-                     sgot->contents + (h->got.offset & ~1));
+         bfd_put_32 (output_bfd, (bfd_vma) 0, where);
          rela.r_info = ELF32_R_INFO (h->dynindx, R_CRIS_GLOB_DAT);
          rela.r_addend = 0;
        }
@@ -2315,17 +2308,17 @@ cris_elf_check_relocs (abfd, info, sec, relocs)
 
          if (local_got_refcounts == NULL)
            {
-             size_t size;
+             bfd_size_type amt;
 
              /* We use index local_got_refcounts[-1] to count all
                 GOT-relative relocations that do not have explicit
                 GOT entries.  */
-             size = (symtab_hdr->sh_info + 1) * sizeof (bfd_signed_vma);
-             local_got_refcounts = ((bfd_signed_vma *)
-                                    bfd_alloc (abfd, size));
+             amt = symtab_hdr->sh_info + 1;
+             amt *= sizeof (bfd_signed_vma);
+             local_got_refcounts = ((bfd_signed_vma *) bfd_alloc (abfd, amt));
              if (local_got_refcounts == NULL)
                return false;
-             memset (local_got_refcounts, -1, size);
+             memset (local_got_refcounts, -1, (size_t) amt);
 
              local_got_refcounts++;
              elf_local_got_refcounts (abfd) = local_got_refcounts;
@@ -2468,19 +2461,11 @@ cris_elf_check_relocs (abfd, info, sec, relocs)
              && (sec->flags & SEC_READONLY) != 0)
            {
              /* FIXME: How do we make this optionally a warning only?  */
-             if (abfd->my_archive)
-               (*_bfd_error_handler)
-                 (_("%s(%s), section %s:\n  relocation %s should not be used in a shared object; recompile with -fPIC"),
-                  bfd_get_filename (bfd_my_archive (abfd)),
-                  bfd_get_filename (abfd),
-                  sec->name,
-                  cris_elf_howto_table[r_type].name);
-             else
-               (*_bfd_error_handler)
-                 (_("%s, section %s:\n  relocation %s should not be used in a shared object; recompile with -fPIC"),
-                  bfd_get_filename (abfd),
-                  sec->name,
-                  cris_elf_howto_table[r_type].name);
+             (*_bfd_error_handler)
+               (_("%s, section %s:\n  relocation %s should not be used in a shared object; recompile with -fPIC"),
+                bfd_archive_filename (abfd),
+                sec->name,
+                cris_elf_howto_table[r_type].name);
            }
          /* Fall through.  */
 
@@ -2575,6 +2560,8 @@ cris_elf_check_relocs (abfd, info, sec, relocs)
                      || !bfd_set_section_alignment (dynobj, sreloc, 2))
                    return false;
                }
+             if (sec->flags & SEC_READONLY)
+               info->flags |= DF_TEXTREL;
            }
 
          sreloc->_raw_size += sizeof (Elf32_External_Rela);
@@ -2601,7 +2588,7 @@ cris_elf_check_relocs (abfd, info, sec, relocs)
              if (p == NULL)
                {
                  p = ((struct elf_cris_pcrel_relocs_copied *)
-                      bfd_alloc (dynobj, sizeof *p));
+                      bfd_alloc (dynobj, (bfd_size_type) sizeof *p));
                  if (p == NULL)
                    return false;
                  p->next = eh->pcrel_relocs_copied;
@@ -2642,14 +2629,13 @@ cris_elf_check_relocs (abfd, info, sec, relocs)
 
 static boolean
 elf_cris_size_dynamic_sections (output_bfd, info)
-     bfd *output_bfd;
+     bfd *output_bfd ATTRIBUTE_UNUSED;
      struct bfd_link_info *info;
 {
   bfd *dynobj;
   asection *s;
   boolean plt;
   boolean relocs;
-  boolean reltext;
 
   dynobj = elf_hash_table (info)->dynobj;
   BFD_ASSERT (dynobj != NULL);
@@ -2703,7 +2689,6 @@ elf_cris_size_dynamic_sections (output_bfd, info)
      memory for them.  */
   plt = false;
   relocs = false;
-  reltext = false;
   for (s = dynobj->sections; s != NULL; s = s->next)
     {
       const char *name;
@@ -2749,41 +2734,11 @@ elf_cris_size_dynamic_sections (output_bfd, info)
            }
          else
            {
-             asection *target;
-
              /* Remember whether there are any reloc sections other
                  than .rela.plt.  */
              if (strcmp (name, ".rela.plt") != 0)
-               {
-                 const char *outname;
-
                  relocs = true;
 
-                 /* If this relocation section applies to a read only
-                    section, then we probably need a DT_TEXTREL entry.
-                    The entries in the .rela.plt section are actually
-                    associated with .got.plt, which we created ourselves
-                    and so know is not readonly.  */
-                 outname = bfd_get_section_name (output_bfd,
-                                                 s->output_section);
-                 target
-                   = bfd_get_section_by_name (output_bfd,
-                                              outname + strlen (".rela"));
-
-                 /* We have to test the .text section by name, becase for
-                    some reason it does not have SEC_READONLY set at this
-                    time.  That flag is actually set in ldmain.c:main
-                    specifically for ".text" at a time long after this
-                    function is called.  FIXME: This might be due to a
-                    general bug.  FIXME: Have testcase for this.  */
-                 if (target != NULL
-                     && (target->flags & SEC_ALLOC) != 0
-                     && ((target->flags & SEC_READONLY) != 0
-                         || strcmp (outname + strlen (".rela"),
-                                    ".text") == 0))
-                   reltext = true;
-               }
-
              /* We use the reloc_count field as a counter if we need
                 to copy relocs into the output file.  */
              s->reloc_count = 0;
@@ -2818,37 +2773,40 @@ elf_cris_size_dynamic_sections (output_bfd, info)
         must add the entries now so that we get the correct size for
         the .dynamic section.  The DT_DEBUG entry is filled in by the
         dynamic linker and used by the debugger.  */
+#define add_dynamic_entry(TAG, VAL) \
+  bfd_elf32_add_dynamic_entry (info, (bfd_vma) (TAG), (bfd_vma) (VAL))
+
       if (!info->shared)
        {
-         if (!bfd_elf32_add_dynamic_entry (info, DT_DEBUG, 0))
+         if (!add_dynamic_entry (DT_DEBUG, 0))
            return false;
        }
 
       if (plt)
        {
-         if (!bfd_elf32_add_dynamic_entry (info, DT_PLTGOT, 0)
-             || !bfd_elf32_add_dynamic_entry (info, DT_PLTRELSZ, 0)
-             || !bfd_elf32_add_dynamic_entry (info, DT_PLTREL, DT_RELA)
-             || !bfd_elf32_add_dynamic_entry (info, DT_JMPREL, 0))
+         if (!add_dynamic_entry (DT_PLTGOT, 0)
+             || !add_dynamic_entry (DT_PLTRELSZ, 0)
+             || !add_dynamic_entry (DT_PLTREL, DT_RELA)
+             || !add_dynamic_entry (DT_JMPREL, 0))
            return false;
        }
 
       if (relocs)
        {
-         if (!bfd_elf32_add_dynamic_entry (info, DT_RELA, 0)
-             || !bfd_elf32_add_dynamic_entry (info, DT_RELASZ, 0)
-             || !bfd_elf32_add_dynamic_entry (info, DT_RELAENT,
-                                              sizeof (Elf32_External_Rela)))
+         if (!add_dynamic_entry (DT_RELA, 0)
+             || !add_dynamic_entry (DT_RELASZ, 0)
+             || !add_dynamic_entry (DT_RELAENT, sizeof (Elf32_External_Rela)))
            return false;
        }
 
-      if (reltext)
+      if ((info->flags & DF_TEXTREL) != 0)
        {
-         if (!bfd_elf32_add_dynamic_entry (info, DT_TEXTREL, 0))
+         if (!add_dynamic_entry (DT_TEXTREL, 0))
            return false;
          info->flags |= DF_TEXTREL;
        }
     }
+#undef add_dynamic_entry
 
   return true;
 }
@@ -3013,13 +2971,31 @@ cris_elf_merge_private_bfd_data (ibfd, obfd)
        ((new_flags & EF_CRIS_UNDERSCORE)
         ? _("%s: uses _-prefixed symbols, but writing file with non-prefixed symbols")
         : _("%s: uses non-prefixed symbols, but writing file with _-prefixed symbols"),
-        bfd_get_filename (ibfd));
+        bfd_archive_filename (ibfd));
       bfd_set_error (bfd_error_bad_value);
       return false;
     }
 
   return true;
 }
+
+
+static enum elf_reloc_type_class
+elf_cris_reloc_type_class (rela)
+     const Elf_Internal_Rela *rela;
+{
+  switch ((int) ELF32_R_TYPE (rela->r_info))
+    {
+    case R_CRIS_RELATIVE:
+      return reloc_class_relative;
+    case R_CRIS_JUMP_SLOT:
+      return reloc_class_plt;
+    case R_CRIS_COPY:
+      return reloc_class_copy;
+    default:
+      return reloc_class_normal;
+    }
+}
 \f
 #define ELF_ARCH               bfd_arch_cris
 #define ELF_MACHINE_CODE       EM_CRIS
@@ -3063,6 +3039,7 @@ cris_elf_merge_private_bfd_data (ibfd, obfd)
 #define bfd_elf32_bfd_final_link \
        _bfd_elf32_gc_common_final_link
 #define elf_backend_hide_symbol                        elf_cris_hide_symbol
+#define elf_backend_reloc_type_class           elf_cris_reloc_type_class
 
 #define elf_backend_want_got_plt       1
 #define elf_backend_plt_readonly       1