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

/* BFD back-end for ns32k a.out-ish binaries.
   Copyright 1990, 1991, 1992, 1994, 1995, 1996, 1998, 2000
   Free Software Foundation, Inc.
   Contributed by Ian Dall ([email protected]).

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

#include "bfd.h"
#include "aout/aout64.h"
#include "ns32k.h"

#define MYNS(OP) CAT(ns32kaout_,OP)
reloc_howto_type *
MYNS(bfd_reloc_type_lookup)
  PARAMS((bfd *abfd AND
	  bfd_reloc_code_real_type code));

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) CAT3(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 *abfd, struct reloc_std_external *bytes,
			      arelent *cache_ptr, asymbol **symbols,
			      bfd_size_type symcount));

static void
MY_swap_std_reloc_out PARAMS ((bfd *abfd, arelent *g,
			       struct reloc_std_external *natptr));

/* The ns32k series is ah, unusual, when it comes to relocation.
 * There are three storage methods for relocateable 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)[] =
{
  /* ns32k immediate operands */
  HOWTO (BFD_RELOC_NS32K_IMM_8, 0, 0, 8, false, 0, true,
	 _bfd_ns32k_reloc_imm, "NS32K_IMM_8",
	 true, 0x000000ff,0x000000ff, false),
  HOWTO (BFD_RELOC_NS32K_IMM_16, 0, 1, 16, false, 0, true,
	 _bfd_ns32k_reloc_imm,  "NS32K_IMM_16",
	 true, 0x0000ffff,0x0000ffff, false),
  HOWTO (BFD_RELOC_NS32K_IMM_32, 0, 2, 32, false, 0, true,
	 _bfd_ns32k_reloc_imm, "NS32K_IMM_32",
	 true, 0xffffffff,0xffffffff, false),
  HOWTO (BFD_RELOC_NS32K_IMM_8_PCREL, 0, 0, 8, true, 0, false,
	 _bfd_ns32k_reloc_imm, "PCREL_NS32K_IMM_8",
	 true, 0x000000ff, 0x000000ff, false),
  HOWTO (BFD_RELOC_NS32K_IMM_16_PCREL, 0, 1, 16, true, 0, false,
	 _bfd_ns32k_reloc_imm, "PCREL_NS32K_IMM_16",
	 true, 0x0000ffff,0x0000ffff, false),
  HOWTO (BFD_RELOC_NS32K_IMM_32_PCREL, 0, 2, 32, true, 0, false,
	 _bfd_ns32k_reloc_imm, "PCREL_NS32K_IMM_32",
	 true, 0xffffffff,0xffffffff, false),

  /* ns32k displacements */
  HOWTO (BFD_RELOC_NS32K_DISP_8, 0, 0, 8, false, 0, true,
	 _bfd_ns32k_reloc_disp, "NS32K_DISP_8",
	 true, 0x000000ff,0x000000ff, false),
  HOWTO (BFD_RELOC_NS32K_DISP_16, 0, 1, 16, false, 0, true,
	 _bfd_ns32k_reloc_disp, "NS32K_DISP_16",
	 true, 0x0000ffff, 0x0000ffff, false),
  HOWTO (BFD_RELOC_NS32K_DISP_32, 0, 2, 32, false, 0, true,
	 _bfd_ns32k_reloc_disp, "NS32K_DISP_32",
	 true, 0xffffffff, 0xffffffff, false),
  HOWTO (BFD_RELOC_NS32K_DISP_8_PCREL, 0, 0, 8, true, 0, false,
	 _bfd_ns32k_reloc_disp, "PCREL_NS32K_DISP_8",
	 true, 0x000000ff,0x000000ff, false),
  HOWTO (BFD_RELOC_NS32K_DISP_16_PCREL, 0, 1, 16, true, 0, false,
	 _bfd_ns32k_reloc_disp, "PCREL_NS32K_DISP_16",
	 true, 0x0000ffff,0x0000ffff, false),
  HOWTO (BFD_RELOC_NS32K_DISP_32_PCREL, 0, 2, 32, true, 0, false,
	 _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;
     long 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;
      }
  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 = bfd_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;
  long (*get_data) PARAMS ((bfd_byte *, long, long));
  int (*put_data) PARAMS ((long, bfd_byte *, long, long));

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