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