[thirdparty/binutils-gdb.git] / bfd / elf32-xgate.c

/* Freescale XGATE-specific support for 32-bit ELF
   Copyright (C) 2010-2021 Free Software Foundation, Inc.
   Contributed by Sean Keys(skeys@ipdatasys.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/xgate.h"
#include "opcode/xgate.h"
#include "libiberty.h"

/* Forward declarations.  */
static bfd_reloc_status_type xgate_elf_ignore_reloc
  (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
static bfd_reloc_status_type xgate_elf_special_reloc
  (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);

/* Use REL instead of RELA to save space */
#define USE_REL	1

static reloc_howto_type elf_xgate_howto_table[] =
{
  /* This reloc does nothing.  */
  HOWTO (R_XGATE_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 */
	 bfd_elf_generic_reloc, /* special_function */
	 "R_XGATE_NONE", /* name */
	 false, /* partial_inplace */
	 0, /* src_mask */
	 0, /* dst_mask */
	 false), /* pcrel_offset */

  /* A 8 bit absolute relocation.  */
  HOWTO (R_XGATE_8, /* type */
	 0, /* rightshift */
	 0, /* size (0 = byte, 1 = short, 2 = long) */
	 8, /* bitsize */
	 false, /* pc_relative */
	 0, /* bitpos */
	 complain_overflow_bitfield, /* complain_on_overflow */
	 bfd_elf_generic_reloc, /* special_function */
	 "R_XGATE_8", /* name */
	 false, /* partial_inplace */
	 0x00ff, /* src_mask */
	 0x00ff, /* dst_mask */
	 false), /* pcrel_offset */

  /* A 8 bit PC-rel relocation.  */
  HOWTO (R_XGATE_PCREL_8, /* type */
	 0, /* rightshift */
	 0, /* size (0 = byte, 1 = short, 2 = long) */
	 8, /* bitsize */
	 true, /* pc_relative */
	 0, /* bitpos */
	 complain_overflow_bitfield, /* complain_on_overflow */
	 bfd_elf_generic_reloc, /* special_function */
	 "R_XGATE_PCREL_8", /* name */
	 false, /* partial_inplace */
	 0x00ff, /* src_mask */
	 0x00ff, /* dst_mask */
	 true), /* pcrel_offset */

  /* A 16 bit absolute relocation.  */
  HOWTO (R_XGATE_16, /* type */
	 0, /* rightshift */
	 1, /* size (0 = byte, 1 = short, 2 = long) */
	 16, /* bitsize */
	 false, /* pc_relative */
	 0, /* bitpos */
	 complain_overflow_dont /*bitfield */, /* complain_on_overflow */
	 bfd_elf_generic_reloc, /* special_function */
	 "R_XGATE_16", /* name */
	 false, /* partial_inplace */
	 0xffff, /* src_mask */
	 0xffff, /* dst_mask */
	 false), /* pcrel_offset */

  /* A 32 bit absolute relocation.  This one is never used for the
     code relocation.  It's used by gas for -gstabs generation.  */
  HOWTO (R_XGATE_32, /* type */
	 0, /* rightshift */
	 2, /* size (0 = byte, 1 = short, 2 = long) */
	 32, /* bitsize */
	 false, /* pc_relative */
	 0, /* bitpos */
	 complain_overflow_bitfield, /* complain_on_overflow */
	 bfd_elf_generic_reloc, /* special_function */
	 "R_XGATE_32", /* name */
	 false, /* partial_inplace */
	 0xffffffff, /* src_mask */
	 0xffffffff, /* dst_mask */
	 false), /* pcrel_offset */

  /* A 16 bit PC-rel relocation.  */
  HOWTO (R_XGATE_PCREL_16, /* type */
	 0, /* rightshift */
	 1, /* size (0 = byte, 1 = short, 2 = long) */
	 16, /* bitsize */
	 true, /* pc_relative */
	 0, /* bitpos */
	 complain_overflow_dont, /* complain_on_overflow */
	 bfd_elf_generic_reloc, /* special_function */
	 "R_XGATE_PCREL_16", /* name */
	 false, /* partial_inplace */
	 0xffff, /* src_mask */
	 0xffff, /* dst_mask */
	 true), /* pcrel_offset */

  /* GNU extension to record C++ vtable hierarchy.  */
  HOWTO (R_XGATE_GNU_VTINHERIT, /* type */
	 0, /* rightshift */
	 1, /* size (0 = byte, 1 = short, 2 = long) */
	 0, /* bitsize */
	 false, /* pc_relative */
	 0, /* bitpos */
	 complain_overflow_dont, /* complain_on_overflow */
	 NULL, /* special_function */
	 "R_XGATE_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_XGATE_GNU_VTENTRY, /* type */
	 0, /* rightshift */
	 1, /* 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_XGATE_GNU_VTENTRY", /* name */
	 false, /* partial_inplace */
	 0, /* src_mask */
	 0, /* dst_mask */
	 false), /* pcrel_offset */

  /* A 24 bit relocation.  */
  HOWTO (R_XGATE_24, /* type */
	 0, /* rightshift */
	 1, /* size (0 = byte, 1 = short, 2 = long) */
	 16, /* bitsize */
	 false, /* pc_relative */
	 0, /* bitpos */
	 complain_overflow_dont, /* complain_on_overflow */
	 bfd_elf_generic_reloc, /* special_function */
	 "R_XGATE_IMM8_LO", /* name */
	 false, /* partial_inplace */
	 0x00ff, /* src_mask */
	 0x00ff, /* dst_mask */
	 false), /* pcrel_offset */

  /* A 16-bit low relocation.  */
  HOWTO (R_XGATE_LO16, /* type */
	 8, /* rightshift */
	 1, /* size (0 = byte, 1 = short, 2 = long) */
	 16, /* bitsize */
	 false, /* pc_relative */
	 0, /* bitpos */
	 complain_overflow_dont, /* complain_on_overflow */
	 bfd_elf_generic_reloc, /* special_function */
	 "R_XGATE_IMM8_HI", /* name */
	 false, /* partial_inplace */
	 0x00ff, /* src_mask */
	 0x00ff, /* dst_mask */
	 false), /* pcrel_offset */

  /* A page relocation.  */
  HOWTO (R_XGATE_GPAGE, /* type */
	 0, /* rightshift */
	 0, /* size (0 = byte, 1 = short, 2 = long) */
	 8, /* bitsize */
	 false, /* pc_relative */
	 0, /* bitpos */
	 complain_overflow_dont, /* complain_on_overflow */
	 xgate_elf_special_reloc,/* special_function */
	 "R_XGATE_GPAGE", /* name */
	 false, /* partial_inplace */
	 0x00ff, /* src_mask */
	 0x00ff, /* dst_mask */
	 false), /* pcrel_offset */

  /* A 9 bit absolute relocation.   */
  HOWTO (R_XGATE_PCREL_9, /* type */
	 0, /* rightshift */
	 1, /* size (0 = byte, 1 = short, 2 = long) */
	 9, /* bitsize */
	 true, /* pc_relative */
	 0, /* bitpos */
	 complain_overflow_bitfield, /* complain_on_overflow */
	 bfd_elf_generic_reloc, /* special_function */
	 "R_XGATE_PCREL_9", /* name */
	 false, /* partial_inplace */
	 0xffff, /* src_mask */
	 0xffff, /* dst_mask */
	 true), /* pcrel_offset */

  /* A 8 bit absolute relocation (upper address).  */
  HOWTO (R_XGATE_PCREL_10, /* type */
	 8, /* rightshift */
	 0, /* size (0 = byte, 1 = short, 2 = long) */
	 10, /* bitsize */
	 true, /* pc_relative */
	 0, /* bitpos */
	 complain_overflow_dont, /* complain_on_overflow */
	 bfd_elf_generic_reloc, /* special_function */
	 "R_XGATE_PCREL_10", /* name */
	 false, /* partial_inplace */
	 0x00ff, /* src_mask */
	 0x00ff, /* dst_mask */
	 true), /* pcrel_offset */

  /* A 8 bit absolute relocation.  */
  HOWTO (R_XGATE_IMM8_LO, /* type */
	 0, /* rightshift */
	 1, /* size (0 = byte, 1 = short, 2 = long) */
	 16, /* bitsize */
	 false, /* pc_relative */
	 0, /* bitpos */
	 complain_overflow_dont, /* complain_on_overflow */
	 bfd_elf_generic_reloc, /* special_function */
	 "R_XGATE_IMM8_LO", /* name */
	 false, /* partial_inplace */
	 0xffff, /* src_mask */
	 0xffff, /* dst_mask */
	 false), /* pcrel_offset */

  /* A 16 bit absolute relocation (upper address).  */
  HOWTO (R_XGATE_IMM8_HI, /* type */
	 8, /* rightshift */
	 1, /* size (0 = byte, 1 = short, 2 = long) */
	 16, /* bitsize */
	 false, /* pc_relative */
	 0, /* bitpos */
	 complain_overflow_dont, /* complain_on_overflow */
	 bfd_elf_generic_reloc, /* special_function */
	 "R_XGATE_IMM8_HI", /* name */
	 false, /* partial_inplace */
	 0x00ff, /* src_mask */
	 0x00ff, /* dst_mask */
	 false), /* pcrel_offset */

  /* A 3 bit absolute relocation.  */
  HOWTO (R_XGATE_IMM3, /* type */
	 8, /* rightshift */
	 1, /* size (0 = byte, 1 = short, 2 = long) */
	 16, /* bitsize */
	 false, /* pc_relative */
	 0, /* bitpos */
	 complain_overflow_dont, /* complain_on_overflow */
	 bfd_elf_generic_reloc, /* special_function */
	 "R_XGATE_IMM3", /* name */
	 false, /* partial_inplace */
	 0x00ff, /* src_mask */
	 0x00ff, /* dst_mask */
	 false), /* pcrel_offset */

  /* A 4 bit absolute relocation.  */
  HOWTO (R_XGATE_IMM4, /* type */
	 8, /* rightshift */
	 1, /* size (0 = byte, 1 = short, 2 = long) */
	 16, /* bitsize */
	 false, /* pc_relative */
	 0, /* bitpos */
	 complain_overflow_dont, /* complain_on_overflow */
	 bfd_elf_generic_reloc, /* special_function */
	 "R_XGATE_IMM4", /* name */
	 false, /* partial_inplace */
	 0x00ff, /* src_mask */
	 0x00ff, /* dst_mask */
	 false), /* pcrel_offset */

  /* A 5 bit absolute relocation.  */
  HOWTO (R_XGATE_IMM5, /* type */
	 8, /* rightshift */
	 1, /* size (0 = byte, 1 = short, 2 = long) */
	 16, /* bitsize */
	 false, /* pc_relative */
	 0, /* bitpos */
	 complain_overflow_dont, /* complain_on_overflow */
	 bfd_elf_generic_reloc, /* special_function */
	 "R_XGATE_IMM5", /* name */
	 false, /* partial_inplace */
	 0x00ff, /* src_mask */
	 0x00ff, /* dst_mask */
	 false), /* pcrel_offset */

  /* Mark beginning of a jump instruction (any form).  */
  HOWTO (R_XGATE_RL_JUMP, /* type */
	 0, /* rightshift */
	 1, /* size (0 = byte, 1 = short, 2 = long) */
	 0, /* bitsize */
	 false, /* pc_relative */
	 0, /* bitpos */
	 complain_overflow_dont, /* complain_on_overflow */
	 xgate_elf_ignore_reloc, /* special_function */
	 "R_XGATE_RL_JUMP", /* name */
	 true, /* partial_inplace */
	 0, /* src_mask */
	 0, /* dst_mask */
	 true), /* pcrel_offset */

  /* Mark beginning of Gcc relaxation group instruction.  */
  HOWTO (R_XGATE_RL_GROUP, /* type */
	 0, /* rightshift */
	 1, /* size (0 = byte, 1 = short, 2 = long) */
	 0, /* bitsize */
	 false, /* pc_relative */
	 0, /* bitpos */
	 complain_overflow_dont, /* complain_on_overflow */
	 xgate_elf_ignore_reloc, /* special_function */
	 "R_XGATE_RL_GROUP", /* name */
	 true, /* partial_inplace */
	 0, /* src_mask */
	 0, /* dst_mask */
	 true), /* pcrel_offset */
};

/* Map BFD reloc types to XGATE ELF reloc types.  */

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

static const struct xgate_reloc_map xgate_reloc_map[] =
{
  {BFD_RELOC_NONE, R_XGATE_NONE},
  {BFD_RELOC_8, R_XGATE_8},
  {BFD_RELOC_8_PCREL, R_XGATE_PCREL_8},
  {BFD_RELOC_16_PCREL, R_XGATE_PCREL_16},
  {BFD_RELOC_16, R_XGATE_16},
  {BFD_RELOC_32, R_XGATE_32},

  {BFD_RELOC_VTABLE_INHERIT, R_XGATE_GNU_VTINHERIT},
  {BFD_RELOC_VTABLE_ENTRY, R_XGATE_GNU_VTENTRY},

  {BFD_RELOC_XGATE_LO16, R_XGATE_LO16},
  {BFD_RELOC_XGATE_GPAGE, R_XGATE_GPAGE},
  {BFD_RELOC_XGATE_24, R_XGATE_24},
  {BFD_RELOC_XGATE_PCREL_9, R_XGATE_PCREL_9},
  {BFD_RELOC_XGATE_PCREL_10,  R_XGATE_PCREL_10},
  {BFD_RELOC_XGATE_IMM8_LO, R_XGATE_IMM8_LO},
  {BFD_RELOC_XGATE_IMM8_HI, R_XGATE_IMM8_HI},
  {BFD_RELOC_XGATE_IMM3, R_XGATE_IMM3},
  {BFD_RELOC_XGATE_IMM4, R_XGATE_IMM4},
  {BFD_RELOC_XGATE_IMM5, R_XGATE_IMM5},

  {BFD_RELOC_XGATE_RL_JUMP, R_XGATE_RL_JUMP},
  {BFD_RELOC_XGATE_RL_GROUP, R_XGATE_RL_GROUP},
};

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

  for (i = 0; i < ARRAY_SIZE (xgate_reloc_map); i++)
    if (xgate_reloc_map[i].bfd_reloc_val == code)
      return &elf_xgate_howto_table[xgate_reloc_map[i].elf_reloc_val];

  return NULL;
}

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

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

  return NULL;
}

/* Set the howto pointer for an XGATE ELF reloc.  */

static bool
xgate_info_to_howto_rel (bfd *abfd,
			 arelent *cache_ptr,
			 Elf_Internal_Rela *dst)
{
  unsigned int r_type;

  r_type = ELF32_R_TYPE (dst->r_info);
  if (r_type >= (unsigned int) R_XGATE_max)
    {
      /* xgettext:c-format */
      _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
			  abfd, r_type);
      bfd_set_error (bfd_error_bad_value);
      return false;
    }
  cache_ptr->howto = &elf_xgate_howto_table[r_type];
  return true;
}

/* Specific sections:
 - The .page0 is a data section that is mapped in [0x0000..0x00FF].
   Page0 accesses are faster on the M68HC12.
 - The .vectors is the section that represents the interrupt
   vectors.
 - The .xgate section is starts in 0xE08800 or as xgate sees it 0x0800. */
static const struct bfd_elf_special_section elf32_xgate_special_sections[] =
{
  { STRING_COMMA_LEN (".eeprom"), 0, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE },
  { STRING_COMMA_LEN (".page0"), 0, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE },
  { STRING_COMMA_LEN (".softregs"), 0, SHT_NOBITS, SHF_ALLOC + SHF_WRITE },
  { STRING_COMMA_LEN (".vectors"), 0, SHT_PROGBITS, SHF_ALLOC },
/*{ STRING_COMMA_LEN (".xgate"),    0, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE },
  TODO finish this implementation */
  { NULL, 0, 0, 0, 0 }
};

/* Hook called when reading symbols. */

static void
elf32_xgate_backend_symbol_processing (bfd *abfd ATTRIBUTE_UNUSED,
				       asymbol *sym)
{
  /* Mark xgate symbols.  */
  ((elf_symbol_type *) sym)->internal_elf_sym.st_target_internal = 1;
}

/* This function is used for relocs which are only used for relaxing,
   which the linker should otherwise ignore.  */

static bfd_reloc_status_type
xgate_elf_ignore_reloc (bfd *abfd ATTRIBUTE_UNUSED,
			arelent *reloc_entry,
			asymbol *symbol ATTRIBUTE_UNUSED,
			void *data ATTRIBUTE_UNUSED,
			asection *input_section,
			bfd *output_bfd,
			char **error_message ATTRIBUTE_UNUSED)
{
  if (output_bfd != NULL)
    reloc_entry->address += input_section->output_offset;
  return bfd_reloc_ok;
}

static bfd_reloc_status_type
xgate_elf_special_reloc (bfd *abfd ATTRIBUTE_UNUSED,
			 arelent *reloc_entry ATTRIBUTE_UNUSED,
			 asymbol *symbol ATTRIBUTE_UNUSED,
			 void *data ATTRIBUTE_UNUSED,
			 asection *input_section ATTRIBUTE_UNUSED,
			 bfd *output_bfd ATTRIBUTE_UNUSED,
			 char **error_message ATTRIBUTE_UNUSED)
{
  abort ();
}

static bool
_bfd_xgate_elf_print_private_bfd_data (bfd *abfd, void *ptr)
{
  FILE *file = (FILE *) ptr;

  BFD_ASSERT (abfd != NULL && ptr != NULL);

  /* Print normal ELF private data.  */
  _bfd_elf_print_private_bfd_data (abfd, ptr);

  /* xgettext:c-format */
  fprintf (file, _("private flags = %lx:"), elf_elfheader (abfd)->e_flags);

  if (elf_elfheader (abfd)->e_flags & E_XGATE_I32)
    fprintf (file, _("[abi=32-bit int, "));
  else
    fprintf (file, _("[abi=16-bit int, "));

  if (elf_elfheader (abfd)->e_flags & E_XGATE_F64)
    fprintf (file, _("64-bit double, "));
  else
    fprintf (file, _("32-bit double, "));
  if (elf_elfheader (abfd)->e_flags & EF_XGATE_MACH)
    fprintf (file, _("cpu=XGATE]"));
  else
    fprintf (file, _("error reading cpu type from elf private data"));
  fputc ('\n', file);

  return true;
}

#define ELF_ARCH			     bfd_arch_xgate
#define ELF_MACHINE_CODE		     EM_XGATE

#define ELF_MAXPAGESIZE			     0x1000

#define TARGET_BIG_SYM			     xgate_elf32_vec
#define TARGET_BIG_NAME			     "elf32-xgate"

#define elf_info_to_howto_rel		     xgate_info_to_howto_rel
#define elf_backend_special_sections	     elf32_xgate_special_sections
#define elf_backend_symbol_processing	     elf32_xgate_backend_symbol_processing
#define bfd_elf32_bfd_print_private_bfd_data _bfd_xgate_elf_print_private_bfd_data

#include "elf32-target.h"
Commit	Line	Data
a8acc5fb	1	/* Freescale XGATE-specific support for 32-bit ELF
250d07de	2	Copyright (C) 2010-2021 Free Software Foundation, Inc.
a8acc5fb NC	3	Contributed by Sean Keys(skeys@ipdatasys.com)
	4
	5	This file is part of BFD, the Binary File Descriptor library.
	6
	7	This program is free software; you can redistribute it and/or modify
	8	it under the terms of the GNU General Public License as published by
	9	the Free Software Foundation; either version 3 of the License, or
	10	(at your option) any later version.
	11
	12	This program is distributed in the hope that it will be useful,
	13	but WITHOUT ANY WARRANTY; without even the implied warranty of
	14	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	GNU General Public License for more details.
	16
	17	You should have received a copy of the GNU General Public License
	18	along with this program; if not, write to the Free Software
	19	Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
	20	MA 02110-1301, USA. */
	21
	22	#include "sysdep.h"
	23	#include "bfd.h"
	24	#include "bfdlink.h"
	25	#include "libbfd.h"
	26	#include "elf-bfd.h"
a8acc5fb NC	27	#include "elf/xgate.h"
	28	#include "opcode/xgate.h"
	29	#include "libiberty.h"
	30
1594e052 AM	31	/* Forward declarations. */
	32	static bfd_reloc_status_type xgate_elf_ignore_reloc
	33	(bfd , arelent , asymbol , void , asection , bfd , char **);
	34	static bfd_reloc_status_type xgate_elf_special_reloc
	35	(bfd , arelent , asymbol , void , asection , bfd , char **);
a8acc5fb NC	36
	37	/* Use REL instead of RELA to save space */
	38	#define USE_REL 1
	39
	40	static reloc_howto_type elf_xgate_howto_table[] =
	41	{
	42	/* This reloc does nothing. */
	43	HOWTO (R_XGATE_NONE, /* type */
	44	0, /* rightshift */
6346d5ca AM	45	3, /* size (0 = byte, 1 = short, 2 = long) */
6346d5ca AM	46	0, /* bitsize */
0a1b45a2	47	false, /* pc_relative */
a8acc5fb NC	48	0, /* bitpos */
	49	complain_overflow_dont,/* complain_on_overflow */
	50	bfd_elf_generic_reloc, /* special_function */
	51	"R_XGATE_NONE", /* name */
0a1b45a2	52	false, /* partial_inplace */
a8acc5fb NC	53	0, /* src_mask */
a8acc5fb NC	54	0, /* dst_mask */
0a1b45a2	55	false), /* pcrel_offset */
a8acc5fb NC	56
	57	/* A 8 bit absolute relocation. */
	58	HOWTO (R_XGATE_8, /* type */
	59	0, /* rightshift */
	60	0, /* size (0 = byte, 1 = short, 2 = long) */
	61	8, /* bitsize */
0a1b45a2	62	false, /* pc_relative */
a8acc5fb NC	63	0, /* bitpos */
	64	complain_overflow_bitfield, /* complain_on_overflow */
	65	bfd_elf_generic_reloc, /* special_function */
	66	"R_XGATE_8", /* name */
0a1b45a2	67	false, /* partial_inplace */
a8acc5fb NC	68	0x00ff, /* src_mask */
a8acc5fb NC	69	0x00ff, /* dst_mask */
0a1b45a2	70	false), /* pcrel_offset */
a8acc5fb NC	71
	72	/* A 8 bit PC-rel relocation. */
	73	HOWTO (R_XGATE_PCREL_8, /* type */
	74	0, /* rightshift */
	75	0, /* size (0 = byte, 1 = short, 2 = long) */
	76	8, /* bitsize */
0a1b45a2	77	true, /* pc_relative */
a8acc5fb NC	78	0, /* bitpos */
	79	complain_overflow_bitfield, /* complain_on_overflow */
	80	bfd_elf_generic_reloc, /* special_function */
	81	"R_XGATE_PCREL_8", /* name */
0a1b45a2	82	false, /* partial_inplace */
a8acc5fb NC	83	0x00ff, /* src_mask */
a8acc5fb NC	84	0x00ff, /* dst_mask */
0a1b45a2	85	true), /* pcrel_offset */
a8acc5fb NC	86
	87	/* A 16 bit absolute relocation. */
	88	HOWTO (R_XGATE_16, /* type */
	89	0, /* rightshift */
	90	1, /* size (0 = byte, 1 = short, 2 = long) */
	91	16, /* bitsize */
0a1b45a2	92	false, /* pc_relative */
a8acc5fb NC	93	0, /* bitpos */
	94	complain_overflow_dont /bitfield /, /* complain_on_overflow */
	95	bfd_elf_generic_reloc, /* special_function */
	96	"R_XGATE_16", /* name */
0a1b45a2	97	false, /* partial_inplace */
d6273433 SK	98	0xffff, /* src_mask */
d6273433 SK	99	0xffff, /* dst_mask */
0a1b45a2	100	false), /* pcrel_offset */
a8acc5fb NC	101
	102	/* A 32 bit absolute relocation. This one is never used for the
	103	code relocation. It's used by gas for -gstabs generation. */
	104	HOWTO (R_XGATE_32, /* type */
	105	0, /* rightshift */
	106	2, /* size (0 = byte, 1 = short, 2 = long) */
	107	32, /* bitsize */
0a1b45a2	108	false, /* pc_relative */
a8acc5fb NC	109	0, /* bitpos */
	110	complain_overflow_bitfield, /* complain_on_overflow */
	111	bfd_elf_generic_reloc, /* special_function */
	112	"R_XGATE_32", /* name */
0a1b45a2	113	false, /* partial_inplace */
a8acc5fb NC	114	0xffffffff, /* src_mask */
a8acc5fb NC	115	0xffffffff, /* dst_mask */
0a1b45a2	116	false), /* pcrel_offset */
a8acc5fb NC	117
	118	/* A 16 bit PC-rel relocation. */
	119	HOWTO (R_XGATE_PCREL_16, /* type */
	120	0, /* rightshift */
	121	1, /* size (0 = byte, 1 = short, 2 = long) */
	122	16, /* bitsize */
0a1b45a2	123	true, /* pc_relative */
a8acc5fb NC	124	0, /* bitpos */
	125	complain_overflow_dont, /* complain_on_overflow */
	126	bfd_elf_generic_reloc, /* special_function */
	127	"R_XGATE_PCREL_16", /* name */
0a1b45a2	128	false, /* partial_inplace */
a8acc5fb NC	129	0xffff, /* src_mask */
a8acc5fb NC	130	0xffff, /* dst_mask */
0a1b45a2	131	true), /* pcrel_offset */
a8acc5fb NC	132
	133	/* GNU extension to record C++ vtable hierarchy. */
	134	HOWTO (R_XGATE_GNU_VTINHERIT, /* type */
	135	0, /* rightshift */
	136	1, /* size (0 = byte, 1 = short, 2 = long) */
	137	0, /* bitsize */
0a1b45a2	138	false, /* pc_relative */
a8acc5fb NC	139	0, /* bitpos */
	140	complain_overflow_dont, /* complain_on_overflow */
	141	NULL, /* special_function */
	142	"R_XGATE_GNU_VTINHERIT", /* name */
0a1b45a2	143	false, /* partial_inplace */
a8acc5fb NC	144	0, /* src_mask */
a8acc5fb NC	145	0, /* dst_mask */
0a1b45a2	146	false), /* pcrel_offset */
a8acc5fb NC	147
	148	/* GNU extension to record C++ vtable member usage. */
	149	HOWTO (R_XGATE_GNU_VTENTRY, /* type */
	150	0, /* rightshift */
	151	1, /* size (0 = byte, 1 = short, 2 = long) */
	152	0, /* bitsize */
0a1b45a2	153	false, /* pc_relative */
a8acc5fb NC	154	0, /* bitpos */
	155	complain_overflow_dont, /* complain_on_overflow */
	156	_bfd_elf_rel_vtable_reloc_fn, /* special_function */
	157	"R_XGATE_GNU_VTENTRY", /* name */
0a1b45a2	158	false, /* partial_inplace */
a8acc5fb NC	159	0, /* src_mask */
a8acc5fb NC	160	0, /* dst_mask */
0a1b45a2	161	false), /* pcrel_offset */
a8acc5fb NC	162
	163	/* A 24 bit relocation. */
	164	HOWTO (R_XGATE_24, /* type */
	165	0, /* rightshift */
	166	1, /* size (0 = byte, 1 = short, 2 = long) */
	167	16, /* bitsize */
0a1b45a2	168	false, /* pc_relative */
a8acc5fb NC	169	0, /* bitpos */
	170	complain_overflow_dont, /* complain_on_overflow */
	171	bfd_elf_generic_reloc, /* special_function */
	172	"R_XGATE_IMM8_LO", /* name */
0a1b45a2	173	false, /* partial_inplace */
a8acc5fb NC	174	0x00ff, /* src_mask */
a8acc5fb NC	175	0x00ff, /* dst_mask */
0a1b45a2	176	false), /* pcrel_offset */
a8acc5fb NC	177
	178	/* A 16-bit low relocation. */
	179	HOWTO (R_XGATE_LO16, /* type */
	180	8, /* rightshift */
	181	1, /* size (0 = byte, 1 = short, 2 = long) */
	182	16, /* bitsize */
0a1b45a2	183	false, /* pc_relative */
a8acc5fb NC	184	0, /* bitpos */
	185	complain_overflow_dont, /* complain_on_overflow */
	186	bfd_elf_generic_reloc, /* special_function */
	187	"R_XGATE_IMM8_HI", /* name */
0a1b45a2	188	false, /* partial_inplace */
a8acc5fb NC	189	0x00ff, /* src_mask */
a8acc5fb NC	190	0x00ff, /* dst_mask */
0a1b45a2	191	false), /* pcrel_offset */
a8acc5fb NC	192
	193	/* A page relocation. */
	194	HOWTO (R_XGATE_GPAGE, /* type */
	195	0, /* rightshift */
	196	0, /* size (0 = byte, 1 = short, 2 = long) */
	197	8, /* bitsize */
0a1b45a2	198	false, /* pc_relative */
a8acc5fb NC	199	0, /* bitpos */
	200	complain_overflow_dont, /* complain_on_overflow */
	201	xgate_elf_special_reloc,/* special_function */
	202	"R_XGATE_GPAGE", /* name */
0a1b45a2	203	false, /* partial_inplace */
a8acc5fb NC	204	0x00ff, /* src_mask */
a8acc5fb NC	205	0x00ff, /* dst_mask */
0a1b45a2	206	false), /* pcrel_offset */
a8acc5fb NC	207
	208	/* A 9 bit absolute relocation. */
	209	HOWTO (R_XGATE_PCREL_9, /* type */
	210	0, /* rightshift */
	211	1, /* size (0 = byte, 1 = short, 2 = long) */
	212	9, /* bitsize */
0a1b45a2	213	true, /* pc_relative */
a8acc5fb NC	214	0, /* bitpos */
	215	complain_overflow_bitfield, /* complain_on_overflow */
	216	bfd_elf_generic_reloc, /* special_function */
	217	"R_XGATE_PCREL_9", /* name */
0a1b45a2	218	false, /* partial_inplace */
a8acc5fb NC	219	0xffff, /* src_mask */
a8acc5fb NC	220	0xffff, /* dst_mask */
0a1b45a2	221	true), /* pcrel_offset */
a8acc5fb NC	222
	223	/* A 8 bit absolute relocation (upper address). */
	224	HOWTO (R_XGATE_PCREL_10, /* type */
	225	8, /* rightshift */
	226	0, /* size (0 = byte, 1 = short, 2 = long) */
	227	10, /* bitsize */
0a1b45a2	228	true, /* pc_relative */
a8acc5fb NC	229	0, /* bitpos */
	230	complain_overflow_dont, /* complain_on_overflow */
	231	bfd_elf_generic_reloc, /* special_function */
	232	"R_XGATE_PCREL_10", /* name */
0a1b45a2	233	false, /* partial_inplace */
a8acc5fb NC	234	0x00ff, /* src_mask */
a8acc5fb NC	235	0x00ff, /* dst_mask */
0a1b45a2	236	true), /* pcrel_offset */
a8acc5fb NC	237
	238	/* A 8 bit absolute relocation. */
	239	HOWTO (R_XGATE_IMM8_LO, /* type */
	240	0, /* rightshift */
	241	1, /* size (0 = byte, 1 = short, 2 = long) */
	242	16, /* bitsize */
0a1b45a2	243	false, /* pc_relative */
a8acc5fb NC	244	0, /* bitpos */
	245	complain_overflow_dont, /* complain_on_overflow */
	246	bfd_elf_generic_reloc, /* special_function */
	247	"R_XGATE_IMM8_LO", /* name */
0a1b45a2	248	false, /* partial_inplace */
a8acc5fb NC	249	0xffff, /* src_mask */
a8acc5fb NC	250	0xffff, /* dst_mask */
0a1b45a2	251	false), /* pcrel_offset */
a8acc5fb NC	252
	253	/* A 16 bit absolute relocation (upper address). */
	254	HOWTO (R_XGATE_IMM8_HI, /* type */
	255	8, /* rightshift */
	256	1, /* size (0 = byte, 1 = short, 2 = long) */
	257	16, /* bitsize */
0a1b45a2	258	false, /* pc_relative */
a8acc5fb NC	259	0, /* bitpos */
	260	complain_overflow_dont, /* complain_on_overflow */
	261	bfd_elf_generic_reloc, /* special_function */
	262	"R_XGATE_IMM8_HI", /* name */
0a1b45a2	263	false, /* partial_inplace */
a8acc5fb NC	264	0x00ff, /* src_mask */
a8acc5fb NC	265	0x00ff, /* dst_mask */
0a1b45a2	266	false), /* pcrel_offset */
a8acc5fb NC	267
	268	/* A 3 bit absolute relocation. */
	269	HOWTO (R_XGATE_IMM3, /* type */
	270	8, /* rightshift */
	271	1, /* size (0 = byte, 1 = short, 2 = long) */
	272	16, /* bitsize */
0a1b45a2	273	false, /* pc_relative */
a8acc5fb NC	274	0, /* bitpos */
	275	complain_overflow_dont, /* complain_on_overflow */
	276	bfd_elf_generic_reloc, /* special_function */
	277	"R_XGATE_IMM3", /* name */
0a1b45a2	278	false, /* partial_inplace */
a8acc5fb NC	279	0x00ff, /* src_mask */
a8acc5fb NC	280	0x00ff, /* dst_mask */
0a1b45a2	281	false), /* pcrel_offset */
a8acc5fb NC	282
	283	/* A 4 bit absolute relocation. */
	284	HOWTO (R_XGATE_IMM4, /* type */
	285	8, /* rightshift */
	286	1, /* size (0 = byte, 1 = short, 2 = long) */
	287	16, /* bitsize */
0a1b45a2	288	false, /* pc_relative */
a8acc5fb NC	289	0, /* bitpos */
	290	complain_overflow_dont, /* complain_on_overflow */
	291	bfd_elf_generic_reloc, /* special_function */
	292	"R_XGATE_IMM4", /* name */
0a1b45a2	293	false, /* partial_inplace */
a8acc5fb NC	294	0x00ff, /* src_mask */
a8acc5fb NC	295	0x00ff, /* dst_mask */
0a1b45a2	296	false), /* pcrel_offset */
a8acc5fb NC	297
	298	/* A 5 bit absolute relocation. */
	299	HOWTO (R_XGATE_IMM5, /* type */
	300	8, /* rightshift */
	301	1, /* size (0 = byte, 1 = short, 2 = long) */
	302	16, /* bitsize */
0a1b45a2	303	false, /* pc_relative */
a8acc5fb NC	304	0, /* bitpos */
	305	complain_overflow_dont, /* complain_on_overflow */
	306	bfd_elf_generic_reloc, /* special_function */
	307	"R_XGATE_IMM5", /* name */
0a1b45a2	308	false, /* partial_inplace */
a8acc5fb NC	309	0x00ff, /* src_mask */
a8acc5fb NC	310	0x00ff, /* dst_mask */
0a1b45a2	311	false), /* pcrel_offset */
a8acc5fb NC	312
	313	/* Mark beginning of a jump instruction (any form). */
	314	HOWTO (R_XGATE_RL_JUMP, /* type */
	315	0, /* rightshift */
	316	1, /* size (0 = byte, 1 = short, 2 = long) */
	317	0, /* bitsize */
0a1b45a2	318	false, /* pc_relative */
a8acc5fb NC	319	0, /* bitpos */
	320	complain_overflow_dont, /* complain_on_overflow */
	321	xgate_elf_ignore_reloc, /* special_function */
	322	"R_XGATE_RL_JUMP", /* name */
0a1b45a2	323	true, /* partial_inplace */
a8acc5fb NC	324	0, /* src_mask */
a8acc5fb NC	325	0, /* dst_mask */
0a1b45a2	326	true), /* pcrel_offset */
a8acc5fb NC	327
	328	/* Mark beginning of Gcc relaxation group instruction. */
	329	HOWTO (R_XGATE_RL_GROUP, /* type */
	330	0, /* rightshift */
	331	1, /* size (0 = byte, 1 = short, 2 = long) */
	332	0, /* bitsize */
0a1b45a2	333	false, /* pc_relative */
a8acc5fb NC	334	0, /* bitpos */
	335	complain_overflow_dont, /* complain_on_overflow */
	336	xgate_elf_ignore_reloc, /* special_function */
	337	"R_XGATE_RL_GROUP", /* name */
0a1b45a2	338	true, /* partial_inplace */
a8acc5fb NC	339	0, /* src_mask */
a8acc5fb NC	340	0, /* dst_mask */
0a1b45a2	341	true), /* pcrel_offset */
a8acc5fb NC	342	};
	343
	344	/* Map BFD reloc types to XGATE ELF reloc types. */
	345
	346	struct xgate_reloc_map
	347	{
	348	bfd_reloc_code_real_type bfd_reloc_val;
	349	unsigned char elf_reloc_val;
	350	};
	351
	352	static const struct xgate_reloc_map xgate_reloc_map[] =
	353	{
	354	{BFD_RELOC_NONE, R_XGATE_NONE},
	355	{BFD_RELOC_8, R_XGATE_8},
	356	{BFD_RELOC_8_PCREL, R_XGATE_PCREL_8},
	357	{BFD_RELOC_16_PCREL, R_XGATE_PCREL_16},
	358	{BFD_RELOC_16, R_XGATE_16},
	359	{BFD_RELOC_32, R_XGATE_32},
	360
	361	{BFD_RELOC_VTABLE_INHERIT, R_XGATE_GNU_VTINHERIT},
	362	{BFD_RELOC_VTABLE_ENTRY, R_XGATE_GNU_VTENTRY},
	363
	364	{BFD_RELOC_XGATE_LO16, R_XGATE_LO16},
	365	{BFD_RELOC_XGATE_GPAGE, R_XGATE_GPAGE},
	366	{BFD_RELOC_XGATE_24, R_XGATE_24},
	367	{BFD_RELOC_XGATE_PCREL_9, R_XGATE_PCREL_9},
	368	{BFD_RELOC_XGATE_PCREL_10, R_XGATE_PCREL_10},
	369	{BFD_RELOC_XGATE_IMM8_LO, R_XGATE_IMM8_LO},
	370	{BFD_RELOC_XGATE_IMM8_HI, R_XGATE_IMM8_HI},
	371	{BFD_RELOC_XGATE_IMM3, R_XGATE_IMM3},
	372	{BFD_RELOC_XGATE_IMM4, R_XGATE_IMM4},
	373	{BFD_RELOC_XGATE_IMM5, R_XGATE_IMM5},
	374
	375	{BFD_RELOC_XGATE_RL_JUMP, R_XGATE_RL_JUMP},
	376	{BFD_RELOC_XGATE_RL_GROUP, R_XGATE_RL_GROUP},
	377	};
	378
	379	static reloc_howto_type *
	380	bfd_elf32_bfd_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
	381	bfd_reloc_code_real_type code)
	382	{
	383	unsigned int i;
	384
	385	for (i = 0; i < ARRAY_SIZE (xgate_reloc_map); i++)
	386	if (xgate_reloc_map[i].bfd_reloc_val == code)
	387	return &elf_xgate_howto_table[xgate_reloc_map[i].elf_reloc_val];
4b24dd1a	388
a8acc5fb NC	389	return NULL;
	390	}
	391
	392	static reloc_howto_type *
	393	bfd_elf32_bfd_reloc_name_lookup (bfd abfd ATTRIBUTE_UNUSED, const char r_name)
	394	{
	395	unsigned int i;
	396
	397	for (i = 0; i < ARRAY_SIZE (elf_xgate_howto_table); i++)
	398	if (elf_xgate_howto_table[i].name != NULL
07d6d2b8	399	&& strcasecmp (elf_xgate_howto_table[i].name, r_name) == 0)
a8acc5fb NC	400	return &elf_xgate_howto_table[i];
	401
	402	return NULL;
	403	}
	404
	405	/* Set the howto pointer for an XGATE ELF reloc. */
	406
0a1b45a2	407	static bool
0aa13fee	408	xgate_info_to_howto_rel (bfd *abfd,
a8acc5fb NC	409	arelent *cache_ptr,
	410	Elf_Internal_Rela *dst)
	411	{
	412	unsigned int r_type;
	413
	414	r_type = ELF32_R_TYPE (dst->r_info);
5860e3f8 NC	415	if (r_type >= (unsigned int) R_XGATE_max)
5860e3f8 NC	416	{
695344c0	417	/* xgettext:c-format */
0aa13fee AM	418	_bfd_error_handler (_("%pB: unsupported relocation type %#x"),
0aa13fee AM	419	abfd, r_type);
f3185997	420	bfd_set_error (bfd_error_bad_value);
0a1b45a2	421	return false;
5860e3f8	422	}
a8acc5fb	423	cache_ptr->howto = &elf_xgate_howto_table[r_type];
0a1b45a2	424	return true;
a8acc5fb NC	425	}
a8acc5fb NC	426
a8acc5fb NC	427	/* Specific sections:
	428	- The .page0 is a data section that is mapped in [0x0000..0x00FF].
	429	Page0 accesses are faster on the M68HC12.
	430	- The .vectors is the section that represents the interrupt
	431	vectors.
	432	- The .xgate section is starts in 0xE08800 or as xgate sees it 0x0800. */
	433	static const struct bfd_elf_special_section elf32_xgate_special_sections[] =
	434	{
	435	{ STRING_COMMA_LEN (".eeprom"), 0, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE },
	436	{ STRING_COMMA_LEN (".page0"), 0, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE },
	437	{ STRING_COMMA_LEN (".softregs"), 0, SHT_NOBITS, SHF_ALLOC + SHF_WRITE },
	438	{ STRING_COMMA_LEN (".vectors"), 0, SHT_PROGBITS, SHF_ALLOC },
	439	/*{ STRING_COMMA_LEN (".xgate"), 0, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE },
	440	TODO finish this implementation */
	441	{ NULL, 0, 0, 0, 0 }
	442	};
	443
1594e052	444	/* Hook called when reading symbols. */
a8acc5fb	445
1594e052 AM	446	static void
	447	elf32_xgate_backend_symbol_processing (bfd *abfd ATTRIBUTE_UNUSED,
	448	asymbol *sym)
a8acc5fb	449	{
1594e052 AM	450	/* Mark xgate symbols. */
1594e052 AM	451	((elf_symbol_type *) sym)->internal_elf_sym.st_target_internal = 1;
a8acc5fb NC	452	}
	453
	454	/* This function is used for relocs which are only used for relaxing,
	455	which the linker should otherwise ignore. */
	456
1594e052	457	static bfd_reloc_status_type
a8acc5fb NC	458	xgate_elf_ignore_reloc (bfd *abfd ATTRIBUTE_UNUSED,
	459	arelent *reloc_entry,
	460	asymbol *symbol ATTRIBUTE_UNUSED,
	461	void *data ATTRIBUTE_UNUSED,
	462	asection *input_section,
	463	bfd *output_bfd,
	464	char **error_message ATTRIBUTE_UNUSED)
	465	{
	466	if (output_bfd != NULL)
	467	reloc_entry->address += input_section->output_offset;
	468	return bfd_reloc_ok;
	469	}
	470
1594e052	471	static bfd_reloc_status_type
a8acc5fb NC	472	xgate_elf_special_reloc (bfd *abfd ATTRIBUTE_UNUSED,
	473	arelent *reloc_entry ATTRIBUTE_UNUSED,
	474	asymbol *symbol ATTRIBUTE_UNUSED,
	475	void *data ATTRIBUTE_UNUSED,
	476	asection *input_section ATTRIBUTE_UNUSED,
	477	bfd *output_bfd ATTRIBUTE_UNUSED,
	478	char **error_message ATTRIBUTE_UNUSED)
	479	{
	480	abort ();
	481	}
	482
0a1b45a2	483	static bool
a8acc5fb NC	484	_bfd_xgate_elf_print_private_bfd_data (bfd abfd, void ptr)
	485	{
	486	FILE file = (FILE ) ptr;
	487
	488	BFD_ASSERT (abfd != NULL && ptr != NULL);
	489
	490	/* Print normal ELF private data. */
	491	_bfd_elf_print_private_bfd_data (abfd, ptr);
	492
	493	/* xgettext:c-format */
	494	fprintf (file, _("private flags = %lx:"), elf_elfheader (abfd)->e_flags);
	495
	496	if (elf_elfheader (abfd)->e_flags & E_XGATE_I32)
	497	fprintf (file, _("[abi=32-bit int, "));
	498	else
	499	fprintf (file, _("[abi=16-bit int, "));
	500
	501	if (elf_elfheader (abfd)->e_flags & E_XGATE_F64)
	502	fprintf (file, _("64-bit double, "));
	503	else
	504	fprintf (file, _("32-bit double, "));
	505	if (elf_elfheader (abfd)->e_flags & EF_XGATE_MACH)
	506	fprintf (file, _("cpu=XGATE]"));
	507	else
	508	fprintf (file, _("error reading cpu type from elf private data"));
	509	fputc ('\n', file);
	510
0a1b45a2	511	return true;
a8acc5fb NC	512	}
a8acc5fb NC	513
07d6d2b8 AM	514	#define ELF_ARCH bfd_arch_xgate
07d6d2b8 AM	515	#define ELF_MACHINE_CODE EM_XGATE
a8acc5fb	516
07d6d2b8	517	#define ELF_MAXPAGESIZE 0x1000
a8acc5fb	518
07d6d2b8 AM	519	#define TARGET_BIG_SYM xgate_elf32_vec
07d6d2b8 AM	520	#define TARGET_BIG_NAME "elf32-xgate"
a8acc5fb	521
07d6d2b8	522	#define elf_info_to_howto_rel xgate_info_to_howto_rel
07d6d2b8	523	#define elf_backend_special_sections elf32_xgate_special_sections
1594e052	524	#define elf_backend_symbol_processing elf32_xgate_backend_symbol_processing
a8acc5fb NC	525	#define bfd_elf32_bfd_print_private_bfd_data _bfd_xgate_elf_print_private_bfd_data
a8acc5fb NC	526
a8acc5fb	527	#include "elf32-target.h"