?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
gmp-utils: New API to simply use of GMP's integer/rational/float objects
[binutils-gdb.git] / bfd / elf32-ft32.c
blob78457d533033d85fb3853aec6c98caec0a428975
1 /* ft32-specific support for 32-bit ELF.
2 Copyright (C) 2013-2020 Free Software Foundation, Inc.
3
4 Copied from elf32-moxie.c which is..
5 Copyright (C) 2009-2020 Free Software Foundation, Inc.
6 Free Software Foundation, Inc.
7
8 This file is part of BFD, the Binary File Descriptor library.
9
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 3 of the License, or
13 (at your option) any later version.
14
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
19
20 You should have received a copy of the GNU General Public License
21 along with this program; if not, write to the Free Software
22 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
23 MA 02110-1301, USA. */
24
25 #include "sysdep.h"
26 #include "bfd.h"
27 #include "libbfd.h"
28 #include "elf-bfd.h"
29 #include "elf/ft32.h"
30 #include "opcode/ft32.h"
31
32 static bfd_boolean debug_relax = FALSE;
33
34 static bfd_reloc_status_type
35 bfd_elf_ft32_diff_reloc (bfd *, arelent *, asymbol *, void *,
36 asection *, bfd *, char **);
37
38 static reloc_howto_type ft32_elf_howto_table [] =
39 {
40 /* This reloc does nothing. */
41 HOWTO (R_FT32_NONE, /* type */
42 0, /* rightshift */
43 2, /* size (0 = byte, 1 = short, 2 = long) */
44 32, /* bitsize */
45 FALSE, /* pc_relative */
46 0, /* bitpos */
47 complain_overflow_bitfield, /* complain_on_overflow */
48 bfd_elf_generic_reloc, /* special_function */
49 "R_FT32_NONE", /* name */
50 FALSE, /* partial_inplace */
51 0, /* src_mask */
52 0, /* dst_mask */
53 FALSE), /* pcrel_offset */
54
55 /* A 32 bit absolute relocation. */
56
57 HOWTO (R_FT32_32, /* type */
58 0, /* rightshift */
59 2, /* size (0 = byte, 1 = short, 2 = long) */
60 32, /* bitsize */
61 FALSE, /* pc_relative */
62 0, /* bitpos */
63 complain_overflow_bitfield, /* complain_on_overflow */
64 bfd_elf_generic_reloc, /* special_function */
65 "R_FT32_32", /* name */
66 FALSE, /* partial_inplace */
67 0x00000000, /* src_mask */
68 0xffffffff, /* dst_mask */
69 FALSE), /* pcrel_offset */
70
71 HOWTO (R_FT32_16, /* type */
72 0, /* rightshift */
73 1, /* size (0 = byte, 1 = short, 2 = long) */
74 16, /* bitsize */
75 FALSE, /* pc_relative */
76 0, /* bitpos */
77 complain_overflow_dont, /* complain_on_overflow */
78 bfd_elf_generic_reloc, /* special_function */
79 "R_FT32_16", /* name */
80 FALSE, /* partial_inplace */
81 0x00000000, /* src_mask */
82 0x0000ffff, /* dst_mask */
83 FALSE), /* pcrel_offset */
84
85 HOWTO (R_FT32_8, /* type */
86 0, /* rightshift */
87 0, /* size (0 = byte, 1 = short, 2 = long) */
88 8, /* bitsize */
89 FALSE, /* pc_relative */
90 0, /* bitpos */
91 complain_overflow_signed, /* complain_on_overflow */
92 bfd_elf_generic_reloc, /* special_function */
93 "R_FT32_8", /* name */
94 FALSE, /* partial_inplace */
95 0x00000000, /* src_mask */
96 0x000000ff, /* dst_mask */
97 FALSE), /* pcrel_offset */
98
99 HOWTO (R_FT32_10, /* type */
100 0, /* rightshift */
101 1, /* size (0 = byte, 1 = short, 2 = long) */
102 10, /* bitsize */
103 FALSE, /* pc_relative */
104 4, /* bitpos */
105 complain_overflow_bitfield, /* complain_on_overflow */
106 bfd_elf_generic_reloc, /* special_function */
107 "R_FT32_10", /* name */
108 FALSE, /* partial_inplace */
109 0x00000000, /* src_mask */
110 0x00003ff0, /* dst_mask */
111 FALSE), /* pcrel_offset */
112
113 HOWTO (R_FT32_20, /* type */
114 0, /* rightshift */
115 2, /* size (0 = byte, 1 = short, 2 = long) */
116 20, /* bitsize */
117 FALSE, /* pc_relative */
118 0, /* bitpos */
119 complain_overflow_dont, /* complain_on_overflow */
120 bfd_elf_generic_reloc, /* special_function */
121 "R_FT32_20", /* name */
122 FALSE, /* partial_inplace */
123 0x00000000, /* src_mask */
124 0x000fffff, /* dst_mask */
125 FALSE), /* pcrel_offset */
126
127 HOWTO (R_FT32_17, /* type */
128 0, /* rightshift */
129 2, /* size (0 = byte, 1 = short, 2 = long) */
130 17, /* bitsize */
131 FALSE, /* pc_relative */
132 0, /* bitpos */
133 complain_overflow_dont, /* complain_on_overflow */
134 bfd_elf_generic_reloc, /* special_function */
135 "R_FT32_17", /* name */
136 FALSE, /* partial_inplace */
137 0x00000000, /* src_mask */
138 0x0001ffff, /* dst_mask */
139 FALSE), /* pcrel_offset */
140
141 HOWTO (R_FT32_18, /* type */
142 2, /* rightshift */
143 2, /* size (0 = byte, 1 = short, 2 = long) */
144 18, /* bitsize */
145 FALSE, /* pc_relative */
146 0, /* bitpos */
147 complain_overflow_dont, /* complain_on_overflow */
148 bfd_elf_generic_reloc, /* special_function */
149 "R_FT32_18", /* name */
150 FALSE, /* partial_inplace */
151 0x00000000, /* src_mask */
152 0x0003ffff, /* dst_mask */
153 FALSE), /* pcrel_offset */
154
155 HOWTO (R_FT32_RELAX, /* type */
156 0, /* rightshift */
157 1, /* size (0 = byte, 1 = short, 2 = long) */
158 10, /* bitsize */
159 FALSE, /* pc_relative */
160 4, /* bitpos */
161 complain_overflow_signed, /* complain_on_overflow */
162 bfd_elf_generic_reloc, /* special_function */
163 "R_FT32_RELAX", /* name */
164 FALSE, /* partial_inplace */
165 0x00000000, /* src_mask */
166 0x00000000, /* dst_mask */
167 FALSE), /* pcrel_offset */
168
169 HOWTO (R_FT32_SC0, /* type */
170 0, /* rightshift */
171 1, /* size (0 = byte, 1 = short, 2 = long) */
172 10, /* bitsize */
173 FALSE, /* pc_relative */
174 4, /* bitpos */
175 complain_overflow_signed, /* complain_on_overflow */
176 bfd_elf_generic_reloc, /* special_function */
177 "R_FT32_SC0", /* name */
178 FALSE, /* partial_inplace */
179 0x00000000, /* src_mask */
180 0x00000000, /* dst_mask */
181 FALSE), /* pcrel_offset */
182 HOWTO (R_FT32_SC1, /* type */
183 2, /* rightshift */
184 2, /* size (0 = byte, 1 = short, 2 = long) */
185 22, /* bitsize */
186 TRUE, /* pc_relative */
187 7, /* bitpos */
188 complain_overflow_dont, /* complain_on_overflow */
189 bfd_elf_generic_reloc, /* special_function */
190 "R_FT32_SC1", /* name */
191 TRUE, /* partial_inplace */
192 0x07ffff80, /* src_mask */
193 0x07ffff80, /* dst_mask */
194 FALSE), /* pcrel_offset */
195 HOWTO (R_FT32_15, /* type */
196 0, /* rightshift */
197 2, /* size (0 = byte, 1 = short, 2 = long) */
198 15, /* bitsize */
199 FALSE, /* pc_relative */
200 0, /* bitpos */
201 complain_overflow_dont, /* complain_on_overflow */
202 bfd_elf_generic_reloc, /* special_function */
203 "R_FT32_15", /* name */
204 FALSE, /* partial_inplace */
205 0x00000000, /* src_mask */
206 0x00007fff, /* dst_mask */
207 FALSE), /* pcrel_offset */
208 HOWTO (R_FT32_DIFF32, /* type */
209 0, /* rightshift */
210 2, /* size (0 = byte, 1 = short, 2 = long) */
211 32, /* bitsize */
212 FALSE, /* pc_relative */
213 0, /* bitpos */
214 complain_overflow_dont, /* complain_on_overflow */
215 bfd_elf_ft32_diff_reloc, /* special_function */
216 "R_FT32_DIFF32", /* name */
217 FALSE, /* partial_inplace */
218 0, /* src_mask */
219 0xffffffff, /* dst_mask */
220 FALSE), /* pcrel_offset */
221 };
222 \f
223 \f
224 /* Map BFD reloc types to FT32 ELF reloc types. */
225
226 struct ft32_reloc_map
227 {
228 bfd_reloc_code_real_type bfd_reloc_val;
229 unsigned int ft32_reloc_val;
230 };
231
232 static const struct ft32_reloc_map ft32_reloc_map [] =
233 {
234 { BFD_RELOC_NONE, R_FT32_NONE },
235 { BFD_RELOC_32, R_FT32_32 },
236 { BFD_RELOC_16, R_FT32_16 },
237 { BFD_RELOC_8, R_FT32_8 },
238 { BFD_RELOC_FT32_10, R_FT32_10 },
239 { BFD_RELOC_FT32_20, R_FT32_20 },
240 { BFD_RELOC_FT32_17, R_FT32_17 },
241 { BFD_RELOC_FT32_18, R_FT32_18 },
242 { BFD_RELOC_FT32_RELAX, R_FT32_RELAX },
243 { BFD_RELOC_FT32_SC0, R_FT32_SC0 },
244 { BFD_RELOC_FT32_SC1, R_FT32_SC1 },
245 { BFD_RELOC_FT32_15, R_FT32_15 },
246 { BFD_RELOC_FT32_DIFF32, R_FT32_DIFF32 },
247 };
248
249 /* Perform a diff relocation. Nothing to do, as the difference value is
250 already written into the section's contents. */
251
252 static bfd_reloc_status_type
253 bfd_elf_ft32_diff_reloc (bfd *abfd ATTRIBUTE_UNUSED,
254 arelent *reloc_entry ATTRIBUTE_UNUSED,
255 asymbol *symbol ATTRIBUTE_UNUSED,
256 void *data ATTRIBUTE_UNUSED,
257 asection *input_section ATTRIBUTE_UNUSED,
258 bfd *output_bfd ATTRIBUTE_UNUSED,
259 char **error_message ATTRIBUTE_UNUSED)
260 {
261 return bfd_reloc_ok;
262 }
263
264 static reloc_howto_type *
265 ft32_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
266 bfd_reloc_code_real_type code)
267 {
268 unsigned int i;
269
270 for (i = sizeof (ft32_reloc_map) / sizeof (ft32_reloc_map[0]);
271 --i;)
272 if (ft32_reloc_map [i].bfd_reloc_val == code)
273 return & ft32_elf_howto_table [ft32_reloc_map[i].ft32_reloc_val];
274
275 return NULL;
276 }
277
278 static reloc_howto_type *
279 ft32_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED, const char *r_name)
280 {
281 unsigned int i;
282
283 for (i = 0;
284 i < sizeof (ft32_elf_howto_table) / sizeof (ft32_elf_howto_table[0]);
285 i++)
286 if (ft32_elf_howto_table[i].name != NULL
287 && strcasecmp (ft32_elf_howto_table[i].name, r_name) == 0)
288 return &ft32_elf_howto_table[i];
289
290 return NULL;
291 }
292
293 /* Set the howto pointer for an FT32 ELF reloc. */
294
295 static bfd_boolean
296 ft32_info_to_howto_rela (bfd *abfd,
297 arelent *cache_ptr,
298 Elf_Internal_Rela *dst)
299 {
300 unsigned int r_type;
301
302 r_type = ELF32_R_TYPE (dst->r_info);
303 if (r_type >= (unsigned int) R_FT32_max)
304 {
305 /* xgettext:c-format */
306 _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
307 abfd, r_type);
308 bfd_set_error (bfd_error_bad_value);
309 return FALSE;
310 }
311
312 cache_ptr->howto = & ft32_elf_howto_table [r_type];
313 return cache_ptr->howto != NULL;
314 }
315
316 /* Relocate an FT32 ELF section.
317
318 The RELOCATE_SECTION function is called by the new ELF backend linker
319 to handle the relocations for a section.
320
321 The relocs are always passed as Rela structures; if the section
322 actually uses Rel structures, the r_addend field will always be
323 zero.
324
325 This function is responsible for adjusting the section contents as
326 necessary, and (if using Rela relocs and generating a relocatable
327 output file) adjusting the reloc addend as necessary.
328
329 This function does not have to worry about setting the reloc
330 address or the reloc symbol index.
331
332 LOCAL_SYMS is a pointer to the swapped in local symbols.
333
334 LOCAL_SECTIONS is an array giving the section in the input file
335 corresponding to the st_shndx field of each local symbol.
336
337 The global hash table entry for the global symbols can be found
338 via elf_sym_hashes (input_bfd).
339
340 When generating relocatable output, this function must handle
341 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
342 going to be the section symbol corresponding to the output
343 section, which means that the addend must be adjusted
344 accordingly. */
345
346 static bfd_boolean
347 ft32_elf_relocate_section (bfd *output_bfd,
348 struct bfd_link_info *info,
349 bfd *input_bfd,
350 asection *input_section,
351 bfd_byte *contents,
352 Elf_Internal_Rela *relocs,
353 Elf_Internal_Sym *local_syms,
354 asection **local_sections)
355 {
356 Elf_Internal_Shdr *symtab_hdr;
357 struct elf_link_hash_entry **sym_hashes;
358 Elf_Internal_Rela *rel;
359 Elf_Internal_Rela *relend;
360
361 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
362 sym_hashes = elf_sym_hashes (input_bfd);
363 relend = relocs + input_section->reloc_count;
364
365 for (rel = relocs; rel < relend; rel ++)
366 {
367 reloc_howto_type *howto;
368 unsigned long r_symndx;
369 Elf_Internal_Sym *sym;
370 asection *sec;
371 struct elf_link_hash_entry *h;
372 bfd_vma relocation;
373 bfd_reloc_status_type r;
374 const char *name;
375 int r_type;
376
377 r_type = ELF32_R_TYPE (rel->r_info);
378 r_symndx = ELF32_R_SYM (rel->r_info);
379 howto = ft32_elf_howto_table + r_type;
380 h = NULL;
381 sym = NULL;
382 sec = NULL;
383
384 if (r_symndx < symtab_hdr->sh_info)
385 {
386 sym = local_syms + r_symndx;
387 sec = local_sections [r_symndx];
388 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
389
390 name = bfd_elf_string_from_elf_section
391 (input_bfd, symtab_hdr->sh_link, sym->st_name);
392 name = name == NULL ? bfd_section_name (sec) : name;
393 }
394 else
395 {
396 bfd_boolean unresolved_reloc, warned, ignored;
397
398 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
399 r_symndx, symtab_hdr, sym_hashes,
400 h, sec, relocation,
401 unresolved_reloc, warned, ignored);
402
403 name = h->root.root.string;
404 }
405
406 if (sec != NULL && discarded_section (sec))
407 RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
408 rel, 1, relend, howto, 0, contents);
409
410 if (bfd_link_relocatable (info))
411 continue;
412
413 switch (howto->type)
414 {
415 case R_FT32_SC0:
416 {
417 unsigned int insn;
418 int offset;
419 unsigned int code15[2];
420
421 insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
422 ft32_split_shortcode (insn, code15);
423
424 offset = (int)relocation;
425 offset += (int)(rel->r_addend - rel->r_offset);
426 offset -= (input_section->output_section->vma +
427 input_section->output_offset);
428 if ((offset < -1024) || (offset >= 1024))
429 {
430 r = bfd_reloc_outofrange;
431 break;
432 }
433 code15[0] |= ((offset / 4) & 511);
434 insn = ft32_merge_shortcode (code15);
435 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
436 }
437 r = bfd_reloc_ok;
438 break;
439
440 case R_FT32_SC1:
441 {
442 unsigned int insn;
443 int offset;
444 unsigned int code15[2];
445
446 insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
447 ft32_split_shortcode (insn, code15);
448
449 offset = (int)relocation;
450 offset += (int)(rel->r_addend - rel->r_offset);
451 offset -= (input_section->output_section->vma +
452 input_section->output_offset);
453 if ((offset < -1024) || (offset >= 1024))
454 {
455 r = bfd_reloc_outofrange;
456 break;
457 }
458 code15[1] |= ((offset / 4) & 511);
459 insn = ft32_merge_shortcode (code15);
460 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
461 }
462 r = bfd_reloc_ok;
463 break;
464
465 case R_FT32_DIFF32:
466 r = bfd_reloc_ok;
467 break;
468
469 default:
470 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
471 contents, rel->r_offset,
472 relocation, rel->r_addend);
473 break;
474 }
475
476 if (r != bfd_reloc_ok)
477 {
478 const char * msg = NULL;
479
480 switch (r)
481 {
482 case bfd_reloc_overflow:
483 (*info->callbacks->reloc_overflow)
484 (info, (h ? &h->root : NULL), name, howto->name,
485 (bfd_vma) 0, input_bfd, input_section, rel->r_offset);
486 break;
487
488 case bfd_reloc_undefined:
489 (*info->callbacks->undefined_symbol)
490 (info, name, input_bfd, input_section, rel->r_offset, TRUE);
491 break;
492
493 case bfd_reloc_outofrange:
494 msg = _("internal error: out of range error");
495 break;
496
497 case bfd_reloc_notsupported:
498 msg = _("internal error: unsupported relocation error");
499 break;
500
501 case bfd_reloc_dangerous:
502 msg = _("internal error: dangerous relocation");
503 break;
504
505 default:
506 msg = _("internal error: unknown error");
507 break;
508 }
509
510 if (msg)
511 (*info->callbacks->warning) (info, msg, name, input_bfd,
512 input_section, rel->r_offset);
513 }
514 }
515
516 return TRUE;
517 }
518 \f
519 /* Relaxation. */
520
521 static bfd_boolean
522 ft32_reloc_shortable
523 (bfd * abfd,
524 asection * sec,
525 Elf_Internal_Sym * isymbuf ATTRIBUTE_UNUSED,
526 bfd_byte * contents,
527 bfd_vma pc ATTRIBUTE_UNUSED,
528 Elf_Internal_Rela * irel,
529 unsigned int * sc)
530 {
531 Elf_Internal_Shdr *symtab_hdr ATTRIBUTE_UNUSED;
532 bfd_vma symval;
533
534 enum elf_ft32_reloc_type r_type;
535 reloc_howto_type *howto = NULL;
536 unsigned int insn;
537 int offset;
538 bfd_vma dot, value;
539
540 r_type = ELF32_R_TYPE (irel->r_info);
541 howto = &ft32_elf_howto_table [r_type];
542
543 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
544
545 /* Get the value of the symbol referred to by the reloc. */
546 if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
547 {
548 /* A local symbol. */
549 Elf_Internal_Sym *isym;
550 asection *sym_sec;
551
552 isym = isymbuf + ELF32_R_SYM (irel->r_info);
553 sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
554 symval = isym->st_value;
555 /* If the reloc is absolute, it will not have
556 a symbol or section associated with it. */
557 if (sym_sec)
558 symval += sym_sec->output_section->vma
559 + sym_sec->output_offset;
560 }
561 else
562 {
563 unsigned long indx;
564 struct elf_link_hash_entry *h;
565
566 /* An external symbol. */
567 indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
568 h = elf_sym_hashes (abfd)[indx];
569 BFD_ASSERT (h != NULL);
570 if (h->root.type != bfd_link_hash_defined
571 && h->root.type != bfd_link_hash_defweak)
572 /* This appears to be a reference to an undefined
573 symbol. Just ignore it--it will be caught by the
574 regular reloc processing. */
575 return FALSE;
576
577 symval = (h->root.u.def.value
578 + h->root.u.def.section->output_section->vma
579 + h->root.u.def.section->output_offset);
580 }
581
582 switch (r_type)
583 {
584 case R_FT32_8:
585 case R_FT32_10:
586 case R_FT32_16:
587 case R_FT32_20:
588 case R_FT32_RELAX:
589 if (symval != 0)
590 return FALSE;
591 insn = bfd_get_32 (abfd, contents + irel->r_offset);
592 insn |= ((symval + irel->r_addend) << howto->bitpos) & howto->dst_mask;
593 return ft32_shortcode (insn, sc);
594
595 case R_FT32_18:
596 insn = bfd_get_32 (abfd, contents + irel->r_offset);
597 /* Get the address of this instruction. */
598 dot = (sec->output_section->vma
599 + sec->output_offset + irel->r_offset);
600 value = symval + irel->r_addend;
601 offset = (value - dot) / 4;
602
603 if ((dot > 0x8c) && (-256 <= offset) && (offset < 256))
604 {
605 switch (insn)
606 {
607 case 0x00200000: *sc = (3 << 13) | (0 << 9); return TRUE;
608 case 0x00280000: *sc = (3 << 13) | (1 << 9); return TRUE;
609 case 0x00600000: *sc = (3 << 13) | (2 << 9); return TRUE;
610 case 0x00680000: *sc = (3 << 13) | (3 << 9); return TRUE;
611 case 0x00a00000: *sc = (3 << 13) | (4 << 9); return TRUE;
612 case 0x00a80000: *sc = (3 << 13) | (5 << 9); return TRUE;
613 case 0x00e00000: *sc = (3 << 13) | (6 << 9); return TRUE;
614 case 0x00e80000: *sc = (3 << 13) | (7 << 9); return TRUE;
615 case 0x01200000: *sc = (3 << 13) | (8 << 9); return TRUE;
616 case 0x01280000: *sc = (3 << 13) | (9 << 9); return TRUE;
617 case 0x01600000: *sc = (3 << 13) | (10 << 9); return TRUE;
618 case 0x01680000: *sc = (3 << 13) | (11 << 9); return TRUE;
619 case 0x01a00000: *sc = (3 << 13) | (12 << 9); return TRUE;
620 case 0x01a80000: *sc = (3 << 13) | (13 << 9); return TRUE;
621
622 case 0x00300000: *sc = (3 << 13) | (14 << 9); return TRUE;
623 case 0x00340000: *sc = (3 << 13) | (15 << 9); return TRUE;
624
625 default:
626 break;
627 }
628 }
629 break;
630
631 default:
632 break;
633 }
634 return FALSE;
635 }
636
637 /* Returns whether the relocation type passed is a diff reloc. */
638
639 static bfd_boolean
640 elf32_ft32_is_diff_reloc (Elf_Internal_Rela *irel)
641 {
642 return (ELF32_R_TYPE (irel->r_info) == R_FT32_DIFF32);
643 }
644
645 /* Reduce the diff value written in the section by count if the shrinked
646 insn address happens to fall between the two symbols for which this
647 diff reloc was emitted. */
648
649 static bfd_boolean
650 elf32_ft32_adjust_diff_reloc_value (bfd *abfd,
651 struct bfd_section *isec,
652 Elf_Internal_Rela *irel,
653 bfd_vma symval,
654 bfd_vma shrinked_insn_address,
655 int count)
656 {
657 unsigned char * reloc_contents = NULL;
658 unsigned char * isec_contents = elf_section_data (isec)->this_hdr.contents;
659 bfd_signed_vma x = 0;
660 bfd_vma sym2_address;
661 bfd_vma sym1_address;
662 bfd_vma start_address;
663 bfd_vma end_address;
664
665
666 if (isec_contents == NULL)
667 {
668 if (! bfd_malloc_and_get_section (abfd, isec, &isec_contents))
669 return FALSE;
670
671 elf_section_data (isec)->this_hdr.contents = isec_contents;
672 }
673
674 reloc_contents = isec_contents + irel->r_offset;
675
676 /* Read value written in object file. */
677 switch (ELF32_R_TYPE (irel->r_info))
678 {
679 case R_FT32_DIFF32:
680 x = bfd_get_signed_32 (abfd, reloc_contents);
681 break;
682
683 default:
684 return FALSE;
685 }
686
687 /* For a diff reloc sym1 - sym2 the diff at assembly time (x) is written
688 into the object file at the reloc offset. sym2's logical value is
689 symval (<start_of_section>) + reloc addend. Compute the start and end
690 addresses and check if the shrinked insn falls between sym1 and sym2. */
691 sym2_address = symval + irel->r_addend;
692 sym1_address = sym2_address - x;
693
694 /* Don't assume sym2 is bigger than sym1 - the difference
695 could be negative. Compute start and end addresses, and
696 use those to see if they span shrinked_insn_address. */
697 start_address = sym1_address < sym2_address ? sym1_address : sym2_address;
698 end_address = sym1_address > sym2_address ? sym1_address : sym2_address;
699
700 if (shrinked_insn_address >= start_address
701 && shrinked_insn_address < end_address)
702 {
703 /* Reduce the diff value by count bytes and write it back into section
704 contents. */
705 bfd_signed_vma new_diff = x < 0 ? x + count : x - count;
706
707 if (sym2_address > shrinked_insn_address)
708 irel->r_addend -= count;
709
710 switch (ELF32_R_TYPE (irel->r_info))
711 {
712 case R_FT32_DIFF32:
713 bfd_put_signed_32 (abfd, new_diff & 0xFFFFFFFF, reloc_contents);
714 break;
715
716 default:
717 return FALSE;
718 }
719 }
720
721 return TRUE;
722 }
723
724 static bfd_boolean
725 elf32_ft32_adjust_reloc_if_spans_insn (bfd *abfd,
726 asection *isec,
727 Elf_Internal_Rela *irel, bfd_vma symval,
728 bfd_vma shrinked_insn_address,
729 bfd_vma shrink_boundary,
730 int count)
731 {
732
733 if (elf32_ft32_is_diff_reloc (irel))
734 {
735 if (!elf32_ft32_adjust_diff_reloc_value (abfd, isec, irel,
736 symval,
737 shrinked_insn_address,
738 count))
739 return FALSE;
740 }
741 else
742 {
743 bfd_vma reloc_value = symval + irel->r_addend;
744 bfd_boolean addend_within_shrink_boundary =
745 (reloc_value <= shrink_boundary);
746 bfd_boolean reloc_spans_insn =
747 (symval <= shrinked_insn_address
748 && reloc_value > shrinked_insn_address
749 && addend_within_shrink_boundary);
750
751 if (! reloc_spans_insn)
752 return TRUE;
753
754 irel->r_addend -= count;
755
756 if (debug_relax)
757 printf ("Relocation's addend needed to be fixed \n");
758 }
759 return TRUE;
760 }
761
762 /* Delete some bytes from a section while relaxing. */
763
764 static bfd_boolean
765 elf32_ft32_relax_delete_bytes (struct bfd_link_info *link_info, bfd * abfd,
766 asection * sec, bfd_vma addr, int count)
767 {
768 Elf_Internal_Shdr *symtab_hdr;
769 unsigned int sec_shndx;
770 bfd_byte *contents;
771 Elf_Internal_Rela *irel, *irelend;
772 bfd_vma toaddr;
773 Elf_Internal_Sym *isym;
774 Elf_Internal_Sym *isymend;
775 struct elf_link_hash_entry **sym_hashes;
776 struct elf_link_hash_entry **end_hashes;
777 struct elf_link_hash_entry **start_hashes;
778 unsigned int symcount;
779 Elf_Internal_Sym *isymbuf = NULL;
780
781 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
782 sec_shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
783
784 contents = elf_section_data (sec)->this_hdr.contents;
785
786 toaddr = sec->size;
787
788 irel = elf_section_data (sec)->relocs;
789 irelend = irel + sec->reloc_count;
790
791 /* Actually delete the bytes. */
792 memmove (contents + addr, contents + addr + count,
793 (size_t) (toaddr - addr - count));
794 sec->size -= count;
795
796 /* Adjust all the relocs. */
797 for (irel = elf_section_data (sec)->relocs; irel < irelend; irel++)
798 /* Get the new reloc address. */
799 if ((irel->r_offset > addr && irel->r_offset < toaddr))
800 irel->r_offset -= count;
801
802 /* The reloc's own addresses are now ok. However, we need to readjust
803 the reloc's addend, i.e. the reloc's value if two conditions are met:
804 1.) the reloc is relative to a symbol in this section that
805 is located in front of the shrinked instruction
806 2.) symbol plus addend end up behind the shrinked instruction.
807
808 The most common case where this happens are relocs relative to
809 the section-start symbol.
810
811 This step needs to be done for all of the sections of the bfd. */
812 {
813 struct bfd_section *isec;
814
815 for (isec = abfd->sections; isec; isec = isec->next)
816 {
817 bfd_vma symval;
818 bfd_vma shrinked_insn_address;
819
820 if (isec->reloc_count == 0)
821 continue;
822
823 shrinked_insn_address = (sec->output_section->vma
824 + sec->output_offset + addr - count);
825
826 irel = elf_section_data (isec)->relocs;
827 /* PR 12161: Read in the relocs for this section if necessary. */
828 if (irel == NULL)
829 irel = _bfd_elf_link_read_relocs (abfd, isec, NULL, NULL, TRUE);
830
831 for (irelend = irel + isec->reloc_count; irel < irelend; irel++)
832 {
833 /* Read this BFD's local symbols if we haven't done
834 so already. */
835 if (isymbuf == NULL && symtab_hdr->sh_info != 0)
836 {
837 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
838 if (isymbuf == NULL)
839 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
840 symtab_hdr->sh_info, 0,
841 NULL, NULL, NULL);
842 if (isymbuf == NULL)
843 return FALSE;
844 }
845
846 /* Get the value of the symbol referred to by the reloc. */
847 if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
848 {
849 /* A local symbol. */
850 asection *sym_sec;
851
852 isym = isymbuf + ELF32_R_SYM (irel->r_info);
853 sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
854 symval = isym->st_value;
855 /* If the reloc is absolute, it will not have
856 a symbol or section associated with it. */
857 if (sym_sec == sec)
858 {
859 symval += sym_sec->output_section->vma
860 + sym_sec->output_offset;
861
862 if (debug_relax)
863 printf ("Checking if the relocation's "
864 "addend needs corrections.\n"
865 "Address of anchor symbol: 0x%x \n"
866 "Address of relocation target: 0x%x \n"
867 "Address of relaxed insn: 0x%x \n",
868 (unsigned int) symval,
869 (unsigned int) (symval + irel->r_addend),
870 (unsigned int) shrinked_insn_address);
871
872 if (symval <= shrinked_insn_address
873 && (symval + irel->r_addend) > shrinked_insn_address)
874 {
875 /* If there is an alignment boundary, we only need to
876 adjust addends that end up below the boundary. */
877 bfd_vma shrink_boundary = (toaddr
878 + sec->output_section->vma
879 + sec->output_offset);
880
881 if (debug_relax)
882 printf
883 ("Relocation's addend needed to be fixed \n");
884
885 if (!elf32_ft32_adjust_reloc_if_spans_insn (abfd, isec,
886 irel, symval,
887 shrinked_insn_address,
888 shrink_boundary,
889 count))
890 return FALSE;
891 }
892 }
893 /* else reference symbol is absolute. No adjustment needed. */
894 }
895 /* else...Reference symbol is extern. No need for adjusting
896 the addend. */
897 }
898 }
899 }
900
901 /* Adjust the local symbols defined in this section. */
902 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
903 isym = (Elf_Internal_Sym *) symtab_hdr->contents;
904 if (isym)
905 {
906 for (isymend = isym + symtab_hdr->sh_info; isym < isymend; isym++)
907 {
908 if (isym->st_shndx == sec_shndx
909 && isym->st_value > addr && isym->st_value < toaddr)
910 isym->st_value -= count;
911 }
912 }
913
914 /* Now adjust the global symbols defined in this section. */
915 symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)
916 - symtab_hdr->sh_info);
917 sym_hashes = start_hashes = elf_sym_hashes (abfd);
918 end_hashes = sym_hashes + symcount;
919
920 for (; sym_hashes < end_hashes; sym_hashes++)
921 {
922 struct elf_link_hash_entry *sym_hash = *sym_hashes;
923
924 /* The '--wrap SYMBOL' option is causing a pain when the object file,
925 containing the definition of __wrap_SYMBOL, includes a direct
926 call to SYMBOL as well. Since both __wrap_SYMBOL and SYMBOL reference
927 the same symbol (which is __wrap_SYMBOL), but still exist as two
928 different symbols in 'sym_hashes', we don't want to adjust
929 the global symbol __wrap_SYMBOL twice.
930 This check is only relevant when symbols are being wrapped. */
931 if (link_info->wrap_hash != NULL)
932 {
933 struct elf_link_hash_entry **cur_sym_hashes;
934
935 /* Loop only over the symbols whom been already checked. */
936 for (cur_sym_hashes = start_hashes; cur_sym_hashes < sym_hashes;
937 cur_sym_hashes++)
938 /* If the current symbol is identical to 'sym_hash', that means
939 the symbol was already adjusted (or at least checked). */
940 if (*cur_sym_hashes == sym_hash)
941 break;
942
943 /* Don't adjust the symbol again. */
944 if (cur_sym_hashes < sym_hashes)
945 continue;
946 }
947
948 if ((sym_hash->root.type == bfd_link_hash_defined
949 || sym_hash->root.type == bfd_link_hash_defweak)
950 && sym_hash->root.u.def.section == sec
951 && sym_hash->root.u.def.value > addr
952 && sym_hash->root.u.def.value < toaddr)
953 sym_hash->root.u.def.value -= count;
954 }
955
956 return TRUE;
957 }
958
959 /* Return TRUE if LOC can be a target of a branch, jump or call. */
960
961 static bfd_boolean
962 elf32_ft32_relax_is_branch_target (struct bfd_link_info *link_info,
963 bfd * abfd, asection * sec,
964 bfd_vma loc)
965 {
966 Elf_Internal_Shdr *symtab_hdr;
967 Elf_Internal_Rela *irel, *irelend;
968 Elf_Internal_Sym *isym;
969 Elf_Internal_Sym *isymbuf = NULL;
970 bfd_vma symval;
971 struct bfd_section *isec;
972
973 struct elf_link_hash_entry **sym_hashes;
974 struct elf_link_hash_entry **end_hashes;
975 struct elf_link_hash_entry **start_hashes;
976 unsigned int symcount;
977
978 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
979
980 /* Now we check for relocations pointing to ret. */
981 for (isec = abfd->sections; isec; isec = isec->next)
982 {
983 irel = elf_section_data (isec)->relocs;
984 if (irel == NULL)
985 irel = _bfd_elf_link_read_relocs (abfd, isec, NULL, NULL, TRUE);
986
987 irelend = irel + isec->reloc_count;
988
989 for (; irel < irelend; irel++)
990 {
991 /* Read this BFD's local symbols if we haven't done
992 so already. */
993 if (isymbuf == NULL && symtab_hdr->sh_info != 0)
994 {
995 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
996 if (isymbuf == NULL)
997 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
998 symtab_hdr->sh_info, 0,
999 NULL, NULL, NULL);
1000 if (isymbuf == NULL)
1001 return FALSE;
1002 }
1003
1004 /* Get the value of the symbol referred to by the reloc. */
1005 if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
1006 {
1007 /* A local symbol. */
1008 asection *sym_sec;
1009
1010 isym = isymbuf + ELF32_R_SYM (irel->r_info);
1011 sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
1012 symval = isym->st_value;
1013 /* If the reloc is absolute, it will not have
1014 a symbol or section associated with it. */
1015 if (sym_sec == sec)
1016 {
1017 symval += sym_sec->output_section->vma
1018 + sym_sec->output_offset;
1019
1020 if (debug_relax)
1021 printf ("0x%x: Address of anchor symbol: 0x%x "
1022 "Address of relocation target: 0x%x \n",
1023 (unsigned int) irel->r_offset,
1024 (unsigned int) symval,
1025 (unsigned int) (symval + irel->r_addend));
1026 if ((irel->r_addend) == loc)
1027 return TRUE;
1028 }
1029 }
1030 }
1031 }
1032
1033 symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)
1034 - symtab_hdr->sh_info);
1035 sym_hashes = start_hashes = elf_sym_hashes (abfd);
1036 end_hashes = sym_hashes + symcount;
1037
1038 for (; sym_hashes < end_hashes; sym_hashes++)
1039 {
1040 struct elf_link_hash_entry *sym_hash = *sym_hashes;
1041
1042 /* The '--wrap SYMBOL' option is causing a pain when the object file,
1043 containing the definition of __wrap_SYMBOL, includes a direct
1044 call to SYMBOL as well. Since both __wrap_SYMBOL and SYMBOL reference
1045 the same symbol (which is __wrap_SYMBOL), but still exist as two
1046 different symbols in 'sym_hashes', we don't want to adjust
1047 the global symbol __wrap_SYMBOL twice.
1048 This check is only relevant when symbols are being wrapped. */
1049 if (link_info->wrap_hash != NULL)
1050 {
1051 struct elf_link_hash_entry **cur_sym_hashes;
1052
1053 /* Loop only over the symbols whom been already checked. */
1054 for (cur_sym_hashes = start_hashes; cur_sym_hashes < sym_hashes;
1055 cur_sym_hashes++)
1056 /* If the current symbol is identical to 'sym_hash', that means
1057 the symbol was already adjusted (or at least checked). */
1058 if (*cur_sym_hashes == sym_hash)
1059 break;
1060
1061 /* Don't adjust the symbol again. */
1062 if (cur_sym_hashes < sym_hashes)
1063 continue;
1064 }
1065
1066 if ((sym_hash->root.type == bfd_link_hash_defined
1067 || sym_hash->root.type == bfd_link_hash_defweak)
1068 && sym_hash->root.u.def.section == sec
1069 && sym_hash->root.u.def.value == loc)
1070 return TRUE;
1071 }
1072
1073 return FALSE;
1074 }
1075
1076 static bfd_boolean
1077 ft32_elf_relax_section
1078 (bfd * abfd,
1079 asection * sec,
1080 struct bfd_link_info * link_info,
1081 bfd_boolean * again)
1082 {
1083 Elf_Internal_Rela * free_relocs = NULL;
1084 Elf_Internal_Rela * internal_relocs;
1085 Elf_Internal_Rela * irelend;
1086 Elf_Internal_Rela * irel;
1087 bfd_byte * contents = NULL;
1088 Elf_Internal_Shdr * symtab_hdr;
1089 Elf_Internal_Sym * isymbuf = NULL;
1090
1091 /* Assume nothing changes. */
1092 *again = FALSE;
1093
1094 /* We don't have to do anything for a relocatable link, if
1095 this section does not have relocs, or if this is not a
1096 code section. */
1097 if (bfd_link_relocatable (link_info)
1098 || (sec->flags & SEC_RELOC) == 0
1099 || sec->reloc_count == 0
1100 || (sec->flags & SEC_CODE) == 0)
1101 return TRUE;
1102
1103 /* Get the section contents. */
1104 if (elf_section_data (sec)->this_hdr.contents != NULL)
1105 contents = elf_section_data (sec)->this_hdr.contents;
1106 /* Go get them off disk. */
1107 else
1108 {
1109 if (! bfd_malloc_and_get_section (abfd, sec, &contents))
1110 goto error_return;
1111 elf_section_data (sec)->this_hdr.contents = contents;
1112 }
1113
1114 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1115
1116 /* Read this BFD's local symbols if we haven't done so already. */
1117 if (isymbuf == NULL && symtab_hdr->sh_info != 0)
1118 {
1119 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
1120 if (isymbuf == NULL)
1121 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
1122 symtab_hdr->sh_info, 0,
1123 NULL, NULL, NULL);
1124 if (isymbuf == NULL)
1125 goto error_return;
1126 symtab_hdr->contents = (unsigned char *) isymbuf;
1127 }
1128
1129 internal_relocs = _bfd_elf_link_read_relocs (abfd, sec, NULL, NULL,
1130 link_info->keep_memory);
1131 if (internal_relocs == NULL)
1132 goto error_return;
1133 if (! link_info->keep_memory)
1134 free_relocs = internal_relocs;
1135
1136 /* Walk through them looking for relaxing opportunities. */
1137 irelend = internal_relocs + sec->reloc_count;
1138
1139 /* Test every adjacent pair of relocs. If both have shortcodes,
1140 fuse them and delete the relocs. */
1141 irel = internal_relocs;
1142 while (irel < irelend - 1)
1143 {
1144 Elf_Internal_Rela * irel_next = irel + 1;
1145 unsigned int sc0, sc1;
1146 bfd_vma pc;
1147
1148 pc = irel->r_offset;
1149
1150 if (((pc + 4) == (irel_next->r_offset))
1151 && ft32_reloc_shortable (abfd, sec, isymbuf, contents, pc, irel,
1152 &sc0)
1153 && ft32_reloc_shortable (abfd, sec, isymbuf, contents, pc,
1154 irel_next, &sc1)
1155 && !elf32_ft32_relax_is_branch_target (link_info, abfd, sec,
1156 irel_next->r_offset))
1157 {
1158 unsigned int code30 = (sc1 << 15) | sc0;
1159 unsigned int code27 = code30 >> 3;
1160 unsigned int code3 = code30 & 7;
1161 static const unsigned char pat3[] = {2, 3, 4, 5, 6, 9, 10, 14};
1162 unsigned int pattern = pat3[code3];
1163 unsigned int fused = (pattern << 27) | code27;
1164
1165 /* Move second reloc to same place as first. */
1166 irel_next->r_offset = irel->r_offset;
1167
1168 /* Change both relocs to R_FT32_NONE. */
1169
1170 if (ELF32_R_TYPE (irel->r_info) == R_FT32_18)
1171 {
1172 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
1173 R_FT32_SC0);
1174 }
1175 else
1176 {
1177 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
1178 R_FT32_NONE);
1179 }
1180
1181 if (ELF32_R_TYPE (irel_next->r_info) == R_FT32_18)
1182 {
1183 irel_next->r_info = ELF32_R_INFO (ELF32_R_SYM (irel_next->r_info),
1184 R_FT32_SC1);
1185 }
1186 else
1187 {
1188 irel_next->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
1189 R_FT32_NONE);
1190 }
1191
1192 /* Replace the first insn with the fused version. */
1193 bfd_put_32 (abfd, fused, contents + irel->r_offset);
1194
1195 /* Delete the second insn. */
1196 if (!elf32_ft32_relax_delete_bytes (link_info, abfd, sec,
1197 irel->r_offset + 4, 4))
1198 goto error_return;
1199
1200 /* That will change things, so, we should relax again.
1201 Note that this is not required, and it may be slow. */
1202 *again = TRUE;
1203
1204 irel += 2;
1205 }
1206 else
1207 {
1208 irel += 1;
1209 }
1210 }
1211
1212 if (isymbuf != NULL
1213 && symtab_hdr->contents != (unsigned char *) isymbuf)
1214 {
1215 if (! link_info->keep_memory)
1216 free (isymbuf);
1217 else
1218 /* Cache the symbols for elf_link_input_bfd. */
1219 symtab_hdr->contents = (unsigned char *) isymbuf;
1220 }
1221
1222 if (contents != NULL
1223 && elf_section_data (sec)->this_hdr.contents != contents)
1224 {
1225 if (! link_info->keep_memory)
1226 free (contents);
1227 else
1228 /* Cache the section contents for elf_link_input_bfd. */
1229 elf_section_data (sec)->this_hdr.contents = contents;
1230
1231 }
1232
1233 if (elf_section_data (sec)->relocs != internal_relocs)
1234 free (internal_relocs);
1235
1236 return TRUE;
1237
1238 error_return:
1239 free (free_relocs);
1240
1241 return TRUE;
1242 }
1243 \f
1244 #define ELF_ARCH bfd_arch_ft32
1245 #define ELF_MACHINE_CODE EM_FT32
1246 #define ELF_MAXPAGESIZE 0x1
1247
1248 #define TARGET_LITTLE_SYM ft32_elf32_vec
1249 #define TARGET_LITTLE_NAME "elf32-ft32"
1250
1251 #define elf_info_to_howto_rel NULL
1252 #define elf_info_to_howto ft32_info_to_howto_rela
1253 #define elf_backend_relocate_section ft32_elf_relocate_section
1254
1255 #define elf_backend_can_gc_sections 1
1256 #define elf_backend_rela_normal 1
1257
1258 #define bfd_elf32_bfd_reloc_type_lookup ft32_reloc_type_lookup
1259 #define bfd_elf32_bfd_reloc_name_lookup ft32_reloc_name_lookup
1260
1261 #define bfd_elf32_bfd_relax_section ft32_elf_relax_section
1262
1263 #include "elf32-target.h"
The GNU Binutils are a collection of binary tools.