[deliverable/binutils-gdb.git] / bfd / mipsbsd.c

/* BFD backend for MIPS BSD (a.out) binaries.
   Copyright 1993, 1994, 1995, 1997, 1998, 1999, 2000
   Free Software Foundation, Inc.
   Written by Ralph Campbell.

This file is part of BFD, the Binary File Descriptor library.

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */

#define BYTES_IN_WORD 4
/* #define ENTRY_CAN_BE_ZERO */
#define N_HEADER_IN_TEXT(x) 1
#define N_SHARED_LIB(x) 0
#define N_TXTADDR(x) \
    (N_MAGIC(x) != ZMAGIC ? (x).a_entry :	/* object file or NMAGIC */\
	    TEXT_START_ADDR + EXEC_BYTES_SIZE	/* no padding */\
    )
#define N_DATADDR(x) (N_TXTADDR(x)+N_TXTSIZE(x))
#define TEXT_START_ADDR 4096
#define TARGET_PAGE_SIZE 4096
#define SEGMENT_SIZE TARGET_PAGE_SIZE
#define DEFAULT_ARCH bfd_arch_mips
#define MACHTYPE_OK(mtype) ((mtype) == M_UNKNOWN \
			    || (mtype) == M_MIPS1 || (mtype) == M_MIPS2)
#define MY_symbol_leading_char '\0'

#define MY(OP) CAT(mipsbsd_,OP)

#include "bfd.h"
#include "sysdep.h"
#include "libbfd.h"
#include "libaout.h"

#define SET_ARCH_MACH(ABFD, EXEC) \
  MY(set_arch_mach) (ABFD, N_MACHTYPE (EXEC)); \
  MY(choose_reloc_size) (ABFD);
static void MY(set_arch_mach) PARAMS ((bfd *abfd, int machtype));
static void MY(choose_reloc_size) PARAMS ((bfd *abfd));

#define MY_write_object_contents MY(write_object_contents)
static boolean MY(write_object_contents) PARAMS ((bfd *abfd));

/* We can't use MY(x) here because it leads to a recursive call to CAT
   when expanded inside JUMP_TABLE.  */
#define MY_bfd_reloc_type_lookup mipsbsd_reloc_howto_type_lookup
#define MY_canonicalize_reloc mipsbsd_canonicalize_reloc

#define MY_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
#define MY_bfd_link_add_symbols _bfd_generic_link_add_symbols
#define MY_final_link_callback unused
#define MY_bfd_final_link _bfd_generic_final_link

#define MY_backend_data &MY(backend_data)
#define MY_BFD_TARGET

#include "aout-target.h"

static void
MY(set_arch_mach) (abfd, machtype)
     bfd *abfd;
     int machtype;
{
  enum bfd_architecture arch;
  long machine;

  /* Determine the architecture and machine type of the object file.  */
  switch (machtype) {

  case M_MIPS1:
    arch = bfd_arch_mips;
    machine = 3000;
    break;

  case M_MIPS2:
    arch = bfd_arch_mips;
    machine = 4000;
    break;

  default:
    arch = bfd_arch_obscure;
    machine = 0;
    break;
  }
  bfd_set_arch_mach(abfd, arch, machine);
}

/* Determine the size of a relocation entry, based on the architecture */
static void
MY(choose_reloc_size) (abfd)
     bfd *abfd;
{
  switch (bfd_get_arch(abfd)) {
  case bfd_arch_sparc:
  case bfd_arch_a29k:
  case bfd_arch_mips:
    obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE;
    break;
  default:
    obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
    break;
  }
}

/* Write an object file in BSD a.out format.
  Section contents have already been written.  We write the
  file header, symbols, and relocation.  */

static boolean
MY(write_object_contents) (abfd)
     bfd *abfd;
{
  struct external_exec exec_bytes;
  struct internal_exec *execp = exec_hdr (abfd);

  /* Magic number, maestro, please!  */
  switch (bfd_get_arch(abfd)) {
  case bfd_arch_m68k:
    switch (bfd_get_mach(abfd)) {
    case bfd_mach_m68010:
      N_SET_MACHTYPE(*execp, M_68010);
      break;
    default:
    case bfd_mach_m68020:
      N_SET_MACHTYPE(*execp, M_68020);
      break;
    }
    break;
  case bfd_arch_sparc:
    N_SET_MACHTYPE(*execp, M_SPARC);
    break;
  case bfd_arch_i386:
    N_SET_MACHTYPE(*execp, M_386);
    break;
  case bfd_arch_a29k:
    N_SET_MACHTYPE(*execp, M_29K);
    break;
  case bfd_arch_mips:
    switch (bfd_get_mach(abfd)) {
    case 4000:
    case 6000:
      N_SET_MACHTYPE(*execp, M_MIPS2);
      break;
    default:
      N_SET_MACHTYPE(*execp, M_MIPS1);
      break;
    }
    break;
  default:
    N_SET_MACHTYPE(*execp, M_UNKNOWN);
  }

  MY(choose_reloc_size) (abfd);

  WRITE_HEADERS(abfd, execp);

  return true;
}

/*
 * MIPS relocation types.
 */
#define MIPS_RELOC_32		0
#define MIPS_RELOC_JMP		1
#define MIPS_RELOC_WDISP16	2
#define MIPS_RELOC_HI16		3
#define MIPS_RELOC_HI16_S	4
#define MIPS_RELOC_LO16		5

/*
 * This is only called when performing a BFD_RELOC_MIPS_JMP relocation.
 * The jump destination address is formed from the upper 4 bits of the
 * "current" program counter concatenated with the jump instruction's
 * 26 bit field and two trailing zeros.
 * If the destination address is not in the same segment as the "current"
 * program counter, then we need to signal an error.
 */
static bfd_reloc_status_type
mips_fix_jmp_addr (abfd,reloc_entry,symbol,data,input_section,output_bfd)
     bfd *abfd ATTRIBUTE_UNUSED;
     arelent *reloc_entry;
     struct symbol_cache_entry *symbol;
     PTR data ATTRIBUTE_UNUSED;
     asection *input_section;
     bfd *output_bfd;
{
  bfd_vma relocation, pc;

  /* If this is a partial relocation, just continue.  */
  if (output_bfd != (bfd *)NULL)
    return bfd_reloc_continue;

  /* If this is an undefined symbol, return error */
  if (bfd_is_und_section (symbol->section)
      && (symbol->flags & BSF_WEAK) == 0)
    return bfd_reloc_undefined;

  /*
   * Work out which section the relocation is targetted at and the
   * initial relocation command value.
   */
  if (bfd_is_com_section (symbol->section))
    relocation = 0;
  else
    relocation = symbol->value;

  relocation += symbol->section->output_section->vma;
  relocation += symbol->section->output_offset;
  relocation += reloc_entry->addend;

  pc = input_section->output_section->vma + input_section->output_offset +
    reloc_entry->address + 4;

  if ((relocation & 0xF0000000) != (pc & 0xF0000000))
    return bfd_reloc_overflow;

  return bfd_reloc_continue;
}

/*
 * This is only called when performing a BFD_RELOC_HI16_S relocation.
 * We need to see if bit 15 is set in the result. If it is, we add
 * 0x10000 and continue normally. This will compensate for the sign extension
 * when the low bits are added at run time.
 */
static bfd_reloc_status_type
mips_fix_hi16_s PARAMS ((bfd *, arelent *, asymbol *, PTR,
			 asection *, bfd *, char **));

static bfd_reloc_status_type
mips_fix_hi16_s (abfd, reloc_entry, symbol, data, input_section,
		 output_bfd, error_message)
     bfd *abfd ATTRIBUTE_UNUSED;
     arelent *reloc_entry;
     asymbol *symbol;
     PTR data ATTRIBUTE_UNUSED;
     asection *input_section ATTRIBUTE_UNUSED;
     bfd *output_bfd;
     char **error_message ATTRIBUTE_UNUSED;
{
  bfd_vma relocation;

  /* If this is a partial relocation, just continue.  */
  if (output_bfd != (bfd *)NULL)
    return bfd_reloc_continue;

  /* If this is an undefined symbol, return error */
  if (bfd_is_und_section (symbol->section)
      && (symbol->flags & BSF_WEAK) == 0)
    return bfd_reloc_undefined;

  /*
   * Work out which section the relocation is targetted at and the
   * initial relocation command value.
   */
  if (bfd_is_com_section (symbol->section))
    relocation = 0;
  else
    relocation = symbol->value;

  relocation += symbol->section->output_section->vma;
  relocation += symbol->section->output_offset;
  relocation += reloc_entry->addend;

  if (relocation & 0x8000)
    reloc_entry->addend += 0x10000;

  return bfd_reloc_continue;
}

static reloc_howto_type mips_howto_table_ext[] = {
  {MIPS_RELOC_32,      0, 2, 32, false, 0,  complain_overflow_bitfield, 0,
	"32",       false, 0, 0xffffffff, false},
  {MIPS_RELOC_JMP,     2, 2, 26, false, 0, complain_overflow_dont,
	mips_fix_jmp_addr,
	"MIPS_JMP", false, 0, 0x03ffffff, false},
  {MIPS_RELOC_WDISP16, 2, 2, 16, true,  0, complain_overflow_signed, 0,
	"WDISP16",  false, 0, 0x0000ffff, false},
  {MIPS_RELOC_HI16,   16, 2, 16, false, 0, complain_overflow_bitfield, 0,
	"HI16",     false, 0, 0x0000ffff, false},
  {MIPS_RELOC_HI16_S, 16, 2, 16, false, 0, complain_overflow_bitfield,
        mips_fix_hi16_s,
        "HI16_S",   false, 0, 0x0000ffff, false},
  {MIPS_RELOC_LO16,    0, 2, 16, false, 0, complain_overflow_dont, 0,
	"LO16",     false, 0, 0x0000ffff, false},
};

static reloc_howto_type *
MY(reloc_howto_type_lookup) (abfd, code)
     bfd *abfd;
     bfd_reloc_code_real_type code;
{

  if (bfd_get_arch (abfd) != bfd_arch_mips)
    return 0;

  switch (code)
    {
    case BFD_RELOC_CTOR:
    case BFD_RELOC_32:
      return (&mips_howto_table_ext[MIPS_RELOC_32]);
    case BFD_RELOC_MIPS_JMP:
      return (&mips_howto_table_ext[MIPS_RELOC_JMP]);
    case BFD_RELOC_16_PCREL_S2:
      return (&mips_howto_table_ext[MIPS_RELOC_WDISP16]);
    case BFD_RELOC_HI16:
      return (&mips_howto_table_ext[MIPS_RELOC_HI16]);
    case BFD_RELOC_HI16_S:
      return (&mips_howto_table_ext[MIPS_RELOC_HI16_S]);
    case BFD_RELOC_LO16:
      return (&mips_howto_table_ext[MIPS_RELOC_LO16]);
    default:
      return 0;
    }
}

/*
 * This is just like the standard aoutx.h version but we need to do our
 * own mapping of external reloc type values to howto entries.
 */
long
MY(canonicalize_reloc) (abfd, section, relptr, symbols)
      bfd *abfd;
      sec_ptr section;
      arelent **relptr;
      asymbol **symbols;
{
  arelent *tblptr = section->relocation;
  unsigned int count, c;
  extern reloc_howto_type NAME(aout,ext_howto_table)[];

  /* If we have already read in the relocation table, return the values.  */
  if (section->flags & SEC_CONSTRUCTOR) {
    arelent_chain *chain = section->constructor_chain;

    for (count = 0; count < section->reloc_count; count++) {
      *relptr++ = &chain->relent;
      chain = chain->next;
    }
    *relptr = 0;
    return section->reloc_count;
  }
  if (tblptr && section->reloc_count) {
    for (count = 0; count++ < section->reloc_count;)
      *relptr++ = tblptr++;
    *relptr = 0;
    return section->reloc_count;
  }

  if (!NAME(aout,slurp_reloc_table) (abfd, section, symbols))
    return -1;
  tblptr = section->relocation;

  /* fix up howto entries */
  for (count = 0; count++ < section->reloc_count;)
    {
      c = tblptr->howto - NAME(aout,ext_howto_table);
      tblptr->howto = &mips_howto_table_ext[c];

      *relptr++ = tblptr++;
    }
  *relptr = 0;
  return section->reloc_count;
}

static CONST struct aout_backend_data MY(backend_data) = {
  0,				/* zmagic contiguous */
  1,				/* text incl header */
  0,				/* entry is text address */
  0,				/* exec_hdr_flags */
  TARGET_PAGE_SIZE,			/* text vma */
  MY_set_sizes,
  0,				/* text size includes exec header */
  0,				/* add_dynamic_symbols */
  0,				/* add_one_symbol */
  0,				/* link_dynamic_object */
  0,				/* write_dynamic_symbol */
  0,				/* check_dynamic_reloc */
  0				/* finish_dynamic_link */
};

extern const bfd_target aout_mips_big_vec;

const bfd_target aout_mips_little_vec =
{
  "a.out-mips-little",		/* name */
  bfd_target_aout_flavour,
  BFD_ENDIAN_LITTLE,		/* target byte order (little) */
  BFD_ENDIAN_LITTLE,		/* target headers byte order (little) */
  (HAS_RELOC | EXEC_P |		/* object flags */
   HAS_LINENO | HAS_DEBUG |
   HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
  (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA),
  MY_symbol_leading_char,
  ' ',				/* ar_pad_char */
  15,				/* ar_max_namelen */
  bfd_getl64, bfd_getl_signed_64, bfd_putl64,
     bfd_getl32, bfd_getl_signed_32, bfd_putl32,
     bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
  bfd_getl64, bfd_getl_signed_64, bfd_putl64,
     bfd_getl32, bfd_getl_signed_32, bfd_putl32,
     bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */
    {_bfd_dummy_target, MY_object_p, /* bfd_check_format */
       bfd_generic_archive_p, MY_core_file_p},
    {bfd_false, MY_mkobject,	/* bfd_set_format */
       _bfd_generic_mkarchive, bfd_false},
    {bfd_false, MY_write_object_contents, /* bfd_write_contents */
       _bfd_write_archive_contents, bfd_false},

     BFD_JUMP_TABLE_GENERIC (MY),
     BFD_JUMP_TABLE_COPY (MY),
     BFD_JUMP_TABLE_CORE (MY),
     BFD_JUMP_TABLE_ARCHIVE (MY),
     BFD_JUMP_TABLE_SYMBOLS (MY),
     BFD_JUMP_TABLE_RELOCS (MY),
     BFD_JUMP_TABLE_WRITE (MY),
     BFD_JUMP_TABLE_LINK (MY),
     BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),

  & aout_mips_big_vec,

  (PTR) MY_backend_data
};

const bfd_target aout_mips_big_vec =
{
  "a.out-mips-big",		/* name */
  bfd_target_aout_flavour,
  BFD_ENDIAN_BIG,		/* target byte order (big) */
  BFD_ENDIAN_BIG,		/* target headers byte order (big) */
  (HAS_RELOC | EXEC_P |		/* object flags */
   HAS_LINENO | HAS_DEBUG |
   HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
  (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA),
  MY_symbol_leading_char,
  ' ',				/* ar_pad_char */
  15,				/* ar_max_namelen */
  bfd_getb64, bfd_getb_signed_64, bfd_putb64,
     bfd_getb32, bfd_getb_signed_32, bfd_putb32,
     bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */
  bfd_getb64, bfd_getb_signed_64, bfd_putb64,
     bfd_getb32, bfd_getb_signed_32, bfd_putb32,
     bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */
    {_bfd_dummy_target, MY_object_p, /* bfd_check_format */
       bfd_generic_archive_p, MY_core_file_p},
    {bfd_false, MY_mkobject,	/* bfd_set_format */
       _bfd_generic_mkarchive, bfd_false},
    {bfd_false, MY_write_object_contents, /* bfd_write_contents */
       _bfd_write_archive_contents, bfd_false},

     BFD_JUMP_TABLE_GENERIC (MY),
     BFD_JUMP_TABLE_COPY (MY),
     BFD_JUMP_TABLE_CORE (MY),
     BFD_JUMP_TABLE_ARCHIVE (MY),
     BFD_JUMP_TABLE_SYMBOLS (MY),
     BFD_JUMP_TABLE_RELOCS (MY),
     BFD_JUMP_TABLE_WRITE (MY),
     BFD_JUMP_TABLE_LINK (MY),
     BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),

  & aout_mips_little_vec,

  (PTR) MY_backend_data
};
Commit	Line	Data
252b5132	1	/* BFD backend for MIPS BSD (a.out) binaries.
7898deda NC	2	Copyright 1993, 1994, 1995, 1997, 1998, 1999, 2000
7898deda NC	3	Free Software Foundation, Inc.
252b5132 RH	4	Written by Ralph Campbell.
	5
	6	This file is part of BFD, the Binary File Descriptor library.
	7
	8	This program is free software; you can redistribute it and/or modify
	9	it under the terms of the GNU General Public License as published by
	10	the Free Software Foundation; either version 2 of the License, or
	11	(at your option) any later version.
	12
	13	This program is distributed in the hope that it will be useful,
	14	but WITHOUT ANY WARRANTY; without even the implied warranty of
	15	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	16	GNU General Public License for more details.
	17
	18	You should have received a copy of the GNU General Public License
	19	along with this program; if not, write to the Free Software
	20	Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
	21
	22	#define BYTES_IN_WORD 4
	23	/* #define ENTRY_CAN_BE_ZERO */
	24	#define N_HEADER_IN_TEXT(x) 1
	25	#define N_SHARED_LIB(x) 0
	26	#define N_TXTADDR(x) \
	27	(N_MAGIC(x) != ZMAGIC ? (x).a_entry : /* object file or NMAGIC */\
	28	TEXT_START_ADDR + EXEC_BYTES_SIZE /* no padding */\
	29	)
	30	#define N_DATADDR(x) (N_TXTADDR(x)+N_TXTSIZE(x))
	31	#define TEXT_START_ADDR 4096
	32	#define TARGET_PAGE_SIZE 4096
	33	#define SEGMENT_SIZE TARGET_PAGE_SIZE
	34	#define DEFAULT_ARCH bfd_arch_mips
	35	#define MACHTYPE_OK(mtype) ((mtype) == M_UNKNOWN \
	36	\|\| (mtype) == M_MIPS1 \|\| (mtype) == M_MIPS2)
	37	#define MY_symbol_leading_char '\0'
	38
	39	#define MY(OP) CAT(mipsbsd_,OP)
	40
	41	#include "bfd.h"
	42	#include "sysdep.h"
	43	#include "libbfd.h"
	44	#include "libaout.h"
	45
	46	#define SET_ARCH_MACH(ABFD, EXEC) \
1518639e KH	47	MY(set_arch_mach) (ABFD, N_MACHTYPE (EXEC)); \
1518639e KH	48	MY(choose_reloc_size) (ABFD);
252b5132 RH	49	static void MY(set_arch_mach) PARAMS ((bfd *abfd, int machtype));
	50	static void MY(choose_reloc_size) PARAMS ((bfd *abfd));
	51
	52	#define MY_write_object_contents MY(write_object_contents)
	53	static boolean MY(write_object_contents) PARAMS ((bfd *abfd));
	54
	55	/* We can't use MY(x) here because it leads to a recursive call to CAT
	56	when expanded inside JUMP_TABLE. */
	57	#define MY_bfd_reloc_type_lookup mipsbsd_reloc_howto_type_lookup
	58	#define MY_canonicalize_reloc mipsbsd_canonicalize_reloc
	59
	60	#define MY_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
	61	#define MY_bfd_link_add_symbols _bfd_generic_link_add_symbols
	62	#define MY_final_link_callback unused
	63	#define MY_bfd_final_link _bfd_generic_final_link
	64
	65	#define MY_backend_data &MY(backend_data)
	66	#define MY_BFD_TARGET
	67
	68	#include "aout-target.h"
	69
	70	static void
	71	MY(set_arch_mach) (abfd, machtype)
	72	bfd *abfd;
	73	int machtype;
	74	{
	75	enum bfd_architecture arch;
	76	long machine;
	77
1518639e	78	/* Determine the architecture and machine type of the object file. */
252b5132 RH	79	switch (machtype) {
	80
	81	case M_MIPS1:
	82	arch = bfd_arch_mips;
	83	machine = 3000;
	84	break;
	85
	86	case M_MIPS2:
	87	arch = bfd_arch_mips;
	88	machine = 4000;
	89	break;
	90
	91	default:
	92	arch = bfd_arch_obscure;
	93	machine = 0;
	94	break;
	95	}
1518639e	96	bfd_set_arch_mach(abfd, arch, machine);
252b5132 RH	97	}
	98
	99	/* Determine the size of a relocation entry, based on the architecture */
	100	static void
	101	MY(choose_reloc_size) (abfd)
	102	bfd *abfd;
	103	{
	104	switch (bfd_get_arch(abfd)) {
	105	case bfd_arch_sparc:
	106	case bfd_arch_a29k:
	107	case bfd_arch_mips:
	108	obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE;
	109	break;
	110	default:
	111	obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
	112	break;
	113	}
	114	}
	115
	116	/* Write an object file in BSD a.out format.
	117	Section contents have already been written. We write the
	118	file header, symbols, and relocation. */
	119
	120	static boolean
	121	MY(write_object_contents) (abfd)
	122	bfd *abfd;
	123	{
	124	struct external_exec exec_bytes;
	125	struct internal_exec *execp = exec_hdr (abfd);
	126
	127	/* Magic number, maestro, please! */
	128	switch (bfd_get_arch(abfd)) {
	129	case bfd_arch_m68k:
	130	switch (bfd_get_mach(abfd)) {
	131	case bfd_mach_m68010:
	132	N_SET_MACHTYPE(*execp, M_68010);
	133	break;
	134	default:
	135	case bfd_mach_m68020:
	136	N_SET_MACHTYPE(*execp, M_68020);
	137	break;
	138	}
	139	break;
	140	case bfd_arch_sparc:
	141	N_SET_MACHTYPE(*execp, M_SPARC);
	142	break;
	143	case bfd_arch_i386:
	144	N_SET_MACHTYPE(*execp, M_386);
	145	break;
	146	case bfd_arch_a29k:
	147	N_SET_MACHTYPE(*execp, M_29K);
	148	break;
	149	case bfd_arch_mips:
	150	switch (bfd_get_mach(abfd)) {
	151	case 4000:
	152	case 6000:
	153	N_SET_MACHTYPE(*execp, M_MIPS2);
	154	break;
	155	default:
	156	N_SET_MACHTYPE(*execp, M_MIPS1);
	157	break;
	158	}
	159	break;
	160	default:
161	N_SET_MACHTYPE(*execp, M_UNKNOWN);
162	}
163
1518639e	164	MY(choose_reloc_size) (abfd);
252b5132 RH	165
	166	WRITE_HEADERS(abfd, execp);
	167
	168	return true;
	169	}
	170
	171	/*
	172	* MIPS relocation types.
	173	*/
	174	#define MIPS_RELOC_32 0
	175	#define MIPS_RELOC_JMP 1
	176	#define MIPS_RELOC_WDISP16 2
	177	#define MIPS_RELOC_HI16 3
	178	#define MIPS_RELOC_HI16_S 4
	179	#define MIPS_RELOC_LO16 5
	180
	181	/*
	182	* This is only called when performing a BFD_RELOC_MIPS_JMP relocation.
	183	* The jump destination address is formed from the upper 4 bits of the
	184	* "current" program counter concatenated with the jump instruction's
	185	* 26 bit field and two trailing zeros.
	186	* If the destination address is not in the same segment as the "current"
	187	* program counter, then we need to signal an error.
	188	*/
	189	static bfd_reloc_status_type
	190	mips_fix_jmp_addr (abfd,reloc_entry,symbol,data,input_section,output_bfd)
5f771d47	191	bfd *abfd ATTRIBUTE_UNUSED;
252b5132 RH	192	arelent *reloc_entry;
252b5132 RH	193	struct symbol_cache_entry *symbol;
5f771d47	194	PTR data ATTRIBUTE_UNUSED;
252b5132 RH	195	asection *input_section;
	196	bfd *output_bfd;
	197	{
	198	bfd_vma relocation, pc;
1518639e KH	199
1518639e KH	200	/* If this is a partial relocation, just continue. */
252b5132 RH	201	if (output_bfd != (bfd *)NULL)
	202	return bfd_reloc_continue;
	203
	204	/* If this is an undefined symbol, return error */
	205	if (bfd_is_und_section (symbol->section)
	206	&& (symbol->flags & BSF_WEAK) == 0)
	207	return bfd_reloc_undefined;
	208
1518639e	209	/*
252b5132 RH	210	* Work out which section the relocation is targetted at and the
	211	* initial relocation command value.
	212	*/
	213	if (bfd_is_com_section (symbol->section))
	214	relocation = 0;
	215	else
	216	relocation = symbol->value;
	217
	218	relocation += symbol->section->output_section->vma;
	219	relocation += symbol->section->output_offset;
	220	relocation += reloc_entry->addend;
	221
	222	pc = input_section->output_section->vma + input_section->output_offset +
	223	reloc_entry->address + 4;
	224
	225	if ((relocation & 0xF0000000) != (pc & 0xF0000000))
	226	return bfd_reloc_overflow;
	227
	228	return bfd_reloc_continue;
	229	}
	230
	231	/*
	232	* This is only called when performing a BFD_RELOC_HI16_S relocation.
	233	* We need to see if bit 15 is set in the result. If it is, we add
	234	* 0x10000 and continue normally. This will compensate for the sign extension
	235	* when the low bits are added at run time.
	236	*/
	237	static bfd_reloc_status_type
	238	mips_fix_hi16_s PARAMS ((bfd , arelent , asymbol *, PTR,
	239	asection , bfd , char **));
	240
	241	static bfd_reloc_status_type
	242	mips_fix_hi16_s (abfd, reloc_entry, symbol, data, input_section,
	243	output_bfd, error_message)
5f771d47	244	bfd *abfd ATTRIBUTE_UNUSED;
252b5132 RH	245	arelent *reloc_entry;
252b5132 RH	246	asymbol *symbol;
5f771d47 ILT	247	PTR data ATTRIBUTE_UNUSED;
5f771d47 ILT	248	asection *input_section ATTRIBUTE_UNUSED;
252b5132	249	bfd *output_bfd;
5f771d47	250	char **error_message ATTRIBUTE_UNUSED;
252b5132 RH	251	{
252b5132 RH	252	bfd_vma relocation;
1518639e KH	253
1518639e KH	254	/* If this is a partial relocation, just continue. */
252b5132 RH	255	if (output_bfd != (bfd *)NULL)
	256	return bfd_reloc_continue;
	257
	258	/* If this is an undefined symbol, return error */
	259	if (bfd_is_und_section (symbol->section)
	260	&& (symbol->flags & BSF_WEAK) == 0)
	261	return bfd_reloc_undefined;
	262
1518639e	263	/*
252b5132 RH	264	* Work out which section the relocation is targetted at and the
	265	* initial relocation command value.
	266	*/
	267	if (bfd_is_com_section (symbol->section))
	268	relocation = 0;
	269	else
	270	relocation = symbol->value;
	271
	272	relocation += symbol->section->output_section->vma;
	273	relocation += symbol->section->output_offset;
	274	relocation += reloc_entry->addend;
	275
	276	if (relocation & 0x8000)
	277	reloc_entry->addend += 0x10000;
	278
	279	return bfd_reloc_continue;
	280	}
	281
	282	static reloc_howto_type mips_howto_table_ext[] = {
	283	{MIPS_RELOC_32, 0, 2, 32, false, 0, complain_overflow_bitfield, 0,
	284	"32", false, 0, 0xffffffff, false},
	285	{MIPS_RELOC_JMP, 2, 2, 26, false, 0, complain_overflow_dont,
	286	mips_fix_jmp_addr,
	287	"MIPS_JMP", false, 0, 0x03ffffff, false},
	288	{MIPS_RELOC_WDISP16, 2, 2, 16, true, 0, complain_overflow_signed, 0,
	289	"WDISP16", false, 0, 0x0000ffff, false},
	290	{MIPS_RELOC_HI16, 16, 2, 16, false, 0, complain_overflow_bitfield, 0,
	291	"HI16", false, 0, 0x0000ffff, false},
	292	{MIPS_RELOC_HI16_S, 16, 2, 16, false, 0, complain_overflow_bitfield,
	293	mips_fix_hi16_s,
	294	"HI16_S", false, 0, 0x0000ffff, false},
	295	{MIPS_RELOC_LO16, 0, 2, 16, false, 0, complain_overflow_dont, 0,
	296	"LO16", false, 0, 0x0000ffff, false},
	297	};
	298
	299	static reloc_howto_type *
	300	MY(reloc_howto_type_lookup) (abfd, code)
	301	bfd *abfd;
	302	bfd_reloc_code_real_type code;
	303	{
	304
	305	if (bfd_get_arch (abfd) != bfd_arch_mips)
	306	return 0;
	307
	308	switch (code)
	309	{
	310	case BFD_RELOC_CTOR:
	311	case BFD_RELOC_32:
	312	return (&mips_howto_table_ext[MIPS_RELOC_32]);
	313	case BFD_RELOC_MIPS_JMP:
	314	return (&mips_howto_table_ext[MIPS_RELOC_JMP]);
	315	case BFD_RELOC_16_PCREL_S2:
	316	return (&mips_howto_table_ext[MIPS_RELOC_WDISP16]);
	317	case BFD_RELOC_HI16:
	318	return (&mips_howto_table_ext[MIPS_RELOC_HI16]);
	319	case BFD_RELOC_HI16_S:
	320	return (&mips_howto_table_ext[MIPS_RELOC_HI16_S]);
	321	case BFD_RELOC_LO16:
	322	return (&mips_howto_table_ext[MIPS_RELOC_LO16]);
	323	default:
	324	return 0;
	325	}
	326	}
	327
328	/*
329	* This is just like the standard aoutx.h version but we need to do our
330	* own mapping of external reloc type values to howto entries.
331	*/
332	long
1518639e	333	MY(canonicalize_reloc) (abfd, section, relptr, symbols)
252b5132 RH	334	bfd *abfd;
	335	sec_ptr section;
	336	arelent **relptr;
	337	asymbol **symbols;
	338	{
	339	arelent *tblptr = section->relocation;
	340	unsigned int count, c;
	341	extern reloc_howto_type NAME(aout,ext_howto_table)[];
	342
1518639e	343	/* If we have already read in the relocation table, return the values. */
252b5132 RH	344	if (section->flags & SEC_CONSTRUCTOR) {
	345	arelent_chain *chain = section->constructor_chain;
	346
	347	for (count = 0; count < section->reloc_count; count++) {
	348	*relptr++ = &chain->relent;
	349	chain = chain->next;
	350	}
	351	*relptr = 0;
	352	return section->reloc_count;
	353	}
	354	if (tblptr && section->reloc_count) {
1518639e	355	for (count = 0; count++ < section->reloc_count;)
252b5132 RH	356	*relptr++ = tblptr++;
	357	*relptr = 0;
	358	return section->reloc_count;
	359	}
	360
1518639e	361	if (!NAME(aout,slurp_reloc_table) (abfd, section, symbols))
252b5132 RH	362	return -1;
	363	tblptr = section->relocation;
	364
	365	/* fix up howto entries */
1518639e	366	for (count = 0; count++ < section->reloc_count;)
252b5132 RH	367	{
	368	c = tblptr->howto - NAME(aout,ext_howto_table);
	369	tblptr->howto = &mips_howto_table_ext[c];
	370
	371	*relptr++ = tblptr++;
	372	}
	373	*relptr = 0;
	374	return section->reloc_count;
	375	}
	376
	377	static CONST struct aout_backend_data MY(backend_data) = {
	378	0, /* zmagic contiguous */
	379	1, /* text incl header */
	380	0, /* entry is text address */
	381	0, /* exec_hdr_flags */
	382	TARGET_PAGE_SIZE, /* text vma */
	383	MY_set_sizes,
	384	0, /* text size includes exec header */
	385	0, /* add_dynamic_symbols */
	386	0, /* add_one_symbol */
	387	0, /* link_dynamic_object */
	388	0, /* write_dynamic_symbol */
	389	0, /* check_dynamic_reloc */
	390	0 /* finish_dynamic_link */
	391	};
	392
c3c89269 NC	393	extern const bfd_target aout_mips_big_vec;
c3c89269 NC	394
252b5132 RH	395	const bfd_target aout_mips_little_vec =
	396	{
	397	"a.out-mips-little", /* name */
	398	bfd_target_aout_flavour,
	399	BFD_ENDIAN_LITTLE, /* target byte order (little) */
	400	BFD_ENDIAN_LITTLE, /* target headers byte order (little) */
	401	(HAS_RELOC \| EXEC_P \| /* object flags */
	402	HAS_LINENO \| HAS_DEBUG \|
	403	HAS_SYMS \| HAS_LOCALS \| WP_TEXT \| D_PAGED),
	404	(SEC_HAS_CONTENTS \| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC \| SEC_CODE \| SEC_DATA),
	405	MY_symbol_leading_char,
	406	' ', /* ar_pad_char */
	407	15, /* ar_max_namelen */
	408	bfd_getl64, bfd_getl_signed_64, bfd_putl64,
	409	bfd_getl32, bfd_getl_signed_32, bfd_putl32,
	410	bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
	411	bfd_getl64, bfd_getl_signed_64, bfd_putl64,
	412	bfd_getl32, bfd_getl_signed_32, bfd_putl32,
	413	bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */
	414	{_bfd_dummy_target, MY_object_p, /* bfd_check_format */
	415	bfd_generic_archive_p, MY_core_file_p},
	416	{bfd_false, MY_mkobject, /* bfd_set_format */
	417	_bfd_generic_mkarchive, bfd_false},
	418	{bfd_false, MY_write_object_contents, /* bfd_write_contents */
	419	_bfd_write_archive_contents, bfd_false},
	420
	421	BFD_JUMP_TABLE_GENERIC (MY),
	422	BFD_JUMP_TABLE_COPY (MY),
	423	BFD_JUMP_TABLE_CORE (MY),
	424	BFD_JUMP_TABLE_ARCHIVE (MY),
	425	BFD_JUMP_TABLE_SYMBOLS (MY),
	426	BFD_JUMP_TABLE_RELOCS (MY),
	427	BFD_JUMP_TABLE_WRITE (MY),
	428	BFD_JUMP_TABLE_LINK (MY),
	429	BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
	430
c3c89269	431	& aout_mips_big_vec,
1518639e	432
c3c89269	433	(PTR) MY_backend_data
252b5132 RH	434	};
	435
	436	const bfd_target aout_mips_big_vec =
	437	{
	438	"a.out-mips-big", /* name */
	439	bfd_target_aout_flavour,
	440	BFD_ENDIAN_BIG, /* target byte order (big) */
	441	BFD_ENDIAN_BIG, /* target headers byte order (big) */
	442	(HAS_RELOC \| EXEC_P \| /* object flags */
	443	HAS_LINENO \| HAS_DEBUG \|
	444	HAS_SYMS \| HAS_LOCALS \| WP_TEXT \| D_PAGED),
	445	(SEC_HAS_CONTENTS \| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC \| SEC_CODE \| SEC_DATA),
	446	MY_symbol_leading_char,
	447	' ', /* ar_pad_char */
	448	15, /* ar_max_namelen */
	449	bfd_getb64, bfd_getb_signed_64, bfd_putb64,
	450	bfd_getb32, bfd_getb_signed_32, bfd_putb32,
	451	bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */
	452	bfd_getb64, bfd_getb_signed_64, bfd_putb64,
	453	bfd_getb32, bfd_getb_signed_32, bfd_putb32,
	454	bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */
	455	{_bfd_dummy_target, MY_object_p, /* bfd_check_format */
	456	bfd_generic_archive_p, MY_core_file_p},
	457	{bfd_false, MY_mkobject, /* bfd_set_format */
	458	_bfd_generic_mkarchive, bfd_false},
	459	{bfd_false, MY_write_object_contents, /* bfd_write_contents */
	460	_bfd_write_archive_contents, bfd_false},
	461
	462	BFD_JUMP_TABLE_GENERIC (MY),
	463	BFD_JUMP_TABLE_COPY (MY),
	464	BFD_JUMP_TABLE_CORE (MY),
	465	BFD_JUMP_TABLE_ARCHIVE (MY),
	466	BFD_JUMP_TABLE_SYMBOLS (MY),
	467	BFD_JUMP_TABLE_RELOCS (MY),
	468	BFD_JUMP_TABLE_WRITE (MY),
	469	BFD_JUMP_TABLE_LINK (MY),
	470	BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
	471
c3c89269	472	& aout_mips_little_vec,
1518639e	473
c3c89269	474	(PTR) MY_backend_data
252b5132	475	};