* coffgen.c (make_a_section_from_file): Set lma to s_paddr, not
[deliverable/binutils-gdb.git] / bfd / ecoff.c
index a5ad16b606e1d0079d3858f8a29c136889943406..e4acd8360d761df79918d2ed1f391be1c73df4de 100644 (file)
@@ -50,8 +50,7 @@ static long ecoff_sec_to_styp_flags PARAMS ((const char *name,
                                             flagword flags));
 static boolean ecoff_slurp_symbolic_header PARAMS ((bfd *abfd));
 static boolean ecoff_set_symbol_info PARAMS ((bfd *abfd, SYMR *ecoff_sym,
-                                          asymbol *asym, int ext,
-                                          asymbol **indirect_ptr_ptr));
+                                          asymbol *asym, int ext, int weak));
 static void ecoff_emit_aggregate PARAMS ((bfd *abfd, FDR *fdr,
                                          char *string,
                                          RNDXR *rndx, long isym,
@@ -60,7 +59,8 @@ static char *ecoff_type_to_string PARAMS ((bfd *abfd, FDR *fdr,
                                           unsigned int indx));
 static boolean ecoff_slurp_reloc_table PARAMS ((bfd *abfd, asection *section,
                                                asymbol **symbols));
-static void ecoff_compute_section_file_positions PARAMS ((bfd *abfd));
+static int ecoff_sort_hdrs PARAMS ((const PTR, const PTR));
+static boolean ecoff_compute_section_file_positions PARAMS ((bfd *abfd));
 static bfd_size_type ecoff_compute_reloc_file_positions PARAMS ((bfd *abfd));
 static boolean ecoff_get_extr PARAMS ((asymbol *, EXTR *));
 static void ecoff_set_index PARAMS ((asymbol *, bfd_size_type));
@@ -82,10 +82,7 @@ _bfd_ecoff_mkobject (abfd)
   abfd->tdata.ecoff_obj_data = ((struct ecoff_tdata *)
                                bfd_zalloc (abfd, sizeof (ecoff_data_type)));
   if (abfd->tdata.ecoff_obj_data == NULL)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      return false;
-    }
+    return false;
 
   return true;
 }
@@ -136,17 +133,6 @@ _bfd_ecoff_mkobject_hook (abfd, filehdr, aouthdr)
   return (PTR) ecoff;
 }
 
-/* This is a hook needed by SCO COFF, but we have nothing to do.  */
-
-/*ARGSUSED*/
-asection *
-_bfd_ecoff_make_section_hook (abfd, name)
-     bfd *abfd;
-     char *name;
-{
-  return (asection *) NULL;
-}
-
 /* Initialize a new section.  */
 
 boolean
@@ -174,7 +160,8 @@ _bfd_ecoff_new_section_hook (abfd, section)
     section->flags |= SEC_DATA | SEC_LOAD | SEC_ALLOC;
   else if (strcmp (section->name, _RDATA) == 0
           || strcmp (section->name, _LIT8) == 0
-          || strcmp (section->name, _LIT4) == 0)
+          || strcmp (section->name, _LIT4) == 0
+          || strcmp (section->name, _RCONST) == 0)
     section->flags |= SEC_DATA | SEC_LOAD | SEC_ALLOC | SEC_READONLY;
   else if (strcmp (section->name, _BSS) == 0
           || strcmp (section->name, _SBSS) == 0)
@@ -325,6 +312,29 @@ ecoff_sec_to_styp_flags (name, flags)
     styp = STYP_XDATA;
   else if (strcmp (name, _LIB) == 0)
     styp = STYP_ECOFF_LIB;
+  else if (strcmp (name, _GOT) == 0)
+    styp = STYP_GOT;
+  else if (strcmp (name, _HASH) == 0)
+    styp = STYP_HASH;
+  else if (strcmp (name, _DYNAMIC) == 0)
+    styp = STYP_DYNAMIC;
+  else if (strcmp (name, _LIBLIST) == 0)
+    styp = STYP_LIBLIST;
+  else if (strcmp (name, _RELDYN) == 0)
+    styp = STYP_RELDYN;
+  else if (strcmp (name, _CONFLIC) == 0)
+    styp = STYP_CONFLIC;
+  else if (strcmp (name, _DYNSTR) == 0)
+    styp = STYP_DYNSTR;
+  else if (strcmp (name, _DYNSYM) == 0)
+    styp = STYP_DYNSYM;
+  else if (strcmp (name, _COMMENT) == 0)
+    {
+      styp = STYP_COMMENT;
+      flags &=~ SEC_NEVER_LOAD;
+    }
+  else if (strcmp (name, _RCONST) == 0)
+    styp = STYP_RCONST;
   else if (flags & SEC_CODE) 
     styp = STYP_TEXT;
   else if (flags & SEC_DATA) 
@@ -362,7 +372,14 @@ _bfd_ecoff_styp_to_sec_flags (abfd, hdr, name)
      actually a shared library section.  */
   if ((styp_flags & STYP_TEXT)
       || (styp_flags & STYP_ECOFF_INIT)
-      || (styp_flags & STYP_ECOFF_FINI))
+      || (styp_flags & STYP_ECOFF_FINI)
+      || (styp_flags & STYP_DYNAMIC)
+      || (styp_flags & STYP_LIBLIST)
+      || (styp_flags & STYP_RELDYN)
+      || styp_flags == STYP_CONFLIC
+      || (styp_flags & STYP_DYNSTR)
+      || (styp_flags & STYP_DYNSYM)
+      || (styp_flags & STYP_HASH))
     {
       if (sec_flags & SEC_NEVER_LOAD)
        sec_flags |= SEC_CODE | SEC_COFF_SHARED_LIBRARY;
@@ -373,14 +390,17 @@ _bfd_ecoff_styp_to_sec_flags (abfd, hdr, name)
           || (styp_flags & STYP_RDATA)
           || (styp_flags & STYP_SDATA)
           || styp_flags == STYP_PDATA
-          || styp_flags == STYP_XDATA)
+          || styp_flags == STYP_XDATA
+          || (styp_flags & STYP_GOT)
+          || styp_flags == STYP_RCONST)
     {
       if (sec_flags & SEC_NEVER_LOAD)
        sec_flags |= SEC_DATA | SEC_COFF_SHARED_LIBRARY;
       else
        sec_flags |= SEC_DATA | SEC_LOAD | SEC_ALLOC;
       if ((styp_flags & STYP_RDATA)
-         || styp_flags == STYP_PDATA)
+         || styp_flags == STYP_PDATA
+         || styp_flags == STYP_RCONST)
        sec_flags |= SEC_READONLY;
     }
   else if ((styp_flags & STYP_BSS)
@@ -445,12 +465,9 @@ ecoff_slurp_symbolic_header (abfd)
     }
 
   /* Read the symbolic information header.  */
-  raw = (PTR) malloc ((size_t) external_hdr_size);
+  raw = (PTR) bfd_malloc ((size_t) external_hdr_size);
   if (raw == NULL)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      goto error_return;
-    }
+    goto error_return;
 
   if (bfd_seek (abfd, ecoff_data (abfd)->sym_filepos, SEEK_SET) == -1
       || (bfd_read (raw, external_hdr_size, 1, abfd)
@@ -557,10 +574,7 @@ _bfd_ecoff_slurp_symbolic_info (abfd, ignore, debug)
     }
   raw = (PTR) bfd_alloc (abfd, raw_size);
   if (raw == NULL)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      return false;
-    }
+    return false;
   if (bfd_seek (abfd,
                (ecoff_data (abfd)->sym_filepos
                 + backend->debug_swap.external_hdr_size),
@@ -579,8 +593,8 @@ _bfd_ecoff_slurp_symbolic_info (abfd, ignore, debug)
     debug->off2 = (type) NULL; \
   else \
     debug->off2 = (type) ((char *) raw \
-                         + internal_symhdr->off1 \
-                         - raw_base)
+                         + (internal_symhdr->off1 \
+                            - raw_base))
   FIX (cbLineOffset, line, unsigned char *);
   FIX (cbDnOffset, external_dnr, PTR);
   FIX (cbPdOffset, external_pdr, PTR);
@@ -606,10 +620,7 @@ _bfd_ecoff_slurp_symbolic_info (abfd, ignore, debug)
                                         (internal_symhdr->ifdMax *
                                          sizeof (struct fdr)));
   if (debug->fdr == NULL)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      return false;
-    }
+    return false;
   external_fdr_size = backend->debug_swap.external_fdr_size;
   fdr_ptr = debug->fdr;
   fraw_src = (char *) debug->external_fdr;
@@ -642,10 +653,7 @@ _bfd_ecoff_make_empty_symbol (abfd)
 
   new = (ecoff_symbol_type *) bfd_alloc (abfd, sizeof (ecoff_symbol_type));
   if (new == (ecoff_symbol_type *) NULL)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      return (asymbol *) NULL;
-    }
+    return (asymbol *) NULL;
   memset ((PTR) new, 0, sizeof *new);
   new->symbol.section = (asection *) NULL;
   new->fdr = (FDR *) NULL;
@@ -658,46 +666,18 @@ _bfd_ecoff_make_empty_symbol (abfd)
 /* Set the BFD flags and section for an ECOFF symbol.  */
 
 static boolean
-ecoff_set_symbol_info (abfd, ecoff_sym, asym, ext, indirect_ptr_ptr)
+ecoff_set_symbol_info (abfd, ecoff_sym, asym, ext, weak)
      bfd *abfd;
      SYMR *ecoff_sym;
      asymbol *asym;
      int ext;
-     asymbol **indirect_ptr_ptr;
+     int weak;
 {
   asym->the_bfd = abfd;
   asym->value = ecoff_sym->value;
   asym->section = &bfd_debug_section;
   asym->udata.i = 0;
 
-  /* An indirect symbol requires two consecutive stabs symbols.  */
-  if (*indirect_ptr_ptr != (asymbol *) NULL)
-    {
-      BFD_ASSERT (ECOFF_IS_STAB (ecoff_sym));
-
-      /* @@ Stuffing pointers into integers is a no-no.
-        We can usually get away with it if the integer is
-        large enough though.  */
-      if (sizeof (asym) > sizeof (bfd_vma))
-       abort ();
-      (*indirect_ptr_ptr)->value = (bfd_vma) asym;
-
-      asym->flags = BSF_DEBUGGING;
-      asym->section = bfd_und_section_ptr;
-      *indirect_ptr_ptr = NULL;
-      return true;
-    }
-
-  if (ECOFF_IS_STAB (ecoff_sym)
-      && (ECOFF_UNMARK_STAB (ecoff_sym->index) | N_EXT) == (N_INDR | N_EXT))
-    {
-      asym->flags = BSF_DEBUGGING | BSF_INDIRECT;
-      asym->section = bfd_ind_section_ptr;
-      /* Pass this symbol on to the next call to this function.  */
-      *indirect_ptr_ptr = asym;
-      return true;
-    }
-
   /* Most symbol types are just for debugging.  */
   switch (ecoff_sym->st)
     {
@@ -719,7 +699,9 @@ ecoff_set_symbol_info (abfd, ecoff_sym, asym, ext, indirect_ptr_ptr)
       return true;
     }
 
-  if (ext)
+  if (weak)
+    asym->flags = BSF_EXPORT | BSF_WEAK;
+  else if (ext)
     asym->flags = BSF_EXPORT | BSF_GLOBAL;
   else
     {
@@ -837,6 +819,10 @@ ecoff_set_symbol_info (abfd, ecoff_sym, asym, ext, indirect_ptr_ptr)
       asym->section = bfd_make_section_old_way (abfd, ".fini");
       asym->value -= asym->section->vma;
       break;
+    case scRConst:
+      asym->section = bfd_make_section_old_way (abfd, ".rconst");
+      asym->value -= asym->section->vma;
+      break;
     default:
       break;
     }
@@ -881,10 +867,7 @@ ecoff_set_symbol_info (abfd, ecoff_sym, asym, ext, indirect_ptr_ptr)
 
                copy = (char *) bfd_alloc (abfd, strlen (name) + 1);
                if (!copy)
-                 {
-                   bfd_set_error (bfd_error_no_memory);
-                   return false;
-                 }
+                 return false;
                strcpy (copy, name);
                section = bfd_make_section (abfd, copy);
              }
@@ -893,10 +876,7 @@ ecoff_set_symbol_info (abfd, ecoff_sym, asym, ext, indirect_ptr_ptr)
            reloc_chain =
              (arelent_chain *) bfd_alloc (abfd, sizeof (arelent_chain));
            if (!reloc_chain)
-             {
-               bfd_set_error (bfd_error_no_memory);
-               return false;
-             }
+             return false;
            reloc_chain->relent.sym_ptr_ptr =
              bfd_get_section (asym)->symbol_ptr_ptr;
            reloc_chain->relent.address = section->_raw_size;
@@ -948,7 +928,6 @@ _bfd_ecoff_slurp_symbol_table (abfd)
   bfd_size_type internal_size;
   ecoff_symbol_type *internal;
   ecoff_symbol_type *internal_ptr;
-  asymbol *indirect_ptr;
   char *eraw_src;
   char *eraw_end;
   FDR *fdr_ptr;
@@ -968,13 +947,9 @@ _bfd_ecoff_slurp_symbol_table (abfd)
   internal_size = bfd_get_symcount (abfd) * sizeof (ecoff_symbol_type);
   internal = (ecoff_symbol_type *) bfd_alloc (abfd, internal_size);
   if (internal == NULL)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      return false;
-    }
+    return false;
 
   internal_ptr = internal;
-  indirect_ptr = NULL;
   eraw_src = (char *) ecoff_data (abfd)->debug_info.external_ext;
   eraw_end = (eraw_src
              + (ecoff_data (abfd)->debug_info.symbolic_header.iextMax
@@ -987,7 +962,8 @@ _bfd_ecoff_slurp_symbol_table (abfd)
       internal_ptr->symbol.name = (ecoff_data (abfd)->debug_info.ssext
                                   + internal_esym.asym.iss);
       if (!ecoff_set_symbol_info (abfd, &internal_esym.asym,
-                            &internal_ptr->symbol, 1, &indirect_ptr))
+                                 &internal_ptr->symbol, 1,
+                                 internal_esym.weakext))
        return false;
       /* The alpha uses a negative ifd field for section symbols.  */
       if (internal_esym.ifd >= 0)
@@ -998,7 +974,6 @@ _bfd_ecoff_slurp_symbol_table (abfd)
       internal_ptr->local = false;
       internal_ptr->native = (PTR) eraw_src;
     }
-  BFD_ASSERT (indirect_ptr == (asymbol *) NULL);
 
   /* The local symbols must be accessed via the fdr's, because the
      string and aux indices are relative to the fdr information.  */
@@ -1023,14 +998,13 @@ _bfd_ecoff_slurp_symbol_table (abfd)
                                       + fdr_ptr->issBase
                                       + internal_sym.iss);
          if (!ecoff_set_symbol_info (abfd, &internal_sym,
-                                     &internal_ptr->symbol, 0, &indirect_ptr))
+                                     &internal_ptr->symbol, 0, 0))
            return false;
          internal_ptr->fdr = fdr_ptr;
          internal_ptr->local = true;
          internal_ptr->native = (PTR) lraw_src;
        }
     }
-  BFD_ASSERT (indirect_ptr == (asymbol *) NULL);
 
   ecoff_data (abfd)->canonical_symbols = internal;
 
@@ -1181,7 +1155,7 @@ ecoff_type_to_string (abfd, fdr, indx)
       qualifiers[i].stride = 0;
     }
 
-  if (AUX_GET_ISYM (bigendian, &aux_ptr[indx]) == -1)
+  if (AUX_GET_ISYM (bigendian, &aux_ptr[indx]) == (bfd_vma) -1)
     return "-1 (no type)";
   _bfd_ecoff_swap_tir_in (bigendian, &aux_ptr[indx++].a_ti, &u.ti);
 
@@ -1699,10 +1673,7 @@ ecoff_slurp_reloc_table (abfd, section, symbols)
   external_relocs = (char *) bfd_alloc (abfd, external_relocs_size);
   if (internal_relocs == (arelent *) NULL
       || external_relocs == (char *) NULL)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      return false;
-    }
+    return false;
   if (bfd_seek (abfd, section->rel_filepos, SEEK_SET) != 0)
     return false;
   if (bfd_read (external_relocs, 1, external_relocs_size, abfd)
@@ -1754,6 +1725,7 @@ ecoff_slurp_reloc_table (abfd, section, symbols)
            case RELOC_SECTION_PDATA: sec_name = ".pdata"; break;
            case RELOC_SECTION_FINI:  sec_name = ".fini"; break;
            case RELOC_SECTION_LITA:  sec_name = ".lita";  break;
+           case RELOC_SECTION_RCONST: sec_name = ".rconst"; break;
            default: abort ();
            }
 
@@ -1844,8 +1816,7 @@ _bfd_ecoff_find_nearest_line (abfd, section, ignore_symbols, offset,
   /* If we're not in the .text section, we don't have any line
      numbers.  */
   if (strcmp (section->name, _TEXT) != 0
-      || offset < ecoff_data (abfd)->text_start
-      || offset >= ecoff_data (abfd)->text_end)
+      || offset >= bfd_section_size (abfd, section))
     return false;
 
   /* Make sure we have the FDR's.  */
@@ -1859,10 +1830,7 @@ _bfd_ecoff_find_nearest_line (abfd, section, ignore_symbols, offset,
        ((struct ecoff_find_line *)
         bfd_alloc (abfd, sizeof (struct ecoff_find_line)));
       if (ecoff_data (abfd)->find_line_info == NULL)
-       {
-         bfd_set_error (bfd_error_no_memory);
-         return false;
-       }
+       return false;
       ecoff_data (abfd)->find_line_info->find_buffer = NULL;
       ecoff_data (abfd)->find_line_info->fdrtab_len = 0;
       ecoff_data (abfd)->find_line_info->fdrtab = NULL;
@@ -2045,27 +2013,74 @@ _bfd_ecoff_get_section_contents (abfd, section, location, offset, count)
                                            offset, count);
 }
 
+/* Sort sections by VMA, but put SEC_ALLOC sections first.  This is
+   called via qsort.  */
+
+static int
+ecoff_sort_hdrs (arg1, arg2)
+     const PTR arg1;
+     const PTR arg2;
+{
+  const asection *hdr1 = *(const asection **) arg1;
+  const asection *hdr2 = *(const asection **) arg2;
+
+  if ((hdr1->flags & SEC_ALLOC) != 0)
+    {
+      if ((hdr2->flags & SEC_ALLOC) == 0)
+       return -1;
+    }
+  else
+    {
+      if ((hdr2->flags & SEC_ALLOC) != 0)
+       return 1;
+    }
+  if (hdr1->vma < hdr2->vma)
+    return -1;
+  else if (hdr1->vma > hdr2->vma)
+    return 1;
+  else
+    return 0;
+}
+
 /* Calculate the file position for each section, and set
    reloc_filepos.  */
 
-static void
+static boolean
 ecoff_compute_section_file_positions (abfd)
      bfd *abfd;
 {
-  asection *current;
   file_ptr sofar;
+  asection **sorted_hdrs;
+  asection *current;
+  unsigned int i;
   file_ptr old_sofar;
-  boolean first_data;
+  boolean first_data, first_nonalloc;
+  const bfd_vma round = ecoff_backend (abfd)->round;
 
   sofar = _bfd_ecoff_sizeof_headers (abfd, false);
 
+  /* Sort the sections by VMA.  */
+  sorted_hdrs = (asection **) bfd_malloc (abfd->section_count
+                                         * sizeof (asection *));
+  if (sorted_hdrs == NULL)
+    return false;
+  for (current = abfd->sections, i = 0;
+       current != NULL;
+       current = current->next, i++)
+    sorted_hdrs[i] = current;
+  BFD_ASSERT (i == abfd->section_count);
+
+  qsort (sorted_hdrs, abfd->section_count, sizeof (asection *),
+        ecoff_sort_hdrs);
+
   first_data = true;
-  for (current = abfd->sections;
-       current != (asection *) NULL;
-       current = current->next)
+  first_nonalloc = true;
+  for (i = 0; i < abfd->section_count; i++)
     {
       unsigned int alignment_power;
 
+      current = sorted_hdrs[i];
+
       /* Only deal with sections which have contents */
       if ((current->flags & (SEC_HAS_CONTENTS | SEC_LOAD)) == 0)
        continue;
@@ -2090,32 +2105,44 @@ ecoff_compute_section_file_positions (abfd)
         the data.  */
       if ((abfd->flags & EXEC_P) != 0
          && (abfd->flags & D_PAGED) != 0
-         && first_data != false
+         && ! first_data
          && (current->flags & SEC_CODE) == 0
          && (! ecoff_backend (abfd)->rdata_in_text
              || strcmp (current->name, _RDATA) != 0)
-         && strcmp (current->name, _PDATA) != 0)
+         && strcmp (current->name, _PDATA) != 0
+         && strcmp (current->name, _RCONST) != 0)
        {
-         const bfd_vma round = ecoff_backend (abfd)->round;
-
          sofar = (sofar + round - 1) &~ (round - 1);
          first_data = false;
        }
       else if (strcmp (current->name, _LIB) == 0)
        {
-         const bfd_vma round = ecoff_backend (abfd)->round;
          /* On Irix 4, the location of contents of the .lib section
             from a shared library section is also rounded up to a
             page boundary.  */
 
          sofar = (sofar + round - 1) &~ (round - 1);
        }
+      else if (first_nonalloc
+              && (current->flags & SEC_ALLOC) == 0
+              && (abfd->flags & D_PAGED) != 0)
+       {
+         /* Skip up to the next page for an unallocated section, such
+             as the .comment section on the Alpha.  This leaves room
+             for the .bss section.  */
+         first_nonalloc = false;
+         sofar = (sofar + round - 1) &~ (round - 1);
+       }
 
       /* Align the sections in the file to the same boundary on
         which they are aligned in virtual memory.  */
       old_sofar = sofar;
       sofar = BFD_ALIGN (sofar, 1 << alignment_power);
 
+      if ((abfd->flags & D_PAGED) != 0
+         && (current->flags & SEC_ALLOC) != 0)
+       sofar += (current->vma - sofar) % round;
+
       current->filepos = sofar;
 
       sofar += current->_raw_size;
@@ -2126,7 +2153,12 @@ ecoff_compute_section_file_positions (abfd)
       current->_raw_size += sofar - old_sofar;
     }
 
+  free (sorted_hdrs);
+  sorted_hdrs = NULL;
+
   ecoff_data (abfd)->reloc_filepos = sofar;
+
+  return true;
 }
 
 /* Determine the location of the relocs for all the sections in the
@@ -2146,7 +2178,8 @@ ecoff_compute_reloc_file_positions (abfd)
 
   if (! abfd->output_has_begun)
     {
-      ecoff_compute_section_file_positions (abfd);
+      if (! ecoff_compute_section_file_positions (abfd))
+       abort ();
       abfd->output_has_begun = true;
     }
   
@@ -2198,7 +2231,10 @@ _bfd_ecoff_set_section_contents (abfd, section, location, offset, count)
   /* This must be done first, because bfd_set_section_contents is
      going to set output_has_begun to true.  */
   if (abfd->output_has_begun == false)
-    ecoff_compute_section_file_positions (abfd);
+    {
+      if (! ecoff_compute_section_file_positions (abfd))
+       return false;
+    }
 
   /* If this is a .lib section, bump the vma address so that it winds
      up being the number of .lib sections output.  This is right for
@@ -2308,7 +2344,7 @@ ecoff_get_extr (sym, esym)
 
       esym->jmptbl = 0;
       esym->cobol_main = 0;
-      esym->weakext = 0;
+      esym->weakext = (sym->flags & BSF_WEAK) != 0;
       esym->reserved = 0;
       esym->ifd = ifdNil;
       /* FIXME: we can do better than this for st and sc.  */
@@ -2437,12 +2473,9 @@ _bfd_ecoff_write_object_contents (abfd)
       siz = filhsz;
     if (siz < aoutsz)
       siz = aoutsz;
-    buff = (PTR) malloc (siz);
+    buff = (PTR) bfd_malloc ((size_t) siz);
     if (buff == NULL)
-      {
-       bfd_set_error (bfd_error_no_memory);
-       goto error_return;
-      }
+      goto error_return;
   }
 
   internal_f.f_nscns = 0;
@@ -2466,7 +2499,7 @@ _bfd_ecoff_write_object_contents (abfd)
       else
        section.s_vaddr = vma;
 
-      section.s_paddr = vma;
+      section.s_paddr = current->lma;
       section.s_size = bfd_get_section_size_before_reloc (current);
 
       /* If this section is unloadable then the scnptr will be 0.  */
@@ -2506,7 +2539,17 @@ _bfd_ecoff_write_object_contents (abfd)
       if ((section.s_flags & STYP_TEXT) != 0
          || ((section.s_flags & STYP_RDATA) != 0
              && backend->rdata_in_text)
-         || strcmp (current->name, _PDATA) == 0)
+         || section.s_flags == STYP_PDATA
+         || (section.s_flags & STYP_DYNAMIC) != 0
+         || (section.s_flags & STYP_LIBLIST) != 0
+         || (section.s_flags & STYP_RELDYN) != 0
+         || section.s_flags == STYP_CONFLIC
+         || (section.s_flags & STYP_DYNSTR) != 0
+         || (section.s_flags & STYP_DYNSYM) != 0
+         || (section.s_flags & STYP_HASH) != 0
+         || (section.s_flags & STYP_ECOFF_INIT) != 0
+         || (section.s_flags & STYP_ECOFF_FINI) != 0
+         || section.s_flags == STYP_RCONST)
        {
          text_size += bfd_get_section_size_before_reloc (current);
          if (! set_text_start || text_start > vma)
@@ -2521,7 +2564,8 @@ _bfd_ecoff_write_object_contents (abfd)
               || (section.s_flags & STYP_LIT8) != 0
               || (section.s_flags & STYP_LIT4) != 0
               || (section.s_flags & STYP_SDATA) != 0
-              || strcmp (current->name, _XDATA) == 0)
+              || section.s_flags == STYP_XDATA
+              || (section.s_flags & STYP_GOT) != 0)
        {
          data_size += bfd_get_section_size_before_reloc (current);
          if (! set_data_start || data_start > vma)
@@ -2533,7 +2577,9 @@ _bfd_ecoff_write_object_contents (abfd)
       else if ((section.s_flags & STYP_BSS) != 0
               || (section.s_flags & STYP_SBSS) != 0)
        bss_size += bfd_get_section_size_before_reloc (current);
-      else if ((section.s_flags & STYP_ECOFF_LIB) != 0)
+      else if (section.s_flags == 0
+              || (section.s_flags & STYP_ECOFF_LIB) != 0
+              || section.s_flags == STYP_COMMENT)
        /* Do nothing */ ;
       else
        abort ();
@@ -2625,6 +2671,13 @@ _bfd_ecoff_write_object_contents (abfd)
   for (i = 0; i < 4; i++)
     internal_a.cprmask[i] = ecoff_data (abfd)->cprmask[i];
 
+  /* Let the backend adjust the headers if necessary.  */
+  if (backend->adjust_headers)
+    {
+      if (! (*backend->adjust_headers) (abfd, &internal_f, &internal_a))
+       goto error_return;
+    }
+
   /* Write out the file header and the optional header.  */
 
   if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0)
@@ -2670,10 +2723,7 @@ _bfd_ecoff_write_object_contents (abfd)
          reloc_buff =
            bfd_alloc (abfd, current->reloc_count * external_reloc_size);
          if (reloc_buff == NULL)
-           {
-             bfd_set_error (bfd_error_no_memory);
-             goto error_return;
-           }
+           goto error_return;
 
          reloc_ptr_ptr = current->orelocation;
          reloc_end = reloc_ptr_ptr + current->reloc_count;
@@ -2733,6 +2783,8 @@ _bfd_ecoff_write_object_contents (abfd)
                    in.r_symndx = RELOC_SECTION_LITA;
                  else if (strcmp (name, "*ABS*") == 0)
                    in.r_symndx = RELOC_SECTION_ABS;
+                 else if (strcmp (name, ".rconst") == 0)
+                   in.r_symndx = RELOC_SECTION_RCONST;
                  else
                    abort ();
                  in.r_extern = 0;
@@ -2928,7 +2980,7 @@ _bfd_ecoff_slurp_armap (abfd)
 
   /* Read in the armap.  */
   ardata = bfd_ardata (abfd);
-  mapdata = _bfd_snarf_ar_hdr (abfd);
+  mapdata = (struct areltdata *) _bfd_read_ar_hdr (abfd);
   if (mapdata == (struct areltdata *) NULL)
     return false;
   parsed_size = mapdata->parsed_size;
@@ -2936,10 +2988,7 @@ _bfd_ecoff_slurp_armap (abfd)
     
   raw_armap = (char *) bfd_alloc (abfd, parsed_size);
   if (raw_armap == (char *) NULL)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      return false;
-    }
+    return false;
     
   if (bfd_read ((PTR) raw_armap, 1, parsed_size, abfd) != parsed_size)
     {
@@ -3008,10 +3057,7 @@ _bfd_ecoff_slurp_armap (abfd)
                bfd_alloc (abfd,
                           ardata->symdef_count * sizeof (struct symdef)));
   if (!symdef_ptr)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      return false;
-    }
+    return false;
 
   ardata->symdefs = (carsym *) symdef_ptr;
 
@@ -3125,10 +3171,7 @@ _bfd_ecoff_write_armap (abfd, elength, map, orl_count, stridx)
   
   hashtable = (bfd_byte *) bfd_zalloc (abfd, symdefsize);
   if (!hashtable)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      return false;
-    }
+    return false;
 
   current = abfd->archive_head;
   last_elt = current;
@@ -3227,10 +3270,7 @@ _bfd_ecoff_archive_p (abfd)
     (struct artdata *) bfd_zalloc (abfd, sizeof (struct artdata));
 
   if (bfd_ardata (abfd) == (struct artdata *) NULL)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      return (const bfd_target *) NULL;
-    }
+    return (const bfd_target *) NULL;
 
   bfd_ardata (abfd)->first_file_filepos = SARMAG;
   bfd_ardata (abfd)->cache = NULL;
@@ -3281,10 +3321,7 @@ ecoff_link_hash_newfunc (entry, table, string)
     ret = ((struct ecoff_link_hash_entry *)
           bfd_hash_allocate (table, sizeof (struct ecoff_link_hash_entry)));
   if (ret == (struct ecoff_link_hash_entry *) NULL)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      return NULL;
-    }
+    return NULL;
 
   /* Call the allocation method of the superclass.  */
   ret = ((struct ecoff_link_hash_entry *)
@@ -3313,12 +3350,9 @@ _bfd_ecoff_bfd_link_hash_table_create (abfd)
   struct ecoff_link_hash_table *ret;
 
   ret = ((struct ecoff_link_hash_table *)
-        malloc (sizeof (struct ecoff_link_hash_table)));
-  if (!ret)
-      {
-       bfd_set_error (bfd_error_no_memory);
-       return NULL;
-      }
+        bfd_alloc (abfd, sizeof (struct ecoff_link_hash_table)));
+  if (ret == NULL)
+    return NULL;
   if (! _bfd_link_hash_table_init (&ret->root, abfd,
                                   ecoff_link_hash_newfunc))
     {
@@ -3555,26 +3589,21 @@ ecoff_link_check_archive_element (abfd, info, pneeded)
   /* Read in the external symbols and external strings.  */
   external_ext_size = backend->debug_swap.external_ext_size;
   esize = symhdr->iextMax * external_ext_size;
-  external_ext = (PTR) malloc (esize);
+  external_ext = (PTR) bfd_malloc (esize);
   if (external_ext == NULL && esize != 0)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      goto error_return;
-    }
+    goto error_return;
 
   if (bfd_seek (abfd, symhdr->cbExtOffset, SEEK_SET) != 0
       || bfd_read (external_ext, 1, esize, abfd) != esize)
     goto error_return;
 
-  ssext = (char *) malloc (symhdr->issExtMax);
+  ssext = (char *) bfd_malloc (symhdr->issExtMax);
   if (ssext == NULL && symhdr->issExtMax != 0)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      goto error_return;
-    }
+    goto error_return;
 
   if (bfd_seek (abfd, symhdr->cbSsExtOffset, SEEK_SET) != 0
-      || bfd_read (ssext, 1, symhdr->issExtMax, abfd) != symhdr->issExtMax)
+      || (bfd_read (ssext, 1, symhdr->issExtMax, abfd) !=
+         (bfd_size_type) symhdr->issExtMax))
     goto error_return;
 
   /* Look through the external symbols to see if they define some
@@ -3609,6 +3638,7 @@ ecoff_link_check_archive_element (abfd, info, pneeded)
        case scSCommon:
        case scInit:
        case scFini:
+       case scRConst:
          def = true;
          break;
        default:
@@ -3679,26 +3709,21 @@ ecoff_link_add_object_symbols (abfd, info)
   /* Read in the external symbols and external strings.  */
   external_ext_size = ecoff_backend (abfd)->debug_swap.external_ext_size;
   esize = symhdr->iextMax * external_ext_size;
-  external_ext = (PTR) malloc (esize);
+  external_ext = (PTR) bfd_malloc (esize);
   if (external_ext == NULL && esize != 0)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      goto error_return;
-    }
+    goto error_return;
 
   if (bfd_seek (abfd, symhdr->cbExtOffset, SEEK_SET) != 0
       || bfd_read (external_ext, 1, esize, abfd) != esize)
     goto error_return;
 
-  ssext = (char *) malloc (symhdr->issExtMax);
+  ssext = (char *) bfd_malloc (symhdr->issExtMax);
   if (ssext == NULL && symhdr->issExtMax != 0)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      goto error_return;
-    }
+    goto error_return;
 
   if (bfd_seek (abfd, symhdr->cbSsExtOffset, SEEK_SET) != 0
-      || bfd_read (ssext, 1, symhdr->issExtMax, abfd) != symhdr->issExtMax)
+      || (bfd_read (ssext, 1, symhdr->issExtMax, abfd)
+         != (bfd_size_type) symhdr->issExtMax))
     goto error_return;
 
   result = ecoff_link_add_externals (abfd, info, external_ext, ssext);
@@ -3745,10 +3770,7 @@ ecoff_link_add_externals (abfd, info, external_ext, ssext)
              bfd_alloc (abfd,
                         ext_count * sizeof (struct bfd_link_hash_entry *)));
   if (!sym_hash)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      return false;
-    }
+    return false;
   ecoff_data (abfd)->sym_hashes = sym_hash;
 
   ext_ptr = (char *) external_ext;
@@ -3869,6 +3891,10 @@ ecoff_link_add_externals (abfd, info, external_ext, ssext)
          section = bfd_make_section_old_way (abfd, ".fini");
          value -= section->vma;
          break;
+       case scRConst:
+         section = bfd_make_section_old_way (abfd, ".rconst");
+         value -= section->vma;
+         break;
        }
 
       if (section == (asection *) NULL)
@@ -3878,8 +3904,9 @@ ecoff_link_add_externals (abfd, info, external_ext, ssext)
 
       h = NULL;
       if (! (_bfd_generic_link_add_one_symbol
-            (info, abfd, name, BSF_GLOBAL, section, value,
-             (const char *) NULL, true, true,
+            (info, abfd, name,
+             esym.weakext ? BSF_WEAK : BSF_GLOBAL,
+             section, value, (const char *) NULL, true, true,
              (struct bfd_link_hash_entry **) &h)))
        return false;
 
@@ -4161,10 +4188,9 @@ ecoff_final_link_debug_accumulate (output_bfd, input_bfd, info, handle)
     debug->ptr = NULL;                                                 \
   else                                                                 \
     {                                                                  \
-      debug->ptr = (type) malloc (size * symhdr->count);               \
+      debug->ptr = (type) bfd_malloc ((size_t) (size * symhdr->count));        \
       if (debug->ptr == NULL)                                          \
        {                                                               \
-          bfd_set_error (bfd_error_no_memory);                         \
           ret = false;                                                 \
           goto return_something;                                       \
        }                                                               \
@@ -4297,6 +4323,8 @@ ecoff_link_write_external (h, data)
            h->esym.asym.sc = scPData;
          else if (strcmp (name, _XDATA) == 0)
            h->esym.asym.sc = scXData;
+         else if (strcmp (name, _RCONST) == 0)
+           h->esym.asym.sc = scRConst;
          else
            h->esym.asym.sc = scAbs;
        }
@@ -4403,21 +4431,18 @@ ecoff_indirect_link_order (output_bfd, info, output_section, link_order)
 
   /* Get the section contents.  We allocate memory for the larger of
      the size before relocating and the size after relocating.  */
-  contents = (bfd_byte *) malloc (raw_size >= cooked_size
-                                 ? raw_size
-                                 : cooked_size);
+  contents = (bfd_byte *) bfd_malloc (raw_size >= cooked_size
+                                     ? (size_t) raw_size
+                                     : (size_t) cooked_size);
   if (contents == NULL && raw_size != 0)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      goto error_return;
-    }
+    goto error_return;
 
   /* If we are relaxing, the contents may have already been read into
      memory, in which case we copy them into our new buffer.  We don't
      simply reuse the old buffer in case cooked_size > raw_size.  */
   if (section_tdata != (struct ecoff_section_tdata *) NULL
       && section_tdata->contents != (bfd_byte *) NULL)
-    memcpy (contents, section_tdata->contents, raw_size);
+    memcpy (contents, section_tdata->contents, (size_t) raw_size);
   else
     {
       if (! bfd_get_section_contents (input_bfd, input_section,
@@ -4431,16 +4456,14 @@ ecoff_indirect_link_order (output_bfd, info, output_section, link_order)
   external_reloc_size = ecoff_backend (input_bfd)->external_reloc_size;
   external_relocs_size = external_reloc_size * input_section->reloc_count;
 
-  if (section_tdata != (struct ecoff_section_tdata *) NULL)
+  if (section_tdata != (struct ecoff_section_tdata *) NULL
+      && section_tdata->external_relocs != NULL)
     external_relocs = section_tdata->external_relocs;
   else
     {
-      external_relocs = (PTR) malloc (external_relocs_size);
+      external_relocs = (PTR) bfd_malloc ((size_t) external_relocs_size);
       if (external_relocs == NULL && external_relocs_size != 0)
-       {
-         bfd_set_error (bfd_error_no_memory);
-         goto error_return;
-       }
+       goto error_return;
 
       if (bfd_seek (input_bfd, input_section->rel_filepos, SEEK_SET) != 0
          || (bfd_read (external_relocs, 1, external_relocs_size, input_bfd)
@@ -4504,12 +4527,19 @@ ecoff_reloc_link_order (output_bfd, info, output_section, link_order)
      asection *output_section;
      struct bfd_link_order *link_order;
 {
+  enum bfd_link_order_type type;
+  asection *section;
+  bfd_vma addend;
   arelent rel;
   struct internal_reloc in;
   bfd_size_type external_reloc_size;
   bfd_byte *rbuf;
   boolean ok;
 
+  type = link_order->type;
+  section = NULL;
+  addend = link_order->u.reloc.p->addend;
+
   /* We set up an arelent to pass to the backend adjust_reloc_out
      routine.  */
   rel.address = link_order->offset;
@@ -4521,21 +4551,44 @@ ecoff_reloc_link_order (output_bfd, info, output_section, link_order)
       return false;
     }
 
-  if (link_order->type == bfd_section_reloc_link_order)
-    rel.sym_ptr_ptr = link_order->u.reloc.p->u.section->symbol_ptr_ptr;
+  if (type == bfd_section_reloc_link_order)
+    {
+      section = link_order->u.reloc.p->u.section;
+      rel.sym_ptr_ptr = section->symbol_ptr_ptr;
+    }
   else
     {
-      /* We can't set up a reloc against a symbol correctly, because
-        we have no asymbol structure.  Currently no adjust_reloc_out
-        routine cases.  */
-      rel.sym_ptr_ptr = (asymbol **) NULL;
+      struct bfd_link_hash_entry *h;
+
+      /* Treat a reloc against a defined symbol as though it were
+         actually against the section.  */
+      h = bfd_link_hash_lookup (info->hash, link_order->u.reloc.p->u.name,
+                               false, false, false);
+      if (h != NULL
+         && (h->type == bfd_link_hash_defined
+             || h->type == bfd_link_hash_defweak))
+       {
+         type = bfd_section_reloc_link_order;
+         section = h->u.def.section->output_section;
+         /* It seems that we ought to add the symbol value to the
+             addend here, but in practice it has already been added
+             because it was passed to constructor_callback.  */
+         addend += section->vma + h->u.def.section->output_offset;
+       }
+      else
+       {
+         /* We can't set up a reloc against a symbol correctly,
+            because we have no asymbol structure.  Currently no
+            adjust_reloc_out routine cares.  */
+         rel.sym_ptr_ptr = (asymbol **) NULL;
+       }
     }
 
   /* All ECOFF relocs are in-place.  Put the addend into the object
      file.  */
 
   BFD_ASSERT (rel.howto->partial_inplace);
-  if (link_order->u.reloc.p->addend != 0)
+  if (addend != 0)
     {
       bfd_size_type size;
       bfd_reloc_status_type rstat;
@@ -4545,12 +4598,8 @@ ecoff_reloc_link_order (output_bfd, info, output_section, link_order)
       size = bfd_get_reloc_size (rel.howto);
       buf = (bfd_byte *) bfd_zmalloc (size);
       if (buf == (bfd_byte *) NULL)
-       {
-         bfd_set_error (bfd_error_no_memory);
-         return false;
-       }
-      rstat = _bfd_relocate_contents (rel.howto, output_bfd,
-                                     link_order->u.reloc.p->addend, buf);
+       return false;
+      rstat = _bfd_relocate_contents (rel.howto, output_bfd, addend, buf);
       switch (rstat)
        {
        case bfd_reloc_ok:
@@ -4562,11 +4611,10 @@ ecoff_reloc_link_order (output_bfd, info, output_section, link_order)
          if (! ((*info->callbacks->reloc_overflow)
                 (info,
                  (link_order->type == bfd_section_reloc_link_order
-                  ? bfd_section_name (output_bfd,
-                                      link_order->u.reloc.p->u.section)
+                  ? bfd_section_name (output_bfd, section)
                   : link_order->u.reloc.p->u.name),
-                 rel.howto->name, link_order->u.reloc.p->addend,
-                 (bfd *) NULL, (asection *) NULL, (bfd_vma) 0)))
+                 rel.howto->name, addend, (bfd *) NULL,
+                 (asection *) NULL, (bfd_vma) 0)))
            {
              free (buf);
              return false;
@@ -4587,7 +4635,7 @@ ecoff_reloc_link_order (output_bfd, info, output_section, link_order)
                + bfd_get_section_vma (output_bfd, output_section));
   in.r_type = rel.howto->type;
 
-  if (link_order->type == bfd_symbol_reloc_link_order)
+  if (type == bfd_symbol_reloc_link_order)
     {
       struct ecoff_link_hash_entry *h;
 
@@ -4611,8 +4659,7 @@ ecoff_reloc_link_order (output_bfd, info, output_section, link_order)
     {
       CONST char *name;
 
-      name = bfd_get_section_name (output_bfd,
-                                  link_order->u.reloc.p->u.section);
+      name = bfd_get_section_name (output_bfd, section);
       if (strcmp (name, ".text") == 0)
        in.r_symndx = RELOC_SECTION_TEXT;
       else if (strcmp (name, ".rdata") == 0)
@@ -4641,6 +4688,8 @@ ecoff_reloc_link_order (output_bfd, info, output_section, link_order)
        in.r_symndx = RELOC_SECTION_LITA;
       else if (strcmp (name, "*ABS*") == 0)
        in.r_symndx = RELOC_SECTION_ABS;
+      else if (strcmp (name, ".rconst") == 0)
+       in.r_symndx = RELOC_SECTION_RCONST;
       else
        abort ();
       in.r_extern = 0;
@@ -4651,12 +4700,9 @@ ecoff_reloc_link_order (output_bfd, info, output_section, link_order)
 
   /* Get some memory and swap out the reloc.  */
   external_reloc_size = ecoff_backend (output_bfd)->external_reloc_size;
-  rbuf = (bfd_byte *) malloc (external_reloc_size);
+  rbuf = (bfd_byte *) bfd_malloc ((size_t) external_reloc_size);
   if (rbuf == (bfd_byte *) NULL)
-    {
-      bfd_set_error (bfd_error_no_memory);
-      return false;
-    }
+    return false;
 
   (*ecoff_backend (output_bfd)->swap_reloc_out) (output_bfd, &in, (PTR) rbuf);
 
This page took 0.036321 seconds and 4 git commands to generate.