bfd/elf32-s12z.c

   1 /* Freescale S12Z-specific support for 32-bit ELF
   2    Copyright (C) 1999-2018 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 shift_addend_reloc (bfd *abfd, arelent *reloc_entry, struct bfd_symbol *symbol ATTRIBUTE_UNUSED,
  38                     void *data ATTRIBUTE_UNUSED, asection *input_section ATTRIBUTE_UNUSED,
  39                     bfd *output ATTRIBUTE_UNUSED, char **msg ATTRIBUTE_UNUSED)
  40 {
  41   /* This is a really peculiar reloc, which is done for compatibility
  42      with the Freescale toolchain.
  43
  44      That toolchain appears to (ab)use the lowest 15 bits of the addend for
  45      the purpose of holding flags.  The purpose of these flags are unknown.
  46      So in this function, when writing the bfd we left shift the addend by
  47      15, and when reading we right shift it by 15 (discarding the lower bits).
  48
  49      This allows the linker to work with object files generated by Freescale,
  50      as well as by Gas.  */
  51
  52   if (abfd->is_linker_input)
  53     reloc_entry->addend >>= 15;
  54   else
  55     reloc_entry->addend <<= 15;
  56
  57   return bfd_reloc_continue;
  58 }
  59
  60 #define USE_REL 0
  61
  62 static reloc_howto_type elf_s12z_howto_table[] =
  63 {
  64   /* This reloc does nothing.  */
  65   HOWTO (R_S12Z_NONE,   /* type */
  66          0,                     /* rightshift */
  67          3,                     /* size (0 = byte, 1 = short, 2 = long) */
  68          0,                     /* bitsize */
  69          FALSE,                 /* pc_relative */
  70          0,                     /* bitpos */
  71          complain_overflow_dont,/* complain_on_overflow */
  72          bfd_elf_generic_reloc, /* special_function */
  73          "R_S12Z_NONE", /* name */
  74          FALSE,                 /* partial_inplace */
  75          0,                     /* src_mask */
  76          0,                     /* dst_mask */
  77          FALSE),                /* pcrel_offset */
  78
  79   /* A 24 bit absolute relocation emitted by the OPR mode operands  */
  80   HOWTO (R_S12Z_OPR,        /* type */
  81          0,                     /* rightshift */
  82          5,                     /* size (0 = byte, 1 = short, 2 = long) */
  83          24,                    /* bitsize */
  84          FALSE,                 /* pc_relative */
  85          0,                     /* bitpos */
  86          complain_overflow_bitfield,    /* complain_on_overflow */
  87          shift_addend_reloc,
  88          "R_S12Z_OPR",  /* name */
  89          FALSE,                 /* partial_inplace */
  90          0x00ffffff,            /* src_mask */
  91          0x00ffffff,            /* dst_mask */
  92          FALSE),                /* pcrel_offset */
  93
  94   /* The purpose of this reloc is not known */
  95   HOWTO (R_S12Z_UKNWN_2,        /* type */
  96          0,                     /* rightshift */
  97          3,                     /* size (0 = byte, 1 = short, 2 = long) */
  98          0,                     /* bitsize */
  99          FALSE,                 /* pc_relative */
 100          0,                     /* bitpos */
 101          complain_overflow_dont,/* complain_on_overflow */
 102          bfd_elf_generic_reloc, /* special_function */
 103          "R_S12Z_UKNWN_2",      /* name */
 104          FALSE,                 /* partial_inplace */
 105          0,                     /* src_mask */
 106          0,                     /* dst_mask */
 107          FALSE),                /* pcrel_offset */
 108
 109   /* A 15 bit PC-rel relocation */
 110   HOWTO (R_S12Z_PCREL_7_15,     /* type */
 111          0,                     /* rightshift */
 112          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 113          15,                    /* bitsize */
 114          TRUE,                  /* pc_relative */
 115          0,                     /* bitpos */
 116          complain_overflow_bitfield,    /* complain_on_overflow */
 117          shift_addend_reloc,
 118          "R_S12Z_PCREL_7_15",   /* name */
 119          FALSE,                 /* partial_inplace */
 120          0x00,                  /* src_mask */
 121          0x007fff,              /* dst_mask */
 122          TRUE),         /* pcrel_offset */
 123
 124   /* A 24 bit absolute relocation emitted by EXT24 mode operands */
 125   HOWTO (R_S12Z_EXT24,        /* type */
 126          0,                     /* rightshift */
 127          5,                     /* size (0 = byte, 1 = short, 2 = long) */
 128          24,                    /* bitsize */
 129          FALSE,                 /* pc_relative */
 130          0,                     /* bitpos */
 131          complain_overflow_bitfield,    /* complain_on_overflow */
 132          bfd_elf_generic_reloc, /* special_function */
 133          "R_S12Z_EXT24",        /* name */
 134          FALSE,                 /* partial_inplace */
 135          0x00ffffff,            /* src_mask */
 136          0x00ffffff,            /* dst_mask */
 137          FALSE),                /* pcrel_offset */
 138
 139   /* The purpose of this reloc is not known */
 140   HOWTO (R_S12Z_UKNWN_3,        /* type */
 141          0,                     /* rightshift */
 142          3,                     /* size (0 = byte, 1 = short, 2 = long) */
 143          0,                     /* bitsize */
 144          FALSE,                 /* pc_relative */
 145          0,                     /* bitpos */
 146          complain_overflow_dont,/* complain_on_overflow */
 147          bfd_elf_generic_reloc, /* special_function */
 148          "R_S12Z_UKNWN_3",      /* name */
 149          FALSE,                 /* partial_inplace */
 150          0,                     /* src_mask */
 151          0,                     /* dst_mask */
 152          FALSE),                /* pcrel_offset */
 153
 154   /* A 32 bit absolute relocation  */
 155   HOWTO (R_S12Z_EXT32,        /* type */
 156          0,                     /* rightshift */
 157          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 158          32,                    /* bitsize */
 159          FALSE,                 /* pc_relative */
 160          0,                     /* bitpos */
 161          complain_overflow_bitfield,    /* complain_on_overflow */
 162          bfd_elf_generic_reloc, /* special_function */
 163          "R_S12Z_EXT32",        /* name */
 164          FALSE,                 /* partial_inplace */
 165          0xffffffff,            /* src_mask */
 166          0xffffffff,            /* dst_mask */
 167          FALSE),                /* pcrel_offset */
 168 };
 169
 170 /* Map BFD reloc types to S12Z ELF reloc types.  */
 171
 172 struct s12z_reloc_map
 173 {
 174   bfd_reloc_code_real_type bfd_reloc_val;
 175   unsigned char elf_reloc_val;
 176 };
 177
 178 static const struct s12z_reloc_map s12z_reloc_map[] =
 179 {
 180   /* bfd reloc val */ /* elf reloc val */
 181   {BFD_RELOC_NONE, R_S12Z_NONE},
 182   {BFD_RELOC_32, R_S12Z_EXT32},
 183   {BFD_RELOC_24, R_S12Z_EXT24},
 184   {BFD_RELOC_16_PCREL, R_S12Z_PCREL_7_15}
 185 };
 186
 187 static reloc_howto_type *
 188 bfd_elf32_bfd_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
 189                                  bfd_reloc_code_real_type code)
 190 {
 191   unsigned int i;
 192
 193   for (i = 0;
 194        i < sizeof (s12z_reloc_map) / sizeof (struct s12z_reloc_map);
 195        i++)
 196     {
 197       if (s12z_reloc_map[i].bfd_reloc_val == code)
 198         {
 199           return &elf_s12z_howto_table[s12z_reloc_map[i].elf_reloc_val];
 200         }
 201     }
 202
 203   printf ("%s:%d Not found type %d\n", __FILE__, __LINE__, code);
 204
 205   return NULL;
 206 }
 207
 208 static reloc_howto_type *
 209 bfd_elf32_bfd_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
 210                                  const char *r_name)
 211 {
 212   unsigned int i;
 213
 214   printf ("%s:%d Looking up %s\n", __FILE__, __LINE__, r_name);
 215
 216   for (i = 0;
 217        i < (sizeof (elf_s12z_howto_table)
 218             / sizeof (elf_s12z_howto_table[0]));
 219        i++)
 220     if (elf_s12z_howto_table[i].name != NULL
 221         && strcasecmp (elf_s12z_howto_table[i].name, r_name) == 0)
 222       return &elf_s12z_howto_table[i];
 223
 224   return NULL;
 225 }
 226
 227 /* Set the howto pointer for an S12Z ELF reloc.  */
 228
 229 static bfd_boolean
 230 s12z_info_to_howto_rel (bfd *abfd,
 231                           arelent *cache_ptr, Elf_Internal_Rela *dst)
 232 {
 233   unsigned int  r_type = ELF32_R_TYPE (dst->r_info);
 234
 235   if (r_type >= (unsigned int) R_S12Z_max)
 236     {
 237       /* xgettext:c-format */
 238       _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
 239                           abfd, r_type);
 240       bfd_set_error (bfd_error_bad_value);
 241       return FALSE;
 242     }
 243
 244   cache_ptr->howto = &elf_s12z_howto_table[r_type];
 245   return TRUE;
 246 }
 247
 248 static bfd_boolean
 249 s12z_elf_set_mach_from_flags (bfd *abfd)
 250 {
 251   bfd_default_set_arch_mach (abfd, bfd_arch_s12z, 0); // bfd_mach_s12z);
 252
 253   return TRUE;
 254 }
 255
 256 #define ELF_ARCH                bfd_arch_s12z
 257 #define ELF_TARGET_ID           0
 258 #define ELF_MACHINE_CODE        EM_S12Z
 259 #define ELF_MAXPAGESIZE         0x1000
 260
 261 #define TARGET_BIG_SYM          s12z_elf32_vec
 262 #define TARGET_BIG_NAME         "elf32-s12z"
 263
 264 #define elf_info_to_howto                       NULL
 265 #define elf_info_to_howto_rel                   s12z_info_to_howto_rel
 266 #define elf_backend_object_p                    s12z_elf_set_mach_from_flags
 267 #define elf_backend_final_write_processing      NULL
 268 #define elf_backend_can_gc_sections             1
 269
 270 #include "elf32-target.h"