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

/* BFD backend for MIPS BSD (a.out) binaries.
   Copyright 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
   2007 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 3 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., 51 Franklin Street - Fifth Floor, Boston,
   MA 02110-1301, USA.  */


/* #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'

/* Do not "beautify" the CONCAT* macro args.  Traditional C will not
   remove whitespace added here, and thus will fail to concatenate
   the tokens.  */
#define MY(OP) CONCAT2 (mipsbsd_,OP)

#include "sysdep.h"
#include "bfd.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, unsigned long machtype));
static void MY(choose_reloc_size) PARAMS ((bfd *abfd));

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

/* We can't use MY(x) here because it leads to a recursive call to CONCAT2
   when expanded inside JUMP_TABLE.  */
#define MY_bfd_reloc_type_lookup mipsbsd_reloc_type_lookup
#define MY_bfd_reloc_name_lookup mipsbsd_reloc_name_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 bfd_reloc_status_type mips_fix_jmp_addr
  PARAMS ((bfd *, arelent *, struct bfd_symbol *, PTR, asection *,
	   bfd *, char **));

long MY(canonicalize_reloc) PARAMS ((bfd *, sec_ptr, arelent **, asymbol **));

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

  /* Determine the architecture and machine type of the object file.  */
  switch (machtype)
    {
    case M_MIPS1:
      arch = bfd_arch_mips;
      machine = bfd_mach_mips3000;
      break;

    case M_MIPS2:
      arch = bfd_arch_mips;
      machine = bfd_mach_mips4000;
      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_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 bfd_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_mips:
      switch (bfd_get_mach (abfd))
	{
	case bfd_mach_mips4000:
	case bfd_mach_mips6000:
	  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,
		   error_message)
     bfd *abfd ATTRIBUTE_UNUSED;
     arelent *reloc_entry;
     struct bfd_symbol *symbol;
     PTR data ATTRIBUTE_UNUSED;
     asection *input_section;
     bfd *output_bfd;
     char **error_message ATTRIBUTE_UNUSED;
{
  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 targeted 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 targeted 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_type_lookup) (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;
    }
}

static reloc_howto_type *
MY(reloc_name_lookup) (bfd *abfd ATTRIBUTE_UNUSED,
			     const char *r_name)
{
  unsigned int i;

  for (i = 0;
       i < sizeof (mips_howto_table_ext) / sizeof (mips_howto_table_ext[0]);
       i++)
    if (mips_howto_table_ext[i].name != NULL
	&& strcasecmp (mips_howto_table_ext[i].name, r_name) == 0)
      return &mips_howto_table_ext[i];

  return NULL;
}

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