[deliverable/binutils-gdb.git] / bfd / aout-arm.c

/* BFD back-end for raw ARM a.out binaries.
   Copyright 1994, 1995, 1997, 1998, 1999, 2000, 2001
   Free Software Foundation, Inc.
   Contributed by Richard Earnshaw (rwe@pegasus.esprit.ec.org)

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.  */

#include "bfd.h"
#include "sysdep.h"

/* Avoid multiple defininitions from aoutx if supporting standarad a.out
   as well as our own.  */
/* Do not "beautify" the CONCAT* macro args.  Traditional C will not
   remove whitespace added here, and thus will fail to concatenate
   the tokens.  */
#define NAME(x,y) CONCAT3 (aoutarm,_32_,y)

#define N_TXTADDR(x)						\
  ((N_MAGIC (x) == NMAGIC)					\
   ? (bfd_vma) 0x8000						\
   : ((N_MAGIC (x) != ZMAGIC)					\
      ? (bfd_vma) 0						\
      : ((N_SHARED_LIB (x))					\
	 ? ((x).a_entry & ~(bfd_vma) (TARGET_PAGE_SIZE - 1))	\
	 : (bfd_vma) TEXT_START_ADDR)))

#define TEXT_START_ADDR 0x8000
#define TARGET_PAGE_SIZE 0x8000
#define SEGMENT_SIZE TARGET_PAGE_SIZE
#define DEFAULT_ARCH bfd_arch_arm

#define MY(OP) CONCAT2 (aoutarm_,OP)
#define N_BADMAG(x) ((((x).a_info & ~007200) != ZMAGIC) && \
                     (((x).a_info & ~006000) != OMAGIC) && \
                     ((x).a_info != NMAGIC))
#define N_MAGIC(x) ((x).a_info & ~07200)

#define MY_bfd_reloc_type_lookup aoutarm_bfd_reloc_type_lookup

#include "libaout.h"
#include "aout/aout64.h"

static boolean MY(write_object_contents)
  PARAMS ((bfd *));
static bfd_reloc_status_type MY(fix_pcrel_26_done)
  PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
static bfd_reloc_status_type MY(fix_pcrel_26)
  PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
static void MY(swap_std_reloc_in)
  PARAMS ((bfd *, struct reloc_std_external *, arelent *, asymbol **,
	   bfd_size_type));
reloc_howto_type *MY(bfd_reloc_type_lookup)
  PARAMS ((bfd *, bfd_reloc_code_real_type));
reloc_howto_type * MY(reloc_howto)
  PARAMS ((bfd *, struct reloc_std_external *, int *, int *, int *));
void MY(put_reloc)
  PARAMS ((bfd *, int, int, bfd_vma, reloc_howto_type *,
	   struct reloc_std_external *));
void MY(relocatable_reloc)
  PARAMS ((reloc_howto_type *, bfd *, struct reloc_std_external *, bfd_vma *,
	   bfd_vma));
void MY(swap_std_reloc_out)
  PARAMS ((bfd *, arelent *, struct reloc_std_external *));
\f
reloc_howto_type MY(howto_table)[] =
  {
    /* Type rs size bsz pcrel bitpos ovrf sf name part_inpl
       readmask setmask pcdone.  */
    HOWTO (0, 0, 0, 8, false, 0, complain_overflow_bitfield, 0, "8", true,
	   0x000000ff, 0x000000ff, false),
    HOWTO (1, 0, 1, 16, false, 0, complain_overflow_bitfield, 0, "16", true,
	   0x0000ffff, 0x0000ffff, false),
    HOWTO (2, 0, 2, 32, false, 0, complain_overflow_bitfield, 0, "32", true,
	   0xffffffff, 0xffffffff, false),
    HOWTO (3, 2, 2, 26, true, 0, complain_overflow_signed, MY(fix_pcrel_26),
	   "ARM26", true, 0x00ffffff, 0x00ffffff, true),
    HOWTO (4, 0, 0, 8, true, 0, complain_overflow_signed, 0, "DISP8", true,
	   0x000000ff, 0x000000ff, true),
    HOWTO (5, 0, 1, 16, true, 0, complain_overflow_signed, 0, "DISP16", true,
	   0x0000ffff, 0x0000ffff, true),
    HOWTO (6, 0, 2, 32, true, 0, complain_overflow_signed, 0, "DISP32", true,
	   0xffffffff, 0xffffffff, true),
    HOWTO (7, 2, 2, 26, false, 0, complain_overflow_signed,
	   MY(fix_pcrel_26_done), "ARM26D", true, 0x0, 0x0,
	   false),
    EMPTY_HOWTO (-1),
    HOWTO (9, 0, -1, 16, false, 0, complain_overflow_bitfield, 0, "NEG16", true,
	   0x0000ffff, 0x0000ffff, false),
    HOWTO (10, 0, -2, 32, false, 0, complain_overflow_bitfield, 0, "NEG32", true,
	   0xffffffff, 0xffffffff, false)
  };

#define RELOC_ARM_BITS_NEG_BIG      ((unsigned int) 0x08)
#define RELOC_ARM_BITS_NEG_LITTLE   ((unsigned int) 0x10)

reloc_howto_type *
MY(reloc_howto) (abfd, rel, r_index, r_extern, r_pcrel)
     bfd *abfd;
     struct reloc_std_external *rel;
     int *r_index;
     int *r_extern;
     int *r_pcrel;
{
  unsigned int r_length;
  unsigned int r_pcrel_done;
  unsigned int r_neg;
  int index;

  *r_pcrel = 0;
  if (bfd_header_big_endian (abfd))
    {
      *r_index     =  ((rel->r_index[0] << 16)
		       | (rel->r_index[1] << 8)
		       | rel->r_index[2]);
      *r_extern    = (0 != (rel->r_type[0] & RELOC_STD_BITS_EXTERN_BIG));
      r_pcrel_done = (0 != (rel->r_type[0] & RELOC_STD_BITS_PCREL_BIG));
      r_neg 	   = (0 != (rel->r_type[0] & RELOC_ARM_BITS_NEG_BIG));
      r_length     = ((rel->r_type[0] & RELOC_STD_BITS_LENGTH_BIG)
		      >> RELOC_STD_BITS_LENGTH_SH_BIG);
    }
  else
    {
      *r_index     = ((rel->r_index[2] << 16)
		      | (rel->r_index[1] << 8)
		      | rel->r_index[0]);
      *r_extern    = (0 != (rel->r_type[0] & RELOC_STD_BITS_EXTERN_LITTLE));
      r_pcrel_done = (0 != (rel->r_type[0] & RELOC_STD_BITS_PCREL_LITTLE));
      r_neg 	   = (0 != (rel->r_type[0] & RELOC_ARM_BITS_NEG_LITTLE));
      r_length     = ((rel->r_type[0] & RELOC_STD_BITS_LENGTH_LITTLE)
		      >> RELOC_STD_BITS_LENGTH_SH_LITTLE);
    }
  index = r_length + 4 * r_pcrel_done + 8 * r_neg;
  if (index == 3)
    *r_pcrel = 1;

  return MY(howto_table) + index;
}

#define MY_reloc_howto(BFD, REL, IN, EX, PC) \
	MY(reloc_howto) (BFD, REL, &IN, &EX, &PC)

void
MY(put_reloc) (abfd, r_extern, r_index, value, howto, reloc)
     bfd *abfd;
     int r_extern;
     int r_index;
     bfd_vma value;
     reloc_howto_type *howto;
     struct reloc_std_external *reloc;
{
  unsigned int r_length;
  int r_pcrel;
  int r_neg;

  PUT_WORD (abfd, value, reloc->r_address);
  /* Size as a power of two.  */
  r_length = howto->size;

  /* Special case for branch relocations.  */
  if (howto->type == 3 || howto->type == 7)
    r_length = 3;

  r_pcrel  = howto->type & 4; 	/* PC Relative done?  */
  r_neg = howto->type & 8;	/* Negative relocation.  */

  if (bfd_header_big_endian (abfd))
    {
      reloc->r_index[0] = r_index >> 16;
      reloc->r_index[1] = r_index >> 8;
      reloc->r_index[2] = r_index;
      reloc->r_type[0] =
	((r_extern ?     RELOC_STD_BITS_EXTERN_BIG : 0)
	 | (r_pcrel ?    RELOC_STD_BITS_PCREL_BIG : 0)
	 | (r_neg ?	 RELOC_ARM_BITS_NEG_BIG : 0)
	 | (r_length <<  RELOC_STD_BITS_LENGTH_SH_BIG));
    }
  else
    {
      reloc->r_index[2] = r_index >> 16;
      reloc->r_index[1] = r_index >> 8;
      reloc->r_index[0] = r_index;
      reloc->r_type[0] =
	((r_extern ?     RELOC_STD_BITS_EXTERN_LITTLE : 0)
	 | (r_pcrel ?    RELOC_STD_BITS_PCREL_LITTLE : 0)
	 | (r_neg ?	 RELOC_ARM_BITS_NEG_LITTLE : 0)
	 | (r_length <<  RELOC_STD_BITS_LENGTH_SH_LITTLE));
    }
}

#define MY_put_reloc(BFD, EXT, IDX, VAL, HOWTO, RELOC) \
  MY(put_reloc) (BFD, EXT, IDX, VAL, HOWTO, RELOC)

void
MY(relocatable_reloc) (howto, abfd, reloc, amount, r_addr)
     reloc_howto_type *howto;
     bfd *abfd;
     struct reloc_std_external *reloc;
     bfd_vma *amount;
     bfd_vma r_addr;
{
  if (howto->type == 3)
    {
      if (reloc->r_type[0]
	  & (bfd_header_big_endian (abfd)
	     ? RELOC_STD_BITS_EXTERN_BIG : RELOC_STD_BITS_EXTERN_LITTLE))
	{
	  /* The reloc is still external, so don't modify anything.  */
	  *amount = 0;
	}
      else
	{
	  *amount -= r_addr;
	  /* Change the r_pcrel value -- on the ARM, this bit is set once the
	     relocation is done.  */
	  if (bfd_header_big_endian (abfd))
	    reloc->r_type[0] |= RELOC_STD_BITS_PCREL_BIG;
	  else
	    reloc->r_type[0] |= RELOC_STD_BITS_PCREL_LITTLE;
	}
    }
  else if (howto->type == 7)
    *amount = 0;
}

#define MY_relocatable_reloc(HOW, BFD, REL, AMOUNT, ADDR) \
  MY(relocatable_reloc) (HOW, BFD, REL, &(AMOUNT), ADDR)

static bfd_reloc_status_type
MY(fix_pcrel_26_done) (abfd, reloc_entry, symbol, data, input_section,
		       output_bfd, error_message)
     bfd *abfd ATTRIBUTE_UNUSED;
     arelent *reloc_entry ATTRIBUTE_UNUSED;
     asymbol *symbol ATTRIBUTE_UNUSED;
     PTR data ATTRIBUTE_UNUSED;
     asection *input_section ATTRIBUTE_UNUSED;
     bfd *output_bfd ATTRIBUTE_UNUSED;
     char **error_message ATTRIBUTE_UNUSED;
{
  /* This is dead simple at present.  */
  return bfd_reloc_ok;
}

static bfd_reloc_status_type
MY(fix_pcrel_26) (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 ATTRIBUTE_UNUSED;
{
  bfd_vma relocation;
  bfd_size_type addr = reloc_entry->address;
  bfd_vma target = bfd_get_32 (abfd, (bfd_byte *) data + addr);
  bfd_reloc_status_type flag = bfd_reloc_ok;

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

  /* If the sections are different, and we are doing a partial relocation,
     just ignore it for now.  */
  if (symbol->section->name != input_section->name
      && output_bfd != (bfd *)NULL)
    return bfd_reloc_ok;

  relocation = (target & 0x00ffffff) << 2;
  relocation = (relocation ^ 0x02000000) - 0x02000000; /* Sign extend.  */
  relocation += symbol->value;
  relocation += symbol->section->output_section->vma;
  relocation += symbol->section->output_offset;
  relocation += reloc_entry->addend;
  relocation -= input_section->output_section->vma;
  relocation -= input_section->output_offset;
  relocation -= addr;
  if (relocation & 3)
    return bfd_reloc_overflow;

  /* Check for overflow.  */
  if (relocation & 0x02000000)
    {
      if ((relocation & ~ (bfd_vma) 0x03ffffff) != ~ (bfd_vma) 0x03ffffff)
	flag = bfd_reloc_overflow;
    }
  else if (relocation & ~ (bfd_vma) 0x03ffffff)
    flag = bfd_reloc_overflow;

  target &= ~ (bfd_vma) 0x00ffffff;
  target |= (relocation >> 2) & 0x00ffffff;
  bfd_put_32 (abfd, target, (bfd_byte *) data + addr);

  /* Now the ARM magic... Change the reloc type so that it is marked as done.
     Strictly this is only necessary if we are doing a partial relocation.  */
  reloc_entry->howto = &MY(howto_table)[7];

  return flag;
}

reloc_howto_type *
MY(bfd_reloc_type_lookup) (abfd,code)
     bfd *abfd;
     bfd_reloc_code_real_type code;
{
#define ASTD(i,j)       case i: return &MY(howto_table)[j]
  if (code == BFD_RELOC_CTOR)
    switch (bfd_get_arch_info (abfd)->bits_per_address)
      {
      case 32:
        code = BFD_RELOC_32;
        break;
      default:
	return (const struct reloc_howto_struct *) 0;
      }

  switch (code)
    {
      ASTD (BFD_RELOC_16, 1);
      ASTD (BFD_RELOC_32, 2);
      ASTD (BFD_RELOC_ARM_PCREL_BRANCH, 3);
      ASTD (BFD_RELOC_8_PCREL, 4);
      ASTD (BFD_RELOC_16_PCREL, 5);
      ASTD (BFD_RELOC_32_PCREL, 6);
    default:
      return (const struct reloc_howto_struct *) 0;
    }
}

#define MY_swap_std_reloc_in MY(swap_std_reloc_in)
#define MY_swap_std_reloc_out MY(swap_std_reloc_out)
#define MY_get_section_contents _bfd_generic_get_section_contents
/* #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_bfd_final_link _bfd_generic_final_link */

#include "aoutx.h"

static void
MY_swap_std_reloc_in (abfd, bytes, cache_ptr, symbols, symcount)
     bfd *abfd;
     struct reloc_std_external *bytes;
     arelent *cache_ptr;
     asymbol **symbols;
     bfd_size_type symcount ATTRIBUTE_UNUSED;
{
  int r_index;
  int r_extern;
  int r_pcrel;
  struct aoutdata *su = &(abfd->tdata.aout_data->a);

  cache_ptr->address = H_GET_32 (abfd, bytes->r_address);

  cache_ptr->howto = MY_reloc_howto (abfd, bytes, r_index, r_extern, r_pcrel);

  MOVE_ADDRESS (0);
}

void
MY_swap_std_reloc_out (abfd, g, natptr)
     bfd *abfd;
     arelent *g;
     struct reloc_std_external *natptr;
{
  int r_index;
  asymbol *sym = *(g->sym_ptr_ptr);
  int r_extern;
  int r_length;
  int r_pcrel;
  int r_neg = 0;	/* Negative relocs use the BASEREL bit.  */
  asection *output_section = sym->section->output_section;

  PUT_WORD(abfd, g->address, natptr->r_address);

  r_length = g->howto->size ;   /* Size as a power of two */
  if (r_length < 0)
    {
      r_length = -r_length;
      r_neg = 1;
    }

  r_pcrel  = (int) g->howto->pc_relative; /* Relative to PC? */

  /* For RISC iX, in pc-relative relocs the r_pcrel bit means that the
     relocation has been done already (Only for the 26-bit one I think)???!!!
     */

  if (g->howto->type == 3)
    {
      r_length = 3;
      r_pcrel = 0;
    }
  else if (g->howto->type == 7)
    {
      r_length = 3;
      r_pcrel = 1;
    }

#if 0
  /* For a standard reloc, the addend is in the object file.  */
  r_addend = g->addend + (*(g->sym_ptr_ptr))->section->output_section->vma;
#endif

  /* name was clobbered by aout_write_syms to be symbol index */

  /* If this relocation is relative to a symbol then set the
     r_index to the symbols index, and the r_extern bit.

     Absolute symbols can come in in two ways, either as an offset
     from the abs section, or as a symbol which has an abs value.
     check for that here
     */

  if (bfd_is_com_section (output_section)
      || output_section == &bfd_abs_section
      || output_section == &bfd_und_section)
    {
      if (bfd_abs_section.symbol == sym)
	{
	  /* Whoops, looked like an abs symbol, but is really an offset
	     from the abs section.  */
	  r_index = 0;
	  r_extern = 0;
	}
      else
	{
	  /* Fill in symbol.  */
	  r_extern = 1;
	  r_index = (*(g->sym_ptr_ptr))->KEEPIT;
	}
    }
  else
    {
      /* Just an ordinary section.  */
      r_extern = 0;
      r_index  = output_section->target_index;
    }

  /* Now the fun stuff.  */
  if (bfd_header_big_endian (abfd))
    {
      natptr->r_index[0] = r_index >> 16;
      natptr->r_index[1] = r_index >> 8;
      natptr->r_index[2] = r_index;
      natptr->r_type[0] =
	(  (r_extern ?   RELOC_STD_BITS_EXTERN_BIG: 0)
	 | (r_pcrel  ?   RELOC_STD_BITS_PCREL_BIG: 0)
	 | (r_neg    ?   RELOC_ARM_BITS_NEG_BIG: 0)
	 | (r_length <<  RELOC_STD_BITS_LENGTH_SH_BIG));
    }
  else
    {
      natptr->r_index[2] = r_index >> 16;
      natptr->r_index[1] = r_index >> 8;
      natptr->r_index[0] = r_index;
      natptr->r_type[0] =
	(  (r_extern ?   RELOC_STD_BITS_EXTERN_LITTLE: 0)
	 | (r_pcrel  ?   RELOC_STD_BITS_PCREL_LITTLE: 0)
	 | (r_neg    ?   RELOC_ARM_BITS_NEG_LITTLE: 0)
	 | (r_length <<  RELOC_STD_BITS_LENGTH_SH_LITTLE));
    }
}

#define MY_BFD_TARGET

#include "aout-target.h"

extern const bfd_target aout_arm_big_vec;

const bfd_target aout_arm_little_vec =
  {
    "a.out-arm-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 | DYNAMIC | WP_TEXT | D_PAGED),
    (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA),
    MY_symbol_leading_char,
    AR_PAD_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 (MY),

    & aout_arm_big_vec,

    (PTR) MY_backend_data,
  };

const bfd_target aout_arm_big_vec =
  {
    "a.out-arm-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 | DYNAMIC | WP_TEXT | D_PAGED),
    (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC | SEC_CODE | SEC_DATA),
    MY_symbol_leading_char,
    AR_PAD_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 (MY),

    & aout_arm_little_vec,

    (PTR) MY_backend_data,
  };
Commit	Line	Data
252b5132	1	/* BFD back-end for raw ARM a.out binaries.
1725a96e	2	Copyright 1994, 1995, 1997, 1998, 1999, 2000, 2001
7898deda	3	Free Software Foundation, Inc.
252b5132	4	Contributed by Richard Earnshaw (rwe@pegasus.esprit.ec.org)
c4dfa77f	5
252b5132 RH	6	This file is part of BFD, the Binary File Descriptor library.
	7
	8	This program is free software; you can redistribute it and/or modify
	9	it under the terms of the GNU General Public License as published by
	10	the Free Software Foundation; either version 2 of the License, or
	11	(at your option) any later version.
	12
	13	This program is distributed in the hope that it will be useful,
	14	but WITHOUT ANY WARRANTY; without even the implied warranty of
	15	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	16	GNU General Public License for more details.
	17
	18	You should have received a copy of the GNU General Public License
	19	along with this program; if not, write to the Free Software
	20	Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
	21
1725a96e NC	22	#include "bfd.h"
1725a96e NC	23	#include "sysdep.h"
e43d48cc	24
1725a96e NC	25	/* Avoid multiple defininitions from aoutx if supporting standarad a.out
1725a96e NC	26	as well as our own. */
e43d48cc AM	27	/* Do not "beautify" the CONCAT* macro args. Traditional C will not
	28	remove whitespace added here, and thus will fail to concatenate
	29	the tokens. */
	30	#define NAME(x,y) CONCAT3 (aoutarm,_32_,y)
1725a96e	31
dc810e39 AM	32	#define N_TXTADDR(x) \
	33	((N_MAGIC (x) == NMAGIC) \
	34	? (bfd_vma) 0x8000 \
	35	: ((N_MAGIC (x) != ZMAGIC) \
	36	? (bfd_vma) 0 \
	37	: ((N_SHARED_LIB (x)) \
	38	? ((x).a_entry & ~(bfd_vma) (TARGET_PAGE_SIZE - 1)) \
	39	: (bfd_vma) TEXT_START_ADDR)))
252b5132 RH	40
	41	#define TEXT_START_ADDR 0x8000
	42	#define TARGET_PAGE_SIZE 0x8000
	43	#define SEGMENT_SIZE TARGET_PAGE_SIZE
	44	#define DEFAULT_ARCH bfd_arch_arm
	45
e43d48cc	46	#define MY(OP) CONCAT2 (aoutarm_,OP)
252b5132 RH	47	#define N_BADMAG(x) ((((x).a_info & ~007200) != ZMAGIC) && \
	48	(((x).a_info & ~006000) != OMAGIC) && \
	49	((x).a_info != NMAGIC))
	50	#define N_MAGIC(x) ((x).a_info & ~07200)
	51
252b5132 RH	52	#define MY_bfd_reloc_type_lookup aoutarm_bfd_reloc_type_lookup
252b5132 RH	53
dc810e39 AM	54	#include "libaout.h"
	55	#include "aout/aout64.h"
	56
	57	static boolean MY(write_object_contents)
	58	PARAMS ((bfd *));
	59	static bfd_reloc_status_type MY(fix_pcrel_26_done)
	60	PARAMS ((bfd , arelent , asymbol , PTR, asection , bfd , char *));
	61	static bfd_reloc_status_type MY(fix_pcrel_26)
	62	PARAMS ((bfd , arelent , asymbol , PTR, asection , bfd , char *));
	63	static void MY(swap_std_reloc_in)
	64	PARAMS ((bfd , struct reloc_std_external , arelent , asymbol *,
	65	bfd_size_type));
	66	reloc_howto_type *MY(bfd_reloc_type_lookup)
	67	PARAMS ((bfd *, bfd_reloc_code_real_type));
	68	reloc_howto_type * MY(reloc_howto)
	69	PARAMS ((bfd , struct reloc_std_external , int , int , int *));
	70	void MY(put_reloc)
	71	PARAMS ((bfd , int, int, bfd_vma, reloc_howto_type ,
	72	struct reloc_std_external *));
	73	void MY(relocatable_reloc)
	74	PARAMS ((reloc_howto_type , bfd , struct reloc_std_external , bfd_vma ,
	75	bfd_vma));
	76	void MY(swap_std_reloc_out)
	77	PARAMS ((bfd , arelent , struct reloc_std_external *));
1725a96e	78	\f
252b5132	79	reloc_howto_type MY(howto_table)[] =
1725a96e NC	80	{
	81	/* Type rs size bsz pcrel bitpos ovrf sf name part_inpl
	82	readmask setmask pcdone. */
	83	HOWTO (0, 0, 0, 8, false, 0, complain_overflow_bitfield, 0, "8", true,
	84	0x000000ff, 0x000000ff, false),
	85	HOWTO (1, 0, 1, 16, false, 0, complain_overflow_bitfield, 0, "16", true,
	86	0x0000ffff, 0x0000ffff, false),
	87	HOWTO (2, 0, 2, 32, false, 0, complain_overflow_bitfield, 0, "32", true,
	88	0xffffffff, 0xffffffff, false),
	89	HOWTO (3, 2, 2, 26, true, 0, complain_overflow_signed, MY(fix_pcrel_26),
	90	"ARM26", true, 0x00ffffff, 0x00ffffff, true),
	91	HOWTO (4, 0, 0, 8, true, 0, complain_overflow_signed, 0, "DISP8", true,
	92	0x000000ff, 0x000000ff, true),
	93	HOWTO (5, 0, 1, 16, true, 0, complain_overflow_signed, 0, "DISP16", true,
	94	0x0000ffff, 0x0000ffff, true),
	95	HOWTO (6, 0, 2, 32, true, 0, complain_overflow_signed, 0, "DISP32", true,
	96	0xffffffff, 0xffffffff, true),
	97	HOWTO (7, 2, 2, 26, false, 0, complain_overflow_signed,
	98	MY(fix_pcrel_26_done), "ARM26D", true, 0x0, 0x0,
	99	false),
	100	EMPTY_HOWTO (-1),
	101	HOWTO (9, 0, -1, 16, false, 0, complain_overflow_bitfield, 0, "NEG16", true,
	102	0x0000ffff, 0x0000ffff, false),
	103	HOWTO (10, 0, -2, 32, false, 0, complain_overflow_bitfield, 0, "NEG32", true,
	104	0xffffffff, 0xffffffff, false)
	105	};
252b5132 RH	106
	107	#define RELOC_ARM_BITS_NEG_BIG ((unsigned int) 0x08)
	108	#define RELOC_ARM_BITS_NEG_LITTLE ((unsigned int) 0x10)
	109
	110	reloc_howto_type *
beb0d161	111	MY(reloc_howto) (abfd, rel, r_index, r_extern, r_pcrel)
252b5132 RH	112	bfd *abfd;
	113	struct reloc_std_external *rel;
	114	int *r_index;
	115	int *r_extern;
	116	int *r_pcrel;
	117	{
	118	unsigned int r_length;
	119	unsigned int r_pcrel_done;
	120	unsigned int r_neg;
	121	int index;
	122
	123	*r_pcrel = 0;
	124	if (bfd_header_big_endian (abfd))
	125	{
	126	*r_index = ((rel->r_index[0] << 16)
	127	\| (rel->r_index[1] << 8)
	128	\| rel->r_index[2]);
	129	*r_extern = (0 != (rel->r_type[0] & RELOC_STD_BITS_EXTERN_BIG));
	130	r_pcrel_done = (0 != (rel->r_type[0] & RELOC_STD_BITS_PCREL_BIG));
	131	r_neg = (0 != (rel->r_type[0] & RELOC_ARM_BITS_NEG_BIG));
	132	r_length = ((rel->r_type[0] & RELOC_STD_BITS_LENGTH_BIG)
	133	>> RELOC_STD_BITS_LENGTH_SH_BIG);
	134	}
	135	else
	136	{
	137	*r_index = ((rel->r_index[2] << 16)
	138	\| (rel->r_index[1] << 8)
	139	\| rel->r_index[0]);
	140	*r_extern = (0 != (rel->r_type[0] & RELOC_STD_BITS_EXTERN_LITTLE));
	141	r_pcrel_done = (0 != (rel->r_type[0] & RELOC_STD_BITS_PCREL_LITTLE));
	142	r_neg = (0 != (rel->r_type[0] & RELOC_ARM_BITS_NEG_LITTLE));
	143	r_length = ((rel->r_type[0] & RELOC_STD_BITS_LENGTH_LITTLE)
	144	>> RELOC_STD_BITS_LENGTH_SH_LITTLE);
	145	}
	146	index = r_length + 4 * r_pcrel_done + 8 * r_neg;
	147	if (index == 3)
	148	*r_pcrel = 1;
	149
	150	return MY(howto_table) + index;
	151	}
c4dfa77f	152
252b5132 RH	153	#define MY_reloc_howto(BFD, REL, IN, EX, PC) \
	154	MY(reloc_howto) (BFD, REL, &IN, &EX, &PC)
	155
	156	void
beb0d161	157	MY(put_reloc) (abfd, r_extern, r_index, value, howto, reloc)
252b5132 RH	158	bfd *abfd;
	159	int r_extern;
	160	int r_index;
dc810e39	161	bfd_vma value;
252b5132 RH	162	reloc_howto_type *howto;
	163	struct reloc_std_external *reloc;
	164	{
	165	unsigned int r_length;
	166	int r_pcrel;
	167	int r_neg;
	168
	169	PUT_WORD (abfd, value, reloc->r_address);
1725a96e NC	170	/* Size as a power of two. */
1725a96e NC	171	r_length = howto->size;
252b5132	172
c4dfa77f	173	/* Special case for branch relocations. */
252b5132 RH	174	if (howto->type == 3 \|\| howto->type == 7)
	175	r_length = 3;
	176
1725a96e NC	177	r_pcrel = howto->type & 4; /* PC Relative done? */
	178	r_neg = howto->type & 8; /* Negative relocation. */
	179
252b5132 RH	180	if (bfd_header_big_endian (abfd))
	181	{
	182	reloc->r_index[0] = r_index >> 16;
	183	reloc->r_index[1] = r_index >> 8;
	184	reloc->r_index[2] = r_index;
	185	reloc->r_type[0] =
	186	((r_extern ? RELOC_STD_BITS_EXTERN_BIG : 0)
	187	\| (r_pcrel ? RELOC_STD_BITS_PCREL_BIG : 0)
	188	\| (r_neg ? RELOC_ARM_BITS_NEG_BIG : 0)
	189	\| (r_length << RELOC_STD_BITS_LENGTH_SH_BIG));
	190	}
	191	else
	192	{
	193	reloc->r_index[2] = r_index >> 16;
	194	reloc->r_index[1] = r_index >> 8;
	195	reloc->r_index[0] = r_index;
	196	reloc->r_type[0] =
	197	((r_extern ? RELOC_STD_BITS_EXTERN_LITTLE : 0)
	198	\| (r_pcrel ? RELOC_STD_BITS_PCREL_LITTLE : 0)
	199	\| (r_neg ? RELOC_ARM_BITS_NEG_LITTLE : 0)
	200	\| (r_length << RELOC_STD_BITS_LENGTH_SH_LITTLE));
	201	}
	202	}
c4dfa77f	203
252b5132	204	#define MY_put_reloc(BFD, EXT, IDX, VAL, HOWTO, RELOC) \
beb0d161	205	MY(put_reloc) (BFD, EXT, IDX, VAL, HOWTO, RELOC)
252b5132 RH	206
252b5132 RH	207	void
beb0d161	208	MY(relocatable_reloc) (howto, abfd, reloc, amount, r_addr)
252b5132 RH	209	reloc_howto_type *howto;
	210	bfd *abfd;
	211	struct reloc_std_external *reloc;
	212	bfd_vma *amount;
	213	bfd_vma r_addr;
	214	{
	215	if (howto->type == 3)
	216	{
c4dfa77f	217	if (reloc->r_type[0]
252b5132 RH	218	& (bfd_header_big_endian (abfd)
	219	? RELOC_STD_BITS_EXTERN_BIG : RELOC_STD_BITS_EXTERN_LITTLE))
	220	{
c4dfa77f	221	/* The reloc is still external, so don't modify anything. */
252b5132 RH	222	*amount = 0;
	223	}
	224	else
	225	{
	226	*amount -= r_addr;
	227	/* Change the r_pcrel value -- on the ARM, this bit is set once the
	228	relocation is done. */
	229	if (bfd_header_big_endian (abfd))
	230	reloc->r_type[0] \|= RELOC_STD_BITS_PCREL_BIG;
	231	else
	232	reloc->r_type[0] \|= RELOC_STD_BITS_PCREL_LITTLE;
	233	}
	234	}
	235	else if (howto->type == 7)
	236	*amount = 0;
	237	}
	238
	239	#define MY_relocatable_reloc(HOW, BFD, REL, AMOUNT, ADDR) \
beb0d161	240	MY(relocatable_reloc) (HOW, BFD, REL, &(AMOUNT), ADDR)
252b5132 RH	241
	242	static bfd_reloc_status_type
	243	MY(fix_pcrel_26_done) (abfd, reloc_entry, symbol, data, input_section,
	244	output_bfd, error_message)
5f771d47 ILT	245	bfd *abfd ATTRIBUTE_UNUSED;
	246	arelent *reloc_entry ATTRIBUTE_UNUSED;
	247	asymbol *symbol ATTRIBUTE_UNUSED;
	248	PTR data ATTRIBUTE_UNUSED;
	249	asection *input_section ATTRIBUTE_UNUSED;
	250	bfd *output_bfd ATTRIBUTE_UNUSED;
	251	char **error_message ATTRIBUTE_UNUSED;
252b5132 RH	252	{
	253	/* This is dead simple at present. */
	254	return bfd_reloc_ok;
	255	}
	256
	257	static bfd_reloc_status_type
	258	MY(fix_pcrel_26) (abfd, reloc_entry, symbol, data, input_section,
	259	output_bfd, error_message)
	260	bfd *abfd;
	261	arelent *reloc_entry;
	262	asymbol *symbol;
	263	PTR data;
	264	asection *input_section;
	265	bfd *output_bfd;
5f771d47	266	char **error_message ATTRIBUTE_UNUSED;
252b5132 RH	267	{
	268	bfd_vma relocation;
	269	bfd_size_type addr = reloc_entry->address;
dc810e39	270	bfd_vma target = bfd_get_32 (abfd, (bfd_byte *) data + addr);
252b5132	271	bfd_reloc_status_type flag = bfd_reloc_ok;
c4dfa77f	272
1725a96e	273	/* If this is an undefined symbol, return error. */
252b5132 RH	274	if (symbol->section == &bfd_und_section
	275	&& (symbol->flags & BSF_WEAK) == 0)
	276	return output_bfd ? bfd_reloc_ok : bfd_reloc_undefined;
	277
	278	/* If the sections are different, and we are doing a partial relocation,
	279	just ignore it for now. */
	280	if (symbol->section->name != input_section->name
	281	&& output_bfd != (bfd *)NULL)
	282	return bfd_reloc_ok;
	283
	284	relocation = (target & 0x00ffffff) << 2;
1725a96e	285	relocation = (relocation ^ 0x02000000) - 0x02000000; /* Sign extend. */
252b5132 RH	286	relocation += symbol->value;
	287	relocation += symbol->section->output_section->vma;
	288	relocation += symbol->section->output_offset;
	289	relocation += reloc_entry->addend;
	290	relocation -= input_section->output_section->vma;
	291	relocation -= input_section->output_offset;
	292	relocation -= addr;
	293	if (relocation & 3)
	294	return bfd_reloc_overflow;
	295
1725a96e	296	/* Check for overflow. */
252b5132 RH	297	if (relocation & 0x02000000)
	298	{
	299	if ((relocation & ~ (bfd_vma) 0x03ffffff) != ~ (bfd_vma) 0x03ffffff)
	300	flag = bfd_reloc_overflow;
	301	}
dc810e39	302	else if (relocation & ~ (bfd_vma) 0x03ffffff)
252b5132 RH	303	flag = bfd_reloc_overflow;
252b5132 RH	304
dc810e39	305	target &= ~ (bfd_vma) 0x00ffffff;
252b5132 RH	306	target \|= (relocation >> 2) & 0x00ffffff;
	307	bfd_put_32 (abfd, target, (bfd_byte *) data + addr);
	308
	309	/* Now the ARM magic... Change the reloc type so that it is marked as done.
	310	Strictly this is only necessary if we are doing a partial relocation. */
	311	reloc_entry->howto = &MY(howto_table)[7];
c4dfa77f	312
252b5132 RH	313	return flag;
	314	}
	315
	316	reloc_howto_type *
beb0d161	317	MY(bfd_reloc_type_lookup) (abfd,code)
252b5132 RH	318	bfd *abfd;
	319	bfd_reloc_code_real_type code;
	320	{
	321	#define ASTD(i,j) case i: return &MY(howto_table)[j]
	322	if (code == BFD_RELOC_CTOR)
	323	switch (bfd_get_arch_info (abfd)->bits_per_address)
	324	{
	325	case 32:
	326	code = BFD_RELOC_32;
	327	break;
1725a96e	328	default:
dc810e39	329	return (const struct reloc_howto_struct *) 0;
252b5132 RH	330	}
	331
	332	switch (code)
	333	{
	334	ASTD (BFD_RELOC_16, 1);
	335	ASTD (BFD_RELOC_32, 2);
	336	ASTD (BFD_RELOC_ARM_PCREL_BRANCH, 3);
	337	ASTD (BFD_RELOC_8_PCREL, 4);
	338	ASTD (BFD_RELOC_16_PCREL, 5);
	339	ASTD (BFD_RELOC_32_PCREL, 6);
1725a96e	340	default:
dc810e39	341	return (const struct reloc_howto_struct *) 0;
252b5132 RH	342	}
	343	}
	344
	345	#define MY_swap_std_reloc_in MY(swap_std_reloc_in)
	346	#define MY_swap_std_reloc_out MY(swap_std_reloc_out)
	347	#define MY_get_section_contents _bfd_generic_get_section_contents
	348	/* #define MY_bfd_link_hash_table_create _bfd_generic_link_hash_table_create */
	349	/* #define MY_bfd_link_add_symbols _bfd_generic_link_add_symbols */
	350	/* #define MY_bfd_final_link _bfd_generic_final_link */
	351
	352	#include "aoutx.h"
	353
	354	static void
	355	MY_swap_std_reloc_in (abfd, bytes, cache_ptr, symbols, symcount)
	356	bfd *abfd;
	357	struct reloc_std_external *bytes;
	358	arelent *cache_ptr;
	359	asymbol **symbols;
5f771d47	360	bfd_size_type symcount ATTRIBUTE_UNUSED;
252b5132 RH	361	{
	362	int r_index;
	363	int r_extern;
	364	int r_pcrel;
	365	struct aoutdata *su = &(abfd->tdata.aout_data->a);
	366
dc810e39	367	cache_ptr->address = H_GET_32 (abfd, bytes->r_address);
252b5132 RH	368
	369	cache_ptr->howto = MY_reloc_howto (abfd, bytes, r_index, r_extern, r_pcrel);
	370
	371	MOVE_ADDRESS (0);
	372	}
	373
	374	void
	375	MY_swap_std_reloc_out (abfd, g, natptr)
	376	bfd *abfd;
	377	arelent *g;
	378	struct reloc_std_external *natptr;
	379	{
	380	int r_index;
	381	asymbol sym = (g->sym_ptr_ptr);
	382	int r_extern;
	383	int r_length;
	384	int r_pcrel;
	385	int r_neg = 0; /* Negative relocs use the BASEREL bit. */
	386	asection *output_section = sym->section->output_section;
	387
	388	PUT_WORD(abfd, g->address, natptr->r_address);
	389
	390	r_length = g->howto->size ; /* Size as a power of two */
	391	if (r_length < 0)
	392	{
	393	r_length = -r_length;
	394	r_neg = 1;
	395	}
	396
	397	r_pcrel = (int) g->howto->pc_relative; /* Relative to PC? */
	398
	399	/* For RISC iX, in pc-relative relocs the r_pcrel bit means that the
	400	relocation has been done already (Only for the 26-bit one I think)???!!!
	401	*/
	402
	403	if (g->howto->type == 3)
	404	{
	405	r_length = 3;
	406	r_pcrel = 0;
	407	}
	408	else if (g->howto->type == 7)
c4dfa77f	409	{
252b5132 RH	410	r_length = 3;
	411	r_pcrel = 1;
	412	}
252b5132 RH	413
	414	#if 0
	415	/* For a standard reloc, the addend is in the object file. */
	416	r_addend = g->addend + (*(g->sym_ptr_ptr))->section->output_section->vma;
	417	#endif
	418
	419	/* name was clobbered by aout_write_syms to be symbol index */
	420
	421	/* If this relocation is relative to a symbol then set the
	422	r_index to the symbols index, and the r_extern bit.
	423
	424	Absolute symbols can come in in two ways, either as an offset
	425	from the abs section, or as a symbol which has an abs value.
	426	check for that here
	427	*/
	428
	429	if (bfd_is_com_section (output_section)
	430	\|\| output_section == &bfd_abs_section
	431	\|\| output_section == &bfd_und_section)
	432	{
	433	if (bfd_abs_section.symbol == sym)
	434	{
	435	/* Whoops, looked like an abs symbol, but is really an offset
1725a96e	436	from the abs section. */
252b5132 RH	437	r_index = 0;
	438	r_extern = 0;
	439	}
	440	else
	441	{
1725a96e	442	/* Fill in symbol. */
252b5132 RH	443	r_extern = 1;
	444	r_index = (*(g->sym_ptr_ptr))->KEEPIT;
	445	}
	446	}
	447	else
	448	{
1725a96e	449	/* Just an ordinary section. */
252b5132 RH	450	r_extern = 0;
	451	r_index = output_section->target_index;
	452	}
	453
1725a96e	454	/* Now the fun stuff. */
252b5132 RH	455	if (bfd_header_big_endian (abfd))
	456	{
	457	natptr->r_index[0] = r_index >> 16;
	458	natptr->r_index[1] = r_index >> 8;
	459	natptr->r_index[2] = r_index;
	460	natptr->r_type[0] =
	461	( (r_extern ? RELOC_STD_BITS_EXTERN_BIG: 0)
	462	\| (r_pcrel ? RELOC_STD_BITS_PCREL_BIG: 0)
	463	\| (r_neg ? RELOC_ARM_BITS_NEG_BIG: 0)
	464	\| (r_length << RELOC_STD_BITS_LENGTH_SH_BIG));
	465	}
	466	else
	467	{
	468	natptr->r_index[2] = r_index >> 16;
	469	natptr->r_index[1] = r_index >> 8;
	470	natptr->r_index[0] = r_index;
	471	natptr->r_type[0] =
	472	( (r_extern ? RELOC_STD_BITS_EXTERN_LITTLE: 0)
	473	\| (r_pcrel ? RELOC_STD_BITS_PCREL_LITTLE: 0)
	474	\| (r_neg ? RELOC_ARM_BITS_NEG_LITTLE: 0)
	475	\| (r_length << RELOC_STD_BITS_LENGTH_SH_LITTLE));
	476	}
	477	}
	478
	479	#define MY_BFD_TARGET
	480
	481	#include "aout-target.h"
	482
c3c89269 NC	483	extern const bfd_target aout_arm_big_vec;
c3c89269 NC	484
252b5132	485	const bfd_target aout_arm_little_vec =
1725a96e NC	486	{
	487	"a.out-arm-little", /* name */
	488	bfd_target_aout_flavour,
	489	BFD_ENDIAN_LITTLE, /* target byte order (little) */
	490	BFD_ENDIAN_LITTLE, /* target headers byte order (little) */
	491	(HAS_RELOC \| EXEC_P \| /* object flags */
	492	HAS_LINENO \| HAS_DEBUG \|
	493	HAS_SYMS \| HAS_LOCALS \| DYNAMIC \| WP_TEXT \| D_PAGED),
	494	(SEC_HAS_CONTENTS \| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC \| SEC_CODE \| SEC_DATA),
	495	MY_symbol_leading_char,
	496	AR_PAD_CHAR, /* ar_pad_char */
	497	15, /* ar_max_namelen */
	498	bfd_getl64, bfd_getl_signed_64, bfd_putl64,
	499	bfd_getl32, bfd_getl_signed_32, bfd_putl32,
	500	bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
	501	bfd_getl64, bfd_getl_signed_64, bfd_putl64,
	502	bfd_getl32, bfd_getl_signed_32, bfd_putl32,
	503	bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */
	504	{_bfd_dummy_target, MY_object_p, /* bfd_check_format */
	505	bfd_generic_archive_p, MY_core_file_p},
	506	{bfd_false, MY_mkobject, /* bfd_set_format */
	507	_bfd_generic_mkarchive, bfd_false},
	508	{bfd_false, MY_write_object_contents, /* bfd_write_contents */
	509	_bfd_write_archive_contents, bfd_false},
	510
	511	BFD_JUMP_TABLE_GENERIC (MY),
	512	BFD_JUMP_TABLE_COPY (MY),
	513	BFD_JUMP_TABLE_CORE (MY),
	514	BFD_JUMP_TABLE_ARCHIVE (MY),
	515	BFD_JUMP_TABLE_SYMBOLS (MY),
	516	BFD_JUMP_TABLE_RELOCS (MY),
	517	BFD_JUMP_TABLE_WRITE (MY),
	518	BFD_JUMP_TABLE_LINK (MY),
	519	BFD_JUMP_TABLE_DYNAMIC (MY),
	520
	521	& aout_arm_big_vec,
	522
	523	(PTR) MY_backend_data,
	524	};
252b5132 RH	525
252b5132 RH	526	const bfd_target aout_arm_big_vec =
1725a96e NC	527	{
	528	"a.out-arm-big", /* name */
	529	bfd_target_aout_flavour,
	530	BFD_ENDIAN_BIG, /* target byte order (big) */
	531	BFD_ENDIAN_BIG, /* target headers byte order (big) */
	532	(HAS_RELOC \| EXEC_P \| /* object flags */
	533	HAS_LINENO \| HAS_DEBUG \|
	534	HAS_SYMS \| HAS_LOCALS \| DYNAMIC \| WP_TEXT \| D_PAGED),
	535	(SEC_HAS_CONTENTS \| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC \| SEC_CODE \| SEC_DATA),
	536	MY_symbol_leading_char,
	537	AR_PAD_CHAR, /* ar_pad_char */
	538	15, /* ar_max_namelen */
	539	bfd_getb64, bfd_getb_signed_64, bfd_putb64,
	540	bfd_getb32, bfd_getb_signed_32, bfd_putb32,
	541	bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */
	542	bfd_getb64, bfd_getb_signed_64, bfd_putb64,
	543	bfd_getb32, bfd_getb_signed_32, bfd_putb32,
	544	bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */
	545	{_bfd_dummy_target, MY_object_p, /* bfd_check_format */
	546	bfd_generic_archive_p, MY_core_file_p},
	547	{bfd_false, MY_mkobject, /* bfd_set_format */
	548	_bfd_generic_mkarchive, bfd_false},
	549	{bfd_false, MY_write_object_contents, /* bfd_write_contents */
	550	_bfd_write_archive_contents, bfd_false},
	551
	552	BFD_JUMP_TABLE_GENERIC (MY),
	553	BFD_JUMP_TABLE_COPY (MY),
	554	BFD_JUMP_TABLE_CORE (MY),
	555	BFD_JUMP_TABLE_ARCHIVE (MY),
	556	BFD_JUMP_TABLE_SYMBOLS (MY),
	557	BFD_JUMP_TABLE_RELOCS (MY),
	558	BFD_JUMP_TABLE_WRITE (MY),
	559	BFD_JUMP_TABLE_LINK (MY),
	560	BFD_JUMP_TABLE_DYNAMIC (MY),
dc810e39	561
1725a96e NC	562	& aout_arm_little_vec,
	563
	564	(PTR) MY_backend_data,
	565	};