[binutils.git] / bfd / mipsbsd.c

/* BFD backend for MIPS BSD (a.out) binaries.
   Copyright 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001
   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'

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