[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,
   2005, 2007, 2009, 2011 Free Software Foundation, Inc.
   Written by Ralph Campbell.

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

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

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

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
   MA 02110-1301, USA.  */


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

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

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

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

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

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

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

#define MY_backend_data &MY(backend_data)
#define MY_BFD_TARGET

#include "aout-target.h"

static bfd_reloc_status_type mips_fix_jmp_addr
  PARAMS ((bfd *, arelent *, struct bfd_symbol *, PTR, asection *,
	   bfd *, char **));

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

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

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

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

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

  bfd_set_arch_mach (abfd, arch, machine);
}

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

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

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

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

  MY (choose_reloc_size) (abfd);

  WRITE_HEADERS (abfd, execp);

  return TRUE;
}

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

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

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

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

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

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

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

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

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

  return bfd_reloc_continue;
}

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

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

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

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

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

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

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

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

  return bfd_reloc_continue;
}

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

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

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

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

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

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

  return NULL;
}

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

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

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

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

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

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

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

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

extern const bfd_target aout_mips_big_vec;

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

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

    & aout_mips_little_vec,

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