?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
2009-07-02 Tristan Gingold <gingold@adacore.com>
[binutils.git] / bfd / elf32-d30v.c
blob9739416f253cce19f00b4bc768a2215e60e7fe20
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"
git-cvsimport of binutils cvsroot