Home | History | Annotate | Line # | Download | only in bfd
elf32-fr30.c revision 1.6
      1 /* FR30-specific support for 32-bit ELF.
      2    Copyright (C) 1998-2016 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 
    232 /* Utility to actually perform an R_FR30_20 reloc.  */
    234 
    235 static bfd_reloc_status_type
    236 fr30_elf_i20_reloc (bfd *abfd,
    237 		    arelent *reloc_entry,
    238 		    asymbol *symbol,
    239 		    void * data,
    240 		    asection *input_section,
    241 		    bfd *output_bfd,
    242 		    char **error_message ATTRIBUTE_UNUSED)
    243 {
    244   bfd_vma relocation;
    245   unsigned long x;
    246 
    247   /* This part is from bfd_elf_generic_reloc.  */
    248   if (output_bfd != (bfd *) NULL
    249       && (symbol->flags & BSF_SECTION_SYM) == 0
    250       && (! reloc_entry->howto->partial_inplace
    251 	  || reloc_entry->addend == 0))
    252     {
    253       reloc_entry->address += input_section->output_offset;
    254       return bfd_reloc_ok;
    255     }
    256 
    257   if (output_bfd != NULL)
    258     /* FIXME: See bfd_perform_relocation.  Is this right?  */
    259     return bfd_reloc_ok;
    260 
    261   relocation =
    262     symbol->value
    263     + symbol->section->output_section->vma
    264     + symbol->section->output_offset
    265     + reloc_entry->addend;
    266 
    267   if (relocation > (((bfd_vma) 1 << 20) - 1))
    268     return bfd_reloc_overflow;
    269 
    270   x = bfd_get_32 (abfd, (char *) data + reloc_entry->address);
    271   x = (x & 0xff0f0000) | (relocation & 0x0000ffff) | ((relocation & 0x000f0000) << 4);
    272   bfd_put_32 (abfd, (bfd_vma) x, (char *) data + reloc_entry->address);
    273 
    274   return bfd_reloc_ok;
    275 }
    276 
    277 /* Utility to actually perform a R_FR30_48 reloc.  */
    279 
    280 static bfd_reloc_status_type
    281 fr30_elf_i32_reloc (bfd *abfd,
    282 		    arelent *reloc_entry,
    283 		    asymbol *symbol,
    284 		    void * data,
    285 		    asection *input_section,
    286 		    bfd *output_bfd,
    287 		    char **error_message ATTRIBUTE_UNUSED)
    288 {
    289   bfd_vma relocation;
    290 
    291   /* This part is from bfd_elf_generic_reloc.  */
    292   if (output_bfd != (bfd *) NULL
    293       && (symbol->flags & BSF_SECTION_SYM) == 0
    294       && (! reloc_entry->howto->partial_inplace
    295 	  || reloc_entry->addend == 0))
    296     {
    297       reloc_entry->address += input_section->output_offset;
    298       return bfd_reloc_ok;
    299     }
    300 
    301   if (output_bfd != NULL)
    302     /* FIXME: See bfd_perform_relocation.  Is this right?  */
    303     return bfd_reloc_ok;
    304 
    305   relocation =
    306     symbol->value
    307     + symbol->section->output_section->vma
    308     + symbol->section->output_offset
    309     + reloc_entry->addend;
    310 
    311   bfd_put_32 (abfd, relocation, (char *) data + reloc_entry->address + 2);
    312 
    313   return bfd_reloc_ok;
    314 }
    315 
    316 /* Map BFD reloc types to FR30 ELF reloc types.  */
    318 
    319 struct fr30_reloc_map
    320 {
    321   bfd_reloc_code_real_type bfd_reloc_val;
    322   unsigned int fr30_reloc_val;
    323 };
    324 
    325 static const struct fr30_reloc_map fr30_reloc_map [] =
    326 {
    327   { BFD_RELOC_NONE,           R_FR30_NONE },
    328   { BFD_RELOC_8,              R_FR30_8 },
    329   { BFD_RELOC_FR30_20,        R_FR30_20 },
    330   { BFD_RELOC_32,             R_FR30_32 },
    331   { BFD_RELOC_FR30_48,        R_FR30_48 },
    332   { BFD_RELOC_FR30_6_IN_4,    R_FR30_6_IN_4 },
    333   { BFD_RELOC_FR30_8_IN_8,    R_FR30_8_IN_8 },
    334   { BFD_RELOC_FR30_9_IN_8,    R_FR30_9_IN_8 },
    335   { BFD_RELOC_FR30_10_IN_8,   R_FR30_10_IN_8 },
    336   { BFD_RELOC_FR30_9_PCREL,   R_FR30_9_PCREL },
    337   { BFD_RELOC_FR30_12_PCREL,  R_FR30_12_PCREL },
    338   { BFD_RELOC_VTABLE_INHERIT, R_FR30_GNU_VTINHERIT },
    339   { BFD_RELOC_VTABLE_ENTRY,   R_FR30_GNU_VTENTRY },
    340 };
    341 
    342 static reloc_howto_type *
    343 fr30_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
    344 			bfd_reloc_code_real_type code)
    345 {
    346   unsigned int i;
    347 
    348   for (i = sizeof (fr30_reloc_map) / sizeof (fr30_reloc_map[0]);
    349        i--;)
    350     if (fr30_reloc_map [i].bfd_reloc_val == code)
    351       return & fr30_elf_howto_table [fr30_reloc_map[i].fr30_reloc_val];
    352 
    353   return NULL;
    354 }
    355 
    356 static reloc_howto_type *
    357 fr30_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED, const char *r_name)
    358 {
    359   unsigned int i;
    360 
    361   for (i = 0;
    362        i < sizeof (fr30_elf_howto_table) / sizeof (fr30_elf_howto_table[0]);
    363        i++)
    364     if (fr30_elf_howto_table[i].name != NULL
    365 	&& strcasecmp (fr30_elf_howto_table[i].name, r_name) == 0)
    366       return &fr30_elf_howto_table[i];
    367 
    368   return NULL;
    369 }
    370 
    371 /* Set the howto pointer for an FR30 ELF reloc.  */
    372 
    373 static void
    374 fr30_info_to_howto_rela (bfd *abfd ATTRIBUTE_UNUSED,
    375 			 arelent *cache_ptr,
    376 			 Elf_Internal_Rela *dst)
    377 {
    378   unsigned int r_type;
    379 
    380   r_type = ELF32_R_TYPE (dst->r_info);
    381   if (r_type >= (unsigned int) R_FR30_max)
    382     {
    383       _bfd_error_handler (_("%B: invalid FR30 reloc number: %d"), abfd, r_type);
    384       r_type = 0;
    385     }
    386   cache_ptr->howto = & fr30_elf_howto_table [r_type];
    387 }
    388 
    389 /* Perform a single relocation.  By default we use the standard BFD
    391    routines, but a few relocs, we have to do them ourselves.  */
    392 
    393 static bfd_reloc_status_type
    394 fr30_final_link_relocate (reloc_howto_type *howto,
    395 			  bfd *input_bfd,
    396 			  asection *input_section,
    397 			  bfd_byte *contents,
    398 			  Elf_Internal_Rela *rel,
    399 			  bfd_vma relocation)
    400 {
    401   bfd_reloc_status_type r = bfd_reloc_ok;
    402   bfd_vma x;
    403   bfd_signed_vma srel;
    404 
    405   switch (howto->type)
    406     {
    407     case R_FR30_20:
    408       contents   += rel->r_offset;
    409       relocation += rel->r_addend;
    410 
    411       if (relocation > ((1 << 20) - 1))
    412 	return bfd_reloc_overflow;
    413 
    414       x = bfd_get_32 (input_bfd, contents);
    415       x = (x & 0xff0f0000) | (relocation & 0x0000ffff) | ((relocation & 0x000f0000) << 4);
    416       bfd_put_32 (input_bfd, x, contents);
    417       break;
    418 
    419     case R_FR30_48:
    420       contents   += rel->r_offset + 2;
    421       relocation += rel->r_addend;
    422       bfd_put_32 (input_bfd, relocation, contents);
    423       break;
    424 
    425     case R_FR30_9_PCREL:
    426       contents   += rel->r_offset + 1;
    427       srel = (bfd_signed_vma) relocation;
    428       srel += rel->r_addend;
    429       srel -= rel->r_offset;
    430       srel -= 2;  /* Branch instructions add 2 to the PC...  */
    431       srel -= (input_section->output_section->vma +
    432 		     input_section->output_offset);
    433 
    434       if (srel & 1)
    435 	return bfd_reloc_outofrange;
    436       if (srel > ((1 << 8) - 1) || (srel < - (1 << 8)))
    437 	return bfd_reloc_overflow;
    438 
    439       bfd_put_8 (input_bfd, srel >> 1, contents);
    440       break;
    441 
    442     case R_FR30_12_PCREL:
    443       contents   += rel->r_offset;
    444       srel = (bfd_signed_vma) relocation;
    445       srel += rel->r_addend;
    446       srel -= rel->r_offset;
    447       srel -= 2; /* Branch instructions add 2 to the PC...  */
    448       srel -= (input_section->output_section->vma +
    449 		     input_section->output_offset);
    450 
    451       if (srel & 1)
    452 	return bfd_reloc_outofrange;
    453       if (srel > ((1 << 11) - 1) || (srel < - (1 << 11)))
    454 	  return bfd_reloc_overflow;
    455 
    456       x = bfd_get_16 (input_bfd, contents);
    457       x = (x & 0xf800) | ((srel >> 1) & 0x7ff);
    458       bfd_put_16 (input_bfd, x, contents);
    459       break;
    460 
    461     default:
    462       r = _bfd_final_link_relocate (howto, input_bfd, input_section,
    463 				    contents, rel->r_offset,
    464 				    relocation, rel->r_addend);
    465     }
    466 
    467   return r;
    468 }
    469 
    470 /* Relocate an FR30 ELF section.
    472 
    473    The RELOCATE_SECTION function is called by the new ELF backend linker
    474    to handle the relocations for a section.
    475 
    476    The relocs are always passed as Rela structures; if the section
    477    actually uses Rel structures, the r_addend field will always be
    478    zero.
    479 
    480    This function is responsible for adjusting the section contents as
    481    necessary, and (if using Rela relocs and generating a relocatable
    482    output file) adjusting the reloc addend as necessary.
    483 
    484    This function does not have to worry about setting the reloc
    485    address or the reloc symbol index.
    486 
    487    LOCAL_SYMS is a pointer to the swapped in local symbols.
    488 
    489    LOCAL_SECTIONS is an array giving the section in the input file
    490    corresponding to the st_shndx field of each local symbol.
    491 
    492    The global hash table entry for the global symbols can be found
    493    via elf_sym_hashes (input_bfd).
    494 
    495    When generating relocatable output, this function must handle
    496    STB_LOCAL/STT_SECTION symbols specially.  The output symbol is
    497    going to be the section symbol corresponding to the output
    498    section, which means that the addend must be adjusted
    499    accordingly.  */
    500 
    501 static bfd_boolean
    502 fr30_elf_relocate_section (bfd *output_bfd,
    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)
    510 {
    511   Elf_Internal_Shdr *symtab_hdr;
    512   struct elf_link_hash_entry **sym_hashes;
    513   Elf_Internal_Rela *rel;
    514   Elf_Internal_Rela *relend;
    515 
    516   symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
    517   sym_hashes = elf_sym_hashes (input_bfd);
    518   relend     = relocs + input_section->reloc_count;
    519 
    520   for (rel = relocs; rel < relend; rel ++)
    521     {
    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;
    530       int r_type;
    531 
    532       r_type = ELF32_R_TYPE (rel->r_info);
    533 
    534       if (   r_type == R_FR30_GNU_VTINHERIT
    535 	  || r_type == R_FR30_GNU_VTENTRY)
    536 	continue;
    537 
    538       r_symndx = ELF32_R_SYM (rel->r_info);
    539 
    540       howto  = fr30_elf_howto_table + ELF32_R_TYPE (rel->r_info);
    541       h      = NULL;
    542       sym    = NULL;
    543       sec    = NULL;
    544 
    545       if (r_symndx < symtab_hdr->sh_info)
    546 	{
    547 	  sym = local_syms + r_symndx;
    548 	  sec = local_sections [r_symndx];
    549 	  relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
    550 
    551 	  name = bfd_elf_string_from_elf_section
    552 	    (input_bfd, symtab_hdr->sh_link, sym->st_name);
    553 	  name = (name == NULL) ? bfd_section_name (input_bfd, sec) : name;
    554 	}
    555       else
    556 	{
    557 	  bfd_boolean unresolved_reloc, warned, ignored;
    558 
    559 	  RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
    560 				   r_symndx, symtab_hdr, sym_hashes,
    561 				   h, sec, relocation,
    562 				   unresolved_reloc, warned, ignored);
    563 
    564 	  name = h->root.root.string;
    565 	}
    566 
    567       if (sec != NULL && discarded_section (sec))
    568 	RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
    569 					 rel, 1, relend, howto, 0, contents);
    570 
    571       if (bfd_link_relocatable (info))
    572 	continue;
    573 
    574       r = fr30_final_link_relocate (howto, input_bfd, input_section,
    575 				     contents, rel, relocation);
    576 
    577       if (r != bfd_reloc_ok)
    578 	{
    579 	  const char * msg = (const char *) NULL;
    580 
    581 	  switch (r)
    582 	    {
    583 	    case bfd_reloc_overflow:
    584 	      (*info->callbacks->reloc_overflow)
    585 		(info, (h ? &h->root : NULL), name, howto->name,
    586 		 (bfd_vma) 0, input_bfd, input_section, rel->r_offset);
    587 	      break;
    588 
    589 	    case bfd_reloc_undefined:
    590 	      (*info->callbacks->undefined_symbol)
    591 		(info, name, input_bfd, input_section, rel->r_offset, TRUE);
    592 	      break;
    593 
    594 	    case bfd_reloc_outofrange:
    595 	      msg = _("internal error: out of range error");
    596 	      break;
    597 
    598 	    case bfd_reloc_notsupported:
    599 	      msg = _("internal error: unsupported relocation error");
    600 	      break;
    601 
    602 	    case bfd_reloc_dangerous:
    603 	      msg = _("internal error: dangerous relocation");
    604 	      break;
    605 
    606 	    default:
    607 	      msg = _("internal error: unknown error");
    608 	      break;
    609 	    }
    610 
    611 	  if (msg)
    612 	    (*info->callbacks->warning) (info, msg, name, input_bfd,
    613 					 input_section, rel->r_offset);
    614 	}
    615     }
    616 
    617   return TRUE;
    618 }
    619 
    620 /* Return the section that should be marked against GC for a given
    622    relocation.  */
    623 
    624 static asection *
    625 fr30_elf_gc_mark_hook (asection *sec,
    626 		       struct bfd_link_info *info,
    627 		       Elf_Internal_Rela *rel,
    628 		       struct elf_link_hash_entry *h,
    629 		       Elf_Internal_Sym *sym)
    630 {
    631   if (h != NULL)
    632     switch (ELF32_R_TYPE (rel->r_info))
    633       {
    634       case R_FR30_GNU_VTINHERIT:
    635       case R_FR30_GNU_VTENTRY:
    636 	return NULL;
    637       }
    638 
    639   return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
    640 }
    641 
    642 /* Look through the relocs for a section during the first phase.
    643    Since we don't do .gots or .plts, we just need to consider the
    644    virtual table relocs for gc.  */
    645 
    646 static bfd_boolean
    647 fr30_elf_check_relocs (bfd *abfd,
    648 		       struct bfd_link_info *info,
    649 		       asection *sec,
    650 		       const Elf_Internal_Rela *relocs)
    651 {
    652   Elf_Internal_Shdr *symtab_hdr;
    653   struct elf_link_hash_entry **sym_hashes;
    654   const Elf_Internal_Rela *rel;
    655   const Elf_Internal_Rela *rel_end;
    656 
    657   if (bfd_link_relocatable (info))
    658     return TRUE;
    659 
    660   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
    661   sym_hashes = elf_sym_hashes (abfd);
    662 
    663   rel_end = relocs + sec->reloc_count;
    664   for (rel = relocs; rel < rel_end; rel++)
    665     {
    666       struct elf_link_hash_entry *h;
    667       unsigned long r_symndx;
    668 
    669       r_symndx = ELF32_R_SYM (rel->r_info);
    670       if (r_symndx < symtab_hdr->sh_info)
    671         h = NULL;
    672       else
    673 	{
    674 	  h = sym_hashes[r_symndx - symtab_hdr->sh_info];
    675 	  while (h->root.type == bfd_link_hash_indirect
    676 		 || h->root.type == bfd_link_hash_warning)
    677 	    h = (struct elf_link_hash_entry *) h->root.u.i.link;
    678 
    679 	  /* PR15323, ref flags aren't set for references in the same
    680 	     object.  */
    681 	  h->root.non_ir_ref = 1;
    682 	}
    683 
    684       switch (ELF32_R_TYPE (rel->r_info))
    685         {
    686         /* This relocation describes the C++ object vtable hierarchy.
    687            Reconstruct it for later use during GC.  */
    688         case R_FR30_GNU_VTINHERIT:
    689           if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
    690             return FALSE;
    691           break;
    692 
    693         /* This relocation describes which C++ vtable entries are actually
    694            used.  Record for later use during GC.  */
    695         case R_FR30_GNU_VTENTRY:
    696           BFD_ASSERT (h != NULL);
    697           if (h != NULL
    698               && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
    699             return FALSE;
    700           break;
    701         }
    702     }
    703 
    704   return TRUE;
    705 }
    706 
    707 #define ELF_ARCH		bfd_arch_fr30
    709 #define ELF_MACHINE_CODE	EM_FR30
    710 #define ELF_MACHINE_ALT1	EM_CYGNUS_FR30
    711 #define ELF_MAXPAGESIZE		0x1000
    712 
    713 #define TARGET_BIG_SYM          fr30_elf32_vec
    714 #define TARGET_BIG_NAME		"elf32-fr30"
    715 
    716 #define elf_info_to_howto_rel			NULL
    717 #define elf_info_to_howto			fr30_info_to_howto_rela
    718 #define elf_backend_relocate_section		fr30_elf_relocate_section
    719 #define elf_backend_gc_mark_hook		fr30_elf_gc_mark_hook
    720 #define elf_backend_check_relocs                fr30_elf_check_relocs
    721 
    722 #define elf_backend_can_gc_sections		1
    723 #define elf_backend_rela_normal			1
    724 
    725 #define bfd_elf32_bfd_reloc_type_lookup		fr30_reloc_type_lookup
    726 #define bfd_elf32_bfd_reloc_name_lookup	fr30_reloc_name_lookup
    727 
    728 #include "elf32-target.h"
    729