Subversion Repositories openrisc

/* OR32-specific support for 32-bit ELF

   Copyright 2002, 2004, 2005, 2007 Free Software Foundation, Inc.

   Copyright (C) 2010 Embecosm Limited

   Contributed by Ivan Guzvinec  <ivang@opencores.org>

   Modified by Gyorgy Jeney <nog@sdf.lonestar.org> and

   Balint Cristian <rezso@rdsor.ro>

   Changed from Rel to Rela by Joern Rennecke <joern.rennecke@embecosm.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 "libbfd.h"

#include "elf-bfd.h"

#include "elf/or32.h"

#include "elf/common.h"

#include "libiberty.h"

/* We need RELA in order to handle highpart relocations independent of

   the presence and/or location and/or value of a lowpart relocation.  */

#if 0

/* Try to minimize the amount of space occupied by relocation tables

   on the ROM (not that the ROM won't be swamped by other ELF overhead).  */

#define USE_REL 1

#endif

/* Set the right machine number for an OR32 ELF file.  */

static bfd_boolean

or32_elf_object_p (bfd *abfd)

{

  (void) bfd_default_set_arch_mach (abfd, bfd_arch_or32, 0);

  return TRUE;

}

/* The final processing done just before writing out an OR32 ELF object file.

   This gets the OR32 architecture right based on the machine number.  */

static void

or32_elf_final_write_processing (bfd *abfd,

                                 bfd_boolean linker ATTRIBUTE_UNUSED)

{

        /* Pad the output file so that the aligned reloc section addresses aren't

         * outside the file */

        unsigned long zero = 0;

  if (bfd_seek (abfd, elf_tdata (abfd)->next_file_pos, SEEK_SET) != 0

      || bfd_bwrite (&zero, sizeof(zero), abfd) != sizeof(zero))

    (*_bfd_error_handler) (_("%B: failed to ensure that reloc sections aren't outside file"), abfd);

  elf_elfheader (abfd)->e_flags &=~ EF_OR32_MACH;

}

#if 0 /* Not needed for RELA.  */

static bfd_reloc_status_type

or32_elf_generic_reloc (bfd *abfd,

                   arelent *reloc_entry,

                   asymbol *symbol,

                   void * data,

                   asection *input_section,

                   bfd *output_bfd,

                   char **error_message ATTRIBUTE_UNUSED)

{

  bfd_signed_vma val;

  bfd_reloc_status_type status;

  bfd_boolean relocatable;

  if (bfd_is_und_section (symbol->section) /*RGD fix linker undefined miss*/

      && output_bfd == (bfd *) NULL)

    return bfd_reloc_undefined;

  relocatable = (output_bfd != NULL);

  if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))

    return bfd_reloc_outofrange;

  /* Build up the field adjustment in VAL.  */

  val = 0;

  if (!relocatable || (symbol->flags & BSF_SECTION_SYM) != 0)

  {

    /* Either we're calculating the final field value or we have a

       relocation against a section symbol.  Add in the section's

       offset or address.  */

    val += symbol->section->output_section->vma;

    val += symbol->section->output_offset;

  }

  if (!relocatable)

  {

    /* We're calculating the final field value.  Add in the symbol's value

             and, if pc-relative, subtract the address of the field itself.  */

    val += symbol->value;

    if (reloc_entry->howto->pc_relative)

      val -= input_section->output_section->vma;

  }

  if (reloc_entry->howto->pc_relative)

    val -= input_section->output_offset;

  /* VAL is now the final adjustment.  If we're keeping this relocation

     in the output file, and if the relocation uses a separate addend,

     we just need to add VAL to that addend.  Otherwise we need to add

     VAL to the relocation field itself.  */

  if (relocatable && !reloc_entry->howto->partial_inplace)

    reloc_entry->addend += val;

  else

  {

    /* Add in the separate addend, if any.  */

    val += reloc_entry->addend;

    /* Add VAL to the relocation field.  */

    status = _bfd_relocate_contents (reloc_entry->howto, abfd, val,

                                     (bfd_byte *) data

                                     + reloc_entry->address);

    if (status != bfd_reloc_ok)

      return status;

  }

  if (relocatable)

    reloc_entry->address += input_section->output_offset;

  return bfd_reloc_ok;

}

/* Do a R_OR32_CONSTH relocation.  This has to be done in combination

   with a R_OR32_CONST reloc, because there is a carry from the LO16 to

   the HI16.  Here we just save the information we need; we do the

   actual relocation when we see the LO16.  OR32 ELF requires that the

   LO16 immediately follow the HI16.  As a GNU extension, we permit an

   arbitrary number of HI16 relocs to be associated with a single LO16

   reloc.  This extension permits gcc to output the HI and LO relocs

   itself. This code is copied from the elf32-mips.c.  */

struct or32_consth

{

  struct or32_consth *next;

  bfd_byte *data;

  asection *input_section;

  arelent rel;

};

/* FIXME: This should not be a static variable.  */

static struct or32_consth *or32_consth_list;

static bfd_reloc_status_type

or32_elf_consth_reloc (bfd *abfd ATTRIBUTE_UNUSED,

                       arelent *reloc_entry,

                       asymbol *symbol ATTRIBUTE_UNUSED,

                       void * data,

                       asection *input_section,

                       bfd *output_bfd,

                       char **error_message ATTRIBUTE_UNUSED)

{

  struct or32_consth *n;

  if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))

    return bfd_reloc_outofrange;

  /* Save the information, and let LO16 do the actual relocation.  */

  n = bfd_malloc (sizeof *n);

  if (n == NULL)

    return bfd_reloc_outofrange;

  /* Push this reloc on the list of pending relocations */

  n->next = or32_consth_list;

  n->data = data;

  n->input_section = input_section;

  n->rel = *reloc_entry;

  or32_consth_list = n;

  if (output_bfd != NULL)

    reloc_entry->address += input_section->output_offset;

  return bfd_reloc_ok;

}

/* Do a R_OR32_CONST relocation.  This is a straightforward 16 bit

   inplace relocation; this function exists in order to do the

   R_OR32_CONSTH relocation described above.  */

static bfd_reloc_status_type

or32_elf_const_reloc (bfd *abfd,

                      arelent *reloc_entry,

                      asymbol *symbol,

                      void * data,

                      asection *input_section,

                      bfd *output_bfd,

                      char **error_message)

{

  bfd_vma vallo;

  if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))

    return bfd_reloc_outofrange;

  vallo = bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address) & 0xffff;

  while (or32_consth_list != NULL)

  {

    bfd_reloc_status_type ret;

    struct or32_consth *hi;

    hi = or32_consth_list;

    /* VALLO is a signed 16-bit number.  Bias it by 0x8000 so that any

       carry or borrow will induce a change of +1 or -1 in the high part.  */

    hi->rel.addend += vallo;

    ret = or32_elf_generic_reloc (abfd, &hi->rel, symbol, hi->data,

                                   hi->input_section, output_bfd,

                                   error_message);

    if (ret != bfd_reloc_ok)

      return ret;

    or32_consth_list = hi->next;

    free (hi);

  }

  return or32_elf_generic_reloc (abfd, reloc_entry, symbol, data,

                                  input_section, output_bfd,

                                  error_message);

}

#endif

static reloc_howto_type elf_or32_howto_table[] =

{

  /* This reloc does nothing.  */

  HOWTO (R_OR32_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_OR32_NONE",         /* name */

         FALSE,                 /* partial_inplace */

         0,                      /* src_mask */

         0,                      /* dst_mask */

         FALSE),                /* pcrel_offset */

  /* A standard 32 bit relocation.  */

  HOWTO (R_OR32_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_OR32_32",           /* name */

         FALSE,                 /* partial_inplace */

         0,                      /* src_mask */

         0xffffffff,            /* dst_mask */

         FALSE),                /* pcrel_offset */

  /* A standard 16 bit relocation.  */

  HOWTO (R_OR32_16,             /* type */

         0,                      /* rightshift */

         1,                     /* size (0 = byte, 1 = short, 2 = long) */

         16,                    /* bitsize */

         FALSE,                 /* pc_relative */

         0,                      /* bitpos */

         complain_overflow_bitfield, /* complain_on_overflow */

         bfd_elf_generic_reloc, /* special_function */

         "R_OR32_16",           /* name */

         FALSE,                 /* partial_inplace */

         0,                      /* src_mask */

         0x0000ffff,            /* dst_mask */

         FALSE),                /* pcrel_offset */

  /* A standard 8 bit relocation.  */

  HOWTO (R_OR32_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_OR32_8",            /* name */

         FALSE,                 /* partial_inplace */

         0,                      /* src_mask */

         0x000000ff,            /* dst_mask */

         FALSE),                /* pcrel_offset */

  /* A standard low 16 bit relocation.  */

  HOWTO (R_OR32_CONST,          /* type */

         0,                      /* rightshift */

         2,                     /* 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_OR32_CONST",        /* name */

         FALSE,                 /* partial_inplace */

         0,                      /* src_mask */

         0x0000ffff,            /* dst_mask */

         FALSE),                /* pcrel_offset */

  /* A standard high 16 bit relocation.  */

  HOWTO (R_OR32_CONSTH,         /* type */

         16,                    /* rightshift */

         2,                     /* 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_OR32_CONSTH",       /* name */

         FALSE,                 /* partial_inplace */

         0,                      /* src_mask */

         0x0000ffff,            /* dst_mask */

         FALSE),                /* pcrel_offset */

  /* A standard branch relocation.  */

  HOWTO (R_OR32_JUMPTARG,       /* type */

         2,                     /* rightshift */

         2,                     /* size (0 = byte, 1 = short, 2 = long) */

         28,                    /* bitsize */

         TRUE,                  /* pc_relative */

         0,                      /* bitpos */

         complain_overflow_dont, /* complain_on_overflow */

         bfd_elf_generic_reloc, /* special_function */

         "R_OR32_JUMPTARG",     /* name */

         FALSE,                 /* partial_inplace */

         0,                      /* src_mask */

         0x03ffffff,            /* dst_mask */

         TRUE),                 /* pcrel_offset */

  /* GNU extension to record C++ vtable hierarchy.  */

  HOWTO (R_OR32_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_OR32_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_OR32_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_OR32_GNU_VTENTRY",   /* name */

         FALSE,                 /* partial_inplace */

         0,                     /* src_mask */

         0,                     /* dst_mask */

         FALSE),                /* pcrel_offset */

};

static bfd_boolean

or32_relocate_section (bfd * output_bfd,

                       struct bfd_link_info *info,

                       bfd * input_bfd,

                       asection * input_section,

                       bfd_byte * contents,

                       Elf_Internal_Rela * relocs,

                       Elf_Internal_Sym * local_syms,

                       asection ** local_sections)

{

  Elf_Internal_Shdr *symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;

  struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (input_bfd);

  Elf_Internal_Rela *rel= rel = relocs;

  Elf_Internal_Rela *relend = relocs + input_section->reloc_count;

  for (; rel < relend; rel++)

    {

      int r_type = ELF32_R_TYPE (rel->r_info);

      reloc_howto_type *howto;

      unsigned long r_symndx;

      struct elf_link_hash_entry *h = NULL;

      Elf_Internal_Sym *sym = NULL;

      asection *sec = NULL;

      bfd_vma relocation = 0;

      bfd_reloc_status_type r;

      const char *name = NULL;

      if ((unsigned) r_type >= ARRAY_SIZE (elf_or32_howto_table))

        {

          bfd_set_error (bfd_error_bad_value);

          return FALSE;

        }

      if (r_type == R_OR32_GNU_VTENTRY

          || r_type == R_OR32_GNU_VTINHERIT)

        continue;

      howto = &elf_or32_howto_table[r_type];

      r_symndx = ELF32_R_SYM (rel->r_info);

      if (r_symndx < symtab_hdr->sh_info)

        {

          sym = local_syms + r_symndx;

          sec = local_sections[r_symndx];

          relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);

          name = bfd_elf_string_from_elf_section

            (input_bfd, symtab_hdr->sh_link, sym->st_name);

          name = (name == NULL) ? bfd_section_name (input_bfd, sec) : name;

        }

      else

        {

          bfd_boolean unresolved_reloc, warned;

          RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,

                                   r_symndx, symtab_hdr, sym_hashes,

                                   h, sec, relocation,

                                   unresolved_reloc, warned);

        }

      if (sec != NULL && elf_discarded_section (sec))

        {

          /* For relocs against symbols from removed linkonce sections,

             or sections discarded by a linker script, we just want the

             section contents zeroed.  Avoid any special processing.  */

          _bfd_clear_contents (howto, input_bfd, contents + rel->r_offset);

          rel->r_info = 0;

          rel->r_addend = 0;

          continue;

        }

      if (info->relocatable)

        continue;

      r = _bfd_final_link_relocate (howto, input_bfd, input_section, contents,

                                    rel->r_offset, relocation, rel->r_addend);

      if (r != bfd_reloc_ok)

        {

          const char *msg = NULL;

          switch (r)

            {

            /* FIXME: give useful messages for possible errors.  */

            default:

              msg = _("internal error: unknown error");

              break;

            }

          if (msg)

            r = info->callbacks->warning

              (info, msg, name, input_bfd, input_section, rel->r_offset);

          if (!r)

            return FALSE;

        }

    }

  return TRUE;

}

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

struct or32_reloc_map

{

  bfd_reloc_code_real_type  bfd_reloc_val;

  unsigned char             elf_reloc_val;

};

static const struct or32_reloc_map or32_reloc_map[] =

{

  { BFD_RELOC_NONE, R_OR32_NONE },

  { BFD_RELOC_32, R_OR32_32 },

  { BFD_RELOC_16, R_OR32_16 },

  { BFD_RELOC_8, R_OR32_8 },

  { BFD_RELOC_LO16, R_OR32_CONST },

  { BFD_RELOC_HI16, R_OR32_CONSTH },

  { BFD_RELOC_28_PCREL_S2, R_OR32_JUMPTARG },

  { BFD_RELOC_VTABLE_INHERIT, R_OR32_GNU_VTINHERIT },

  { BFD_RELOC_VTABLE_ENTRY, R_OR32_GNU_VTENTRY },

};

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 = ARRAY_SIZE (or32_reloc_map); i--;)

    if (or32_reloc_map[i].bfd_reloc_val == code)

      return &elf_or32_howto_table[or32_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 < sizeof (elf_or32_howto_table) / sizeof (elf_or32_howto_table[0]);

       i++)

    if (elf_or32_howto_table[i].name != NULL

        && strcasecmp (elf_or32_howto_table[i].name, r_name) == 0)

      return &elf_or32_howto_table[i];

  return NULL;

}

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

static void

or32_info_to_howto_rel (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_OR32_max);

  cache_ptr->howto = &elf_or32_howto_table[r_type];

  asymbol *s = *(cache_ptr->sym_ptr_ptr);

  if (ELF32_R_SYM(dst->r_info) && (s->flags & BSF_SECTION_SYM))

    cache_ptr->sym_ptr_ptr = s->section->symbol_ptr_ptr;

}

#define TARGET_LITTLE_SYM       bfd_elf32_or32_little_vec

#define TARGET_LITTLE_NAME      "elf32-littleor32"

#define TARGET_BIG_SYM          bfd_elf32_or32_big_vec

#define TARGET_BIG_NAME         "elf32-or32"

#define ELF_ARCH                bfd_arch_or32

#define ELF_MACHINE_CODE        EM_OPENRISC

#define ELF_MACHINE_ALT1        EM_OR32

#define ELF_MAXPAGESIZE         0x2000

#define elf_info_to_howto       0

#define elf_info_to_howto_rel   or32_info_to_howto_rel

#define elf_backend_object_p    or32_elf_object_p

#define elf_backend_final_write_processing \

                                or32_elf_final_write_processing

#define elf_backend_rela_normal 1

#define elf_backend_relocate_section or32_relocate_section

#include "elf32-target.h"