Back to index

cell-binutils  2.17cvs20070401
Classes | Defines | Functions
elfxx-sparc.h File Reference
#include "elf/common.h"
#include "elf/internal.h"
This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Classes

struct  _bfd_sparc_elf_section_data
struct  _bfd_sparc_elf_app_reg
struct  _bfd_sparc_elf_link_hash_table

Defines

#define sec_do_relax(sec)   ((struct _bfd_sparc_elf_section_data *) elf_section_data (sec))->do_relax
#define canon_reloc_count(sec)   ((struct _bfd_sparc_elf_section_data *) elf_section_data (sec))->reloc_count
#define _bfd_sparc_elf_hash_table(p)   ((struct _bfd_sparc_elf_link_hash_table *) ((p)->hash))

Functions

reloc_howto_type * _bfd_sparc_elf_reloc_type_lookup (bfd *, bfd_reloc_code_real_type)
reloc_howto_type * _bfd_sparc_elf_reloc_name_lookup (bfd *, const char *)
void _bfd_sparc_elf_info_to_howto (bfd *, arelent *, Elf_Internal_Rela *)
reloc_howto_type * _bfd_sparc_elf_info_to_howto_ptr (unsigned int)
bfd_boolean _bfd_sparc_elf_mkobject (bfd *)
struct bfd_link_hash_table_bfd_sparc_elf_link_hash_table_create (bfd *)
bfd_boolean _bfd_sparc_elf_create_dynamic_sections (bfd *, struct bfd_link_info *)
void _bfd_sparc_elf_copy_indirect_symbol (struct bfd_link_info *, struct elf_link_hash_entry *, struct elf_link_hash_entry *)
bfd_boolean _bfd_sparc_elf_check_relocs (bfd *, struct bfd_link_info *, asection *, const Elf_Internal_Rela *)
asection_bfd_sparc_elf_gc_mark_hook (asection *, struct bfd_link_info *, Elf_Internal_Rela *, struct elf_link_hash_entry *, Elf_Internal_Sym *)
bfd_boolean _bfd_sparc_elf_gc_sweep_hook (bfd *, struct bfd_link_info *, asection *, const Elf_Internal_Rela *)
bfd_boolean _bfd_sparc_elf_adjust_dynamic_symbol (struct bfd_link_info *, struct elf_link_hash_entry *)
bfd_boolean _bfd_sparc_elf_omit_section_dynsym (bfd *, struct bfd_link_info *, asection *)
bfd_boolean _bfd_sparc_elf_size_dynamic_sections (bfd *, struct bfd_link_info *)
bfd_boolean _bfd_sparc_elf_new_section_hook (bfd *, asection *)
bfd_boolean _bfd_sparc_elf_relax_section (bfd *, struct bfd_section *, struct bfd_link_info *, bfd_boolean *)
bfd_boolean _bfd_sparc_elf_relocate_section (bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *, Elf_Internal_Rela *, Elf_Internal_Sym *, asection **)
bfd_boolean _bfd_sparc_elf_finish_dynamic_symbol (bfd *, struct bfd_link_info *, struct elf_link_hash_entry *, Elf_Internal_Sym *sym)
bfd_boolean _bfd_sparc_elf_finish_dynamic_sections (bfd *, struct bfd_link_info *)
bfd_boolean _bfd_sparc_elf_object_p (bfd *)
bfd_vma _bfd_sparc_elf_plt_sym_val (bfd_vma, const asection *, const arelent *)

Class Documentation

struct _bfd_sparc_elf_section_data

Definition at line 23 of file elfxx-sparc.h.

Class Members
unsigned int do_relax
unsigned int reloc_count
struct _bfd_sparc_elf_app_reg

Definition at line 34 of file elfxx-sparc.h.

Collaboration diagram for _bfd_sparc_elf_app_reg:
Class Members
bfd * abfd
unsigned char bind
char * name
unsigned short shndx
union _bfd_sparc_elf_link_hash_table.tls_ldm_got

Definition at line 56 of file elfxx-sparc.h.

Class Members
bfd_vma offset
bfd_signed_vma refcount

Define Documentation

#define _bfd_sparc_elf_hash_table (   p)    ((struct _bfd_sparc_elf_link_hash_table *) ((p)->hash))

Definition at line 94 of file elfxx-sparc.h.

#define canon_reloc_count (   sec)    ((struct _bfd_sparc_elf_section_data *) elf_section_data (sec))->reloc_count

Definition at line 31 of file elfxx-sparc.h.

#define sec_do_relax (   sec)    ((struct _bfd_sparc_elf_section_data *) elf_section_data (sec))->do_relax

Definition at line 29 of file elfxx-sparc.h.


Function Documentation

Definition at line 1697 of file elfxx-sparc.c.

{
  struct _bfd_sparc_elf_link_hash_table *htab;
  struct _bfd_sparc_elf_link_hash_entry * eh;
  struct _bfd_sparc_elf_dyn_relocs *p;
  asection *s;
  unsigned int power_of_two;

  htab = _bfd_sparc_elf_hash_table (info);

  /* Make sure we know what is going on here.  */
  BFD_ASSERT (htab->elf.dynobj != NULL
             && (h->needs_plt
                || h->u.weakdef != NULL
                || (h->def_dynamic
                    && h->ref_regular
                    && !h->def_regular)));

  /* If this is a function, put it in the procedure linkage table.  We
     will fill in the contents of the procedure linkage table later
     (although we could actually do it here).  The STT_NOTYPE
     condition is a hack specifically for the Oracle libraries
     delivered for Solaris; for some inexplicable reason, they define
     some of their functions as STT_NOTYPE when they really should be
     STT_FUNC.  */
  if (h->type == STT_FUNC
      || h->needs_plt
      || (h->type == STT_NOTYPE
         && (h->root.type == bfd_link_hash_defined
             || h->root.type == bfd_link_hash_defweak)
         && (h->root.u.def.section->flags & SEC_CODE) != 0))
    {
      if (h->plt.refcount <= 0
         || (! info->shared
             && !h->def_dynamic
             && !h->ref_dynamic
             && h->root.type != bfd_link_hash_undefweak
             && h->root.type != bfd_link_hash_undefined))
       {
         /* This case can occur if we saw a WPLT30 reloc in an input
            file, but the symbol was never referred to by a dynamic
            object, or if all references were garbage collected.  In
            such a case, we don't actually need to build a procedure
            linkage table, and we can just do a WDISP30 reloc instead.  */
         h->plt.offset = (bfd_vma) -1;
         h->needs_plt = 0;
       }

      return TRUE;
    }
  else
    h->plt.offset = (bfd_vma) -1;

  /* If this is a weak symbol, and there is a real definition, the
     processor independent code will have arranged for us to see the
     real definition first, and we can just use the same value.  */
  if (h->u.weakdef != NULL)
    {
      BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
                || h->u.weakdef->root.type == bfd_link_hash_defweak);
      h->root.u.def.section = h->u.weakdef->root.u.def.section;
      h->root.u.def.value = h->u.weakdef->root.u.def.value;
      return TRUE;
    }

  /* This is a reference to a symbol defined by a dynamic object which
     is not a function.  */

  /* If we are creating a shared library, we must presume that the
     only references to the symbol are via the global offset table.
     For such cases we need not do anything here; the relocations will
     be handled correctly by relocate_section.  */
  if (info->shared)
    return TRUE;

  /* If there are no references to this symbol that do not use the
     GOT, we don't need to generate a copy reloc.  */
  if (!h->non_got_ref)
    return TRUE;

  eh = (struct _bfd_sparc_elf_link_hash_entry *) h;
  for (p = eh->dyn_relocs; p != NULL; p = p->next)
    {
      s = p->sec->output_section;
      if (s != NULL && (s->flags & SEC_READONLY) != 0)
       break;
    }

  /* If we didn't find any dynamic relocs in read-only sections, then
     we'll be keeping the dynamic relocs and avoiding the copy reloc.  */
  if (p == NULL)
    {
      h->non_got_ref = 0;
      return TRUE;
    }

  if (h->size == 0)
    {
      (*_bfd_error_handler) (_("dynamic variable `%s' is zero size"),
                          h->root.root.string);
      return TRUE;
    }

  /* We must allocate the symbol in our .dynbss section, which will
     become part of the .bss section of the executable.  There will be
     an entry for this symbol in the .dynsym section.  The dynamic
     object will contain position independent code, so all references
     from the dynamic object to this symbol will go through the global
     offset table.  The dynamic linker will use the .dynsym entry to
     determine the address it must put in the global offset table, so
     both the dynamic object and the regular object will refer to the
     same memory location for the variable.  */

  /* We must generate a R_SPARC_COPY reloc to tell the dynamic linker
     to copy the initial value out of the dynamic object and into the
     runtime process image.  We need to remember the offset into the
     .rel.bss section we are going to use.  */
  if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
    {
      htab->srelbss->size += SPARC_ELF_RELA_BYTES (htab);
      h->needs_copy = 1;
    }

  /* We need to figure out the alignment required for this symbol.  I
     have no idea how ELF linkers handle this.  */
  power_of_two = bfd_log2 (h->size);
  if (power_of_two > htab->align_power_max)
    power_of_two = htab->align_power_max;

  /* Apply the required alignment.  */
  s = htab->sdynbss;
  s->size = BFD_ALIGN (s->size, (bfd_size_type) (1 << power_of_two));
  if (power_of_two > bfd_get_section_alignment (dynobj, s))
    {
      if (! bfd_set_section_alignment (dynobj, s, power_of_two))
       return FALSE;
    }

  /* Define the symbol as being at this point in the section.  */
  h->root.u.def.section = s;
  h->root.u.def.value = s->size;

  /* Increment the section size to make room for the symbol.  */
  s->size += h->size;

  return TRUE;
}

Here is the call graph for this function:

Definition at line 1074 of file elfxx-sparc.c.

{
  struct _bfd_sparc_elf_link_hash_table *htab;
  Elf_Internal_Shdr *symtab_hdr;
  struct elf_link_hash_entry **sym_hashes;
  bfd_vma *local_got_offsets;
  const Elf_Internal_Rela *rel;
  const Elf_Internal_Rela *rel_end;
  asection *sreloc;
  int num_relocs;
  bfd_boolean checked_tlsgd = FALSE;

  if (info->relocatable)
    return TRUE;

  htab = _bfd_sparc_elf_hash_table (info);
  symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
  sym_hashes = elf_sym_hashes (abfd);
  local_got_offsets = elf_local_got_offsets (abfd);

  sreloc = NULL;

  if (ABI_64_P (abfd))
    num_relocs = NUM_SHDR_ENTRIES (& elf_section_data (sec)->rel_hdr);
  else
    num_relocs = sec->reloc_count;
  rel_end = relocs + num_relocs;
  for (rel = relocs; rel < rel_end; rel++)
    {
      unsigned int r_type;
      unsigned long r_symndx;
      struct elf_link_hash_entry *h;

      r_symndx = SPARC_ELF_R_SYMNDX (htab, rel->r_info);
      r_type = SPARC_ELF_R_TYPE (rel->r_info);

      if (r_symndx >= NUM_SHDR_ENTRIES (symtab_hdr))
       {
         (*_bfd_error_handler) (_("%B: bad symbol index: %d"),
                             abfd, r_symndx);
         return FALSE;
       }

      if (r_symndx < symtab_hdr->sh_info)
       h = NULL;
      else
       {
         h = sym_hashes[r_symndx - symtab_hdr->sh_info];
         while (h->root.type == bfd_link_hash_indirect
               || h->root.type == bfd_link_hash_warning)
           h = (struct elf_link_hash_entry *) h->root.u.i.link;
       }

      /* Compatibility with old R_SPARC_REV32 reloc conflicting
        with R_SPARC_TLS_GD_HI22.  */
      if (! ABI_64_P (abfd) && ! checked_tlsgd)
       switch (r_type)
         {
         case R_SPARC_TLS_GD_HI22:
           {
             const Elf_Internal_Rela *relt;

             for (relt = rel + 1; relt < rel_end; relt++)
              if (ELF32_R_TYPE (relt->r_info) == R_SPARC_TLS_GD_LO10
                  || ELF32_R_TYPE (relt->r_info) == R_SPARC_TLS_GD_ADD
                  || ELF32_R_TYPE (relt->r_info) == R_SPARC_TLS_GD_CALL)
                break;
             checked_tlsgd = TRUE;
             _bfd_sparc_elf_tdata (abfd)->has_tlsgd = relt < rel_end;
           }
           break;
         case R_SPARC_TLS_GD_LO10:
         case R_SPARC_TLS_GD_ADD:
         case R_SPARC_TLS_GD_CALL:
           checked_tlsgd = TRUE;
           _bfd_sparc_elf_tdata (abfd)->has_tlsgd = TRUE;
           break;
         }

      r_type = sparc_elf_tls_transition (info, abfd, r_type, h == NULL);
      switch (r_type)
       {
       case R_SPARC_TLS_LDM_HI22:
       case R_SPARC_TLS_LDM_LO10:
         htab->tls_ldm_got.refcount += 1;
         break;

       case R_SPARC_TLS_LE_HIX22:
       case R_SPARC_TLS_LE_LOX10:
         if (info->shared)
           goto r_sparc_plt32;
         break;

       case R_SPARC_TLS_IE_HI22:
       case R_SPARC_TLS_IE_LO10:
         if (info->shared)
           info->flags |= DF_STATIC_TLS;
         /* Fall through */

       case R_SPARC_GOT10:
       case R_SPARC_GOT13:
       case R_SPARC_GOT22:
       case R_SPARC_TLS_GD_HI22:
       case R_SPARC_TLS_GD_LO10:
         /* This symbol requires a global offset table entry.  */
         {
           int tls_type, old_tls_type;

           switch (r_type)
             {
             default:
             case R_SPARC_GOT10:
             case R_SPARC_GOT13:
             case R_SPARC_GOT22:
              tls_type = GOT_NORMAL;
              break;
             case R_SPARC_TLS_GD_HI22:
             case R_SPARC_TLS_GD_LO10:
              tls_type = GOT_TLS_GD;
              break;
             case R_SPARC_TLS_IE_HI22:
             case R_SPARC_TLS_IE_LO10:
              tls_type = GOT_TLS_IE;
              break;
             }

           if (h != NULL)
             {
              h->got.refcount += 1;
              old_tls_type = _bfd_sparc_elf_hash_entry(h)->tls_type;
             }
           else
             {
              bfd_signed_vma *local_got_refcounts;

              /* This is a global offset table entry for a local symbol.  */
              local_got_refcounts = elf_local_got_refcounts (abfd);
              if (local_got_refcounts == NULL)
                {
                  bfd_size_type size;

                  size = symtab_hdr->sh_info;
                  size *= (sizeof (bfd_signed_vma) + sizeof(char));
                  local_got_refcounts = ((bfd_signed_vma *)
                                      bfd_zalloc (abfd, size));
                  if (local_got_refcounts == NULL)
                    return FALSE;
                  elf_local_got_refcounts (abfd) = local_got_refcounts;
                  _bfd_sparc_elf_local_got_tls_type (abfd)
                    = (char *) (local_got_refcounts + symtab_hdr->sh_info);
                }
              local_got_refcounts[r_symndx] += 1;
              old_tls_type = _bfd_sparc_elf_local_got_tls_type (abfd) [r_symndx];
             }

           /* If a TLS symbol is accessed using IE at least once,
              there is no point to use dynamic model for it.  */
           if (old_tls_type != tls_type && old_tls_type != GOT_UNKNOWN
              && (old_tls_type != GOT_TLS_GD
                  || tls_type != GOT_TLS_IE))
             {
              if (old_tls_type == GOT_TLS_IE && tls_type == GOT_TLS_GD)
                tls_type = old_tls_type;
              else
                {
                  (*_bfd_error_handler)
                    (_("%B: `%s' accessed both as normal and thread local symbol"),
                     abfd, h ? h->root.root.string : "<local>");
                  return FALSE;
                }
             }

           if (old_tls_type != tls_type)
             {
              if (h != NULL)
                _bfd_sparc_elf_hash_entry (h)->tls_type = tls_type;
              else
                _bfd_sparc_elf_local_got_tls_type (abfd) [r_symndx] = tls_type;
             }
         }

         if (htab->sgot == NULL)
           {
             if (htab->elf.dynobj == NULL)
              htab->elf.dynobj = abfd;
             if (!create_got_section (htab->elf.dynobj, info))
              return FALSE;
           }
         break;

       case R_SPARC_TLS_GD_CALL:
       case R_SPARC_TLS_LDM_CALL:
         if (info->shared)
           {
             /* These are basically R_SPARC_TLS_WPLT30 relocs against
               __tls_get_addr.  */
             struct bfd_link_hash_entry *bh = NULL;
             if (! _bfd_generic_link_add_one_symbol (info, abfd,
                                                "__tls_get_addr", 0,
                                                bfd_und_section_ptr, 0,
                                                NULL, FALSE, FALSE,
                                                &bh))
              return FALSE;
             h = (struct elf_link_hash_entry *) bh;
           }
         else
           break;
         /* Fall through */

       case R_SPARC_PLT32:
       case R_SPARC_WPLT30:
       case R_SPARC_HIPLT22:
       case R_SPARC_LOPLT10:
       case R_SPARC_PCPLT32:
       case R_SPARC_PCPLT22:
       case R_SPARC_PCPLT10:
       case R_SPARC_PLT64:
         /* This symbol requires a procedure linkage table entry.  We
            actually build the entry in adjust_dynamic_symbol,
            because this might be a case of linking PIC code without
            linking in any dynamic objects, in which case we don't
            need to generate a procedure linkage table after all.  */

         if (h == NULL)
           {
             if (! ABI_64_P (abfd))
              {
                /* The Solaris native assembler will generate a WPLT30
                   reloc for a local symbol if you assemble a call from
                   one section to another when using -K pic.  We treat
                   it as WDISP30.  */
                if (ELF32_R_TYPE (rel->r_info) == R_SPARC_PLT32)
                  goto r_sparc_plt32;
                break;
              }

             /* It does not make sense to have a procedure linkage
                 table entry for a local symbol.  */
             bfd_set_error (bfd_error_bad_value);
             return FALSE;
           }

         h->needs_plt = 1;

         {
           int this_r_type;

           this_r_type = SPARC_ELF_R_TYPE (rel->r_info);
           if (this_r_type == R_SPARC_PLT32
              || this_r_type == R_SPARC_PLT64)
             goto r_sparc_plt32;
         }
         h->plt.refcount += 1;
         break;

       case R_SPARC_PC10:
       case R_SPARC_PC22:
       case R_SPARC_PC_HH22:
       case R_SPARC_PC_HM10:
       case R_SPARC_PC_LM22:
         if (h != NULL)
           h->non_got_ref = 1;

         if (h != NULL
             && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
           break;
         /* Fall through.  */

       case R_SPARC_DISP8:
       case R_SPARC_DISP16:
       case R_SPARC_DISP32:
       case R_SPARC_DISP64:
       case R_SPARC_WDISP30:
       case R_SPARC_WDISP22:
       case R_SPARC_WDISP19:
       case R_SPARC_WDISP16:
       case R_SPARC_8:
       case R_SPARC_16:
       case R_SPARC_32:
       case R_SPARC_HI22:
       case R_SPARC_22:
       case R_SPARC_13:
       case R_SPARC_LO10:
       case R_SPARC_UA16:
       case R_SPARC_UA32:
       case R_SPARC_10:
       case R_SPARC_11:
       case R_SPARC_64:
       case R_SPARC_OLO10:
       case R_SPARC_HH22:
       case R_SPARC_HM10:
       case R_SPARC_LM22:
       case R_SPARC_7:
       case R_SPARC_5:
       case R_SPARC_6:
       case R_SPARC_HIX22:
       case R_SPARC_LOX10:
       case R_SPARC_H44:
       case R_SPARC_M44:
       case R_SPARC_L44:
       case R_SPARC_UA64:
         if (h != NULL)
           h->non_got_ref = 1;

       r_sparc_plt32:
         if (h != NULL && !info->shared)
           {
             /* We may need a .plt entry if the function this reloc
               refers to is in a shared lib.  */
             h->plt.refcount += 1;
           }

         /* If we are creating a shared library, and this is a reloc
            against a global symbol, or a non PC relative reloc
            against a local symbol, then we need to copy the reloc
            into the shared library.  However, if we are linking with
            -Bsymbolic, we do not need to copy a reloc against a
            global symbol which is defined in an object we are
            including in the link (i.e., DEF_REGULAR is set).  At
            this point we have not seen all the input files, so it is
            possible that DEF_REGULAR is not set now but will be set
            later (it is never cleared).  In case of a weak definition,
            DEF_REGULAR may be cleared later by a strong definition in
            a shared library.  We account for that possibility below by
            storing information in the relocs_copied field of the hash
            table entry.  A similar situation occurs when creating
            shared libraries and symbol visibility changes render the
            symbol local.

            If on the other hand, we are creating an executable, we
            may need to keep relocations for symbols satisfied by a
            dynamic library if we manage to avoid copy relocs for the
            symbol.  */
         if ((info->shared
              && (sec->flags & SEC_ALLOC) != 0
              && (! _bfd_sparc_elf_howto_table[r_type].pc_relative
                 || (h != NULL
                     && (! info->symbolic
                        || h->root.type == bfd_link_hash_defweak
                        || !h->def_regular))))
             || (!info->shared
                && (sec->flags & SEC_ALLOC) != 0
                && h != NULL
                && (h->root.type == bfd_link_hash_defweak
                    || !h->def_regular)))
           {
             struct _bfd_sparc_elf_dyn_relocs *p;
             struct _bfd_sparc_elf_dyn_relocs **head;

             /* When creating a shared object, we must copy these
               relocs into the output file.  We create a reloc
               section in dynobj and make room for the reloc.  */
             if (sreloc == NULL)
              {
                const char *name;
                bfd *dynobj;

                name = (bfd_elf_string_from_elf_section
                       (abfd,
                        elf_elfheader (abfd)->e_shstrndx,
                        elf_section_data (sec)->rel_hdr.sh_name));
                if (name == NULL)
                  return FALSE;

                BFD_ASSERT (CONST_STRNEQ (name, ".rela")
                           && strcmp (bfd_get_section_name (abfd, sec),
                                    name + 5) == 0);

                if (htab->elf.dynobj == NULL)
                  htab->elf.dynobj = abfd;
                dynobj = htab->elf.dynobj;

                sreloc = bfd_get_section_by_name (dynobj, name);
                if (sreloc == NULL)
                  {
                    flagword flags;

                    flags = (SEC_HAS_CONTENTS | SEC_READONLY
                            | SEC_IN_MEMORY | SEC_LINKER_CREATED);
                    if ((sec->flags & SEC_ALLOC) != 0)
                     flags |= SEC_ALLOC | SEC_LOAD;
                    sreloc = bfd_make_section_with_flags (dynobj,
                                                     name,
                                                     flags);
                    if (sreloc == NULL
                       || ! bfd_set_section_alignment (dynobj, sreloc,
                                                   htab->word_align_power))
                     return FALSE;
                  }
                elf_section_data (sec)->sreloc = sreloc;
              }

             /* If this is a global symbol, we count the number of
               relocations we need for this symbol.  */
             if (h != NULL)
              head = &((struct _bfd_sparc_elf_link_hash_entry *) h)->dyn_relocs;
             else
              {
                /* Track dynamic relocs needed for local syms too.
                   We really need local syms available to do this
                   easily.  Oh well.  */

                asection *s;
                void *vpp;

                s = bfd_section_from_r_symndx (abfd, &htab->sym_sec,
                                           sec, r_symndx);
                if (s == NULL)
                  return FALSE;

                vpp = &elf_section_data (s)->local_dynrel;
                head = (struct _bfd_sparc_elf_dyn_relocs **) vpp;
              }

             p = *head;
             if (p == NULL || p->sec != sec)
              {
                bfd_size_type amt = sizeof *p;
                p = ((struct _bfd_sparc_elf_dyn_relocs *)
                     bfd_alloc (htab->elf.dynobj, amt));
                if (p == NULL)
                  return FALSE;
                p->next = *head;
                *head = p;
                p->sec = sec;
                p->count = 0;
                p->pc_count = 0;
              }

             p->count += 1;
             if (_bfd_sparc_elf_howto_table[r_type].pc_relative)
              p->pc_count += 1;
           }

         break;

       case R_SPARC_GNU_VTINHERIT:
         if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
           return FALSE;
         break;

       case R_SPARC_GNU_VTENTRY:
         if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
           return FALSE;
         break;

       case R_SPARC_REGISTER:
         /* Nothing to do.  */
         break;

       default:
         break;
       }
    }

  return TRUE;
}

Here is the call graph for this function:

Definition at line 981 of file elfxx-sparc.c.

{
  struct _bfd_sparc_elf_link_hash_entry *edir, *eind;

  edir = (struct _bfd_sparc_elf_link_hash_entry *) dir;
  eind = (struct _bfd_sparc_elf_link_hash_entry *) ind;

  if (eind->dyn_relocs != NULL)
    {
      if (edir->dyn_relocs != NULL)
       {
         struct _bfd_sparc_elf_dyn_relocs **pp;
         struct _bfd_sparc_elf_dyn_relocs *p;

         /* Add reloc counts against the indirect sym to the direct sym
            list.  Merge any entries against the same section.  */
         for (pp = &eind->dyn_relocs; (p = *pp) != NULL; )
           {
             struct _bfd_sparc_elf_dyn_relocs *q;

             for (q = edir->dyn_relocs; q != NULL; q = q->next)
              if (q->sec == p->sec)
                {
                  q->pc_count += p->pc_count;
                  q->count += p->count;
                  *pp = p->next;
                  break;
                }
             if (q == NULL)
              pp = &p->next;
           }
         *pp = edir->dyn_relocs;
       }

      edir->dyn_relocs = eind->dyn_relocs;
      eind->dyn_relocs = NULL;
    }

  if (ind->root.type == bfd_link_hash_indirect
      && dir->got.refcount <= 0)
    {
      edir->tls_type = eind->tls_type;
      eind->tls_type = GOT_UNKNOWN;
    }
  _bfd_elf_link_hash_copy_indirect (info, dir, ind);
}

Here is the call graph for this function:

Definition at line 918 of file elfxx-sparc.c.

{
  struct _bfd_sparc_elf_link_hash_table *htab;

  htab = _bfd_sparc_elf_hash_table (info);
  if (!htab->sgot && !create_got_section (dynobj, info))
    return FALSE;

  if (!_bfd_elf_create_dynamic_sections (dynobj, info))
    return FALSE;

  htab->splt = bfd_get_section_by_name (dynobj, ".plt");
  htab->srelplt = bfd_get_section_by_name (dynobj, ".rela.plt");
  htab->sdynbss = bfd_get_section_by_name (dynobj, ".dynbss");
  if (!info->shared)
    htab->srelbss = bfd_get_section_by_name (dynobj, ".rela.bss");

  if (htab->is_vxworks)
    {
      if (!elf_vxworks_create_dynamic_sections (dynobj, info, &htab->srelplt2))
       return FALSE;
      if (info->shared)
       {
         htab->plt_header_size
           = 4 * ARRAY_SIZE (sparc_vxworks_shared_plt0_entry);
         htab->plt_entry_size
           = 4 * ARRAY_SIZE (sparc_vxworks_shared_plt_entry);
       }
      else
       {
         htab->plt_header_size
           = 4 * ARRAY_SIZE (sparc_vxworks_exec_plt0_entry);
         htab->plt_entry_size
           = 4 * ARRAY_SIZE (sparc_vxworks_exec_plt_entry);
       }
    }
  else
    {
      if (ABI_64_P (dynobj))
       {
         htab->build_plt_entry = sparc64_plt_entry_build;
         htab->plt_header_size = PLT64_HEADER_SIZE;
         htab->plt_entry_size = PLT64_ENTRY_SIZE;
       }
      else
       {
         htab->build_plt_entry = sparc32_plt_entry_build;
         htab->plt_header_size = PLT32_HEADER_SIZE;
         htab->plt_entry_size = PLT32_ENTRY_SIZE;
       }
    }

  if (!htab->splt || !htab->srelplt || !htab->sdynbss
      || (!info->shared && !htab->srelbss))
    abort ();

  return TRUE;
}

Here is the call graph for this function:

Definition at line 4002 of file elfxx-sparc.c.

{
  bfd *dynobj;
  asection *sdyn;
  struct _bfd_sparc_elf_link_hash_table *htab;

  htab = _bfd_sparc_elf_hash_table (info);
  dynobj = htab->elf.dynobj;

  sdyn = bfd_get_section_by_name (dynobj, ".dynamic");

  if (elf_hash_table (info)->dynamic_sections_created)
    {
      asection *splt;

      splt = bfd_get_section_by_name (dynobj, ".plt");
      BFD_ASSERT (splt != NULL && sdyn != NULL);

      if (!sparc_finish_dyn (output_bfd, info, dynobj, sdyn, splt))
       return FALSE;

      /* Initialize the contents of the .plt section.  */
      if (splt->size > 0)
       {
         if (htab->is_vxworks)
           {
             if (info->shared)
              sparc_vxworks_finish_shared_plt (output_bfd, info);
             else
              sparc_vxworks_finish_exec_plt (output_bfd, info);
           }
         else
           {
             memset (splt->contents, 0, htab->plt_header_size);
             if (!ABI_64_P (output_bfd))
              bfd_put_32 (output_bfd, (bfd_vma) SPARC_NOP,
                         splt->contents + splt->size - 4);
           }
       }

      elf_section_data (splt->output_section)->this_hdr.sh_entsize
       = (htab->is_vxworks || !ABI_64_P (output_bfd))
         ? 0 : htab->plt_entry_size;
    }

  /* Set the first entry in the global offset table to the address of
     the dynamic section.  */
  if (htab->sgot && htab->sgot->size > 0)
    {
      bfd_vma val = (sdyn ?
                   sdyn->output_section->vma + sdyn->output_offset :
                   0);

      SPARC_ELF_PUT_WORD (htab, output_bfd, val, htab->sgot->contents);
    }

  if (htab->sgot)
    elf_section_data (htab->sgot->output_section)->this_hdr.sh_entsize =
      SPARC_ELF_WORD_BYTES (htab);

  return TRUE;
}

Here is the call graph for this function:

Definition at line 3645 of file elfxx-sparc.c.

{
  bfd *dynobj;
  struct _bfd_sparc_elf_link_hash_table *htab;
  const struct elf_backend_data *bed;

  htab = _bfd_sparc_elf_hash_table (info);
  dynobj = htab->elf.dynobj;
  bed = get_elf_backend_data (output_bfd);

  if (h->plt.offset != (bfd_vma) -1)
    {
      asection *splt;
      asection *srela;
      Elf_Internal_Rela rela;
      bfd_byte *loc;
      bfd_vma r_offset, got_offset;
      int rela_index;

      /* This symbol has an entry in the PLT.  Set it up.  */

      BFD_ASSERT (h->dynindx != -1);

      splt = htab->splt;
      srela = htab->srelplt;
      BFD_ASSERT (splt != NULL && srela != NULL);

      /* Fill in the entry in the .rela.plt section.  */
      if (htab->is_vxworks)
       {
         /* Work out the index of this PLT entry.  */
         rela_index = ((h->plt.offset - htab->plt_header_size)
                     / htab->plt_entry_size);

         /* Calculate the offset of the associated .got.plt entry.
            The first three entries are reserved.  */
         got_offset = (rela_index + 3) * 4;

         sparc_vxworks_build_plt_entry (output_bfd, info, h->plt.offset,
                                    rela_index, got_offset);


         /* On VxWorks, the relocation points to the .got.plt entry,
            not the .plt entry.  */
         rela.r_offset = (htab->sgotplt->output_section->vma
                        + htab->sgotplt->output_offset
                        + got_offset);
         rela.r_addend = 0;
       }
      else
       {
         /* Fill in the entry in the procedure linkage table.  */
         rela_index = SPARC_ELF_BUILD_PLT_ENTRY (htab, output_bfd, splt,
                                            h->plt.offset, splt->size,
                                            &r_offset);

         rela.r_offset = r_offset
           + (splt->output_section->vma + splt->output_offset);
         if (! ABI_64_P (output_bfd)
             || h->plt.offset < (PLT64_LARGE_THRESHOLD * PLT64_ENTRY_SIZE))
           {
             rela.r_addend = 0;
           }
         else
           {
             rela.r_addend = (-(h->plt.offset + 4)
                            - splt->output_section->vma
                            - splt->output_offset);
           }
       }
      rela.r_info = SPARC_ELF_R_INFO (htab, NULL, h->dynindx, R_SPARC_JMP_SLOT);

      /* Adjust for the first 4 reserved elements in the .plt section
        when setting the offset in the .rela.plt section.
        Sun forgot to read their own ABI and copied elf32-sparc behaviour,
        thus .plt[4] has corresponding .rela.plt[0] and so on.  */

      loc = srela->contents;
      loc += rela_index * bed->s->sizeof_rela;
      bed->s->swap_reloca_out (output_bfd, &rela, loc);

      if (!h->def_regular)
       {
         /* Mark the symbol as undefined, rather than as defined in
            the .plt section.  Leave the value alone.  */
         sym->st_shndx = SHN_UNDEF;
         /* If the symbol is weak, we do need to clear the value.
            Otherwise, the PLT entry would provide a definition for
            the symbol even if the symbol wasn't defined anywhere,
            and so the symbol would never be NULL.  */
         if (!h->ref_regular_nonweak)
           sym->st_value = 0;
       }
    }

  if (h->got.offset != (bfd_vma) -1
      && _bfd_sparc_elf_hash_entry(h)->tls_type != GOT_TLS_GD
      && _bfd_sparc_elf_hash_entry(h)->tls_type != GOT_TLS_IE)
    {
      asection *sgot;
      asection *srela;
      Elf_Internal_Rela rela;

      /* This symbol has an entry in the GOT.  Set it up.  */

      sgot = htab->sgot;
      srela = htab->srelgot;
      BFD_ASSERT (sgot != NULL && srela != NULL);

      rela.r_offset = (sgot->output_section->vma
                     + sgot->output_offset
                     + (h->got.offset &~ (bfd_vma) 1));

      /* If this is a -Bsymbolic link, and the symbol is defined
        locally, we just want to emit a RELATIVE reloc.  Likewise if
        the symbol was forced to be local because of a version file.
        The entry in the global offset table will already have been
        initialized in the relocate_section function.  */
      if (info->shared
         && (info->symbolic || h->dynindx == -1)
         && h->def_regular)
       {
         asection *sec = h->root.u.def.section;
         rela.r_info = SPARC_ELF_R_INFO (htab, NULL, 0, R_SPARC_RELATIVE);
         rela.r_addend = (h->root.u.def.value
                        + sec->output_section->vma
                        + sec->output_offset);
       }
      else
       {
         rela.r_info = SPARC_ELF_R_INFO (htab, NULL, h->dynindx, R_SPARC_GLOB_DAT);
         rela.r_addend = 0;
       }

      SPARC_ELF_PUT_WORD (htab, output_bfd, 0,
                       sgot->contents + (h->got.offset & ~(bfd_vma) 1));
      sparc_elf_append_rela (output_bfd, srela, &rela);
    }

  if (h->needs_copy)
    {
      asection *s;
      Elf_Internal_Rela rela;

      /* This symbols needs a copy reloc.  Set it up.  */
      BFD_ASSERT (h->dynindx != -1);

      s = bfd_get_section_by_name (h->root.u.def.section->owner,
                               ".rela.bss");
      BFD_ASSERT (s != NULL);

      rela.r_offset = (h->root.u.def.value
                     + h->root.u.def.section->output_section->vma
                     + h->root.u.def.section->output_offset);
      rela.r_info = SPARC_ELF_R_INFO (htab, NULL, h->dynindx, R_SPARC_COPY);
      rela.r_addend = 0;
      sparc_elf_append_rela (output_bfd, s, &rela);
    }

  /* Mark some specially defined symbols as absolute.  On VxWorks,
     _GLOBAL_OFFSET_TABLE_ is not absolute: it is relative to the
     ".got" section.  Likewise _PROCEDURE_LINKAGE_TABLE_ and ".plt".  */
  if (strcmp (h->root.root.string, "_DYNAMIC") == 0
      || (!htab->is_vxworks
         && (h == htab->elf.hgot || h == htab->elf.hplt)))
    sym->st_shndx = SHN_ABS;

  return TRUE;
}

Here is the call graph for this function:

Definition at line 1534 of file elfxx-sparc.c.

{
  if (h != NULL)
    switch (SPARC_ELF_R_TYPE (rel->r_info))
      {
      case R_SPARC_GNU_VTINHERIT:
      case R_SPARC_GNU_VTENTRY:
       return NULL;
      }

  return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
}

Here is the call graph for this function:

Definition at line 1553 of file elfxx-sparc.c.

{
  struct _bfd_sparc_elf_link_hash_table *htab;
  Elf_Internal_Shdr *symtab_hdr;
  struct elf_link_hash_entry **sym_hashes;
  bfd_signed_vma *local_got_refcounts;
  const Elf_Internal_Rela *rel, *relend;

  elf_section_data (sec)->local_dynrel = NULL;

  htab = _bfd_sparc_elf_hash_table (info);
  symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
  sym_hashes = elf_sym_hashes (abfd);
  local_got_refcounts = elf_local_got_refcounts (abfd);

  relend = relocs + sec->reloc_count;
  for (rel = relocs; rel < relend; rel++)
    {
      unsigned long r_symndx;
      unsigned int r_type;
      struct elf_link_hash_entry *h = NULL;

      r_symndx = SPARC_ELF_R_SYMNDX (htab, rel->r_info);
      if (r_symndx >= symtab_hdr->sh_info)
       {
         struct _bfd_sparc_elf_link_hash_entry *eh;
         struct _bfd_sparc_elf_dyn_relocs **pp;
         struct _bfd_sparc_elf_dyn_relocs *p;

         h = sym_hashes[r_symndx - symtab_hdr->sh_info];
         while (h->root.type == bfd_link_hash_indirect
               || h->root.type == bfd_link_hash_warning)
           h = (struct elf_link_hash_entry *) h->root.u.i.link;
         eh = (struct _bfd_sparc_elf_link_hash_entry *) h;
         for (pp = &eh->dyn_relocs; (p = *pp) != NULL; pp = &p->next)
           if (p->sec == sec)
             {
              /* Everything must go for SEC.  */
              *pp = p->next;
              break;
             }
       }

      r_type = SPARC_ELF_R_TYPE (rel->r_info);
      r_type = sparc_elf_tls_transition (info, abfd, r_type, h != NULL);
      switch (r_type)
       {
       case R_SPARC_TLS_LDM_HI22:
       case R_SPARC_TLS_LDM_LO10:
         if (_bfd_sparc_elf_hash_table (info)->tls_ldm_got.refcount > 0)
           _bfd_sparc_elf_hash_table (info)->tls_ldm_got.refcount -= 1;
         break;

       case R_SPARC_TLS_GD_HI22:
       case R_SPARC_TLS_GD_LO10:
       case R_SPARC_TLS_IE_HI22:
       case R_SPARC_TLS_IE_LO10:
       case R_SPARC_GOT10:
       case R_SPARC_GOT13:
       case R_SPARC_GOT22:
         if (h != NULL)
           {
             if (h->got.refcount > 0)
              h->got.refcount--;
           }
         else
           {
             if (local_got_refcounts[r_symndx] > 0)
              local_got_refcounts[r_symndx]--;
           }
         break;

       case R_SPARC_PC10:
       case R_SPARC_PC22:
       case R_SPARC_PC_HH22:
       case R_SPARC_PC_HM10:
       case R_SPARC_PC_LM22:
         if (h != NULL
             && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
           break;
         /* Fall through.  */

       case R_SPARC_DISP8:
       case R_SPARC_DISP16:
       case R_SPARC_DISP32:
       case R_SPARC_DISP64:
       case R_SPARC_WDISP30:
       case R_SPARC_WDISP22:
       case R_SPARC_WDISP19:
       case R_SPARC_WDISP16:
       case R_SPARC_8:
       case R_SPARC_16:
       case R_SPARC_32:
       case R_SPARC_HI22:
       case R_SPARC_22:
       case R_SPARC_13:
       case R_SPARC_LO10:
       case R_SPARC_UA16:
       case R_SPARC_UA32:
       case R_SPARC_PLT32:
       case R_SPARC_10:
       case R_SPARC_11:
       case R_SPARC_64:
       case R_SPARC_OLO10:
       case R_SPARC_HH22:
       case R_SPARC_HM10:
       case R_SPARC_LM22:
       case R_SPARC_7:
       case R_SPARC_5:
       case R_SPARC_6:
       case R_SPARC_HIX22:
       case R_SPARC_LOX10:
       case R_SPARC_H44:
       case R_SPARC_M44:
       case R_SPARC_L44:
       case R_SPARC_UA64:
         if (info->shared)
           break;
         /* Fall through.  */

       case R_SPARC_WPLT30:
         if (h != NULL)
           {
             if (h->plt.refcount > 0)
              h->plt.refcount--;
           }
         break;

       default:
         break;
       }
    }

  return TRUE;
}

Here is the call graph for this function:

reloc_howto_type* _bfd_sparc_elf_info_to_howto_ptr ( unsigned  int)

Definition at line 412 of file elfxx-sparc.c.

{
  switch (r_type)
    {
    case R_SPARC_GNU_VTINHERIT:
      return &sparc_vtinherit_howto;

    case R_SPARC_GNU_VTENTRY:
      return &sparc_vtentry_howto;

    case R_SPARC_REV32:
      return &sparc_rev32_howto;

    default:
      if (r_type >= (unsigned int) R_SPARC_max_std)
       {
         (*_bfd_error_handler) (_("invalid relocation type %d"),
                             (int) r_type);
         r_type = R_SPARC_NONE;
       }
      return &_bfd_sparc_elf_howto_table[r_type];
    }
}

Here is the caller graph for this function:

Definition at line 826 of file elfxx-sparc.c.

{
  struct _bfd_sparc_elf_link_hash_table *ret;
  bfd_size_type amt = sizeof (struct _bfd_sparc_elf_link_hash_table);

  ret = (struct _bfd_sparc_elf_link_hash_table *) bfd_zmalloc (amt);
  if (ret == NULL)
    return NULL;

  if (ABI_64_P (abfd))
    {
      ret->put_word = sparc_put_word_64;
      ret->r_info = sparc_elf_r_info_64;
      ret->r_symndx = sparc_elf_r_symndx_64;
      ret->dtpoff_reloc = R_SPARC_TLS_DTPOFF64;
      ret->dtpmod_reloc = R_SPARC_TLS_DTPMOD64;
      ret->tpoff_reloc = R_SPARC_TLS_TPOFF64;
      ret->word_align_power = 3;
      ret->align_power_max = 4;
      ret->bytes_per_word = 8;
      ret->bytes_per_rela = sizeof (Elf64_External_Rela);
      ret->dynamic_interpreter = ELF64_DYNAMIC_INTERPRETER;
      ret->dynamic_interpreter_size = sizeof ELF64_DYNAMIC_INTERPRETER;
    }
  else
    {
      ret->put_word = sparc_put_word_32;
      ret->r_info = sparc_elf_r_info_32;
      ret->r_symndx = sparc_elf_r_symndx_32;
      ret->dtpoff_reloc = R_SPARC_TLS_DTPOFF32;
      ret->dtpmod_reloc = R_SPARC_TLS_DTPMOD32;
      ret->tpoff_reloc = R_SPARC_TLS_TPOFF32;
      ret->word_align_power = 2;
      ret->align_power_max = 3;
      ret->bytes_per_word = 4;
      ret->bytes_per_rela = sizeof (Elf32_External_Rela);
      ret->dynamic_interpreter = ELF32_DYNAMIC_INTERPRETER;
      ret->dynamic_interpreter_size = sizeof ELF32_DYNAMIC_INTERPRETER;
    }

  if (!_bfd_elf_link_hash_table_init (&ret->elf, abfd, link_hash_newfunc,
                                  sizeof (struct _bfd_sparc_elf_link_hash_entry)))
    {
      free (ret);
      return NULL;
    }

  return &ret->elf.root;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 512 of file elfxx-sparc.c.

{
  if (abfd->tdata.any == NULL)
    {
      bfd_size_type amt = sizeof (struct _bfd_sparc_elf_obj_tdata);
      abfd->tdata.any = bfd_zalloc (abfd, amt);
      if (abfd->tdata.any == NULL)
       return FALSE;
    }
  return bfd_elf_mkobject (abfd);
}

Here is the call graph for this function:

Definition at line 2423 of file elfxx-sparc.c.

{
  if (!sec->used_by_bfd)
    {
      struct _bfd_sparc_elf_section_data *sdata;
      bfd_size_type amt = sizeof (*sdata);

      sdata = bfd_zalloc (abfd, amt);
      if (sdata == NULL)
       return FALSE;
      sec->used_by_bfd = sdata;
    }

  return _bfd_elf_new_section_hook (abfd, sec);
}

Here is the call graph for this function:

Definition at line 4069 of file elfxx-sparc.c.

Here is the call graph for this function:

Definition at line 2123 of file elfxx-sparc.c.

{
  /* We keep the .got section symbol so that explicit relocations
     against the _GLOBAL_OFFSET_TABLE_ symbol emitted in PIC mode
     can be turned into relocations against the .got symbol.  */
  if (strcmp (p->name, ".got") == 0)
    return FALSE;

  return _bfd_elf_link_omit_section_dynsym (output_bfd, info, p);
}

Here is the call graph for this function:

Definition at line 4109 of file elfxx-sparc.c.

{
  if (ABI_64_P (plt->owner))
    {
      bfd_vma j;

      i += PLT64_HEADER_SIZE / PLT64_ENTRY_SIZE;
      if (i < PLT64_LARGE_THRESHOLD)
       return plt->vma + i * PLT64_ENTRY_SIZE;

      j = (i - PLT64_LARGE_THRESHOLD) % 160;
      i -= j;
      return plt->vma + i * PLT64_ENTRY_SIZE + j * 4 * 6;
    }
  else
    return rel->address;
}
reloc_howto_type* _bfd_sparc_elf_reloc_name_lookup ( bfd ,
const char *   
)
bfd_boolean _bfd_sparc_elf_relocate_section ( bfd ,
struct bfd_link_info ,
bfd ,
asection ,
bfd_byte ,
Elf_Internal_Rela ,
Elf_Internal_Sym *  ,
asection **   
)

Definition at line 2480 of file elfxx-sparc.c.

{
  struct _bfd_sparc_elf_link_hash_table *htab;
  Elf_Internal_Shdr *symtab_hdr;
  struct elf_link_hash_entry **sym_hashes;
  bfd_vma *local_got_offsets;
  bfd_vma got_base;
  asection *sreloc;
  Elf_Internal_Rela *rel;
  Elf_Internal_Rela *relend;
  int num_relocs;

  htab = _bfd_sparc_elf_hash_table (info);
  symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
  sym_hashes = elf_sym_hashes (input_bfd);
  local_got_offsets = elf_local_got_offsets (input_bfd);

  if (elf_hash_table (info)->hgot == NULL)
    got_base = 0;
  else
    got_base = elf_hash_table (info)->hgot->root.u.def.value;

  sreloc = elf_section_data (input_section)->sreloc;

  rel = relocs;
  if (ABI_64_P (output_bfd))
    num_relocs = NUM_SHDR_ENTRIES (& elf_section_data (input_section)->rel_hdr);
  else
    num_relocs = input_section->reloc_count;
  relend = relocs + num_relocs;
  for (; rel < relend; rel++)
    {
      int r_type, tls_type;
      reloc_howto_type *howto;
      unsigned long r_symndx;
      struct elf_link_hash_entry *h;
      Elf_Internal_Sym *sym;
      asection *sec;
      bfd_vma relocation, off;
      bfd_reloc_status_type r;
      bfd_boolean is_plt = FALSE;
      bfd_boolean unresolved_reloc;

      r_type = SPARC_ELF_R_TYPE (rel->r_info);
      if (r_type == R_SPARC_GNU_VTINHERIT
         || r_type == R_SPARC_GNU_VTENTRY)
       continue;

      if (r_type < 0 || r_type >= (int) R_SPARC_max_std)
       {
         bfd_set_error (bfd_error_bad_value);
         return FALSE;
       }
      howto = _bfd_sparc_elf_howto_table + r_type;

      r_symndx = SPARC_ELF_R_SYMNDX (htab, rel->r_info);
      h = NULL;
      sym = NULL;
      sec = NULL;
      unresolved_reloc = FALSE;
      if (r_symndx < symtab_hdr->sh_info)
       {
         sym = local_syms + r_symndx;
         sec = local_sections[r_symndx];
         relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
       }
      else
       {
         bfd_boolean warned;

         RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
                               r_symndx, symtab_hdr, sym_hashes,
                               h, sec, relocation,
                               unresolved_reloc, warned);
         if (warned)
           {
             /* To avoid generating warning messages about truncated
               relocations, set the relocation's address to be the same as
               the start of this section.  */
             if (input_section->output_section != NULL)
              relocation = input_section->output_section->vma;
             else
              relocation = 0;
           }
       }

      if (sec != NULL && elf_discarded_section (sec))
       {
         /* For relocs against symbols from removed linkonce
            sections, or sections discarded by a linker script, we
            just want the section contents zeroed.  Avoid any
            special processing.  */
         _bfd_clear_contents (howto, input_bfd, contents + rel->r_offset);
         rel->r_info = 0;
         rel->r_addend = 0;
         continue;
       }

      if (info->relocatable)
       continue;

      switch (r_type)
       {
       case R_SPARC_GOT10:
       case R_SPARC_GOT13:
       case R_SPARC_GOT22:
         /* Relocation is to the entry for this symbol in the global
            offset table.  */
         if (htab->sgot == NULL)
           abort ();

         if (h != NULL)
           {
             bfd_boolean dyn;

             off = h->got.offset;
             BFD_ASSERT (off != (bfd_vma) -1);
             dyn = elf_hash_table (info)->dynamic_sections_created;

             if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
                || (info->shared
                    && (info->symbolic
                       || h->dynindx == -1
                       || h->forced_local)
                    && h->def_regular))
              {
                /* This is actually a static link, or it is a
                   -Bsymbolic link and the symbol is defined
                   locally, or the symbol was forced to be local
                   because of a version file.  We must initialize
                   this entry in the global offset table.  Since the
                   offset must always be a multiple of 8 for 64-bit
                   and 4 for 32-bit, we use the least significant bit
                   to record whether we have initialized it already.

                   When doing a dynamic link, we create a .rela.got
                   relocation entry to initialize the value.  This
                   is done in the finish_dynamic_symbol routine.  */
                if ((off & 1) != 0)
                  off &= ~1;
                else
                  {
                    SPARC_ELF_PUT_WORD (htab, output_bfd, relocation,
                                     htab->sgot->contents + off);
                    h->got.offset |= 1;
                  }
              }
             else
              unresolved_reloc = FALSE;
           }
         else
           {
             BFD_ASSERT (local_got_offsets != NULL
                       && local_got_offsets[r_symndx] != (bfd_vma) -1);

             off = local_got_offsets[r_symndx];

             /* The offset must always be a multiple of 8 on 64-bit and
               4 on 32-bit.  We use the least significant bit to record
               whether we have already processed this entry.  */
             if ((off & 1) != 0)
              off &= ~1;
             else
              {

                if (info->shared)
                  {
                    asection *s;
                    Elf_Internal_Rela outrel;

                    /* We need to generate a R_SPARC_RELATIVE reloc
                      for the dynamic linker.  */
                    s = htab->srelgot;
                    BFD_ASSERT (s != NULL);

                    outrel.r_offset = (htab->sgot->output_section->vma
                                    + htab->sgot->output_offset
                                    + off);
                    outrel.r_info = SPARC_ELF_R_INFO (htab, NULL,
                                                 0, R_SPARC_RELATIVE);
                    outrel.r_addend = relocation;
                    relocation = 0;
                    sparc_elf_append_rela (output_bfd, s, &outrel);
                  }

                SPARC_ELF_PUT_WORD (htab, output_bfd, relocation,
                                  htab->sgot->contents + off);
                local_got_offsets[r_symndx] |= 1;
              }
           }
         relocation = htab->sgot->output_offset + off - got_base;
         break;

       case R_SPARC_PLT32:
       case R_SPARC_PLT64:
         if (h == NULL || h->plt.offset == (bfd_vma) -1)
           {
             r_type = (r_type == R_SPARC_PLT32) ? R_SPARC_32 : R_SPARC_64;
             goto r_sparc_plt32;
           }
         /* Fall through.  */

       case R_SPARC_WPLT30:
       case R_SPARC_HIPLT22:
       case R_SPARC_LOPLT10:
       case R_SPARC_PCPLT32:
       case R_SPARC_PCPLT22:
       case R_SPARC_PCPLT10:
       r_sparc_wplt30:
         /* Relocation is to the entry for this symbol in the
            procedure linkage table.  */

         if (! ABI_64_P (output_bfd))
           {
             /* The Solaris native assembler will generate a WPLT30 reloc
               for a local symbol if you assemble a call from one
               section to another when using -K pic.  We treat it as
               WDISP30.  */
             if (h == NULL)
              break;
           }
         else
           {
             BFD_ASSERT (h != NULL);
           }

         if (h->plt.offset == (bfd_vma) -1 || htab->splt == NULL)
           {
             /* We didn't make a PLT entry for this symbol.  This
               happens when statically linking PIC code, or when
               using -Bsymbolic.  */
             break;
           }

         relocation = (htab->splt->output_section->vma
                     + htab->splt->output_offset
                     + h->plt.offset);
         unresolved_reloc = FALSE;
         if (r_type == R_SPARC_PLT32 || r_type == R_SPARC_PLT64)
           {
             r_type = r_type == R_SPARC_PLT32 ? R_SPARC_32 : R_SPARC_64;
             is_plt = TRUE;
             goto r_sparc_plt32;
           }
         break;

       case R_SPARC_PC10:
       case R_SPARC_PC22:
       case R_SPARC_PC_HH22:
       case R_SPARC_PC_HM10:
       case R_SPARC_PC_LM22:
         if (h != NULL
             && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
           break;
         /* Fall through.  */
       case R_SPARC_DISP8:
       case R_SPARC_DISP16:
       case R_SPARC_DISP32:
       case R_SPARC_DISP64:
       case R_SPARC_WDISP30:
       case R_SPARC_WDISP22:
       case R_SPARC_WDISP19:
       case R_SPARC_WDISP16:
       case R_SPARC_8:
       case R_SPARC_16:
       case R_SPARC_32:
       case R_SPARC_HI22:
       case R_SPARC_22:
       case R_SPARC_13:
       case R_SPARC_LO10:
       case R_SPARC_UA16:
       case R_SPARC_UA32:
       case R_SPARC_10:
       case R_SPARC_11:
       case R_SPARC_64:
       case R_SPARC_OLO10:
       case R_SPARC_HH22:
       case R_SPARC_HM10:
       case R_SPARC_LM22:
       case R_SPARC_7:
       case R_SPARC_5:
       case R_SPARC_6:
       case R_SPARC_HIX22:
       case R_SPARC_LOX10:
       case R_SPARC_H44:
       case R_SPARC_M44:
       case R_SPARC_L44:
       case R_SPARC_UA64:
       r_sparc_plt32:
         if ((input_section->flags & SEC_ALLOC) == 0)
           break;

         if ((info->shared
              && (h == NULL
                 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
                 || h->root.type != bfd_link_hash_undefweak)
              && (! howto->pc_relative
                 || (h != NULL
                     && h->dynindx != -1
                     && (! info->symbolic
                        || !h->def_regular))))
             || (!info->shared
                && h != NULL
                && h->dynindx != -1
                && !h->non_got_ref
                && ((h->def_dynamic
                     && !h->def_regular)
                    || h->root.type == bfd_link_hash_undefweak
                    || h->root.type == bfd_link_hash_undefined)))
           {
             Elf_Internal_Rela outrel;
             bfd_boolean skip, relocate = FALSE;

             /* When generating a shared object, these relocations
               are copied into the output file to be resolved at run
               time.  */

             BFD_ASSERT (sreloc != NULL);

             skip = FALSE;

             outrel.r_offset =
              _bfd_elf_section_offset (output_bfd, info, input_section,
                                    rel->r_offset);
             if (outrel.r_offset == (bfd_vma) -1)
              skip = TRUE;
             else if (outrel.r_offset == (bfd_vma) -2)
              skip = TRUE, relocate = TRUE;
             outrel.r_offset += (input_section->output_section->vma
                              + input_section->output_offset);

             /* Optimize unaligned reloc usage now that we know where
               it finally resides.  */
             switch (r_type)
              {
              case R_SPARC_16:
                if (outrel.r_offset & 1)
                  r_type = R_SPARC_UA16;
                break;
              case R_SPARC_UA16:
                if (!(outrel.r_offset & 1))
                  r_type = R_SPARC_16;
                break;
              case R_SPARC_32:
                if (outrel.r_offset & 3)
                  r_type = R_SPARC_UA32;
                break;
              case R_SPARC_UA32:
                if (!(outrel.r_offset & 3))
                  r_type = R_SPARC_32;
                break;
              case R_SPARC_64:
                if (outrel.r_offset & 7)
                  r_type = R_SPARC_UA64;
                break;
              case R_SPARC_UA64:
                if (!(outrel.r_offset & 7))
                  r_type = R_SPARC_64;
                break;
              case R_SPARC_DISP8:
              case R_SPARC_DISP16:
              case R_SPARC_DISP32:
              case R_SPARC_DISP64:
                /* If the symbol is not dynamic, we should not keep
                   a dynamic relocation.  But an .rela.* slot has been
                   allocated for it, output R_SPARC_NONE.
                   FIXME: Add code tracking needed dynamic relocs as
                   e.g. i386 has.  */
                if (h->dynindx == -1)
                  skip = TRUE, relocate = TRUE;
                break;
              }

             if (skip)
              memset (&outrel, 0, sizeof outrel);
             /* h->dynindx may be -1 if the symbol was marked to
               become local.  */
             else if (h != NULL && ! is_plt
                     && ((! info->symbolic && h->dynindx != -1)
                        || !h->def_regular))
              {
                BFD_ASSERT (h->dynindx != -1);
                outrel.r_info = SPARC_ELF_R_INFO (htab, rel, h->dynindx, r_type);
                outrel.r_addend = rel->r_addend;
              }
             else
              {
                if (r_type == R_SPARC_32 || r_type == R_SPARC_64)
                  {
                    outrel.r_info = SPARC_ELF_R_INFO (htab, NULL,
                                                 0, R_SPARC_RELATIVE);
                    outrel.r_addend = relocation + rel->r_addend;
                  }
                else
                  {
                    long indx;

                    outrel.r_addend = relocation + rel->r_addend;

                    if (is_plt)
                     sec = htab->splt;

                    if (bfd_is_abs_section (sec))
                     indx = 0;
                    else if (sec == NULL || sec->owner == NULL)
                     {
                       bfd_set_error (bfd_error_bad_value);
                       return FALSE;
                     }
                    else
                     {
                       asection *osec;

                       /* We are turning this relocation into one
                          against a section symbol.  It would be
                          proper to subtract the symbol's value,
                          osec->vma, from the emitted reloc addend,
                          but ld.so expects buggy relocs.  */
                       osec = sec->output_section;
                       indx = elf_section_data (osec)->dynindx;

                       if (indx == 0)
                         {
                           osec = htab->elf.text_index_section;
                           indx = elf_section_data (osec)->dynindx;
                         }

                       /* FIXME: we really should be able to link non-pic
                          shared libraries.  */
                       if (indx == 0)
                         {
                           BFD_FAIL ();
                           (*_bfd_error_handler)
                            (_("%B: probably compiled without -fPIC?"),
                             input_bfd);
                           bfd_set_error (bfd_error_bad_value);
                           return FALSE;
                         }
                     }

                    outrel.r_info = SPARC_ELF_R_INFO (htab, rel, indx,
                                                 r_type);
                  }
              }

             sparc_elf_append_rela (output_bfd, sreloc, &outrel);

             /* This reloc will be computed at runtime, so there's no
               need to do anything now.  */
             if (! relocate)
              continue;
           }
         break;

       case R_SPARC_TLS_GD_HI22:
         if (! ABI_64_P (input_bfd)
             && ! _bfd_sparc_elf_tdata (input_bfd)->has_tlsgd)
           {
             /* R_SPARC_REV32 used the same reloc number as
               R_SPARC_TLS_GD_HI22.  */
             r_type = R_SPARC_REV32;
             break;
           }
         /* Fall through */

       case R_SPARC_TLS_GD_LO10:
       case R_SPARC_TLS_IE_HI22:
       case R_SPARC_TLS_IE_LO10:
         r_type = sparc_elf_tls_transition (info, input_bfd, r_type, h == NULL);
         tls_type = GOT_UNKNOWN;
         if (h == NULL && local_got_offsets)
           tls_type = _bfd_sparc_elf_local_got_tls_type (input_bfd) [r_symndx];
         else if (h != NULL)
           {
             tls_type = _bfd_sparc_elf_hash_entry(h)->tls_type;
             if (!info->shared && h->dynindx == -1 && tls_type == GOT_TLS_IE)
              switch (SPARC_ELF_R_TYPE (rel->r_info))
                {
                case R_SPARC_TLS_GD_HI22:
                case R_SPARC_TLS_IE_HI22:
                  r_type = R_SPARC_TLS_LE_HIX22;
                  break;
                default:
                  r_type = R_SPARC_TLS_LE_LOX10;
                  break;
                }
           }
         if (tls_type == GOT_TLS_IE)
           switch (r_type)
             {
             case R_SPARC_TLS_GD_HI22:
              r_type = R_SPARC_TLS_IE_HI22;
              break;
             case R_SPARC_TLS_GD_LO10:
              r_type = R_SPARC_TLS_IE_LO10;
              break;
             }

         if (r_type == R_SPARC_TLS_LE_HIX22)
           {
             relocation = tpoff (info, relocation);
             break;
           }
         if (r_type == R_SPARC_TLS_LE_LOX10)
           {
             /* Change add into xor.  */
             relocation = tpoff (info, relocation);
             bfd_put_32 (output_bfd, (bfd_get_32 (input_bfd,
                                             contents + rel->r_offset)
                                   | 0x80182000), contents + rel->r_offset);
             break;
           }

         if (h != NULL)
           {
             off = h->got.offset;
             h->got.offset |= 1;
           }
         else
           {
             BFD_ASSERT (local_got_offsets != NULL);
             off = local_got_offsets[r_symndx];
             local_got_offsets[r_symndx] |= 1;
           }

       r_sparc_tlsldm:
         if (htab->sgot == NULL)
           abort ();

         if ((off & 1) != 0)
           off &= ~1;
         else
           {
             Elf_Internal_Rela outrel;
             int dr_type, indx;

             if (htab->srelgot == NULL)
              abort ();

             SPARC_ELF_PUT_WORD (htab, output_bfd, 0, htab->sgot->contents + off);
             outrel.r_offset = (htab->sgot->output_section->vma
                             + htab->sgot->output_offset + off);
             indx = h && h->dynindx != -1 ? h->dynindx : 0;
             if (r_type == R_SPARC_TLS_IE_HI22
                || r_type == R_SPARC_TLS_IE_LO10)
              dr_type = SPARC_ELF_TPOFF_RELOC (htab);
             else
              dr_type = SPARC_ELF_DTPMOD_RELOC (htab);
             if (dr_type == SPARC_ELF_TPOFF_RELOC (htab) && indx == 0)
              outrel.r_addend = relocation - dtpoff_base (info);
             else
              outrel.r_addend = 0;
             outrel.r_info = SPARC_ELF_R_INFO (htab, NULL, indx, dr_type);
             sparc_elf_append_rela (output_bfd, htab->srelgot, &outrel);

             if (r_type == R_SPARC_TLS_GD_HI22
                || r_type == R_SPARC_TLS_GD_LO10)
              {
                if (indx == 0)
                  {
                    BFD_ASSERT (! unresolved_reloc);
                    SPARC_ELF_PUT_WORD (htab, output_bfd,
                                     relocation - dtpoff_base (info),
                                     (htab->sgot->contents + off
                                      + SPARC_ELF_WORD_BYTES (htab)));
                  }
                else
                  {
                    SPARC_ELF_PUT_WORD (htab, output_bfd, 0,
                                     (htab->sgot->contents + off
                                      + SPARC_ELF_WORD_BYTES (htab)));
                    outrel.r_info = SPARC_ELF_R_INFO (htab, NULL, indx,
                                                 SPARC_ELF_DTPOFF_RELOC (htab));
                    outrel.r_offset += SPARC_ELF_WORD_BYTES (htab);
                    sparc_elf_append_rela (output_bfd, htab->srelgot,
                                        &outrel);
                  }
              }
             else if (dr_type == SPARC_ELF_DTPMOD_RELOC (htab))
              {
                SPARC_ELF_PUT_WORD (htab, output_bfd, 0,
                                  (htab->sgot->contents + off
                                   + SPARC_ELF_WORD_BYTES (htab)));
              }
           }

         if (off >= (bfd_vma) -2)
           abort ();

         relocation = htab->sgot->output_offset + off - got_base;
         unresolved_reloc = FALSE;
         howto = _bfd_sparc_elf_howto_table + r_type;
         break;

       case R_SPARC_TLS_LDM_HI22:
       case R_SPARC_TLS_LDM_LO10:
         if (! info->shared)
           {
             bfd_put_32 (output_bfd, SPARC_NOP, contents + rel->r_offset);
             continue;
           }
         off = htab->tls_ldm_got.offset;
         htab->tls_ldm_got.offset |= 1;
         goto r_sparc_tlsldm;

       case R_SPARC_TLS_LDO_HIX22:
       case R_SPARC_TLS_LDO_LOX10:
         if (info->shared)
           {
             relocation -= dtpoff_base (info);
             break;
           }

         r_type = (r_type == R_SPARC_TLS_LDO_HIX22
                  ? R_SPARC_TLS_LE_HIX22 : R_SPARC_TLS_LE_LOX10);
         /* Fall through.  */

       case R_SPARC_TLS_LE_HIX22:
       case R_SPARC_TLS_LE_LOX10:
         if (info->shared)
           {
             Elf_Internal_Rela outrel;
             bfd_boolean skip, relocate = FALSE;

             BFD_ASSERT (sreloc != NULL);
             skip = FALSE;
             outrel.r_offset =
              _bfd_elf_section_offset (output_bfd, info, input_section,
                                    rel->r_offset);
             if (outrel.r_offset == (bfd_vma) -1)
              skip = TRUE;
             else if (outrel.r_offset == (bfd_vma) -2)
              skip = TRUE, relocate = TRUE;
             outrel.r_offset += (input_section->output_section->vma
                              + input_section->output_offset);
             if (skip)
              memset (&outrel, 0, sizeof outrel);
             else
              {
                outrel.r_info = SPARC_ELF_R_INFO (htab, NULL, 0, r_type);
                outrel.r_addend = relocation - dtpoff_base (info)
                                + rel->r_addend;
              }

             sparc_elf_append_rela (output_bfd, sreloc, &outrel);
             continue;
           }
         relocation = tpoff (info, relocation);
         break;

       case R_SPARC_TLS_LDM_CALL:
         if (! info->shared)
           {
             /* mov %g0, %o0 */
             bfd_put_32 (output_bfd, 0x90100000, contents + rel->r_offset);
             continue;
           }
         /* Fall through */

       case R_SPARC_TLS_GD_CALL:
         tls_type = GOT_UNKNOWN;
         if (h == NULL && local_got_offsets)
           tls_type = _bfd_sparc_elf_local_got_tls_type (input_bfd) [r_symndx];
         else if (h != NULL)
           tls_type = _bfd_sparc_elf_hash_entry(h)->tls_type;
         if (! info->shared
             || (r_type == R_SPARC_TLS_GD_CALL && tls_type == GOT_TLS_IE))
           {
             bfd_vma insn;

             if (!info->shared && (h == NULL || h->dynindx == -1))
              {
                /* GD -> LE */
                bfd_put_32 (output_bfd, SPARC_NOP, contents + rel->r_offset);
                continue;
              }

             /* GD -> IE */
             if (rel + 1 < relend
                && SPARC_ELF_R_TYPE (rel[1].r_info) == R_SPARC_TLS_GD_ADD
                && rel[1].r_offset == rel->r_offset + 4
                && SPARC_ELF_R_SYMNDX (htab, rel[1].r_info) == r_symndx
                && (((insn = bfd_get_32 (input_bfd,
                                      contents + rel[1].r_offset))
                     >> 25) & 0x1f) == 8)
              {
                /* We have
                   call __tls_get_addr, %tgd_call(foo)
                    add %reg1, %reg2, %o0, %tgd_add(foo)
                   and change it into IE:
                   {ld,ldx} [%reg1 + %reg2], %o0, %tie_ldx(foo)
                   add %g7, %o0, %o0, %tie_add(foo).
                   add is 0x80000000 | (rd << 25) | (rs1 << 14) | rs2,
                   ld is 0xc0000000 | (rd << 25) | (rs1 << 14) | rs2,
                   ldx is 0xc0580000 | (rd << 25) | (rs1 << 14) | rs2.  */
                bfd_put_32 (output_bfd, insn | (ABI_64_P (output_bfd) ? 0xc0580000 : 0xc0000000),
                           contents + rel->r_offset);
                bfd_put_32 (output_bfd, 0x9001c008,
                           contents + rel->r_offset + 4);
                rel++;
                continue;
              }

             bfd_put_32 (output_bfd, 0x9001c008, contents + rel->r_offset);
             continue;
           }

         h = (struct elf_link_hash_entry *)
             bfd_link_hash_lookup (info->hash, "__tls_get_addr", FALSE,
                                FALSE, TRUE);
         BFD_ASSERT (h != NULL);
         r_type = R_SPARC_WPLT30;
         howto = _bfd_sparc_elf_howto_table + r_type;
         goto r_sparc_wplt30;

       case R_SPARC_TLS_GD_ADD:
         tls_type = GOT_UNKNOWN;
         if (h == NULL && local_got_offsets)
           tls_type = _bfd_sparc_elf_local_got_tls_type (input_bfd) [r_symndx];
         else if (h != NULL)
           tls_type = _bfd_sparc_elf_hash_entry(h)->tls_type;
         if (! info->shared || tls_type == GOT_TLS_IE)
           {
             /* add %reg1, %reg2, %reg3, %tgd_add(foo)
               changed into IE:
               {ld,ldx} [%reg1 + %reg2], %reg3, %tie_ldx(foo)
               or LE:
               add %g7, %reg2, %reg3.  */
             bfd_vma insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
             if ((h != NULL && h->dynindx != -1) || info->shared)
              relocation = insn | (ABI_64_P (output_bfd) ? 0xc0580000 : 0xc0000000);
             else
              relocation = (insn & ~0x7c000) | 0x1c000;
             bfd_put_32 (output_bfd, relocation, contents + rel->r_offset);
           }
         continue;

       case R_SPARC_TLS_LDM_ADD:
         if (! info->shared)
           bfd_put_32 (output_bfd, SPARC_NOP, contents + rel->r_offset);
         continue;

       case R_SPARC_TLS_LDO_ADD:
         if (! info->shared)
           {
             /* Change rs1 into %g7.  */
             bfd_vma insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
             insn = (insn & ~0x7c000) | 0x1c000;
             bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
           }
         continue;

       case R_SPARC_TLS_IE_LD:
       case R_SPARC_TLS_IE_LDX:
         if (! info->shared && (h == NULL || h->dynindx == -1))
           {
             bfd_vma insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
             int rs2 = insn & 0x1f;
             int rd = (insn >> 25) & 0x1f;

             if (rs2 == rd)
              relocation = SPARC_NOP;
             else
              relocation = 0x80100000 | (insn & 0x3e00001f);
             bfd_put_32 (output_bfd, relocation, contents + rel->r_offset);
           }
         continue;

       case R_SPARC_TLS_IE_ADD:
         /* Totally useless relocation.  */
         continue;

       case R_SPARC_TLS_DTPOFF32:
       case R_SPARC_TLS_DTPOFF64:
         relocation -= dtpoff_base (info);
         break;

       default:
         break;
       }

      /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
        because such sections are not SEC_ALLOC and thus ld.so will
        not process them.  */
      if (unresolved_reloc
         && !((input_section->flags & SEC_DEBUGGING) != 0
              && h->def_dynamic))
       (*_bfd_error_handler)
         (_("%B(%A+0x%lx): unresolvable %s relocation against symbol `%s'"),
          input_bfd,
          input_section,
          (long) rel->r_offset,
          howto->name,
          h->root.root.string);

      r = bfd_reloc_continue;
      if (r_type == R_SPARC_OLO10)
       {
           bfd_vma x;

           if (! ABI_64_P (output_bfd))
             abort ();

           relocation += rel->r_addend;
           relocation = (relocation & 0x3ff) + ELF64_R_TYPE_DATA (rel->r_info);

           x = bfd_get_32 (input_bfd, contents + rel->r_offset);
           x = (x & ~(bfd_vma) 0x1fff) | (relocation & 0x1fff);
           bfd_put_32 (input_bfd, x, contents + rel->r_offset);

           r = bfd_check_overflow (howto->complain_on_overflow,
                                howto->bitsize, howto->rightshift,
                                bfd_arch_bits_per_address (input_bfd),
                                relocation);
       }
      else if (r_type == R_SPARC_WDISP16)
       {
         bfd_vma x;

         relocation += rel->r_addend;
         relocation -= (input_section->output_section->vma
                      + input_section->output_offset);
         relocation -= rel->r_offset;

         x = bfd_get_32 (input_bfd, contents + rel->r_offset);
         x |= ((((relocation >> 2) & 0xc000) << 6)
              | ((relocation >> 2) & 0x3fff));
         bfd_put_32 (input_bfd, x, contents + rel->r_offset);

         r = bfd_check_overflow (howto->complain_on_overflow,
                              howto->bitsize, howto->rightshift,
                              bfd_arch_bits_per_address (input_bfd),
                              relocation);
       }
      else if (r_type == R_SPARC_REV32)
       {
         bfd_vma x;

         relocation = relocation + rel->r_addend;

         x = bfd_get_32 (input_bfd, contents + rel->r_offset);
         x = x + relocation;
         bfd_putl32 (/*input_bfd,*/ x, contents + rel->r_offset);
         r = bfd_reloc_ok;
       }
      else if (r_type == R_SPARC_TLS_LDO_HIX22
              || r_type == R_SPARC_TLS_LE_HIX22)
       {
         bfd_vma x;

         relocation += rel->r_addend;
         if (r_type == R_SPARC_TLS_LE_HIX22)
           relocation ^= MINUS_ONE;

         x = bfd_get_32 (input_bfd, contents + rel->r_offset);
         x = (x & ~(bfd_vma) 0x3fffff) | ((relocation >> 10) & 0x3fffff);
         bfd_put_32 (input_bfd, x, contents + rel->r_offset);
         r = bfd_reloc_ok;
       }
      else if (r_type == R_SPARC_TLS_LDO_LOX10
              || r_type == R_SPARC_TLS_LE_LOX10)
       {
         bfd_vma x;

         relocation += rel->r_addend;
         relocation &= 0x3ff;
         if (r_type == R_SPARC_TLS_LE_LOX10)
           relocation |= 0x1c00;

         x = bfd_get_32 (input_bfd, contents + rel->r_offset);
         x = (x & ~(bfd_vma) 0x1fff) | relocation;
         bfd_put_32 (input_bfd, x, contents + rel->r_offset);

         r = bfd_reloc_ok;
       }
      else if (r_type == R_SPARC_HIX22)
       {
         bfd_vma x;

         relocation += rel->r_addend;
         relocation = relocation ^ MINUS_ONE;

         x = bfd_get_32 (input_bfd, contents + rel->r_offset);
         x = (x & ~(bfd_vma) 0x3fffff) | ((relocation >> 10) & 0x3fffff);
         bfd_put_32 (input_bfd, x, contents + rel->r_offset);

         r = bfd_check_overflow (howto->complain_on_overflow,
                              howto->bitsize, howto->rightshift,
                              bfd_arch_bits_per_address (input_bfd),
                              relocation);
       }
      else if (r_type == R_SPARC_LOX10)
       {
         bfd_vma x;

         relocation += rel->r_addend;
         relocation = (relocation & 0x3ff) | 0x1c00;

         x = bfd_get_32 (input_bfd, contents + rel->r_offset);
         x = (x & ~(bfd_vma) 0x1fff) | relocation;
         bfd_put_32 (input_bfd, x, contents + rel->r_offset);

         r = bfd_reloc_ok;
       }
      else if ((r_type == R_SPARC_WDISP30 || r_type == R_SPARC_WPLT30)
              && sec_do_relax (input_section)
              && rel->r_offset + 4 < input_section->size)
       {
#define G0           0
#define O7           15
#define XCC          (2 << 20)
#define COND(x)             (((x)&0xf)<<25)
#define CONDA        COND(0x8)
#define INSN_BPA     (F2(0,1) | CONDA | BPRED | XCC)
#define INSN_BA             (F2(0,2) | CONDA)
#define INSN_OR             F3(2, 0x2, 0)
#define INSN_NOP     F2(0,4)

         bfd_vma x, y;

         /* If the instruction is a call with either:
            restore
            arithmetic instruction with rd == %o7
            where rs1 != %o7 and rs2 if it is register != %o7
            then we can optimize if the call destination is near
            by changing the call into a branch always.  */
         x = bfd_get_32 (input_bfd, contents + rel->r_offset);
         y = bfd_get_32 (input_bfd, contents + rel->r_offset + 4);
         if ((x & OP(~0)) == OP(1) && (y & OP(~0)) == OP(2))
           {
             if (((y & OP3(~0)) == OP3(0x3d) /* restore */
                 || ((y & OP3(0x28)) == 0 /* arithmetic */
                     && (y & RD(~0)) == RD(O7)))
                && (y & RS1(~0)) != RS1(O7)
                && ((y & F3I(~0))
                    || (y & RS2(~0)) != RS2(O7)))
              {
                bfd_vma reloc;

                reloc = relocation + rel->r_addend - rel->r_offset;
                reloc -= (input_section->output_section->vma
                         + input_section->output_offset);

                /* Ensure the branch fits into simm22.  */
                if ((reloc & 3) == 0
                    && ((reloc & ~(bfd_vma)0x7fffff) == 0
                       || ((reloc | 0x7fffff) == ~(bfd_vma)0)))
                  {
                    reloc >>= 2;

                    /* Check whether it fits into simm19.  */
                    if (((reloc & 0x3c0000) == 0
                        || (reloc & 0x3c0000) == 0x3c0000)
                       && (ABI_64_P (output_bfd)
                           || elf_elfheader (output_bfd)->e_flags & EF_SPARC_32PLUS))
                     x = INSN_BPA | (reloc & 0x7ffff); /* ba,pt %xcc */
                    else
                     x = INSN_BA | (reloc & 0x3fffff); /* ba */
                    bfd_put_32 (input_bfd, x, contents + rel->r_offset);
                    r = bfd_reloc_ok;
                    if (rel->r_offset >= 4
                       && (y & (0xffffffff ^ RS1(~0)))
                          == (INSN_OR | RD(O7) | RS2(G0)))
                     {
                       bfd_vma z;
                       unsigned int reg;

                       z = bfd_get_32 (input_bfd,
                                     contents + rel->r_offset - 4);
                       if ((z & (0xffffffff ^ RD(~0)))
                           != (INSN_OR | RS1(O7) | RS2(G0)))
                         break;

                       /* The sequence was
                          or %o7, %g0, %rN
                          call foo
                          or %rN, %g0, %o7

                          If call foo was replaced with ba, replace
                          or %rN, %g0, %o7 with nop.  */

                       reg = (y & RS1(~0)) >> 14;
                       if (reg != ((z & RD(~0)) >> 25)
                           || reg == G0 || reg == O7)
                         break;

                       bfd_put_32 (input_bfd, (bfd_vma) INSN_NOP,
                                  contents + rel->r_offset + 4);
                     }

                  }
              }
           }
       }

      if (r == bfd_reloc_continue)
       r = _bfd_final_link_relocate (howto, input_bfd, input_section,
                                  contents, rel->r_offset,
                                  relocation, rel->r_addend);

      if (r != bfd_reloc_ok)
       {
         switch (r)
           {
           default:
           case bfd_reloc_outofrange:
             abort ();
           case bfd_reloc_overflow:
             {
              const char *name;

              /* The Solaris native linker silently disregards overflows. 
                 We don't, but this breaks stabs debugging info, whose
                 relocations are only 32-bits wide.  Ignore overflows in
                 this case and also for discarded entries.  */
              if ((r_type == R_SPARC_32 || r_type == R_SPARC_DISP32)
                  && (((input_section->flags & SEC_DEBUGGING) != 0
                      && strcmp (bfd_section_name (input_bfd,
                                                input_section),
                                ".stab") == 0)
                     || _bfd_elf_section_offset (output_bfd, info,
                                              input_section,
                                              rel->r_offset)
                          == (bfd_vma)-1))
                break;

              if (h != NULL)
                {
                  /* Assume this is a call protected by other code that
                     detect the symbol is undefined.  If this is the case,
                     we can safely ignore the overflow.  If not, the
                     program is hosed anyway, and a little warning isn't
                     going to help.  */
                  if (h->root.type == bfd_link_hash_undefweak
                     && howto->pc_relative)
                    break;

                   name = NULL;
                }
              else
                {
                  name = bfd_elf_string_from_elf_section (input_bfd,
                                                     symtab_hdr->sh_link,
                                                     sym->st_name);
                  if (name == NULL)
                    return FALSE;
                  if (*name == '\0')
                    name = bfd_section_name (input_bfd, sec);
                }
              if (! ((*info->callbacks->reloc_overflow)
                     (info, (h ? &h->root : NULL), name, howto->name,
                     (bfd_vma) 0, input_bfd, input_section,
                     rel->r_offset)))
                return FALSE;
             }
             break;
           }
       }
    }

  return TRUE;
}

Here is the call graph for this function:

Definition at line 2139 of file elfxx-sparc.c.

{
  struct _bfd_sparc_elf_link_hash_table *htab;
  bfd *dynobj;
  asection *s;
  bfd *ibfd;

  htab = _bfd_sparc_elf_hash_table (info);
  dynobj = htab->elf.dynobj;
  BFD_ASSERT (dynobj != NULL);

  if (elf_hash_table (info)->dynamic_sections_created)
    {
      /* Set the contents of the .interp section to the interpreter.  */
      if (info->executable)
       {
         s = bfd_get_section_by_name (dynobj, ".interp");
         BFD_ASSERT (s != NULL);
         s->size = htab->dynamic_interpreter_size;
         s->contents = (unsigned char *) htab->dynamic_interpreter;
       }
    }

  /* Set up .got offsets for local syms, and space for local dynamic
     relocs.  */
  for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
    {
      bfd_signed_vma *local_got;
      bfd_signed_vma *end_local_got;
      char *local_tls_type;
      bfd_size_type locsymcount;
      Elf_Internal_Shdr *symtab_hdr;
      asection *srel;

      if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour)
       continue;

      for (s = ibfd->sections; s != NULL; s = s->next)
       {
         struct _bfd_sparc_elf_dyn_relocs *p;

         for (p = elf_section_data (s)->local_dynrel; p != NULL; p = p->next)
           {
             if (!bfd_is_abs_section (p->sec)
                && bfd_is_abs_section (p->sec->output_section))
              {
                /* Input section has been discarded, either because
                   it is a copy of a linkonce section or due to
                   linker script /DISCARD/, so we'll be discarding
                   the relocs too.  */
              }
             else if (p->count != 0)
              {
                srel = elf_section_data (p->sec)->sreloc;
                srel->size += p->count * SPARC_ELF_RELA_BYTES (htab);
                if ((p->sec->output_section->flags & SEC_READONLY) != 0)
                  info->flags |= DF_TEXTREL;
              }
           }
       }

      local_got = elf_local_got_refcounts (ibfd);
      if (!local_got)
       continue;

      symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
      locsymcount = symtab_hdr->sh_info;
      end_local_got = local_got + locsymcount;
      local_tls_type = _bfd_sparc_elf_local_got_tls_type (ibfd);
      s = htab->sgot;
      srel = htab->srelgot;
      for (; local_got < end_local_got; ++local_got, ++local_tls_type)
       {
         if (*local_got > 0)
           {
             *local_got = s->size;
             s->size += SPARC_ELF_WORD_BYTES (htab);
             if (*local_tls_type == GOT_TLS_GD)
              s->size += SPARC_ELF_WORD_BYTES (htab);
             if (info->shared
                || *local_tls_type == GOT_TLS_GD
                || *local_tls_type == GOT_TLS_IE)
              srel->size += SPARC_ELF_RELA_BYTES (htab);
           }
         else
           *local_got = (bfd_vma) -1;
       }
    }

  if (htab->tls_ldm_got.refcount > 0)
    {
      /* Allocate 2 got entries and 1 dynamic reloc for
        R_SPARC_TLS_LDM_{HI22,LO10} relocs.  */
      htab->tls_ldm_got.offset = htab->sgot->size;
      htab->sgot->size += (2 * SPARC_ELF_WORD_BYTES (htab));
      htab->srelgot->size += SPARC_ELF_RELA_BYTES (htab);
    }
  else
    htab->tls_ldm_got.offset = -1;

  /* Allocate global sym .plt and .got entries, and space for global
     sym dynamic relocs.  */
  elf_link_hash_traverse (&htab->elf, allocate_dynrelocs, (PTR) info);

  if (! ABI_64_P (output_bfd)
      && !htab->is_vxworks
      && elf_hash_table (info)->dynamic_sections_created)
    {
      /* Make space for the trailing nop in .plt.  */
      if (htab->splt->size > 0)
       htab->splt->size += 1 * SPARC_INSN_BYTES;

      /* If the .got section is more than 0x1000 bytes, we add
        0x1000 to the value of _GLOBAL_OFFSET_TABLE_, so that 13
        bit relocations have a greater chance of working.

        FIXME: Make this optimization work for 64-bit too.  */
      if (htab->sgot->size >= 0x1000
         && elf_hash_table (info)->hgot->root.u.def.value == 0)
       elf_hash_table (info)->hgot->root.u.def.value = 0x1000;
    }

  /* The check_relocs and adjust_dynamic_symbol entry points have
     determined the sizes of the various dynamic sections.  Allocate
     memory for them.  */
  for (s = dynobj->sections; s != NULL; s = s->next)
    {
      if ((s->flags & SEC_LINKER_CREATED) == 0)
       continue;

      if (s == htab->splt
         || s == htab->sgot
         || s == htab->sdynbss
         || s == htab->sgotplt)
       {
         /* Strip this section if we don't need it; see the
            comment below.  */
       }
      else if (CONST_STRNEQ (s->name, ".rela"))
       {
         if (s->size != 0)
           {
             /* We use the reloc_count field as a counter if we need
               to copy relocs into the output file.  */
             s->reloc_count = 0;
           }
       }
      else
       {
         /* It's not one of our sections.  */
         continue;
       }

      if (s->size == 0)
       {
         /* If we don't need this section, strip it from the
            output file.  This is mostly to handle .rela.bss and
            .rela.plt.  We must create both sections in
            create_dynamic_sections, because they must be created
            before the linker maps input sections to output
            sections.  The linker does that before
            adjust_dynamic_symbol is called, and it is that
            function which decides whether anything needs to go
            into these sections.  */
         s->flags |= SEC_EXCLUDE;
         continue;
       }

      if ((s->flags & SEC_HAS_CONTENTS) == 0)
       continue;

      /* Allocate memory for the section contents.  Zero the memory
        for the benefit of .rela.plt, which has 4 unused entries
        at the beginning, and we don't want garbage.  */
      s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->size);
      if (s->contents == NULL)
       return FALSE;
    }

  if (elf_hash_table (info)->dynamic_sections_created)
    {
      /* Add some entries to the .dynamic section.  We fill in the
        values later, in _bfd_sparc_elf_finish_dynamic_sections, but we
        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_elf_add_dynamic_entry (info, TAG, VAL)

      if (info->executable)
       {
         if (!add_dynamic_entry (DT_DEBUG, 0))
           return FALSE;
       }

      if (htab->srelplt->size != 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 (!add_dynamic_entry (DT_RELA, 0)
         || !add_dynamic_entry (DT_RELASZ, 0)
         || !add_dynamic_entry (DT_RELAENT,
                             SPARC_ELF_RELA_BYTES (htab)))
       return FALSE;

      /* If any dynamic relocs apply to a read-only section,
        then we need a DT_TEXTREL entry.  */
      if ((info->flags & DF_TEXTREL) == 0)
       elf_link_hash_traverse (&htab->elf, readonly_dynrelocs,
                            (PTR) info);

      if (info->flags & DF_TEXTREL)
       {
         if (!add_dynamic_entry (DT_TEXTREL, 0))
           return FALSE;
       }

      if (ABI_64_P (output_bfd))
       {
         int reg;
         struct _bfd_sparc_elf_app_reg * app_regs;
         struct elf_strtab_hash *dynstr;
         struct elf_link_hash_table *eht = elf_hash_table (info);

         /* Add dynamic STT_REGISTER symbols and corresponding DT_SPARC_REGISTER
            entries if needed.  */
         app_regs = _bfd_sparc_elf_hash_table (info)->app_regs;
         dynstr = eht->dynstr;

         for (reg = 0; reg < 4; reg++)
           if (app_regs [reg].name != NULL)
             {
              struct elf_link_local_dynamic_entry *entry, *e;

              if (!add_dynamic_entry (DT_SPARC_REGISTER, 0))
                return FALSE;

              entry = (struct elf_link_local_dynamic_entry *)
                bfd_hash_allocate (&info->hash->table, sizeof (*entry));
              if (entry == NULL)
                return FALSE;

              /* We cheat here a little bit: the symbol will not be local, so we
                 put it at the end of the dynlocal linked list.  We will fix it
                 later on, as we have to fix other fields anyway.  */
              entry->isym.st_value = reg < 2 ? reg + 2 : reg + 4;
              entry->isym.st_size = 0;
              if (*app_regs [reg].name != '\0')
                entry->isym.st_name
                  = _bfd_elf_strtab_add (dynstr, app_regs[reg].name, FALSE);
              else
                entry->isym.st_name = 0;
              entry->isym.st_other = 0;
              entry->isym.st_info = ELF_ST_INFO (app_regs [reg].bind,
                                             STT_REGISTER);
              entry->isym.st_shndx = app_regs [reg].shndx;
              entry->next = NULL;
              entry->input_bfd = output_bfd;
              entry->input_indx = -1;

              if (eht->dynlocal == NULL)
                eht->dynlocal = entry;
              else
                {
                  for (e = eht->dynlocal; e->next; e = e->next)
                    ;
                  e->next = entry;
                }
              eht->dynsymcount++;
             }
       }
    }
#undef add_dynamic_entry

  return TRUE;
}

Here is the call graph for this function: