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