* elflink.h (elf_link_input_bfd): Discard local symbols that are
[deliverable/binutils-gdb.git] / bfd / elflink.h
index a1b4b149cc7b3e91e06e324af02dfce9b18377c5..dd5b4db72637be11cdedeb8c1889fc4d7f7163c9 100644 (file)
@@ -1,5 +1,5 @@
 /* ELF linker support.
-   Copyright 1995, 1996 Free Software Foundation, Inc.
+   Copyright 1995, 1996, 1997 Free Software Foundation, Inc.
 
 This file is part of BFD, the Binary File Descriptor library.
 
@@ -23,8 +23,6 @@ static boolean elf_link_add_object_symbols
   PARAMS ((bfd *, struct bfd_link_info *));
 static boolean elf_link_add_archive_symbols
   PARAMS ((bfd *, struct bfd_link_info *));
-static Elf_Internal_Rela *elf_link_read_relocs
-  PARAMS ((bfd *, asection *, PTR, Elf_Internal_Rela *, boolean));
 static boolean elf_export_symbol
   PARAMS ((struct elf_link_hash_entry *, PTR));
 static boolean elf_adjust_dynamic_symbol
@@ -37,7 +35,7 @@ struct elf_info_failed
 {
   boolean failed;
   struct bfd_link_info *info;
-};  
+};
 
 /* Given an ELF BFD, add symbols to the global hash table as
    appropriate.  */
@@ -283,7 +281,7 @@ elf_link_add_object_symbols (abfd, info)
                goto error_return;
 
              if (! (_bfd_generic_link_add_one_symbol
-                    (info, abfd, 
+                    (info, abfd,
                      name + sizeof ".gnu.warning." - 1,
                      BSF_WARNING, s, (bfd_vma) 0, msg, false, collect,
                      (struct bfd_link_hash_entry **) NULL)))
@@ -380,15 +378,15 @@ elf_link_add_object_symbols (abfd, info)
       /* Find the name to use in a DT_NEEDED entry that refers to this
         object.  If the object has a DT_SONAME entry, we use it.
         Otherwise, if the generic linker stuck something in
-        elf_dt_needed_name, we use that.  Otherwise, we just use the
-        file name.  If the generic linker put a null string into
-        elf_dt_needed_name, we don't make a DT_NEEDED entry at all,
-        even if there is a DT_SONAME entry.  */
+        elf_dt_name, we use that.  Otherwise, we just use the file
+        name.  If the generic linker put a null string into
+        elf_dt_name, we don't make a DT_NEEDED entry at all, even if
+        there is a DT_SONAME entry.  */
       add_needed = true;
       name = bfd_get_filename (abfd);
-      if (elf_dt_needed_name (abfd) != NULL)
+      if (elf_dt_name (abfd) != NULL)
        {
-         name = elf_dt_needed_name (abfd);
+         name = elf_dt_name (abfd);
          if (*name == '\0')
            add_needed = false;
        }
@@ -420,7 +418,7 @@ elf_link_add_object_symbols (abfd, info)
              Elf_Internal_Dyn dyn;
 
              elf_swap_dyn_in (abfd, extdyn, &dyn);
-             if (add_needed && dyn.d_tag == DT_SONAME)
+             if (dyn.d_tag == DT_SONAME)
                {
                  name = bfd_elf_string_from_elf_section (abfd, link,
                                                          dyn.d_un.d_val);
@@ -520,6 +518,12 @@ elf_link_add_object_symbols (abfd, info)
          if (! elf_add_dynamic_entry (info, DT_NEEDED, strindex))
            goto error_return;
        }
+
+      /* Save the SONAME, if there is one, because sometimes the
+         linker emulation code will need to know it.  */
+      if (*name == '\0')
+       name = bfd_get_filename (abfd);
+      elf_dt_name (abfd) = name;
     }
 
   if (bfd_seek (abfd,
@@ -637,12 +641,20 @@ elf_link_add_object_symbols (abfd, info)
             the dynamic object handling right.  We pass the hash
             table entry in to _bfd_generic_link_add_one_symbol so
             that it does not have to look it up again.  */
-         h = elf_link_hash_lookup (elf_hash_table (info), name,
-                                   true, false, false);
+         if (! bfd_is_und_section (sec))
+           h = elf_link_hash_lookup (elf_hash_table (info), name,
+                                     true, false, false);
+         else
+           h = ((struct elf_link_hash_entry *)
+                bfd_wrapped_link_hash_lookup (abfd, info, name, true,
+                                              false, false));
          if (h == NULL)
            goto error_return;
          *sym_hash = h;
 
+         if (h->root.type == bfd_link_hash_new)
+           h->elf_link_hash_flags &=~ ELF_LINK_NON_ELF;
+
          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;
@@ -665,17 +677,25 @@ elf_link_add_object_symbols (abfd, info)
             by some other object.  If it has, we want to use the
             existing definition, and we do not want to report a
             multiple symbol definition error; we do this by
-            clobbering sec to be bfd_und_section_ptr.  */
+            clobbering sec to be bfd_und_section_ptr.  We treat a
+            common symbol as a definition if the symbol in the shared
+            library is a function, since common symbols always
+            represent variables; this can cause confusion in
+            principle, but any such confusion would seem to indicate
+            an erroneous program or shared library.  */
          if (dynamic && definition)
            {
              if (h->root.type == bfd_link_hash_defined
                  || h->root.type == bfd_link_hash_defweak
                  || (h->root.type == bfd_link_hash_common
-                     && bind == STB_WEAK))
+                     && (bind == STB_WEAK
+                         || ELF_ST_TYPE (sym.st_info) == STT_FUNC)))
                {
                  sec = bfd_und_section_ptr;
                  definition = false;
                  size_change_ok = true;
+                 if (h->root.type == bfd_link_hash_common)
+                   type_change_ok = true;
                }
            }
 
@@ -686,7 +706,10 @@ elf_link_add_object_symbols (abfd, info)
             objects, even if they are defined after the dynamic
             object in the link.  */
          if (! dynamic
-             && definition
+             && (definition
+                 || (bfd_is_com_section (sec)
+                     && (h->root.type == bfd_link_hash_defweak
+                         || h->type == STT_FUNC)))
              && (h->root.type == bfd_link_hash_defined
                  || h->root.type == bfd_link_hash_defweak)
              && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) != 0
@@ -701,6 +724,8 @@ elf_link_add_object_symbols (abfd, info)
              h->root.type = bfd_link_hash_undefined;
              h->root.u.undef.abfd = h->root.u.def.section->owner;
              size_change_ok = true;
+             if (bfd_is_com_section (sec))
+               type_change_ok = true;
            }
        }
 
@@ -777,12 +802,15 @@ elf_link_add_object_symbols (abfd, info)
              h->type = ELF_ST_TYPE (sym.st_info);
            }
 
+         if (sym.st_other != 0
+             && (definition || h->other == 0))
+           h->other = sym.st_other;
+
          /* Set a flag in the hash table entry indicating the type of
             reference or definition we just found.  Keep a count of
             the number of dynamic symbols we find.  A dynamic symbol
             is one which is referenced or defined by both a regular
-            object and a shared object, or one which is referenced or
-            defined by more than one shared object.  */
+            object and a shared object.  */
          old_flags = h->elf_link_hash_flags;
          dynsym = false;
          if (! dynamic)
@@ -802,12 +830,11 @@ elf_link_add_object_symbols (abfd, info)
                new_flag = ELF_LINK_HASH_REF_DYNAMIC;
              else
                new_flag = ELF_LINK_HASH_DEF_DYNAMIC;
-             if ((old_flags & new_flag) != 0
-                 || (old_flags & (ELF_LINK_HASH_DEF_REGULAR
-                                  | ELF_LINK_HASH_REF_REGULAR)) != 0
+             if ((old_flags & (ELF_LINK_HASH_DEF_REGULAR
+                               | ELF_LINK_HASH_REF_REGULAR)) != 0
                  || (h->weakdef != NULL
-                     && (old_flags & (ELF_LINK_HASH_DEF_DYNAMIC
-                                      | ELF_LINK_HASH_REF_DYNAMIC)) != 0))
+                     && ! new_weakdef
+                     && h->weakdef->dynindx != -1))
                dynsym = true;
            }
 
@@ -868,8 +895,7 @@ elf_link_add_object_symbols (abfd, info)
 
          h = *hpp;
          if (h != NULL && h != hlook
-             && (h->root.type == bfd_link_hash_defined
-                 || h->root.type == bfd_link_hash_defweak)
+             && h->root.type == bfd_link_hash_defined
              && h->root.u.def.section == slook
              && h->root.u.def.value == vlook)
            {
@@ -885,6 +911,18 @@ elf_link_add_object_symbols (abfd, info)
                    goto error_return;
                }
 
+             /* If the real definition is in the list of dynamic
+                 symbols, make sure the weak definition is put there
+                 as well.  If we don't do this, then the dynamic
+                 loader might not merge the entries for the real
+                 definition and the weak definition.  */
+             if (h->dynindx != -1
+                 && hlook->dynindx == -1)
+               {
+                 if (! _bfd_elf_link_record_dynamic_symbol (info, hlook))
+                   goto error_return;
+               }
+
              break;
            }
        }
@@ -929,15 +967,10 @@ elf_link_add_object_symbols (abfd, info)
              || o->reloc_count == 0)
            continue;
 
-         /* I believe we can ignore the relocs for any section which
-             does not form part of the final process image, such as a
-             debugging section.  */
-         if ((o->flags & SEC_ALLOC) == 0)
-           continue;
-
-         internal_relocs = elf_link_read_relocs (abfd, o, (PTR) NULL,
-                                                 (Elf_Internal_Rela *) NULL,
-                                                 info->keep_memory);
+         internal_relocs = (NAME(_bfd_elf,link_read_relocs)
+                            (abfd, o, (PTR) NULL,
+                             (Elf_Internal_Rela *) NULL,
+                             info->keep_memory));
          if (internal_relocs == NULL)
            goto error_return;
 
@@ -951,6 +984,35 @@ elf_link_add_object_symbols (abfd, info)
        }
     }
 
+  /* If this is a non-traditional, non-relocateable link, try to
+     optimize the handling of the .stab/.stabstr sections.  */
+  if (! dynamic
+      && ! info->relocateable
+      && ! info->traditional_format
+      && info->hash->creator->flavour == bfd_target_elf_flavour
+      && (info->strip != strip_all && info->strip != strip_debugger))
+    {
+      asection *stab, *stabstr;
+
+      stab = bfd_get_section_by_name (abfd, ".stab");
+      if (stab != NULL)
+       {
+         stabstr = bfd_get_section_by_name (abfd, ".stabstr");
+
+         if (stabstr != NULL)
+           {
+             struct bfd_elf_section_data *secdata;
+
+             secdata = elf_section_data (stab);
+             if (! _bfd_link_section_stabs (abfd,
+                                            &elf_hash_table (info)->stab_info,
+                                            stab, stabstr,
+                                            &secdata->stab_info))
+               goto error_return;
+           }
+       }
+    }
+
   return true;
 
  error_return:
@@ -989,7 +1051,8 @@ elf_link_create_dynamic_sections (abfd, info)
 
   /* Note that we set the SEC_IN_MEMORY flag for all of these
      sections.  */
-  flags = SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY;
+  flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS
+          | SEC_IN_MEMORY | SEC_LINKER_CREATED);
 
   /* A dynamically linked executable has a .interp section, but a
      shared library does not.  */
@@ -1108,8 +1171,9 @@ elf_add_dynamic_entry (info, tag, val)
    value is allocated using either malloc or bfd_alloc, according to
    the KEEP_MEMORY argument.  */
 
-static Elf_Internal_Rela *
-elf_link_read_relocs (abfd, o, external_relocs, internal_relocs, keep_memory)
+Elf_Internal_Rela *
+NAME(_bfd_elf,link_read_relocs) (abfd, o, external_relocs, internal_relocs,
+                                keep_memory)
      bfd *abfd;
      asection *o;
      PTR external_relocs;
@@ -1194,7 +1258,7 @@ elf_link_read_relocs (abfd, o, external_relocs, internal_relocs, keep_memory)
   /* Cache the results for next time, if we can.  */
   if (keep_memory)
     elf_section_data (o)->relocs = internal_relocs;
-                
+
   if (alloc1 != NULL)
     free (alloc1);
 
@@ -1232,6 +1296,9 @@ NAME(bfd_elf,record_link_assignment) (output_bfd, info, name, provide)
   if (h == NULL)
     return false;
 
+  if (h->root.type == bfd_link_hash_new)
+    h->elf_link_hash_flags &=~ ELF_LINK_NON_ELF;
+
   /* If this symbol is being provided by the linker script, and it is
      currently defined by a dynamic object, but not by a regular
      object, then mark it as undefined so that the generic linker will
@@ -1271,11 +1338,12 @@ NAME(bfd_elf,record_link_assignment) (output_bfd, info, name, provide)
    based on the number of symbols there are.  If there are fewer than
    3 symbols we use 1 bucket, fewer than 17 symbols we use 3 buckets,
    fewer than 37 we use 17 buckets, and so forth.  We never use more
-   than 521 buckets.  */
+   than 32771 buckets.  */
 
 static const size_t elf_buckets[] =
 {
-  1, 3, 17, 37, 67, 97, 131, 197, 263, 521, 0
+  1, 3, 17, 37, 67, 97, 131, 197, 263, 521, 1031, 2053, 4099, 8209,
+  16411, 32771, 0
 };
 
 /* Set up the sizes and contents of the ELF dynamic sections.  This is
@@ -1285,11 +1353,14 @@ static const size_t elf_buckets[] =
 
 boolean
 NAME(bfd_elf,size_dynamic_sections) (output_bfd, soname, rpath,
-                                    export_dynamic, info, sinterpptr)
+                                    export_dynamic, filter_shlib,
+                                    auxiliary_filters, info, sinterpptr)
      bfd *output_bfd;
      const char *soname;
      const char *rpath;
      boolean export_dynamic;
+     const char *filter_shlib;
+     const char * const *auxiliary_filters;
      struct bfd_link_info *info;
      asection **sinterpptr;
 {
@@ -1301,6 +1372,13 @@ NAME(bfd_elf,size_dynamic_sections) (output_bfd, soname, rpath,
   if (info->hash->creator->flavour != bfd_target_elf_flavour)
     return true;
 
+  /* The backend may have to create some sections regardless of whether
+     we're dynamic or not.  */
+  bed = get_elf_backend_data (output_bfd);
+  if (bed->elf_backend_always_size_sections
+      && ! (*bed->elf_backend_always_size_sections) (output_bfd, info))
+    return false;
+
   dynobj = elf_hash_table (info)->dynobj;
 
   /* If there were no dynamic objects in the link, there is nothing to
@@ -1340,7 +1418,7 @@ NAME(bfd_elf,size_dynamic_sections) (output_bfd, soname, rpath,
          if (indx == (bfd_size_type) -1
              || ! elf_add_dynamic_entry (info, DT_SONAME, indx))
            return false;
-       }      
+       }
 
       if (info->symbolic)
        {
@@ -1359,6 +1437,33 @@ NAME(bfd_elf,size_dynamic_sections) (output_bfd, soname, rpath,
            return false;
        }
 
+      if (filter_shlib != NULL)
+       {
+         bfd_size_type indx;
+
+         indx = _bfd_stringtab_add (elf_hash_table (info)->dynstr,
+                                    filter_shlib, true, true);
+         if (indx == (bfd_size_type) -1
+             || ! elf_add_dynamic_entry (info, DT_FILTER, indx))
+           return false;
+       }
+
+      if (auxiliary_filters != NULL)
+       {
+         const char * const *p;
+
+         for (p = auxiliary_filters; *p != NULL; p++)
+           {
+             bfd_size_type indx;
+
+             indx = _bfd_stringtab_add (elf_hash_table (info)->dynstr,
+                                        *p, true, true);
+             if (indx == (bfd_size_type) -1
+                 || ! elf_add_dynamic_entry (info, DT_AUXILIARY, indx))
+               return false;
+           }
+       }
+
       /* Find all symbols which were defined in a dynamic object and make
         the backend pick a reasonable value for them.  */
       eif.failed = false;
@@ -1402,7 +1507,6 @@ NAME(bfd_elf,size_dynamic_sections) (output_bfd, soname, rpath,
 
   /* The backend must work out the sizes of all the other dynamic
      sections.  */
-  bed = get_elf_backend_data (output_bfd);
   if (! (*bed->elf_backend_size_dynamic_sections) (output_bfd, info))
     return false;
 
@@ -1508,6 +1612,48 @@ elf_adjust_dynamic_symbol (h, data)
   bfd *dynobj;
   struct elf_backend_data *bed;
 
+  /* If this symbol was mentioned in a non-ELF file, try to set
+     DEF_REGULAR and REF_REGULAR correctly.  This is the only way to
+     permit a non-ELF file to correctly refer to a symbol defined in
+     an ELF dynamic object.  */
+  if ((h->elf_link_hash_flags & ELF_LINK_NON_ELF) != 0)
+    {
+      if (h->root.type != bfd_link_hash_defined
+         && h->root.type != bfd_link_hash_defweak)
+       h->elf_link_hash_flags |= ELF_LINK_HASH_REF_REGULAR;
+      else
+       {
+         if (h->root.u.def.section->owner != NULL
+             && (bfd_get_flavour (h->root.u.def.section->owner)
+                 == bfd_target_elf_flavour))
+           h->elf_link_hash_flags |= ELF_LINK_HASH_REF_REGULAR;
+         else
+           h->elf_link_hash_flags |= ELF_LINK_HASH_DEF_REGULAR;
+       }
+
+      if ((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) != 0
+         || (h->elf_link_hash_flags & ELF_LINK_HASH_REF_DYNAMIC) != 0)
+       {
+         if (! _bfd_elf_link_record_dynamic_symbol (eif->info, h))
+           {
+             eif->failed = true;
+             return false;
+           }
+       }
+    }
+
+  /* If this is a final link, and the symbol was defined as a common
+     symbol in a regular object file, and there was no definition in
+     any dynamic object, then the linker will have allocated space for
+     the symbol in a common section but the ELF_LINK_HASH_DEF_REGULAR
+     flag will not have been set.  */
+  if (h->root.type == bfd_link_hash_defined
+      && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0
+      && (h->elf_link_hash_flags & ELF_LINK_HASH_REF_REGULAR) != 0
+      && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) == 0
+      && (h->root.u.def.section->owner->flags & DYNAMIC) == 0)
+    h->elf_link_hash_flags |= ELF_LINK_HASH_DEF_REGULAR;
+
   /* If -Bsymbolic was used (which means to bind references to global
      symbols to the definition within the shared object), and this
      symbol was defined in a regular object, then it actually doesn't
@@ -1671,7 +1817,7 @@ struct elf_finfo_failed
 {
   boolean failed;
   struct elf_final_link_info *finfo;
-};  
+};
 
 /* Do the final step of an ELF link.  */
 
@@ -1752,6 +1898,12 @@ elf_bfd_final_link (abfd, info)
 
              sec = p->u.indirect.section;
 
+             /* Mark all sections which are to be included in the
+                link.  This will normally be every section.  We need
+                to do this so that we can identify any sections which
+                the linker has decided to not include.  */
+             sec->linker_mark = true;
+
              if (info->relocateable)
                o->reloc_count += sec->reloc_count;
 
@@ -1803,7 +1955,8 @@ elf_bfd_final_link (abfd, info)
         zero.  This is done in elf_fake_sections as well, but forcing
         the VMA to 0 here will ensure that relocs against these
         sections are handled correctly.  */
-      if ((o->flags & SEC_ALLOC) == 0)
+      if ((o->flags & SEC_ALLOC) == 0
+         && ! o->user_set_vma)
        o->vma = 0;
     }
 
@@ -1889,14 +2042,17 @@ elf_bfd_final_link (abfd, info)
 
   /* Start writing out the symbol table.  The first symbol is always a
      dummy symbol.  */
-  elfsym.st_value = 0;
-  elfsym.st_size = 0;
-  elfsym.st_info = 0;
-  elfsym.st_other = 0;
-  elfsym.st_shndx = SHN_UNDEF;
-  if (! elf_link_output_sym (&finfo, (const char *) NULL,
-                            &elfsym, bfd_und_section_ptr))
-    goto error_return;
+  if (info->strip != strip_all || info->relocateable)
+    {
+      elfsym.st_value = 0;
+      elfsym.st_size = 0;
+      elfsym.st_info = 0;
+      elfsym.st_other = 0;
+      elfsym.st_shndx = SHN_UNDEF;
+      if (! elf_link_output_sym (&finfo, (const char *) NULL,
+                                &elfsym, bfd_und_section_ptr))
+       goto error_return;
+    }
 
 #if 0
   /* Some standard ELF linkers do this, but we don't because it causes
@@ -1919,19 +2075,22 @@ elf_bfd_final_link (abfd, info)
      symbols have no names.  We store the index of each one in the
      index field of the section, so that we can find it again when
      outputting relocs.  */
-  elfsym.st_value = 0;
-  elfsym.st_size = 0;
-  elfsym.st_info = ELF_ST_INFO (STB_LOCAL, STT_SECTION);
-  elfsym.st_other = 0;
-  for (i = 1; i < elf_elfheader (abfd)->e_shnum; i++)
+  if (info->strip != strip_all || info->relocateable)
     {
-      o = section_from_elf_index (abfd, i);
-      if (o != NULL)
-       o->target_index = abfd->symcount;
-      elfsym.st_shndx = i;
-      if (! elf_link_output_sym (&finfo, (const char *) NULL,
-                                &elfsym, o))
-       goto error_return;
+      elfsym.st_value = 0;
+      elfsym.st_size = 0;
+      elfsym.st_info = ELF_ST_INFO (STB_LOCAL, STT_SECTION);
+      elfsym.st_other = 0;
+      for (i = 1; i < elf_elfheader (abfd)->e_shnum; i++)
+       {
+         o = section_from_elf_index (abfd, i);
+         if (o != NULL)
+           o->target_index = abfd->symcount;
+         elfsym.st_shndx = i;
+         if (! elf_link_output_sym (&finfo, (const char *) NULL,
+                                    &elfsym, o))
+           goto error_return;
+       }
     }
 
   /* Allocate some memory to hold information read in from the input
@@ -2052,9 +2211,12 @@ elf_bfd_final_link (abfd, info)
   off = _bfd_elf_assign_file_position_for_section (symstrtab_hdr, off, true);
   elf_tdata (abfd)->next_file_pos = off;
 
-  if (bfd_seek (abfd, symstrtab_hdr->sh_offset, SEEK_SET) != 0
-      || ! _bfd_stringtab_emit (abfd, finfo.symstrtab))
-    return false;
+  if (abfd->symcount > 0)
+    {
+      if (bfd_seek (abfd, symstrtab_hdr->sh_offset, SEEK_SET) != 0
+         || ! _bfd_stringtab_emit (abfd, finfo.symstrtab))
+       return false;
+    }
 
   /* Adjust the relocs to have the correct symbol indices.  */
   for (o = abfd->sections; o != NULL; o = o->next)
@@ -2071,7 +2233,7 @@ elf_bfd_final_link (abfd, info)
        {
          if (*rel_hash == NULL)
            continue;
-             
+
          BFD_ASSERT ((*rel_hash)->indx >= 0);
 
          if (rel_hdr->sh_entsize == sizeof (Elf_External_Rel))
@@ -2225,11 +2387,10 @@ elf_bfd_final_link (abfd, info)
          if ((o->flags & SEC_HAS_CONTENTS) == 0
              || o->_raw_size == 0)
            continue;
-         if ((o->flags & SEC_IN_MEMORY) == 0)
+         if ((o->flags & SEC_LINKER_CREATED) == 0)
            {
              /* At this point, we are only interested in sections
-                 created by elf_link_create_dynamic_sections.  FIXME:
-                 This test is fragile.  */
+                 created by elf_link_create_dynamic_sections.  */
              continue;
            }
          if ((elf_section_data (o->output_section)->this_hdr.sh_type
@@ -2256,6 +2417,13 @@ elf_bfd_final_link (abfd, info)
        }
     }
 
+  /* If we have optimized stabs strings, output them.  */
+  if (elf_hash_table (info)->stab_info != NULL)
+    {
+      if (! _bfd_write_stab_strings (abfd, &elf_hash_table (info)->stab_info))
+       goto error_return;
+    }
+
   if (finfo.symstrtab != NULL)
     _bfd_stringtab_free (finfo.symstrtab);
   if (finfo.contents != NULL)
@@ -2370,20 +2538,23 @@ static boolean
 elf_link_flush_output_syms (finfo)
      struct elf_final_link_info *finfo;
 {
-  Elf_Internal_Shdr *symtab;
+  if (finfo->symbuf_count > 0)
+    {
+      Elf_Internal_Shdr *symtab;
 
-  symtab = &elf_tdata (finfo->output_bfd)->symtab_hdr;
+      symtab = &elf_tdata (finfo->output_bfd)->symtab_hdr;
 
-  if (bfd_seek (finfo->output_bfd, symtab->sh_offset + symtab->sh_size,
-               SEEK_SET) != 0
-      || (bfd_write ((PTR) finfo->symbuf, finfo->symbuf_count,
-                    sizeof (Elf_External_Sym), finfo->output_bfd)
-         != finfo->symbuf_count * sizeof (Elf_External_Sym)))
-    return false;
+      if (bfd_seek (finfo->output_bfd, symtab->sh_offset + symtab->sh_size,
+                   SEEK_SET) != 0
+         || (bfd_write ((PTR) finfo->symbuf, finfo->symbuf_count,
+                        sizeof (Elf_External_Sym), finfo->output_bfd)
+             != finfo->symbuf_count * sizeof (Elf_External_Sym)))
+       return false;
 
-  symtab->sh_size += finfo->symbuf_count * sizeof (Elf_External_Sym);
+      symtab->sh_size += finfo->symbuf_count * sizeof (Elf_External_Sym);
 
-  finfo->symbuf_count = 0;
+      finfo->symbuf_count = 0;
+    }
 
   return true;
 }
@@ -2451,7 +2622,7 @@ elf_link_output_extsym (h, data)
 
   sym.st_value = 0;
   sym.st_size = h->size;
-  sym.st_other = 0;
+  sym.st_other = h->other;
   if (h->root.type == bfd_link_hash_undefweak
       || h->root.type == bfd_link_hash_defweak)
     sym.st_info = ELF_ST_INFO (STB_WEAK, h->type);
@@ -2602,6 +2773,7 @@ elf_link_input_bfd (finfo, input_bfd)
   Elf_Internal_Shdr *symtab_hdr;
   size_t locsymcount;
   size_t extsymoff;
+  Elf_External_Sym *external_syms;
   Elf_External_Sym *esym;
   Elf_External_Sym *esymend;
   Elf_Internal_Sym *isym;
@@ -2632,16 +2804,23 @@ elf_link_input_bfd (finfo, input_bfd)
     }
 
   /* Read the local symbols.  */
-  if (locsymcount > 0
-      && (bfd_seek (input_bfd, symtab_hdr->sh_offset, SEEK_SET) != 0
-         || (bfd_read (finfo->external_syms, sizeof (Elf_External_Sym),
+  if (symtab_hdr->contents != NULL)
+    external_syms = (Elf_External_Sym *) symtab_hdr->contents;
+  else if (locsymcount == 0)
+    external_syms = NULL;
+  else
+    {
+      external_syms = finfo->external_syms;
+      if (bfd_seek (input_bfd, symtab_hdr->sh_offset, SEEK_SET) != 0
+         || (bfd_read (external_syms, sizeof (Elf_External_Sym),
                        locsymcount, input_bfd)
-             != locsymcount * sizeof (Elf_External_Sym))))
-    return false;
+             != locsymcount * sizeof (Elf_External_Sym)))
+       return false;
+    }
 
   /* Swap in the local symbols and write out the ones which we know
      are going into the output file.  */
-  esym = finfo->external_syms;
+  esym = external_syms;
   esymend = esym + locsymcount;
   isym = finfo->internal_syms;
   pindex = finfo->indices;
@@ -2681,7 +2860,7 @@ elf_link_input_bfd (finfo, input_bfd)
       *ppsection = isec;
 
       /* Don't output the first, undefined, symbol.  */
-      if (esym == finfo->external_syms)
+      if (esym == external_syms)
        continue;
 
       /* If we are stripping all symbols, we don't want to output this
@@ -2702,9 +2881,20 @@ elf_link_input_bfd (finfo, input_bfd)
       if (finfo->info->discard == discard_all)
        continue;
 
+      /* If this symbol is defined in a section which we are
+         discarding, we don't need to keep it.  For the benefit of the
+         MIPS ELF linker, we check SEC_EXCLUDE as well as linker_mark.  */
+      if (isym->st_shndx > 0
+         && isym->st_shndx < SHN_LORESERVE
+         && isec != NULL
+         && (! isec->linker_mark
+             || (! finfo->info->relocateable
+                 && (isec->flags & SEC_EXCLUDE) != 0)))
+       continue;
+
       /* Get the name of the symbol.  */
       name = bfd_elf_string_from_elf_section (input_bfd, symtab_hdr->sh_link,
-                                         isym->st_name);
+                                             isym->st_name);
       if (name == NULL)
        return false;
 
@@ -2747,31 +2937,47 @@ elf_link_input_bfd (finfo, input_bfd)
   /* Relocate the contents of each section.  */
   for (o = input_bfd->sections; o != NULL; o = o->next)
     {
-      if ((o->flags & SEC_HAS_CONTENTS) == 0)
+      bfd_byte *contents;
+
+      if (! o->linker_mark)
+       {
+         /* This section was omitted from the link.  */
+         continue;
+       }
+
+      if ((o->flags & SEC_HAS_CONTENTS) == 0
+         || (o->_raw_size == 0 && (o->flags & SEC_RELOC) == 0))
        continue;
 
-      if ((o->flags & SEC_IN_MEMORY) != 0
-         && input_bfd == elf_hash_table (finfo->info)->dynobj)
+      if ((o->flags & SEC_LINKER_CREATED) != 0)
        {
-         /* Section was created by elf_link_create_dynamic_sections.
-             FIXME: This test is fragile.  */
+         /* Section was created by elf_link_create_dynamic_sections
+            or somesuch.  */
          continue;
        }
 
-      /* Read the contents of the section.  */
-      if (! bfd_get_section_contents (input_bfd, o, finfo->contents,
-                                     (file_ptr) 0, o->_raw_size))
-       return false;
+      /* Get the contents of the section.  They have been cached by a
+         relaxation routine.  Note that o is a section in an input
+         file, so the contents field will not have been set by any of
+         the routines which work on output files.  */
+      if (elf_section_data (o)->this_hdr.contents != NULL)
+       contents = elf_section_data (o)->this_hdr.contents;
+      else
+       {
+         contents = finfo->contents;
+         if (! bfd_get_section_contents (input_bfd, o, contents,
+                                         (file_ptr) 0, o->_raw_size))
+           return false;
+       }
 
       if ((o->flags & SEC_RELOC) != 0)
        {
          Elf_Internal_Rela *internal_relocs;
 
          /* Get the swapped relocs.  */
-         internal_relocs = elf_link_read_relocs (input_bfd, o,
-                                                 finfo->external_relocs,
-                                                 finfo->internal_relocs,
-                                                 false);
+         internal_relocs = (NAME(_bfd_elf,link_read_relocs)
+                            (input_bfd, o, finfo->external_relocs,
+                             finfo->internal_relocs, false));
          if (internal_relocs == NULL
              && o->reloc_count > 0)
            return false;
@@ -2797,8 +3003,7 @@ elf_link_input_bfd (finfo, input_bfd)
             the addend to be adjusted.  */
 
          if (! (*relocate_section) (output_bfd, finfo->info,
-                                    input_bfd, o,
-                                    finfo->contents,
+                                    input_bfd, o, contents,
                                     internal_relocs,
                                     finfo->internal_syms,
                                     finfo->sections))
@@ -2968,12 +3173,22 @@ elf_link_input_bfd (finfo, input_bfd)
        }
 
       /* Write out the modified section contents.  */
-      if (! bfd_set_section_contents (output_bfd, o->output_section,
-                                     finfo->contents, o->output_offset,
-                                     (o->_cooked_size != 0
-                                      ? o->_cooked_size
-                                      : o->_raw_size)))
-       return false;
+      if (elf_section_data (o)->stab_info == NULL)
+       {
+         if (! bfd_set_section_contents (output_bfd, o->output_section,
+                                         contents, o->output_offset,
+                                         (o->_cooked_size != 0
+                                          ? o->_cooked_size
+                                          : o->_raw_size)))
+           return false;
+       }
+      else
+       {
+         if (! _bfd_write_section_stabs (output_bfd, o,
+                                         &elf_section_data (o)->stab_info,
+                                         contents))
+           return false;
+       }
     }
 
   return true;
@@ -3022,9 +3237,10 @@ elf_reloc_link_order (output_bfd, info, output_section, link_order)
 
       /* Treat a reloc against a defined symbol as though it were
          actually against the section.  */
-      h = elf_link_hash_lookup (elf_hash_table (info),
-                               link_order->u.reloc.p->u.name,
-                               false, false, true);
+      h = ((struct elf_link_hash_entry *)
+          bfd_wrapped_link_hash_lookup (output_bfd, info,
+                                        link_order->u.reloc.p->u.name,
+                                        false, false, true));
       if (h != NULL
          && (h->root.type == bfd_link_hash_defined
              || h->root.type == bfd_link_hash_defweak))
@@ -3172,8 +3388,8 @@ elf_create_pointer_linker_section (abfd, info, lsect, h, rel)
            return false;
        }
 
-      BFD_ASSERT (lsect->rel_section != NULL);
-      lsect->rel_section->_raw_size += sizeof (Elf_External_Rela);
+      if (lsect->rel_section)
+       lsect->rel_section->_raw_size += sizeof (Elf_External_Rela);
     }
 
   else  /* Allocation of a pointer to a local symbol */
@@ -3208,7 +3424,7 @@ elf_create_pointer_linker_section (abfd, info, lsect, h, rel)
       if (info->shared)
        {
          /* If we are generating a shared object, we need to
-            output a R_PPC_RELATIVE reloc so that the
+            output a R_<xxx>_RELATIVE reloc so that the
             dynamic linker can adjust this GOT entry.  */
          BFD_ASSERT (lsect->rel_section != NULL);
          lsect->rel_section->_raw_size += sizeof (Elf_External_Rela);
@@ -3230,15 +3446,25 @@ elf_create_pointer_linker_section (abfd, info, lsect, h, rel)
   linker_section_ptr->written_address_p = false;
   *ptr_linker_section_ptr = linker_section_ptr;
 
+#if 0
   if (lsect->hole_size && lsect->hole_offset < lsect->max_hole_offset)
     {
-      linker_section_ptr->offset = lsect->section->_raw_size - lsect->hole_size;
+      linker_section_ptr->offset = lsect->section->_raw_size - lsect->hole_size + (ARCH_SIZE / 8);
       lsect->hole_offset += ARCH_SIZE / 8;
       lsect->sym_offset  += ARCH_SIZE / 8;
       if (lsect->sym_hash)     /* Bump up symbol value if needed */
-       lsect->sym_hash->root.u.def.value += ARCH_SIZE / 8;
+       {
+         lsect->sym_hash->root.u.def.value += ARCH_SIZE / 8;
+#ifdef DEBUG
+         fprintf (stderr, "Bump up %s by %ld, current value = %ld\n",
+                  lsect->sym_hash->root.root.string,
+                  (long)ARCH_SIZE / 8,
+                  (long)lsect->sym_hash->root.u.def.value);
+#endif
+       }
     }
   else
+#endif
     linker_section_ptr->offset = lsect->section->_raw_size;
 
   lsect->section->_raw_size += ARCH_SIZE / 8;
@@ -3276,10 +3502,6 @@ elf_finish_pointer_linker_section (output_bfd, input_bfd, info, lsect, h, reloca
 
   BFD_ASSERT (lsect != NULL);
 
-  if (!lsect->section->contents)
-    lsect->section->contents = (unsigned char *) bfd_zalloc (output_bfd,
-                                                            lsect->section->_raw_size);
-
   if (h != NULL)               /* global symbol */
     {
       linker_section_ptr = _bfd_elf_find_pointer_linker_section (h->linker_section_pointer,
This page took 0.034441 seconds and 4 git commands to generate.