[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, 2012 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) (bfd *, unsigned long);
static void MY(choose_reloc_size) (bfd *);

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

/* 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
  (bfd *, arelent *, struct bfd_symbol *, void *, asection *,
   bfd *, char **);

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

static void
MY(set_arch_mach) (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) (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) (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 (bfd *abfd ATTRIBUTE_UNUSED,
		   arelent *reloc_entry,
		   struct bfd_symbol *symbol,
		   void * 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 (bfd *abfd ATTRIBUTE_UNUSED,
		 arelent *reloc_entry,
		 asymbol *symbol,
		 void * 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 NULL;

  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 NULL;
    }
}

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) (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,

    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,

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