[deliverable/binutils-gdb.git] / bfd / elf32-pj.c

/* picoJava specific support for 32-bit ELF
   Copyright (C) 1999-2018 Free Software Foundation, Inc.
   Contributed by Steve Chamberlan of Transmeta (sac@pobox.com).

   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 3 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., 51 Franklin Street - Fifth Floor, Boston,
   MA 02110-1301, USA.  */

#include "sysdep.h"
#include "bfd.h"
#include "bfdlink.h"
#include "libbfd.h"
#include "elf-bfd.h"
#include "elf/pj.h"

/* This function is used for normal relocs.  This is like the COFF
   function, and is almost certainly incorrect for other ELF targets.  */

static bfd_reloc_status_type
pj_elf_reloc (bfd *abfd,
	      arelent *reloc_entry,
	      asymbol *symbol_in,
	      void * data,
	      asection *input_section,
	      bfd *output_bfd,
	      char **error_message ATTRIBUTE_UNUSED)
{
  unsigned long insn;
  bfd_vma sym_value;
  enum elf_pj_reloc_type r_type;
  bfd_vma addr = reloc_entry->address;
  bfd_byte *hit_data = addr + (bfd_byte *) data;

  r_type = (enum elf_pj_reloc_type) reloc_entry->howto->type;

  if (output_bfd != NULL)
    {
      /* Partial linking--do nothing.  */
      reloc_entry->address += input_section->output_offset;
      return bfd_reloc_ok;
    }

  if (symbol_in != NULL
      && bfd_is_und_section (symbol_in->section))
    return bfd_reloc_undefined;

  if (bfd_is_com_section (symbol_in->section))
    sym_value = 0;
  else
    sym_value = (symbol_in->value +
		 symbol_in->section->output_section->vma +
		 symbol_in->section->output_offset);

  switch (r_type)
    {
    case R_PJ_DATA_DIR32:
      insn = bfd_get_32 (abfd, hit_data);
      insn += sym_value + reloc_entry->addend;
      bfd_put_32 (abfd, (bfd_vma) insn, hit_data);
      break;

      /* Relocations in code are always bigendian, no matter what the
	 data endianness is.  */

    case R_PJ_CODE_DIR32:
      insn = bfd_getb32 (hit_data);
      insn += sym_value + reloc_entry->addend;
      bfd_putb32 ((bfd_vma) insn, hit_data);
      break;

    case R_PJ_CODE_REL16:
      insn = bfd_getb16 (hit_data);
      insn += sym_value + reloc_entry->addend
	-  (input_section->output_section->vma
	    + input_section->output_offset);
      bfd_putb16 ((bfd_vma) insn, hit_data);
      break;
    case R_PJ_CODE_LO16:
      insn = bfd_getb16 (hit_data);
      insn += sym_value + reloc_entry->addend;
      bfd_putb16 ((bfd_vma) insn, hit_data);
      break;

    case R_PJ_CODE_HI16:
      insn = bfd_getb16 (hit_data);
      insn += (sym_value + reloc_entry->addend) >> 16;
      bfd_putb16 ((bfd_vma) insn, hit_data);
      break;

    default:
      abort ();
      break;
    }

  return bfd_reloc_ok;
}

static reloc_howto_type pj_elf_howto_table[] =
{
  /* No relocation.  */
  HOWTO (R_PJ_NONE,		/* type */
	 0,			/* rightshift */
	 3,			/* size (0 = byte, 1 = short, 2 = long) */
	 0,			/* bitsize */
	 FALSE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_dont, /* complain_on_overflow */
	 pj_elf_reloc,		/* special_function */
	 "R_PJ_NONE",		/* name */
	 FALSE,			/* partial_inplace */
	 0,			/* src_mask */
	 0,			/* dst_mask */
	 FALSE),		/* pcrel_offset */

  /* 32 bit absolute relocation.  Setting partial_inplace to TRUE and
     src_mask to a non-zero value is similar to the COFF toolchain.  */
  HOWTO (R_PJ_DATA_DIR32,	/* type */
	 0,			/* rightshift */
	 2,			/* size (0 = byte, 1 = short, 2 = long) */
	 32,			/* bitsize */
	 FALSE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_bitfield, /* complain_on_overflow */
	 pj_elf_reloc,		/* special_function */
	 "R_PJ_DIR32",		/* name */
	 TRUE,			/* partial_inplace */
	 0xffffffff,		/* src_mask */
	 0xffffffff,		/* dst_mask */
	 FALSE),		/* pcrel_offset */

  /* 32 bit PC relative relocation.  */
  HOWTO (R_PJ_CODE_REL32,	/* type */
	 0,			/* rightshift */
	 2,			/* size (0 = byte, 1 = short, 2 = long) */
	 32,			/* bitsize */
	 TRUE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_signed, /* complain_on_overflow */
	 pj_elf_reloc,		/* special_function */
	 "R_PJ_REL32",		/* name */
	 FALSE,			/* partial_inplace */
	 0,			/* src_mask */
	 0xffffffff,		/* dst_mask */
	 TRUE),			/* pcrel_offset */

/* 16 bit PC relative relocation.  */
  HOWTO (R_PJ_CODE_REL16,	/* type */
	 0,			/* rightshift */
	 1,			/* size (0 = byte, 1 = short, 2 = long) */
	 16,			/* bitsize */
	 TRUE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_signed, /* complain_on_overf6w */
	 pj_elf_reloc,		/* special_function */
	 "R_PJ_REL16",		/* name */
	 FALSE,			/* partial_inplace */
	 0xffff,		/* src_mask */
	 0xffff,		/* dst_mask */
	 TRUE),			/* pcrel_offset */
  EMPTY_HOWTO (4),
  EMPTY_HOWTO (5),
  HOWTO (R_PJ_CODE_DIR32,	/* type */
	 0,			/* rightshift */
	 2,			/* size (0 = byte, 1 = short, 2 = long) */
	 32,			/* bitsize */
	 FALSE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_bitfield, /* complain_on_overflow */
	 pj_elf_reloc,		/* special_function */
	 "R_PJ_CODE_DIR32",	/* name */
	 TRUE,			/* partial_inplace */
	 0xffffffff,		/* src_mask */
	 0xffffffff,		/* dst_mask */
	 FALSE),		/* pcrel_offset */

  EMPTY_HOWTO (7),
  EMPTY_HOWTO (8),
  EMPTY_HOWTO (9),
  EMPTY_HOWTO (10),
  EMPTY_HOWTO (11),
  EMPTY_HOWTO (12),

  HOWTO (R_PJ_CODE_LO16,	/* type */
	 0,			/* rightshift */
	 1,			/* size (0 = byte, 1 = short, 2 = long) */
	 16,			/* bitsize */
	 FALSE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_unsigned, /* complain_on_overflow */
	 pj_elf_reloc,		/* special_function */
	 "R_PJ_LO16",		/* name */
	 FALSE,			/* partial_inplace */
	 0xffff,		/* src_mask */
	 0xffff,		/* dst_mask */
	 TRUE),			/* pcrel_offset */

    HOWTO (R_PJ_CODE_HI16,	/* type */
	 16,			/* rightshift */
	 1,			/* size (0 = byte, 1 = short, 2 = long) */
	 16,			/* bitsize */
	 FALSE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_unsigned, /* complain_on_overflow */
	 pj_elf_reloc,		/* special_function */
	 "R_PJ_HI16",		/* name */
	 FALSE,			/* partial_inplace */
	 0xffff,		/* src_mask */
	 0xffff,		/* dst_mask */
	 TRUE),			/* pcrel_offset */

  /* GNU extension to record C++ vtable hierarchy.  */
  HOWTO (R_PJ_GNU_VTINHERIT,	/* type */
	 0,			/* rightshift */
	 2,			/* size (0 = byte, 1 = short, 2 = long) */
	 0,			/* bitsize */
	 FALSE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_dont, /* complain_on_overflow */
	 NULL,			/* special_function */
	 "R_PJ_GNU_VTINHERIT",	/* name */
	 FALSE,			/* partial_inplace */
	 0,			/* src_mask */
	 0,			/* dst_mask */
	 FALSE),		/* pcrel_offset */

  /* GNU extension to record C++ vtable member usage.  */
  HOWTO (R_PJ_GNU_VTENTRY,     /* type */
	 0,			/* rightshift */
	 2,			/* size (0 = byte, 1 = short, 2 = long) */
	 0,			/* bitsize */
	 FALSE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_dont, /* complain_on_overflow */
	 _bfd_elf_rel_vtable_reloc_fn,	/* special_function */
	 "R_PJ_GNU_VTENTRY",   /* name */
	 FALSE,			/* partial_inplace */
	 0,			/* src_mask */
	 0,			/* dst_mask */
	 FALSE),		/* pcrel_offset */
};

/* This structure is used to map BFD reloc codes to PJ ELF relocs.  */

struct elf_reloc_map
{
  bfd_reloc_code_real_type bfd_reloc_val;
  unsigned char elf_reloc_val;
};

/* An array mapping BFD reloc codes to PJ ELF relocs.  */

static const struct elf_reloc_map pj_reloc_map[] =
{
    { BFD_RELOC_NONE,		R_PJ_NONE	   },
    { BFD_RELOC_32,		R_PJ_DATA_DIR32	   },
    { BFD_RELOC_PJ_CODE_DIR16,	R_PJ_CODE_DIR16	   },
    { BFD_RELOC_PJ_CODE_DIR32,	R_PJ_CODE_DIR32	   },
    { BFD_RELOC_PJ_CODE_LO16,	R_PJ_CODE_LO16	   },
    { BFD_RELOC_PJ_CODE_HI16,	R_PJ_CODE_HI16	   },
    { BFD_RELOC_PJ_CODE_REL32,	R_PJ_CODE_REL32	   },
    { BFD_RELOC_PJ_CODE_REL16,	R_PJ_CODE_REL16	   },
    { BFD_RELOC_VTABLE_INHERIT, R_PJ_GNU_VTINHERIT },
    { BFD_RELOC_VTABLE_ENTRY,   R_PJ_GNU_VTENTRY   },
};

/* Given a BFD reloc code, return the howto structure for the
   corresponding PJ ELf reloc.  */

static reloc_howto_type *
pj_elf_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
			  bfd_reloc_code_real_type code)
{
  unsigned int i;

  for (i = 0; i < sizeof (pj_reloc_map) / sizeof (struct elf_reloc_map); i++)
    if (pj_reloc_map[i].bfd_reloc_val == code)
      return & pj_elf_howto_table[(int) pj_reloc_map[i].elf_reloc_val];

  return NULL;
}

static reloc_howto_type *
pj_elf_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
			  const char *r_name)
{
  unsigned int i;

  for (i = 0;
       i < sizeof (pj_elf_howto_table) / sizeof (pj_elf_howto_table[0]);
       i++)
    if (pj_elf_howto_table[i].name != NULL
	&& strcasecmp (pj_elf_howto_table[i].name, r_name) == 0)
      return &pj_elf_howto_table[i];

  return NULL;
}

/* Given an ELF reloc, fill in the howto field of a relent.  */

static void
pj_elf_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
		      arelent *cache_ptr,
		      Elf_Internal_Rela *dst)
{
  unsigned int r;

  r = ELF32_R_TYPE (dst->r_info);

  if (r >= R_PJ_max)
    {
      /* xgettext:c-format */
      _bfd_error_handler (_("%pB: unrecognised PicoJava reloc number: %d"),
			  abfd, r);
      bfd_set_error (bfd_error_bad_value);
      r = R_PJ_NONE;
    }

  cache_ptr->howto = &pj_elf_howto_table[r];
}

/* Take this moment to fill in the special picoJava bits in the
   e_flags field.  */

static void
pj_elf_final_write_processing (bfd *abfd,
			       bfd_boolean linker ATTRIBUTE_UNUSED)
{
  elf_elfheader (abfd)->e_flags |= EF_PICOJAVA_ARCH;
  elf_elfheader (abfd)->e_flags |= EF_PICOJAVA_GNUCALLS;
}

#define TARGET_BIG_SYM		pj_elf32_vec
#define TARGET_BIG_NAME		"elf32-pj"
#define TARGET_LITTLE_SYM	pj_elf32_le_vec
#define TARGET_LITTLE_NAME	"elf32-pjl"
#define ELF_ARCH		bfd_arch_pj
#define ELF_MACHINE_CODE	EM_PJ
#define ELF_MACHINE_ALT1	EM_PJ_OLD
#define ELF_MAXPAGESIZE		0x1000
#define bfd_elf32_bfd_get_relocated_section_contents \
  bfd_generic_get_relocated_section_contents
#define bfd_elf32_bfd_reloc_type_lookup		pj_elf_reloc_type_lookup
#define bfd_elf32_bfd_reloc_name_lookup   pj_elf_reloc_name_lookup
#define elf_backend_final_write_processing      pj_elf_final_write_processing
#define elf_info_to_howto			pj_elf_info_to_howto
#include "elf32-target.h"
Commit	Line	Data
0bcb993b	1	/* picoJava specific support for 32-bit ELF
219d1afa	2	Copyright (C) 1999-2018 Free Software Foundation, Inc.
0bcb993b ILT	3	Contributed by Steve Chamberlan of Transmeta (sac@pobox.com).
0bcb993b ILT	4
47b0e7ad	5	This file is part of BFD, the Binary File Descriptor library.
0bcb993b	6
47b0e7ad NC	7	This program is free software; you can redistribute it and/or modify
47b0e7ad NC	8	it under the terms of the GNU General Public License as published by
cd123cb7	9	the Free Software Foundation; either version 3 of the License, or
47b0e7ad	10	(at your option) any later version.
0bcb993b	11
47b0e7ad NC	12	This program is distributed in the hope that it will be useful,
	13	but WITHOUT ANY WARRANTY; without even the implied warranty of
	14	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	GNU General Public License for more details.
0bcb993b	16
47b0e7ad NC	17	You should have received a copy of the GNU General Public License
47b0e7ad NC	18	along with this program; if not, write to the Free Software
cd123cb7 NC	19	Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
cd123cb7 NC	20	MA 02110-1301, USA. */
0bcb993b	21
0bcb993b	22	#include "sysdep.h"
3db64b00	23	#include "bfd.h"
0bcb993b ILT	24	#include "bfdlink.h"
	25	#include "libbfd.h"
	26	#include "elf-bfd.h"
	27	#include "elf/pj.h"
	28
47b0e7ad NC	29	/* This function is used for normal relocs. This is like the COFF
	30	function, and is almost certainly incorrect for other ELF targets. */
	31
	32	static bfd_reloc_status_type
	33	pj_elf_reloc (bfd *abfd,
	34	arelent *reloc_entry,
	35	asymbol *symbol_in,
	36	void * data,
	37	asection *input_section,
	38	bfd *output_bfd,
	39	char **error_message ATTRIBUTE_UNUSED)
	40	{
	41	unsigned long insn;
	42	bfd_vma sym_value;
	43	enum elf_pj_reloc_type r_type;
	44	bfd_vma addr = reloc_entry->address;
	45	bfd_byte hit_data = addr + (bfd_byte ) data;
	46
	47	r_type = (enum elf_pj_reloc_type) reloc_entry->howto->type;
	48
	49	if (output_bfd != NULL)
	50	{
	51	/* Partial linking--do nothing. */
	52	reloc_entry->address += input_section->output_offset;
	53	return bfd_reloc_ok;
	54	}
	55
	56	if (symbol_in != NULL
	57	&& bfd_is_und_section (symbol_in->section))
	58	return bfd_reloc_undefined;
	59
	60	if (bfd_is_com_section (symbol_in->section))
	61	sym_value = 0;
	62	else
	63	sym_value = (symbol_in->value +
	64	symbol_in->section->output_section->vma +
	65	symbol_in->section->output_offset);
	66
	67	switch (r_type)
	68	{
	69	case R_PJ_DATA_DIR32:
	70	insn = bfd_get_32 (abfd, hit_data);
	71	insn += sym_value + reloc_entry->addend;
	72	bfd_put_32 (abfd, (bfd_vma) insn, hit_data);
	73	break;
	74
	75	/* Relocations in code are always bigendian, no matter what the
	76	data endianness is. */
	77
	78	case R_PJ_CODE_DIR32:
	79	insn = bfd_getb32 (hit_data);
	80	insn += sym_value + reloc_entry->addend;
	81	bfd_putb32 ((bfd_vma) insn, hit_data);
	82	break;
	83
	84	case R_PJ_CODE_REL16:
	85	insn = bfd_getb16 (hit_data);
	86	insn += sym_value + reloc_entry->addend
07d6d2b8 AM	87	- (input_section->output_section->vma
07d6d2b8 AM	88	+ input_section->output_offset);
47b0e7ad NC	89	bfd_putb16 ((bfd_vma) insn, hit_data);
	90	break;
	91	case R_PJ_CODE_LO16:
	92	insn = bfd_getb16 (hit_data);
	93	insn += sym_value + reloc_entry->addend;
	94	bfd_putb16 ((bfd_vma) insn, hit_data);
	95	break;
	96
	97	case R_PJ_CODE_HI16:
	98	insn = bfd_getb16 (hit_data);
	99	insn += (sym_value + reloc_entry->addend) >> 16;
	100	bfd_putb16 ((bfd_vma) insn, hit_data);
	101	break;
	102
	103	default:
	104	abort ();
	105	break;
	106	}
	107
	108	return bfd_reloc_ok;
	109	}
0bcb993b ILT	110
	111	static reloc_howto_type pj_elf_howto_table[] =
	112	{
	113	/* No relocation. */
	114	HOWTO (R_PJ_NONE, /* type */
	115	0, /* rightshift */
6346d5ca	116	3, /* size (0 = byte, 1 = short, 2 = long) */
0bcb993b	117	0, /* bitsize */
b34976b6	118	FALSE, /* pc_relative */
0bcb993b ILT	119	0, /* bitpos */
	120	complain_overflow_dont, /* complain_on_overflow */
	121	pj_elf_reloc, /* special_function */
	122	"R_PJ_NONE", /* name */
b34976b6	123	FALSE, /* partial_inplace */
0bcb993b ILT	124	0, /* src_mask */
0bcb993b ILT	125	0, /* dst_mask */
b34976b6	126	FALSE), /* pcrel_offset */
0bcb993b	127
b34976b6	128	/* 32 bit absolute relocation. Setting partial_inplace to TRUE and
0bcb993b	129	src_mask to a non-zero value is similar to the COFF toolchain. */
47b0e7ad	130	HOWTO (R_PJ_DATA_DIR32, /* type */
0bcb993b ILT	131	0, /* rightshift */
	132	2, /* size (0 = byte, 1 = short, 2 = long) */
	133	32, /* bitsize */
b34976b6	134	FALSE, /* pc_relative */
0bcb993b ILT	135	0, /* bitpos */
	136	complain_overflow_bitfield, /* complain_on_overflow */
	137	pj_elf_reloc, /* special_function */
	138	"R_PJ_DIR32", /* name */
b34976b6	139	TRUE, /* partial_inplace */
0bcb993b ILT	140	0xffffffff, /* src_mask */
0bcb993b ILT	141	0xffffffff, /* dst_mask */
b34976b6	142	FALSE), /* pcrel_offset */
0bcb993b ILT	143
0bcb993b ILT	144	/* 32 bit PC relative relocation. */
47b0e7ad	145	HOWTO (R_PJ_CODE_REL32, /* type */
0bcb993b ILT	146	0, /* rightshift */
	147	2, /* size (0 = byte, 1 = short, 2 = long) */
	148	32, /* bitsize */
b34976b6	149	TRUE, /* pc_relative */
0bcb993b ILT	150	0, /* bitpos */
	151	complain_overflow_signed, /* complain_on_overflow */
	152	pj_elf_reloc, /* special_function */
	153	"R_PJ_REL32", /* name */
b34976b6	154	FALSE, /* partial_inplace */
0bcb993b ILT	155	0, /* src_mask */
0bcb993b ILT	156	0xffffffff, /* dst_mask */
b34976b6	157	TRUE), /* pcrel_offset */
0bcb993b ILT	158
0bcb993b ILT	159	/* 16 bit PC relative relocation. */
47b0e7ad	160	HOWTO (R_PJ_CODE_REL16, /* type */
0bcb993b ILT	161	0, /* rightshift */
	162	1, /* size (0 = byte, 1 = short, 2 = long) */
	163	16, /* bitsize */
b34976b6	164	TRUE, /* pc_relative */
0bcb993b ILT	165	0, /* bitpos */
	166	complain_overflow_signed, /* complain_on_overf6w */
	167	pj_elf_reloc, /* special_function */
	168	"R_PJ_REL16", /* name */
b34976b6	169	FALSE, /* partial_inplace */
0bcb993b ILT	170	0xffff, /* src_mask */
0bcb993b ILT	171	0xffff, /* dst_mask */
b34976b6	172	TRUE), /* pcrel_offset */
0bcb993b ILT	173	EMPTY_HOWTO (4),
	174	EMPTY_HOWTO (5),
	175	HOWTO (R_PJ_CODE_DIR32, /* type */
	176	0, /* rightshift */
	177	2, /* size (0 = byte, 1 = short, 2 = long) */
	178	32, /* bitsize */
b34976b6	179	FALSE, /* pc_relative */
0bcb993b ILT	180	0, /* bitpos */
	181	complain_overflow_bitfield, /* complain_on_overflow */
	182	pj_elf_reloc, /* special_function */
	183	"R_PJ_CODE_DIR32", /* name */
b34976b6	184	TRUE, /* partial_inplace */
0bcb993b ILT	185	0xffffffff, /* src_mask */
0bcb993b ILT	186	0xffffffff, /* dst_mask */
b34976b6	187	FALSE), /* pcrel_offset */
0bcb993b ILT	188
	189	EMPTY_HOWTO (7),
	190	EMPTY_HOWTO (8),
	191	EMPTY_HOWTO (9),
	192	EMPTY_HOWTO (10),
	193	EMPTY_HOWTO (11),
	194	EMPTY_HOWTO (12),
	195
	196	HOWTO (R_PJ_CODE_LO16, /* type */
	197	0, /* rightshift */
	198	1, /* size (0 = byte, 1 = short, 2 = long) */
	199	16, /* bitsize */
b34976b6	200	FALSE, /* pc_relative */
0bcb993b ILT	201	0, /* bitpos */
	202	complain_overflow_unsigned, /* complain_on_overflow */
	203	pj_elf_reloc, /* special_function */
	204	"R_PJ_LO16", /* name */
b34976b6	205	FALSE, /* partial_inplace */
0bcb993b ILT	206	0xffff, /* src_mask */
0bcb993b ILT	207	0xffff, /* dst_mask */
b34976b6	208	TRUE), /* pcrel_offset */
0bcb993b	209
0bcb993b ILT	210	HOWTO (R_PJ_CODE_HI16, /* type */
	211	16, /* rightshift */
	212	1, /* size (0 = byte, 1 = short, 2 = long) */
	213	16, /* bitsize */
b34976b6	214	FALSE, /* pc_relative */
0bcb993b ILT	215	0, /* bitpos */
	216	complain_overflow_unsigned, /* complain_on_overflow */
	217	pj_elf_reloc, /* special_function */
	218	"R_PJ_HI16", /* name */
b34976b6	219	FALSE, /* partial_inplace */
0bcb993b ILT	220	0xffff, /* src_mask */
0bcb993b ILT	221	0xffff, /* dst_mask */
b34976b6	222	TRUE), /* pcrel_offset */
0bcb993b	223
47b0e7ad	224	/* GNU extension to record C++ vtable hierarchy. */
07d6d2b8 AM	225	HOWTO (R_PJ_GNU_VTINHERIT, /* type */
	226	0, /* rightshift */
	227	2, /* size (0 = byte, 1 = short, 2 = long) */
	228	0, /* bitsize */
	229	FALSE, /* pc_relative */
	230	0, /* bitpos */
	231	complain_overflow_dont, /* complain_on_overflow */
	232	NULL, /* special_function */
	233	"R_PJ_GNU_VTINHERIT", /* name */
	234	FALSE, /* partial_inplace */
	235	0, /* src_mask */
	236	0, /* dst_mask */
	237	FALSE), /* pcrel_offset */
0bcb993b	238
47b0e7ad	239	/* GNU extension to record C++ vtable member usage. */
0bcb993b	240	HOWTO (R_PJ_GNU_VTENTRY, /* type */
07d6d2b8 AM	241	0, /* rightshift */
	242	2, /* size (0 = byte, 1 = short, 2 = long) */
	243	0, /* bitsize */
	244	FALSE, /* pc_relative */
	245	0, /* bitpos */
	246	complain_overflow_dont, /* complain_on_overflow */
	247	_bfd_elf_rel_vtable_reloc_fn, /* special_function */
	248	"R_PJ_GNU_VTENTRY", /* name */
	249	FALSE, /* partial_inplace */
	250	0, /* src_mask */
	251	0, /* dst_mask */
	252	FALSE), /* pcrel_offset */
0bcb993b ILT	253	};
0bcb993b ILT	254
0bcb993b ILT	255	/* This structure is used to map BFD reloc codes to PJ ELF relocs. */
	256
	257	struct elf_reloc_map
	258	{
	259	bfd_reloc_code_real_type bfd_reloc_val;
	260	unsigned char elf_reloc_val;
	261	};
	262
	263	/* An array mapping BFD reloc codes to PJ ELF relocs. */
	264
	265	static const struct elf_reloc_map pj_reloc_map[] =
	266	{
07d6d2b8 AM	267	{ BFD_RELOC_NONE, R_PJ_NONE },
	268	{ BFD_RELOC_32, R_PJ_DATA_DIR32 },
	269	{ BFD_RELOC_PJ_CODE_DIR16, R_PJ_CODE_DIR16 },
	270	{ BFD_RELOC_PJ_CODE_DIR32, R_PJ_CODE_DIR32 },
	271	{ BFD_RELOC_PJ_CODE_LO16, R_PJ_CODE_LO16 },
	272	{ BFD_RELOC_PJ_CODE_HI16, R_PJ_CODE_HI16 },
	273	{ BFD_RELOC_PJ_CODE_REL32, R_PJ_CODE_REL32 },
	274	{ BFD_RELOC_PJ_CODE_REL16, R_PJ_CODE_REL16 },
0bcb993b ILT	275	{ BFD_RELOC_VTABLE_INHERIT, R_PJ_GNU_VTINHERIT },
	276	{ BFD_RELOC_VTABLE_ENTRY, R_PJ_GNU_VTENTRY },
	277	};
	278
	279	/* Given a BFD reloc code, return the howto structure for the
	280	corresponding PJ ELf reloc. */
	281
	282	static reloc_howto_type *
47b0e7ad NC	283	pj_elf_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
47b0e7ad NC	284	bfd_reloc_code_real_type code)
0bcb993b ILT	285	{
0bcb993b ILT	286	unsigned int i;
c3668558	287
0bcb993b	288	for (i = 0; i < sizeof (pj_reloc_map) / sizeof (struct elf_reloc_map); i++)
47b0e7ad NC	289	if (pj_reloc_map[i].bfd_reloc_val == code)
47b0e7ad NC	290	return & pj_elf_howto_table[(int) pj_reloc_map[i].elf_reloc_val];
0bcb993b ILT	291
	292	return NULL;
	293	}
	294
157090f7 AM	295	static reloc_howto_type *
	296	pj_elf_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
	297	const char *r_name)
	298	{
	299	unsigned int i;
	300
	301	for (i = 0;
	302	i < sizeof (pj_elf_howto_table) / sizeof (pj_elf_howto_table[0]);
	303	i++)
	304	if (pj_elf_howto_table[i].name != NULL
	305	&& strcasecmp (pj_elf_howto_table[i].name, r_name) == 0)
	306	return &pj_elf_howto_table[i];
	307
	308	return NULL;
	309	}
	310
0bcb993b ILT	311	/* Given an ELF reloc, fill in the howto field of a relent. */
	312
	313	static void
47b0e7ad NC	314	pj_elf_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
	315	arelent *cache_ptr,
	316	Elf_Internal_Rela *dst)
0bcb993b ILT	317	{
	318	unsigned int r;
	319
	320	r = ELF32_R_TYPE (dst->r_info);
	321
cd21f5da NC	322	if (r >= R_PJ_max)
cd21f5da NC	323	{
695344c0	324	/* xgettext:c-format */
871b3ab2	325	_bfd_error_handler (_("%pB: unrecognised PicoJava reloc number: %d"),
4eca0228	326	abfd, r);
cd21f5da NC	327	bfd_set_error (bfd_error_bad_value);
	328	r = R_PJ_NONE;
	329	}
0bcb993b ILT	330
	331	cache_ptr->howto = &pj_elf_howto_table[r];
	332	}
	333
	334	/* Take this moment to fill in the special picoJava bits in the
c3668558	335	e_flags field. */
0bcb993b ILT	336
0bcb993b ILT	337	static void
47b0e7ad NC	338	pj_elf_final_write_processing (bfd *abfd,
47b0e7ad NC	339	bfd_boolean linker ATTRIBUTE_UNUSED)
0bcb993b	340	{
47b0e7ad NC	341	elf_elfheader (abfd)->e_flags \|= EF_PICOJAVA_ARCH;
47b0e7ad NC	342	elf_elfheader (abfd)->e_flags \|= EF_PICOJAVA_GNUCALLS;
0bcb993b ILT	343	}
0bcb993b ILT	344
6d00b590	345	#define TARGET_BIG_SYM pj_elf32_vec
0bcb993b	346	#define TARGET_BIG_NAME "elf32-pj"
6d00b590	347	#define TARGET_LITTLE_SYM pj_elf32_le_vec
0bcb993b ILT	348	#define TARGET_LITTLE_NAME "elf32-pjl"
	349	#define ELF_ARCH bfd_arch_pj
	350	#define ELF_MACHINE_CODE EM_PJ
aa4f99bb	351	#define ELF_MACHINE_ALT1 EM_PJ_OLD
0bcb993b	352	#define ELF_MAXPAGESIZE 0x1000
157090f7 AM	353	#define bfd_elf32_bfd_get_relocated_section_contents \
157090f7 AM	354	bfd_generic_get_relocated_section_contents
07d6d2b8	355	#define bfd_elf32_bfd_reloc_type_lookup pj_elf_reloc_type_lookup
157090f7 AM	356	#define bfd_elf32_bfd_reloc_name_lookup pj_elf_reloc_name_lookup
157090f7 AM	357	#define elf_backend_final_write_processing pj_elf_final_write_processing
07d6d2b8	358	#define elf_info_to_howto pj_elf_info_to_howto
0bcb993b	359	#include "elf32-target.h"