[deliverable/binutils-gdb.git] / bfd / mipsbsd.c

/* BFD backend for MIPS BSD (a.out) binaries.
   Copyright (C) 1993, 1994 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., 675 Mass Ave, Cambridge, MA 02139, USA.  */

#define BYTES_IN_WORD 4
#define ARCH 32
/* #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 PAGE_SIZE 4096
#define SEGMENT_SIZE 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);
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"

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 68010:
      N_SET_MACHTYPE(*execp, M_68010);
      break;
    default:
    case 68020:
      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;
     arelent *reloc_entry;
     struct symbol_cache_entry *symbol;
     PTR data;
     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 (symbol->section == &bfd_und_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;
     arelent *reloc_entry;
     asymbol *symbol;
     PTR data;
     asection *input_section;
     bfd *output_bfd;
     char **error_message;
{
  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 (symbol->section == &bfd_und_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, 1, 16, true,  0, complain_overflow_signed, 0,
	"WDISP16",  false, 0, 0x0000ffff, false},
  {MIPS_RELOC_HI16,   16, 1, 16, false, 0, complain_overflow_bitfield, 0,
	"HI16",     false, 0, 0x0000ffff, false},
  {MIPS_RELOC_HI16_S, 16, 1, 16, false, 0, complain_overflow_bitfield,
        mips_fix_hi16_s,
        "HI16_S",   false, 0, 0x0000ffff, false},
  {MIPS_RELOC_LO16,    0, 1, 16, false, 0, complain_overflow_dont, 0,
	"LO16",     false, 0, 0x0000ffff, false},
};

static const 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_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,				/* exec_hdr_flags */
  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 */
};

bfd_target aout_mips_little_vec =
{
  "a.out-mips-little",		/* name */
  bfd_target_aout_flavour,
  false,			/* target byte order (little) */
  false,			/* 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), /* section flags */
  MY_symbol_leading_char,
  ' ',				/* ar_pad_char */
  15,				/* ar_max_namelen */
  1,				/* minimum alignment */
  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),

  (PTR) MY_backend_data,
};

bfd_target aout_mips_big_vec =
{
  "a.out-mips-big",		/* name */
  bfd_target_aout_flavour,
  true,				/* target byte order (big) */
  true,				/* 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), /* section flags */
  MY_symbol_leading_char,
  ' ',				/* ar_pad_char */
  15,				/* ar_max_namelen */
  1,				/* minimum alignment */
  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),

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