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

/* BFD back-end for ns32k a.out-ish binaries.
   Copyright 1990, 1991, 1992, 1994, 1995, 1996, 1998, 2000, 2001, 2002, 2003
   Free Software Foundation, Inc.
   Contributed by Ian Dall (idall@eleceng.adelaide.edu.au).

   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 "aout/aout64.h"
#include "ns32k.h"

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

reloc_howto_type *
MYNS(bfd_reloc_type_lookup)
  PARAMS((bfd *abfd AND
	  bfd_reloc_code_real_type code));

bfd_boolean
MYNS(write_object_contents)
  PARAMS((bfd *abfd));

/* Avoid multiple definitions from aoutx if supporting
   standard a.out format(s) as well as this one.  */
#define NAME(x,y) CONCAT3 (ns32kaout,_32_,y)

void bfd_ns32k_arch PARAMS ((void));

#include "libaout.h"

#define MY(OP) MYNS(OP)

#define MY_swap_std_reloc_in  MY(swap_std_reloc_in)
#define MY_swap_std_reloc_out MY(swap_std_reloc_out)

static void
MY_swap_std_reloc_in PARAMS ((bfd *, struct reloc_std_external *,
			      arelent *, asymbol **,
			      bfd_size_type));
static void
MY_swap_std_reloc_out PARAMS ((bfd *, arelent *,
			       struct reloc_std_external *));
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 *));

/* The ns32k series is ah, unusual, when it comes to relocation.
   There are three storage methods for relocatable objects.  There
   are displacements, immediate operands and ordinary twos complement
   data. Of these, only the last fits into the standard relocation
   scheme.  Immediate operands are stored huffman encoded and
   immediate operands are stored big endian (where as the natural byte
   order is little endian for this achitecture).

   Note that the ns32k displacement storage method is orthogonal to
   whether the relocation is pc relative or not. The "displacement"
   storage scheme is used for essentially all address constants. The
   displacement can be relative to zero (absolute displacement),
   relative to the pc (pc relative), the stack pointer, the frame
   pointer, the static base register and general purpose register etc.

   For example:

   sym1: .long .	 # pc relative 2's complement
   sym1: .long foo	 # 2's complement not pc relative

   self:  movd @self, r0 # pc relative displacement
          movd foo, r0   # non pc relative displacement

   self:  movd self, r0  # pc relative immediate
          movd foo, r0   # non pc relative immediate

   In addition, for historical reasons the encoding of the relocation types
   in the a.out format relocation entries is such that even the relocation
   methods which are standard are not encoded the standard way.  */

reloc_howto_type MY(howto_table)[] =
  {
    /* type           rs   size bsz  pcrel bitpos ovrf                  sf name          part_inpl readmask setmask pcdone */
    /* ns32k immediate operands.  */
    HOWTO (BFD_RELOC_NS32K_IMM_8, 0, 0, 8, FALSE, 0, complain_overflow_signed,
	   _bfd_ns32k_reloc_imm, "NS32K_IMM_8",
	   TRUE, 0x000000ff,0x000000ff, FALSE),
    HOWTO (BFD_RELOC_NS32K_IMM_16, 0, 1, 16, FALSE, 0, complain_overflow_signed,
	   _bfd_ns32k_reloc_imm,  "NS32K_IMM_16",
	   TRUE, 0x0000ffff,0x0000ffff, FALSE),
    HOWTO (BFD_RELOC_NS32K_IMM_32, 0, 2, 32, FALSE, 0, complain_overflow_signed,
	   _bfd_ns32k_reloc_imm, "NS32K_IMM_32",
	   TRUE, 0xffffffff,0xffffffff, FALSE),
    HOWTO (BFD_RELOC_NS32K_IMM_8_PCREL, 0, 0, 8, TRUE, 0, complain_overflow_signed,
	   _bfd_ns32k_reloc_imm, "PCREL_NS32K_IMM_8",
	   TRUE, 0x000000ff, 0x000000ff, FALSE),
    HOWTO (BFD_RELOC_NS32K_IMM_16_PCREL, 0, 1, 16, TRUE, 0, complain_overflow_signed,
	   _bfd_ns32k_reloc_imm, "PCREL_NS32K_IMM_16",
	   TRUE, 0x0000ffff,0x0000ffff, FALSE),
    HOWTO (BFD_RELOC_NS32K_IMM_32_PCREL, 0, 2, 32, TRUE, 0, complain_overflow_signed,
	   _bfd_ns32k_reloc_imm, "PCREL_NS32K_IMM_32",
	   TRUE, 0xffffffff,0xffffffff, FALSE),

    /* ns32k displacements.  */
    HOWTO (BFD_RELOC_NS32K_DISP_8, 0, 0, 7, FALSE, 0, complain_overflow_signed,
	   _bfd_ns32k_reloc_disp, "NS32K_DISP_8",
	   TRUE, 0x000000ff,0x000000ff, FALSE),
    HOWTO (BFD_RELOC_NS32K_DISP_16, 0, 1, 14, FALSE, 0, complain_overflow_signed,
	   _bfd_ns32k_reloc_disp, "NS32K_DISP_16",
	   TRUE, 0x0000ffff, 0x0000ffff, FALSE),
    HOWTO (BFD_RELOC_NS32K_DISP_32, 0, 2, 30, FALSE, 0, complain_overflow_signed,
	   _bfd_ns32k_reloc_disp, "NS32K_DISP_32",
	   TRUE, 0xffffffff, 0xffffffff, FALSE),
    HOWTO (BFD_RELOC_NS32K_DISP_8_PCREL, 0, 0, 7, TRUE, 0, complain_overflow_signed,
	   _bfd_ns32k_reloc_disp, "PCREL_NS32K_DISP_8",
	   TRUE, 0x000000ff,0x000000ff, FALSE),
    HOWTO (BFD_RELOC_NS32K_DISP_16_PCREL, 0, 1, 14, TRUE, 0, complain_overflow_signed,
	   _bfd_ns32k_reloc_disp, "PCREL_NS32K_DISP_16",
	   TRUE, 0x0000ffff,0x0000ffff, FALSE),
    HOWTO (BFD_RELOC_NS32K_DISP_32_PCREL, 0, 2, 30, TRUE, 0, complain_overflow_signed,
	   _bfd_ns32k_reloc_disp, "PCREL_NS32K_DISP_32",
	   TRUE, 0xffffffff,0xffffffff, FALSE),

    /* Normal 2's complement.  */
    HOWTO (BFD_RELOC_8, 0, 0, 8, FALSE, 0, complain_overflow_bitfield,0,
	   "8", TRUE, 0x000000ff,0x000000ff, FALSE),
    HOWTO (BFD_RELOC_16, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,0,
	   "16", TRUE, 0x0000ffff,0x0000ffff, FALSE),
    HOWTO (BFD_RELOC_32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,0,
	   "32", TRUE, 0xffffffff,0xffffffff, FALSE),
    HOWTO (BFD_RELOC_8_PCREL, 0, 0, 8, TRUE, 0, complain_overflow_signed, 0,
	   "PCREL_8", TRUE, 0x000000ff,0x000000ff, FALSE),
    HOWTO (BFD_RELOC_16_PCREL, 0, 1, 16, TRUE, 0, complain_overflow_signed, 0,
	   "PCREL_16", TRUE, 0x0000ffff,0x0000ffff, FALSE),
    HOWTO (BFD_RELOC_32_PCREL, 0, 2, 32, TRUE, 0, complain_overflow_signed, 0,
	   "PCREL_32", TRUE, 0xffffffff,0xffffffff, FALSE),
  };

#define CTOR_TABLE_RELOC_HOWTO(BFD) (MY(howto_table) + 14)

#define RELOC_STD_BITS_NS32K_TYPE_BIG 0x06
#define RELOC_STD_BITS_NS32K_TYPE_LITTLE 0x60
#define RELOC_STD_BITS_NS32K_TYPE_SH_BIG 1
#define RELOC_STD_BITS_NS32K_TYPE_SH_LITTLE 5

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

  /*  BFD_ASSERT(bfd_header_little_endian (abfd)); */
  *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   = (0 != (rel->r_type[0] & RELOC_STD_BITS_PCREL_LITTLE));
  r_length  =  ((rel->r_type[0] & RELOC_STD_BITS_LENGTH_LITTLE)
		>> RELOC_STD_BITS_LENGTH_SH_LITTLE);
  r_ns32k_type  =  ((rel->r_type[0] & RELOC_STD_BITS_NS32K_TYPE_LITTLE)
		    >> RELOC_STD_BITS_NS32K_TYPE_SH_LITTLE);
  return (MY(howto_table) + r_length + 3 * (*r_pcrel) + 6 * r_ns32k_type);
}

#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_ns32k_type;

  PUT_WORD (abfd, value, reloc->r_address);
  r_length = howto->size ;	/* Size as a power of two.  */
  r_pcrel  = (int) howto->pc_relative; /* Relative to PC?  */
  r_ns32k_type = (howto - MY(howto_table) )/6;

  /*  BFD_ASSERT (bfd_header_little_endian (abfd)); */
  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_length <<  RELOC_STD_BITS_LENGTH_SH_LITTLE)
	  | (r_ns32k_type <<  RELOC_STD_BITS_NS32K_TYPE_SH_LITTLE);
}

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

#define STAT_FOR_EXEC

#define MY_final_link_relocate _bfd_ns32k_final_link_relocate
#define MY_relocate_contents _bfd_ns32k_relocate_contents

#include "aoutx.h"

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

#define ENTRY(i,j)	case i: return &MY(howto_table)[j]

  int ext = obj_reloc_entry_size (abfd) == RELOC_EXT_SIZE;

  BFD_ASSERT(ext == 0);
  if (code == BFD_RELOC_CTOR)
    switch (bfd_get_arch_info (abfd)->bits_per_address)
      {
      case 32:
	code = BFD_RELOC_32;
	break;
      default:
	break;
      }
  switch (code)
    {
      ENTRY(BFD_RELOC_NS32K_IMM_8, 0);
      ENTRY(BFD_RELOC_NS32K_IMM_16, 1);
      ENTRY(BFD_RELOC_NS32K_IMM_32, 2);
      ENTRY(BFD_RELOC_NS32K_IMM_8_PCREL, 3);
      ENTRY(BFD_RELOC_NS32K_IMM_16_PCREL, 4);
      ENTRY(BFD_RELOC_NS32K_IMM_32_PCREL, 5);
      ENTRY(BFD_RELOC_NS32K_DISP_8, 6);
      ENTRY(BFD_RELOC_NS32K_DISP_16, 7);
      ENTRY(BFD_RELOC_NS32K_DISP_32, 8);
      ENTRY(BFD_RELOC_NS32K_DISP_8_PCREL, 9);
      ENTRY(BFD_RELOC_NS32K_DISP_16_PCREL, 10);
      ENTRY(BFD_RELOC_NS32K_DISP_32_PCREL, 11);
      ENTRY(BFD_RELOC_8, 12);
      ENTRY(BFD_RELOC_16, 13);
      ENTRY(BFD_RELOC_32, 14);
      ENTRY(BFD_RELOC_8_PCREL, 15);
      ENTRY(BFD_RELOC_16_PCREL, 16);
      ENTRY(BFD_RELOC_32_PCREL, 17);
    default:
      return (reloc_howto_type *) NULL;
    }
#undef ENTRY
}

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);

  /* Now the fun stuff.  */
  cache_ptr->howto = MY_reloc_howto(abfd, bytes, r_index, r_extern, r_pcrel);

  MOVE_ADDRESS (0);
}

static 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;
  unsigned int r_addend;
  asection *output_section = sym->section->output_section;

  r_addend = g->addend + (*(g->sym_ptr_ptr))->section->output_section->vma;

  /* 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;
#undef KEEPIT
#define KEEPIT udata.i
	  r_index =  (*(g->sym_ptr_ptr))->KEEPIT;
#undef KEEPIT
	}
    }
  else
    {
      /* Just an ordinary section.  */
      r_extern = 0;
      r_index  = output_section->target_index;
    }

  MY_put_reloc (abfd, r_extern, r_index, g->address, g->howto, natptr);
}

bfd_reloc_status_type
_bfd_ns32k_relocate_contents (howto, input_bfd, relocation, location)
     reloc_howto_type *howto;
     bfd *input_bfd;
     bfd_vma relocation;
     bfd_byte *location;
{
  int r_ns32k_type = (howto - MY(howto_table)) / 6;
  bfd_vma (*get_data) PARAMS ((bfd_byte *, int));
  void (*put_data) PARAMS ((bfd_vma, bfd_byte *, int));

  switch (r_ns32k_type)
    {
    case 0:
      get_data = _bfd_ns32k_get_immediate;
      put_data = _bfd_ns32k_put_immediate;
      break;
    case 1:
      get_data = _bfd_ns32k_get_displacement;
      put_data = _bfd_ns32k_put_displacement;
      break;
    case 2:
      return _bfd_relocate_contents (howto, input_bfd, relocation,
				    location);
      /* NOT REACHED */
      break;
    default:
      return bfd_reloc_notsupported;
    }
  return _bfd_do_ns32k_reloc_contents (howto, input_bfd, relocation,
				       location, get_data, put_data);
}
Commit	Line	Data
252b5132	1	/* BFD back-end for ns32k a.out-ish binaries.
93516ec3	2	Copyright 1990, 1991, 1992, 1994, 1995, 1996, 1998, 2000, 2001, 2002, 2003
7898deda	3	Free Software Foundation, Inc.
252b5132 RH	4	Contributed by Ian Dall (idall@eleceng.adelaide.edu.au).
252b5132 RH	5
4eb6b71c	6	This file is part of BFD, the Binary File Descriptor library.
252b5132	7
4eb6b71c NC	8	This program is free software; you can redistribute it and/or modify
	9	it under the terms of the GNU General Public License as published by
	10	the Free Software Foundation; either version 2 of the License, or
	11	(at your option) any later version.
252b5132	12
4eb6b71c NC	13	This program is distributed in the hope that it will be useful,
	14	but WITHOUT ANY WARRANTY; without even the implied warranty of
	15	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	16	GNU General Public License for more details.
252b5132	17
4eb6b71c NC	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. */
252b5132	21
252b5132 RH	22	#include "bfd.h"
	23	#include "aout/aout64.h"
	24	#include "ns32k.h"
	25
e43d48cc AM	26	/* Do not "beautify" the CONCAT* macro args. Traditional C will not
	27	remove whitespace added here, and thus will fail to concatenate
	28	the tokens. */
	29	#define MYNS(OP) CONCAT2 (ns32kaout_,OP)
	30
252b5132 RH	31	reloc_howto_type *
	32	MYNS(bfd_reloc_type_lookup)
	33	PARAMS((bfd *abfd AND
	34	bfd_reloc_code_real_type code));
	35
b34976b6	36	bfd_boolean
252b5132 RH	37	MYNS(write_object_contents)
	38	PARAMS((bfd *abfd));
	39
1725a96e NC	40	/* Avoid multiple definitions from aoutx if supporting
1725a96e NC	41	standard a.out format(s) as well as this one. */
e43d48cc	42	#define NAME(x,y) CONCAT3 (ns32kaout,_32_,y)
252b5132 RH	43
	44	void bfd_ns32k_arch PARAMS ((void));
	45
	46	#include "libaout.h"
	47
	48	#define MY(OP) MYNS(OP)
	49
4eb6b71c	50	#define MY_swap_std_reloc_in MY(swap_std_reloc_in)
252b5132 RH	51	#define MY_swap_std_reloc_out MY(swap_std_reloc_out)
	52
	53	static void
4eb6b71c NC	54	MY_swap_std_reloc_in PARAMS ((bfd , struct reloc_std_external ,
	55	arelent , asymbol *,
	56	bfd_size_type));
252b5132	57	static void
4eb6b71c NC	58	MY_swap_std_reloc_out PARAMS ((bfd , arelent ,
4eb6b71c NC	59	struct reloc_std_external *));
1725a96e NC	60	reloc_howto_type *
	61	MY(reloc_howto) PARAMS ((bfd , struct reloc_std_external ,
	62	int , int , int *));
	63	void
dc810e39	64	MY(put_reloc) PARAMS ((bfd , int, int, bfd_vma, reloc_howto_type ,
1725a96e	65	struct reloc_std_external *));
252b5132 RH	66
252b5132 RH	67	/* The ns32k series is ah, unusual, when it comes to relocation.
1049f94e	68	There are three storage methods for relocatable objects. There
1725a96e NC	69	are displacements, immediate operands and ordinary twos complement
	70	data. Of these, only the last fits into the standard relocation
	71	scheme. Immediate operands are stored huffman encoded and
	72	immediate operands are stored big endian (where as the natural byte
	73	order is little endian for this achitecture).
	74
	75	Note that the ns32k displacement storage method is orthogonal to
	76	whether the relocation is pc relative or not. The "displacement"
	77	storage scheme is used for essentially all address constants. The
	78	displacement can be relative to zero (absolute displacement),
	79	relative to the pc (pc relative), the stack pointer, the frame
	80	pointer, the static base register and general purpose register etc.
	81
	82	For example:
dc810e39	83
1725a96e NC	84	sym1: .long . # pc relative 2's complement
1725a96e NC	85	sym1: .long foo # 2's complement not pc relative
dc810e39	86
1725a96e NC	87	self: movd @self, r0 # pc relative displacement
	88	movd foo, r0 # non pc relative displacement
	89
	90	self: movd self, r0 # pc relative immediate
	91	movd foo, r0 # non pc relative immediate
dc810e39	92
1725a96e NC	93	In addition, for historical reasons the encoding of the relocation types
1725a96e NC	94	in the a.out format relocation entries is such that even the relocation
4eb6b71c	95	methods which are standard are not encoded the standard way. */
252b5132	96
c4dfa77f	97	reloc_howto_type MY(howto_table)[] =
1725a96e	98	{
4eb6b71c	99	/* type rs size bsz pcrel bitpos ovrf sf name part_inpl readmask setmask pcdone */
1725a96e	100	/* ns32k immediate operands. */
b34976b6	101	HOWTO (BFD_RELOC_NS32K_IMM_8, 0, 0, 8, FALSE, 0, complain_overflow_signed,
1725a96e	102	_bfd_ns32k_reloc_imm, "NS32K_IMM_8",
b34976b6 AM	103	TRUE, 0x000000ff,0x000000ff, FALSE),
b34976b6 AM	104	HOWTO (BFD_RELOC_NS32K_IMM_16, 0, 1, 16, FALSE, 0, complain_overflow_signed,
1725a96e	105	_bfd_ns32k_reloc_imm, "NS32K_IMM_16",
b34976b6 AM	106	TRUE, 0x0000ffff,0x0000ffff, FALSE),
b34976b6 AM	107	HOWTO (BFD_RELOC_NS32K_IMM_32, 0, 2, 32, FALSE, 0, complain_overflow_signed,
1725a96e	108	_bfd_ns32k_reloc_imm, "NS32K_IMM_32",
b34976b6 AM	109	TRUE, 0xffffffff,0xffffffff, FALSE),
b34976b6 AM	110	HOWTO (BFD_RELOC_NS32K_IMM_8_PCREL, 0, 0, 8, TRUE, 0, complain_overflow_signed,
1725a96e	111	_bfd_ns32k_reloc_imm, "PCREL_NS32K_IMM_8",
b34976b6 AM	112	TRUE, 0x000000ff, 0x000000ff, FALSE),
b34976b6 AM	113	HOWTO (BFD_RELOC_NS32K_IMM_16_PCREL, 0, 1, 16, TRUE, 0, complain_overflow_signed,
1725a96e	114	_bfd_ns32k_reloc_imm, "PCREL_NS32K_IMM_16",
b34976b6 AM	115	TRUE, 0x0000ffff,0x0000ffff, FALSE),
b34976b6 AM	116	HOWTO (BFD_RELOC_NS32K_IMM_32_PCREL, 0, 2, 32, TRUE, 0, complain_overflow_signed,
1725a96e	117	_bfd_ns32k_reloc_imm, "PCREL_NS32K_IMM_32",
b34976b6	118	TRUE, 0xffffffff,0xffffffff, FALSE),
1725a96e NC	119
1725a96e NC	120	/* ns32k displacements. */
b34976b6	121	HOWTO (BFD_RELOC_NS32K_DISP_8, 0, 0, 7, FALSE, 0, complain_overflow_signed,
1725a96e	122	_bfd_ns32k_reloc_disp, "NS32K_DISP_8",
b34976b6 AM	123	TRUE, 0x000000ff,0x000000ff, FALSE),
b34976b6 AM	124	HOWTO (BFD_RELOC_NS32K_DISP_16, 0, 1, 14, FALSE, 0, complain_overflow_signed,
1725a96e	125	_bfd_ns32k_reloc_disp, "NS32K_DISP_16",
b34976b6 AM	126	TRUE, 0x0000ffff, 0x0000ffff, FALSE),
b34976b6 AM	127	HOWTO (BFD_RELOC_NS32K_DISP_32, 0, 2, 30, FALSE, 0, complain_overflow_signed,
1725a96e	128	_bfd_ns32k_reloc_disp, "NS32K_DISP_32",
b34976b6 AM	129	TRUE, 0xffffffff, 0xffffffff, FALSE),
b34976b6 AM	130	HOWTO (BFD_RELOC_NS32K_DISP_8_PCREL, 0, 0, 7, TRUE, 0, complain_overflow_signed,
1725a96e	131	_bfd_ns32k_reloc_disp, "PCREL_NS32K_DISP_8",
b34976b6 AM	132	TRUE, 0x000000ff,0x000000ff, FALSE),
b34976b6 AM	133	HOWTO (BFD_RELOC_NS32K_DISP_16_PCREL, 0, 1, 14, TRUE, 0, complain_overflow_signed,
1725a96e	134	_bfd_ns32k_reloc_disp, "PCREL_NS32K_DISP_16",
b34976b6 AM	135	TRUE, 0x0000ffff,0x0000ffff, FALSE),
b34976b6 AM	136	HOWTO (BFD_RELOC_NS32K_DISP_32_PCREL, 0, 2, 30, TRUE, 0, complain_overflow_signed,
1725a96e	137	_bfd_ns32k_reloc_disp, "PCREL_NS32K_DISP_32",
b34976b6	138	TRUE, 0xffffffff,0xffffffff, FALSE),
1725a96e NC	139
1725a96e NC	140	/* Normal 2's complement. */
b34976b6 AM	141	HOWTO (BFD_RELOC_8, 0, 0, 8, FALSE, 0, complain_overflow_bitfield,0,
	142	"8", TRUE, 0x000000ff,0x000000ff, FALSE),
	143	HOWTO (BFD_RELOC_16, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,0,
	144	"16", TRUE, 0x0000ffff,0x0000ffff, FALSE),
	145	HOWTO (BFD_RELOC_32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,0,
	146	"32", TRUE, 0xffffffff,0xffffffff, FALSE),
	147	HOWTO (BFD_RELOC_8_PCREL, 0, 0, 8, TRUE, 0, complain_overflow_signed, 0,
	148	"PCREL_8", TRUE, 0x000000ff,0x000000ff, FALSE),
	149	HOWTO (BFD_RELOC_16_PCREL, 0, 1, 16, TRUE, 0, complain_overflow_signed, 0,
	150	"PCREL_16", TRUE, 0x0000ffff,0x0000ffff, FALSE),
	151	HOWTO (BFD_RELOC_32_PCREL, 0, 2, 32, TRUE, 0, complain_overflow_signed, 0,
	152	"PCREL_32", TRUE, 0xffffffff,0xffffffff, FALSE),
1725a96e	153	};
252b5132	154
252b5132 RH	155	#define CTOR_TABLE_RELOC_HOWTO(BFD) (MY(howto_table) + 14)
	156
	157	#define RELOC_STD_BITS_NS32K_TYPE_BIG 0x06
	158	#define RELOC_STD_BITS_NS32K_TYPE_LITTLE 0x60
	159	#define RELOC_STD_BITS_NS32K_TYPE_SH_BIG 1
	160	#define RELOC_STD_BITS_NS32K_TYPE_SH_LITTLE 5
	161
	162	reloc_howto_type *
beb0d161	163	MY(reloc_howto) (abfd, rel, r_index, r_extern, r_pcrel)
5f771d47	164	bfd *abfd ATTRIBUTE_UNUSED;
252b5132 RH	165	struct reloc_std_external *rel;
	166	int *r_index;
	167	int *r_extern;
	168	int *r_pcrel;
	169	{
	170	unsigned int r_length;
	171	int r_ns32k_type;
1725a96e NC	172
1725a96e NC	173	/* BFD_ASSERT(bfd_header_little_endian (abfd)); */
252b5132 RH	174	*r_index = ((rel->r_index[2] << 16)
	175	\| (rel->r_index[1] << 8)
	176	\| rel->r_index[0] );
	177	*r_extern = (0 != (rel->r_type[0] & RELOC_STD_BITS_EXTERN_LITTLE));
	178	*r_pcrel = (0 != (rel->r_type[0] & RELOC_STD_BITS_PCREL_LITTLE));
	179	r_length = ((rel->r_type[0] & RELOC_STD_BITS_LENGTH_LITTLE)
	180	>> RELOC_STD_BITS_LENGTH_SH_LITTLE);
	181	r_ns32k_type = ((rel->r_type[0] & RELOC_STD_BITS_NS32K_TYPE_LITTLE)
	182	>> RELOC_STD_BITS_NS32K_TYPE_SH_LITTLE);
	183	return (MY(howto_table) + r_length + 3 * (r_pcrel) + 6 r_ns32k_type);
	184	}
	185
dc810e39 AM	186	#define MY_reloc_howto(BFD, REL, IN, EX, PC) \
dc810e39 AM	187	MY(reloc_howto) (BFD, REL, &IN, &EX, &PC)
252b5132 RH	188
252b5132 RH	189	void
beb0d161	190	MY(put_reloc) (abfd, r_extern, r_index, value, howto, reloc)
252b5132 RH	191	bfd *abfd;
	192	int r_extern;
	193	int r_index;
dc810e39	194	bfd_vma value;
252b5132 RH	195	reloc_howto_type *howto;
	196	struct reloc_std_external *reloc;
	197	{
	198	unsigned int r_length;
	199	int r_pcrel;
	200	int r_ns32k_type;
1725a96e	201
252b5132	202	PUT_WORD (abfd, value, reloc->r_address);
1725a96e NC	203	r_length = howto->size ; /* Size as a power of two. */
1725a96e NC	204	r_pcrel = (int) howto->pc_relative; /* Relative to PC? */
252b5132	205	r_ns32k_type = (howto - MY(howto_table) )/6;
1725a96e NC	206
1725a96e NC	207	/* BFD_ASSERT (bfd_header_little_endian (abfd)); */
252b5132 RH	208	reloc->r_index[2] = r_index >> 16;
	209	reloc->r_index[1] = r_index >> 8;
	210	reloc->r_index[0] = r_index;
	211	reloc->r_type[0] =
	212	(r_extern? RELOC_STD_BITS_EXTERN_LITTLE: 0)
	213	\| (r_pcrel? RELOC_STD_BITS_PCREL_LITTLE: 0)
	214	\| (r_length << RELOC_STD_BITS_LENGTH_SH_LITTLE)
	215	\| (r_ns32k_type << RELOC_STD_BITS_NS32K_TYPE_SH_LITTLE);
	216	}
	217
	218	#define MY_put_reloc(BFD, EXT, IDX, VAL, HOWTO, RELOC) \
beb0d161	219	MY(put_reloc) (BFD, EXT, IDX, VAL, HOWTO, RELOC)
252b5132 RH	220
	221	#define STAT_FOR_EXEC
	222
	223	#define MY_final_link_relocate _bfd_ns32k_final_link_relocate
	224	#define MY_relocate_contents _bfd_ns32k_relocate_contents
	225
dc810e39	226	#include "aoutx.h"
252b5132 RH	227
252b5132 RH	228	reloc_howto_type *
beb0d161	229	MY(bfd_reloc_type_lookup) (abfd,code)
252b5132 RH	230	bfd *abfd;
	231	bfd_reloc_code_real_type code;
	232	{
	233
	234	#define ENTRY(i,j) case i: return &MY(howto_table)[j]
	235
	236	int ext = obj_reloc_entry_size (abfd) == RELOC_EXT_SIZE;
	237
	238	BFD_ASSERT(ext == 0);
	239	if (code == BFD_RELOC_CTOR)
	240	switch (bfd_get_arch_info (abfd)->bits_per_address)
	241	{
	242	case 32:
	243	code = BFD_RELOC_32;
	244	break;
1725a96e NC	245	default:
1725a96e NC	246	break;
252b5132 RH	247	}
	248	switch (code)
	249	{
	250	ENTRY(BFD_RELOC_NS32K_IMM_8, 0);
	251	ENTRY(BFD_RELOC_NS32K_IMM_16, 1);
	252	ENTRY(BFD_RELOC_NS32K_IMM_32, 2);
	253	ENTRY(BFD_RELOC_NS32K_IMM_8_PCREL, 3);
	254	ENTRY(BFD_RELOC_NS32K_IMM_16_PCREL, 4);
	255	ENTRY(BFD_RELOC_NS32K_IMM_32_PCREL, 5);
	256	ENTRY(BFD_RELOC_NS32K_DISP_8, 6);
	257	ENTRY(BFD_RELOC_NS32K_DISP_16, 7);
	258	ENTRY(BFD_RELOC_NS32K_DISP_32, 8);
	259	ENTRY(BFD_RELOC_NS32K_DISP_8_PCREL, 9);
	260	ENTRY(BFD_RELOC_NS32K_DISP_16_PCREL, 10);
	261	ENTRY(BFD_RELOC_NS32K_DISP_32_PCREL, 11);
	262	ENTRY(BFD_RELOC_8, 12);
	263	ENTRY(BFD_RELOC_16, 13);
	264	ENTRY(BFD_RELOC_32, 14);
	265	ENTRY(BFD_RELOC_8_PCREL, 15);
	266	ENTRY(BFD_RELOC_16_PCREL, 16);
	267	ENTRY(BFD_RELOC_32_PCREL, 17);
1725a96e NC	268	default:
1725a96e NC	269	return (reloc_howto_type *) NULL;
252b5132 RH	270	}
	271	#undef ENTRY
	272	}
	273
252b5132 RH	274	static void
	275	MY_swap_std_reloc_in (abfd, bytes, cache_ptr, symbols, symcount)
	276	bfd *abfd;
	277	struct reloc_std_external *bytes;
	278	arelent *cache_ptr;
	279	asymbol **symbols;
5f771d47	280	bfd_size_type symcount ATTRIBUTE_UNUSED;
252b5132 RH	281	{
	282	int r_index;
	283	int r_extern;
	284	int r_pcrel;
	285	struct aoutdata *su = &(abfd->tdata.aout_data->a);
	286
dc810e39	287	cache_ptr->address = H_GET_32 (abfd, bytes->r_address);
252b5132	288
1725a96e	289	/* Now the fun stuff. */
252b5132 RH	290	cache_ptr->howto = MY_reloc_howto(abfd, bytes, r_index, r_extern, r_pcrel);
252b5132 RH	291
1725a96e	292	MOVE_ADDRESS (0);
252b5132 RH	293	}
	294
	295	static void
	296	MY_swap_std_reloc_out (abfd, g, natptr)
	297	bfd *abfd;
	298	arelent *g;
	299	struct reloc_std_external *natptr;
	300	{
	301	int r_index;
	302	asymbol sym = (g->sym_ptr_ptr);
	303	int r_extern;
	304	unsigned int r_addend;
	305	asection *output_section = sym->section->output_section;
	306
	307	r_addend = g->addend + (*(g->sym_ptr_ptr))->section->output_section->vma;
c4dfa77f	308
1725a96e	309	/* Name was clobbered by aout_write_syms to be symbol index. */
252b5132	310
c4dfa77f	311	/* If this relocation is relative to a symbol then set the
252b5132 RH	312	r_index to the symbols index, and the r_extern bit.
	313
	314	Absolute symbols can come in in two ways, either as an offset
	315	from the abs section, or as a symbol which has an abs value.
	316	Check for that here. */
252b5132 RH	317	if (bfd_is_com_section (output_section)
252b5132 RH	318	\|\| output_section == &bfd_abs_section
c4dfa77f	319	\|\| output_section == &bfd_und_section)
252b5132 RH	320	{
	321	if (bfd_abs_section.symbol == sym)
	322	{
	323	/* Whoops, looked like an abs symbol, but is really an offset
1725a96e	324	from the abs section. */
252b5132 RH	325	r_index = 0;
	326	r_extern = 0;
	327	}
c4dfa77f	328	else
252b5132	329	{
1725a96e	330	/* Fill in symbol. */
252b5132 RH	331	r_extern = 1;
	332	#undef KEEPIT
	333	#define KEEPIT udata.i
	334	r_index = (*(g->sym_ptr_ptr))->KEEPIT;
c4dfa77f	335	#undef KEEPIT
252b5132 RH	336	}
252b5132 RH	337	}
c4dfa77f	338	else
252b5132	339	{
1725a96e	340	/* Just an ordinary section. */
252b5132	341	r_extern = 0;
c4dfa77f	342	r_index = output_section->target_index;
252b5132 RH	343	}
	344
	345	MY_put_reloc (abfd, r_extern, r_index, g->address, g->howto, natptr);
	346	}
	347
	348	bfd_reloc_status_type
	349	_bfd_ns32k_relocate_contents (howto, input_bfd, relocation, location)
	350	reloc_howto_type *howto;
	351	bfd *input_bfd;
	352	bfd_vma relocation;
	353	bfd_byte *location;
	354	{
	355	int r_ns32k_type = (howto - MY(howto_table)) / 6;
dc810e39	356	bfd_vma (get_data) PARAMS ((bfd_byte , int));
4eb6b71c	357	void (put_data) PARAMS ((bfd_vma, bfd_byte , int));
252b5132 RH	358
	359	switch (r_ns32k_type)
	360	{
	361	case 0:
	362	get_data = _bfd_ns32k_get_immediate;
	363	put_data = _bfd_ns32k_put_immediate;
	364	break;
	365	case 1:
	366	get_data = _bfd_ns32k_get_displacement;
	367	put_data = _bfd_ns32k_put_displacement;
	368	break;
	369	case 2:
	370	return _bfd_relocate_contents (howto, input_bfd, relocation,
	371	location);
	372	/* NOT REACHED */
	373	break;
	374	default:
	375	return bfd_reloc_notsupported;
	376	}
	377	return _bfd_do_ns32k_reloc_contents (howto, input_bfd, relocation,
	378	location, get_data, put_data);
	379	}