[deliverable/binutils-gdb.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'

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

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

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

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

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

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

#define MY_backend_data &MY(backend_data)
#define MY_BFD_TARGET

#include "aout-target.h"

static bfd_reloc_status_type mips_fix_jmp_addr PARAMS ((bfd *, arelent *, struct symbol_cache_entry *, PTR, asection *, bfd *));
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;
     int machtype;
{
  enum bfd_architecture arch;
  long machine;

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

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

    default:
      arch = bfd_arch_obscure;
      machine = 0;
      break;
    }

  bfd_set_arch_mach (abfd, arch, machine);
}

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

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

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

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

  MY (choose_reloc_size) (abfd);

  WRITE_HEADERS (abfd, execp);

  return true;
}

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

/* This is only called when performing a BFD_RELOC_MIPS_JMP relocation.
   The jump destination address is formed from the upper 4 bits of the
   "current" program counter concatenated with the jump instruction's
   26 bit field and two trailing zeros.
   If the destination address is not in the same segment as the "current"
   program counter, then we need to signal an error.  */

static bfd_reloc_status_type
mips_fix_jmp_addr (abfd,reloc_entry,symbol,data,input_section,output_bfd)
     bfd *abfd ATTRIBUTE_UNUSED;
     arelent *reloc_entry;
     struct symbol_cache_entry *symbol;
     PTR data ATTRIBUTE_UNUSED;
     asection *input_section;
     bfd *output_bfd;
{
  bfd_vma relocation, pc;

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

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

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

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

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

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

  return bfd_reloc_continue;
}

/* This is only called when performing a BFD_RELOC_HI16_S relocation.
   We need to see if bit 15 is set in the result. If it is, we add
   0x10000 and continue normally. This will compensate for the sign extension
   when the low bits are added at run time.  */

static bfd_reloc_status_type
mips_fix_hi16_s PARAMS ((bfd *, arelent *, asymbol *, PTR,
			 asection *, bfd *, char **));

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

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

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

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

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

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

  return bfd_reloc_continue;
}

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

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

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

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

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

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

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

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

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

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

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

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

extern const bfd_target aout_mips_big_vec;

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

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

    & aout_mips_big_vec,

    (PTR) MY_backend_data
  };

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

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

    & aout_mips_little_vec,

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