Automatic date update in version.in
[external/binutils.git] / 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 #define elf_backend_final_write_processing      NULL
321 #define elf_backend_can_gc_sections             1
322
323 #include "elf32-target.h"