?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Automatic date update in version.in
[binutils-gdb.git] / bfd / elf32-fr30.c
blob94070d8ef266ba97ca40ddc51b021ff02aeb798b
1 /* FR30-specific support for 32-bit ELF.
2 Copyright (C) 1998-2017 Free Software Foundation, Inc.
3
4 This file is part of BFD, the Binary File Descriptor library.
5
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
10
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
19 MA 02110-1301, USA. */
20
21 #include "sysdep.h"
22 #include "bfd.h"
23 #include "libbfd.h"
24 #include "elf-bfd.h"
25 #include "elf/fr30.h"
26
27 /* Forward declarations. */
28 static bfd_reloc_status_type
29 fr30_elf_i20_reloc (bfd *, arelent *, asymbol *, void * data,
30 asection *, bfd *, char **error_message);
31 static bfd_reloc_status_type
32 fr30_elf_i32_reloc (bfd *, arelent *, asymbol *, void *,
33 asection *, bfd *, char **);
34
35 static reloc_howto_type fr30_elf_howto_table [] =
36 {
37 /* This reloc does nothing. */
38 HOWTO (R_FR30_NONE, /* type */
39 0, /* rightshift */
40 3, /* size (0 = byte, 1 = short, 2 = long) */
41 0, /* bitsize */
42 FALSE, /* pc_relative */
43 0, /* bitpos */
44 complain_overflow_dont, /* complain_on_overflow */
45 bfd_elf_generic_reloc, /* special_function */
46 "R_FR30_NONE", /* name */
47 FALSE, /* partial_inplace */
48 0, /* src_mask */
49 0, /* dst_mask */
50 FALSE), /* pcrel_offset */
51
52 /* An 8 bit absolute relocation. */
53 HOWTO (R_FR30_8, /* type */
54 0, /* rightshift */
55 1, /* size (0 = byte, 1 = short, 2 = long) */
56 8, /* bitsize */
57 FALSE, /* pc_relative */
58 4, /* bitpos */
59 complain_overflow_bitfield, /* complain_on_overflow */
60 bfd_elf_generic_reloc, /* special_function */
61 "R_FR30_8", /* name */
62 FALSE, /* partial_inplace */
63 0x0000, /* src_mask */
64 0x0ff0, /* dst_mask */
65 FALSE), /* pcrel_offset */
66
67 /* A 20 bit absolute relocation. */
68 HOWTO (R_FR30_20, /* type */
69 0, /* rightshift */
70 2, /* size (0 = byte, 1 = short, 2 = long) */
71 20, /* bitsize */
72 FALSE, /* pc_relative */
73 0, /* bitpos */
74 complain_overflow_bitfield, /* complain_on_overflow */
75 fr30_elf_i20_reloc, /* special_function */
76 "R_FR30_20", /* name */
77 FALSE, /* partial_inplace */
78 0x00000000, /* src_mask */
79 0x00f0ffff, /* dst_mask */
80 FALSE), /* pcrel_offset */
81
82 /* A 32 bit absolute relocation. */
83 HOWTO (R_FR30_32, /* type */
84 0, /* rightshift */
85 2, /* size (0 = byte, 1 = short, 2 = long) */
86 32, /* bitsize */
87 FALSE, /* pc_relative */
88 0, /* bitpos */
89 complain_overflow_bitfield, /* complain_on_overflow */
90 bfd_elf_generic_reloc, /* special_function */
91 "R_FR30_32", /* name */
92 FALSE, /* partial_inplace */
93 0x00000000, /* src_mask */
94 0xffffffff, /* dst_mask */
95 FALSE), /* pcrel_offset */
96
97 /* A 32 bit into 48 bits absolute relocation. */
98 HOWTO (R_FR30_48, /* type */
99 0, /* rightshift */
100 2, /* size (0 = byte, 1 = short, 2 = long) */
101 32, /* bitsize */
102 FALSE, /* pc_relative */
103 0, /* bitpos */
104 complain_overflow_bitfield, /* complain_on_overflow */
105 fr30_elf_i32_reloc, /* special_function */
106 "R_FR30_48", /* name */
107 FALSE, /* partial_inplace */
108 0x00000000, /* src_mask */
109 0xffffffff, /* dst_mask */
110 FALSE), /* pcrel_offset */
111
112 /* A 6 bit absolute relocation. */
113 HOWTO (R_FR30_6_IN_4, /* type */
114 2, /* rightshift */
115 1, /* size (0 = byte, 1 = short, 2 = long) */
116 6, /* bitsize */
117 FALSE, /* pc_relative */
118 4, /* bitpos */
119 complain_overflow_unsigned, /* complain_on_overflow */
120 bfd_elf_generic_reloc, /* special_function */
121 "R_FR30_6_IN_4", /* name */
122 FALSE, /* partial_inplace */
123 0x0000, /* src_mask */
124 0x00f0, /* dst_mask */
125 FALSE), /* pcrel_offset */
126
127 /* An 8 bit absolute relocation. */
128 HOWTO (R_FR30_8_IN_8, /* type */
129 0, /* rightshift */
130 1, /* size (0 = byte, 1 = short, 2 = long) */
131 8, /* bitsize */
132 FALSE, /* pc_relative */
133 4, /* bitpos */
134 complain_overflow_signed, /* complain_on_overflow */
135 bfd_elf_generic_reloc,/* special_function */
136 "R_FR30_8_IN_8", /* name */
137 FALSE, /* partial_inplace */
138 0x0000, /* src_mask */
139 0x0ff0, /* dst_mask */
140 FALSE), /* pcrel_offset */
141
142 /* A 9 bit absolute relocation. */
143 HOWTO (R_FR30_9_IN_8, /* type */
144 1, /* rightshift */
145 1, /* size (0 = byte, 1 = short, 2 = long) */
146 9, /* bitsize */
147 FALSE, /* pc_relative */
148 4, /* bitpos */
149 complain_overflow_signed, /* complain_on_overflow */
150 bfd_elf_generic_reloc,/* special_function */
151 "R_FR30_9_IN_8", /* name */
152 FALSE, /* partial_inplace */
153 0x0000, /* src_mask */
154 0x0ff0, /* dst_mask */
155 FALSE), /* pcrel_offset */
156
157 /* A 10 bit absolute relocation. */
158 HOWTO (R_FR30_10_IN_8, /* type */
159 2, /* rightshift */
160 1, /* size (0 = byte, 1 = short, 2 = long) */
161 10, /* bitsize */
162 FALSE, /* pc_relative */
163 4, /* bitpos */
164 complain_overflow_signed, /* complain_on_overflow */
165 bfd_elf_generic_reloc,/* special_function */
166 "R_FR30_10_IN_8", /* name */
167 FALSE, /* partial_inplace */
168 0x0000, /* src_mask */
169 0x0ff0, /* dst_mask */
170 FALSE), /* pcrel_offset */
171
172 /* A PC relative 9 bit relocation, right shifted by 1. */
173 HOWTO (R_FR30_9_PCREL, /* type */
174 1, /* rightshift */
175 1, /* size (0 = byte, 1 = short, 2 = long) */
176 9, /* bitsize */
177 TRUE, /* pc_relative */
178 0, /* bitpos */
179 complain_overflow_signed, /* complain_on_overflow */
180 bfd_elf_generic_reloc, /* special_function */
181 "R_FR30_9_PCREL", /* name */
182 FALSE, /* partial_inplace */
183 0x0000, /* src_mask */
184 0x00ff, /* dst_mask */
185 FALSE), /* pcrel_offset */
186
187 /* A PC relative 12 bit relocation, right shifted by 1. */
188 HOWTO (R_FR30_12_PCREL, /* type */
189 1, /* rightshift */
190 1, /* size (0 = byte, 1 = short, 2 = long) */
191 12, /* bitsize */
192 TRUE, /* pc_relative */
193 0, /* bitpos */
194 complain_overflow_signed, /* complain_on_overflow */
195 bfd_elf_generic_reloc, /* special_function */
196 "R_FR30_12_PCREL", /* name */
197 FALSE, /* partial_inplace */
198 0x0000, /* src_mask */
199 0x07ff, /* dst_mask */
200 FALSE), /* pcrel_offset */
201 /* GNU extension to record C++ vtable hierarchy */
202 HOWTO (R_FR30_GNU_VTINHERIT, /* type */
203 0, /* rightshift */
204 2, /* size (0 = byte, 1 = short, 2 = long) */
205 0, /* bitsize */
206 FALSE, /* pc_relative */
207 0, /* bitpos */
208 complain_overflow_dont, /* complain_on_overflow */
209 NULL, /* special_function */
210 "R_FR30_GNU_VTINHERIT", /* name */
211 FALSE, /* partial_inplace */
212 0, /* src_mask */
213 0, /* dst_mask */
214 FALSE), /* pcrel_offset */
215
216 /* GNU extension to record C++ vtable member usage */
217 HOWTO (R_FR30_GNU_VTENTRY, /* type */
218 0, /* rightshift */
219 2, /* size (0 = byte, 1 = short, 2 = long) */
220 0, /* bitsize */
221 FALSE, /* pc_relative */
222 0, /* bitpos */
223 complain_overflow_dont, /* complain_on_overflow */
224 _bfd_elf_rel_vtable_reloc_fn, /* special_function */
225 "R_FR30_GNU_VTENTRY", /* name */
226 FALSE, /* partial_inplace */
227 0, /* src_mask */
228 0, /* dst_mask */
229 FALSE), /* pcrel_offset */
230 };
231 \f
232 /* Utility to actually perform an R_FR30_20 reloc. */
233
234 static bfd_reloc_status_type
235 fr30_elf_i20_reloc (bfd *abfd,
236 arelent *reloc_entry,
237 asymbol *symbol,
238 void * data,
239 asection *input_section,
240 bfd *output_bfd,
241 char **error_message ATTRIBUTE_UNUSED)
242 {
243 bfd_vma relocation;
244 unsigned long x;
245
246 /* This part is from bfd_elf_generic_reloc. */
247 if (output_bfd != (bfd *) NULL
248 && (symbol->flags & BSF_SECTION_SYM) == 0
249 && (! reloc_entry->howto->partial_inplace
250 || reloc_entry->addend == 0))
251 {
252 reloc_entry->address += input_section->output_offset;
253 return bfd_reloc_ok;
254 }
255
256 if (output_bfd != NULL)
257 /* FIXME: See bfd_perform_relocation. Is this right? */
258 return bfd_reloc_ok;
259
260 relocation =
261 symbol->value
262 + symbol->section->output_section->vma
263 + symbol->section->output_offset
264 + reloc_entry->addend;
265
266 if (relocation > (((bfd_vma) 1 << 20) - 1))
267 return bfd_reloc_overflow;
268
269 x = bfd_get_32 (abfd, (char *) data + reloc_entry->address);
270 x = (x & 0xff0f0000) | (relocation & 0x0000ffff) | ((relocation & 0x000f0000) << 4);
271 bfd_put_32 (abfd, (bfd_vma) x, (char *) data + reloc_entry->address);
272
273 return bfd_reloc_ok;
274 }
275 \f
276 /* Utility to actually perform a R_FR30_48 reloc. */
277
278 static bfd_reloc_status_type
279 fr30_elf_i32_reloc (bfd *abfd,
280 arelent *reloc_entry,
281 asymbol *symbol,
282 void * data,
283 asection *input_section,
284 bfd *output_bfd,
285 char **error_message ATTRIBUTE_UNUSED)
286 {
287 bfd_vma relocation;
288
289 /* This part is from bfd_elf_generic_reloc. */
290 if (output_bfd != (bfd *) NULL
291 && (symbol->flags & BSF_SECTION_SYM) == 0
292 && (! reloc_entry->howto->partial_inplace
293 || reloc_entry->addend == 0))
294 {
295 reloc_entry->address += input_section->output_offset;
296 return bfd_reloc_ok;
297 }
298
299 if (output_bfd != NULL)
300 /* FIXME: See bfd_perform_relocation. Is this right? */
301 return bfd_reloc_ok;
302
303 relocation =
304 symbol->value
305 + symbol->section->output_section->vma
306 + symbol->section->output_offset
307 + reloc_entry->addend;
308
309 bfd_put_32 (abfd, relocation, (char *) data + reloc_entry->address + 2);
310
311 return bfd_reloc_ok;
312 }
313 \f
314 /* Map BFD reloc types to FR30 ELF reloc types. */
315
316 struct fr30_reloc_map
317 {
318 bfd_reloc_code_real_type bfd_reloc_val;
319 unsigned int fr30_reloc_val;
320 };
321
322 static const struct fr30_reloc_map fr30_reloc_map [] =
323 {
324 { BFD_RELOC_NONE, R_FR30_NONE },
325 { BFD_RELOC_8, R_FR30_8 },
326 { BFD_RELOC_FR30_20, R_FR30_20 },
327 { BFD_RELOC_32, R_FR30_32 },
328 { BFD_RELOC_FR30_48, R_FR30_48 },
329 { BFD_RELOC_FR30_6_IN_4, R_FR30_6_IN_4 },
330 { BFD_RELOC_FR30_8_IN_8, R_FR30_8_IN_8 },
331 { BFD_RELOC_FR30_9_IN_8, R_FR30_9_IN_8 },
332 { BFD_RELOC_FR30_10_IN_8, R_FR30_10_IN_8 },
333 { BFD_RELOC_FR30_9_PCREL, R_FR30_9_PCREL },
334 { BFD_RELOC_FR30_12_PCREL, R_FR30_12_PCREL },
335 { BFD_RELOC_VTABLE_INHERIT, R_FR30_GNU_VTINHERIT },
336 { BFD_RELOC_VTABLE_ENTRY, R_FR30_GNU_VTENTRY },
337 };
338
339 static reloc_howto_type *
340 fr30_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
341 bfd_reloc_code_real_type code)
342 {
343 unsigned int i;
344
345 for (i = sizeof (fr30_reloc_map) / sizeof (fr30_reloc_map[0]);
346 i--;)
347 if (fr30_reloc_map [i].bfd_reloc_val == code)
348 return & fr30_elf_howto_table [fr30_reloc_map[i].fr30_reloc_val];
349
350 return NULL;
351 }
352
353 static reloc_howto_type *
354 fr30_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED, const char *r_name)
355 {
356 unsigned int i;
357
358 for (i = 0;
359 i < sizeof (fr30_elf_howto_table) / sizeof (fr30_elf_howto_table[0]);
360 i++)
361 if (fr30_elf_howto_table[i].name != NULL
362 && strcasecmp (fr30_elf_howto_table[i].name, r_name) == 0)
363 return &fr30_elf_howto_table[i];
364
365 return NULL;
366 }
367
368 /* Set the howto pointer for an FR30 ELF reloc. */
369
370 static void
371 fr30_info_to_howto_rela (bfd *abfd ATTRIBUTE_UNUSED,
372 arelent *cache_ptr,
373 Elf_Internal_Rela *dst)
374 {
375 unsigned int r_type;
376
377 r_type = ELF32_R_TYPE (dst->r_info);
378 if (r_type >= (unsigned int) R_FR30_max)
379 {
380 /* xgettext:c-format */
381 _bfd_error_handler (_("%B: invalid FR30 reloc number: %d"), abfd, r_type);
382 r_type = 0;
383 }
384 cache_ptr->howto = & fr30_elf_howto_table [r_type];
385 }
386 \f
387 /* Perform a single relocation. By default we use the standard BFD
388 routines, but a few relocs, we have to do them ourselves. */
389
390 static bfd_reloc_status_type
391 fr30_final_link_relocate (reloc_howto_type *howto,
392 bfd *input_bfd,
393 asection *input_section,
394 bfd_byte *contents,
395 Elf_Internal_Rela *rel,
396 bfd_vma relocation)
397 {
398 bfd_reloc_status_type r = bfd_reloc_ok;
399 bfd_vma x;
400 bfd_signed_vma srel;
401
402 switch (howto->type)
403 {
404 case R_FR30_20:
405 contents += rel->r_offset;
406 relocation += rel->r_addend;
407
408 if (relocation > ((1 << 20) - 1))
409 return bfd_reloc_overflow;
410
411 x = bfd_get_32 (input_bfd, contents);
412 x = (x & 0xff0f0000) | (relocation & 0x0000ffff) | ((relocation & 0x000f0000) << 4);
413 bfd_put_32 (input_bfd, x, contents);
414 break;
415
416 case R_FR30_48:
417 contents += rel->r_offset + 2;
418 relocation += rel->r_addend;
419 bfd_put_32 (input_bfd, relocation, contents);
420 break;
421
422 case R_FR30_9_PCREL:
423 contents += rel->r_offset + 1;
424 srel = (bfd_signed_vma) relocation;
425 srel += rel->r_addend;
426 srel -= rel->r_offset;
427 srel -= 2; /* Branch instructions add 2 to the PC... */
428 srel -= (input_section->output_section->vma +
429 input_section->output_offset);
430
431 if (srel & 1)
432 return bfd_reloc_outofrange;
433 if (srel > ((1 << 8) - 1) || (srel < - (1 << 8)))
434 return bfd_reloc_overflow;
435
436 bfd_put_8 (input_bfd, srel >> 1, contents);
437 break;
438
439 case R_FR30_12_PCREL:
440 contents += rel->r_offset;
441 srel = (bfd_signed_vma) relocation;
442 srel += rel->r_addend;
443 srel -= rel->r_offset;
444 srel -= 2; /* Branch instructions add 2 to the PC... */
445 srel -= (input_section->output_section->vma +
446 input_section->output_offset);
447
448 if (srel & 1)
449 return bfd_reloc_outofrange;
450 if (srel > ((1 << 11) - 1) || (srel < - (1 << 11)))
451 return bfd_reloc_overflow;
452
453 x = bfd_get_16 (input_bfd, contents);
454 x = (x & 0xf800) | ((srel >> 1) & 0x7ff);
455 bfd_put_16 (input_bfd, x, contents);
456 break;
457
458 default:
459 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
460 contents, rel->r_offset,
461 relocation, rel->r_addend);
462 }
463
464 return r;
465 }
466 \f
467 /* Relocate an FR30 ELF section.
468
469 The RELOCATE_SECTION function is called by the new ELF backend linker
470 to handle the relocations for a section.
471
472 The relocs are always passed as Rela structures; if the section
473 actually uses Rel structures, the r_addend field will always be
474 zero.
475
476 This function is responsible for adjusting the section contents as
477 necessary, and (if using Rela relocs and generating a relocatable
478 output file) adjusting the reloc addend as necessary.
479
480 This function does not have to worry about setting the reloc
481 address or the reloc symbol index.
482
483 LOCAL_SYMS is a pointer to the swapped in local symbols.
484
485 LOCAL_SECTIONS is an array giving the section in the input file
486 corresponding to the st_shndx field of each local symbol.
487
488 The global hash table entry for the global symbols can be found
489 via elf_sym_hashes (input_bfd).
490
491 When generating relocatable output, this function must handle
492 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
493 going to be the section symbol corresponding to the output
494 section, which means that the addend must be adjusted
495 accordingly. */
496
497 static bfd_boolean
498 fr30_elf_relocate_section (bfd *output_bfd,
499 struct bfd_link_info *info,
500 bfd *input_bfd,
501 asection *input_section,
502 bfd_byte *contents,
503 Elf_Internal_Rela *relocs,
504 Elf_Internal_Sym *local_syms,
505 asection **local_sections)
506 {
507 Elf_Internal_Shdr *symtab_hdr;
508 struct elf_link_hash_entry **sym_hashes;
509 Elf_Internal_Rela *rel;
510 Elf_Internal_Rela *relend;
511
512 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
513 sym_hashes = elf_sym_hashes (input_bfd);
514 relend = relocs + input_section->reloc_count;
515
516 for (rel = relocs; rel < relend; rel ++)
517 {
518 reloc_howto_type *howto;
519 unsigned long r_symndx;
520 Elf_Internal_Sym *sym;
521 asection *sec;
522 struct elf_link_hash_entry *h;
523 bfd_vma relocation;
524 bfd_reloc_status_type r;
525 const char *name;
526 int r_type;
527
528 r_type = ELF32_R_TYPE (rel->r_info);
529
530 if ( r_type == R_FR30_GNU_VTINHERIT
531 || r_type == R_FR30_GNU_VTENTRY)
532 continue;
533
534 r_symndx = ELF32_R_SYM (rel->r_info);
535
536 howto = fr30_elf_howto_table + ELF32_R_TYPE (rel->r_info);
537 h = NULL;
538 sym = NULL;
539 sec = NULL;
540
541 if (r_symndx < symtab_hdr->sh_info)
542 {
543 sym = local_syms + r_symndx;
544 sec = local_sections [r_symndx];
545 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
546
547 name = bfd_elf_string_from_elf_section
548 (input_bfd, symtab_hdr->sh_link, sym->st_name);
549 name = (name == NULL) ? bfd_section_name (input_bfd, sec) : name;
550 }
551 else
552 {
553 bfd_boolean unresolved_reloc, warned, ignored;
554
555 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
556 r_symndx, symtab_hdr, sym_hashes,
557 h, sec, relocation,
558 unresolved_reloc, warned, ignored);
559
560 name = h->root.root.string;
561 }
562
563 if (sec != NULL && discarded_section (sec))
564 RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
565 rel, 1, relend, howto, 0, contents);
566
567 if (bfd_link_relocatable (info))
568 continue;
569
570 r = fr30_final_link_relocate (howto, input_bfd, input_section,
571 contents, rel, relocation);
572
573 if (r != bfd_reloc_ok)
574 {
575 const char * msg = (const char *) NULL;
576
577 switch (r)
578 {
579 case bfd_reloc_overflow:
580 (*info->callbacks->reloc_overflow)
581 (info, (h ? &h->root : NULL), name, howto->name,
582 (bfd_vma) 0, input_bfd, input_section, rel->r_offset);
583 break;
584
585 case bfd_reloc_undefined:
586 (*info->callbacks->undefined_symbol)
587 (info, name, input_bfd, input_section, rel->r_offset, TRUE);
588 break;
589
590 case bfd_reloc_outofrange:
591 msg = _("internal error: out of range error");
592 break;
593
594 case bfd_reloc_notsupported:
595 msg = _("internal error: unsupported relocation error");
596 break;
597
598 case bfd_reloc_dangerous:
599 msg = _("internal error: dangerous relocation");
600 break;
601
602 default:
603 msg = _("internal error: unknown error");
604 break;
605 }
606
607 if (msg)
608 (*info->callbacks->warning) (info, msg, name, input_bfd,
609 input_section, rel->r_offset);
610 }
611 }
612
613 return TRUE;
614 }
615 \f
616 /* Return the section that should be marked against GC for a given
617 relocation. */
618
619 static asection *
620 fr30_elf_gc_mark_hook (asection *sec,
621 struct bfd_link_info *info,
622 Elf_Internal_Rela *rel,
623 struct elf_link_hash_entry *h,
624 Elf_Internal_Sym *sym)
625 {
626 if (h != NULL)
627 switch (ELF32_R_TYPE (rel->r_info))
628 {
629 case R_FR30_GNU_VTINHERIT:
630 case R_FR30_GNU_VTENTRY:
631 return NULL;
632 }
633
634 return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
635 }
636
637 /* Look through the relocs for a section during the first phase.
638 Since we don't do .gots or .plts, we just need to consider the
639 virtual table relocs for gc. */
640
641 static bfd_boolean
642 fr30_elf_check_relocs (bfd *abfd,
643 struct bfd_link_info *info,
644 asection *sec,
645 const Elf_Internal_Rela *relocs)
646 {
647 Elf_Internal_Shdr *symtab_hdr;
648 struct elf_link_hash_entry **sym_hashes;
649 const Elf_Internal_Rela *rel;
650 const Elf_Internal_Rela *rel_end;
651
652 if (bfd_link_relocatable (info))
653 return TRUE;
654
655 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
656 sym_hashes = elf_sym_hashes (abfd);
657
658 rel_end = relocs + sec->reloc_count;
659 for (rel = relocs; rel < rel_end; rel++)
660 {
661 struct elf_link_hash_entry *h;
662 unsigned long r_symndx;
663
664 r_symndx = ELF32_R_SYM (rel->r_info);
665 if (r_symndx < symtab_hdr->sh_info)
666 h = NULL;
667 else
668 {
669 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
670 while (h->root.type == bfd_link_hash_indirect
671 || h->root.type == bfd_link_hash_warning)
672 h = (struct elf_link_hash_entry *) h->root.u.i.link;
673
674 /* PR15323, ref flags aren't set for references in the same
675 object. */
676 h->root.non_ir_ref_regular = 1;
677 }
678
679 switch (ELF32_R_TYPE (rel->r_info))
680 {
681 /* This relocation describes the C++ object vtable hierarchy.
682 Reconstruct it for later use during GC. */
683 case R_FR30_GNU_VTINHERIT:
684 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
685 return FALSE;
686 break;
687
688 /* This relocation describes which C++ vtable entries are actually
689 used. Record for later use during GC. */
690 case R_FR30_GNU_VTENTRY:
691 BFD_ASSERT (h != NULL);
692 if (h != NULL
693 && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
694 return FALSE;
695 break;
696 }
697 }
698
699 return TRUE;
700 }
701 \f
702 #define ELF_ARCH bfd_arch_fr30
703 #define ELF_MACHINE_CODE EM_FR30
704 #define ELF_MACHINE_ALT1 EM_CYGNUS_FR30
705 #define ELF_MAXPAGESIZE 0x1000
706
707 #define TARGET_BIG_SYM fr30_elf32_vec
708 #define TARGET_BIG_NAME "elf32-fr30"
709
710 #define elf_info_to_howto_rel NULL
711 #define elf_info_to_howto fr30_info_to_howto_rela
712 #define elf_backend_relocate_section fr30_elf_relocate_section
713 #define elf_backend_gc_mark_hook fr30_elf_gc_mark_hook
714 #define elf_backend_check_relocs fr30_elf_check_relocs
715
716 #define elf_backend_can_gc_sections 1
717 #define elf_backend_rela_normal 1
718
719 #define bfd_elf32_bfd_reloc_type_lookup fr30_reloc_type_lookup
720 #define bfd_elf32_bfd_reloc_name_lookup fr30_reloc_name_lookup
721
722 #include "elf32-target.h"
The GNU Binutils are a collection of binary tools.