1999-09-11 Donn Terry <donn@interix.com>
[binutils.git] / bfd / elf32-fr30.c
blob04c7d378b731689c19c9c03d4b569be8e1220575
1 /* FR30-specific support for 32-bit ELF.
2 Copyright (C) 1998, 1999 Free Software Foundation, Inc.
4 This file is part of BFD, the Binary File Descriptor library.
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 2 of the License, or
9 (at your option) any later version.
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.
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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
20 #include "bfd.h"
21 #include "sysdep.h"
22 #include "libbfd.h"
23 #include "elf-bfd.h"
24 #include "elf/fr30.h"
26 /* Forward declarations. */
27 static bfd_reloc_status_type fr30_elf_i20_reloc
28 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
29 static bfd_reloc_status_type fr30_elf_i32_reloc
30 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
31 static reloc_howto_type * fr30_reloc_type_lookup
32 PARAMS ((bfd *abfd, bfd_reloc_code_real_type code));
33 static void fr30_info_to_howto_rela
34 PARAMS ((bfd *, arelent *, Elf32_Internal_Rela *));
35 static boolean fr30_elf_relocate_section
36 PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *, Elf_Internal_Rela *, Elf_Internal_Sym *, asection **));
37 static bfd_reloc_status_type fr30_final_link_relocate
38 PARAMS ((reloc_howto_type *, bfd *, asection *, bfd_byte *, Elf_Internal_Rela *, bfd_vma));
39 static boolean fr30_elf_gc_sweep_hook
40 PARAMS ((bfd *, struct bfd_link_info *, asection *, const Elf_Internal_Rela *));
41 static asection * fr30_elf_gc_mark_hook
42 PARAMS ((bfd *, struct bfd_link_info *, Elf_Internal_Rela *, struct elf_link_hash_entry *, Elf_Internal_Sym *));
44 static reloc_howto_type fr30_elf_howto_table [] =
46 /* This reloc does nothing. */
47 HOWTO (R_FR30_NONE, /* type */
48 0, /* rightshift */
49 2, /* size (0 = byte, 1 = short, 2 = long) */
50 32, /* bitsize */
51 false, /* pc_relative */
52 0, /* bitpos */
53 complain_overflow_bitfield, /* complain_on_overflow */
54 bfd_elf_generic_reloc, /* special_function */
55 "R_FR30_NONE", /* name */
56 false, /* partial_inplace */
57 0, /* src_mask */
58 0, /* dst_mask */
59 false), /* pcrel_offset */
61 /* An 8 bit absolute relocation. */
62 HOWTO (R_FR30_8, /* type */
63 0, /* rightshift */
64 1, /* size (0 = byte, 1 = short, 2 = long) */
65 8, /* bitsize */
66 false, /* pc_relative */
67 4, /* bitpos */
68 complain_overflow_bitfield, /* complain_on_overflow */
69 bfd_elf_generic_reloc, /* special_function */
70 "R_FR30_8", /* name */
71 true, /* partial_inplace */
72 0x0000, /* src_mask */
73 0x0ff0, /* dst_mask */
74 false), /* pcrel_offset */
76 /* A 20 bit absolute relocation. */
77 HOWTO (R_FR30_20, /* type */
78 0, /* rightshift */
79 2, /* size (0 = byte, 1 = short, 2 = long) */
80 20, /* bitsize */
81 false, /* pc_relative */
82 0, /* bitpos */
83 complain_overflow_bitfield, /* complain_on_overflow */
84 fr30_elf_i20_reloc, /* special_function */
85 "R_FR30_20", /* name */
86 true, /* partial_inplace */
87 0x00000000, /* src_mask */
88 0x00f0ffff, /* dst_mask */
89 false), /* pcrel_offset */
91 /* A 32 bit absolute relocation. */
92 HOWTO (R_FR30_32, /* type */
93 0, /* rightshift */
94 2, /* size (0 = byte, 1 = short, 2 = long) */
95 32, /* bitsize */
96 false, /* pc_relative */
97 0, /* bitpos */
98 complain_overflow_bitfield, /* complain_on_overflow */
99 bfd_elf_generic_reloc, /* special_function */
100 "R_FR30_32", /* name */
101 true, /* partial_inplace */
102 0x00000000, /* src_mask */
103 0xffffffff, /* dst_mask */
104 false), /* pcrel_offset */
106 /* A 32 bit into 48 bits absolute relocation. */
107 HOWTO (R_FR30_48, /* type */
108 0, /* rightshift */
109 2, /* size (0 = byte, 1 = short, 2 = long) */
110 32, /* bitsize */
111 false, /* pc_relative */
112 0, /* bitpos */
113 complain_overflow_bitfield, /* complain_on_overflow */
114 fr30_elf_i32_reloc, /* special_function */
115 "R_FR30_48", /* name */
116 true, /* partial_inplace */
117 0x00000000, /* src_mask */
118 0xffffffff, /* dst_mask */
119 false), /* pcrel_offset */
121 /* A 6 bit absolute relocation. */
122 HOWTO (R_FR30_6_IN_4, /* type */
123 2, /* rightshift */
124 1, /* size (0 = byte, 1 = short, 2 = long) */
125 6, /* bitsize */
126 false, /* pc_relative */
127 4, /* bitpos */
128 complain_overflow_unsigned, /* complain_on_overflow */
129 bfd_elf_generic_reloc, /* special_function */
130 "R_FR30_6_IN_4", /* name */
131 true, /* partial_inplace */
132 0x0000, /* src_mask */
133 0x00f0, /* dst_mask */
134 false), /* pcrel_offset */
136 /* An 8 bit absolute relocation. */
137 HOWTO (R_FR30_8_IN_8, /* type */
138 0, /* rightshift */
139 1, /* size (0 = byte, 1 = short, 2 = long) */
140 8, /* bitsize */
141 false, /* pc_relative */
142 4, /* bitpos */
143 complain_overflow_signed, /* complain_on_overflow */
144 bfd_elf_generic_reloc,/* special_function */
145 "R_FR30_8_IN_8", /* name */
146 true, /* partial_inplace */
147 0x0000, /* src_mask */
148 0x0ff0, /* dst_mask */
149 false), /* pcrel_offset */
151 /* A 9 bit absolute relocation. */
152 HOWTO (R_FR30_9_IN_8, /* type */
153 1, /* rightshift */
154 1, /* size (0 = byte, 1 = short, 2 = long) */
155 9, /* bitsize */
156 false, /* pc_relative */
157 4, /* bitpos */
158 complain_overflow_signed, /* complain_on_overflow */
159 bfd_elf_generic_reloc,/* special_function */
160 "R_FR30_9_IN_8", /* name */
161 true, /* partial_inplace */
162 0x0000, /* src_mask */
163 0x0ff0, /* dst_mask */
164 false), /* pcrel_offset */
166 /* A 10 bit absolute relocation. */
167 HOWTO (R_FR30_10_IN_8, /* type */
168 2, /* rightshift */
169 1, /* size (0 = byte, 1 = short, 2 = long) */
170 10, /* bitsize */
171 false, /* pc_relative */
172 4, /* bitpos */
173 complain_overflow_signed, /* complain_on_overflow */
174 bfd_elf_generic_reloc,/* special_function */
175 "R_FR30_10_IN_8", /* name */
176 true, /* partial_inplace */
177 0x0000, /* src_mask */
178 0x0ff0, /* dst_mask */
179 false), /* pcrel_offset */
181 /* A PC relative 9 bit relocation, right shifted by 1. */
182 HOWTO (R_FR30_9_PCREL, /* type */
183 1, /* rightshift */
184 1, /* size (0 = byte, 1 = short, 2 = long) */
185 9, /* bitsize */
186 true, /* pc_relative */
187 0, /* bitpos */
188 complain_overflow_signed, /* complain_on_overflow */
189 bfd_elf_generic_reloc, /* special_function */
190 "R_FR30_9_PCREL", /* name */
191 false, /* partial_inplace */
192 0x0000, /* src_mask */
193 0x00ff, /* dst_mask */
194 false), /* pcrel_offset */
196 /* A PC relative 12 bit relocation, right shifted by 1. */
197 HOWTO (R_FR30_12_PCREL, /* type */
198 1, /* rightshift */
199 1, /* size (0 = byte, 1 = short, 2 = long) */
200 12, /* bitsize */
201 true, /* pc_relative */
202 0, /* bitpos */
203 complain_overflow_signed, /* complain_on_overflow */
204 bfd_elf_generic_reloc, /* special_function */
205 "R_FR30_12_PCREL", /* name */
206 false, /* partial_inplace */
207 0x0000, /* src_mask */
208 0x07ff, /* dst_mask */
209 false), /* pcrel_offset */
210 /* GNU extension to record C++ vtable hierarchy */
211 HOWTO (R_FR30_GNU_VTINHERIT, /* type */
212 0, /* rightshift */
213 2, /* size (0 = byte, 1 = short, 2 = long) */
214 0, /* bitsize */
215 false, /* pc_relative */
216 0, /* bitpos */
217 complain_overflow_dont, /* complain_on_overflow */
218 NULL, /* special_function */
219 "R_FR30_GNU_VTINHERIT", /* name */
220 false, /* partial_inplace */
221 0, /* src_mask */
222 0, /* dst_mask */
223 false), /* pcrel_offset */
225 /* GNU extension to record C++ vtable member usage */
226 HOWTO (R_FR30_GNU_VTENTRY, /* type */
227 0, /* rightshift */
228 2, /* size (0 = byte, 1 = short, 2 = long) */
229 0, /* bitsize */
230 false, /* pc_relative */
231 0, /* bitpos */
232 complain_overflow_dont, /* complain_on_overflow */
233 _bfd_elf_rel_vtable_reloc_fn, /* special_function */
234 "R_FR30_GNU_VTENTRY", /* name */
235 false, /* partial_inplace */
236 0, /* src_mask */
237 0, /* dst_mask */
238 false), /* pcrel_offset */
242 /* Utility to actually perform an R_FR30_20 reloc. */
244 static bfd_reloc_status_type
245 fr30_elf_i20_reloc (abfd, reloc_entry, symbol, data,
246 input_section, output_bfd, error_message)
247 bfd * abfd;
248 arelent * reloc_entry;
249 asymbol * symbol;
250 PTR data;
251 asection * input_section;
252 bfd * output_bfd;
253 char ** error_message ATTRIBUTE_UNUSED;
255 bfd_vma relocation;
256 unsigned long x;
258 /* This part is from bfd_elf_generic_reloc. */
259 if (output_bfd != (bfd *) NULL
260 && (symbol->flags & BSF_SECTION_SYM) == 0
261 && (! reloc_entry->howto->partial_inplace
262 || reloc_entry->addend == 0))
264 reloc_entry->address += input_section->output_offset;
265 return bfd_reloc_ok;
268 if (output_bfd != NULL)
269 /* FIXME: See bfd_perform_relocation. Is this right? */
270 return bfd_reloc_ok;
272 relocation =
273 symbol->value
274 + symbol->section->output_section->vma
275 + symbol->section->output_offset
276 + reloc_entry->addend;
278 if (relocation > ((1U << 20) - 1))
279 return bfd_reloc_overflow;
281 x = bfd_get_32 (abfd, data + reloc_entry->address);
282 x = (x & 0xff0f0000) | (relocation & 0x0000ffff) | ((relocation & 0x000f0000) << 4);
283 bfd_put_32 (abfd, x, data + reloc_entry->address);
285 return bfd_reloc_ok;
289 /* Utility to actually perform a R_FR30_48 reloc. */
291 static bfd_reloc_status_type
292 fr30_elf_i32_reloc (abfd, reloc_entry, symbol, data,
293 input_section, output_bfd, error_message)
294 bfd * abfd;
295 arelent * reloc_entry;
296 asymbol * symbol;
297 PTR data;
298 asection * input_section;
299 bfd * output_bfd;
300 char ** error_message ATTRIBUTE_UNUSED;
302 bfd_vma relocation;
304 /* This part is from bfd_elf_generic_reloc. */
305 if (output_bfd != (bfd *) NULL
306 && (symbol->flags & BSF_SECTION_SYM) == 0
307 && (! reloc_entry->howto->partial_inplace
308 || reloc_entry->addend == 0))
310 reloc_entry->address += input_section->output_offset;
311 return bfd_reloc_ok;
314 if (output_bfd != NULL)
315 /* FIXME: See bfd_perform_relocation. Is this right? */
316 return bfd_reloc_ok;
318 relocation =
319 symbol->value
320 + symbol->section->output_section->vma
321 + symbol->section->output_offset
322 + reloc_entry->addend;
324 bfd_put_32 (abfd, relocation, data + reloc_entry->address + 2);
326 return bfd_reloc_ok;
329 /* Map BFD reloc types to FR30 ELF reloc types. */
331 struct fr30_reloc_map
333 bfd_reloc_code_real_type bfd_reloc_val;
334 unsigned int fr30_reloc_val;
337 static const struct fr30_reloc_map fr30_reloc_map [] =
339 { BFD_RELOC_NONE, R_FR30_NONE },
340 { BFD_RELOC_8, R_FR30_8 },
341 { BFD_RELOC_FR30_20, R_FR30_20 },
342 { BFD_RELOC_32, R_FR30_32 },
343 { BFD_RELOC_FR30_48, R_FR30_48 },
344 { BFD_RELOC_FR30_6_IN_4, R_FR30_6_IN_4 },
345 { BFD_RELOC_FR30_8_IN_8, R_FR30_8_IN_8 },
346 { BFD_RELOC_FR30_9_IN_8, R_FR30_9_IN_8 },
347 { BFD_RELOC_FR30_10_IN_8, R_FR30_10_IN_8 },
348 { BFD_RELOC_FR30_9_PCREL, R_FR30_9_PCREL },
349 { BFD_RELOC_FR30_12_PCREL, R_FR30_12_PCREL },
350 { BFD_RELOC_VTABLE_INHERIT, R_FR30_GNU_VTINHERIT },
351 { BFD_RELOC_VTABLE_ENTRY, R_FR30_GNU_VTENTRY },
354 static reloc_howto_type *
355 fr30_reloc_type_lookup (abfd, code)
356 bfd * abfd ATTRIBUTE_UNUSED;
357 bfd_reloc_code_real_type code;
359 unsigned int i;
361 for (i = sizeof (fr30_reloc_map) / sizeof (fr30_reloc_map[0]);
362 --i;)
363 if (fr30_reloc_map [i].bfd_reloc_val == code)
364 return & fr30_elf_howto_table [fr30_reloc_map[i].fr30_reloc_val];
366 return NULL;
369 /* Set the howto pointer for an FR30 ELF reloc. */
371 static void
372 fr30_info_to_howto_rela (abfd, cache_ptr, dst)
373 bfd * abfd ATTRIBUTE_UNUSED;
374 arelent * cache_ptr;
375 Elf32_Internal_Rela * dst;
377 unsigned int r_type;
379 r_type = ELF32_R_TYPE (dst->r_info);
380 BFD_ASSERT (r_type < (unsigned int) R_FR30_max);
381 cache_ptr->howto = & fr30_elf_howto_table [r_type];
384 /* Perform a single relocation. By default we use the standard BFD
385 routines, but a few relocs, we have to do them ourselves. */
387 static bfd_reloc_status_type
388 fr30_final_link_relocate (howto, input_bfd, input_section, contents, rel, relocation)
389 reloc_howto_type * howto;
390 bfd * input_bfd;
391 asection * input_section;
392 bfd_byte * contents;
393 Elf_Internal_Rela * rel;
394 bfd_vma relocation;
396 bfd_reloc_status_type r = bfd_reloc_ok;
397 bfd_vma x;
398 bfd_signed_vma srel;
400 switch (howto->type)
402 case R_FR30_20:
403 contents += rel->r_offset;
404 relocation += rel->r_addend;
406 if (relocation > ((1 << 20) - 1))
407 return bfd_reloc_overflow;
409 x = bfd_get_32 (input_bfd, contents);
410 x = (x & 0xff0f0000) | (relocation & 0x0000ffff) | ((relocation & 0x000f0000) << 4);
411 bfd_put_32 (input_bfd, x, contents);
412 break;
414 case R_FR30_48:
415 contents += rel->r_offset + 2;
416 relocation += rel->r_addend;
417 bfd_put_32 (input_bfd, relocation, contents);
418 break;
420 case R_FR30_9_PCREL:
421 contents += rel->r_offset + 1;
422 srel = (bfd_signed_vma) relocation;
423 srel += rel->r_addend;
424 srel -= rel->r_offset;
425 srel -= 2; /* Branch instructions add 2 to the PC... */
426 srel -= (input_section->output_section->vma +
427 input_section->output_offset);
429 if (srel & 1)
430 return bfd_reloc_outofrange;
431 if (srel > ((1 << 8) - 1) || (srel < - (1 << 8)))
432 return bfd_reloc_overflow;
434 bfd_put_8 (input_bfd, srel >> 1, contents);
435 break;
437 case R_FR30_12_PCREL:
438 contents += rel->r_offset;
439 srel = (bfd_signed_vma) relocation;
440 srel += rel->r_addend;
441 srel -= rel->r_offset;
442 srel -= 2; /* Branch instructions add 2 to the PC... */
443 srel -= (input_section->output_section->vma +
444 input_section->output_offset);
446 if (srel & 1)
447 return bfd_reloc_outofrange;
448 if (srel > ((1 << 11) - 1) || (srel < - (1 << 11)))
449 return bfd_reloc_overflow;
451 x = bfd_get_16 (input_bfd, contents);
452 x = (x & 0xf800) | ((srel >> 1) & 0x7ff);
453 bfd_put_16 (input_bfd, x, contents);
454 break;
456 default:
457 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
458 contents, rel->r_offset,
459 relocation, rel->r_addend);
462 return r;
466 /* Relocate an FR30 ELF section.
467 There is some attempt to make this function usable for many architectures,
468 both USE_REL and USE_RELA ['twould be nice if such a critter existed],
469 if only to serve as a learning tool.
471 The RELOCATE_SECTION function is called by the new ELF backend linker
472 to handle the relocations for a section.
474 The relocs are always passed as Rela structures; if the section
475 actually uses Rel structures, the r_addend field will always be
476 zero.
478 This function is responsible for adjusting the section contents as
479 necessary, and (if using Rela relocs and generating a relocateable
480 output file) adjusting the reloc addend as necessary.
482 This function does not have to worry about setting the reloc
483 address or the reloc symbol index.
485 LOCAL_SYMS is a pointer to the swapped in local symbols.
487 LOCAL_SECTIONS is an array giving the section in the input file
488 corresponding to the st_shndx field of each local symbol.
490 The global hash table entry for the global symbols can be found
491 via elf_sym_hashes (input_bfd).
493 When generating relocateable output, this function must handle
494 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
495 going to be the section symbol corresponding to the output
496 section, which means that the addend must be adjusted
497 accordingly. */
499 static boolean
500 fr30_elf_relocate_section (output_bfd, info, input_bfd, input_section,
501 contents, relocs, local_syms, local_sections)
502 bfd * output_bfd ATTRIBUTE_UNUSED;
503 struct bfd_link_info * info;
504 bfd * input_bfd;
505 asection * input_section;
506 bfd_byte * contents;
507 Elf_Internal_Rela * relocs;
508 Elf_Internal_Sym * local_syms;
509 asection ** local_sections;
511 Elf_Internal_Shdr * symtab_hdr;
512 struct elf_link_hash_entry ** sym_hashes;
513 Elf_Internal_Rela * rel;
514 Elf_Internal_Rela * relend;
516 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
517 sym_hashes = elf_sym_hashes (input_bfd);
518 relend = relocs + input_section->reloc_count;
520 for (rel = relocs; rel < relend; rel ++)
522 reloc_howto_type * howto;
523 unsigned long r_symndx;
524 Elf_Internal_Sym * sym;
525 asection * sec;
526 struct elf_link_hash_entry * h;
527 bfd_vma relocation;
528 bfd_reloc_status_type r;
529 const char * name = NULL;
530 int r_type;
532 r_type = ELF32_R_TYPE (rel->r_info);
534 if ( r_type == R_FR30_GNU_VTINHERIT
535 || r_type == R_FR30_GNU_VTENTRY)
536 continue;
538 r_symndx = ELF32_R_SYM (rel->r_info);
540 if (info->relocateable)
542 /* This is a relocateable link. We don't have to change
543 anything, unless the reloc is against a section symbol,
544 in which case we have to adjust according to where the
545 section symbol winds up in the output section. */
546 if (r_symndx < symtab_hdr->sh_info)
548 sym = local_syms + r_symndx;
550 if (ELF_ST_TYPE (sym->st_info) == STT_SECTION)
552 sec = local_sections [r_symndx];
553 rel->r_addend += sec->output_offset + sym->st_value;
557 continue;
560 /* This is a final link. */
561 howto = fr30_elf_howto_table + ELF32_R_TYPE (rel->r_info);
562 h = NULL;
563 sym = NULL;
564 sec = NULL;
566 if (r_symndx < symtab_hdr->sh_info)
568 sym = local_syms + r_symndx;
569 sec = local_sections [r_symndx];
570 relocation = (sec->output_section->vma
571 + sec->output_offset
572 + sym->st_value);
574 name = bfd_elf_string_from_elf_section
575 (input_bfd, symtab_hdr->sh_link, sym->st_name);
576 name = (name == NULL) ? bfd_section_name (input_bfd, sec) : name;
577 #if 0
578 fprintf (stderr, "local: sec: %s, sym: %s (%d), value: %x + %x + %x addend %x\n",
579 sec->name, name, sym->st_name,
580 sec->output_section->vma, sec->output_offset,
581 sym->st_value, rel->r_addend);
582 #endif
584 else
586 h = sym_hashes [r_symndx - symtab_hdr->sh_info];
588 while (h->root.type == bfd_link_hash_indirect
589 || h->root.type == bfd_link_hash_warning)
590 h = (struct elf_link_hash_entry *) h->root.u.i.link;
592 name = h->root.root.string;
594 if (h->root.type == bfd_link_hash_defined
595 || h->root.type == bfd_link_hash_defweak)
597 sec = h->root.u.def.section;
598 relocation = (h->root.u.def.value
599 + sec->output_section->vma
600 + sec->output_offset);
601 #if 0
602 fprintf (stderr,
603 "defined: sec: %s, name: %s, value: %x + %x + %x gives: %x\n",
604 sec->name, name, h->root.u.def.value,
605 sec->output_section->vma, sec->output_offset, relocation);
606 #endif
608 else if (h->root.type == bfd_link_hash_undefweak)
610 #if 0
611 fprintf (stderr, "undefined: sec: %s, name: %s\n",
612 sec->name, name);
613 #endif
614 relocation = 0;
616 else
618 if (! ((*info->callbacks->undefined_symbol)
619 (info, h->root.root.string, input_bfd,
620 input_section, rel->r_offset)))
621 return false;
622 #if 0
623 fprintf (stderr, "unknown: name: %s\n", name);
624 #endif
625 relocation = 0;
629 r = fr30_final_link_relocate (howto, input_bfd, input_section,
630 contents, rel, relocation);
632 if (r != bfd_reloc_ok)
634 const char * msg = (const char *) NULL;
636 switch (r)
638 case bfd_reloc_overflow:
639 r = info->callbacks->reloc_overflow
640 (info, name, howto->name, (bfd_vma) 0,
641 input_bfd, input_section, rel->r_offset);
642 break;
644 case bfd_reloc_undefined:
645 r = info->callbacks->undefined_symbol
646 (info, name, input_bfd, input_section, rel->r_offset);
647 break;
649 case bfd_reloc_outofrange:
650 msg = _("internal error: out of range error");
651 break;
653 case bfd_reloc_notsupported:
654 msg = _("internal error: unsupported relocation error");
655 break;
657 case bfd_reloc_dangerous:
658 msg = _("internal error: dangerous relocation");
659 break;
661 default:
662 msg = _("internal error: unknown error");
663 break;
666 if (msg)
667 r = info->callbacks->warning
668 (info, msg, name, input_bfd, input_section, rel->r_offset);
670 if (! r)
671 return false;
675 return true;
678 /* Return the section that should be marked against GC for a given
679 relocation. */
681 static asection *
682 fr30_elf_gc_mark_hook (abfd, info, rel, h, sym)
683 bfd * abfd;
684 struct bfd_link_info * info ATTRIBUTE_UNUSED;
685 Elf_Internal_Rela * rel;
686 struct elf_link_hash_entry * h;
687 Elf_Internal_Sym * sym;
689 if (h != NULL)
691 switch (ELF32_R_TYPE (rel->r_info))
693 case R_FR30_GNU_VTINHERIT:
694 case R_FR30_GNU_VTENTRY:
695 break;
697 default:
698 switch (h->root.type)
700 case bfd_link_hash_defined:
701 case bfd_link_hash_defweak:
702 return h->root.u.def.section;
704 case bfd_link_hash_common:
705 return h->root.u.c.p->section;
707 default:
708 break;
712 else
714 if (!(elf_bad_symtab (abfd)
715 && ELF_ST_BIND (sym->st_info) != STB_LOCAL)
716 && ! ((sym->st_shndx <= 0 || sym->st_shndx >= SHN_LORESERVE)
717 && sym->st_shndx != SHN_COMMON))
719 return bfd_section_from_elf_index (abfd, sym->st_shndx);
723 return NULL;
726 /* Update the got entry reference counts for the section being removed. */
728 static boolean
729 fr30_elf_gc_sweep_hook (abfd, info, sec, relocs)
730 bfd * abfd ATTRIBUTE_UNUSED;
731 struct bfd_link_info * info ATTRIBUTE_UNUSED;
732 asection * sec ATTRIBUTE_UNUSED;
733 const Elf_Internal_Rela * relocs ATTRIBUTE_UNUSED;
735 return true;
738 /* Look through the relocs for a section during the first phase.
739 Since we don't do .gots or .plts, we just need to consider the
740 virtual table relocs for gc. */
742 static boolean
743 fr30_elf_check_relocs (abfd, info, sec, relocs)
744 bfd *abfd;
745 struct bfd_link_info *info;
746 asection *sec;
747 const Elf_Internal_Rela *relocs;
749 Elf_Internal_Shdr *symtab_hdr;
750 struct elf_link_hash_entry **sym_hashes, **sym_hashes_end;
751 const Elf_Internal_Rela *rel;
752 const Elf_Internal_Rela *rel_end;
754 if (info->relocateable)
755 return true;
757 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
758 sym_hashes = elf_sym_hashes (abfd);
759 sym_hashes_end = sym_hashes + symtab_hdr->sh_size/sizeof(Elf32_External_Sym);
760 if (!elf_bad_symtab (abfd))
761 sym_hashes_end -= symtab_hdr->sh_info;
763 rel_end = relocs + sec->reloc_count;
764 for (rel = relocs; rel < rel_end; rel++)
766 struct elf_link_hash_entry *h;
767 unsigned long r_symndx;
769 r_symndx = ELF32_R_SYM (rel->r_info);
770 if (r_symndx < symtab_hdr->sh_info)
771 h = NULL;
772 else
773 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
775 switch (ELF32_R_TYPE (rel->r_info))
777 /* This relocation describes the C++ object vtable hierarchy.
778 Reconstruct it for later use during GC. */
779 case R_FR30_GNU_VTINHERIT:
780 if (!_bfd_elf32_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
781 return false;
782 break;
784 /* This relocation describes which C++ vtable entries are actually
785 used. Record for later use during GC. */
786 case R_FR30_GNU_VTENTRY:
787 if (!_bfd_elf32_gc_record_vtentry (abfd, sec, h, rel->r_addend))
788 return false;
789 break;
793 return true;
796 #define ELF_ARCH bfd_arch_fr30
797 #define ELF_MACHINE_CODE EM_CYGNUS_FR30
798 #define ELF_MAXPAGESIZE 0x1000
800 #define TARGET_BIG_SYM bfd_elf32_fr30_vec
801 #define TARGET_BIG_NAME "elf32-fr30"
803 #define elf_info_to_howto_rel NULL
804 #define elf_info_to_howto fr30_info_to_howto_rela
805 #define elf_backend_relocate_section fr30_elf_relocate_section
806 #define elf_backend_gc_mark_hook fr30_elf_gc_mark_hook
807 #define elf_backend_gc_sweep_hook fr30_elf_gc_sweep_hook
808 #define elf_backend_check_relocs fr30_elf_check_relocs
810 #define elf_backend_can_gc_sections 1
812 #define bfd_elf32_bfd_reloc_type_lookup fr30_reloc_type_lookup
814 #include "elf32-target.h"