1 /* FR30-specific support for 32-bit ELF.
2    Copyright (C) 1998-2014 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 	 2,			/* size (0 = byte, 1 = short, 2 = long) */
41 	 32,			/* bitsize */
42 	 FALSE,			/* pc_relative */
43 	 0,			/* bitpos */
44 	 complain_overflow_bitfield, /* 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 
232 /* Utility to actually perform an R_FR30_20 reloc.  */
233 
234 static bfd_reloc_status_type
fr30_elf_i20_reloc(bfd * abfd,arelent * reloc_entry,asymbol * symbol,void * data,asection * input_section,bfd * output_bfd,char ** error_message ATTRIBUTE_UNUSED)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 
276 /* Utility to actually perform a R_FR30_48 reloc.  */
277 
278 static bfd_reloc_status_type
fr30_elf_i32_reloc(bfd * abfd,arelent * reloc_entry,asymbol * symbol,void * data,asection * input_section,bfd * output_bfd,char ** error_message ATTRIBUTE_UNUSED)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 
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 *
fr30_reloc_type_lookup(bfd * abfd ATTRIBUTE_UNUSED,bfd_reloc_code_real_type code)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 *
fr30_reloc_name_lookup(bfd * abfd ATTRIBUTE_UNUSED,const char * r_name)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
fr30_info_to_howto_rela(bfd * abfd ATTRIBUTE_UNUSED,arelent * cache_ptr,Elf_Internal_Rela * dst)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   BFD_ASSERT (r_type < (unsigned int) R_FR30_max);
379   cache_ptr->howto = & fr30_elf_howto_table [r_type];
380 }
381 
382 /* Perform a single relocation.  By default we use the standard BFD
383    routines, but a few relocs, we have to do them ourselves.  */
384 
385 static bfd_reloc_status_type
fr30_final_link_relocate(reloc_howto_type * howto,bfd * input_bfd,asection * input_section,bfd_byte * contents,Elf_Internal_Rela * rel,bfd_vma relocation)386 fr30_final_link_relocate (reloc_howto_type *howto,
387 			  bfd *input_bfd,
388 			  asection *input_section,
389 			  bfd_byte *contents,
390 			  Elf_Internal_Rela *rel,
391 			  bfd_vma relocation)
392 {
393   bfd_reloc_status_type r = bfd_reloc_ok;
394   bfd_vma x;
395   bfd_signed_vma srel;
396 
397   switch (howto->type)
398     {
399     case R_FR30_20:
400       contents   += rel->r_offset;
401       relocation += rel->r_addend;
402 
403       if (relocation > ((1 << 20) - 1))
404 	return bfd_reloc_overflow;
405 
406       x = bfd_get_32 (input_bfd, contents);
407       x = (x & 0xff0f0000) | (relocation & 0x0000ffff) | ((relocation & 0x000f0000) << 4);
408       bfd_put_32 (input_bfd, x, contents);
409       break;
410 
411     case R_FR30_48:
412       contents   += rel->r_offset + 2;
413       relocation += rel->r_addend;
414       bfd_put_32 (input_bfd, relocation, contents);
415       break;
416 
417     case R_FR30_9_PCREL:
418       contents   += rel->r_offset + 1;
419       srel = (bfd_signed_vma) relocation;
420       srel += rel->r_addend;
421       srel -= rel->r_offset;
422       srel -= 2;  /* Branch instructions add 2 to the PC...  */
423       srel -= (input_section->output_section->vma +
424 		     input_section->output_offset);
425 
426       if (srel & 1)
427 	return bfd_reloc_outofrange;
428       if (srel > ((1 << 8) - 1) || (srel < - (1 << 8)))
429 	return bfd_reloc_overflow;
430 
431       bfd_put_8 (input_bfd, srel >> 1, contents);
432       break;
433 
434     case R_FR30_12_PCREL:
435       contents   += rel->r_offset;
436       srel = (bfd_signed_vma) relocation;
437       srel += rel->r_addend;
438       srel -= rel->r_offset;
439       srel -= 2; /* Branch instructions add 2 to the PC...  */
440       srel -= (input_section->output_section->vma +
441 		     input_section->output_offset);
442 
443       if (srel & 1)
444 	return bfd_reloc_outofrange;
445       if (srel > ((1 << 11) - 1) || (srel < - (1 << 11)))
446 	  return bfd_reloc_overflow;
447 
448       x = bfd_get_16 (input_bfd, contents);
449       x = (x & 0xf800) | ((srel >> 1) & 0x7ff);
450       bfd_put_16 (input_bfd, x, contents);
451       break;
452 
453     default:
454       r = _bfd_final_link_relocate (howto, input_bfd, input_section,
455 				    contents, rel->r_offset,
456 				    relocation, rel->r_addend);
457     }
458 
459   return r;
460 }
461 
462 /* Relocate an FR30 ELF section.
463 
464    The RELOCATE_SECTION function is called by the new ELF backend linker
465    to handle the relocations for a section.
466 
467    The relocs are always passed as Rela structures; if the section
468    actually uses Rel structures, the r_addend field will always be
469    zero.
470 
471    This function is responsible for adjusting the section contents as
472    necessary, and (if using Rela relocs and generating a relocatable
473    output file) adjusting the reloc addend as necessary.
474 
475    This function does not have to worry about setting the reloc
476    address or the reloc symbol index.
477 
478    LOCAL_SYMS is a pointer to the swapped in local symbols.
479 
480    LOCAL_SECTIONS is an array giving the section in the input file
481    corresponding to the st_shndx field of each local symbol.
482 
483    The global hash table entry for the global symbols can be found
484    via elf_sym_hashes (input_bfd).
485 
486    When generating relocatable output, this function must handle
487    STB_LOCAL/STT_SECTION symbols specially.  The output symbol is
488    going to be the section symbol corresponding to the output
489    section, which means that the addend must be adjusted
490    accordingly.  */
491 
492 static bfd_boolean
fr30_elf_relocate_section(bfd * output_bfd,struct bfd_link_info * info,bfd * input_bfd,asection * input_section,bfd_byte * contents,Elf_Internal_Rela * relocs,Elf_Internal_Sym * local_syms,asection ** local_sections)493 fr30_elf_relocate_section (bfd *output_bfd,
494 			   struct bfd_link_info *info,
495 			   bfd *input_bfd,
496 			   asection *input_section,
497 			   bfd_byte *contents,
498 			   Elf_Internal_Rela *relocs,
499 			   Elf_Internal_Sym *local_syms,
500 			   asection **local_sections)
501 {
502   Elf_Internal_Shdr *symtab_hdr;
503   struct elf_link_hash_entry **sym_hashes;
504   Elf_Internal_Rela *rel;
505   Elf_Internal_Rela *relend;
506 
507   symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
508   sym_hashes = elf_sym_hashes (input_bfd);
509   relend     = relocs + input_section->reloc_count;
510 
511   for (rel = relocs; rel < relend; rel ++)
512     {
513       reloc_howto_type *howto;
514       unsigned long r_symndx;
515       Elf_Internal_Sym *sym;
516       asection *sec;
517       struct elf_link_hash_entry *h;
518       bfd_vma relocation;
519       bfd_reloc_status_type r;
520       const char *name;
521       int r_type;
522 
523       r_type = ELF32_R_TYPE (rel->r_info);
524 
525       if (   r_type == R_FR30_GNU_VTINHERIT
526 	  || r_type == R_FR30_GNU_VTENTRY)
527 	continue;
528 
529       r_symndx = ELF32_R_SYM (rel->r_info);
530 
531       howto  = fr30_elf_howto_table + ELF32_R_TYPE (rel->r_info);
532       h      = NULL;
533       sym    = NULL;
534       sec    = NULL;
535 
536       if (r_symndx < symtab_hdr->sh_info)
537 	{
538 	  sym = local_syms + r_symndx;
539 	  sec = local_sections [r_symndx];
540 	  relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
541 
542 	  name = bfd_elf_string_from_elf_section
543 	    (input_bfd, symtab_hdr->sh_link, sym->st_name);
544 	  name = (name == NULL) ? bfd_section_name (input_bfd, sec) : name;
545 	}
546       else
547 	{
548 	  bfd_boolean unresolved_reloc, warned, ignored;
549 
550 	  RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
551 				   r_symndx, symtab_hdr, sym_hashes,
552 				   h, sec, relocation,
553 				   unresolved_reloc, warned, ignored);
554 
555 	  name = h->root.root.string;
556 	}
557 
558       if (sec != NULL && discarded_section (sec))
559 	RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
560 					 rel, 1, relend, howto, 0, contents);
561 
562       if (info->relocatable)
563 	continue;
564 
565       r = fr30_final_link_relocate (howto, input_bfd, input_section,
566 				     contents, rel, relocation);
567 
568       if (r != bfd_reloc_ok)
569 	{
570 	  const char * msg = (const char *) NULL;
571 
572 	  switch (r)
573 	    {
574 	    case bfd_reloc_overflow:
575 	      r = info->callbacks->reloc_overflow
576 		(info, (h ? &h->root : NULL), name, howto->name,
577 		 (bfd_vma) 0, input_bfd, input_section, rel->r_offset);
578 	      break;
579 
580 	    case bfd_reloc_undefined:
581 	      r = info->callbacks->undefined_symbol
582 		(info, name, input_bfd, input_section, rel->r_offset,
583 		 TRUE);
584 	      break;
585 
586 	    case bfd_reloc_outofrange:
587 	      msg = _("internal error: out of range error");
588 	      break;
589 
590 	    case bfd_reloc_notsupported:
591 	      msg = _("internal error: unsupported relocation error");
592 	      break;
593 
594 	    case bfd_reloc_dangerous:
595 	      msg = _("internal error: dangerous relocation");
596 	      break;
597 
598 	    default:
599 	      msg = _("internal error: unknown error");
600 	      break;
601 	    }
602 
603 	  if (msg)
604 	    r = info->callbacks->warning
605 	      (info, msg, name, input_bfd, input_section, rel->r_offset);
606 
607 	  if (! r)
608 	    return FALSE;
609 	}
610     }
611 
612   return TRUE;
613 }
614 
615 /* Return the section that should be marked against GC for a given
616    relocation.  */
617 
618 static asection *
fr30_elf_gc_mark_hook(asection * sec,struct bfd_link_info * info,Elf_Internal_Rela * rel,struct elf_link_hash_entry * h,Elf_Internal_Sym * sym)619 fr30_elf_gc_mark_hook (asection *sec,
620 		       struct bfd_link_info *info,
621 		       Elf_Internal_Rela *rel,
622 		       struct elf_link_hash_entry *h,
623 		       Elf_Internal_Sym *sym)
624 {
625   if (h != NULL)
626     switch (ELF32_R_TYPE (rel->r_info))
627       {
628       case R_FR30_GNU_VTINHERIT:
629       case R_FR30_GNU_VTENTRY:
630 	return NULL;
631       }
632 
633   return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
634 }
635 
636 /* Look through the relocs for a section during the first phase.
637    Since we don't do .gots or .plts, we just need to consider the
638    virtual table relocs for gc.  */
639 
640 static bfd_boolean
fr30_elf_check_relocs(bfd * abfd,struct bfd_link_info * info,asection * sec,const Elf_Internal_Rela * relocs)641 fr30_elf_check_relocs (bfd *abfd,
642 		       struct bfd_link_info *info,
643 		       asection *sec,
644 		       const Elf_Internal_Rela *relocs)
645 {
646   Elf_Internal_Shdr *symtab_hdr;
647   struct elf_link_hash_entry **sym_hashes;
648   const Elf_Internal_Rela *rel;
649   const Elf_Internal_Rela *rel_end;
650 
651   if (info->relocatable)
652     return TRUE;
653 
654   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
655   sym_hashes = elf_sym_hashes (abfd);
656 
657   rel_end = relocs + sec->reloc_count;
658   for (rel = relocs; rel < rel_end; rel++)
659     {
660       struct elf_link_hash_entry *h;
661       unsigned long r_symndx;
662 
663       r_symndx = ELF32_R_SYM (rel->r_info);
664       if (r_symndx < symtab_hdr->sh_info)
665         h = NULL;
666       else
667 	{
668 	  h = sym_hashes[r_symndx - symtab_hdr->sh_info];
669 	  while (h->root.type == bfd_link_hash_indirect
670 		 || h->root.type == bfd_link_hash_warning)
671 	    h = (struct elf_link_hash_entry *) h->root.u.i.link;
672 
673 	  /* PR15323, ref flags aren't set for references in the same
674 	     object.  */
675 	  h->root.non_ir_ref = 1;
676 	}
677 
678       switch (ELF32_R_TYPE (rel->r_info))
679         {
680         /* This relocation describes the C++ object vtable hierarchy.
681            Reconstruct it for later use during GC.  */
682         case R_FR30_GNU_VTINHERIT:
683           if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
684             return FALSE;
685           break;
686 
687         /* This relocation describes which C++ vtable entries are actually
688            used.  Record for later use during GC.  */
689         case R_FR30_GNU_VTENTRY:
690           BFD_ASSERT (h != NULL);
691           if (h != NULL
692               && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
693             return FALSE;
694           break;
695         }
696     }
697 
698   return TRUE;
699 }
700 
701 #define ELF_ARCH		bfd_arch_fr30
702 #define ELF_MACHINE_CODE	EM_FR30
703 #define ELF_MACHINE_ALT1	EM_CYGNUS_FR30
704 #define ELF_MAXPAGESIZE		0x1000
705 
706 #define TARGET_BIG_SYM          fr30_elf32_vec
707 #define TARGET_BIG_NAME		"elf32-fr30"
708 
709 #define elf_info_to_howto_rel			NULL
710 #define elf_info_to_howto			fr30_info_to_howto_rela
711 #define elf_backend_relocate_section		fr30_elf_relocate_section
712 #define elf_backend_gc_mark_hook		fr30_elf_gc_mark_hook
713 #define elf_backend_check_relocs                fr30_elf_check_relocs
714 
715 #define elf_backend_can_gc_sections		1
716 #define elf_backend_rela_normal			1
717 
718 #define bfd_elf32_bfd_reloc_type_lookup		fr30_reloc_type_lookup
719 #define bfd_elf32_bfd_reloc_name_lookup	fr30_reloc_name_lookup
720 
721 #include "elf32-target.h"
722