1 /* Motorola MCore specific support for 32-bit ELF
2 Copyright 1994, 1995, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
3 2007 Free Software Foundation, Inc.
4
5 This file is part of BFD, the Binary File Descriptor library.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
20 MA 02110-1301, USA. */
21
22
23 /* This file is based on a preliminary RCE ELF ABI. The
24 information may not match the final RCE ELF ABI. */
25
26 #include "sysdep.h"
27 #include "bfd.h"
28 #include "bfdlink.h"
29 #include "libbfd.h"
30 #include "elf-bfd.h"
31 #include "elf/mcore.h"
32 #include <assert.h>
33
34 /* RELA relocs are used here... */
35
36 /* Function to set whether a module needs the -mrelocatable bit set. */
37
38 static bfd_boolean
mcore_elf_set_private_flags(bfd * abfd,flagword flags)39 mcore_elf_set_private_flags (bfd * abfd, flagword flags)
40 {
41 BFD_ASSERT (! elf_flags_init (abfd)
42 || elf_elfheader (abfd)->e_flags == flags);
43
44 elf_elfheader (abfd)->e_flags = flags;
45 elf_flags_init (abfd) = TRUE;
46 return TRUE;
47 }
48
49 /* Merge backend specific data from an object file to the output
50 object file when linking. */
51
52 static bfd_boolean
mcore_elf_merge_private_bfd_data(bfd * ibfd,bfd * obfd)53 mcore_elf_merge_private_bfd_data (bfd * ibfd, bfd * obfd)
54 {
55 flagword old_flags;
56 flagword new_flags;
57
58 /* Check if we have the same endianess. */
59 if (! _bfd_generic_verify_endian_match (ibfd, obfd))
60 return FALSE;
61
62 if ( bfd_get_flavour (ibfd) != bfd_target_elf_flavour
63 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
64 return TRUE;
65
66 new_flags = elf_elfheader (ibfd)->e_flags;
67 old_flags = elf_elfheader (obfd)->e_flags;
68
69 if (! elf_flags_init (obfd))
70 {
71 /* First call, no flags set. */
72 elf_flags_init (obfd) = TRUE;
73 elf_elfheader (obfd)->e_flags = new_flags;
74 }
75 else if (new_flags == old_flags)
76 /* Compatible flags are OK. */
77 ;
78 else
79 {
80 /* FIXME */
81 }
82
83 return TRUE;
84 }
85
86 /* Don't pretend we can deal with unsupported relocs. */
87
88 static bfd_reloc_status_type
mcore_elf_unsupported_reloc(bfd * abfd,arelent * reloc_entry,asymbol * symbol ATTRIBUTE_UNUSED,PTR data ATTRIBUTE_UNUSED,asection * input_section ATTRIBUTE_UNUSED,bfd * output_bfd ATTRIBUTE_UNUSED,char ** error_message ATTRIBUTE_UNUSED)89 mcore_elf_unsupported_reloc (bfd * abfd,
90 arelent * reloc_entry,
91 asymbol * symbol ATTRIBUTE_UNUSED,
92 PTR data ATTRIBUTE_UNUSED,
93 asection * input_section ATTRIBUTE_UNUSED,
94 bfd * output_bfd ATTRIBUTE_UNUSED,
95 char ** error_message ATTRIBUTE_UNUSED)
96 {
97 BFD_ASSERT (reloc_entry->howto != (reloc_howto_type *)0);
98
99 _bfd_error_handler (_("%B: Relocation %s (%d) is not currently supported.\n"),
100 abfd,
101 reloc_entry->howto->name,
102 reloc_entry->howto->type);
103
104 return bfd_reloc_notsupported;
105 }
106
107 static reloc_howto_type * mcore_elf_howto_table [(int) R_MCORE_max];
108
109 static reloc_howto_type mcore_elf_howto_raw[] =
110 {
111 /* This reloc does nothing. */
112 HOWTO (R_MCORE_NONE, /* type */
113 0, /* rightshift */
114 2, /* size (0 = byte, 1 = short, 2 = long) */
115 32, /* bitsize */
116 FALSE, /* pc_relative */
117 0, /* bitpos */
118 complain_overflow_bitfield, /* complain_on_overflow */
119 NULL, /* special_function */
120 "R_MCORE_NONE", /* name */
121 FALSE, /* partial_inplace */
122 0, /* src_mask */
123 0, /* dst_mask */
124 FALSE), /* pcrel_offset */
125
126 /* A standard 32 bit relocation. */
127 HOWTO (R_MCORE_ADDR32, /* type */
128 0, /* rightshift */
129 2, /* size (0 = byte, 1 = short, 2 = long) */
130 32, /* bitsize */
131 FALSE, /* pc_relative */
132 0, /* bitpos */
133 complain_overflow_bitfield, /* complain_on_overflow */
134 bfd_elf_generic_reloc, /* special_function */
135 "ADDR32", /* name *//* For compatibility with coff/pe port. */
136 FALSE, /* partial_inplace */
137 0x0, /* src_mask */
138 0xffffffff, /* dst_mask */
139 FALSE), /* pcrel_offset */
140
141 /* 8 bits + 2 zero bits; jmpi/jsri/lrw instructions.
142 Should not appear in object files. */
143 HOWTO (R_MCORE_PCRELIMM8BY4, /* type */
144 2, /* rightshift */
145 1, /* size (0 = byte, 1 = short, 2 = long) */
146 8, /* bitsize */
147 TRUE, /* pc_relative */
148 0, /* bitpos */
149 complain_overflow_bitfield, /* complain_on_overflow */
150 mcore_elf_unsupported_reloc, /* special_function */
151 "R_MCORE_PCRELIMM8BY4",/* name */
152 FALSE, /* partial_inplace */
153 0, /* src_mask */
154 0, /* dst_mask */
155 TRUE), /* pcrel_offset */
156
157 /* bsr/bt/bf/br instructions; 11 bits + 1 zero bit
158 Span 2k instructions == 4k bytes.
159 Only useful pieces at the relocated address are the opcode (5 bits) */
160 HOWTO (R_MCORE_PCRELIMM11BY2,/* type */
161 1, /* rightshift */
162 1, /* size (0 = byte, 1 = short, 2 = long) */
163 11, /* bitsize */
164 TRUE, /* pc_relative */
165 0, /* bitpos */
166 complain_overflow_signed, /* complain_on_overflow */
167 bfd_elf_generic_reloc, /* special_function */
168 "R_MCORE_PCRELIMM11BY2",/* name */
169 FALSE, /* partial_inplace */
170 0x0, /* src_mask */
171 0x7ff, /* dst_mask */
172 TRUE), /* pcrel_offset */
173
174 /* 4 bits + 1 zero bit; 'loopt' instruction only; unsupported. */
175 HOWTO (R_MCORE_PCRELIMM4BY2, /* type */
176 1, /* rightshift */
177 1, /* size (0 = byte, 1 = short, 2 = long) */
178 4, /* bitsize */
179 TRUE, /* pc_relative */
180 0, /* bitpos */
181 complain_overflow_bitfield, /* complain_on_overflow */
182 mcore_elf_unsupported_reloc,/* special_function */
183 "R_MCORE_PCRELIMM4BY2",/* name */
184 FALSE, /* partial_inplace */
185 0, /* src_mask */
186 0, /* dst_mask */
187 TRUE), /* pcrel_offset */
188
189 /* 32-bit pc-relative. Eventually this will help support PIC code. */
190 HOWTO (R_MCORE_PCREL32, /* type */
191 0, /* rightshift */
192 2, /* size (0 = byte, 1 = short, 2 = long) */
193 32, /* bitsize */
194 TRUE, /* pc_relative */
195 0, /* bitpos */
196 complain_overflow_bitfield, /* complain_on_overflow */
197 bfd_elf_generic_reloc, /* special_function */
198 "R_MCORE_PCREL32", /* name */
199 FALSE, /* partial_inplace */
200 0x0, /* src_mask */
201 0xffffffff, /* dst_mask */
202 TRUE), /* pcrel_offset */
203
204 /* Like PCRELIMM11BY2, this relocation indicates that there is a
205 'jsri' at the specified address. There is a separate relocation
206 entry for the literal pool entry that it references, but we
207 might be able to change the jsri to a bsr if the target turns out
208 to be close enough [even though we won't reclaim the literal pool
209 entry, we'll get some runtime efficiency back]. Note that this
210 is a relocation that we are allowed to safely ignore. */
211 HOWTO (R_MCORE_PCRELJSR_IMM11BY2,/* type */
212 1, /* rightshift */
213 1, /* size (0 = byte, 1 = short, 2 = long) */
214 11, /* bitsize */
215 TRUE, /* pc_relative */
216 0, /* bitpos */
217 complain_overflow_signed, /* complain_on_overflow */
218 bfd_elf_generic_reloc, /* special_function */
219 "R_MCORE_PCRELJSR_IMM11BY2", /* name */
220 FALSE, /* partial_inplace */
221 0x0, /* src_mask */
222 0x7ff, /* dst_mask */
223 TRUE), /* pcrel_offset */
224
225 /* GNU extension to record C++ vtable hierarchy. */
226 HOWTO (R_MCORE_GNU_VTINHERIT, /* 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 NULL, /* special_function */
234 "R_MCORE_GNU_VTINHERIT", /* name */
235 FALSE, /* partial_inplace */
236 0, /* src_mask */
237 0, /* dst_mask */
238 FALSE), /* pcrel_offset */
239
240 /* GNU extension to record C++ vtable member usage. */
241 HOWTO (R_MCORE_GNU_VTENTRY, /* type */
242 0, /* rightshift */
243 2, /* size (0 = byte, 1 = short, 2 = long) */
244 0, /* bitsize */
245 FALSE, /* pc_relative */
246 0, /* bitpos */
247 complain_overflow_dont,/* complain_on_overflow */
248 _bfd_elf_rel_vtable_reloc_fn, /* special_function */
249 "R_MCORE_GNU_VTENTRY", /* name */
250 FALSE, /* partial_inplace */
251 0, /* src_mask */
252 0, /* dst_mask */
253 FALSE), /* pcrel_offset */
254
255 HOWTO (R_MCORE_RELATIVE, /* type */
256 0, /* rightshift */
257 2, /* size (0 = byte, 1 = short, 2 = long) */
258 32, /* bitsize */
259 FALSE, /* pc_relative */
260 0, /* bitpos */
261 complain_overflow_signed, /* complain_on_overflow */
262 NULL, /* special_function */
263 "R_MCORE_RELATIVE", /* name */
264 TRUE, /* partial_inplace */
265 0xffffffff, /* src_mask */
266 0xffffffff, /* dst_mask */
267 FALSE) /* pcrel_offset */
268 };
269
270 #ifndef NUM_ELEM
271 #define NUM_ELEM(a) (sizeof (a) / sizeof (a)[0])
272 #endif
273
274 /* Initialize the mcore_elf_howto_table, so that linear accesses can be done. */
275 static void
mcore_elf_howto_init(void)276 mcore_elf_howto_init (void)
277 {
278 unsigned int i;
279
280 for (i = NUM_ELEM (mcore_elf_howto_raw); i--;)
281 {
282 unsigned int type;
283
284 type = mcore_elf_howto_raw[i].type;
285
286 BFD_ASSERT (type < NUM_ELEM (mcore_elf_howto_table));
287
288 mcore_elf_howto_table [type] = & mcore_elf_howto_raw [i];
289 }
290 }
291
292 static reloc_howto_type *
mcore_elf_reloc_type_lookup(bfd * abfd ATTRIBUTE_UNUSED,bfd_reloc_code_real_type code)293 mcore_elf_reloc_type_lookup (bfd * abfd ATTRIBUTE_UNUSED,
294 bfd_reloc_code_real_type code)
295 {
296 enum elf_mcore_reloc_type mcore_reloc = R_MCORE_NONE;
297
298 switch (code)
299 {
300 case BFD_RELOC_NONE: mcore_reloc = R_MCORE_NONE; break;
301 case BFD_RELOC_32: mcore_reloc = R_MCORE_ADDR32; break;
302 case BFD_RELOC_MCORE_PCREL_IMM8BY4: mcore_reloc = R_MCORE_PCRELIMM8BY4; break;
303 case BFD_RELOC_MCORE_PCREL_IMM11BY2: mcore_reloc = R_MCORE_PCRELIMM11BY2; break;
304 case BFD_RELOC_MCORE_PCREL_IMM4BY2: mcore_reloc = R_MCORE_PCRELIMM4BY2; break;
305 case BFD_RELOC_32_PCREL: mcore_reloc = R_MCORE_PCREL32; break;
306 case BFD_RELOC_MCORE_PCREL_JSR_IMM11BY2: mcore_reloc = R_MCORE_PCRELJSR_IMM11BY2; break;
307 case BFD_RELOC_VTABLE_INHERIT: mcore_reloc = R_MCORE_GNU_VTINHERIT; break;
308 case BFD_RELOC_VTABLE_ENTRY: mcore_reloc = R_MCORE_GNU_VTENTRY; break;
309 case BFD_RELOC_RVA: mcore_reloc = R_MCORE_RELATIVE; break;
310 default:
311 return NULL;
312 }
313
314 if (! mcore_elf_howto_table [R_MCORE_PCRELIMM8BY4])
315 /* Initialize howto table if needed. */
316 mcore_elf_howto_init ();
317
318 return mcore_elf_howto_table [(int) mcore_reloc];
319 };
320
321 static reloc_howto_type *
mcore_elf_reloc_name_lookup(bfd * abfd ATTRIBUTE_UNUSED,const char * r_name)322 mcore_elf_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
323 const char *r_name)
324 {
325 unsigned int i;
326
327 for (i = 0;
328 i < sizeof (mcore_elf_howto_raw) / sizeof (mcore_elf_howto_raw[0]);
329 i++)
330 if (mcore_elf_howto_raw[i].name != NULL
331 && strcasecmp (mcore_elf_howto_raw[i].name, r_name) == 0)
332 return &mcore_elf_howto_raw[i];
333
334 return NULL;
335 }
336
337 /* Set the howto pointer for a RCE ELF reloc. */
338
339 static void
mcore_elf_info_to_howto(bfd * abfd ATTRIBUTE_UNUSED,arelent * cache_ptr,Elf_Internal_Rela * dst)340 mcore_elf_info_to_howto (bfd * abfd ATTRIBUTE_UNUSED,
341 arelent * cache_ptr,
342 Elf_Internal_Rela * dst)
343 {
344 if (! mcore_elf_howto_table [R_MCORE_PCRELIMM8BY4])
345 /* Initialize howto table if needed. */
346 mcore_elf_howto_init ();
347
348 BFD_ASSERT (ELF32_R_TYPE (dst->r_info) < (unsigned int) R_MCORE_max);
349
350 cache_ptr->howto = mcore_elf_howto_table [ELF32_R_TYPE (dst->r_info)];
351 }
352
353 /* The RELOCATE_SECTION function is called by the ELF backend linker
354 to handle the relocations for a section.
355
356 The relocs are always passed as Rela structures; if the section
357 actually uses Rel structures, the r_addend field will always be
358 zero.
359
360 This function is responsible for adjust the section contents as
361 necessary, and (if using Rela relocs and generating a
362 relocatable output file) adjusting the reloc addend as
363 necessary.
364
365 This function does not have to worry about setting the reloc
366 address or the reloc symbol index.
367
368 LOCAL_SYMS is a pointer to the swapped in local symbols.
369
370 LOCAL_SECTIONS is an array giving the section in the input file
371 corresponding to the st_shndx field of each local symbol.
372
373 The global hash table entry for the global symbols can be found
374 via elf_sym_hashes (input_bfd).
375
376 When generating relocatable output, this function must handle
377 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
378 going to be the section symbol corresponding to the output
379 section, which means that the addend must be adjusted
380 accordingly. */
381
382 static bfd_boolean
mcore_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)383 mcore_elf_relocate_section (bfd * output_bfd,
384 struct bfd_link_info * info,
385 bfd * input_bfd,
386 asection * input_section,
387 bfd_byte * contents,
388 Elf_Internal_Rela * relocs,
389 Elf_Internal_Sym * local_syms,
390 asection ** local_sections)
391 {
392 Elf_Internal_Shdr * symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
393 struct elf_link_hash_entry ** sym_hashes = elf_sym_hashes (input_bfd);
394 Elf_Internal_Rela * rel = relocs;
395 Elf_Internal_Rela * relend = relocs + input_section->reloc_count;
396 bfd_boolean ret = TRUE;
397
398 #ifdef DEBUG
399 _bfd_error_handler
400 ("mcore_elf_relocate_section called for %B section %A, %ld relocations%s",
401 input_bfd,
402 input_section,
403 (long) input_section->reloc_count,
404 (info->relocatable) ? " (relocatable)" : "");
405 #endif
406
407 if (! mcore_elf_howto_table [R_MCORE_PCRELIMM8BY4]) /* Initialize howto table if needed */
408 mcore_elf_howto_init ();
409
410 for (; rel < relend; rel++)
411 {
412 enum elf_mcore_reloc_type r_type = (enum elf_mcore_reloc_type) ELF32_R_TYPE (rel->r_info);
413 bfd_vma offset = rel->r_offset;
414 bfd_vma addend = rel->r_addend;
415 bfd_reloc_status_type r = bfd_reloc_other;
416 asection * sec = NULL;
417 reloc_howto_type * howto;
418 bfd_vma relocation;
419 Elf_Internal_Sym * sym = NULL;
420 unsigned long r_symndx;
421 struct elf_link_hash_entry * h = NULL;
422 unsigned short oldinst = 0;
423
424 /* Unknown relocation handling. */
425 if ((unsigned) r_type >= (unsigned) R_MCORE_max
426 || ! mcore_elf_howto_table [(int)r_type])
427 {
428 _bfd_error_handler (_("%B: Unknown relocation type %d\n"),
429 input_bfd, (int) r_type);
430
431 bfd_set_error (bfd_error_bad_value);
432 ret = FALSE;
433 continue;
434 }
435
436 howto = mcore_elf_howto_table [(int) r_type];
437 r_symndx = ELF32_R_SYM (rel->r_info);
438
439 /* Complain about known relocation that are not yet supported. */
440 if (howto->special_function == mcore_elf_unsupported_reloc)
441 {
442 _bfd_error_handler (_("%B: Relocation %s (%d) is not currently supported.\n"),
443 input_bfd,
444 howto->name,
445 (int)r_type);
446
447 bfd_set_error (bfd_error_bad_value);
448 ret = FALSE;
449 continue;
450 }
451
452 if (r_symndx < symtab_hdr->sh_info)
453 {
454 sym = local_syms + r_symndx;
455 sec = local_sections [r_symndx];
456 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
457 addend = rel->r_addend;
458 }
459 else
460 {
461 bfd_boolean unresolved_reloc, warned;
462
463 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
464 r_symndx, symtab_hdr, sym_hashes,
465 h, sec, relocation,
466 unresolved_reloc, warned);
467 }
468
469 if (sec != NULL && elf_discarded_section (sec))
470 RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
471 rel, relend, howto, contents);
472
473 if (info->relocatable)
474 continue;
475
476 switch (r_type)
477 {
478 default:
479 break;
480
481 case R_MCORE_PCRELJSR_IMM11BY2:
482 oldinst = bfd_get_16 (input_bfd, contents + offset);
483 #define MCORE_INST_BSR 0xF800
484 bfd_put_16 (input_bfd, (bfd_vma) MCORE_INST_BSR, contents + offset);
485 break;
486 }
487
488 #ifdef DEBUG
489 fprintf (stderr, "\ttype = %s (%d), symbol index = %ld, offset = %ld, addend = %ld\n",
490 howto->name, r_type, r_symndx, (long) offset, (long) addend);
491 #endif
492
493 r = _bfd_final_link_relocate
494 (howto, input_bfd, input_section, contents, offset, relocation, addend);
495
496 if (r != bfd_reloc_ok && r_type == R_MCORE_PCRELJSR_IMM11BY2)
497 {
498 /* Wasn't ok, back it out and give up. */
499 bfd_put_16 (input_bfd, (bfd_vma) oldinst, contents + offset);
500 r = bfd_reloc_ok;
501 }
502
503 if (r != bfd_reloc_ok)
504 {
505 ret = FALSE;
506
507 switch (r)
508 {
509 default:
510 break;
511
512 case bfd_reloc_overflow:
513 {
514 const char * name;
515
516 if (h != NULL)
517 name = NULL;
518 else
519 {
520 name = bfd_elf_string_from_elf_section
521 (input_bfd, symtab_hdr->sh_link, sym->st_name);
522
523 if (name == NULL)
524 break;
525
526 if (* name == '\0')
527 name = bfd_section_name (input_bfd, sec);
528 }
529
530 (*info->callbacks->reloc_overflow)
531 (info, (h ? &h->root : NULL), name, howto->name,
532 (bfd_vma) 0, input_bfd, input_section, offset);
533 }
534 break;
535 }
536 }
537 }
538
539 #ifdef DEBUG
540 fprintf (stderr, "\n");
541 #endif
542
543 return ret;
544 }
545
546 /* Return the section that should be marked against GC for a given
547 relocation. */
548
549 static asection *
mcore_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)550 mcore_elf_gc_mark_hook (asection *sec,
551 struct bfd_link_info *info,
552 Elf_Internal_Rela *rel,
553 struct elf_link_hash_entry *h,
554 Elf_Internal_Sym *sym)
555 {
556 if (h != NULL)
557 switch (ELF32_R_TYPE (rel->r_info))
558 {
559 case R_MCORE_GNU_VTINHERIT:
560 case R_MCORE_GNU_VTENTRY:
561 return NULL;
562 }
563
564 return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
565 }
566
567 /* Update the got entry reference counts for the section being removed. */
568
569 static bfd_boolean
mcore_elf_gc_sweep_hook(bfd * abfd ATTRIBUTE_UNUSED,struct bfd_link_info * info ATTRIBUTE_UNUSED,asection * sec ATTRIBUTE_UNUSED,const Elf_Internal_Rela * relocs ATTRIBUTE_UNUSED)570 mcore_elf_gc_sweep_hook (bfd * abfd ATTRIBUTE_UNUSED,
571 struct bfd_link_info * info ATTRIBUTE_UNUSED,
572 asection * sec ATTRIBUTE_UNUSED,
573 const Elf_Internal_Rela * relocs ATTRIBUTE_UNUSED)
574 {
575 return TRUE;
576 }
577
578 /* Look through the relocs for a section during the first phase.
579 Since we don't do .gots or .plts, we just need to consider the
580 virtual table relocs for gc. */
581
582 static bfd_boolean
mcore_elf_check_relocs(bfd * abfd,struct bfd_link_info * info,asection * sec,const Elf_Internal_Rela * relocs)583 mcore_elf_check_relocs (bfd * abfd,
584 struct bfd_link_info * info,
585 asection * sec,
586 const Elf_Internal_Rela * relocs)
587 {
588 Elf_Internal_Shdr * symtab_hdr;
589 struct elf_link_hash_entry ** sym_hashes;
590 const Elf_Internal_Rela * rel;
591 const Elf_Internal_Rela * rel_end;
592
593 if (info->relocatable)
594 return TRUE;
595
596 symtab_hdr = & elf_tdata (abfd)->symtab_hdr;
597 sym_hashes = elf_sym_hashes (abfd);
598
599 rel_end = relocs + sec->reloc_count;
600
601 for (rel = relocs; rel < rel_end; rel++)
602 {
603 struct elf_link_hash_entry * h;
604 unsigned long r_symndx;
605
606 r_symndx = ELF32_R_SYM (rel->r_info);
607
608 if (r_symndx < symtab_hdr->sh_info)
609 h = NULL;
610 else
611 {
612 h = sym_hashes [r_symndx - symtab_hdr->sh_info];
613 while (h->root.type == bfd_link_hash_indirect
614 || h->root.type == bfd_link_hash_warning)
615 h = (struct elf_link_hash_entry *) h->root.u.i.link;
616 }
617
618 switch (ELF32_R_TYPE (rel->r_info))
619 {
620 /* This relocation describes the C++ object vtable hierarchy.
621 Reconstruct it for later use during GC. */
622 case R_MCORE_GNU_VTINHERIT:
623 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
624 return FALSE;
625 break;
626
627 /* This relocation describes which C++ vtable entries are actually
628 used. Record for later use during GC. */
629 case R_MCORE_GNU_VTENTRY:
630 BFD_ASSERT (h != NULL);
631 if (h != NULL
632 && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
633 return FALSE;
634 break;
635 }
636 }
637
638 return TRUE;
639 }
640
641 static const struct bfd_elf_special_section mcore_elf_special_sections[]=
642 {
643 { STRING_COMMA_LEN (".ctors"), -2, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE },
644 { STRING_COMMA_LEN (".dtors"), -2, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE },
645 { NULL, 0, 0, 0, 0 }
646 };
647
648 #define TARGET_BIG_SYM bfd_elf32_mcore_big_vec
649 #define TARGET_BIG_NAME "elf32-mcore-big"
650 #define TARGET_LITTLE_SYM bfd_elf32_mcore_little_vec
651 #define TARGET_LITTLE_NAME "elf32-mcore-little"
652
653 #define ELF_ARCH bfd_arch_mcore
654 #define ELF_MACHINE_CODE EM_MCORE
655 #define ELF_MAXPAGESIZE 0x1000 /* 4k, if we ever have 'em */
656 #define elf_info_to_howto mcore_elf_info_to_howto
657 #define elf_info_to_howto_rel NULL
658
659 #define bfd_elf32_bfd_merge_private_bfd_data mcore_elf_merge_private_bfd_data
660 #define bfd_elf32_bfd_set_private_flags mcore_elf_set_private_flags
661 #define bfd_elf32_bfd_reloc_type_lookup mcore_elf_reloc_type_lookup
662 #define bfd_elf32_bfd_reloc_name_lookup mcore_elf_reloc_name_lookup
663 #define elf_backend_relocate_section mcore_elf_relocate_section
664 #define elf_backend_gc_mark_hook mcore_elf_gc_mark_hook
665 #define elf_backend_gc_sweep_hook mcore_elf_gc_sweep_hook
666 #define elf_backend_check_relocs mcore_elf_check_relocs
667 #define elf_backend_special_sections mcore_elf_special_sections
668
669 #define elf_backend_can_gc_sections 1
670 #define elf_backend_rela_normal 1
671
672 #include "elf32-target.h"
673