bfd/elf32-s12z.c

   1 /* Freescale S12Z-specific support for 32-bit ELF
   2    Copyright (C) 1999-2019 Free Software Foundation, Inc.
   3    (Heavily copied from the D10V port by Martin Hunt (hunt@cygnus.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"
  27
  28 #include "elf/s12z.h"
  29
  30 /* Relocation functions.  */
  31 static reloc_howto_type *bfd_elf32_bfd_reloc_type_lookup
  32   (bfd *, bfd_reloc_code_real_type);
  33 static bfd_boolean s12z_info_to_howto_rel
  34   (bfd *, arelent *, Elf_Internal_Rela *);
  35
  36 static bfd_reloc_status_type
  37 opru18_reloc (bfd *abfd, arelent *reloc_entry, struct bfd_symbol *symbol,
  38                     void *data, asection *input_section ATTRIBUTE_UNUSED,
  39                     bfd *output ATTRIBUTE_UNUSED, char **msg ATTRIBUTE_UNUSED)
  40 {
  41   /* This reloc is used for 18 bit General Operand Addressing Postbyte in the
  42      INST opru18 form.  This is an 18 bit reloc, but the most significant bit
  43      is shifted one place to the left of where it would normally be.  See
  44      Appendix A.4 of the S12Z reference manual.  */
  45
  46   bfd_size_type octets = reloc_entry->address * bfd_octets_per_byte (abfd);
  47   bfd_vma result = bfd_get_24 (abfd, (unsigned char *) data + octets);
  48   bfd_vma val = bfd_asymbol_value (symbol);
  49
  50   /* Keep the wanted bits and discard the rest.  */
  51   result &= 0xFA0000;
  52
  53   val += symbol->section->output_section->vma;
  54   val += symbol->section->output_offset;
  55
  56   /* The lowest 17 bits are copied verbatim.  */
  57   result |= val & 0x1FFFF;
  58
  59   /* The 18th bit is put into the 19th position.  */
  60   result |= (val & 0x020000) << 1;
  61
  62   bfd_put_24 (abfd, result, (unsigned char *) data + octets);
  63
  64   return bfd_reloc_ok;
  65 }
  66
  67
  68 static bfd_reloc_status_type
  69 shift_addend_reloc (bfd *abfd, arelent *reloc_entry, struct bfd_symbol *symbol ATTRIBUTE_UNUSED,
  70                     void *data ATTRIBUTE_UNUSED, asection *input_section ATTRIBUTE_UNUSED,
  71                     bfd *output ATTRIBUTE_UNUSED, char **msg ATTRIBUTE_UNUSED)
  72 {
  73   /* This is a really peculiar reloc, which is done for compatibility
  74      with the Freescale toolchain.
  75
  76      That toolchain appears to (ab)use the lowest 15 bits of the addend for
  77      the purpose of holding flags.  The purpose of these flags are unknown.
  78      So in this function, when writing the bfd we left shift the addend by
  79      15, and when reading we right shift it by 15 (discarding the lower bits).
  80
  81      This allows the linker to work with object files generated by Freescale,
  82      as well as by Gas.  */
  83
  84   if (abfd->is_linker_input)
  85     reloc_entry->addend >>= 15;
  86   else
  87     reloc_entry->addend <<= 15;
  88
  89   return bfd_reloc_continue;
  90 }
  91
  92 #define USE_REL 0
  93
  94 static reloc_howto_type elf_s12z_howto_table[] =
  95 {
  96   /* This reloc does nothing.  */
  97   HOWTO (R_S12Z_NONE,   /* type */
  98          0,                     /* rightshift */
  99          3,                     /* size (0 = byte, 1 = short, 2 = long) */
 100          0,                     /* bitsize */
 101          FALSE,                 /* pc_relative */
 102          0,                     /* bitpos */
 103          complain_overflow_dont,/* complain_on_overflow */
 104          bfd_elf_generic_reloc, /* special_function */
 105          "R_S12Z_NONE", /* name */
 106          FALSE,                 /* partial_inplace */
 107          0,                     /* src_mask */
 108          0,                     /* dst_mask */
 109          FALSE),                /* pcrel_offset */
 110
 111   /* A 24 bit absolute relocation emitted by the OPR mode operands  */
 112   HOWTO (R_S12Z_OPR,        /* type */
 113          0,                     /* rightshift */
 114          5,                     /* size (0 = byte, 1 = short, 2 = long) */
 115          24,                    /* bitsize */
 116          FALSE,                 /* pc_relative */
 117          0,                     /* bitpos */
 118          complain_overflow_bitfield,    /* complain_on_overflow */
 119          shift_addend_reloc,
 120          "R_S12Z_OPR",  /* name */
 121          FALSE,                 /* partial_inplace */
 122          0x00ffffff,            /* src_mask */
 123          0x00ffffff,            /* dst_mask */
 124          FALSE),                /* pcrel_offset */
 125
 126   /* The purpose of this reloc is not known */
 127   HOWTO (R_S12Z_UKNWN_2,        /* type */
 128          0,                     /* rightshift */
 129          3,                     /* size (0 = byte, 1 = short, 2 = long) */
 130          0,                     /* bitsize */
 131          FALSE,                 /* pc_relative */
 132          0,                     /* bitpos */
 133          complain_overflow_dont,/* complain_on_overflow */
 134          bfd_elf_generic_reloc, /* special_function */
 135          "R_S12Z_UKNWN_2",      /* name */
 136          FALSE,                 /* partial_inplace */
 137          0,                     /* src_mask */
 138          0,                     /* dst_mask */
 139          FALSE),                /* pcrel_offset */
 140
 141   /* A 15 bit PC-rel relocation */
 142   HOWTO (R_S12Z_PCREL_7_15,     /* type */
 143          0,                     /* rightshift */
 144          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 145          15,                    /* bitsize */
 146          TRUE,                  /* pc_relative */
 147          0,                     /* bitpos */
 148          complain_overflow_bitfield,    /* complain_on_overflow */
 149          shift_addend_reloc,
 150          "R_S12Z_PCREL_7_15",   /* name */
 151          FALSE,                 /* partial_inplace */
 152          0x00,                  /* src_mask */
 153          0x007fff,              /* dst_mask */
 154          TRUE),         /* pcrel_offset */
 155
 156   /* A 24 bit absolute relocation emitted by EXT24 mode operands */
 157   HOWTO (R_S12Z_EXT24,        /* type */
 158          0,                     /* rightshift */
 159          5,                     /* size (0 = byte, 1 = short, 2 = long) */
 160          24,                    /* bitsize */
 161          FALSE,                 /* pc_relative */
 162          0,                     /* bitpos */
 163          complain_overflow_bitfield,    /* complain_on_overflow */
 164          bfd_elf_generic_reloc, /* special_function */
 165          "R_S12Z_EXT24",        /* name */
 166          FALSE,                 /* partial_inplace */
 167          0x00000000,            /* src_mask */
 168          0x00ffffff,            /* dst_mask */
 169          FALSE),                /* pcrel_offset */
 170
 171   /* An 18 bit absolute relocation */
 172   HOWTO (R_S12Z_EXT18,        /* type */
 173          0,                     /* rightshift */
 174          5,                     /* size (0 = byte, 1 = short, 2 = long) */
 175          18,                    /* bitsize */
 176          FALSE,                 /* pc_relative */
 177          0,                     /* bitpos */
 178          complain_overflow_bitfield,    /* complain_on_overflow */
 179          opru18_reloc,          /* special_function */
 180          "R_S12Z_EXT18",        /* name */
 181          FALSE,                 /* partial_inplace */
 182          0x00000000,            /* src_mask */
 183          0x0005ffff,            /* dst_mask */
 184          FALSE),                /* pcrel_offset */
 185
 186   /* A 32 bit absolute relocation.   This kind of relocation is
 187      schizophrenic - Although they appear in sections named .rela.debug.*
 188      in some sections they behave as RELA relocs, but in others they have
 189      an added of zero and behave as REL.
 190
 191      It is not recommended that new code  emits this reloc.   It is here
 192      only to support existing elf files generated by third party
 193      applications.  */
 194
 195   HOWTO (R_S12Z_CW32,        /* type */
 196          0,                     /* rightshift */
 197          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 198          32,                    /* bitsize */
 199          FALSE,                 /* pc_relative */
 200          0,                     /* bitpos */
 201          complain_overflow_bitfield,    /* complain_on_overflow */
 202          bfd_elf_generic_reloc, /* special_function */
 203          "R_S12Z_CW32", /* name */
 204          FALSE,                 /* partial_inplace */
 205          0xffffffff,            /* src_mask */
 206          0xffffffff,            /* dst_mask */
 207          FALSE),                /* pcrel_offset */
 208
 209   /* A 32 bit absolute relocation  */
 210   HOWTO (R_S12Z_EXT32,        /* type */
 211          0,                     /* rightshift */
 212          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 213          32,                    /* bitsize */
 214          FALSE,                 /* pc_relative */
 215          0,                     /* bitpos */
 216          complain_overflow_bitfield,    /* complain_on_overflow */
 217          bfd_elf_generic_reloc, /* special_function */
 218          "R_S12Z_EXT32",        /* name */
 219          FALSE,                 /* partial_inplace */
 220          0x00000000,            /* src_mask */
 221          0xffffffff,            /* dst_mask */
 222          FALSE),                /* pcrel_offset */
 223 };
 224
 225 /* Map BFD reloc types to S12Z ELF reloc types.  */
 226
 227 struct s12z_reloc_map
 228 {
 229   bfd_reloc_code_real_type bfd_reloc_val;
 230   unsigned char elf_reloc_val;
 231 };
 232
 233 static const struct s12z_reloc_map s12z_reloc_map[] =
 234 {
 235   /* bfd reloc val */  /* elf reloc val */
 236   {BFD_RELOC_NONE,     R_S12Z_NONE},
 237   {BFD_RELOC_32,       R_S12Z_EXT32},
 238   {BFD_RELOC_24,       R_S12Z_EXT24},
 239   {BFD_RELOC_16_PCREL, R_S12Z_PCREL_7_15},
 240   {BFD_RELOC_S12Z_OPR, R_S12Z_OPR}
 241 };
 242
 243 static reloc_howto_type *
 244 bfd_elf32_bfd_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
 245                                  bfd_reloc_code_real_type code)
 246 {
 247   unsigned int i;
 248
 249   for (i = 0;
 250        i < sizeof (s12z_reloc_map) / sizeof (struct s12z_reloc_map);
 251        i++)
 252     {
 253       if (s12z_reloc_map[i].bfd_reloc_val == code)
 254         {
 255           return &elf_s12z_howto_table[s12z_reloc_map[i].elf_reloc_val];
 256         }
 257     }
 258
 259   printf ("%s:%d Not found type %d\n", __FILE__, __LINE__, code);
 260
 261   return NULL;
 262 }
 263
 264 static reloc_howto_type *
 265 bfd_elf32_bfd_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
 266                                  const char *r_name)
 267 {
 268   unsigned int i;
 269
 270   for (i = 0;
 271        i < (sizeof (elf_s12z_howto_table)
 272             / sizeof (elf_s12z_howto_table[0]));
 273        i++)
 274     if (elf_s12z_howto_table[i].name != NULL
 275         && strcasecmp (elf_s12z_howto_table[i].name, r_name) == 0)
 276       return &elf_s12z_howto_table[i];
 277
 278   return NULL;
 279 }
 280
 281 /* Set the howto pointer for an S12Z ELF reloc.  */
 282
 283 static bfd_boolean
 284 s12z_info_to_howto_rel (bfd *abfd,
 285                           arelent *cache_ptr, Elf_Internal_Rela *dst)
 286 {
 287   unsigned int  r_type = ELF32_R_TYPE (dst->r_info);
 288
 289   if (r_type >= (unsigned int) R_S12Z_max)
 290     {
 291       /* xgettext:c-format */
 292       _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
 293                           abfd, r_type);
 294       bfd_set_error (bfd_error_bad_value);
 295       return FALSE;
 296     }
 297
 298   cache_ptr->howto = &elf_s12z_howto_table[r_type];
 299   return TRUE;
 300 }
 301
 302 static bfd_boolean
 303 s12z_elf_set_mach_from_flags (bfd *abfd)
 304 {
 305   bfd_default_set_arch_mach (abfd, bfd_arch_s12z, 0);
 306
 307   return TRUE;
 308 }
 309
 310 #define ELF_ARCH                bfd_arch_s12z
 311 #define ELF_MACHINE_CODE        EM_S12Z
 312 #define ELF_MAXPAGESIZE         0x1000
 313
 314 #define TARGET_BIG_SYM          s12z_elf32_vec
 315 #define TARGET_BIG_NAME         "elf32-s12z"
 316
 317 #define elf_info_to_howto                       NULL
 318 #define elf_info_to_howto_rel                   s12z_info_to_howto_rel
 319 #define elf_backend_object_p                    s12z_elf_set_mach_from_flags
 320
 321 #include "elf32-target.h"