[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
   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 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 "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, 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_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 bfd_reloc_status_type mips_fix_jmp_addr
  PARAMS ((bfd *, arelent *, struct bfd_symbol *, PTR, asection *,
	   bfd *, char **));
static reloc_howto_type *MY(reloc_howto_type_lookup)
  PARAMS ((bfd *, bfd_reloc_code_real_type));

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