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

/* D30V-specific support for 32-bit ELF
   Copyright 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
   Free Software Foundation, Inc.
   Contributed by Martin Hunt (hunt@cygnus.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 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.  */

#include "bfd.h"
#include "sysdep.h"
#include "libbfd.h"
#include "elf-bfd.h"
#include "elf/d30v.h"

static reloc_howto_type *bfd_elf32_bfd_reloc_type_lookup
  PARAMS ((bfd *abfd, bfd_reloc_code_real_type code));
static void d30v_info_to_howto_rel
  PARAMS ((bfd *, arelent *, Elf_Internal_Rela *));
static void d30v_info_to_howto_rela
  PARAMS ((bfd *, arelent *, Elf_Internal_Rela *));
static bfd_reloc_status_type bfd_elf_d30v_reloc PARAMS ((
     bfd *abfd,
     arelent *reloc_entry,
     asymbol *symbol,
     PTR data,
     asection *input_section,
     bfd *output_bfd,
     char **error_message));
static bfd_reloc_status_type bfd_elf_d30v_reloc_21 PARAMS ((
     bfd *abfd,
     arelent *reloc_entry,
     asymbol *symbol,
     PTR data,
     asection *input_section,
     bfd *output_bfd,
     char **error_message));

static reloc_howto_type elf_d30v_howto_table[] =
{
  /* This reloc does nothing.  */
  HOWTO (R_D30V_NONE,		/* 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_D30V_NONE",		/* name */
	 FALSE,			/* partial_inplace */
	 0,			/* src_mask */
	 0,			/* dst_mask */
	 FALSE),		/* pcrel_offset */

  /* A 6 bit absolute relocation */
  HOWTO (R_D30V_6,		/* type */
	 0,			/* rightshift */
	 2,			/* size (0 = byte, 1 = short, 2 = long) */
	 6,			/* bitsize */
	 FALSE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_bitfield, /* complain_on_overflow */
	 bfd_elf_generic_reloc,	/* special_function */
	 "R_D30V_6",		/* name */
	 FALSE,			/* partial_inplace */
	 0x3f,			/* src_mask */
	 0x3f,			/* dst_mask */
	 FALSE),		/* pcrel_offset */

  /* A relative 9 bit relocation, right shifted by 3 */
  HOWTO (R_D30V_9_PCREL,	/* type */
	 3,			/* rightshift */
	 2,			/* size (0 = byte, 1 = short, 2 = long) */
	 6,			/* bitsize */
	 TRUE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_signed, /* complain_on_overflow */
	 bfd_elf_d30v_reloc_21,	/* special_function */
	 "R_D30V_9_PCREL",	/* name */
	 FALSE,			/* partial_inplace */
	 0x3f,			/* src_mask */
	 0x3f,			/* dst_mask */
	 TRUE),			/* pcrel_offset */

  /* A relative 9 bit relocation, right shifted by 3 */
  HOWTO (R_D30V_9_PCREL_R,	/* type */
	 3,			/* rightshift */
	 2,			/* size (0 = byte, 1 = short, 2 = long) */
	 6,			/* bitsize */
	 TRUE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_signed, /* complain_on_overflow */
	 bfd_elf_d30v_reloc_21,	/* special_function */
	 "R_D30V_9_PCREL_R",	/* name */
	 FALSE,			/* partial_inplace */
	 0x3f,			/* src_mask */
	 0x3f,			/* dst_mask */
	 TRUE),			/* pcrel_offset */

  /* An absolute 15 bit relocation, right shifted by 3 */
  HOWTO (R_D30V_15,		/* type */
	 3,			/* rightshift */
	 2,			/* size (0 = byte, 1 = short, 2 = long) */
	 12,			/* bitsize */
	 FALSE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_signed, /* complain_on_overflow */
	 bfd_elf_generic_reloc,	/* special_function */
	 "R_D30V_15",		/* name */
	 FALSE,			/* partial_inplace */
	 0xfff,			/* src_mask */
	 0xfff,			/* dst_mask */
	 FALSE),		/* pcrel_offset */

  /* A relative 15 bit relocation, right shifted by 3 */
  HOWTO (R_D30V_15_PCREL,	/* type */
	 3,			/* rightshift */
	 2,			/* size (0 = byte, 1 = short, 2 = long) */
	 12,			/* bitsize */
	 TRUE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_signed, /* complain_on_overflow */
	 bfd_elf_d30v_reloc_21,	/* special_function */
	 "R_D30V_15_PCREL",	/* name */
	 FALSE,			/* partial_inplace */
	 0xfff,			/* src_mask */
	 0xfff,			/* dst_mask */
	 TRUE),			/* pcrel_offset */

  /* A relative 15 bit relocation, right shifted by 3 */
  HOWTO (R_D30V_15_PCREL_R,	/* type */
	 3,			/* rightshift */
	 2,			/* size (0 = byte, 1 = short, 2 = long) */
	 12,			/* bitsize */
	 TRUE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_signed, /* complain_on_overflow */
	 bfd_elf_d30v_reloc_21,	/* special_function */
	 "R_D30V_15_PCREL_R",	/* name */
	 FALSE,			/* partial_inplace */
	 0xfff,			/* src_mask */
	 0xfff,			/* dst_mask */
	 TRUE),			/* pcrel_offset */

  /* An absolute 21 bit relocation, right shifted by 3 */
  HOWTO (R_D30V_21,		/* type */
	 3,			/* rightshift */
	 2,			/* size (0 = byte, 1 = short, 2 = long) */
	 18,			/* bitsize */
	 FALSE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_signed, /* complain_on_overflow */
	 bfd_elf_generic_reloc,	/* special_function */
	 "R_D30V_21",		/* name */
	 FALSE,			/* partial_inplace */
	 0x3ffff,		/* src_mask */
	 0x3ffff,		/* dst_mask */
	 FALSE),		/* pcrel_offset */

  /* A relative 21 bit relocation, right shifted by 3 */
  HOWTO (R_D30V_21_PCREL,	/* type */
	 3,			/* rightshift */
	 2,			/* size (0 = byte, 1 = short, 2 = long) */
	 18,			/* bitsize */
	 TRUE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_signed, /* complain_on_overflow */
	 bfd_elf_d30v_reloc_21,	/* special_function */
	 "R_D30V_21_PCREL",	/* name */
	 FALSE,			/* partial_inplace */
	 0x3ffff,		/* src_mask */
	 0x3ffff,		/* dst_mask */
	 TRUE),			/* pcrel_offset */

  /* A relative 21 bit relocation, right shifted by 3, in the Right container */
  HOWTO (R_D30V_21_PCREL_R,	/* type */
	 3,			/* rightshift */
	 2,			/* size (0 = byte, 1 = short, 2 = long) */
	 18,			/* bitsize */
	 TRUE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_signed, /* complain_on_overflow */
	 bfd_elf_d30v_reloc_21,	/* special_function */
	 "R_D30V_21_PCREL_R",	/* name */
	 FALSE,			/* partial_inplace */
	 0x3ffff,		/* src_mask */
	 0x3ffff,		/* dst_mask */
	 TRUE),			/* pcrel_offset */

  /* A D30V 32 bit absolute relocation */
  HOWTO (R_D30V_32,		/* type */
	 0,			/* rightshift */
	 4,			/* size (0 = byte, 1 = short, 2 = long) */
	 32,			/* bitsize */
	 FALSE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_bitfield, /* complain_on_overflow */
	 bfd_elf_d30v_reloc,	/* special_function */
	 "R_D30V_32",		/* name */
	 FALSE,			/* partial_inplace */
	 0xffffffff,		/* src_mask */
	 0xffffffff,		/* dst_mask */
	 FALSE),		/* pcrel_offset */

  /* A relative 32 bit relocation */
  HOWTO (R_D30V_32_PCREL,	/* type */
	 0,			/* rightshift */
	 4,			/* size (0 = byte, 1 = short, 2 = long) */
	 32,			/* bitsize */
	 TRUE,			/* pc_relative */
	 0,			/* bitpos */
	 complain_overflow_signed, /* complain_on_overflow */
	 bfd_elf_d30v_reloc,	/* special_function */
	 "R_D30V_32_PCREL",	/* name */
	 FALSE,			/* partial_inplace */
	 0xffffffff,		/* src_mask */
	 0xffffffff,		/* dst_mask */
	 TRUE),			/* pcrel_offset */

  /* A regular 32 bit absolute relocation */
  HOWTO (R_D30V_32_NORMAL,		/* 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_D30V_32_NORMAL",	/* name */
	 FALSE,			/* partial_inplace */
	 0xffffffff,		/* src_mask */
	 0xffffffff,		/* dst_mask */
	 FALSE),		/* pcrel_offset */

};

#define MAX32 ((bfd_signed_vma) 0x7fffffff)
#define MIN32 (- MAX32 - 1)

static bfd_reloc_status_type
bfd_elf_d30v_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message)
     bfd *abfd;
     arelent *reloc_entry;
     asymbol *symbol;
     PTR data;
     asection *input_section;
     bfd *output_bfd;
     char **error_message;
{
  bfd_signed_vma relocation;
  bfd_vma in1, in2, num;
  bfd_vma tmp_addr = 0;
  bfd_reloc_status_type r;
  asection *reloc_target_output_section;
  bfd_size_type addr = reloc_entry->address;
  bfd_reloc_status_type flag = bfd_reloc_ok;
  bfd_vma output_base = 0;
  reloc_howto_type *howto = reloc_entry->howto;
  int make_absolute = 0;

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

  r = bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
                             input_section, output_bfd, error_message);
  if (r != bfd_reloc_continue)
    return r;

  /* a hacked-up version of bfd_perform_reloc() follows */
 if (bfd_is_und_section (symbol->section)
      && (symbol->flags & BSF_WEAK) == 0
      && output_bfd == (bfd *) NULL)
    flag = bfd_reloc_undefined;

  /* Is the address of the relocation really within the section?  */
  if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
    return bfd_reloc_outofrange;

  /* Work out which section the relocation is targeted at and the
     initial relocation command value.  */

  /* Get symbol value.  (Common symbols are special.)  */
  if (bfd_is_com_section (symbol->section))
    relocation = 0;
  else
    relocation = symbol->value;

  reloc_target_output_section = symbol->section->output_section;

  /* Convert input-section-relative symbol value to absolute.  */
  output_base = reloc_target_output_section->vma;
  relocation += output_base + symbol->section->output_offset;

  /* Add in supplied addend.  */
  relocation += reloc_entry->addend;

  /* Here the variable relocation holds the final address of the
     symbol we are relocating against, plus any addend.  */

  if (howto->pc_relative)
    {
      tmp_addr = input_section->output_section->vma + input_section->output_offset
	+ reloc_entry->address;
      relocation -= tmp_addr;
    }

  in1 = bfd_get_32 (abfd, (bfd_byte *) data + addr);
  in2 = bfd_get_32 (abfd, (bfd_byte *) data + addr + 4);

  /* extract the addend */
  num = ((in2 & 0x3FFFF)
	 | ((in2 & 0xFF00000) >> 2)
	 | ((in1 & 0x3F) << 26));
  in1 &= 0xFFFFFFC0;
  in2 = 0x80000000;

  relocation += num;

  if (howto->pc_relative && howto->bitsize == 32)
    {
      /* The D30V has a PC that doesn't wrap and PC-relative jumps are
	 signed, so a PC-relative jump can't be more than +/- 2^31 bytes.
	 If one exceeds this, change it to an absolute jump.  */
      if (relocation > MAX32 || relocation < MIN32)
	{
	  relocation = (relocation + tmp_addr) & 0xffffffff;
	  make_absolute = 1;
	}
    }

  in1 |= (relocation >> 26) & 0x3F;	/* top 6 bits */
  in2 |= ((relocation & 0x03FC0000) << 2);  /* next 8 bits */
  in2 |= relocation & 0x0003FFFF;		/* bottom 18 bits */

  /* change a PC-relative instruction to its absolute equivalent */
  /* with this simple hack */
  if (make_absolute)
    in1 |= 0x00100000;

  bfd_put_32 (abfd, in1, (bfd_byte *) data + addr);
  bfd_put_32 (abfd, in2, (bfd_byte *) data + addr + 4);

  return flag;
}

static bfd_reloc_status_type
bfd_elf_d30v_reloc_21 (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message)
     bfd *abfd;
     arelent *reloc_entry;
     asymbol *symbol;
     PTR data;
     asection *input_section;
     bfd *output_bfd;
     char **error_message;
{
  bfd_vma relocation;
  bfd_vma in1, num;
  bfd_reloc_status_type r;
  asection *reloc_target_output_section;
  bfd_size_type addr = reloc_entry->address;
  bfd_reloc_status_type flag = bfd_reloc_ok;
  bfd_vma output_base = 0;
  reloc_howto_type *howto = reloc_entry->howto;
  int mask, max;

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

  r = bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
                             input_section, output_bfd, error_message);
  if (r != bfd_reloc_continue)
    return r;

  /* a hacked-up version of bfd_perform_reloc() follows */
 if (bfd_is_und_section (symbol->section)
      && (symbol->flags & BSF_WEAK) == 0
      && output_bfd == (bfd *) NULL)
    flag = bfd_reloc_undefined;

  /* Is the address of the relocation really within the section?  */
  if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
    return bfd_reloc_outofrange;

  /* Work out which section the relocation is targeted at and the
     initial relocation command value.  */

  /* Get symbol value.  (Common symbols are special.)  */
  if (bfd_is_com_section (symbol->section))
    relocation = 0;
  else
    relocation = symbol->value;

  reloc_target_output_section = symbol->section->output_section;

  /* Convert input-section-relative symbol value to absolute.  */
  output_base = reloc_target_output_section->vma;
  relocation += output_base + symbol->section->output_offset;

  /* Add in supplied addend.  */
  relocation += reloc_entry->addend;

  /* Here the variable relocation holds the final address of the
     symbol we are relocating against, plus any addend.  */

  if (howto->pc_relative)
    {
      relocation -= (input_section->output_section->vma
		     + input_section->output_offset);
      if (howto->pcrel_offset)
	relocation -= reloc_entry->address;
    }

  in1 = bfd_get_32 (abfd, (bfd_byte *) data + addr);

  mask =  (1 << howto->bitsize) - 1;
  if (howto->bitsize == 6)
    mask <<= 12;
  max = (1 << (howto->bitsize + 2)) - 1;

  /* extract the addend */
  num = in1 & mask;  /* 18 bits */
  if (howto->bitsize == 6)
    num >>= 12;
  num <<= 3; /* shift left 3 */
  in1 &= ~mask;  /* mask out addend */

  relocation += num;
  if (howto->type == R_D30V_21_PCREL_R || howto->type == R_D30V_15_PCREL_R ||
      howto->type == R_D30V_9_PCREL_R )
    {
      relocation += 4;
    }

  if ((int)relocation < 0 )
    {
      if (~(int)relocation > max)
	flag = bfd_reloc_overflow;
    }
  else
    {
      if ((int)relocation > max)
	flag = bfd_reloc_overflow;
    }
  relocation >>= 3;
  if (howto->bitsize == 6)
    in1 |= ((relocation & (mask >> 12)) << 12);
  else
    in1 |= relocation & mask;

  bfd_put_32 (abfd, in1, (bfd_byte *) data + addr);

  return flag;
}

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

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

static const struct d30v_reloc_map d30v_reloc_map[] =
{
  { BFD_RELOC_NONE, R_D30V_NONE, },
  { BFD_RELOC_D30V_6, R_D30V_6 },
  { BFD_RELOC_D30V_9_PCREL, R_D30V_9_PCREL },
  { BFD_RELOC_D30V_9_PCREL_R, R_D30V_9_PCREL_R },
  { BFD_RELOC_D30V_15, R_D30V_15 },
  { BFD_RELOC_D30V_15_PCREL, R_D30V_15_PCREL },
  { BFD_RELOC_D30V_15_PCREL_R, R_D30V_15_PCREL_R },
  { BFD_RELOC_D30V_21, R_D30V_21 },
  { BFD_RELOC_D30V_21_PCREL, R_D30V_21_PCREL },
  { BFD_RELOC_D30V_21_PCREL_R, R_D30V_21_PCREL_R },
  { BFD_RELOC_D30V_32, R_D30V_32 },
  { BFD_RELOC_D30V_32_PCREL, R_D30V_32_PCREL },
  { BFD_RELOC_32, R_D30V_32_NORMAL },
};

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

  for (i = 0;
       i < sizeof (d30v_reloc_map) / sizeof (struct d30v_reloc_map);
       i++)
    {
      if (d30v_reloc_map[i].bfd_reloc_val == code)
	return &elf_d30v_howto_table[d30v_reloc_map[i].elf_reloc_val];
    }

  return NULL;
}

/* Set the howto pointer for an D30V ELF reloc (type REL).  */

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

  r_type = ELF32_R_TYPE (dst->r_info);
  BFD_ASSERT (r_type < (unsigned int) R_D30V_max);
  cache_ptr->howto = &elf_d30v_howto_table[r_type];
}

/* Set the howto pointer for an D30V ELF reloc (type RELA).  */

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

  r_type = ELF32_R_TYPE (dst->r_info);
  BFD_ASSERT (r_type < (unsigned int) R_D30V_max);
  cache_ptr->howto = &elf_d30v_howto_table[r_type];
}

#define ELF_ARCH		bfd_arch_d30v
#define ELF_MACHINE_CODE	EM_D30V
#define ELF_MACHINE_ALT1	EM_CYGNUS_D30V
#define ELF_MAXPAGESIZE		0x1000

#define TARGET_BIG_SYM          bfd_elf32_d30v_vec
#define TARGET_BIG_NAME		"elf32-d30v"

#define elf_info_to_howto	d30v_info_to_howto_rela
#define elf_info_to_howto_rel	d30v_info_to_howto_rel
#define elf_backend_object_p	0
#define elf_backend_final_write_processing	0

#include "elf32-target.h"
Commit	Line	Data
252b5132	1	/* D30V-specific support for 32-bit ELF
9553c638	2	Copyright 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
82e51918	3	Free Software Foundation, Inc.
252b5132 RH	4	Contributed by Martin Hunt (hunt@cygnus.com).
	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
3e110533	20	Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
252b5132 RH	21
	22	#include "bfd.h"
	23	#include "sysdep.h"
	24	#include "libbfd.h"
	25	#include "elf-bfd.h"
1b452ec6	26	#include "elf/d30v.h"
252b5132 RH	27
	28	static reloc_howto_type *bfd_elf32_bfd_reloc_type_lookup
	29	PARAMS ((bfd *abfd, bfd_reloc_code_real_type code));
	30	static void d30v_info_to_howto_rel
947216bf	31	PARAMS ((bfd , arelent , Elf_Internal_Rela *));
252b5132	32	static void d30v_info_to_howto_rela
947216bf	33	PARAMS ((bfd , arelent , Elf_Internal_Rela *));
252b5132 RH	34	static bfd_reloc_status_type bfd_elf_d30v_reloc PARAMS ((
	35	bfd *abfd,
	36	arelent *reloc_entry,
	37	asymbol *symbol,
	38	PTR data,
	39	asection *input_section,
	40	bfd *output_bfd,
	41	char **error_message));
	42	static bfd_reloc_status_type bfd_elf_d30v_reloc_21 PARAMS ((
	43	bfd *abfd,
	44	arelent *reloc_entry,
	45	asymbol *symbol,
	46	PTR data,
	47	asection *input_section,
	48	bfd *output_bfd,
	49	char **error_message));
	50
252b5132 RH	51	static reloc_howto_type elf_d30v_howto_table[] =
	52	{
	53	/* This reloc does nothing. */
	54	HOWTO (R_D30V_NONE, /* type */
	55	0, /* rightshift */
	56	2, /* size (0 = byte, 1 = short, 2 = long) */
	57	32, /* bitsize */
b34976b6	58	FALSE, /* pc_relative */
252b5132 RH	59	0, /* bitpos */
	60	complain_overflow_bitfield, /* complain_on_overflow */
	61	bfd_elf_generic_reloc, /* special_function */
	62	"R_D30V_NONE", /* name */
b34976b6	63	FALSE, /* partial_inplace */
252b5132 RH	64	0, /* src_mask */
252b5132 RH	65	0, /* dst_mask */
b34976b6	66	FALSE), /* pcrel_offset */
252b5132 RH	67
	68	/* A 6 bit absolute relocation */
	69	HOWTO (R_D30V_6, /* type */
	70	0, /* rightshift */
	71	2, /* size (0 = byte, 1 = short, 2 = long) */
	72	6, /* bitsize */
b34976b6	73	FALSE, /* pc_relative */
252b5132 RH	74	0, /* bitpos */
	75	complain_overflow_bitfield, /* complain_on_overflow */
	76	bfd_elf_generic_reloc, /* special_function */
	77	"R_D30V_6", /* name */
b34976b6	78	FALSE, /* partial_inplace */
252b5132 RH	79	0x3f, /* src_mask */
252b5132 RH	80	0x3f, /* dst_mask */
b34976b6	81	FALSE), /* pcrel_offset */
252b5132 RH	82
	83	/* A relative 9 bit relocation, right shifted by 3 */
	84	HOWTO (R_D30V_9_PCREL, /* type */
	85	3, /* rightshift */
	86	2, /* size (0 = byte, 1 = short, 2 = long) */
	87	6, /* bitsize */
b34976b6	88	TRUE, /* pc_relative */
252b5132 RH	89	0, /* bitpos */
	90	complain_overflow_signed, /* complain_on_overflow */
	91	bfd_elf_d30v_reloc_21, /* special_function */
	92	"R_D30V_9_PCREL", /* name */
b34976b6	93	FALSE, /* partial_inplace */
252b5132 RH	94	0x3f, /* src_mask */
252b5132 RH	95	0x3f, /* dst_mask */
b34976b6	96	TRUE), /* pcrel_offset */
252b5132 RH	97
	98	/* A relative 9 bit relocation, right shifted by 3 */
	99	HOWTO (R_D30V_9_PCREL_R, /* type */
	100	3, /* rightshift */
	101	2, /* size (0 = byte, 1 = short, 2 = long) */
	102	6, /* bitsize */
b34976b6	103	TRUE, /* pc_relative */
252b5132 RH	104	0, /* bitpos */
	105	complain_overflow_signed, /* complain_on_overflow */
	106	bfd_elf_d30v_reloc_21, /* special_function */
	107	"R_D30V_9_PCREL_R", /* name */
b34976b6	108	FALSE, /* partial_inplace */
252b5132 RH	109	0x3f, /* src_mask */
252b5132 RH	110	0x3f, /* dst_mask */
b34976b6	111	TRUE), /* pcrel_offset */
252b5132 RH	112
	113	/* An absolute 15 bit relocation, right shifted by 3 */
	114	HOWTO (R_D30V_15, /* type */
	115	3, /* rightshift */
	116	2, /* size (0 = byte, 1 = short, 2 = long) */
	117	12, /* bitsize */
b34976b6	118	FALSE, /* pc_relative */
252b5132 RH	119	0, /* bitpos */
	120	complain_overflow_signed, /* complain_on_overflow */
	121	bfd_elf_generic_reloc, /* special_function */
	122	"R_D30V_15", /* name */
b34976b6	123	FALSE, /* partial_inplace */
252b5132 RH	124	0xfff, /* src_mask */
252b5132 RH	125	0xfff, /* dst_mask */
b34976b6	126	FALSE), /* pcrel_offset */
252b5132 RH	127
	128	/* A relative 15 bit relocation, right shifted by 3 */
	129	HOWTO (R_D30V_15_PCREL, /* type */
	130	3, /* rightshift */
	131	2, /* size (0 = byte, 1 = short, 2 = long) */
	132	12, /* bitsize */
b34976b6	133	TRUE, /* pc_relative */
252b5132 RH	134	0, /* bitpos */
	135	complain_overflow_signed, /* complain_on_overflow */
	136	bfd_elf_d30v_reloc_21, /* special_function */
	137	"R_D30V_15_PCREL", /* name */
b34976b6	138	FALSE, /* partial_inplace */
252b5132 RH	139	0xfff, /* src_mask */
252b5132 RH	140	0xfff, /* dst_mask */
b34976b6	141	TRUE), /* pcrel_offset */
252b5132 RH	142
	143	/* A relative 15 bit relocation, right shifted by 3 */
	144	HOWTO (R_D30V_15_PCREL_R, /* type */
	145	3, /* rightshift */
	146	2, /* size (0 = byte, 1 = short, 2 = long) */
	147	12, /* bitsize */
b34976b6	148	TRUE, /* pc_relative */
252b5132 RH	149	0, /* bitpos */
	150	complain_overflow_signed, /* complain_on_overflow */
	151	bfd_elf_d30v_reloc_21, /* special_function */
	152	"R_D30V_15_PCREL_R", /* name */
b34976b6	153	FALSE, /* partial_inplace */
252b5132 RH	154	0xfff, /* src_mask */
252b5132 RH	155	0xfff, /* dst_mask */
b34976b6	156	TRUE), /* pcrel_offset */
252b5132 RH	157
	158	/* An absolute 21 bit relocation, right shifted by 3 */
	159	HOWTO (R_D30V_21, /* type */
	160	3, /* rightshift */
	161	2, /* size (0 = byte, 1 = short, 2 = long) */
	162	18, /* bitsize */
b34976b6	163	FALSE, /* pc_relative */
252b5132 RH	164	0, /* bitpos */
	165	complain_overflow_signed, /* complain_on_overflow */
	166	bfd_elf_generic_reloc, /* special_function */
	167	"R_D30V_21", /* name */
b34976b6	168	FALSE, /* partial_inplace */
252b5132 RH	169	0x3ffff, /* src_mask */
252b5132 RH	170	0x3ffff, /* dst_mask */
b34976b6	171	FALSE), /* pcrel_offset */
252b5132 RH	172
	173	/* A relative 21 bit relocation, right shifted by 3 */
	174	HOWTO (R_D30V_21_PCREL, /* type */
	175	3, /* rightshift */
	176	2, /* size (0 = byte, 1 = short, 2 = long) */
	177	18, /* bitsize */
b34976b6	178	TRUE, /* pc_relative */
252b5132 RH	179	0, /* bitpos */
	180	complain_overflow_signed, /* complain_on_overflow */
	181	bfd_elf_d30v_reloc_21, /* special_function */
	182	"R_D30V_21_PCREL", /* name */
b34976b6	183	FALSE, /* partial_inplace */
252b5132 RH	184	0x3ffff, /* src_mask */
252b5132 RH	185	0x3ffff, /* dst_mask */
b34976b6	186	TRUE), /* pcrel_offset */
252b5132 RH	187
	188	/* A relative 21 bit relocation, right shifted by 3, in the Right container */
	189	HOWTO (R_D30V_21_PCREL_R, /* type */
	190	3, /* rightshift */
	191	2, /* size (0 = byte, 1 = short, 2 = long) */
	192	18, /* bitsize */
b34976b6	193	TRUE, /* pc_relative */
252b5132 RH	194	0, /* bitpos */
	195	complain_overflow_signed, /* complain_on_overflow */
	196	bfd_elf_d30v_reloc_21, /* special_function */
	197	"R_D30V_21_PCREL_R", /* name */
b34976b6	198	FALSE, /* partial_inplace */
252b5132 RH	199	0x3ffff, /* src_mask */
252b5132 RH	200	0x3ffff, /* dst_mask */
b34976b6	201	TRUE), /* pcrel_offset */
252b5132 RH	202
	203	/* A D30V 32 bit absolute relocation */
	204	HOWTO (R_D30V_32, /* type */
	205	0, /* rightshift */
	206	4, /* size (0 = byte, 1 = short, 2 = long) */
	207	32, /* bitsize */
b34976b6	208	FALSE, /* pc_relative */
252b5132 RH	209	0, /* bitpos */
	210	complain_overflow_bitfield, /* complain_on_overflow */
	211	bfd_elf_d30v_reloc, /* special_function */
	212	"R_D30V_32", /* name */
b34976b6	213	FALSE, /* partial_inplace */
252b5132 RH	214	0xffffffff, /* src_mask */
252b5132 RH	215	0xffffffff, /* dst_mask */
b34976b6	216	FALSE), /* pcrel_offset */
252b5132 RH	217
	218	/* A relative 32 bit relocation */
	219	HOWTO (R_D30V_32_PCREL, /* type */
	220	0, /* rightshift */
	221	4, /* size (0 = byte, 1 = short, 2 = long) */
	222	32, /* bitsize */
b34976b6	223	TRUE, /* pc_relative */
252b5132 RH	224	0, /* bitpos */
	225	complain_overflow_signed, /* complain_on_overflow */
	226	bfd_elf_d30v_reloc, /* special_function */
	227	"R_D30V_32_PCREL", /* name */
b34976b6	228	FALSE, /* partial_inplace */
252b5132 RH	229	0xffffffff, /* src_mask */
252b5132 RH	230	0xffffffff, /* dst_mask */
b34976b6	231	TRUE), /* pcrel_offset */
252b5132 RH	232
	233	/* A regular 32 bit absolute relocation */
	234	HOWTO (R_D30V_32_NORMAL, /* type */
	235	0, /* rightshift */
	236	2, /* size (0 = byte, 1 = short, 2 = long) */
	237	32, /* bitsize */
b34976b6	238	FALSE, /* pc_relative */
252b5132 RH	239	0, /* bitpos */
	240	complain_overflow_bitfield, /* complain_on_overflow */
	241	bfd_elf_generic_reloc, /* special_function */
b34976b6 AM	242	"R_D30V_32_NORMAL", /* name */
b34976b6 AM	243	FALSE, /* partial_inplace */
252b5132 RH	244	0xffffffff, /* src_mask */
252b5132 RH	245	0xffffffff, /* dst_mask */
b34976b6	246	FALSE), /* pcrel_offset */
252b5132 RH	247
	248	};
	249
fc633e5b AM	250	#define MAX32 ((bfd_signed_vma) 0x7fffffff)
fc633e5b AM	251	#define MIN32 (- MAX32 - 1)
252b5132 RH	252
	253	static bfd_reloc_status_type
	254	bfd_elf_d30v_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message)
	255	bfd *abfd;
	256	arelent *reloc_entry;
	257	asymbol *symbol;
	258	PTR data;
	259	asection *input_section;
	260	bfd *output_bfd;
	261	char **error_message;
	262	{
fc633e5b	263	bfd_signed_vma relocation;
252b5132 RH	264	bfd_vma in1, in2, num;
	265	bfd_vma tmp_addr = 0;
	266	bfd_reloc_status_type r;
	267	asection *reloc_target_output_section;
	268	bfd_size_type addr = reloc_entry->address;
	269	bfd_reloc_status_type flag = bfd_reloc_ok;
	270	bfd_vma output_base = 0;
	271	reloc_howto_type *howto = reloc_entry->howto;
	272	int make_absolute = 0;
	273
b51a1338 RH	274	if (output_bfd != (bfd *) NULL)
	275	{
	276	/* Partial linking -- do nothing. */
	277	reloc_entry->address += input_section->output_offset;
	278	return bfd_reloc_ok;
	279	}
	280
252b5132 RH	281	r = bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
	282	input_section, output_bfd, error_message);
	283	if (r != bfd_reloc_continue)
a7c10850	284	return r;
252b5132 RH	285
	286	/* a hacked-up version of bfd_perform_reloc() follows */
	287	if (bfd_is_und_section (symbol->section)
	288	&& (symbol->flags & BSF_WEAK) == 0
	289	&& output_bfd == (bfd *) NULL)
	290	flag = bfd_reloc_undefined;
	291
	292	/* Is the address of the relocation really within the section? */
07515404	293	if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
252b5132 RH	294	return bfd_reloc_outofrange;
252b5132 RH	295
4cc11e76	296	/* Work out which section the relocation is targeted at and the
252b5132 RH	297	initial relocation command value. */
	298
	299	/* Get symbol value. (Common symbols are special.) */
	300	if (bfd_is_com_section (symbol->section))
	301	relocation = 0;
	302	else
	303	relocation = symbol->value;
	304
	305	reloc_target_output_section = symbol->section->output_section;
	306
	307	/* Convert input-section-relative symbol value to absolute. */
b51a1338	308	output_base = reloc_target_output_section->vma;
252b5132 RH	309	relocation += output_base + symbol->section->output_offset;
	310
	311	/* Add in supplied addend. */
	312	relocation += reloc_entry->addend;
	313
	314	/* Here the variable relocation holds the final address of the
	315	symbol we are relocating against, plus any addend. */
	316
82e51918	317	if (howto->pc_relative)
252b5132	318	{
a7c10850	319	tmp_addr = input_section->output_section->vma + input_section->output_offset
252b5132 RH	320	+ reloc_entry->address;
	321	relocation -= tmp_addr;
	322	}
a7c10850	323
252b5132 RH	324	in1 = bfd_get_32 (abfd, (bfd_byte *) data + addr);
	325	in2 = bfd_get_32 (abfd, (bfd_byte *) data + addr + 4);
	326
	327	/* extract the addend */
	328	num = ((in2 & 0x3FFFF)
	329	\| ((in2 & 0xFF00000) >> 2)
	330	\| ((in1 & 0x3F) << 26));
	331	in1 &= 0xFFFFFFC0;
	332	in2 = 0x80000000;
a7c10850	333
252b5132 RH	334	relocation += num;
252b5132 RH	335
82e51918	336	if (howto->pc_relative && howto->bitsize == 32)
252b5132	337	{
fc633e5b AM	338	/* The D30V has a PC that doesn't wrap and PC-relative jumps are
	339	signed, so a PC-relative jump can't be more than +/- 2^31 bytes.
	340	If one exceeds this, change it to an absolute jump. */
	341	if (relocation > MAX32 \|\| relocation < MIN32)
252b5132 RH	342	{
	343	relocation = (relocation + tmp_addr) & 0xffffffff;
	344	make_absolute = 1;
	345	}
	346	}
a7c10850	347
252b5132	348	in1 \|= (relocation >> 26) & 0x3F; /* top 6 bits */
a7c10850	349	in2 \|= ((relocation & 0x03FC0000) << 2); /* next 8 bits */
252b5132	350	in2 \|= relocation & 0x0003FFFF; /* bottom 18 bits */
a7c10850	351
252b5132 RH	352	/* change a PC-relative instruction to its absolute equivalent */
	353	/* with this simple hack */
	354	if (make_absolute)
	355	in1 \|= 0x00100000;
	356
	357	bfd_put_32 (abfd, in1, (bfd_byte *) data + addr);
	358	bfd_put_32 (abfd, in2, (bfd_byte *) data + addr + 4);
252b5132	359
a7c10850 KH	360	return flag;
a7c10850 KH	361	}
252b5132 RH	362
	363	static bfd_reloc_status_type
	364	bfd_elf_d30v_reloc_21 (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message)
	365	bfd *abfd;
	366	arelent *reloc_entry;
	367	asymbol *symbol;
	368	PTR data;
	369	asection *input_section;
	370	bfd *output_bfd;
	371	char **error_message;
	372	{
	373	bfd_vma relocation;
	374	bfd_vma in1, num;
	375	bfd_reloc_status_type r;
	376	asection *reloc_target_output_section;
	377	bfd_size_type addr = reloc_entry->address;
	378	bfd_reloc_status_type flag = bfd_reloc_ok;
	379	bfd_vma output_base = 0;
	380	reloc_howto_type *howto = reloc_entry->howto;
	381	int mask, max;
	382
b51a1338 RH	383	if (output_bfd != (bfd *) NULL)
	384	{
	385	/* Partial linking -- do nothing. */
	386	reloc_entry->address += input_section->output_offset;
	387	return bfd_reloc_ok;
	388	}
a7c10850	389
252b5132 RH	390	r = bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
	391	input_section, output_bfd, error_message);
	392	if (r != bfd_reloc_continue)
a7c10850	393	return r;
252b5132 RH	394
	395	/* a hacked-up version of bfd_perform_reloc() follows */
	396	if (bfd_is_und_section (symbol->section)
	397	&& (symbol->flags & BSF_WEAK) == 0
	398	&& output_bfd == (bfd *) NULL)
	399	flag = bfd_reloc_undefined;
	400
	401	/* Is the address of the relocation really within the section? */
07515404	402	if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
252b5132 RH	403	return bfd_reloc_outofrange;
252b5132 RH	404
4cc11e76	405	/* Work out which section the relocation is targeted at and the
252b5132 RH	406	initial relocation command value. */
	407
	408	/* Get symbol value. (Common symbols are special.) */
	409	if (bfd_is_com_section (symbol->section))
	410	relocation = 0;
	411	else
	412	relocation = symbol->value;
	413
	414	reloc_target_output_section = symbol->section->output_section;
	415
	416	/* Convert input-section-relative symbol value to absolute. */
b51a1338	417	output_base = reloc_target_output_section->vma;
252b5132 RH	418	relocation += output_base + symbol->section->output_offset;
	419
	420	/* Add in supplied addend. */
	421	relocation += reloc_entry->addend;
	422
	423	/* Here the variable relocation holds the final address of the
	424	symbol we are relocating against, plus any addend. */
	425
82e51918	426	if (howto->pc_relative)
252b5132	427	{
b51a1338 RH	428	relocation -= (input_section->output_section->vma
b51a1338 RH	429	+ input_section->output_offset);
82e51918	430	if (howto->pcrel_offset)
252b5132 RH	431	relocation -= reloc_entry->address;
	432	}
	433
252b5132 RH	434	in1 = bfd_get_32 (abfd, (bfd_byte *) data + addr);
	435
	436	mask = (1 << howto->bitsize) - 1;
	437	if (howto->bitsize == 6)
	438	mask <<= 12;
	439	max = (1 << (howto->bitsize + 2)) - 1;
	440
	441	/* extract the addend */
	442	num = in1 & mask; /* 18 bits */
	443	if (howto->bitsize == 6)
	444	num >>= 12;
	445	num <<= 3; /* shift left 3 */
	446	in1 &= ~mask; /* mask out addend */
	447
	448	relocation += num;
	449	if (howto->type == R_D30V_21_PCREL_R \|\| howto->type == R_D30V_15_PCREL_R \|\|
	450	howto->type == R_D30V_9_PCREL_R )
	451	{
	452	relocation += 4;
	453	}
	454
	455	if ((int)relocation < 0 )
	456	{
	457	if (~(int)relocation > max)
	458	flag = bfd_reloc_overflow;
	459	}
	460	else
	461	{
	462	if ((int)relocation > max)
	463	flag = bfd_reloc_overflow;
	464	}
a7c10850	465	relocation >>= 3;
252b5132 RH	466	if (howto->bitsize == 6)
	467	in1 \|= ((relocation & (mask >> 12)) << 12);
	468	else
	469	in1 \|= relocation & mask;
	470
	471	bfd_put_32 (abfd, in1, (bfd_byte *) data + addr);
a7c10850	472
252b5132	473	return flag;
a7c10850	474	}
252b5132 RH	475
	476	/* Map BFD reloc types to D30V ELF reloc types. */
	477
	478	struct d30v_reloc_map
	479	{
	480	bfd_reloc_code_real_type bfd_reloc_val;
	481	unsigned char elf_reloc_val;
	482	};
	483
252b5132 RH	484	static const struct d30v_reloc_map d30v_reloc_map[] =
	485	{
	486	{ BFD_RELOC_NONE, R_D30V_NONE, },
	487	{ BFD_RELOC_D30V_6, R_D30V_6 },
	488	{ BFD_RELOC_D30V_9_PCREL, R_D30V_9_PCREL },
	489	{ BFD_RELOC_D30V_9_PCREL_R, R_D30V_9_PCREL_R },
	490	{ BFD_RELOC_D30V_15, R_D30V_15 },
	491	{ BFD_RELOC_D30V_15_PCREL, R_D30V_15_PCREL },
	492	{ BFD_RELOC_D30V_15_PCREL_R, R_D30V_15_PCREL_R },
	493	{ BFD_RELOC_D30V_21, R_D30V_21 },
	494	{ BFD_RELOC_D30V_21_PCREL, R_D30V_21_PCREL },
	495	{ BFD_RELOC_D30V_21_PCREL_R, R_D30V_21_PCREL_R },
	496	{ BFD_RELOC_D30V_32, R_D30V_32 },
	497	{ BFD_RELOC_D30V_32_PCREL, R_D30V_32_PCREL },
	498	{ BFD_RELOC_32, R_D30V_32_NORMAL },
	499	};
	500
	501	static reloc_howto_type *
	502	bfd_elf32_bfd_reloc_type_lookup (abfd, code)
5f771d47	503	bfd *abfd ATTRIBUTE_UNUSED;
252b5132 RH	504	bfd_reloc_code_real_type code;
	505	{
	506	unsigned int i;
	507
	508	for (i = 0;
	509	i < sizeof (d30v_reloc_map) / sizeof (struct d30v_reloc_map);
	510	i++)
	511	{
	512	if (d30v_reloc_map[i].bfd_reloc_val == code)
	513	return &elf_d30v_howto_table[d30v_reloc_map[i].elf_reloc_val];
	514	}
	515
	516	return NULL;
	517	}
	518
	519	/* Set the howto pointer for an D30V ELF reloc (type REL). */
	520
	521	static void
	522	d30v_info_to_howto_rel (abfd, cache_ptr, dst)
5f771d47	523	bfd *abfd ATTRIBUTE_UNUSED;
252b5132	524	arelent *cache_ptr;
947216bf	525	Elf_Internal_Rela *dst;
252b5132 RH	526	{
	527	unsigned int r_type;
	528
	529	r_type = ELF32_R_TYPE (dst->r_info);
	530	BFD_ASSERT (r_type < (unsigned int) R_D30V_max);
	531	cache_ptr->howto = &elf_d30v_howto_table[r_type];
	532	}
	533
	534	/* Set the howto pointer for an D30V ELF reloc (type RELA). */
	535
	536	static void
	537	d30v_info_to_howto_rela (abfd, cache_ptr, dst)
5f771d47	538	bfd *abfd ATTRIBUTE_UNUSED;
252b5132	539	arelent *cache_ptr;
947216bf	540	Elf_Internal_Rela *dst;
252b5132 RH	541	{
	542	unsigned int r_type;
	543
	544	r_type = ELF32_R_TYPE (dst->r_info);
	545	BFD_ASSERT (r_type < (unsigned int) R_D30V_max);
	546	cache_ptr->howto = &elf_d30v_howto_table[r_type];
	547	}
	548
	549	#define ELF_ARCH bfd_arch_d30v
aa4f99bb AO	550	#define ELF_MACHINE_CODE EM_D30V
aa4f99bb AO	551	#define ELF_MACHINE_ALT1 EM_CYGNUS_D30V
252b5132 RH	552	#define ELF_MAXPAGESIZE 0x1000
	553
	554	#define TARGET_BIG_SYM bfd_elf32_d30v_vec
	555	#define TARGET_BIG_NAME "elf32-d30v"
	556
	557	#define elf_info_to_howto d30v_info_to_howto_rela
	558	#define elf_info_to_howto_rel d30v_info_to_howto_rel
	559	#define elf_backend_object_p 0
	560	#define elf_backend_final_write_processing 0
	561
	562	#include "elf32-target.h"