* targets.c (bfd_target): Rearranged fields in target vector.
[deliverable/binutils-gdb.git] / bfd / coff-mips.c
index baffd44868a37c90a9099394bb8639e07ad4c89f..7aa2aa1541c4787ab90eeebb5a5756eb53cb658c 100644 (file)
@@ -21,8 +21,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
 #include "bfd.h"
 #include "sysdep.h"
+#include "bfdlink.h"
 #include "libbfd.h"
-#include "seclet.h"
 #include "coff/internal.h"
 #include "coff/sym.h"
 #include "coff/symconst.h"
@@ -34,37 +34,61 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 /* Prototypes for static functions.  */
 
 static boolean mips_ecoff_bad_format_hook PARAMS ((bfd *abfd, PTR filehdr));
-static PTR mips_ecoff_mkobject_hook PARAMS ((bfd *abfd, PTR filehdr,
-                                            PTR aouthdr));
 static void mips_ecoff_swap_reloc_in PARAMS ((bfd *, PTR,
                                              struct internal_reloc *));
 static void mips_ecoff_swap_reloc_out PARAMS ((bfd *,
                                               const struct internal_reloc *,
                                               PTR));
+static void mips_adjust_reloc_in PARAMS ((bfd *,
+                                         const struct internal_reloc *,
+                                         arelent *));
+static void mips_adjust_reloc_out PARAMS ((bfd *, const arelent *,
+                                          struct internal_reloc *));
 static bfd_reloc_status_type mips_generic_reloc PARAMS ((bfd *abfd,
                                                         arelent *reloc,
                                                         asymbol *symbol,
                                                         PTR data,
                                                         asection *section,
-                                                        bfd *output_bfd));
+                                                        bfd *output_bfd,
+                                                        char **error));
 static bfd_reloc_status_type mips_refhi_reloc PARAMS ((bfd *abfd,
                                                       arelent *reloc,
                                                       asymbol *symbol,
                                                       PTR data,
                                                       asection *section,
-                                                      bfd *output_bfd));
+                                                      bfd *output_bfd,
+                                                      char **error));
 static bfd_reloc_status_type mips_reflo_reloc PARAMS ((bfd *abfd,
                                                       arelent *reloc,
                                                       asymbol *symbol,
                                                       PTR data,
                                                       asection *section,
-                                                      bfd *output_bfd));
+                                                      bfd *output_bfd,
+                                                      char **error));
 static bfd_reloc_status_type mips_gprel_reloc PARAMS ((bfd *abfd,
                                                       arelent *reloc,
                                                       asymbol *symbol,
                                                       PTR data,
                                                       asection *section,
-                                                      bfd *output_bfd));
+                                                      bfd *output_bfd,
+                                                      char **error));
+static void mips_relocate_refhi PARAMS ((struct internal_reloc *refhi,
+                                        struct internal_reloc *reflo,
+                                        bfd *input_bfd,
+                                        asection *input_section,
+                                        bfd_byte *contents,
+                                        size_t adjust,
+                                        bfd_vma relocation));
+static boolean mips_relocate_section PARAMS ((bfd *, struct bfd_link_info *,
+                                             bfd *, asection *,
+                                             bfd_byte *, PTR));
+static boolean mips_relax_section PARAMS ((bfd *, asection *,
+                                          struct bfd_link_info *,
+                                          boolean *));
+static boolean mips_relax_pcrel16 PARAMS ((struct bfd_link_info *, bfd *,
+                                          asection *,
+                                          struct ecoff_link_hash_entry *,
+                                          bfd_byte *, bfd_vma));
 \f
 /* ECOFF has COFF sections, but the debugging information is stored in
    a completely different format.  ECOFF targets use some of the
@@ -148,7 +172,10 @@ static reloc_howto_type mips_howto_table[] =
         26,                    /* bitsize */
         false,                 /* pc_relative */
         0,                     /* bitpos */
-        complain_overflow_bitfield, /* complain_on_overflow */
+        complain_overflow_dont, /* complain_on_overflow */
+                               /* This needs complex overflow
+                                  detection, because the upper four
+                                  bits must match the PC.  */
         mips_generic_reloc,    /* special_function */
         "JMPADDR",             /* name */
         true,                  /* partial_inplace */
@@ -217,11 +244,45 @@ static reloc_howto_type mips_howto_table[] =
         true,                  /* partial_inplace */
         0xffff,                /* src_mask */
         0xffff,                /* dst_mask */
-        false)                 /* pcrel_offset */
+        false),                /* pcrel_offset */
+
+  /* This reloc is a Cygnus extension used when generating position
+     independent code for embedded systems.  It represents a 16 bit PC
+     relative reloc rightshifted twice as used in the MIPS branch
+     instructions.  */
+  HOWTO (MIPS_R_PCREL16,       /* type */
+        2,                     /* rightshift */
+        2,                     /* size (0 = byte, 1 = short, 2 = long) */
+        16,                    /* bitsize */
+        true,                  /* pc_relative */
+        0,                     /* bitpos */
+        complain_overflow_signed, /* complain_on_overflow */
+        mips_generic_reloc,    /* special_function */
+        "PCREL16",             /* name */
+        true,                  /* partial_inplace */
+        0xffff,                /* src_mask */
+        0xffff,                /* dst_mask */
+        true)                  /* pcrel_offset */
 };
 
 #define MIPS_HOWTO_COUNT \
   (sizeof mips_howto_table / sizeof mips_howto_table[0])
+
+/* When the linker is doing relaxing, it may change a external PCREL16
+   reloc.  This typically represents an instruction like
+       bal foo
+   We change it to
+       .set  noreorder
+       bal   $L1
+       lui   $at,%hi(foo - $L1)
+     $L1:
+       addiu $at,%lo(foo - $L1)
+       addu  $at,$at,$31
+       jalr  $at
+   PCREL16_EXPANSION_ADJUSTMENT is the number of bytes this changes the
+   instruction by.  */
+
+#define PCREL16_EXPANSION_ADJUSTMENT (4 * 4)
 \f
 /* See whether the magic number matches.  */
 
@@ -232,46 +293,25 @@ mips_ecoff_bad_format_hook (abfd, filehdr)
 {
   struct internal_filehdr *internal_f = (struct internal_filehdr *) filehdr;
 
-  if (MIPS_ECOFF_BADMAG (*internal_f))
-    return false;
-
-  return true;
-}
-
-/* Create the MIPS ECOFF backend specific information.  */
-
-static PTR
-mips_ecoff_mkobject_hook (abfd, filehdr, aouthdr)
-     bfd *abfd;
-     PTR filehdr;
-     PTR aouthdr;
-{
-  struct internal_filehdr *internal_f = (struct internal_filehdr *) filehdr;
-  struct internal_aouthdr *internal_a = (struct internal_aouthdr *) aouthdr;
-  ecoff_data_type *ecoff;
+  switch (internal_f->f_magic)
+    {
+    case MIPS_MAGIC_1:
+      /* I don't know what endianness this implies.  */
+      return true;
 
-  if (ecoff_mkobject (abfd) == false)
-    return NULL;
+    case MIPS_MAGIC_BIG:
+    case MIPS_MAGIC_BIG2:
+    case MIPS_MAGIC_BIG3:
+      return abfd->xvec->byteorder_big_p;
 
-  ecoff = ecoff_data (abfd);
-  ecoff->gp_size = 8;
-  ecoff->sym_filepos = internal_f->f_symptr;
+    case MIPS_MAGIC_LITTLE:
+    case MIPS_MAGIC_LITTLE2:
+    case MIPS_MAGIC_LITTLE3:
+      return abfd->xvec->byteorder_big_p == false;
 
-  if (internal_a != (struct internal_aouthdr *) NULL)
-    {
-      int i;
-
-      ecoff->text_start = internal_a->text_start;
-      ecoff->text_end = internal_a->text_start + internal_a->tsize;
-      ecoff->gp = internal_a->gp_value;
-      ecoff->gprmask = internal_a->gprmask;
-      for (i = 0; i < 4; i++)
-       ecoff->cprmask[i] = internal_a->cprmask[i];
-      if (internal_a->magic == ECOFF_AOUT_ZMAGIC)
-       abfd->flags |= D_PAGED;
+    default:
+      return false;
     }
-
-  return (PTR) ecoff;
 }
 \f
 /* Reloc handling.  MIPS ECOFF relocs are packed into 8 bytes in
@@ -325,6 +365,9 @@ mips_ecoff_swap_reloc_out (abfd, intern, dst)
 {
   RELOC *ext = (RELOC *) dst;
 
+  BFD_ASSERT (intern->r_extern
+             || (intern->r_symndx >= 0 && intern->r_symndx <= 12));
+
   bfd_h_put_32 (abfd, intern->r_vaddr, (bfd_byte *) ext->r_vaddr);
   if (abfd->xvec->header_byteorder_big_p != false)
     {
@@ -351,12 +394,12 @@ mips_ecoff_swap_reloc_out (abfd, intern, dst)
    this backend routine.  It must fill in the howto field.  */
 
 static void
-mips_finish_reloc (abfd, intern, rptr)
+mips_adjust_reloc_in (abfd, intern, rptr)
      bfd *abfd;
-     struct internal_reloc *intern;
+     const struct internal_reloc *intern;
      arelent *rptr;
 {
-  if (intern->r_type > MIPS_R_LITERAL)
+  if (intern->r_type > MIPS_R_PCREL16)
     abort ();
 
   if (! intern->r_extern
@@ -372,6 +415,17 @@ mips_finish_reloc (abfd, intern, rptr)
   rptr->howto = &mips_howto_table[intern->r_type];
 }
 
+/* Make any adjustments needed to a reloc before writing it out.  None
+   are needed for MIPS.  */
+
+static void
+mips_adjust_reloc_out (abfd, rel, intern)
+     bfd *abfd;
+     const arelent *rel;
+     struct internal_reloc *intern;
+{
+}
+
 /* ECOFF relocs are either against external symbols, or against
    sections.  If we are producing relocateable output, and the reloc
    is against an external symbol, and nothing has given us any
@@ -389,13 +443,15 @@ mips_generic_reloc (abfd,
                    symbol,
                    data,
                    input_section,
-                   output_bfd)
+                   output_bfd,
+                   error_message)
      bfd *abfd;
      arelent *reloc_entry;
      asymbol *symbol;
      PTR data;
      asection *input_section;
      bfd *output_bfd;
+     char **error_message;
 {
   if (output_bfd != (bfd *) NULL
       && (symbol->flags & BSF_SECTION_SYM) == 0
@@ -423,13 +479,15 @@ mips_refhi_reloc (abfd,
                  symbol,
                  data,
                  input_section,
-                 output_bfd)
+                 output_bfd,
+                 error_message)
      bfd *abfd;
      arelent *reloc_entry;
      asymbol *symbol;
      PTR data;
      asection *input_section;
      bfd *output_bfd;
+     char **error_message;
 {
   bfd_reloc_status_type ret;
   bfd_vma relocation;
@@ -481,13 +539,15 @@ mips_reflo_reloc (abfd,
                  symbol,
                  data,
                  input_section,
-                 output_bfd)
+                 output_bfd,
+                 error_message)
      bfd *abfd;
      arelent *reloc_entry;
      asymbol *symbol;
      PTR data;
      asection *input_section;
      bfd *output_bfd;
+     char **error_message;
 {
   if (mips_refhi_addr != (bfd_byte *) NULL)
     {
@@ -523,7 +583,7 @@ mips_reflo_reloc (abfd,
 
   /* Now do the REFLO reloc in the usual way.  */
   return mips_generic_reloc (abfd, reloc_entry, symbol, data,
-                             input_section, output_bfd);
+                             input_section, output_bfd, error_message);
 }
 
 /* Do a GPREL relocation.  This is a 16 bit value which must become
@@ -531,17 +591,19 @@ mips_reflo_reloc (abfd,
 
 static bfd_reloc_status_type
 mips_gprel_reloc (abfd,
-                  reloc_entry,
-                  symbol,
-                  data,
-                  input_section,
-                  output_bfd)
+                 reloc_entry,
+                 symbol,
+                 data,
+                 input_section,
+                 output_bfd,
+                 error_message)
      bfd *abfd;
      arelent *reloc_entry;
      asymbol *symbol;
      PTR data;
      asection *input_section;
      bfd *output_bfd;
+     char **error_message;
 {
   boolean relocateable;
   bfd_vma relocation;
@@ -617,9 +679,8 @@ mips_gprel_reloc (abfd,
            {
              /* Only get the error once.  */
              ecoff_data (output_bfd)->gp = 4;
-             /* FIXME: How can we get the program name here?  */
-             fprintf (stderr,
-                      "GP relative relocation when _gp not defined\n");
+             *error_message =
+               (char *) "GP relative relocation when _gp not defined";
              return bfd_reloc_dangerous;
            }
        }
@@ -658,7 +719,7 @@ mips_gprel_reloc (abfd,
 
   /* Make sure it fit in 16 bits.  */
   if (val >= 0x8000 && val < 0xffff8000)
-    return bfd_reloc_outofrange;
+    return bfd_reloc_overflow;
 
   return bfd_reloc_ok;
 }
@@ -678,6 +739,7 @@ mips_bfd_reloc_type_lookup (abfd, code)
       mips_type = MIPS_R_REFHALF;
       break;
     case BFD_RELOC_32:
+    case BFD_RELOC_CTOR:
       mips_type = MIPS_R_REFWORD;
       break;
     case BFD_RELOC_MIPS_JMP:
@@ -692,6 +754,12 @@ mips_bfd_reloc_type_lookup (abfd, code)
     case BFD_RELOC_MIPS_GPREL:
       mips_type = MIPS_R_GPREL;
       break;
+    case BFD_RELOC_MIPS_LITERAL:
+      mips_type = MIPS_R_LITERAL;
+      break;
+    case BFD_RELOC_16_PCREL_S2:
+      mips_type = MIPS_R_PCREL16;
+      break;
     default:
       return (CONST struct reloc_howto_struct *) NULL;
     }
@@ -699,150 +767,921 @@ mips_bfd_reloc_type_lookup (abfd, code)
   return &mips_howto_table[mips_type];
 }
 \f
-#ifdef HOST_IRIX4
+/* A helper routine for mips_relocate_section which handles the REFHI
+   relocation.  The REFHI relocation must be followed by a REFLO
+   relocation, and the addend used is formed from the addends of both
+   instructions.  */
 
-#include <core.out.h>
-
-struct sgi_core_struct 
+static void
+mips_relocate_refhi (refhi, reflo, input_bfd, input_section, contents,
+                    adjust, relocation)
+     struct internal_reloc *refhi;
+     struct internal_reloc *reflo;
+     bfd *input_bfd;
+     asection *input_section;
+     bfd_byte *contents;
+     size_t adjust;
+     bfd_vma relocation;
 {
-  int sig;
-  char cmd[CORE_NAMESIZE];
-};
+  unsigned long insn;
+  unsigned long val;
+  unsigned long vallo;
+
+  insn = bfd_get_32 (input_bfd,
+                    contents + adjust + refhi->r_vaddr - input_section->vma);
+  vallo = (bfd_get_32 (input_bfd,
+                      contents + adjust + reflo->r_vaddr - input_section->vma)
+          & 0xffff);
+  val = ((insn & 0xffff) << 16) + vallo;
+  val += relocation;
+
+  /* The low order 16 bits are always treated as a signed value.
+     Therefore, a negative value in the low order bits requires an
+     adjustment in the high order bits.  We need to make this
+     adjustment in two ways: once for the bits we took from the data,
+     and once for the bits we are putting back in to the data.  */
+  if ((vallo & 0x8000) != 0)
+    val -= 0x10000;
+  if ((val & 0x8000) != 0)
+    val += 0x10000;
 
-#define core_hdr(bfd) ((bfd)->tdata.sgi_core_data)
-#define core_signal(bfd) (core_hdr(bfd)->sig)
-#define core_command(bfd) (core_hdr(bfd)->cmd)
+  insn = (insn &~ 0xffff) | ((val >> 16) & 0xffff);
+  bfd_put_32 (input_bfd, (bfd_vma) insn,
+             contents + adjust + refhi->r_vaddr - input_section->vma);
+}
 
-static asection *
-make_bfd_asection (abfd, name, flags, _raw_size, vma, filepos)
-     bfd *abfd;
-     CONST char *name;
-     flagword flags;
-     bfd_size_type _raw_size;
-     bfd_vma vma;
-     file_ptr filepos;
+/* Relocate a section while linking a MIPS ECOFF file.  */
+
+static boolean
+mips_relocate_section (output_bfd, info, input_bfd, input_section,
+                      contents, external_relocs)
+     bfd *output_bfd;
+     struct bfd_link_info *info;
+     bfd *input_bfd;
+     asection *input_section;
+     bfd_byte *contents;
+     PTR external_relocs;
 {
-  asection *asect;
+  asection **symndx_to_section;
+  struct ecoff_link_hash_entry **sym_hashes;
+  bfd_vma gp;
+  boolean gp_undefined;
+  size_t adjust;
+  long *offsets;
+  struct external_reloc *ext_rel;
+  struct external_reloc *ext_rel_end;
+  unsigned int i;
+  boolean got_reflo;
+  struct internal_reloc reflo_int_rel;
+
+  BFD_ASSERT (input_bfd->xvec->header_byteorder_big_p
+             == output_bfd->xvec->header_byteorder_big_p);
+
+  /* We keep a table mapping the symndx found in an internal reloc to
+     the appropriate section.  This is faster than looking up the
+     section by name each time.  */
+  symndx_to_section = ecoff_data (input_bfd)->symndx_to_section;
+  if (symndx_to_section == (asection **) NULL)
+    {
+      symndx_to_section = ((asection **)
+                          bfd_alloc (input_bfd,
+                                     (NUM_RELOC_SECTIONS
+                                      * sizeof (asection *))));
+      if (!symndx_to_section)
+       {
+         bfd_set_error (bfd_error_no_memory);
+         return false;
+       }
+
+      symndx_to_section[RELOC_SECTION_NONE] = NULL;
+      symndx_to_section[RELOC_SECTION_TEXT] =
+       bfd_get_section_by_name (input_bfd, ".text");
+      symndx_to_section[RELOC_SECTION_RDATA] =
+       bfd_get_section_by_name (input_bfd, ".rdata");
+      symndx_to_section[RELOC_SECTION_DATA] =
+       bfd_get_section_by_name (input_bfd, ".data");
+      symndx_to_section[RELOC_SECTION_SDATA] =
+       bfd_get_section_by_name (input_bfd, ".sdata");
+      symndx_to_section[RELOC_SECTION_SBSS] =
+       bfd_get_section_by_name (input_bfd, ".sbss");
+      symndx_to_section[RELOC_SECTION_BSS] =
+       bfd_get_section_by_name (input_bfd, ".bss");
+      symndx_to_section[RELOC_SECTION_INIT] =
+       bfd_get_section_by_name (input_bfd, ".init");
+      symndx_to_section[RELOC_SECTION_LIT8] =
+       bfd_get_section_by_name (input_bfd, ".lit8");
+      symndx_to_section[RELOC_SECTION_LIT4] =
+       bfd_get_section_by_name (input_bfd, ".lit4");
+      symndx_to_section[RELOC_SECTION_XDATA] = NULL;
+      symndx_to_section[RELOC_SECTION_PDATA] = NULL;
+      symndx_to_section[RELOC_SECTION_FINI] =
+       bfd_get_section_by_name (input_bfd, ".fini");
+      symndx_to_section[RELOC_SECTION_LITA] = NULL;
+      symndx_to_section[RELOC_SECTION_ABS] = NULL;
+
+      ecoff_data (input_bfd)->symndx_to_section = symndx_to_section;
+    }
+
+  sym_hashes = ecoff_data (input_bfd)->sym_hashes;
+
+  gp = ecoff_data (output_bfd)->gp;
+  if (gp == 0)
+    gp_undefined = true;
+  else
+    gp_undefined = false;
+
+  got_reflo = false;
+
+  adjust = 0;
+
+  if (ecoff_section_data (input_bfd, input_section) == NULL)
+    offsets = NULL;
+  else
+    offsets = ecoff_section_data (input_bfd, input_section)->offsets;
+
+  ext_rel = (struct external_reloc *) external_relocs;
+  ext_rel_end = ext_rel + input_section->reloc_count;
+  for (i = 0; ext_rel < ext_rel_end; ext_rel++, i++)
+    {
+      struct internal_reloc int_rel;
+      bfd_vma addend;
+      reloc_howto_type *howto;
+      struct ecoff_link_hash_entry *h = NULL;
+      asection *s = NULL;
+      bfd_vma relocation;
+      bfd_reloc_status_type r;
+
+      if (! got_reflo)
+       mips_ecoff_swap_reloc_in (input_bfd, (PTR) ext_rel, &int_rel);
+      else
+       {
+         int_rel = reflo_int_rel;
+         got_reflo = false;
+       }
+
+      BFD_ASSERT (int_rel.r_type
+                 < sizeof mips_howto_table / sizeof mips_howto_table[0]);
+
+      /* The REFHI reloc requires special handling.  It must be
+        followed by a REFLO reloc, and the addend is formed from both
+        fields.  */
+      if (int_rel.r_type == MIPS_R_REFHI)
+       {
+         BFD_ASSERT ((ext_rel + 1) < ext_rel_end);
+         mips_ecoff_swap_reloc_in (input_bfd, (PTR) (ext_rel + 1),
+                                   &reflo_int_rel);
+         BFD_ASSERT (reflo_int_rel.r_type == MIPS_R_REFLO
+                     && int_rel.r_extern == reflo_int_rel.r_extern
+                     && int_rel.r_symndx == reflo_int_rel.r_symndx);
+         got_reflo = true;
+       }
+
+      howto = &mips_howto_table[int_rel.r_type];
+
+      if (int_rel.r_extern)
+       {
+         h = sym_hashes[int_rel.r_symndx];
+         /* If h is NULL, that means that there is a reloc against an
+            external symbol which we thought was just a debugging
+            symbol.  This should not happen.  */
+         if (h == (struct ecoff_link_hash_entry *) NULL)
+           abort ();
+       }
+      else
+       {
+         if (int_rel.r_symndx < 0 || int_rel.r_symndx >= NUM_RELOC_SECTIONS)
+           s = NULL;
+         else
+           s = symndx_to_section[int_rel.r_symndx];
+
+         if (s == (asection *) NULL)
+           abort ();
+       }
 
-  asect = bfd_make_section (abfd, name);
-  if (!asect)
-    return NULL;
+      /* The GPREL reloc uses an addend: the difference in the GP
+        values.  */
+      if (int_rel.r_type != MIPS_R_GPREL
+         && int_rel.r_type != MIPS_R_LITERAL)
+       addend = 0;
+      else
+       {
+         if (gp_undefined)
+           {
+             if (! ((*info->callbacks->reloc_dangerous)
+                    (info, "GP relative relocation when GP not defined",
+                     input_bfd, input_section,
+                     int_rel.r_vaddr - input_section->vma)))
+               return false;
+             /* Only give the error once per link.  */
+             ecoff_data (output_bfd)->gp = gp = 4;
+             gp_undefined = false;
+           }
+         if (! int_rel.r_extern)
+           {
+             /* This is a relocation against a section.  The current
+                addend in the instruction is the difference between
+                INPUT_SECTION->vma and the GP value of INPUT_BFD.  We
+                must change this to be the difference between the
+                final definition (which will end up in RELOCATION)
+                and the GP value of OUTPUT_BFD (which is in GP).  */
+             addend = ecoff_data (input_bfd)->gp - gp;
+           }
+         else if (! info->relocateable
+                  || h->root.type == bfd_link_hash_defined)
+           {
+             /* This is a relocation against an undefined or common
+                symbol.  The current addend in the instruction is
+                simply the desired offset into the symbol (normally
+                zero).  We are going to change this into a relocation
+                against a defined symbol, so we want the instruction
+                to hold the difference between the final definition
+                of the symbol (which will end up in RELOCATION) and
+                the GP value of OUTPUT_BFD (which is in GP).  */
+             addend = - gp;
+           }
+         else
+           {
+             /* This is a relocation against an undefined or common
+                symbol.  The current addend in the instruction is
+                simply the desired offset into the symbol (normally
+                zero).  We are generating relocateable output, and we
+                aren't going to define this symbol, so we just leave
+                the instruction alone.  */
+             addend = 0;
+           }
+       }
 
-  asect->flags = flags;
-  asect->_raw_size = _raw_size;
-  asect->vma = vma;
-  asect->filepos = filepos;
-  asect->alignment_power = 4;
+      /* If we are relaxing, mips_relax_section may have set
+        offsets[i] to some value.  A value of 1 means we must expand
+        a PC relative branch into a multi-instruction of sequence,
+        and any other value is an addend.  */
+      if (offsets != NULL
+         && offsets[i] != 0)
+       {
+         BFD_ASSERT (! info->relocateable);
+         BFD_ASSERT (int_rel.r_type == MIPS_R_PCREL16);
+         if (offsets[i] != 1)
+           {
+             BFD_ASSERT (! int_rel.r_extern);
+             addend += offsets[i];
+           }
+         else
+           {
+             bfd_byte *here;
+
+             BFD_ASSERT (int_rel.r_extern);
+
+             /* Move the rest of the instructions up.  */
+             here = (contents
+                     + adjust
+                     + int_rel.r_vaddr
+                     - input_section->vma);
+             memmove (here + PCREL16_EXPANSION_ADJUSTMENT, here,
+                      (input_section->_raw_size
+                       - (int_rel.r_vaddr - input_section->vma)));
+                      
+             /* Generate the new instructions.  */
+             if (! mips_relax_pcrel16 (info, input_bfd, input_section,
+                                       h, here,
+                                       (input_section->output_section->vma
+                                        + input_section->output_offset
+                                        + (int_rel.r_vaddr
+                                           - input_section->vma)
+                                        + adjust)))
+               return false;
+
+             /* We must adjust everything else up a notch.  */
+             adjust += PCREL16_EXPANSION_ADJUSTMENT;
+
+             /* mips_relax_pcrel16 handles all the details of this
+                relocation.  */
+             continue;
+           }
+       }
+
+      if (info->relocateable)
+       {
+         /* We are generating relocateable output, and must convert
+            the existing reloc.  */
+         if (int_rel.r_extern)
+           {
+             if (h->root.type == bfd_link_hash_defined)
+               {
+                 const char *name;
+
+                 /* This symbol is defined in the output.  Convert
+                    the reloc from being against the symbol to being
+                    against the section.  */
+
+                 /* Clear the r_extern bit.  */
+                 int_rel.r_extern = 0;
+
+                 /* Compute a new r_symndx value.  */
+                 s = h->root.u.def.section;
+                 name = bfd_get_section_name (output_bfd,
+                                              s->output_section);
 
-  return asect;
+                 int_rel.r_symndx = -1;
+                 switch (name[1])
+                   {
+                   case 'b':
+                     if (strcmp (name, ".bss") == 0)
+                       int_rel.r_symndx = RELOC_SECTION_BSS;
+                     break;
+                   case 'd':
+                     if (strcmp (name, ".data") == 0)
+                       int_rel.r_symndx = RELOC_SECTION_DATA;
+                     break;
+                   case 'f':
+                     if (strcmp (name, ".fini") == 0)
+                       int_rel.r_symndx = RELOC_SECTION_FINI;
+                     break;
+                   case 'i':
+                     if (strcmp (name, ".init") == 0)
+                       int_rel.r_symndx = RELOC_SECTION_INIT;
+                     break;
+                   case 'l':
+                     if (strcmp (name, ".lit8") == 0)
+                       int_rel.r_symndx = RELOC_SECTION_LIT8;
+                     else if (strcmp (name, ".lit4") == 0)
+                       int_rel.r_symndx = RELOC_SECTION_LIT4;
+                     break;
+                   case 'r':
+                     if (strcmp (name, ".rdata") == 0)
+                       int_rel.r_symndx = RELOC_SECTION_RDATA;
+                     break;
+                   case 's':
+                     if (strcmp (name, ".sdata") == 0)
+                       int_rel.r_symndx = RELOC_SECTION_SDATA;
+                     else if (strcmp (name, ".sbss") == 0)
+                       int_rel.r_symndx = RELOC_SECTION_SBSS;
+                     break;
+                   case 't':
+                     if (strcmp (name, ".text") == 0)
+                       int_rel.r_symndx = RELOC_SECTION_TEXT;
+                     break;
+                   }
+                     
+                 if (int_rel.r_symndx == -1)
+                   abort ();
+
+                 /* Add the section VMA and the symbol value.  */
+                 relocation = (h->root.u.def.value
+                               + s->output_section->vma
+                               + s->output_offset);
+
+                 /* For a PC relative relocation, the object file
+                    currently holds just the addend.  We must adjust
+                    by the address to get the right value.  */
+                 if (howto->pc_relative)
+                   relocation -= int_rel.r_vaddr - input_section->vma;
+
+                 h = NULL;
+               }
+             else
+               {
+                 /* Change the symndx value to the right one for the
+                    output BFD.  */
+                 int_rel.r_symndx = h->indx;
+                 if (int_rel.r_symndx == -1)
+                   {
+                     /* This symbol is not being written out.  */
+                     if (! ((*info->callbacks->unattached_reloc)
+                            (info, h->root.root.string, input_bfd,
+                             input_section,
+                             int_rel.r_vaddr - input_section->vma)))
+                       return false;
+                     int_rel.r_symndx = 0;
+                   }
+                 relocation = 0;
+               }
+           }
+         else
+           {
+             /* This is a relocation against a section.  Adjust the
+                value by the amount the section moved.  */
+             relocation = (s->output_section->vma
+                           + s->output_offset
+                           - s->vma);
+           }
+
+         relocation += addend;
+
+         /* Adjust a PC relative relocation by removing the reference
+            to the original address in the section and including the
+            reference to the new address.  */
+         if (howto->pc_relative)
+           relocation -= (input_section->output_section->vma
+                          + input_section->output_offset
+                          - input_section->vma);
+
+         /* Adjust the contents.  */
+         if (relocation == 0)
+           r = bfd_reloc_ok;
+         else
+           {
+             if (int_rel.r_type != MIPS_R_REFHI)
+               r = _bfd_relocate_contents (howto, input_bfd, relocation,
+                                           (contents
+                                            + adjust
+                                            + int_rel.r_vaddr
+                                            - input_section->vma));
+             else
+               {
+                 mips_relocate_refhi (&int_rel, &reflo_int_rel,
+                                      input_bfd, input_section, contents,
+                                      adjust, relocation);
+                 r = bfd_reloc_ok;
+               }
+           }
+
+         /* Adjust the reloc address.  */
+         int_rel.r_vaddr += (input_section->output_section->vma
+                             + input_section->output_offset
+                             - input_section->vma);
+
+         /* Save the changed reloc information.  */
+         mips_ecoff_swap_reloc_out (input_bfd, &int_rel, (PTR) ext_rel);
+       }
+      else
+       {
+         /* We are producing a final executable.  */
+         if (int_rel.r_extern)
+           {
+             /* This is a reloc against a symbol.  */
+             if (h->root.type == bfd_link_hash_defined)
+               {
+                 asection *hsec;
+
+                 hsec = h->root.u.def.section;
+                 relocation = (h->root.u.def.value
+                               + hsec->output_section->vma
+                               + hsec->output_offset);
+               }
+             else
+               {
+                 if (! ((*info->callbacks->undefined_symbol)
+                        (info, h->root.root.string, input_bfd,
+                         input_section,
+                         int_rel.r_vaddr - input_section->vma)))
+                   return false;
+                 relocation = 0;
+               }
+           }
+         else
+           {
+             /* This is a reloc against a section.  */
+             relocation = (s->output_section->vma
+                           + s->output_offset
+                           - s->vma);
+
+             /* A PC relative reloc is already correct in the object
+                file.  Make it look like a pcrel_offset relocation by
+                adding in the start address.  */
+             if (howto->pc_relative)
+               relocation += int_rel.r_vaddr + adjust;
+           }
+
+         if (int_rel.r_type != MIPS_R_REFHI)
+           r = _bfd_final_link_relocate (howto,
+                                         input_bfd,
+                                         input_section,
+                                         contents,
+                                         (int_rel.r_vaddr
+                                          - input_section->vma
+                                          + adjust),
+                                         relocation,
+                                         addend);
+         else
+           {
+             mips_relocate_refhi (&int_rel, &reflo_int_rel, input_bfd,
+                                  input_section, contents, adjust,
+                                  relocation);
+             r = bfd_reloc_ok;
+           }
+       }
+
+      if (r != bfd_reloc_ok)
+       {
+         switch (r)
+           {
+           default:
+           case bfd_reloc_outofrange:
+             abort ();
+           case bfd_reloc_overflow:
+             {
+               const char *name;
+
+               if (int_rel.r_extern)
+                 name = h->root.root.string;
+               else
+                 name = bfd_section_name (input_bfd, s);
+               if (! ((*info->callbacks->reloc_overflow)
+                      (info, name, howto->name, (bfd_vma) 0,
+                       input_bfd, input_section,
+                       int_rel.r_vaddr - input_section->vma)))
+                 return false;
+             }
+             break;
+           }
+       }
+    }
+
+  return true;
 }
+\f
+/* Relax a section when linking a MIPS ECOFF file.  This is used for
+   embedded PIC code, which always uses PC relative branches which
+   only have an 18 bit range on MIPS.  If a branch is not in range, we
+   generate a long instruction sequence to compensate.  Each time we
+   find a branch to expand, we have to check all the others again to
+   make sure they are still in range.  This is slow, but it only has
+   to be done when -relax is passed to the linker.
+
+   This routine figures out which branches need to expand; the actual
+   expansion is done in mips_relocate_section when the section
+   contents are relocated.  The information is stored in the offsets
+   field of the ecoff_section_tdata structure.  An offset of 1 means
+   that the branch must be expanded into a multi-instruction PC
+   relative branch (such an offset will only occur for a PC relative
+   branch to an external symbol).  Any other offset must be a multiple
+   of four, and is the amount to change the branch by (such an offset
+   will only occur for a PC relative branch within the same section).
+
+   We do not modify the section relocs or contents themselves so that
+   if memory usage becomes an issue we can discard them and read them
+   again.  The only information we must save in memory between this
+   routine and the mips_relocate_section routine is the table of
+   offsets.  */
 
-static bfd_target *
-ecoff_core_file_p (abfd)
+static boolean
+mips_relax_section (abfd, sec, info, again)
      bfd *abfd;
+     asection *sec;
+     struct bfd_link_info *info;
+     boolean *again;
 {
-  int val;
-  int i;
-  char *secname;
-  struct coreout coreout;
-  struct idesc *idg, *idf, *ids;
+  struct ecoff_section_tdata *section_tdata;
+  bfd_byte *contents = NULL;
+  long *offsets;
+  struct external_reloc *ext_rel;
+  struct external_reloc *ext_rel_end;
+  unsigned int i;
+
+  /* Assume we are not going to need another pass.  */
+  *again = false;
+
+  /* If we are not generating an ECOFF file, this is much too
+     confusing to deal with.  */
+  if (info->hash->creator->flavour != bfd_get_flavour (abfd))
+    return true;
+
+  /* If there are no relocs, there is nothing to do.  */
+  if (sec->reloc_count == 0)
+    return true;
+
+  /* We are only interested in PC relative relocs, and why would there
+     ever be one from anything but the .text section?  */
+  if (strcmp (bfd_get_section_name (abfd, sec), ".text") != 0)
+    return true;
+
+  /* Read in the relocs, if we haven't already got them.  */
+  section_tdata = ecoff_section_data (abfd, sec);
+  if (section_tdata == (struct ecoff_section_tdata *) NULL)
+    {
+      bfd_size_type external_reloc_size;
+      bfd_size_type external_relocs_size;
 
-  val = bfd_read ((PTR)&coreout, 1, sizeof coreout, abfd);
-  if (val != sizeof coreout)
-    return 0;
+      sec->used_by_bfd =
+       (PTR) bfd_alloc_by_size_t (abfd, sizeof (struct ecoff_section_tdata));
+      if (sec->used_by_bfd == NULL)
+       {
+         bfd_set_error (bfd_error_no_memory);
+         goto error_return;
+       }
 
-  if (coreout.c_magic != CORE_MAGIC
-      || coreout.c_version != CORE_VERSION1)
-    return 0;
+      section_tdata = ecoff_section_data (abfd, sec);
+      section_tdata->contents = NULL;
+      section_tdata->offsets = NULL;
 
-  core_hdr (abfd) = (struct sgi_core_struct *) bfd_zalloc (abfd, sizeof (struct sgi_core_struct));
-  if (!core_hdr (abfd))
-    return NULL;
+      external_reloc_size = ecoff_backend (abfd)->external_reloc_size;
+      external_relocs_size = external_reloc_size * sec->reloc_count;
 
-  strncpy (core_command (abfd), coreout.c_name, CORE_NAMESIZE);
-  core_signal (abfd) = coreout.c_sigcause;
+      section_tdata->external_relocs =
+       (PTR) bfd_alloc (abfd, external_relocs_size);
+      if (section_tdata->external_relocs == NULL && external_relocs_size != 0)
+       {
+         bfd_set_error (bfd_error_no_memory);
+         goto error_return;
+       }
+
+      if (bfd_seek (abfd, sec->rel_filepos, SEEK_SET) != 0
+         || (bfd_read (section_tdata->external_relocs, 1,
+                       external_relocs_size, abfd)
+             != external_relocs_size))
+       goto error_return;
+
+      /* We must initialize _cooked_size only the first time we are
+        called.  */
+      sec->_cooked_size = sec->_raw_size;
+    }
 
-  bfd_seek (abfd, coreout.c_vmapoffset, SEEK_SET);
+  contents = section_tdata->contents;
+  offsets = section_tdata->offsets;
 
-  for (i = 0; i < coreout.c_nvmap; i++)
+  /* Look for any external PC relative relocs.  Internal PC relative
+     relocs are already correct in the object file, so they certainly
+     can not overflow.  */
+  ext_rel = (struct external_reloc *) section_tdata->external_relocs;
+  ext_rel_end = ext_rel + sec->reloc_count;
+  for (i = 0; ext_rel < ext_rel_end; ext_rel++, i++)
     {
-      struct vmap vmap;
+      struct internal_reloc int_rel;
+      struct ecoff_link_hash_entry *h;
+      asection *hsec;
+      bfd_signed_vma relocation;
+      struct external_reloc *adj_ext_rel;
+      unsigned int adj_i;
+      unsigned long ext_count;
+      struct ecoff_link_hash_entry **adj_h_ptr;
+      struct ecoff_link_hash_entry **adj_h_ptr_end;
+      struct ecoff_value_adjust *adjust;
+
+      /* If we have already expanded this reloc, we certainly don't
+        need to do it again.  */
+      if (offsets != (long *) NULL && offsets[i] == 1)
+       continue;
+
+      /* Quickly check that this reloc is external PCREL16.  */
+      if (abfd->xvec->header_byteorder_big_p)
+       {
+         if ((ext_rel->r_bits[3] & RELOC_BITS3_EXTERN_BIG) == 0
+             || (((ext_rel->r_bits[3] & RELOC_BITS3_TYPE_BIG)
+                  >> RELOC_BITS3_TYPE_SH_BIG)
+                 != MIPS_R_PCREL16))
+           continue;
+       }
+      else
+       {
+         if ((ext_rel->r_bits[3] & RELOC_BITS3_EXTERN_LITTLE) == 0
+             || (((ext_rel->r_bits[3] & RELOC_BITS3_TYPE_LITTLE)
+                  >> RELOC_BITS3_TYPE_SH_LITTLE)
+                 != MIPS_R_PCREL16))
+           continue;
+       }
+
+      mips_ecoff_swap_reloc_in (abfd, (PTR) ext_rel, &int_rel);
 
-      val = bfd_read ((PTR)&vmap, 1, sizeof vmap, abfd);
-      if (val != sizeof vmap)
-       break;
+      h = ecoff_data (abfd)->sym_hashes[int_rel.r_symndx];
+      if (h == (struct ecoff_link_hash_entry *) NULL)
+       abort ();
 
-      switch (vmap.v_type)
+      if (h->root.type != bfd_link_hash_defined)
        {
-       case VDATA:
-         secname = ".data";
-         break;
-       case VSTACK:
-         secname = ".stack";
-         break;
-       default:
+         /* Just ignore undefined symbols.  These will presumably
+            generate an error later in the link.  */
          continue;
        }
 
-      if (!make_bfd_asection (abfd, secname,
-                             SEC_ALLOC+SEC_LOAD+SEC_HAS_CONTENTS,
-                             vmap.v_len,
-                             vmap.v_vaddr,
-                             vmap.v_offset,
-                             2))
-       return NULL;
-    }
+      /* Get the value of the symbol.  */
+      hsec = h->root.u.def.section;
+      relocation = (h->root.u.def.value
+                   + hsec->output_section->vma
+                   + hsec->output_offset);
+
+      /* Subtract out the current address.  */
+      relocation -= (sec->output_section->vma
+                    + sec->output_offset
+                    + (int_rel.r_vaddr - sec->vma));
+
+      /* The addend is stored in the object file.  In the normal case
+        of ``bal symbol'', the addend will be -4.  It will only be
+        different in the case of ``bal symbol+constant''.  To avoid
+        always reading in the section contents, we don't check the
+        addend in the object file (we could easily check the contents
+        if we happen to have already read them in, but I fear that
+        this could be confusing).  This means we will screw up if
+        there is a branch to a symbol that is in range, but added to
+        a constant which puts it out of range; in such a case the
+        link will fail with a reloc overflow error.  Since the
+        compiler will never generate such code, it should be easy
+        enough to work around it by changing the assembly code in the
+        source file.  */
+      relocation -= 4;
+
+      /* Now RELOCATION is the number we want to put in the object
+        file.  See whether it fits.  */
+      if (relocation >= -0x20000 && relocation < 0x20000)
+       continue;
+
+      /* Now that we know this reloc needs work, which will rarely
+        happen, go ahead and grab the section contents.  */
+      if (contents == (bfd_byte *) NULL)
+       {
+         if (info->keep_memory)
+           contents = (bfd_byte *) bfd_alloc (abfd, sec->_raw_size);
+         else
+           contents = (bfd_byte *) malloc (sec->_raw_size);
+         if (contents == (bfd_byte *) NULL)
+           {
+             bfd_set_error (bfd_error_no_memory);
+             goto error_return;
+           }
+         if (! bfd_get_section_contents (abfd, sec, (PTR) contents,
+                                         (file_ptr) 0, sec->_raw_size))
+           goto error_return;
+         if (info->keep_memory)
+           section_tdata->contents = contents;
+       }
 
-  /* Make sure that the regs are contiguous within the core file. */
+      /* We only support changing the bal instruction.  It would be
+        possible to handle other PC relative branches, but some of
+        them (the conditional branches) would require a different
+        length instruction sequence which would complicate both this
+        routine and mips_relax_pcrel16.  It could be written if
+        somebody felt it were important.  Ignoring this reloc will
+        presumably cause a reloc overflow error later on.  */
+      if (bfd_get_32 (abfd, contents + int_rel.r_vaddr - sec->vma)
+         != 0x0411ffff) /* bgezal $0,. == bal . */
+       continue;
+
+      /* Bother.  We need to expand this reloc, and we will need to
+        make another relaxation pass since this change may put other
+        relocs out of range.  We need to examine the local branches
+        and we need to allocate memory to hold the offsets we must
+        add to them.  We also need to adjust the values of all
+        symbols in the object file following this location.  */
+
+      sec->_cooked_size += PCREL16_EXPANSION_ADJUSTMENT;
+      *again = true;
+
+      if (offsets == (long *) NULL)
+       {
+         size_t size;
 
-  idg = &coreout.c_idesc[I_GPREGS];
-  idf = &coreout.c_idesc[I_FPREGS];
-  ids = &coreout.c_idesc[I_SPECREGS];
+         size = sec->reloc_count * sizeof (long);
+         offsets = (long *) bfd_alloc_by_size_t (abfd, size);
+         if (offsets == (long *) NULL)
+           {
+             bfd_set_error (bfd_error_no_memory);
+             goto error_return;
+           }
+         memset (offsets, 0, size);
+         section_tdata->offsets = offsets;
+       }
 
-  if (idg->i_offset + idg->i_len != idf->i_offset
-      || idf->i_offset + idf->i_len != ids->i_offset)
-    return 0;                  /* Can't deal with non-contig regs */
+      offsets[i] = 1;
 
-  bfd_seek (abfd, idg->i_offset, SEEK_SET);
+      /* Now look for all PC relative branches that cross this reloc
+        and adjust their offsets.  We will turn the single branch
+        instruction into a four instruction sequence.  In this loop
+        we are only interested in local PC relative branches.  */
+      adj_ext_rel = (struct external_reloc *) section_tdata->external_relocs;
+      for (adj_i = 0; adj_ext_rel < ext_rel_end; adj_ext_rel++, adj_i++)
+       {
+         struct internal_reloc adj_int_rel;
+         unsigned long insn;
+         bfd_vma dst;
 
-  make_bfd_asection (abfd, ".reg",
-                    SEC_ALLOC+SEC_HAS_CONTENTS,
-                    idg->i_len + idf->i_len + ids->i_len,
-                    0,
-                    idg->i_offset);
+         /* Quickly check that this reloc is internal PCREL16.  */
+         if (abfd->xvec->header_byteorder_big_p)
+           {
+             if ((adj_ext_rel->r_bits[3] & RELOC_BITS3_EXTERN_BIG) != 0
+                 || (((adj_ext_rel->r_bits[3] & RELOC_BITS3_TYPE_BIG)
+                      >> RELOC_BITS3_TYPE_SH_BIG)
+                     != MIPS_R_PCREL16))
+               continue;
+           }
+         else
+           {
+             if ((adj_ext_rel->r_bits[3] & RELOC_BITS3_EXTERN_LITTLE) != 0
+                 || (((adj_ext_rel->r_bits[3] & RELOC_BITS3_TYPE_LITTLE)
+                      >> RELOC_BITS3_TYPE_SH_LITTLE)
+                     != MIPS_R_PCREL16))
+               continue;
+           }
 
-  /* OK, we believe you.  You're a core file (sure, sure).  */
+         mips_ecoff_swap_reloc_in (abfd, (PTR) adj_ext_rel, &adj_int_rel);
+
+         /* We are only interested in a PC relative reloc within this
+            section.  FIXME: Cross section PC relative relocs may not
+            be handled correctly; does anybody care?  */
+         if (adj_int_rel.r_symndx != RELOC_SECTION_TEXT)
+           continue;
+
+         /* Fetch the branch instruction.  */
+         insn = bfd_get_32 (abfd, contents + adj_int_rel.r_vaddr - sec->vma);
+
+         /* Work out the destination address.  */
+         dst = (insn & 0xffff) << 2;
+         if ((dst & 0x20000) != 0)
+           dst -= 0x40000;
+         dst += adj_int_rel.r_vaddr + 4;
+
+         /* If this branch crosses the branch we just decided to
+            expand, adjust the offset appropriately.  */
+         if (adj_int_rel.r_vaddr < int_rel.r_vaddr
+             && dst > int_rel.r_vaddr)
+           offsets[adj_i] += PCREL16_EXPANSION_ADJUSTMENT;
+         else if (adj_int_rel.r_vaddr > int_rel.r_vaddr
+                  && dst <= int_rel.r_vaddr)
+           offsets[adj_i] -= PCREL16_EXPANSION_ADJUSTMENT;
+       }
 
-  return abfd->xvec;
-}
+      /* Find all symbols in this section defined by this object file
+        and adjust their values.  Note that we decide whether to
+        adjust the value based on the value stored in the ECOFF EXTR
+        structure, because the value stored in the hash table may
+        have been changed by an earlier expanded reloc and thus may
+        no longer correctly indicate whether the symbol is before or
+        after the expanded reloc.  */
+      ext_count = ecoff_data (abfd)->debug_info.symbolic_header.iextMax;
+      adj_h_ptr = ecoff_data (abfd)->sym_hashes;
+      adj_h_ptr_end = adj_h_ptr + ext_count;
+      for (; adj_h_ptr < adj_h_ptr_end; adj_h_ptr++)
+       {
+         struct ecoff_link_hash_entry *adj_h;
+
+         adj_h = *adj_h_ptr;
+         if (adj_h != (struct ecoff_link_hash_entry *) NULL
+             && adj_h->root.type == bfd_link_hash_defined
+             && adj_h->root.u.def.section == sec
+             && adj_h->esym.asym.value > int_rel.r_vaddr)
+           adj_h->root.u.def.value += PCREL16_EXPANSION_ADJUSTMENT;
+       }
 
-static char *
-ecoff_core_file_failing_command (abfd)
-     bfd *abfd;
-{
-  return core_command (abfd);
-}
+      /* Add an entry to the symbol value adjust list.  This is used
+        by bfd_ecoff_debug_accumulate to adjust the values of
+        internal symbols and FDR's.  */
+      adjust = ((struct ecoff_value_adjust *)
+               bfd_alloc (abfd, sizeof (struct ecoff_value_adjust)));
+      if (adjust == (struct ecoff_value_adjust *) NULL)
+       {
+         bfd_set_error (bfd_error_no_memory);
+         goto error_return;
+       }
 
-static int
-ecoff_core_file_failing_signal (abfd)
-     bfd *abfd;
-{
-  return core_signal (abfd);
+      adjust->start = int_rel.r_vaddr;
+      adjust->end = sec->vma + sec->_raw_size;
+      adjust->adjust = PCREL16_EXPANSION_ADJUSTMENT;
+
+      adjust->next = ecoff_data (abfd)->debug_info.adjust;
+      ecoff_data (abfd)->debug_info.adjust = adjust;
+    }
+
+  if (contents != (bfd_byte *) NULL && ! info->keep_memory)
+    free (contents);
+
+  return true;
+
+ error_return:
+  if (contents != (bfd_byte *) NULL && ! info->keep_memory)
+    free (contents);
+  return false;
 }
 
+/* This routine is called from mips_relocate_section when a PC
+   relative reloc must be expanded into the five instruction sequence.
+   It handles all the details of the expansion, including resolving
+   the reloc.  */
+
 static boolean
-ecoff_core_file_matches_executable_p (core_bfd, exec_bfd)
-     bfd *core_bfd, *exec_bfd;
+mips_relax_pcrel16 (info, input_bfd, input_section, h, location, address)
+     struct bfd_link_info *info;
+     bfd *input_bfd;
+     asection *input_section;
+     struct ecoff_link_hash_entry *h;
+     bfd_byte *location;
+     bfd_vma address;
 {
-  return true;                 /* XXX - FIXME */
+  bfd_vma relocation;
+
+  /* 0x0411ffff is bgezal $0,. == bal .  */
+  BFD_ASSERT (bfd_get_32 (input_bfd, location) == 0x0411ffff);
+
+  /* We need to compute the distance between the symbol and the
+     current address plus eight.  */
+  relocation = (h->root.u.def.value
+               + h->root.u.def.section->output_section->vma
+               + h->root.u.def.section->output_offset);
+  relocation -= address + 8;
+
+  /* If the lower half is negative, increment the upper 16 half.  */
+  if ((relocation & 0x8000) != 0)
+    relocation += 0x10000;
+
+  bfd_put_32 (input_bfd, 0x04110001, location); /* bal .+8 */
+  bfd_put_32 (input_bfd,
+             0x3c010000 | ((relocation >> 16) & 0xffff), /* lui $at,XX */
+             location + 4);
+  bfd_put_32 (input_bfd,
+             0x24210000 | (relocation & 0xffff), /* addiu $at,$at,XX */
+             location + 8);
+  bfd_put_32 (input_bfd, 0x003f0821, location + 12); /* addu $at,$at,$ra */
+  bfd_put_32 (input_bfd, 0x0020f809, location + 16); /* jalr $at */
+
+  return true;
 }
-#else /* not def HOST_IRIX4 */
-#define ecoff_core_file_p _bfd_dummy_target
-#define ecoff_core_file_failing_command        _bfd_dummy_core_file_failing_command
-#define ecoff_core_file_failing_signal _bfd_dummy_core_file_failing_signal
-#define ecoff_core_file_matches_executable_p \
-  _bfd_dummy_core_file_matches_executable_p
-#endif
 \f
 /* This is the ECOFF backend structure.  The backend field of the
    target vector points to this.  */
@@ -851,10 +1690,10 @@ static const struct ecoff_backend_data mips_ecoff_backend_data =
 {
   /* COFF backend structure.  */
   {
-    (void (*) PARAMS ((bfd *,PTR,int,int,PTR))) bfd_void, /* aux_in */
+    (void (*) PARAMS ((bfd *,PTR,int,int,int,int,PTR))) bfd_void, /* aux_in */
     (void (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* sym_in */
     (void (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* lineno_in */
-    (unsigned (*) PARAMS ((bfd *,PTR,int,int,PTR))) bfd_void, /* aux_out */
+    (unsigned (*) PARAMS ((bfd *,PTR,int,int,int,int,PTR)))bfd_void,/*aux_out*/
     (unsigned (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* sym_out */
     (unsigned (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* lineno_out */
     (unsigned (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* reloc_out */
@@ -863,68 +1702,80 @@ static const struct ecoff_backend_data mips_ecoff_backend_data =
     FILHSZ, AOUTSZ, SCNHSZ, 0, 0, 0, true,
     mips_ecoff_swap_filehdr_in, mips_ecoff_swap_aouthdr_in,
     mips_ecoff_swap_scnhdr_in, mips_ecoff_bad_format_hook,
-    ecoff_set_arch_mach_hook, mips_ecoff_mkobject_hook,
+    ecoff_set_arch_mach_hook, ecoff_mkobject_hook,
     ecoff_styp_to_sec_flags, ecoff_make_section_hook, ecoff_set_alignment_hook,
     ecoff_slurp_symbol_table, NULL, NULL
   },
   /* Supported architecture.  */
   bfd_arch_mips,
-  /* Big endian magic number.  */
-  MIPS_MAGIC_BIG,
-  /* Little endian magic number.  */
-  MIPS_MAGIC_LITTLE,
-  /* Symbol table magic number.  */
-  magicSym,
   /* Initial portion of armap string.  */
   "__________",
-  /* Alignment of debugging information.  E.g., 4.  */
-  4,
   /* The page boundary used to align sections in a demand-paged
      executable file.  E.g., 0x1000.  */
   0x1000,
+  /* True if the .rdata section is part of the text segment, as on the
+     Alpha.  False if .rdata is part of the data segment, as on the
+     MIPS.  */
+  false,
   /* Bitsize of constructor entries.  */
   32,
   /* Reloc to use for constructor entries.  */
   &mips_howto_table[MIPS_R_REFWORD],
-  /* Sizes of external symbolic information.  */
-  sizeof (struct hdr_ext),
-  sizeof (struct dnr_ext),
-  sizeof (struct pdr_ext),
-  sizeof (struct sym_ext),
-  sizeof (struct opt_ext),
-  sizeof (struct fdr_ext),
-  sizeof (struct rfd_ext),
-  sizeof (struct ext_ext),
-  /* Functions to swap in external symbolic data.  */
-  ecoff_swap_hdr_in,
-  ecoff_swap_dnr_in,
-  ecoff_swap_pdr_in,
-  ecoff_swap_sym_in,
-  ecoff_swap_opt_in,
-  ecoff_swap_fdr_in,
-  ecoff_swap_rfd_in,
-  ecoff_swap_ext_in,
-  /* Functions to swap out external symbolic data.  */
-  ecoff_swap_hdr_out,
-  ecoff_swap_dnr_out,
-  ecoff_swap_pdr_out,
-  ecoff_swap_sym_out,
-  ecoff_swap_opt_out,
-  ecoff_swap_fdr_out,
-  ecoff_swap_rfd_out,
-  ecoff_swap_ext_out,
+  {
+    /* Symbol table magic number.  */
+    magicSym,
+    /* Alignment of debugging information.  E.g., 4.  */
+    4,
+    /* Sizes of external symbolic information.  */
+    sizeof (struct hdr_ext),
+    sizeof (struct dnr_ext),
+    sizeof (struct pdr_ext),
+    sizeof (struct sym_ext),
+    sizeof (struct opt_ext),
+    sizeof (struct fdr_ext),
+    sizeof (struct rfd_ext),
+    sizeof (struct ext_ext),
+    /* Functions to swap in external symbolic data.  */
+    ecoff_swap_hdr_in,
+    ecoff_swap_dnr_in,
+    ecoff_swap_pdr_in,
+    ecoff_swap_sym_in,
+    ecoff_swap_opt_in,
+    ecoff_swap_fdr_in,
+    ecoff_swap_rfd_in,
+    ecoff_swap_ext_in,
+    /* Functions to swap out external symbolic data.  */
+    ecoff_swap_hdr_out,
+    ecoff_swap_dnr_out,
+    ecoff_swap_pdr_out,
+    ecoff_swap_sym_out,
+    ecoff_swap_opt_out,
+    ecoff_swap_fdr_out,
+    ecoff_swap_rfd_out,
+    ecoff_swap_ext_out
+  },
   /* External reloc size.  */
   RELSZ,
   /* Reloc swapping functions.  */
   mips_ecoff_swap_reloc_in,
   mips_ecoff_swap_reloc_out,
   /* Backend reloc tweaking.  */
-  mips_finish_reloc
+  mips_adjust_reloc_in,
+  mips_adjust_reloc_out,
+  /* Relocate section contents while linking.  */
+  mips_relocate_section
 };
 
 /* Looking up a reloc type is MIPS specific.  */
 #define ecoff_bfd_reloc_type_lookup mips_bfd_reloc_type_lookup
 
+/* Getting relocated section contents is generic.  */
+#define ecoff_bfd_get_relocated_section_contents \
+  bfd_generic_get_relocated_section_contents
+
+/* Relaxing sections is MIPS specific.  */
+#define ecoff_bfd_relax_section mips_relax_section
+
 bfd_target ecoff_little_vec =
 {
   "ecoff-littlemips",          /* name */
@@ -934,7 +1785,7 @@ bfd_target ecoff_little_vec =
 
   (HAS_RELOC | EXEC_P |                /* object flags */
    HAS_LINENO | HAS_DEBUG |
-   HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED),
+   HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
 
   (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* sect
                                                            flags */
@@ -955,7 +1806,16 @@ bfd_target ecoff_little_vec =
      _bfd_generic_mkarchive, bfd_false},
   {bfd_false, ecoff_write_object_contents, /* bfd_write_contents */
      _bfd_write_archive_contents, bfd_false},
-  JUMP_TABLE (ecoff),
+
+     BFD_JUMP_TABLE_GENERIC (ecoff),
+     BFD_JUMP_TABLE_COPY (ecoff),
+     BFD_JUMP_TABLE_CORE (_bfd_nocore),
+     BFD_JUMP_TABLE_ARCHIVE (ecoff),
+     BFD_JUMP_TABLE_SYMBOLS (ecoff),
+     BFD_JUMP_TABLE_RELOCS (ecoff),
+     BFD_JUMP_TABLE_WRITE (ecoff),
+     BFD_JUMP_TABLE_LINK (ecoff),
+
   (PTR) &mips_ecoff_backend_data
 };
 
@@ -968,7 +1828,7 @@ bfd_target ecoff_big_vec =
 
   (HAS_RELOC | EXEC_P |                /* object flags */
    HAS_LINENO | HAS_DEBUG |
-   HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED),
+   HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
 
   (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* sect flags */
   0,                           /* leading underscore */
@@ -982,14 +1842,20 @@ bfd_target ecoff_big_vec =
      bfd_getb32, bfd_getb_signed_32, bfd_putb32,
      bfd_getb16, bfd_getb_signed_16, bfd_putb16,
  {_bfd_dummy_target, coff_object_p, /* bfd_check_format */
-    ecoff_archive_p, ecoff_core_file_p},
+    ecoff_archive_p, _bfd_dummy_target},
  {bfd_false, ecoff_mkobject, /* bfd_set_format */
     _bfd_generic_mkarchive, bfd_false},
  {bfd_false, ecoff_write_object_contents, /* bfd_write_contents */
     _bfd_write_archive_contents, bfd_false},
-  JUMP_TABLE(ecoff),
+
+     BFD_JUMP_TABLE_GENERIC (ecoff),
+     BFD_JUMP_TABLE_COPY (ecoff),
+     BFD_JUMP_TABLE_CORE (_bfd_nocore),
+     BFD_JUMP_TABLE_ARCHIVE (ecoff),
+     BFD_JUMP_TABLE_SYMBOLS (ecoff),
+     BFD_JUMP_TABLE_RELOCS (ecoff),
+     BFD_JUMP_TABLE_WRITE (ecoff),
+     BFD_JUMP_TABLE_LINK (ecoff),
+
   (PTR) &mips_ecoff_backend_data
-  /* Note that there is another bfd_target just above this one.  If
-     you are adding initializers here, you should be adding them there
-     as well.  */
 };
This page took 0.039792 seconds and 4 git commands to generate.