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

/* BFD backend for MIPS BSD (a.out) binaries.
   Copyright (C) 1993, 94, 95, 97, 1998 Free Software Foundation, Inc.
   Written by Ralph Campbell.

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

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

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

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */

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

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

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

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

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

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

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

#define MY_backend_data &MY(backend_data)
#define MY_BFD_TARGET

#include "aout-target.h"

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

  /* Determine the architecture and machine type of the object file. */
  switch (machtype) {

  case M_MIPS1:
    arch = bfd_arch_mips;
    machine = 3000;
    break;

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

  default:
    arch = bfd_arch_obscure;
    machine = 0;
    break;
  }
  bfd_set_arch_mach(abfd, arch, machine);  
}

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

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

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

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

  MY(choose_reloc_size)(abfd);

  WRITE_HEADERS(abfd, execp);

  return true;
}

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

/*
 * This is only called when performing a BFD_RELOC_MIPS_JMP relocation.
 * The jump destination address is formed from the upper 4 bits of the
 * "current" program counter concatenated with the jump instruction's
 * 26 bit field and two trailing zeros.
 * If the destination address is not in the same segment as the "current"
 * program counter, then we need to signal an error.
 */
static bfd_reloc_status_type
mips_fix_jmp_addr (abfd,reloc_entry,symbol,data,input_section,output_bfd)
     bfd *abfd;
     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 (bfd_is_und_section (symbol->section)
      && (symbol->flags & BSF_WEAK) == 0)
    return bfd_reloc_undefined;

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

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

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

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

  return bfd_reloc_continue;
}

/*
 * This is only called when performing a BFD_RELOC_HI16_S relocation.
 * We need to see if bit 15 is set in the result. If it is, we add
 * 0x10000 and continue normally. This will compensate for the sign extension
 * when the low bits are added at run time.
 */
static bfd_reloc_status_type
mips_fix_hi16_s PARAMS ((bfd *, arelent *, asymbol *, PTR,
			 asection *, bfd *, char **));

static bfd_reloc_status_type
mips_fix_hi16_s (abfd, reloc_entry, symbol, data, input_section,
		 output_bfd, error_message)
     bfd *abfd;
     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 (bfd_is_und_section (symbol->section)
      && (symbol->flags & BSF_WEAK) == 0)
    return bfd_reloc_undefined;

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

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

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

  return bfd_reloc_continue;
}

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

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

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

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

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

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

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

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

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

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

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

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

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

  (PTR) MY_backend_data,
};

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

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

  (PTR) MY_backend_data,
};
Commit	Line	Data
252b5132 RH	1	/* BFD backend for MIPS BSD (a.out) binaries.
	2	Copyright (C) 1993, 94, 95, 97, 1998 Free Software Foundation, Inc.
	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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
	20
	21	#define BYTES_IN_WORD 4
	22	/* #define ENTRY_CAN_BE_ZERO */
	23	#define N_HEADER_IN_TEXT(x) 1
	24	#define N_SHARED_LIB(x) 0
	25	#define N_TXTADDR(x) \
	26	(N_MAGIC(x) != ZMAGIC ? (x).a_entry : /* object file or NMAGIC */\
	27	TEXT_START_ADDR + EXEC_BYTES_SIZE /* no padding */\
	28	)
	29	#define N_DATADDR(x) (N_TXTADDR(x)+N_TXTSIZE(x))
	30	#define TEXT_START_ADDR 4096
	31	#define TARGET_PAGE_SIZE 4096
	32	#define SEGMENT_SIZE TARGET_PAGE_SIZE
	33	#define DEFAULT_ARCH bfd_arch_mips
	34	#define MACHTYPE_OK(mtype) ((mtype) == M_UNKNOWN \
	35	\|\| (mtype) == M_MIPS1 \|\| (mtype) == M_MIPS2)
	36	#define MY_symbol_leading_char '\0'
	37
	38	#define MY(OP) CAT(mipsbsd_,OP)
	39
	40	#include "bfd.h"
	41	#include "sysdep.h"
	42	#include "libbfd.h"
	43	#include "libaout.h"
	44
	45	#define SET_ARCH_MACH(ABFD, EXEC) \
	46	MY(set_arch_mach)(ABFD, N_MACHTYPE (EXEC)); \
	47	MY(choose_reloc_size)(ABFD);
	48	static void MY(set_arch_mach) PARAMS ((bfd *abfd, int machtype));
	49	static void MY(choose_reloc_size) PARAMS ((bfd *abfd));
	50
	51	#define MY_write_object_contents MY(write_object_contents)
	52	static boolean MY(write_object_contents) PARAMS ((bfd *abfd));
	53
	54	/* We can't use MY(x) here because it leads to a recursive call to CAT
	55	when expanded inside JUMP_TABLE. */
	56	#define MY_bfd_reloc_type_lookup mipsbsd_reloc_howto_type_lookup
	57	#define MY_canonicalize_reloc mipsbsd_canonicalize_reloc
	58
	59	#define MY_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
	60	#define MY_bfd_link_add_symbols _bfd_generic_link_add_symbols
	61	#define MY_final_link_callback unused
	62	#define MY_bfd_final_link _bfd_generic_final_link
	63
	64	#define MY_backend_data &MY(backend_data)
65	#define MY_BFD_TARGET
66
67	#include "aout-target.h"
68
69	static void
70	MY(set_arch_mach) (abfd, machtype)
71	bfd *abfd;
72	int machtype;
73	{
74	enum bfd_architecture arch;
75	long machine;
76
77	/* Determine the architecture and machine type of the object file. */
78	switch (machtype) {
79
80	case M_MIPS1:
81	arch = bfd_arch_mips;
82	machine = 3000;
83	break;
84
85	case M_MIPS2:
86	arch = bfd_arch_mips;
87	machine = 4000;
88	break;
89
90	default:
91	arch = bfd_arch_obscure;
92	machine = 0;
93	break;
94	}
95	bfd_set_arch_mach(abfd, arch, machine);
96	}
97
98	/* Determine the size of a relocation entry, based on the architecture */
99	static void
100	MY(choose_reloc_size) (abfd)
101	bfd *abfd;
102	{
103	switch (bfd_get_arch(abfd)) {
104	case bfd_arch_sparc:
105	case bfd_arch_a29k:
106	case bfd_arch_mips:
107	obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE;
108	break;
109	default:
110	obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
111	break;
112	}
113	}
114
115	/* Write an object file in BSD a.out format.
116	Section contents have already been written. We write the
117	file header, symbols, and relocation. */
118
119	static boolean
120	MY(write_object_contents) (abfd)
121	bfd *abfd;
122	{
123	struct external_exec exec_bytes;
124	struct internal_exec *execp = exec_hdr (abfd);
125
126	/* Magic number, maestro, please! */
127	switch (bfd_get_arch(abfd)) {
128	case bfd_arch_m68k:
129	switch (bfd_get_mach(abfd)) {
130	case bfd_mach_m68010:
131	N_SET_MACHTYPE(*execp, M_68010);
132	break;
133	default:
134	case bfd_mach_m68020:
135	N_SET_MACHTYPE(*execp, M_68020);
136	break;
137	}
138	break;
139	case bfd_arch_sparc:
140	N_SET_MACHTYPE(*execp, M_SPARC);
141	break;
142	case bfd_arch_i386:
143	N_SET_MACHTYPE(*execp, M_386);
144	break;
145	case bfd_arch_a29k:
146	N_SET_MACHTYPE(*execp, M_29K);
147	break;
148	case bfd_arch_mips:
149	switch (bfd_get_mach(abfd)) {
150	case 4000:
151	case 6000:
152	N_SET_MACHTYPE(*execp, M_MIPS2);
153	break;
154	default:
155	N_SET_MACHTYPE(*execp, M_MIPS1);
156	break;
157	}
158	break;
159	default:
160	N_SET_MACHTYPE(*execp, M_UNKNOWN);
161	}
162
163	MY(choose_reloc_size)(abfd);
164
165	WRITE_HEADERS(abfd, execp);
166
167	return true;
168	}
169
170	/*
171	* MIPS relocation types.
172	*/
173	#define MIPS_RELOC_32 0
174	#define MIPS_RELOC_JMP 1
175	#define MIPS_RELOC_WDISP16 2
176	#define MIPS_RELOC_HI16 3
177	#define MIPS_RELOC_HI16_S 4
178	#define MIPS_RELOC_LO16 5
179
180	/*
181	* This is only called when performing a BFD_RELOC_MIPS_JMP relocation.
182	* The jump destination address is formed from the upper 4 bits of the
183	* "current" program counter concatenated with the jump instruction's
184	* 26 bit field and two trailing zeros.
185	* If the destination address is not in the same segment as the "current"
186	* program counter, then we need to signal an error.
187	*/
188	static bfd_reloc_status_type
189	mips_fix_jmp_addr (abfd,reloc_entry,symbol,data,input_section,output_bfd)
190	bfd *abfd;
191	arelent *reloc_entry;
192	struct symbol_cache_entry *symbol;
193	PTR data;
194	asection *input_section;
195	bfd *output_bfd;
196	{
197	bfd_vma relocation, pc;
198
199	/* If this is a partial relocation, just continue. */
200	if (output_bfd != (bfd *)NULL)
201	return bfd_reloc_continue;
202
203	/* If this is an undefined symbol, return error */
204	if (bfd_is_und_section (symbol->section)
205	&& (symbol->flags & BSF_WEAK) == 0)
206	return bfd_reloc_undefined;
207
208	/*
209	* Work out which section the relocation is targetted at and the
210	* initial relocation command value.
211	*/
212	if (bfd_is_com_section (symbol->section))
213	relocation = 0;
214	else
215	relocation = symbol->value;
216
217	relocation += symbol->section->output_section->vma;
218	relocation += symbol->section->output_offset;
219	relocation += reloc_entry->addend;
220
221	pc = input_section->output_section->vma + input_section->output_offset +
222	reloc_entry->address + 4;
223
224	if ((relocation & 0xF0000000) != (pc & 0xF0000000))
225	return bfd_reloc_overflow;
226
227	return bfd_reloc_continue;
228	}
229
230	/*
231	* This is only called when performing a BFD_RELOC_HI16_S relocation.
232	* We need to see if bit 15 is set in the result. If it is, we add
233	* 0x10000 and continue normally. This will compensate for the sign extension
234	* when the low bits are added at run time.
235	*/
236	static bfd_reloc_status_type
237	mips_fix_hi16_s PARAMS ((bfd , arelent , asymbol *, PTR,
238	asection , bfd , char **));
239
240	static bfd_reloc_status_type
241	mips_fix_hi16_s (abfd, reloc_entry, symbol, data, input_section,
242	output_bfd, error_message)
243	bfd *abfd;
244	arelent *reloc_entry;
245	asymbol *symbol;
246	PTR data;
247	asection *input_section;
248	bfd *output_bfd;
249	char **error_message;
250	{
251	bfd_vma relocation;
252
253	/* If this is a partial relocation, just continue. */
254	if (output_bfd != (bfd *)NULL)
255	return bfd_reloc_continue;
256
257	/* If this is an undefined symbol, return error */
258	if (bfd_is_und_section (symbol->section)
259	&& (symbol->flags & BSF_WEAK) == 0)
260	return bfd_reloc_undefined;
261
262	/*
263	* Work out which section the relocation is targetted at and the
264	* initial relocation command value.
265	*/
266	if (bfd_is_com_section (symbol->section))
267	relocation = 0;
268	else
269	relocation = symbol->value;
270
271	relocation += symbol->section->output_section->vma;
272	relocation += symbol->section->output_offset;
273	relocation += reloc_entry->addend;
274
275	if (relocation & 0x8000)
276	reloc_entry->addend += 0x10000;
277
278	return bfd_reloc_continue;
279	}
280
281	static reloc_howto_type mips_howto_table_ext[] = {
282	{MIPS_RELOC_32, 0, 2, 32, false, 0, complain_overflow_bitfield, 0,
283	"32", false, 0, 0xffffffff, false},
284	{MIPS_RELOC_JMP, 2, 2, 26, false, 0, complain_overflow_dont,
285	mips_fix_jmp_addr,
286	"MIPS_JMP", false, 0, 0x03ffffff, false},
287	{MIPS_RELOC_WDISP16, 2, 2, 16, true, 0, complain_overflow_signed, 0,
288	"WDISP16", false, 0, 0x0000ffff, false},
289	{MIPS_RELOC_HI16, 16, 2, 16, false, 0, complain_overflow_bitfield, 0,
290	"HI16", false, 0, 0x0000ffff, false},
291	{MIPS_RELOC_HI16_S, 16, 2, 16, false, 0, complain_overflow_bitfield,
292	mips_fix_hi16_s,
293	"HI16_S", false, 0, 0x0000ffff, false},
294	{MIPS_RELOC_LO16, 0, 2, 16, false, 0, complain_overflow_dont, 0,
295	"LO16", false, 0, 0x0000ffff, false},
296	};
297
298	static reloc_howto_type *
299	MY(reloc_howto_type_lookup) (abfd, code)
300	bfd *abfd;
301	bfd_reloc_code_real_type code;
302	{
303
304	if (bfd_get_arch (abfd) != bfd_arch_mips)
305	return 0;
306
307	switch (code)
308	{
309	case BFD_RELOC_CTOR:
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]);
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	*/
331	long
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))
361	return -1;
362	tblptr = section->relocation;
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 */
379	0, /* entry is text address */
380	0, /* exec_hdr_flags */
381	TARGET_PAGE_SIZE, /* text vma */
382	MY_set_sizes,
383	0, /* text size includes exec header */
384	0, /* add_dynamic_symbols */
385	0, /* add_one_symbol */
386	0, /* link_dynamic_object */
387	0, /* write_dynamic_symbol */
388	0, /* check_dynamic_reloc */
389	0 /* finish_dynamic_link */
390	};
391
392	const bfd_target aout_mips_little_vec =
393	{
394	"a.out-mips-little", /* name */
395	bfd_target_aout_flavour,
396	BFD_ENDIAN_LITTLE, /* target byte order (little) */
397	BFD_ENDIAN_LITTLE, /* target headers byte order (little) */
398	(HAS_RELOC \| EXEC_P \| /* object flags */
399	HAS_LINENO \| HAS_DEBUG \|
400	HAS_SYMS \| HAS_LOCALS \| WP_TEXT \| D_PAGED),
401	(SEC_HAS_CONTENTS \| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC \| SEC_CODE \| SEC_DATA),
402	MY_symbol_leading_char,
403	' ', /* ar_pad_char */
404	15, /* ar_max_namelen */
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 */
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},
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),
426	BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
427
428	(PTR) MY_backend_data,
429	};
430
431	const bfd_target aout_mips_big_vec =
432	{
433	"a.out-mips-big", /* name */
434	bfd_target_aout_flavour,
435	BFD_ENDIAN_BIG, /* target byte order (big) */
436	BFD_ENDIAN_BIG, /* target headers byte order (big) */
437	(HAS_RELOC \| EXEC_P \| /* object flags */
438	HAS_LINENO \| HAS_DEBUG \|
439	HAS_SYMS \| HAS_LOCALS \| WP_TEXT \| D_PAGED),
440	(SEC_HAS_CONTENTS \| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC \| SEC_CODE \| SEC_DATA),
441	MY_symbol_leading_char,
442	' ', /* ar_pad_char */
443	15, /* ar_max_namelen */
444	bfd_getb64, bfd_getb_signed_64, bfd_putb64,
445	bfd_getb32, bfd_getb_signed_32, bfd_putb32,
446	bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */
447	bfd_getb64, bfd_getb_signed_64, bfd_putb64,
448	bfd_getb32, bfd_getb_signed_32, bfd_putb32,
449	bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */
450	{_bfd_dummy_target, MY_object_p, /* bfd_check_format */
451	bfd_generic_archive_p, MY_core_file_p},
452	{bfd_false, MY_mkobject, /* bfd_set_format */
453	_bfd_generic_mkarchive, bfd_false},
454	{bfd_false, MY_write_object_contents, /* bfd_write_contents */
455	_bfd_write_archive_contents, bfd_false},
456
457	BFD_JUMP_TABLE_GENERIC (MY),
458	BFD_JUMP_TABLE_COPY (MY),
459	BFD_JUMP_TABLE_CORE (MY),
460	BFD_JUMP_TABLE_ARCHIVE (MY),
461	BFD_JUMP_TABLE_SYMBOLS (MY),
462	BFD_JUMP_TABLE_RELOCS (MY),
463	BFD_JUMP_TABLE_WRITE (MY),
464	BFD_JUMP_TABLE_LINK (MY),
465	BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
466
467	(PTR) MY_backend_data,
468	};