1 /* V850-specific support for 32-bit ELF
2 Copyright (C) 1996-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
22 /* XXX FIXME: This code is littered with 32bit int, 16bit short, 8bit char
23 dependencies. As is the gas & simulator code for the v850. */
24
25 #include "sysdep.h"
26 #include "bfd.h"
27 #include "bfdlink.h"
28 #include "libbfd.h"
29 #include "elf-bfd.h"
30 #include "elf/v850.h"
31 #include "libiberty.h"
32
33 /* Sign-extend a 17-bit number. */
34 #define SEXT17(x) ((((x) & 0x1ffff) ^ 0x10000) - 0x10000)
35
36 /* Sign-extend a 22-bit number. */
37 #define SEXT22(x) ((((x) & 0x3fffff) ^ 0x200000) - 0x200000)
38
39 static reloc_howto_type v850_elf_howto_table[];
40
41 /* Look through the relocs for a section during the first phase, and
42 allocate space in the global offset table or procedure linkage
43 table. */
44
45 static bfd_boolean
v850_elf_check_relocs(bfd * abfd,struct bfd_link_info * info,asection * sec,const Elf_Internal_Rela * relocs)46 v850_elf_check_relocs (bfd *abfd,
47 struct bfd_link_info *info,
48 asection *sec,
49 const Elf_Internal_Rela *relocs)
50 {
51 bfd_boolean ret = TRUE;
52 Elf_Internal_Shdr *symtab_hdr;
53 struct elf_link_hash_entry **sym_hashes;
54 const Elf_Internal_Rela *rel;
55 const Elf_Internal_Rela *rel_end;
56 unsigned int r_type;
57 int other = 0;
58 const char *common = NULL;
59
60 if (bfd_link_relocatable (info))
61 return TRUE;
62
63 #ifdef DEBUG
64 _bfd_error_handler ("v850_elf_check_relocs called for section %A in %B",
65 sec, abfd);
66 #endif
67
68 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
69 sym_hashes = elf_sym_hashes (abfd);
70
71 rel_end = relocs + sec->reloc_count;
72 for (rel = relocs; rel < rel_end; rel++)
73 {
74 unsigned long r_symndx;
75 struct elf_link_hash_entry *h;
76
77 r_symndx = ELF32_R_SYM (rel->r_info);
78 if (r_symndx < symtab_hdr->sh_info)
79 h = NULL;
80 else
81 {
82 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
83 while (h->root.type == bfd_link_hash_indirect
84 || h->root.type == bfd_link_hash_warning)
85 h = (struct elf_link_hash_entry *) h->root.u.i.link;
86
87 /* PR15323, ref flags aren't set for references in the same
88 object. */
89 h->root.non_ir_ref = 1;
90 }
91
92 r_type = ELF32_R_TYPE (rel->r_info);
93 switch (r_type)
94 {
95 default:
96 break;
97
98 /* This relocation describes the C++ object vtable hierarchy.
99 Reconstruct it for later use during GC. */
100 case R_V850_GNU_VTINHERIT:
101 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
102 return FALSE;
103 break;
104
105 /* This relocation describes which C++ vtable entries
106 are actually used. Record for later use during GC. */
107 case R_V850_GNU_VTENTRY:
108 BFD_ASSERT (h != NULL);
109 if (h != NULL
110 && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
111 return FALSE;
112 break;
113
114 case R_V850_SDA_16_16_SPLIT_OFFSET:
115 case R_V850_SDA_16_16_OFFSET:
116 case R_V850_SDA_15_16_OFFSET:
117 case R_V810_GPWLO_1:
118 case R_V850_HWLO:
119 case R_V850_HWLO_1:
120 other = V850_OTHER_SDA;
121 common = ".scommon";
122 goto small_data_common;
123
124 case R_V850_ZDA_16_16_SPLIT_OFFSET:
125 case R_V850_ZDA_16_16_OFFSET:
126 case R_V850_ZDA_15_16_OFFSET:
127 other = V850_OTHER_ZDA;
128 common = ".zcommon";
129 goto small_data_common;
130
131 case R_V850_TDA_4_4_OFFSET:
132 case R_V850_TDA_4_5_OFFSET:
133 case R_V850_TDA_7_7_OFFSET:
134 case R_V850_TDA_6_8_OFFSET:
135 case R_V850_TDA_7_8_OFFSET:
136 case R_V850_TDA_16_16_OFFSET:
137 other = V850_OTHER_TDA;
138 common = ".tcommon";
139 /* fall through */
140
141 #define V850_OTHER_MASK (V850_OTHER_TDA | V850_OTHER_SDA | V850_OTHER_ZDA)
142
143 small_data_common:
144 if (h)
145 {
146 /* Flag which type of relocation was used. */
147 h->other |= other;
148 if ((h->other & V850_OTHER_MASK) != (other & V850_OTHER_MASK)
149 && (h->other & V850_OTHER_ERROR) == 0)
150 {
151 const char * msg;
152 static char buff[200]; /* XXX */
153
154 switch (h->other & V850_OTHER_MASK)
155 {
156 default:
157 msg = _("Variable `%s' cannot occupy in multiple small data regions");
158 break;
159 case V850_OTHER_SDA | V850_OTHER_ZDA | V850_OTHER_TDA:
160 msg = _("Variable `%s' can only be in one of the small, zero, and tiny data regions");
161 break;
162 case V850_OTHER_SDA | V850_OTHER_ZDA:
163 msg = _("Variable `%s' cannot be in both small and zero data regions simultaneously");
164 break;
165 case V850_OTHER_SDA | V850_OTHER_TDA:
166 msg = _("Variable `%s' cannot be in both small and tiny data regions simultaneously");
167 break;
168 case V850_OTHER_ZDA | V850_OTHER_TDA:
169 msg = _("Variable `%s' cannot be in both zero and tiny data regions simultaneously");
170 break;
171 }
172
173 sprintf (buff, msg, h->root.root.string);
174 info->callbacks->warning (info, buff, h->root.root.string,
175 abfd, h->root.u.def.section,
176 (bfd_vma) 0);
177
178 bfd_set_error (bfd_error_bad_value);
179 h->other |= V850_OTHER_ERROR;
180 ret = FALSE;
181 }
182 }
183
184 if (h && h->root.type == bfd_link_hash_common
185 && h->root.u.c.p
186 && !strcmp (bfd_get_section_name (abfd, h->root.u.c.p->section), "COMMON"))
187 {
188 asection * section;
189
190 section = h->root.u.c.p->section = bfd_make_section_old_way (abfd, common);
191 section->flags |= SEC_IS_COMMON;
192 }
193
194 #ifdef DEBUG
195 fprintf (stderr, "v850_elf_check_relocs, found %s relocation for %s%s\n",
196 v850_elf_howto_table[ (int)r_type ].name,
197 (h && h->root.root.string) ? h->root.root.string : "<unknown>",
198 (h->root.type == bfd_link_hash_common) ? ", symbol is common" : "");
199 #endif
200 break;
201 }
202 }
203
204 return ret;
205 }
206
207 /* In the old version, when an entry was checked out from the table,
208 it was deleted. This produced an error if the entry was needed
209 more than once, as the second attempted retry failed.
210
211 In the current version, the entry is not deleted, instead we set
212 the field 'found' to TRUE. If a second lookup matches the same
213 entry, then we know that the hi16s reloc has already been updated
214 and does not need to be updated a second time.
215
216 TODO - TOFIX: If it is possible that we need to restore 2 different
217 addresses from the same table entry, where the first generates an
218 overflow, whilst the second do not, then this code will fail. */
219
220 typedef struct hi16s_location
221 {
222 bfd_vma addend;
223 bfd_byte * address;
224 unsigned long counter;
225 bfd_boolean found;
226 struct hi16s_location * next;
227 }
228 hi16s_location;
229
230 static hi16s_location * previous_hi16s;
231 static hi16s_location * free_hi16s;
232 static unsigned long hi16s_counter;
233
234 static void
remember_hi16s_reloc(bfd * abfd,bfd_vma addend,bfd_byte * address)235 remember_hi16s_reloc (bfd *abfd, bfd_vma addend, bfd_byte *address)
236 {
237 hi16s_location * entry = NULL;
238 bfd_size_type amt = sizeof (* free_hi16s);
239
240 /* Find a free structure. */
241 if (free_hi16s == NULL)
242 free_hi16s = bfd_zalloc (abfd, amt);
243
244 entry = free_hi16s;
245 free_hi16s = free_hi16s->next;
246
247 entry->addend = addend;
248 entry->address = address;
249 entry->counter = hi16s_counter ++;
250 entry->found = FALSE;
251 entry->next = previous_hi16s;
252 previous_hi16s = entry;
253
254 /* Cope with wrap around of our counter. */
255 if (hi16s_counter == 0)
256 {
257 /* XXX: Assume that all counter entries differ only in their low 16 bits. */
258 for (entry = previous_hi16s; entry != NULL; entry = entry->next)
259 entry->counter &= 0xffff;
260
261 hi16s_counter = 0x10000;
262 }
263 }
264
265 static bfd_byte *
find_remembered_hi16s_reloc(bfd_vma addend,bfd_boolean * already_found)266 find_remembered_hi16s_reloc (bfd_vma addend, bfd_boolean *already_found)
267 {
268 hi16s_location *match = NULL;
269 hi16s_location *entry;
270 bfd_byte *addr;
271
272 /* Search the table. Record the most recent entry that matches. */
273 for (entry = previous_hi16s; entry; entry = entry->next)
274 {
275 if (entry->addend == addend
276 && (match == NULL || match->counter < entry->counter))
277 {
278 match = entry;
279 }
280 }
281
282 if (match == NULL)
283 return NULL;
284
285 /* Extract the address. */
286 addr = match->address;
287
288 /* Remember if this entry has already been used before. */
289 if (already_found)
290 * already_found = match->found;
291
292 /* Note that this entry has now been used. */
293 match->found = TRUE;
294
295 return addr;
296 }
297
298 /* Calculate the final operand value for a R_V850_LO16 or
299 R_V850_LO16_SPLIT_OFFSET. *INSN is the current operand value and
300 ADDEND is the sum of the relocation symbol and offset. Store the
301 operand value in *INSN and return true on success.
302
303 The assembler has already done some of this: If the value stored in
304 the instruction has its 15th bit set, (counting from zero) then the
305 assembler will have added 1 to the value stored in the associated
306 HI16S reloc. So for example, these relocations:
307
308 movhi hi( fred ), r0, r1
309 movea lo( fred ), r1, r1
310
311 will store 0 in the value fields for the MOVHI and MOVEA instructions
312 and addend will be the address of fred, but for these instructions:
313
314 movhi hi( fred + 0x123456 ), r0, r1
315 movea lo( fred + 0x123456 ), r1, r1
316
317 the value stored in the MOVHI instruction will be 0x12 and the value
318 stored in the MOVEA instruction will be 0x3456. If however the
319 instructions were:
320
321 movhi hi( fred + 0x10ffff ), r0, r1
322 movea lo( fred + 0x10ffff ), r1, r1
323
324 then the value stored in the MOVHI instruction would be 0x11 (not
325 0x10) and the value stored in the MOVEA instruction would be 0xffff.
326 Thus (assuming for the moment that the addend is 0), at run time the
327 MOVHI instruction loads 0x110000 into r1, then the MOVEA instruction
328 adds 0xffffffff (sign extension!) producing 0x10ffff. Similarly if
329 the instructions were:
330
331 movhi hi( fred - 1 ), r0, r1
332 movea lo( fred - 1 ), r1, r1
333
334 then 0 is stored in the MOVHI instruction and -1 is stored in the
335 MOVEA instruction.
336
337 Overflow can occur if the addition of the value stored in the
338 instruction plus the addend sets the 15th bit when before it was clear.
339 This is because the 15th bit will be sign extended into the high part,
340 thus reducing its value by one, but since the 15th bit was originally
341 clear, the assembler will not have added 1 to the previous HI16S reloc
342 to compensate for this effect. For example:
343
344 movhi hi( fred + 0x123456 ), r0, r1
345 movea lo( fred + 0x123456 ), r1, r1
346
347 The value stored in HI16S reloc is 0x12, the value stored in the LO16
348 reloc is 0x3456. If we assume that the address of fred is 0x00007000
349 then the relocations become:
350
351 HI16S: 0x0012 + (0x00007000 >> 16) = 0x12
352 LO16: 0x3456 + (0x00007000 & 0xffff) = 0xa456
353
354 but when the instructions are executed, the MOVEA instruction's value
355 is signed extended, so the sum becomes:
356
357 0x00120000
358 + 0xffffa456
359 ------------
360 0x0011a456 but 'fred + 0x123456' = 0x0012a456
361
362 Note that if the 15th bit was set in the value stored in the LO16
363 reloc, then we do not have to do anything:
364
365 movhi hi( fred + 0x10ffff ), r0, r1
366 movea lo( fred + 0x10ffff ), r1, r1
367
368 HI16S: 0x0011 + (0x00007000 >> 16) = 0x11
369 LO16: 0xffff + (0x00007000 & 0xffff) = 0x6fff
370
371 0x00110000
372 + 0x00006fff
373 ------------
374 0x00116fff = fred + 0x10ffff = 0x7000 + 0x10ffff
375
376 Overflow can also occur if the computation carries into the 16th bit
377 and it also results in the 15th bit having the same value as the 15th
378 bit of the original value. What happens is that the HI16S reloc
379 will have already examined the 15th bit of the original value and
380 added 1 to the high part if the bit is set. This compensates for the
381 sign extension of 15th bit of the result of the computation. But now
382 there is a carry into the 16th bit, and this has not been allowed for.
383
384 So, for example if fred is at address 0xf000:
385
386 movhi hi( fred + 0xffff ), r0, r1 [bit 15 of the offset is set]
387 movea lo( fred + 0xffff ), r1, r1
388
389 HI16S: 0x0001 + (0x0000f000 >> 16) = 0x0001
390 LO16: 0xffff + (0x0000f000 & 0xffff) = 0xefff (carry into bit 16 is lost)
391
392 0x00010000
393 + 0xffffefff
394 ------------
395 0x0000efff but 'fred + 0xffff' = 0x0001efff
396
397 Similarly, if the 15th bit remains clear, but overflow occurs into
398 the 16th bit then (assuming the address of fred is 0xf000):
399
400 movhi hi( fred + 0x7000 ), r0, r1 [bit 15 of the offset is clear]
401 movea lo( fred + 0x7000 ), r1, r1
402
403 HI16S: 0x0000 + (0x0000f000 >> 16) = 0x0000
404 LO16: 0x7000 + (0x0000f000 & 0xffff) = 0x6fff (carry into bit 16 is lost)
405
406 0x00000000
407 + 0x00006fff
408 ------------
409 0x00006fff but 'fred + 0x7000' = 0x00016fff
410
411 Note - there is no need to change anything if a carry occurs, and the
412 15th bit changes its value from being set to being clear, as the HI16S
413 reloc will have already added in 1 to the high part for us:
414
415 movhi hi( fred + 0xffff ), r0, r1 [bit 15 of the offset is set]
416 movea lo( fred + 0xffff ), r1, r1
417
418 HI16S: 0x0001 + (0x00007000 >> 16)
419 LO16: 0xffff + (0x00007000 & 0xffff) = 0x6fff (carry into bit 16 is lost)
420
421 0x00010000
422 + 0x00006fff (bit 15 not set, so the top half is zero)
423 ------------
424 0x00016fff which is right (assuming that fred is at 0x7000)
425
426 but if the 15th bit goes from being clear to being set, then we must
427 once again handle overflow:
428
429 movhi hi( fred + 0x7000 ), r0, r1 [bit 15 of the offset is clear]
430 movea lo( fred + 0x7000 ), r1, r1
431
432 HI16S: 0x0000 + (0x0000ffff >> 16)
433 LO16: 0x7000 + (0x0000ffff & 0xffff) = 0x6fff (carry into bit 16)
434
435 0x00000000
436 + 0x00006fff (bit 15 not set, so the top half is zero)
437 ------------
438 0x00006fff which is wrong (assuming that fred is at 0xffff). */
439
440 static bfd_boolean
v850_elf_perform_lo16_relocation(bfd * abfd,unsigned long * insn,unsigned long addend)441 v850_elf_perform_lo16_relocation (bfd *abfd, unsigned long *insn,
442 unsigned long addend)
443 {
444 #define BIT15_SET(x) ((x) & 0x8000)
445 #define OVERFLOWS(a,i) ((((a) & 0xffff) + (i)) > 0xffff)
446
447 if ((BIT15_SET (*insn + addend) && ! BIT15_SET (addend))
448 || (OVERFLOWS (addend, *insn)
449 && ((! BIT15_SET (*insn)) || (BIT15_SET (addend)))))
450 {
451 bfd_boolean already_updated;
452 bfd_byte *hi16s_address = find_remembered_hi16s_reloc
453 (addend, & already_updated);
454
455 /* Amend the matching HI16_S relocation. */
456 if (hi16s_address != NULL)
457 {
458 if (! already_updated)
459 {
460 unsigned long hi_insn = bfd_get_16 (abfd, hi16s_address);
461 hi_insn += 1;
462 bfd_put_16 (abfd, hi_insn, hi16s_address);
463 }
464 }
465 else
466 {
467 (*_bfd_error_handler) (_("FAILED to find previous HI16 reloc"));
468 return FALSE;
469 }
470 }
471 #undef OVERFLOWS
472 #undef BIT15_SET
473
474 /* Do not complain if value has top bit set, as this has been
475 anticipated. */
476 *insn = (*insn + addend) & 0xffff;
477 return TRUE;
478 }
479
480 /* FIXME: The code here probably ought to be removed and the code in reloc.c
481 allowed to do its stuff instead. At least for most of the relocs, anyway. */
482
483 static bfd_reloc_status_type
v850_elf_perform_relocation(bfd * abfd,unsigned int r_type,bfd_vma addend,bfd_byte * address)484 v850_elf_perform_relocation (bfd *abfd,
485 unsigned int r_type,
486 bfd_vma addend,
487 bfd_byte *address)
488 {
489 unsigned long insn;
490 unsigned long result;
491 bfd_signed_vma saddend = (bfd_signed_vma) addend;
492
493 switch (r_type)
494 {
495 default:
496 #ifdef DEBUG
497 fprintf (stderr, "%B: reloc number %d not recognised\n", abfd, r_type);
498 #endif
499 return bfd_reloc_notsupported;
500
501 case R_V850_REL32:
502 case R_V850_ABS32:
503 case R_V810_WORD:
504 case R_V850_PC32:
505 bfd_put_32 (abfd, addend, address);
506 return bfd_reloc_ok;
507
508 case R_V850_WLO23:
509 case R_V850_23:
510 insn = bfd_get_32 (abfd, address);
511 insn &= ~((0x7f << 4) | (0x7fff80 << (16-7)));
512 insn |= ((addend & 0x7f) << 4) | ((addend & 0x7fff80) << (16-7));
513 bfd_put_32 (abfd, (bfd_vma) insn, address);
514 return bfd_reloc_ok;
515
516 case R_V850_PCR22:
517 case R_V850_22_PCREL:
518 if (saddend > 0x1fffff || saddend < -0x200000)
519 return bfd_reloc_overflow;
520
521 if ((addend % 2) != 0)
522 return bfd_reloc_dangerous;
523
524 insn = bfd_get_32 (abfd, address);
525 insn &= ~0xfffe003f;
526 insn |= (((addend & 0xfffe) << 16) | ((addend & 0x3f0000) >> 16));
527 bfd_put_32 (abfd, (bfd_vma) insn, address);
528 return bfd_reloc_ok;
529
530 case R_V850_PC17:
531 case R_V850_17_PCREL:
532 if (saddend > 0xffff || saddend < -0x10000)
533 return bfd_reloc_overflow;
534
535 if ((addend % 2) != 0)
536 return bfd_reloc_dangerous;
537
538 insn = bfd_get_32 (abfd, address);
539 insn &= ~ 0xfffe0010;
540 insn |= ((addend & 0xfffe) << 16) | ((addend & 0x10000) >> (16-4));
541 break;
542
543 case R_V850_PC16U:
544 case R_V850_16_PCREL:
545 if ((saddend < -0xffff) || (saddend > 0))
546 return bfd_reloc_overflow;
547
548 if ((addend % 2) != 0)
549 return bfd_reloc_dangerous;
550
551 insn = bfd_get_16 (abfd, address);
552 insn &= ~0xfffe;
553 insn |= (-addend & 0xfffe);
554 break;
555
556 case R_V850_PC9:
557 case R_V850_9_PCREL:
558 if (saddend > 0xff || saddend < -0x100)
559 return bfd_reloc_overflow;
560
561 if ((addend % 2) != 0)
562 return bfd_reloc_dangerous;
563
564 insn = bfd_get_16 (abfd, address);
565 insn &= ~ 0xf870;
566 insn |= ((addend & 0x1f0) << 7) | ((addend & 0x0e) << 3);
567 break;
568
569 case R_V810_WHI:
570 case R_V850_HI16:
571 addend += (bfd_get_16 (abfd, address) << 16);
572 addend = (addend >> 16);
573 insn = addend;
574 break;
575
576 case R_V810_WHI1:
577 case R_V850_HI16_S:
578 /* Remember where this relocation took place. */
579 remember_hi16s_reloc (abfd, addend, address);
580
581 addend += (bfd_get_16 (abfd, address) << 16);
582 addend = (addend >> 16) + ((addend & 0x8000) != 0);
583
584 /* This relocation cannot overflow. */
585 if (addend > 0xffff)
586 addend = 0;
587
588 insn = addend;
589 break;
590
591 case R_V810_WLO:
592 case R_V850_LO16:
593 insn = bfd_get_16 (abfd, address);
594 if (! v850_elf_perform_lo16_relocation (abfd, &insn, addend))
595 return bfd_reloc_overflow;
596 break;
597
598 case R_V810_BYTE:
599 case R_V850_8:
600 addend += (char) bfd_get_8 (abfd, address);
601
602 saddend = (bfd_signed_vma) addend;
603
604 if (saddend > 0x7f || saddend < -0x80)
605 return bfd_reloc_overflow;
606
607 bfd_put_8 (abfd, addend, address);
608 return bfd_reloc_ok;
609
610 case R_V850_CALLT_16_16_OFFSET:
611 addend += bfd_get_16 (abfd, address);
612
613 saddend = (bfd_signed_vma) addend;
614
615 if (saddend > 0xffff || saddend < 0)
616 return bfd_reloc_overflow;
617
618 insn = addend;
619 break;
620
621 case R_V850_CALLT_15_16_OFFSET:
622 insn = bfd_get_16 (abfd, address);
623
624 addend += insn & 0xfffe;
625
626 saddend = (bfd_signed_vma) addend;
627
628 if (saddend > 0xffff || saddend < 0)
629 return bfd_reloc_overflow;
630
631 insn = (0xfffe & addend)
632 | (insn & ~0xfffe);
633 break;
634
635 case R_V850_CALLT_6_7_OFFSET:
636 insn = bfd_get_16 (abfd, address);
637 addend += ((insn & 0x3f) << 1);
638
639 saddend = (bfd_signed_vma) addend;
640
641 if (saddend > 0x7e || saddend < 0)
642 return bfd_reloc_overflow;
643
644 if (addend & 1)
645 return bfd_reloc_dangerous;
646
647 insn &= 0xff80;
648 insn |= (addend >> 1);
649 break;
650
651 case R_V850_16:
652 case R_V810_HWORD:
653 case R_V850_SDA_16_16_OFFSET:
654 case R_V850_ZDA_16_16_OFFSET:
655 case R_V850_TDA_16_16_OFFSET:
656 addend += bfd_get_16 (abfd, address);
657
658 saddend = (bfd_signed_vma) addend;
659
660 if (saddend > 0x7fff || saddend < -0x8000)
661 return bfd_reloc_overflow;
662
663 insn = addend;
664 break;
665
666 case R_V850_16_S1:
667 case R_V850_SDA_15_16_OFFSET:
668 case R_V850_ZDA_15_16_OFFSET:
669 case R_V810_GPWLO_1:
670 insn = bfd_get_16 (abfd, address);
671 addend += (insn & 0xfffe);
672
673 saddend = (bfd_signed_vma) addend;
674
675 if (saddend > 0x7ffe || saddend < -0x8000)
676 return bfd_reloc_overflow;
677
678 if (addend & 1)
679 return bfd_reloc_dangerous;
680
681 insn = (addend &~ (bfd_vma) 1) | (insn & 1);
682 break;
683
684 case R_V850_TDA_6_8_OFFSET:
685 insn = bfd_get_16 (abfd, address);
686 addend += ((insn & 0x7e) << 1);
687
688 saddend = (bfd_signed_vma) addend;
689
690 if (saddend > 0xfc || saddend < 0)
691 return bfd_reloc_overflow;
692
693 if (addend & 3)
694 return bfd_reloc_dangerous;
695
696 insn &= 0xff81;
697 insn |= (addend >> 1);
698 break;
699
700 case R_V850_TDA_7_8_OFFSET:
701 insn = bfd_get_16 (abfd, address);
702 addend += ((insn & 0x7f) << 1);
703
704 saddend = (bfd_signed_vma) addend;
705
706 if (saddend > 0xfe || saddend < 0)
707 return bfd_reloc_overflow;
708
709 if (addend & 1)
710 return bfd_reloc_dangerous;
711
712 insn &= 0xff80;
713 insn |= (addend >> 1);
714 break;
715
716 case R_V850_TDA_7_7_OFFSET:
717 insn = bfd_get_16 (abfd, address);
718 addend += insn & 0x7f;
719
720 saddend = (bfd_signed_vma) addend;
721
722 if (saddend > 0x7f || saddend < 0)
723 return bfd_reloc_overflow;
724
725 insn &= 0xff80;
726 insn |= addend;
727 break;
728
729 case R_V850_TDA_4_5_OFFSET:
730 insn = bfd_get_16 (abfd, address);
731 addend += ((insn & 0xf) << 1);
732
733 saddend = (bfd_signed_vma) addend;
734
735 if (saddend > 0x1e || saddend < 0)
736 return bfd_reloc_overflow;
737
738 if (addend & 1)
739 return bfd_reloc_dangerous;
740
741 insn &= 0xfff0;
742 insn |= (addend >> 1);
743 break;
744
745 case R_V850_TDA_4_4_OFFSET:
746 insn = bfd_get_16 (abfd, address);
747 addend += insn & 0xf;
748
749 saddend = (bfd_signed_vma) addend;
750
751 if (saddend > 0xf || saddend < 0)
752 return bfd_reloc_overflow;
753
754 insn &= 0xfff0;
755 insn |= addend;
756 break;
757
758 case R_V810_WLO_1:
759 case R_V850_HWLO:
760 case R_V850_HWLO_1:
761 case R_V850_LO16_S1:
762 insn = bfd_get_16 (abfd, address);
763 result = insn & 0xfffe;
764 if (! v850_elf_perform_lo16_relocation (abfd, &result, addend))
765 return bfd_reloc_overflow;
766 if (result & 1)
767 return bfd_reloc_overflow;
768 insn = (result & 0xfffe)
769 | (insn & ~0xfffe);
770 bfd_put_16 (abfd, insn, address);
771 return bfd_reloc_ok;
772
773 case R_V850_BLO:
774 case R_V850_LO16_SPLIT_OFFSET:
775 insn = bfd_get_32 (abfd, address);
776 result = ((insn & 0xfffe0000) >> 16) | ((insn & 0x20) >> 5);
777 if (! v850_elf_perform_lo16_relocation (abfd, &result, addend))
778 return bfd_reloc_overflow;
779 insn = (((result << 16) & 0xfffe0000)
780 | ((result << 5) & 0x20)
781 | (insn & ~0xfffe0020));
782 bfd_put_32 (abfd, insn, address);
783 return bfd_reloc_ok;
784
785 case R_V850_16_SPLIT_OFFSET:
786 case R_V850_SDA_16_16_SPLIT_OFFSET:
787 case R_V850_ZDA_16_16_SPLIT_OFFSET:
788 insn = bfd_get_32 (abfd, address);
789 addend += ((insn & 0xfffe0000) >> 16) + ((insn & 0x20) >> 5);
790
791 saddend = (bfd_signed_vma) addend;
792
793 if (saddend > 0x7fff || saddend < -0x8000)
794 return bfd_reloc_overflow;
795
796 insn &= 0x0001ffdf;
797 insn |= (addend & 1) << 5;
798 insn |= (addend &~ (bfd_vma) 1) << 16;
799
800 bfd_put_32 (abfd, (bfd_vma) insn, address);
801 return bfd_reloc_ok;
802
803 case R_V850_GNU_VTINHERIT:
804 case R_V850_GNU_VTENTRY:
805 return bfd_reloc_ok;
806
807 }
808
809 bfd_put_16 (abfd, (bfd_vma) insn, address);
810 return bfd_reloc_ok;
811 }
812
813 /* Insert the addend into the instruction. */
814
815 static bfd_reloc_status_type
v850_elf_reloc(bfd * abfd ATTRIBUTE_UNUSED,arelent * reloc,asymbol * symbol,void * data ATTRIBUTE_UNUSED,asection * isection,bfd * obfd,char ** err ATTRIBUTE_UNUSED)816 v850_elf_reloc (bfd *abfd ATTRIBUTE_UNUSED,
817 arelent *reloc,
818 asymbol *symbol,
819 void * data ATTRIBUTE_UNUSED,
820 asection *isection,
821 bfd *obfd,
822 char **err ATTRIBUTE_UNUSED)
823 {
824 long relocation;
825
826 /* If there is an output BFD,
827 and the symbol is not a section name (which is only defined at final link time),
828 and either we are not putting the addend into the instruction
829 or the addend is zero, so there is nothing to add into the instruction
830 then just fixup the address and return. */
831 if (obfd != NULL
832 && (symbol->flags & BSF_SECTION_SYM) == 0
833 && (! reloc->howto->partial_inplace
834 || reloc->addend == 0))
835 {
836 reloc->address += isection->output_offset;
837 return bfd_reloc_ok;
838 }
839
840 /* Catch relocs involving undefined symbols. */
841 if (bfd_is_und_section (symbol->section)
842 && (symbol->flags & BSF_WEAK) == 0
843 && obfd == NULL)
844 return bfd_reloc_undefined;
845
846 /* We handle final linking of some relocs ourselves. */
847
848 /* Is the address of the relocation really within the section? */
849 if (reloc->address > bfd_get_section_limit (abfd, isection))
850 return bfd_reloc_outofrange;
851
852 /* Work out which section the relocation is targeted at and the
853 initial relocation command value. */
854
855 if (reloc->howto->pc_relative)
856 return bfd_reloc_ok;
857
858 /* Get symbol value. (Common symbols are special.) */
859 if (bfd_is_com_section (symbol->section))
860 relocation = 0;
861 else
862 relocation = symbol->value;
863
864 /* Convert input-section-relative symbol value to absolute + addend. */
865 relocation += symbol->section->output_section->vma;
866 relocation += symbol->section->output_offset;
867 relocation += reloc->addend;
868
869 reloc->addend = relocation;
870 return bfd_reloc_ok;
871 }
872
873 /* This function is used for relocs which are only used
874 for relaxing, which the linker should otherwise ignore. */
875
876 static bfd_reloc_status_type
v850_elf_ignore_reloc(bfd * abfd ATTRIBUTE_UNUSED,arelent * reloc_entry,asymbol * symbol ATTRIBUTE_UNUSED,void * data ATTRIBUTE_UNUSED,asection * input_section,bfd * output_bfd,char ** error_message ATTRIBUTE_UNUSED)877 v850_elf_ignore_reloc (bfd *abfd ATTRIBUTE_UNUSED,
878 arelent *reloc_entry,
879 asymbol *symbol ATTRIBUTE_UNUSED,
880 void * data ATTRIBUTE_UNUSED,
881 asection *input_section,
882 bfd *output_bfd,
883 char **error_message ATTRIBUTE_UNUSED)
884 {
885 if (output_bfd != NULL)
886 reloc_entry->address += input_section->output_offset;
887
888 return bfd_reloc_ok;
889 }
890 /* Note: It is REQUIRED that the 'type' value of each entry
891 in this array match the index of the entry in the array.
892 SeeAlso: RELOC_NUBMER in include/elf/v850.h. */
893 static reloc_howto_type v850_elf_howto_table[] =
894 {
895 /* This reloc does nothing. */
896 HOWTO (R_V850_NONE, /* Type. */
897 0, /* Rightshift. */
898 3, /* Size (0 = byte, 1 = short, 2 = long). */
899 0, /* Bitsize. */
900 FALSE, /* PC_relative. */
901 0, /* Bitpos. */
902 complain_overflow_dont, /* Complain_on_overflow. */
903 bfd_elf_generic_reloc, /* Special_function. */
904 "R_V850_NONE", /* Name. */
905 FALSE, /* Partial_inplace. */
906 0, /* Src_mask. */
907 0, /* Dst_mask. */
908 FALSE), /* PCrel_offset. */
909
910 /* A PC relative 9 bit branch. */
911 HOWTO (R_V850_9_PCREL, /* Type. */
912 0, /* Rightshift. */
913 1, /* Size (0 = byte, 1 = short, 2 = long). */
914 9, /* Bitsize. */
915 TRUE, /* PC_relative. */
916 0, /* Bitpos. */
917 complain_overflow_bitfield, /* Complain_on_overflow. */
918 v850_elf_reloc, /* Special_function. */
919 "R_V850_9_PCREL", /* Name. */
920 FALSE, /* Partial_inplace. */
921 0x00ffffff, /* Src_mask. */
922 0x00ffffff, /* Dst_mask. */
923 TRUE), /* PCrel_offset. */
924
925 /* A PC relative 22 bit branch. */
926 HOWTO (R_V850_22_PCREL, /* Type. */
927 0, /* Rightshift. */
928 2, /* Size (0 = byte, 1 = short, 2 = long). */
929 22, /* Bitsize. */
930 TRUE, /* PC_relative. */
931 0, /* Bitpos. */
932 complain_overflow_signed, /* Complain_on_overflow. */
933 v850_elf_reloc, /* Special_function. */
934 "R_V850_22_PCREL", /* Name. */
935 FALSE, /* Partial_inplace. */
936 0x07ffff80, /* Src_mask. */
937 0x07ffff80, /* Dst_mask. */
938 TRUE), /* PCrel_offset. */
939
940 /* High 16 bits of symbol value. */
941 HOWTO (R_V850_HI16_S, /* Type. */
942 0, /* Rightshift. */
943 1, /* Size (0 = byte, 1 = short, 2 = long). */
944 16, /* Bitsize. */
945 FALSE, /* PC_relative. */
946 0, /* Bitpos. */
947 complain_overflow_dont, /* Complain_on_overflow. */
948 v850_elf_reloc, /* Special_function. */
949 "R_V850_HI16_S", /* Name. */
950 FALSE, /* Partial_inplace. */
951 0xffff, /* Src_mask. */
952 0xffff, /* Dst_mask. */
953 FALSE), /* PCrel_offset. */
954
955 /* High 16 bits of symbol value. */
956 HOWTO (R_V850_HI16, /* Type. */
957 0, /* Rightshift. */
958 1, /* Size (0 = byte, 1 = short, 2 = long). */
959 16, /* Bitsize. */
960 FALSE, /* PC_relative. */
961 0, /* Bitpos. */
962 complain_overflow_dont, /* Complain_on_overflow. */
963 v850_elf_reloc, /* Special_function. */
964 "R_V850_HI16", /* Name. */
965 FALSE, /* Partial_inplace. */
966 0xffff, /* Src_mask. */
967 0xffff, /* Dst_mask. */
968 FALSE), /* PCrel_offset. */
969
970 /* Low 16 bits of symbol value. */
971 HOWTO (R_V850_LO16, /* Type. */
972 0, /* Rightshift. */
973 1, /* Size (0 = byte, 1 = short, 2 = long). */
974 16, /* Bitsize. */
975 FALSE, /* PC_relative. */
976 0, /* Bitpos. */
977 complain_overflow_dont, /* Complain_on_overflow. */
978 v850_elf_reloc, /* Special_function. */
979 "R_V850_LO16", /* Name. */
980 FALSE, /* Partial_inplace. */
981 0xffff, /* Src_mask. */
982 0xffff, /* Dst_mask. */
983 FALSE), /* PCrel_offset. */
984
985 /* Simple 32bit reloc. */
986 HOWTO (R_V850_ABS32, /* Type. */
987 0, /* Rightshift. */
988 2, /* Size (0 = byte, 1 = short, 2 = long). */
989 32, /* Bitsize. */
990 FALSE, /* PC_relative. */
991 0, /* Bitpos. */
992 complain_overflow_dont, /* Complain_on_overflow. */
993 v850_elf_reloc, /* Special_function. */
994 "R_V850_ABS32", /* Name. */
995 FALSE, /* Partial_inplace. */
996 0xffffffff, /* Src_mask. */
997 0xffffffff, /* Dst_mask. */
998 FALSE), /* PCrel_offset. */
999
1000 /* Simple 16bit reloc. */
1001 HOWTO (R_V850_16, /* Type. */
1002 0, /* Rightshift. */
1003 1, /* Size (0 = byte, 1 = short, 2 = long). */
1004 16, /* Bitsize. */
1005 FALSE, /* PC_relative. */
1006 0, /* Bitpos. */
1007 complain_overflow_dont, /* Complain_on_overflow. */
1008 bfd_elf_generic_reloc, /* Special_function. */
1009 "R_V850_16", /* Name. */
1010 FALSE, /* Partial_inplace. */
1011 0xffff, /* Src_mask. */
1012 0xffff, /* Dst_mask. */
1013 FALSE), /* PCrel_offset. */
1014
1015 /* Simple 8bit reloc. */
1016 HOWTO (R_V850_8, /* Type. */
1017 0, /* Rightshift. */
1018 0, /* Size (0 = byte, 1 = short, 2 = long). */
1019 8, /* Bitsize. */
1020 FALSE, /* PC_relative. */
1021 0, /* Bitpos. */
1022 complain_overflow_dont, /* Complain_on_overflow. */
1023 bfd_elf_generic_reloc, /* Special_function. */
1024 "R_V850_8", /* Name. */
1025 FALSE, /* Partial_inplace. */
1026 0xff, /* Src_mask. */
1027 0xff, /* Dst_mask. */
1028 FALSE), /* PCrel_offset. */
1029
1030 /* 16 bit offset from the short data area pointer. */
1031 HOWTO (R_V850_SDA_16_16_OFFSET, /* Type. */
1032 0, /* Rightshift. */
1033 1, /* Size (0 = byte, 1 = short, 2 = long). */
1034 16, /* Bitsize. */
1035 FALSE, /* PC_relative. */
1036 0, /* Bitpos. */
1037 complain_overflow_dont, /* Complain_on_overflow. */
1038 v850_elf_reloc, /* Special_function. */
1039 "R_V850_SDA_16_16_OFFSET", /* Name. */
1040 FALSE, /* Partial_inplace. */
1041 0xffff, /* Src_mask. */
1042 0xffff, /* Dst_mask. */
1043 FALSE), /* PCrel_offset. */
1044
1045 /* 15 bit offset from the short data area pointer. */
1046 HOWTO (R_V850_SDA_15_16_OFFSET, /* Type. */
1047 1, /* Rightshift. */
1048 1, /* Size (0 = byte, 1 = short, 2 = long). */
1049 16, /* Bitsize. */
1050 FALSE, /* PC_relative. */
1051 1, /* Bitpos. */
1052 complain_overflow_dont, /* Complain_on_overflow. */
1053 v850_elf_reloc, /* Special_function. */
1054 "R_V850_SDA_15_16_OFFSET", /* Name. */
1055 FALSE, /* Partial_inplace. */
1056 0xfffe, /* Src_mask. */
1057 0xfffe, /* Dst_mask. */
1058 FALSE), /* PCrel_offset. */
1059
1060 /* 16 bit offset from the zero data area pointer. */
1061 HOWTO (R_V850_ZDA_16_16_OFFSET, /* Type. */
1062 0, /* Rightshift. */
1063 1, /* Size (0 = byte, 1 = short, 2 = long). */
1064 16, /* Bitsize. */
1065 FALSE, /* PC_relative. */
1066 0, /* Bitpos. */
1067 complain_overflow_dont, /* Complain_on_overflow. */
1068 v850_elf_reloc, /* Special_function. */
1069 "R_V850_ZDA_16_16_OFFSET", /* Name. */
1070 FALSE, /* Partial_inplace. */
1071 0xffff, /* Src_mask. */
1072 0xffff, /* Dst_mask. */
1073 FALSE), /* PCrel_offset. */
1074
1075 /* 15 bit offset from the zero data area pointer. */
1076 HOWTO (R_V850_ZDA_15_16_OFFSET, /* Type. */
1077 1, /* Rightshift. */
1078 1, /* Size (0 = byte, 1 = short, 2 = long). */
1079 16, /* Bitsize. */
1080 FALSE, /* PC_relative. */
1081 1, /* Bitpos. */
1082 complain_overflow_dont, /* Complain_on_overflow. */
1083 v850_elf_reloc, /* Special_function. */
1084 "R_V850_ZDA_15_16_OFFSET", /* Name. */
1085 FALSE, /* Partial_inplace. */
1086 0xfffe, /* Src_mask. */
1087 0xfffe, /* Dst_mask. */
1088 FALSE), /* PCrel_offset. */
1089
1090 /* 6 bit offset from the tiny data area pointer. */
1091 HOWTO (R_V850_TDA_6_8_OFFSET, /* Type. */
1092 2, /* Rightshift. */
1093 1, /* Size (0 = byte, 1 = short, 2 = long). */
1094 8, /* Bitsize. */
1095 FALSE, /* PC_relative. */
1096 1, /* Bitpos. */
1097 complain_overflow_dont, /* Complain_on_overflow. */
1098 v850_elf_reloc, /* Special_function. */
1099 "R_V850_TDA_6_8_OFFSET", /* Name. */
1100 FALSE, /* Partial_inplace. */
1101 0x7e, /* Src_mask. */
1102 0x7e, /* Dst_mask. */
1103 FALSE), /* PCrel_offset. */
1104
1105 /* 8 bit offset from the tiny data area pointer. */
1106 HOWTO (R_V850_TDA_7_8_OFFSET, /* Type. */
1107 1, /* Rightshift. */
1108 1, /* Size (0 = byte, 1 = short, 2 = long). */
1109 8, /* Bitsize. */
1110 FALSE, /* PC_relative. */
1111 0, /* Bitpos. */
1112 complain_overflow_dont, /* Complain_on_overflow. */
1113 v850_elf_reloc, /* Special_function. */
1114 "R_V850_TDA_7_8_OFFSET", /* Name. */
1115 FALSE, /* Partial_inplace. */
1116 0x7f, /* Src_mask. */
1117 0x7f, /* Dst_mask. */
1118 FALSE), /* PCrel_offset. */
1119
1120 /* 7 bit offset from the tiny data area pointer. */
1121 HOWTO (R_V850_TDA_7_7_OFFSET, /* Type. */
1122 0, /* Rightshift. */
1123 1, /* Size (0 = byte, 1 = short, 2 = long). */
1124 7, /* Bitsize. */
1125 FALSE, /* PC_relative. */
1126 0, /* Bitpos. */
1127 complain_overflow_dont, /* Complain_on_overflow. */
1128 v850_elf_reloc, /* Special_function. */
1129 "R_V850_TDA_7_7_OFFSET", /* Name. */
1130 FALSE, /* Partial_inplace. */
1131 0x7f, /* Src_mask. */
1132 0x7f, /* Dst_mask. */
1133 FALSE), /* PCrel_offset. */
1134
1135 /* 16 bit offset from the tiny data area pointer! */
1136 HOWTO (R_V850_TDA_16_16_OFFSET, /* Type. */
1137 0, /* Rightshift. */
1138 1, /* Size (0 = byte, 1 = short, 2 = long). */
1139 16, /* Bitsize. */
1140 FALSE, /* PC_relative. */
1141 0, /* Bitpos. */
1142 complain_overflow_dont, /* Complain_on_overflow. */
1143 v850_elf_reloc, /* Special_function. */
1144 "R_V850_TDA_16_16_OFFSET", /* Name. */
1145 FALSE, /* Partial_inplace. */
1146 0xffff, /* Src_mask. */
1147 0xfff, /* Dst_mask. */
1148 FALSE), /* PCrel_offset. */
1149
1150 /* 5 bit offset from the tiny data area pointer. */
1151 HOWTO (R_V850_TDA_4_5_OFFSET, /* Type. */
1152 1, /* Rightshift. */
1153 1, /* Size (0 = byte, 1 = short, 2 = long). */
1154 5, /* Bitsize. */
1155 FALSE, /* PC_relative. */
1156 0, /* Bitpos. */
1157 complain_overflow_dont, /* Complain_on_overflow. */
1158 v850_elf_reloc, /* Special_function. */
1159 "R_V850_TDA_4_5_OFFSET", /* Name. */
1160 FALSE, /* Partial_inplace. */
1161 0x0f, /* Src_mask. */
1162 0x0f, /* Dst_mask. */
1163 FALSE), /* PCrel_offset. */
1164
1165 /* 4 bit offset from the tiny data area pointer. */
1166 HOWTO (R_V850_TDA_4_4_OFFSET, /* Type. */
1167 0, /* Rightshift. */
1168 1, /* Size (0 = byte, 1 = short, 2 = long). */
1169 4, /* Bitsize. */
1170 FALSE, /* PC_relative. */
1171 0, /* Bitpos. */
1172 complain_overflow_dont, /* Complain_on_overflow. */
1173 v850_elf_reloc, /* Special_function. */
1174 "R_V850_TDA_4_4_OFFSET", /* Name. */
1175 FALSE, /* Partial_inplace. */
1176 0x0f, /* Src_mask. */
1177 0x0f, /* Dst_mask. */
1178 FALSE), /* PCrel_offset. */
1179
1180 /* 16 bit offset from the short data area pointer. */
1181 HOWTO (R_V850_SDA_16_16_SPLIT_OFFSET, /* Type. */
1182 0, /* Rightshift. */
1183 2, /* Size (0 = byte, 1 = short, 2 = long). */
1184 16, /* Bitsize. */
1185 FALSE, /* PC_relative. */
1186 0, /* Bitpos. */
1187 complain_overflow_dont, /* Complain_on_overflow. */
1188 v850_elf_reloc, /* Special_function. */
1189 "R_V850_SDA_16_16_SPLIT_OFFSET",/* Name. */
1190 FALSE, /* Partial_inplace. */
1191 0xfffe0020, /* Src_mask. */
1192 0xfffe0020, /* Dst_mask. */
1193 FALSE), /* PCrel_offset. */
1194
1195 /* 16 bit offset from the zero data area pointer. */
1196 HOWTO (R_V850_ZDA_16_16_SPLIT_OFFSET, /* Type. */
1197 0, /* Rightshift. */
1198 2, /* Size (0 = byte, 1 = short, 2 = long). */
1199 16, /* Bitsize. */
1200 FALSE, /* PC_relative. */
1201 0, /* Bitpos. */
1202 complain_overflow_dont, /* Complain_on_overflow. */
1203 v850_elf_reloc, /* Special_function. */
1204 "R_V850_ZDA_16_16_SPLIT_OFFSET",/* Name. */
1205 FALSE, /* Partial_inplace. */
1206 0xfffe0020, /* Src_mask. */
1207 0xfffe0020, /* Dst_mask. */
1208 FALSE), /* PCrel_offset. */
1209
1210 /* 6 bit offset from the call table base pointer. */
1211 HOWTO (R_V850_CALLT_6_7_OFFSET, /* Type. */
1212 0, /* Rightshift. */
1213 1, /* Size (0 = byte, 1 = short, 2 = long). */
1214 7, /* Bitsize. */
1215 FALSE, /* PC_relative. */
1216 0, /* Bitpos. */
1217 complain_overflow_dont, /* Complain_on_overflow. */
1218 v850_elf_reloc, /* Special_function. */
1219 "R_V850_CALLT_6_7_OFFSET", /* Name. */
1220 FALSE, /* Partial_inplace. */
1221 0x3f, /* Src_mask. */
1222 0x3f, /* Dst_mask. */
1223 FALSE), /* PCrel_offset. */
1224
1225 /* 16 bit offset from the call table base pointer. */
1226 HOWTO (R_V850_CALLT_16_16_OFFSET, /* Type. */
1227 0, /* Rightshift. */
1228 1, /* Size (0 = byte, 1 = short, 2 = long). */
1229 16, /* Bitsize. */
1230 FALSE, /* PC_relative. */
1231 0, /* Bitpos. */
1232 complain_overflow_dont, /* Complain_on_overflow. */
1233 v850_elf_reloc, /* Special_function. */
1234 "R_V850_CALLT_16_16_OFFSET", /* Name. */
1235 FALSE, /* Partial_inplace. */
1236 0xffff, /* Src_mask. */
1237 0xffff, /* Dst_mask. */
1238 FALSE), /* PCrel_offset. */
1239
1240
1241 /* GNU extension to record C++ vtable hierarchy */
1242 HOWTO (R_V850_GNU_VTINHERIT, /* Type. */
1243 0, /* Rightshift. */
1244 2, /* Size (0 = byte, 1 = short, 2 = long). */
1245 0, /* Bitsize. */
1246 FALSE, /* PC_relative. */
1247 0, /* Bitpos. */
1248 complain_overflow_dont, /* Complain_on_overflow. */
1249 NULL, /* Special_function. */
1250 "R_V850_GNU_VTINHERIT", /* Name. */
1251 FALSE, /* Partial_inplace. */
1252 0, /* Src_mask. */
1253 0, /* Dst_mask. */
1254 FALSE), /* PCrel_offset. */
1255
1256 /* GNU extension to record C++ vtable member usage. */
1257 HOWTO (R_V850_GNU_VTENTRY, /* Type. */
1258 0, /* Rightshift. */
1259 2, /* Size (0 = byte, 1 = short, 2 = long). */
1260 0, /* Bitsize. */
1261 FALSE, /* PC_relative. */
1262 0, /* Bitpos. */
1263 complain_overflow_dont, /* Complain_on_overflow. */
1264 _bfd_elf_rel_vtable_reloc_fn, /* Special_function. */
1265 "R_V850_GNU_VTENTRY", /* Name. */
1266 FALSE, /* Partial_inplace. */
1267 0, /* Src_mask. */
1268 0, /* Dst_mask. */
1269 FALSE), /* PCrel_offset. */
1270
1271 /* Indicates a .longcall pseudo-op. The compiler will generate a .longcall
1272 pseudo-op when it finds a function call which can be relaxed. */
1273 HOWTO (R_V850_LONGCALL, /* Type. */
1274 0, /* Rightshift. */
1275 2, /* Size (0 = byte, 1 = short, 2 = long). */
1276 32, /* Bitsize. */
1277 TRUE, /* PC_relative. */
1278 0, /* Bitpos. */
1279 complain_overflow_signed, /* Complain_on_overflow. */
1280 v850_elf_ignore_reloc, /* Special_function. */
1281 "R_V850_LONGCALL", /* Name. */
1282 FALSE, /* Partial_inplace. */
1283 0, /* Src_mask. */
1284 0, /* Dst_mask. */
1285 TRUE), /* PCrel_offset. */
1286
1287 /* Indicates a .longjump pseudo-op. The compiler will generate a
1288 .longjump pseudo-op when it finds a branch which can be relaxed. */
1289 HOWTO (R_V850_LONGJUMP, /* Type. */
1290 0, /* Rightshift. */
1291 2, /* Size (0 = byte, 1 = short, 2 = long). */
1292 32, /* Bitsize. */
1293 TRUE, /* PC_relative. */
1294 0, /* Bitpos. */
1295 complain_overflow_signed, /* Complain_on_overflow. */
1296 v850_elf_ignore_reloc, /* Special_function. */
1297 "R_V850_LONGJUMP", /* Name. */
1298 FALSE, /* Partial_inplace. */
1299 0, /* Src_mask. */
1300 0, /* Dst_mask. */
1301 TRUE), /* PCrel_offset. */
1302
1303 HOWTO (R_V850_ALIGN, /* Type. */
1304 0, /* Rightshift. */
1305 1, /* Size (0 = byte, 1 = short, 2 = long). */
1306 0, /* Bitsize. */
1307 FALSE, /* PC_relative. */
1308 0, /* Bitpos. */
1309 complain_overflow_unsigned, /* Complain_on_overflow. */
1310 v850_elf_ignore_reloc, /* Special_function. */
1311 "R_V850_ALIGN", /* Name. */
1312 FALSE, /* Partial_inplace. */
1313 0, /* Src_mask. */
1314 0, /* Dst_mask. */
1315 TRUE), /* PCrel_offset. */
1316
1317 /* Simple pc-relative 32bit reloc. */
1318 HOWTO (R_V850_REL32, /* Type. */
1319 0, /* Rightshift. */
1320 2, /* Size (0 = byte, 1 = short, 2 = long). */
1321 32, /* Bitsize. */
1322 TRUE, /* PC_relative. */
1323 0, /* Bitpos. */
1324 complain_overflow_dont, /* Complain_on_overflow. */
1325 v850_elf_reloc, /* Special_function. */
1326 "R_V850_REL32", /* Name. */
1327 FALSE, /* Partial_inplace. */
1328 0xffffffff, /* Src_mask. */
1329 0xffffffff, /* Dst_mask. */
1330 FALSE), /* PCrel_offset. */
1331
1332 /* An ld.bu version of R_V850_LO16. */
1333 HOWTO (R_V850_LO16_SPLIT_OFFSET, /* Type. */
1334 0, /* Rightshift. */
1335 2, /* Size (0 = byte, 1 = short, 2 = long). */
1336 16, /* Bitsize. */
1337 FALSE, /* PC_relative. */
1338 0, /* Bitpos. */
1339 complain_overflow_dont, /* Complain_on_overflow. */
1340 v850_elf_reloc, /* Special_function. */
1341 "R_V850_LO16_SPLIT_OFFSET", /* Name. */
1342 FALSE, /* Partial_inplace. */
1343 0xfffe0020, /* Src_mask. */
1344 0xfffe0020, /* Dst_mask. */
1345 FALSE), /* PCrel_offset. */
1346
1347 /* A unsigned PC relative 16 bit loop. */
1348 HOWTO (R_V850_16_PCREL, /* Type. */
1349 0, /* Rightshift. */
1350 1, /* Size (0 = byte, 1 = short, 2 = long). */
1351 16, /* Bitsize. */
1352 TRUE, /* PC_relative. */
1353 0, /* Bitpos. */
1354 complain_overflow_bitfield, /* Complain_on_overflow. */
1355 v850_elf_reloc, /* Special_function. */
1356 "R_V850_16_PCREL", /* Name. */
1357 FALSE, /* Partial_inplace. */
1358 0xfffe, /* Src_mask. */
1359 0xfffe, /* Dst_mask. */
1360 TRUE), /* PCrel_offset. */
1361
1362 /* A PC relative 17 bit branch. */
1363 HOWTO (R_V850_17_PCREL, /* Type. */
1364 0, /* Rightshift. */
1365 2, /* Size (0 = byte, 1 = short, 2 = long). */
1366 17, /* Bitsize. */
1367 TRUE, /* PC_relative. */
1368 0, /* Bitpos. */
1369 complain_overflow_bitfield, /* Complain_on_overflow. */
1370 v850_elf_reloc, /* Special_function. */
1371 "R_V850_17_PCREL", /* Name. */
1372 FALSE, /* Partial_inplace. */
1373 0x0010fffe, /* Src_mask. */
1374 0x0010fffe, /* Dst_mask. */
1375 TRUE), /* PCrel_offset. */
1376
1377 /* A 23bit offset ld/st. */
1378 HOWTO (R_V850_23, /* type. */
1379 0, /* rightshift. */
1380 2, /* size (0 = byte, 1 = short, 2 = long). */
1381 23, /* bitsize. */
1382 FALSE, /* pc_relative. */
1383 0, /* bitpos. */
1384 complain_overflow_dont, /* complain_on_overflow. */
1385 v850_elf_reloc, /* special_function. */
1386 "R_V850_23", /* name. */
1387 FALSE, /* partial_inplace. */
1388 0xffff07f0, /* src_mask. */
1389 0xffff07f0, /* dst_mask. */
1390 FALSE), /* pcrel_offset. */
1391
1392 /* A PC relative 32 bit branch. */
1393 HOWTO (R_V850_32_PCREL, /* type. */
1394 1, /* rightshift. */
1395 2, /* size (0 = byte, 1 = short, 2 = long). */
1396 32, /* bitsize. */
1397 TRUE, /* pc_relative. */
1398 1, /* bitpos. */
1399 complain_overflow_signed, /* complain_on_overflow. */
1400 v850_elf_reloc, /* special_function. */
1401 "R_V850_32_PCREL", /* name. */
1402 FALSE, /* partial_inplace. */
1403 0xfffffffe, /* src_mask. */
1404 0xfffffffe, /* dst_mask. */
1405 TRUE), /* pcrel_offset. */
1406
1407 /* A absolute 32 bit branch. */
1408 HOWTO (R_V850_32_ABS, /* type. */
1409 1, /* rightshift. */
1410 2, /* size (0 = byte, 1 = short, 2 = long). */
1411 32, /* bitsize. */
1412 TRUE, /* pc_relative. */
1413 1, /* bitpos. */
1414 complain_overflow_signed, /* complain_on_overflow. */
1415 v850_elf_reloc, /* special_function. */
1416 "R_V850_32_ABS", /* name. */
1417 FALSE, /* partial_inplace. */
1418 0xfffffffe, /* src_mask. */
1419 0xfffffffe, /* dst_mask. */
1420 FALSE), /* pcrel_offset. */
1421
1422 /* High 16 bits of symbol value. */
1423 HOWTO (R_V850_HI16, /* Type. */
1424 0, /* Rightshift. */
1425 1, /* Size (0 = byte, 1 = short, 2 = long). */
1426 16, /* Bitsize. */
1427 FALSE, /* PC_relative. */
1428 0, /* Bitpos. */
1429 complain_overflow_dont, /* Complain_on_overflow. */
1430 v850_elf_reloc, /* Special_function. */
1431 "R_V850_HI16", /* Name. */
1432 FALSE, /* Partial_inplace. */
1433 0xffff, /* Src_mask. */
1434 0xffff, /* Dst_mask. */
1435 FALSE), /* PCrel_offset. */
1436
1437 /* Low 16 bits of symbol value. */
1438 HOWTO (R_V850_16_S1, /* type. */
1439 1, /* rightshift. */
1440 1, /* size (0 = byte, 1 = short, 2 = long). */
1441 16, /* bitsize. */
1442 FALSE, /* pc_relative. */
1443 1, /* bitpos. */
1444 complain_overflow_dont, /* complain_on_overflow. */
1445 v850_elf_reloc, /* special_function. */
1446 "R_V850_16_S1", /* name. */
1447 FALSE, /* partial_inplace. */
1448 0xfffe, /* src_mask. */
1449 0xfffe, /* dst_mask. */
1450 FALSE), /* pcrel_offset. */
1451
1452 /* Low 16 bits of symbol value. */
1453 HOWTO (R_V850_LO16_S1, /* type. */
1454 1, /* rightshift. */
1455 1, /* size (0 = byte, 1 = short, 2 = long). */
1456 16, /* bitsize. */
1457 FALSE, /* pc_relative. */
1458 1, /* bitpos. */
1459 complain_overflow_dont, /* complain_on_overflow. */
1460 v850_elf_reloc, /* special_function. */
1461 "R_V850_LO16_S1", /* name. */
1462 FALSE, /* partial_inplace. */
1463 0xfffe, /* src_mask. */
1464 0xfffe, /* dst_mask. */
1465 FALSE), /* pcrel_offset. */
1466
1467 /* 16 bit offset from the call table base pointer. */
1468 HOWTO (R_V850_CALLT_15_16_OFFSET, /* type. */
1469 1, /* rightshift. */
1470 1, /* size (0 = byte, 1 = short, 2 = long). */
1471 16, /* bitsize. */
1472 FALSE, /* pc_relative. */
1473 1, /* bitpos. */
1474 complain_overflow_dont, /* complain_on_overflow. */
1475 v850_elf_reloc, /* special_function. */
1476 "R_V850_CALLT_15_16_OFFSET", /* name. */
1477 FALSE, /* partial_inplace. */
1478 0xfffe, /* src_mask. */
1479 0xfffe, /* dst_mask. */
1480 FALSE), /* pcrel_offset. */
1481
1482 /* Like R_V850_32 PCREL, but referring to the GOT table entry for
1483 the symbol. */
1484 HOWTO (R_V850_32_GOTPCREL, /* type. */
1485 0, /* rightshift. */
1486 2, /* size (0 = byte, 1 = short, 2 = long). */
1487 32, /* bitsize. */
1488 TRUE, /* pc_relative. */
1489 0, /* bitpos. */
1490 complain_overflow_unsigned, /* complain_on_overflow. */
1491 v850_elf_reloc, /* special_function. */
1492 "R_V850_32_GOTPCREL", /* name. */
1493 FALSE, /* partial_inplace. */
1494 0xffffffff, /* src_mask. */
1495 0xffffffff, /* dst_mask. */
1496 TRUE), /* pcrel_offset. */
1497
1498 /* Like R_V850_SDA_, but referring to the GOT table entry for
1499 the symbol. */
1500 HOWTO (R_V850_16_GOT, /* type. */
1501 0, /* rightshift. */
1502 2, /* size (0 = byte, 1 = short, 2 = long). */
1503 16, /* bitsize. */
1504 FALSE, /* pc_relative. */
1505 0, /* bitpos. */
1506 complain_overflow_unsigned, /* complain_on_overflow. */
1507 bfd_elf_generic_reloc, /* special_function. */
1508 "R_V850_16_GOT", /* name. */
1509 FALSE, /* partial_inplace. */
1510 0xffff, /* src_mask. */
1511 0xffff, /* dst_mask. */
1512 FALSE), /* pcrel_offset. */
1513
1514 HOWTO (R_V850_32_GOT, /* type. */
1515 0, /* rightshift. */
1516 2, /* size (0 = byte, 1 = short, 2 = long). */
1517 32, /* bitsize. */
1518 FALSE, /* pc_relative. */
1519 0, /* bitpos. */
1520 complain_overflow_unsigned, /* complain_on_overflow. */
1521 bfd_elf_generic_reloc, /* special_function. */
1522 "R_V850_32_GOT", /* name. */
1523 FALSE, /* partial_inplace. */
1524 0xffffffff, /* src_mask. */
1525 0xffffffff, /* dst_mask. */
1526 FALSE), /* pcrel_offset. */
1527
1528 /* Like R_V850_22_PCREL, but referring to the procedure linkage table
1529 entry for the symbol. */
1530 HOWTO (R_V850_22_PLT, /* type. */
1531 1, /* rightshift. */
1532 2, /* size (0 = byte, 1 = short, 2 = long). */
1533 22, /* bitsize. */
1534 TRUE, /* pc_relative. */
1535 7, /* bitpos. */
1536 complain_overflow_signed, /* complain_on_overflow. */
1537 bfd_elf_generic_reloc, /* special_function. */
1538 "R_V850_22_PLT", /* name. */
1539 FALSE, /* partial_inplace. */
1540 0x07ffff80, /* src_mask. */
1541 0x07ffff80, /* dst_mask. */
1542 TRUE), /* pcrel_offset. */
1543
1544 HOWTO (R_V850_32_PLT, /* type. */
1545 1, /* rightshift. */
1546 2, /* size (0 = byte, 1 = short, 2 = long). */
1547 32, /* bitsize. */
1548 TRUE, /* pc_relative. */
1549 1, /* bitpos. */
1550 complain_overflow_signed, /* complain_on_overflow. */
1551 bfd_elf_generic_reloc, /* special_function. */
1552 "R_V850_32_PLT", /* name. */
1553 FALSE, /* partial_inplace. */
1554 0xffffffff, /* src_mask. */
1555 0xffffffff, /* dst_mask. */
1556 TRUE), /* pcrel_offset. */
1557
1558 /* This is used only by the dynamic linker. The symbol should exist
1559 both in the object being run and in some shared library. The
1560 dynamic linker copies the data addressed by the symbol from the
1561 shared library into the object, because the object being
1562 run has to have the data at some particular address. */
1563 HOWTO (R_V850_COPY, /* type. */
1564 0, /* rightshift. */
1565 2, /* size (0 = byte, 1 = short, 2 = long). */
1566 32, /* bitsize. */
1567 FALSE, /* pc_relative. */
1568 0, /* bitpos. */
1569 complain_overflow_bitfield, /* complain_on_overflow. */
1570 bfd_elf_generic_reloc, /* special_function. */
1571 "R_V850_COPY", /* name. */
1572 FALSE, /* partial_inplace. */
1573 0xffffffff, /* src_mask. */
1574 0xffffffff, /* dst_mask. */
1575 FALSE), /* pcrel_offset. */
1576
1577 /* Like R_M32R_24, but used when setting global offset table
1578 entries. */
1579 HOWTO (R_V850_GLOB_DAT, /* type. */
1580 0, /* rightshift. */
1581 2, /* size (0 = byte, 1 = short, 2 = long) */
1582 32, /* bitsize. */
1583 FALSE, /* pc_relative. */
1584 0, /* bitpos. */
1585 complain_overflow_bitfield, /* complain_on_overflow. */
1586 bfd_elf_generic_reloc, /* special_function. */
1587 "R_V850_GLOB_DAT", /* name. */
1588 FALSE, /* partial_inplace. */
1589 0xffffffff, /* src_mask. */
1590 0xffffffff, /* dst_mask. */
1591 FALSE), /* pcrel_offset. */
1592
1593 /* Marks a procedure linkage table entry for a symbol. */
1594 HOWTO (R_V850_JMP_SLOT, /* type. */
1595 0, /* rightshift. */
1596 2, /* size (0 = byte, 1 = short, 2 = long) */
1597 32, /* bitsize. */
1598 FALSE, /* pc_relative. */
1599 0, /* bitpos. */
1600 complain_overflow_bitfield, /* complain_on_overflow. */
1601 bfd_elf_generic_reloc, /* special_function. */
1602 "R_V850_JMP_SLOT", /* name. */
1603 FALSE, /* partial_inplace. */
1604 0xffffffff, /* src_mask. */
1605 0xffffffff, /* dst_mask. */
1606 FALSE), /* pcrel_offset. */
1607
1608 /* Used only by the dynamic linker. When the object is run, this
1609 longword is set to the load address of the object, plus the
1610 addend. */
1611 HOWTO (R_V850_RELATIVE, /* type. */
1612 0, /* rightshift. */
1613 2, /* size (0 = byte, 1 = short, 2 = long) */
1614 32, /* bitsize. */
1615 FALSE, /* pc_relative. */
1616 0, /* bitpos. */
1617 complain_overflow_bitfield, /* complain_on_overflow. */
1618 bfd_elf_generic_reloc, /* special_function. */
1619 "R_V850_RELATIVE", /* name. */
1620 FALSE, /* partial_inplace. */
1621 0xffffffff, /* src_mask. */
1622 0xffffffff, /* dst_mask. */
1623 FALSE), /* pcrel_offset. */
1624
1625 HOWTO (R_V850_16_GOTOFF, /* type. */
1626 0, /* rightshift. */
1627 2, /* size (0 = byte, 1 = short, 2 = long) */
1628 16, /* bitsize. */
1629 FALSE, /* pc_relative. */
1630 0, /* bitpos. */
1631 complain_overflow_bitfield, /* complain_on_overflow. */
1632 bfd_elf_generic_reloc, /* special_function. */
1633 "R_V850_16_GOTOFF", /* name. */
1634 FALSE, /* partial_inplace. */
1635 0xffff, /* src_mask. */
1636 0xffff, /* dst_mask. */
1637 FALSE), /* pcrel_offset. */
1638
1639 HOWTO (R_V850_32_GOTOFF, /* type. */
1640 0, /* rightshift. */
1641 2, /* size (0 = byte, 1 = short, 2 = long) */
1642 32, /* bitsize. */
1643 FALSE, /* pc_relative. */
1644 0, /* bitpos. */
1645 complain_overflow_bitfield, /* complain_on_overflow. */
1646 bfd_elf_generic_reloc, /* special_function. */
1647 "R_V850_32_GOTOFF", /* name. */
1648 FALSE, /* partial_inplace. */
1649 0xffffffff, /* src_mask. */
1650 0xffffffff, /* dst_mask. */
1651 FALSE), /* pcrel_offset. */
1652
1653 HOWTO (R_V850_CODE, /* type. */
1654 0, /* rightshift. */
1655 1, /* size (0 = byte, 1 = short, 2 = long) */
1656 0, /* bitsize. */
1657 FALSE, /* pc_relative. */
1658 0, /* bitpos. */
1659 complain_overflow_unsigned, /* complain_on_overflow. */
1660 v850_elf_ignore_reloc, /* special_function. */
1661 "R_V850_CODE", /* name. */
1662 FALSE, /* partial_inplace. */
1663 0, /* src_mask. */
1664 0, /* dst_mask. */
1665 TRUE), /* pcrel_offset. */
1666
1667 HOWTO (R_V850_DATA, /* type. */
1668 0, /* rightshift. */
1669 1, /* size (0 = byte, 1 = short, 2 = long) */
1670 0, /* bitsize. */
1671 FALSE, /* pc_relative. */
1672 0, /* bitpos. */
1673 complain_overflow_unsigned, /* complain_on_overflow. */
1674 v850_elf_ignore_reloc, /* special_function. */
1675 "R_V850_DATA", /* name. */
1676 FALSE, /* partial_inplace. */
1677 0, /* src_mask. */
1678 0, /* dst_mask. */
1679 TRUE), /* pcrel_offset. */
1680
1681 };
1682
1683 /* Map BFD reloc types to V850 ELF reloc types. */
1684
1685 struct v850_elf_reloc_map
1686 {
1687 /* BFD_RELOC_V850_CALLT_16_16_OFFSET is 258, which will not fix in an
1688 unsigned char. */
1689 bfd_reloc_code_real_type bfd_reloc_val;
1690 unsigned int elf_reloc_val;
1691 };
1692
1693 static const struct v850_elf_reloc_map v850_elf_reloc_map[] =
1694 {
1695 { BFD_RELOC_NONE, R_V850_NONE },
1696 { BFD_RELOC_V850_9_PCREL, R_V850_9_PCREL },
1697 { BFD_RELOC_V850_22_PCREL, R_V850_22_PCREL },
1698 { BFD_RELOC_HI16_S, R_V850_HI16_S },
1699 { BFD_RELOC_HI16, R_V850_HI16 },
1700 { BFD_RELOC_LO16, R_V850_LO16 },
1701 { BFD_RELOC_32, R_V850_ABS32 },
1702 { BFD_RELOC_32_PCREL, R_V850_REL32 },
1703 { BFD_RELOC_16, R_V850_16 },
1704 { BFD_RELOC_8, R_V850_8 },
1705 { BFD_RELOC_V850_SDA_16_16_OFFSET, R_V850_SDA_16_16_OFFSET },
1706 { BFD_RELOC_V850_SDA_15_16_OFFSET, R_V850_SDA_15_16_OFFSET },
1707 { BFD_RELOC_V850_ZDA_16_16_OFFSET, R_V850_ZDA_16_16_OFFSET },
1708 { BFD_RELOC_V850_ZDA_15_16_OFFSET, R_V850_ZDA_15_16_OFFSET },
1709 { BFD_RELOC_V850_TDA_6_8_OFFSET, R_V850_TDA_6_8_OFFSET },
1710 { BFD_RELOC_V850_TDA_7_8_OFFSET, R_V850_TDA_7_8_OFFSET },
1711 { BFD_RELOC_V850_TDA_7_7_OFFSET, R_V850_TDA_7_7_OFFSET },
1712 { BFD_RELOC_V850_TDA_16_16_OFFSET, R_V850_TDA_16_16_OFFSET },
1713 { BFD_RELOC_V850_TDA_4_5_OFFSET, R_V850_TDA_4_5_OFFSET },
1714 { BFD_RELOC_V850_TDA_4_4_OFFSET, R_V850_TDA_4_4_OFFSET },
1715 { BFD_RELOC_V850_LO16_SPLIT_OFFSET, R_V850_LO16_SPLIT_OFFSET },
1716 { BFD_RELOC_V850_SDA_16_16_SPLIT_OFFSET, R_V850_SDA_16_16_SPLIT_OFFSET },
1717 { BFD_RELOC_V850_ZDA_16_16_SPLIT_OFFSET, R_V850_ZDA_16_16_SPLIT_OFFSET },
1718 { BFD_RELOC_V850_CALLT_6_7_OFFSET, R_V850_CALLT_6_7_OFFSET },
1719 { BFD_RELOC_V850_CALLT_16_16_OFFSET, R_V850_CALLT_16_16_OFFSET },
1720 { BFD_RELOC_VTABLE_INHERIT, R_V850_GNU_VTINHERIT },
1721 { BFD_RELOC_VTABLE_ENTRY, R_V850_GNU_VTENTRY },
1722 { BFD_RELOC_V850_LONGCALL, R_V850_LONGCALL },
1723 { BFD_RELOC_V850_LONGJUMP, R_V850_LONGJUMP },
1724 { BFD_RELOC_V850_ALIGN, R_V850_ALIGN },
1725 { BFD_RELOC_V850_16_PCREL, R_V850_16_PCREL },
1726 { BFD_RELOC_V850_17_PCREL, R_V850_17_PCREL },
1727 { BFD_RELOC_V850_23, R_V850_23 },
1728 { BFD_RELOC_V850_32_PCREL, R_V850_32_PCREL },
1729 { BFD_RELOC_V850_32_ABS, R_V850_32_ABS },
1730 { BFD_RELOC_V850_16_SPLIT_OFFSET, R_V850_HI16 },
1731 { BFD_RELOC_V850_16_S1, R_V850_16_S1 },
1732 { BFD_RELOC_V850_LO16_S1, R_V850_LO16_S1 },
1733 { BFD_RELOC_V850_CALLT_15_16_OFFSET, R_V850_CALLT_15_16_OFFSET },
1734 { BFD_RELOC_V850_32_GOTPCREL, R_V850_32_GOTPCREL },
1735 { BFD_RELOC_V850_16_GOT, R_V850_16_GOT },
1736 { BFD_RELOC_V850_32_GOT, R_V850_32_GOT },
1737 { BFD_RELOC_V850_22_PLT_PCREL, R_V850_22_PLT },
1738 { BFD_RELOC_V850_32_PLT_PCREL, R_V850_32_PLT },
1739 { BFD_RELOC_V850_COPY, R_V850_COPY },
1740 { BFD_RELOC_V850_GLOB_DAT, R_V850_GLOB_DAT },
1741 { BFD_RELOC_V850_JMP_SLOT, R_V850_JMP_SLOT },
1742 { BFD_RELOC_V850_RELATIVE, R_V850_RELATIVE },
1743 { BFD_RELOC_V850_16_GOTOFF, R_V850_16_GOTOFF },
1744 { BFD_RELOC_V850_32_GOTOFF, R_V850_32_GOTOFF },
1745 { BFD_RELOC_V850_CODE, R_V850_CODE },
1746 { BFD_RELOC_V850_DATA, R_V850_DATA },
1747 };
1748
1749 #define V800_RELOC(name,sz,bit,shift,complain,pcrel,resolver) \
1750 HOWTO (name, shift, sz, bit, pcrel, 0, complain_overflow_ ## complain, \
1751 bfd_elf_ ## resolver ## _reloc, #name, FALSE, 0, ~0, FALSE)
1752
1753 #define V800_EMPTY(name) EMPTY_HOWTO (name - R_V810_NONE)
1754
1755 #define bfd_elf_v850_reloc v850_elf_reloc
1756
1757 /* Note: It is REQUIRED that the 'type' value (R_V810_...) of each entry
1758 in this array match the index of the entry in the array minus 0x30.
1759 See: bfd_elf_v850_relocate_section(), v800_elf_reloc_type_lookup()
1760 and v800_elf_info_to_howto(). */
1761
1762 static reloc_howto_type v800_elf_howto_table[] =
1763 {
1764 V800_RELOC (R_V810_NONE, 0, 0, 0, dont, FALSE, generic), /* Type = 0x30 */
1765 V800_RELOC (R_V810_BYTE, 0, 8, 0, dont, FALSE, generic),
1766 V800_RELOC (R_V810_HWORD, 1, 16, 0, dont, FALSE, generic),
1767 V800_RELOC (R_V810_WORD, 2, 32, 0, dont, FALSE, generic),
1768 V800_RELOC (R_V810_WLO, 1, 16, 0, dont, FALSE, generic),
1769 V800_RELOC (R_V810_WHI, 1, 16, 0, dont, FALSE, generic),
1770 V800_RELOC (R_V810_WHI1, 1, 16, 0, dont, FALSE, generic),
1771 V800_RELOC (R_V810_GPBYTE, 0, 8, 0, dont, FALSE, v850),
1772 V800_RELOC (R_V810_GPHWORD, 1, 16, 0, dont, FALSE, v850),
1773 V800_RELOC (R_V810_GPWORD, 2, 32, 0, dont, FALSE, v850),
1774 V800_RELOC (R_V810_GPWLO, 1, 16, 0, dont, FALSE, v850),
1775 V800_RELOC (R_V810_GPWHI, 1, 16, 0, dont, FALSE, v850),
1776 V800_RELOC (R_V810_GPWHI1, 1, 16, 0, dont, FALSE, v850),
1777 V800_RELOC (R_V850_HWLO, 1, 16, 0, dont, FALSE, generic),
1778 V800_EMPTY (R_V810_reserved1),
1779 V800_RELOC (R_V850_EP7BIT, 0, 7, 0, unsigned, FALSE, v850),
1780 V800_RELOC (R_V850_EPHBYTE, 0, 8, 1, unsigned, FALSE, v850),
1781 V800_RELOC (R_V850_EPWBYTE, 0, 8, 2, unsigned, FALSE, v850),
1782 V800_RELOC (R_V850_REGHWLO, 1, 16, 0, dont, FALSE, v850),
1783 V800_EMPTY (R_V810_reserved2),
1784 V800_RELOC (R_V850_GPHWLO, 1, 16, 0, dont, FALSE, v850),
1785 V800_EMPTY (R_V810_reserved3),
1786 V800_RELOC (R_V850_PCR22, 2, 22, 0, signed, TRUE, generic),
1787 V800_RELOC (R_V850_BLO, 2, 24, 0, dont, FALSE, v850),
1788 V800_RELOC (R_V850_EP4BIT, 0, 4, 0, unsigned, FALSE, v850),
1789 V800_RELOC (R_V850_EP5BIT, 0, 5, 0, unsigned, FALSE, v850),
1790 V800_RELOC (R_V850_REGBLO, 2, 24, 0, dont, FALSE, v850),
1791 V800_RELOC (R_V850_GPBLO, 2, 24, 0, dont, FALSE, v850),
1792 V800_RELOC (R_V810_WLO_1, 1, 16, 0, dont, FALSE, v850),
1793 V800_RELOC (R_V810_GPWLO_1, 1, 16, 0, signed, FALSE, v850),
1794 V800_RELOC (R_V850_BLO_1, 2, 16, 0, signed, FALSE, v850),
1795 V800_RELOC (R_V850_HWLO_1, 1, 16, 0, signed, FALSE, v850),
1796 V800_EMPTY (R_V810_reserved4),
1797 V800_RELOC (R_V850_GPBLO_1, 2, 16, 1, signed, FALSE, v850),
1798 V800_RELOC (R_V850_GPHWLO_1, 1, 16, 1, signed, FALSE, v850),
1799 V800_EMPTY (R_V810_reserved5),
1800 V800_RELOC (R_V850_EPBLO, 2, 16, 1, signed, FALSE, v850),
1801 V800_RELOC (R_V850_EPHWLO, 1, 16, 1, signed, FALSE, v850),
1802 V800_EMPTY (R_V810_reserved6),
1803 V800_RELOC (R_V850_EPWLO_N, 1, 16, 1, signed, FALSE, v850),
1804 V800_RELOC (R_V850_PC32, 2, 32, 1, signed, TRUE, v850),
1805 V800_RELOC (R_V850_W23BIT, 2, 23, 1, signed, FALSE, v850),
1806 V800_RELOC (R_V850_GPW23BIT, 2, 23, 1, signed, FALSE, v850),
1807 V800_RELOC (R_V850_EPW23BIT, 2, 23, 1, signed, FALSE, v850),
1808 V800_RELOC (R_V850_B23BIT, 2, 23, 1, signed, FALSE, v850),
1809 V800_RELOC (R_V850_GPB23BIT, 2, 23, 1, signed, FALSE, v850),
1810 V800_RELOC (R_V850_EPB23BIT, 2, 23, 1, signed, FALSE, v850),
1811 V800_RELOC (R_V850_PC16U, 1, 16, 1, unsigned, TRUE, generic),
1812 V800_RELOC (R_V850_PC17, 2, 17, 1, signed, TRUE, generic),
1813 V800_RELOC (R_V850_DW8, 2, 8, 2, signed, FALSE, v850),
1814 V800_RELOC (R_V850_GPDW8, 2, 8, 2, signed, FALSE, v850),
1815 V800_RELOC (R_V850_EPDW8, 2, 8, 2, signed, FALSE, v850),
1816 V800_RELOC (R_V850_PC9, 1, 9, 3, signed, TRUE, v850),
1817 V800_RELOC (R_V810_REGBYTE, 0, 8, 0, dont, FALSE, v850),
1818 V800_RELOC (R_V810_REGHWORD, 1, 16, 0, dont, FALSE, v850),
1819 V800_RELOC (R_V810_REGWORD, 2, 32, 0, dont, FALSE, v850),
1820 V800_RELOC (R_V810_REGWLO, 1, 16, 0, dont, FALSE, v850),
1821 V800_RELOC (R_V810_REGWHI, 1, 16, 0, dont, FALSE, v850),
1822 V800_RELOC (R_V810_REGWHI1, 1, 16, 0, dont, FALSE, v850),
1823 V800_RELOC (R_V850_REGW23BIT, 2, 23, 1, signed, FALSE, v850),
1824 V800_RELOC (R_V850_REGB23BIT, 2, 23, 1, signed, FALSE, v850),
1825 V800_RELOC (R_V850_REGDW8, 2, 8, 2, signed, FALSE, v850),
1826 V800_RELOC (R_V810_EPBYTE, 0, 8, 0, dont, FALSE, v850),
1827 V800_RELOC (R_V810_EPHWORD, 1, 16, 0, dont, FALSE, v850),
1828 V800_RELOC (R_V810_EPWORD, 2, 32, 0, dont, FALSE, v850),
1829 V800_RELOC (R_V850_WLO23, 2, 32, 1, dont, FALSE, v850),
1830 V800_RELOC (R_V850_WORD_E, 2, 32, 1, dont, FALSE, v850),
1831 V800_RELOC (R_V850_REGWORD_E, 2, 32, 1, dont, FALSE, v850),
1832 V800_RELOC (R_V850_WORD, 2, 32, 0, dont, FALSE, v850),
1833 V800_RELOC (R_V850_GPWORD, 2, 32, 0, dont, FALSE, v850),
1834 V800_RELOC (R_V850_REGWORD, 2, 32, 0, dont, FALSE, v850),
1835 V800_RELOC (R_V850_EPWORD, 2, 32, 0, dont, FALSE, v850),
1836 V800_RELOC (R_V810_TPBYTE, 0, 8, 0, dont, FALSE, v850),
1837 V800_RELOC (R_V810_TPHWORD, 1, 16, 0, dont, FALSE, v850),
1838 V800_RELOC (R_V810_TPWORD, 2, 32, 0, dont, FALSE, v850),
1839 V800_RELOC (R_V810_TPWLO, 1, 16, 0, dont, FALSE, v850),
1840 V800_RELOC (R_V810_TPWHI, 1, 16, 0, dont, FALSE, v850),
1841 V800_RELOC (R_V810_TPWHI1, 1, 16, 0, dont, FALSE, v850),
1842 V800_RELOC (R_V850_TPHWLO, 1, 16, 1, dont, FALSE, v850),
1843 V800_RELOC (R_V850_TPBLO, 2, 24, 0, dont, FALSE, v850),
1844 V800_RELOC (R_V810_TPWLO_1, 1, 16, 0, signed, FALSE, v850),
1845 V800_RELOC (R_V850_TPBLO_1, 2, 16, 0, signed, FALSE, v850),
1846 V800_RELOC (R_V850_TPHWLO_1, 1, 16, 0, signed, FALSE, v850),
1847 V800_RELOC (R_V850_TP23BIT, 2, 23, 0, signed, FALSE, v850),
1848 V800_RELOC (R_V850_TPW23BIT, 2, 23, 0, signed, FALSE, v850),
1849 V800_RELOC (R_V850_TPDW8, 2, 8, 0, signed, FALSE, v850)
1850 };
1851
1852 /* Map a bfd relocation into the appropriate howto structure. */
1853
1854 static reloc_howto_type *
v850_elf_reloc_type_lookup(bfd * abfd ATTRIBUTE_UNUSED,bfd_reloc_code_real_type code)1855 v850_elf_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1856 bfd_reloc_code_real_type code)
1857 {
1858 unsigned int i;
1859
1860 for (i = ARRAY_SIZE (v850_elf_reloc_map); i --;)
1861 if (v850_elf_reloc_map[i].bfd_reloc_val == code)
1862 {
1863 unsigned int elf_reloc_val = v850_elf_reloc_map[i].elf_reloc_val;
1864
1865 BFD_ASSERT (v850_elf_howto_table[elf_reloc_val].type == elf_reloc_val);
1866
1867 return v850_elf_howto_table + elf_reloc_val;
1868 }
1869
1870 return NULL;
1871 }
1872
1873 static reloc_howto_type *
v850_elf_reloc_name_lookup(bfd * abfd ATTRIBUTE_UNUSED,const char * r_name)1874 v850_elf_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1875 const char *r_name)
1876 {
1877 unsigned int i;
1878
1879 for (i = 0;
1880 i < sizeof (v850_elf_howto_table) / sizeof (v850_elf_howto_table[0]);
1881 i++)
1882 if (v850_elf_howto_table[i].name != NULL
1883 && strcasecmp (v850_elf_howto_table[i].name, r_name) == 0)
1884 return &v850_elf_howto_table[i];
1885
1886 return NULL;
1887 }
1888
1889 /* Set the howto pointer for an V850 ELF reloc. */
1890
1891 static void
v850_elf_info_to_howto_rel(bfd * abfd ATTRIBUTE_UNUSED,arelent * cache_ptr,Elf_Internal_Rela * dst)1892 v850_elf_info_to_howto_rel (bfd *abfd ATTRIBUTE_UNUSED,
1893 arelent *cache_ptr,
1894 Elf_Internal_Rela *dst)
1895 {
1896 unsigned int r_type;
1897
1898 r_type = ELF32_R_TYPE (dst->r_info);
1899 if (r_type >= (unsigned int) R_V850_max)
1900 {
1901 _bfd_error_handler (_("%B: invalid V850 reloc number: %d"), abfd, r_type);
1902 r_type = 0;
1903 }
1904 cache_ptr->howto = &v850_elf_howto_table[r_type];
1905 }
1906
1907 /* Set the howto pointer for a V850 ELF reloc (type RELA). */
1908
1909 static void
v850_elf_info_to_howto_rela(bfd * abfd ATTRIBUTE_UNUSED,arelent * cache_ptr,Elf_Internal_Rela * dst)1910 v850_elf_info_to_howto_rela (bfd *abfd ATTRIBUTE_UNUSED,
1911 arelent * cache_ptr,
1912 Elf_Internal_Rela *dst)
1913 {
1914 unsigned int r_type;
1915
1916 r_type = ELF32_R_TYPE (dst->r_info);
1917 if (r_type >= (unsigned int) R_V850_max)
1918 {
1919 _bfd_error_handler (_("%B: invalid V850 reloc number: %d"), abfd, r_type);
1920 r_type = 0;
1921 }
1922 cache_ptr->howto = &v850_elf_howto_table[r_type];
1923 }
1924
1925 static bfd_boolean
v850_elf_is_local_label_name(bfd * abfd ATTRIBUTE_UNUSED,const char * name)1926 v850_elf_is_local_label_name (bfd *abfd ATTRIBUTE_UNUSED, const char *name)
1927 {
1928 return ( (name[0] == '.' && (name[1] == 'L' || name[1] == '.'))
1929 || (name[0] == '_' && name[1] == '.' && name[2] == 'L' && name[3] == '_'));
1930 }
1931
1932 static bfd_boolean
v850_elf_is_target_special_symbol(bfd * abfd,asymbol * sym)1933 v850_elf_is_target_special_symbol (bfd *abfd, asymbol *sym)
1934 {
1935 return v850_elf_is_local_label_name (abfd, sym->name);
1936 }
1937
1938 /* We overload some of the bfd_reloc error codes for own purposes. */
1939 #define bfd_reloc_gp_not_found bfd_reloc_other
1940 #define bfd_reloc_ep_not_found bfd_reloc_continue
1941 #define bfd_reloc_ctbp_not_found (bfd_reloc_dangerous + 1)
1942
1943 /* Perform a relocation as part of a final link. */
1944
1945 static bfd_reloc_status_type
v850_elf_final_link_relocate(reloc_howto_type * howto,bfd * input_bfd,bfd * output_bfd ATTRIBUTE_UNUSED,asection * input_section,bfd_byte * contents,bfd_vma offset,bfd_vma value,bfd_vma addend,struct bfd_link_info * info,asection * sym_sec,int is_local ATTRIBUTE_UNUSED)1946 v850_elf_final_link_relocate (reloc_howto_type *howto,
1947 bfd *input_bfd,
1948 bfd *output_bfd ATTRIBUTE_UNUSED,
1949 asection *input_section,
1950 bfd_byte *contents,
1951 bfd_vma offset,
1952 bfd_vma value,
1953 bfd_vma addend,
1954 struct bfd_link_info *info,
1955 asection *sym_sec,
1956 int is_local ATTRIBUTE_UNUSED)
1957 {
1958 unsigned int r_type = howto->type;
1959 bfd_byte *hit_data = contents + offset;
1960
1961 /* Adjust the value according to the relocation. */
1962 switch (r_type)
1963 {
1964 case R_V850_PC9:
1965 case R_V850_9_PCREL:
1966 value -= (input_section->output_section->vma
1967 + input_section->output_offset);
1968 value -= offset;
1969 break;
1970
1971 case R_V850_PC16U:
1972 case R_V850_16_PCREL:
1973 value -= (input_section->output_section->vma
1974 + input_section->output_offset
1975 + offset);
1976
1977 /* If the sign extension will corrupt the value then we have overflowed. */
1978 if ((value & 0xffff0000) != 0xffff0000)
1979 return bfd_reloc_overflow;
1980
1981 break;
1982
1983 case R_V850_PC17:
1984 case R_V850_17_PCREL:
1985 value -= (input_section->output_section->vma
1986 + input_section->output_offset
1987 + offset);
1988
1989 /* If the sign extension will corrupt the value then we have overflowed. */
1990 if (((value & 0xffff0000) != 0x0) && ((value & 0xffff0000) != 0xffff0000))
1991 return bfd_reloc_overflow;
1992
1993 value = SEXT17 (value);
1994 break;
1995
1996 case R_V850_PCR22:
1997 case R_V850_22_PCREL:
1998 value -= (input_section->output_section->vma
1999 + input_section->output_offset
2000 + offset);
2001
2002 /* If the sign extension will corrupt the value then we have overflowed. */
2003 if (((value & 0xffe00000) != 0x0) && ((value & 0xffe00000) != 0xffe00000))
2004 return bfd_reloc_overflow;
2005
2006 /* Only the bottom 22 bits of the PC are valid. */
2007 value = SEXT22 (value);
2008 break;
2009
2010 case R_V850_PC32:
2011 case R_V850_32_PCREL:
2012 value -= (input_section->output_section->vma
2013 + input_section->output_offset
2014 + offset);
2015 break;
2016
2017 case R_V850_32_ABS:
2018 case R_V850_23:
2019 case R_V850_HI16_S:
2020 case R_V850_HI16:
2021 case R_V850_LO16:
2022 case R_V850_LO16_S1:
2023 case R_V850_LO16_SPLIT_OFFSET:
2024 case R_V850_16:
2025 case R_V850_ABS32:
2026 case R_V850_8:
2027 case R_V810_BYTE:
2028 case R_V810_HWORD:
2029 case R_V810_WORD:
2030 case R_V810_WLO:
2031 case R_V810_WHI:
2032 case R_V810_WHI1:
2033 case R_V810_WLO_1:
2034 case R_V850_WLO23:
2035 case R_V850_BLO:
2036 break;
2037
2038 case R_V850_ZDA_15_16_OFFSET:
2039 case R_V850_ZDA_16_16_OFFSET:
2040 case R_V850_ZDA_16_16_SPLIT_OFFSET:
2041 if (sym_sec == NULL)
2042 return bfd_reloc_undefined;
2043
2044 value -= sym_sec->output_section->vma;
2045 break;
2046
2047 case R_V850_SDA_15_16_OFFSET:
2048 case R_V850_SDA_16_16_OFFSET:
2049 case R_V850_SDA_16_16_SPLIT_OFFSET:
2050 case R_V810_GPWLO_1:
2051 {
2052 unsigned long gp;
2053 struct bfd_link_hash_entry * h;
2054
2055 if (sym_sec == NULL)
2056 return bfd_reloc_undefined;
2057
2058 /* Get the value of __gp. */
2059 h = bfd_link_hash_lookup (info->hash, "__gp", FALSE, FALSE, TRUE);
2060 if (h == NULL
2061 || h->type != bfd_link_hash_defined)
2062 return bfd_reloc_gp_not_found;
2063
2064 gp = (h->u.def.value
2065 + h->u.def.section->output_section->vma
2066 + h->u.def.section->output_offset);
2067
2068 value -= sym_sec->output_section->vma;
2069 value -= (gp - sym_sec->output_section->vma);
2070 }
2071 break;
2072
2073 case R_V850_TDA_4_4_OFFSET:
2074 case R_V850_TDA_4_5_OFFSET:
2075 case R_V850_TDA_7_7_OFFSET:
2076 case R_V850_TDA_7_8_OFFSET:
2077 case R_V850_TDA_6_8_OFFSET:
2078 case R_V850_TDA_16_16_OFFSET:
2079 {
2080 unsigned long ep;
2081 struct bfd_link_hash_entry * h;
2082
2083 /* Get the value of __ep. */
2084 h = bfd_link_hash_lookup (info->hash, "__ep", FALSE, FALSE, TRUE);
2085 if (h == NULL
2086 || h->type != bfd_link_hash_defined)
2087 return bfd_reloc_ep_not_found;
2088
2089 ep = (h->u.def.value
2090 + h->u.def.section->output_section->vma
2091 + h->u.def.section->output_offset);
2092
2093 value -= ep;
2094 }
2095 break;
2096
2097 case R_V850_CALLT_6_7_OFFSET:
2098 {
2099 unsigned long ctbp;
2100 struct bfd_link_hash_entry * h;
2101
2102 /* Get the value of __ctbp. */
2103 h = bfd_link_hash_lookup (info->hash, "__ctbp", FALSE, FALSE, TRUE);
2104 if (h == NULL
2105 || h->type != bfd_link_hash_defined)
2106 return bfd_reloc_ctbp_not_found;
2107
2108 ctbp = (h->u.def.value
2109 + h->u.def.section->output_section->vma
2110 + h->u.def.section->output_offset);
2111 value -= ctbp;
2112 }
2113 break;
2114
2115 case R_V850_CALLT_15_16_OFFSET:
2116 case R_V850_CALLT_16_16_OFFSET:
2117 {
2118 unsigned long ctbp;
2119 struct bfd_link_hash_entry * h;
2120
2121 if (sym_sec == NULL)
2122 return bfd_reloc_undefined;
2123
2124 /* Get the value of __ctbp. */
2125 h = bfd_link_hash_lookup (info->hash, "__ctbp", FALSE, FALSE, TRUE);
2126 if (h == NULL
2127 || h->type != bfd_link_hash_defined)
2128 return bfd_reloc_ctbp_not_found;
2129
2130 ctbp = (h->u.def.value
2131 + h->u.def.section->output_section->vma
2132 + h->u.def.section->output_offset);
2133
2134 value -= sym_sec->output_section->vma;
2135 value -= (ctbp - sym_sec->output_section->vma);
2136 }
2137 break;
2138
2139 case R_V850_NONE:
2140 case R_V810_NONE:
2141 case R_V850_GNU_VTINHERIT:
2142 case R_V850_GNU_VTENTRY:
2143 case R_V850_LONGCALL:
2144 case R_V850_LONGJUMP:
2145 case R_V850_ALIGN:
2146 return bfd_reloc_ok;
2147
2148 default:
2149 #ifdef DEBUG
2150 fprintf (stderr, "%B: reloc number %d not recognised\n", input_bfd, r_type);
2151 #endif
2152 return bfd_reloc_notsupported;
2153 }
2154
2155 /* Perform the relocation. */
2156 return v850_elf_perform_relocation (input_bfd, r_type, value + addend, hit_data);
2157 }
2158
2159 /* Relocate an V850 ELF section. */
2160
2161 static bfd_boolean
v850_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)2162 v850_elf_relocate_section (bfd *output_bfd,
2163 struct bfd_link_info *info,
2164 bfd *input_bfd,
2165 asection *input_section,
2166 bfd_byte *contents,
2167 Elf_Internal_Rela *relocs,
2168 Elf_Internal_Sym *local_syms,
2169 asection **local_sections)
2170 {
2171 Elf_Internal_Shdr *symtab_hdr;
2172 struct elf_link_hash_entry **sym_hashes;
2173 Elf_Internal_Rela *rel;
2174 Elf_Internal_Rela *relend;
2175
2176 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
2177 sym_hashes = elf_sym_hashes (input_bfd);
2178
2179 /* Reset the list of remembered HI16S relocs to empty. */
2180 free_hi16s = previous_hi16s;
2181 previous_hi16s = NULL;
2182 hi16s_counter = 0;
2183
2184 rel = relocs;
2185 relend = relocs + input_section->reloc_count;
2186 for (; rel < relend; rel++)
2187 {
2188 unsigned int r_type;
2189 reloc_howto_type *howto;
2190 unsigned long r_symndx;
2191 Elf_Internal_Sym *sym;
2192 asection *sec;
2193 struct elf_link_hash_entry *h;
2194 bfd_vma relocation;
2195 bfd_reloc_status_type r;
2196
2197 r_symndx = ELF32_R_SYM (rel->r_info);
2198 r_type = ELF32_R_TYPE (rel->r_info);
2199
2200 if (r_type == R_V850_GNU_VTENTRY
2201 || r_type == R_V850_GNU_VTINHERIT)
2202 continue;
2203
2204 if (bfd_get_arch (input_bfd) == bfd_arch_v850_rh850)
2205 howto = v800_elf_howto_table + (r_type - R_V810_NONE);
2206 else
2207 howto = v850_elf_howto_table + r_type;
2208
2209 BFD_ASSERT (r_type == howto->type);
2210
2211 h = NULL;
2212 sym = NULL;
2213 sec = NULL;
2214 if (r_symndx < symtab_hdr->sh_info)
2215 {
2216 sym = local_syms + r_symndx;
2217 sec = local_sections[r_symndx];
2218 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
2219 }
2220 else
2221 {
2222 bfd_boolean unresolved_reloc, warned, ignored;
2223
2224 /* Note - this check is delayed until now as it is possible and
2225 valid to have a file without any symbols but with relocs that
2226 can be processed. */
2227 if (sym_hashes == NULL)
2228 {
2229 info->callbacks->warning
2230 (info, "no hash table available",
2231 NULL, input_bfd, input_section, (bfd_vma) 0);
2232
2233 return FALSE;
2234 }
2235
2236 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
2237 r_symndx, symtab_hdr, sym_hashes,
2238 h, sec, relocation,
2239 unresolved_reloc, warned, ignored);
2240 }
2241
2242 if (sec != NULL && discarded_section (sec))
2243 RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
2244 rel, 1, relend, howto, 0, contents);
2245
2246 if (bfd_link_relocatable (info))
2247 continue;
2248
2249 /* FIXME: We should use the addend, but the COFF relocations don't. */
2250 r = v850_elf_final_link_relocate (howto, input_bfd, output_bfd,
2251 input_section,
2252 contents, rel->r_offset,
2253 relocation, rel->r_addend,
2254 info, sec, h == NULL);
2255
2256 if (r != bfd_reloc_ok)
2257 {
2258 const char * name;
2259 const char * msg = NULL;
2260
2261 if (h != NULL)
2262 name = h->root.root.string;
2263 else
2264 {
2265 name = (bfd_elf_string_from_elf_section
2266 (input_bfd, symtab_hdr->sh_link, sym->st_name));
2267 if (name == NULL || *name == '\0')
2268 name = bfd_section_name (input_bfd, sec);
2269 }
2270
2271 switch ((int) r)
2272 {
2273 case bfd_reloc_overflow:
2274 (*info->callbacks->reloc_overflow)
2275 (info, (h ? &h->root : NULL), name, howto->name,
2276 (bfd_vma) 0, input_bfd, input_section, rel->r_offset);
2277 break;
2278
2279 case bfd_reloc_undefined:
2280 (*info->callbacks->undefined_symbol)
2281 (info, name, input_bfd, input_section, rel->r_offset, TRUE);
2282 break;
2283
2284 case bfd_reloc_outofrange:
2285 msg = _("internal error: out of range error");
2286 goto common_error;
2287
2288 case bfd_reloc_notsupported:
2289 msg = _("internal error: unsupported relocation error");
2290 goto common_error;
2291
2292 case bfd_reloc_dangerous:
2293 msg = _("internal error: dangerous relocation");
2294 goto common_error;
2295
2296 case bfd_reloc_gp_not_found:
2297 msg = _("could not locate special linker symbol __gp");
2298 goto common_error;
2299
2300 case bfd_reloc_ep_not_found:
2301 msg = _("could not locate special linker symbol __ep");
2302 goto common_error;
2303
2304 case bfd_reloc_ctbp_not_found:
2305 msg = _("could not locate special linker symbol __ctbp");
2306 goto common_error;
2307
2308 default:
2309 msg = _("internal error: unknown error");
2310 /* fall through */
2311
2312 common_error:
2313 (*info->callbacks->warning) (info, msg, name, input_bfd,
2314 input_section, rel->r_offset);
2315 break;
2316 }
2317 }
2318 }
2319
2320 return TRUE;
2321 }
2322
2323 static asection *
v850_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)2324 v850_elf_gc_mark_hook (asection *sec,
2325 struct bfd_link_info *info,
2326 Elf_Internal_Rela *rel,
2327 struct elf_link_hash_entry *h,
2328 Elf_Internal_Sym *sym)
2329 {
2330 if (h != NULL)
2331 switch (ELF32_R_TYPE (rel->r_info))
2332 {
2333 case R_V850_GNU_VTINHERIT:
2334 case R_V850_GNU_VTENTRY:
2335 return NULL;
2336 }
2337
2338 return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
2339 }
2340
2341 static void
v850_set_note(bfd * abfd,asection * s,enum v850_notes note,unsigned int val)2342 v850_set_note (bfd * abfd, asection * s, enum v850_notes note, unsigned int val)
2343 {
2344 bfd_byte * data = s->contents + ((note - 1) * SIZEOF_V850_NOTE);
2345
2346 bfd_put_32 (abfd, 4, data + 0);
2347 bfd_put_32 (abfd, 4, data + 4);
2348 bfd_put_32 (abfd, note, data + 8);
2349 memcpy (data + 12, V850_NOTE_NAME, 4);
2350 bfd_put_32 (abfd, val, data + 16);
2351 }
2352
2353 /* Create the note section if not already present. This is done early so
2354 that the linker maps the sections to the right place in the output. */
2355
2356 static asection *
v850_elf_make_note_section(bfd * abfd)2357 v850_elf_make_note_section (bfd * abfd)
2358 {
2359 asection *s;
2360 bfd_byte *data;
2361 flagword flags;
2362 enum v850_notes id;
2363
2364 /* Make the note section. */
2365 flags = SEC_READONLY | SEC_HAS_CONTENTS | SEC_IN_MEMORY | SEC_MERGE;
2366
2367 s = bfd_make_section_anyway_with_flags (abfd, V850_NOTE_SECNAME, flags);
2368 if (s == NULL)
2369 return NULL;
2370
2371 if (!bfd_set_section_alignment (abfd, s, 2))
2372 return NULL;
2373
2374 /* Allocate space for all known notes. */
2375 if (!bfd_set_section_size (abfd, s, NUM_V850_NOTES * SIZEOF_V850_NOTE))
2376 return NULL;
2377
2378 data = bfd_zalloc (abfd, NUM_V850_NOTES * SIZEOF_V850_NOTE);
2379 if (data == NULL)
2380 return NULL;
2381
2382 s->contents = data;
2383
2384 /* Provide default (= uninitilaised) values for all of the notes. */
2385 for (id = V850_NOTE_ALIGNMENT; id <= NUM_V850_NOTES; id++)
2386 v850_set_note (abfd, s, id, 0);
2387
2388 return s;
2389 }
2390
2391 /* Create the note section if not already present. This is done early so
2392 that the linker maps the sections to the right place in the output. */
2393
2394 bfd_boolean
v850_elf_create_sections(struct bfd_link_info * info)2395 v850_elf_create_sections (struct bfd_link_info * info)
2396 {
2397 bfd * ibfd;
2398
2399 /* If we already have a note section, do not make another. */
2400 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
2401 if (bfd_get_section_by_name (ibfd, V850_NOTE_SECNAME) != NULL)
2402 return TRUE;
2403
2404 return v850_elf_make_note_section (info->input_bfds) != NULL;
2405 }
2406
2407 bfd_boolean
v850_elf_set_note(bfd * abfd,enum v850_notes note,unsigned int val)2408 v850_elf_set_note (bfd * abfd, enum v850_notes note, unsigned int val)
2409 {
2410 asection * notes = bfd_get_section_by_name (abfd, V850_NOTE_SECNAME);
2411
2412 if (val > 2)
2413 /* At the moment, no known note has a value over 2. */
2414 return FALSE;
2415
2416 if (notes == NULL)
2417 notes = v850_elf_make_note_section (abfd);
2418 if (notes == NULL)
2419 return FALSE;
2420
2421 v850_set_note (abfd, notes, note, val);
2422 return TRUE;
2423 }
2424
2425 /* Copy a v850 note section from one object module to another. */
2426
2427 static void
v850_elf_copy_notes(bfd * ibfd,bfd * obfd)2428 v850_elf_copy_notes (bfd *ibfd, bfd *obfd)
2429 {
2430 asection * onotes;
2431 asection * inotes;
2432
2433 /* If the output bfd does not have a note section, then
2434 skip the merge. The normal input to output section
2435 copying will take care of everythng for us. */
2436 if ((onotes = bfd_get_section_by_name (obfd, V850_NOTE_SECNAME)) == NULL)
2437 return;
2438
2439 if ((inotes = bfd_get_section_by_name (ibfd, V850_NOTE_SECNAME)) == NULL)
2440 return;
2441
2442 if (bfd_section_size (ibfd, inotes) == bfd_section_size (obfd, onotes))
2443 {
2444 bfd_byte * icont;
2445 bfd_byte * ocont;
2446
2447 if ((icont = elf_section_data (inotes)->this_hdr.contents) == NULL)
2448 BFD_ASSERT (bfd_malloc_and_get_section (ibfd, inotes, & icont));
2449
2450 if ((ocont = elf_section_data (onotes)->this_hdr.contents) == NULL)
2451 BFD_ASSERT (bfd_malloc_and_get_section (obfd, onotes, & ocont));
2452
2453 /* Copy/overwrite notes from the input to the output. */
2454 memcpy (ocont, icont, bfd_section_size (obfd, onotes));
2455 }
2456 }
2457
2458 /* Copy backend specific data from one object module to another. */
2459
2460 static bfd_boolean
v850_elf_copy_private_bfd_data(bfd * ibfd,bfd * obfd)2461 v850_elf_copy_private_bfd_data (bfd *ibfd, bfd *obfd)
2462 {
2463 v850_elf_copy_notes (ibfd, obfd);
2464 return _bfd_elf_copy_private_bfd_data (ibfd, obfd);
2465 }
2466 #define bfd_elf32_bfd_copy_private_bfd_data v850_elf_copy_private_bfd_data
2467
2468 static bfd_boolean
v850_elf_merge_notes(bfd * ibfd,bfd * obfd)2469 v850_elf_merge_notes (bfd * ibfd, bfd *obfd)
2470 {
2471 asection * onotes;
2472 asection * inotes;
2473 bfd_boolean result = TRUE;
2474
2475 /* If the output bfd does not have a note section, then
2476 skip the merge. The normal input to output section
2477 copying will take care of everythng for us. */
2478 if ((onotes = bfd_get_section_by_name (obfd, V850_NOTE_SECNAME)) == NULL)
2479 return TRUE;
2480
2481 if ((inotes = bfd_get_section_by_name (ibfd, V850_NOTE_SECNAME)) != NULL)
2482 {
2483 enum v850_notes id;
2484 bfd_byte * icont;
2485 bfd_byte * ocont;
2486
2487 BFD_ASSERT (bfd_section_size (ibfd, inotes) == bfd_section_size (obfd, onotes));
2488
2489 if ((icont = elf_section_data (inotes)->this_hdr.contents) == NULL)
2490 BFD_ASSERT (bfd_malloc_and_get_section (ibfd, inotes, & icont));
2491
2492 if ((ocont = elf_section_data (onotes)->this_hdr.contents) == NULL)
2493 BFD_ASSERT (bfd_malloc_and_get_section (obfd, onotes, & ocont));
2494
2495 for (id = V850_NOTE_ALIGNMENT; id <= NUM_V850_NOTES; id++)
2496 {
2497 unsigned int ival;
2498 unsigned int oval;
2499 bfd_byte * idata = icont + ((id - 1) * SIZEOF_V850_NOTE) + 16;
2500 bfd_byte * odata = ocont + ((id - 1) * SIZEOF_V850_NOTE) + 16;
2501
2502 ival = bfd_get_32 (ibfd, idata);
2503 oval = bfd_get_32 (obfd, odata);
2504
2505 if (ival == 0 || ival == oval)
2506 continue;
2507
2508 if (oval == 0)
2509 {
2510 bfd_put_32 (obfd, ival, odata);
2511 v850_set_note (obfd, onotes, id, ival);
2512 continue;
2513 }
2514
2515 /* We have a mismatch. The ABI defines how to handle
2516 this siutation on a per note type basis. */
2517 switch (id)
2518 {
2519 case V850_NOTE_ALIGNMENT:
2520 if (oval == EF_RH850_DATA_ALIGN4)
2521 {
2522 _bfd_error_handler
2523 (_("error: %B needs 8-byte aligment but %B is set for 4-byte alignment"),
2524 ibfd, obfd);
2525 result = FALSE;
2526 }
2527 else
2528 /* ibfd uses 4-byte alignment, obfd uses 8-byte alignment.
2529 Leave the obfd alignment as it is. */
2530 BFD_ASSERT (oval == EF_RH850_DATA_ALIGN8);
2531
2532 break;
2533
2534 case V850_NOTE_DATA_SIZE:
2535 if (oval == EF_RH850_DOUBLE32)
2536 {
2537 _bfd_error_handler (_("error: %B uses 64-bit doubles but %B uses 32-bit doubles"),
2538 ibfd, obfd);
2539 result = FALSE;
2540 }
2541 else
2542 /* ibfd uses 32-bit doubles, obfd uses 64-bit doubles.
2543 This is acceptable. Honest, that is what the ABI says. */
2544 BFD_ASSERT (oval == EF_RH850_DOUBLE64);
2545 break;
2546
2547 case V850_NOTE_FPU_INFO:
2548 if (oval == EF_RH850_FPU20)
2549 {
2550 _bfd_error_handler (_("error: %B uses FPU-3.0 but %B only supports FPU-2.0"),
2551 ibfd, obfd);
2552 result = FALSE;
2553 }
2554 else
2555 /* ibfd uses FPU-2.0, obfd uses FPU-3.0. Leave obfd as it is. */
2556 BFD_ASSERT (oval == EF_RH850_FPU30);
2557
2558 break;
2559
2560 default:
2561 /* None of the other conflicts matter.
2562 Stick with the current output values. */
2563 break;
2564 }
2565 }
2566
2567 /* FIXME: We should also check for conflicts between the notes
2568 and the EF flags in the ELF header. */
2569 }
2570
2571 return result;
2572 }
2573
2574 static void
print_v850_note(bfd * abfd,FILE * file,bfd_byte * data,enum v850_notes id)2575 print_v850_note (bfd * abfd, FILE * file, bfd_byte * data, enum v850_notes id)
2576 {
2577 unsigned int value = bfd_get_32 (abfd, data + ((id - 1) * SIZEOF_V850_NOTE) + 16);
2578
2579 switch (id)
2580 {
2581 case V850_NOTE_ALIGNMENT:
2582 fprintf (file, _(" alignment of 8-byte entities: "));
2583 switch (value)
2584 {
2585 case EF_RH850_DATA_ALIGN4: fprintf (file, _("4-byte")); break;
2586 case EF_RH850_DATA_ALIGN8: fprintf (file, _("8-byte")); break;
2587 case 0: fprintf (file, _("not set")); break;
2588 default: fprintf (file, _("unknown: %x"), value); break;
2589 }
2590 fputc ('\n', file);
2591 break;
2592
2593 case V850_NOTE_DATA_SIZE:
2594 fprintf (file, _(" size of doubles: "));
2595 switch (value)
2596 {
2597 case EF_RH850_DOUBLE32: fprintf (file, _("4-bytes")); break;
2598 case EF_RH850_DOUBLE64: fprintf (file, _("8-bytes")); break;
2599 case 0: fprintf (file, _("not set")); break;
2600 default: fprintf (file, _("unknown: %x"), value); break;
2601 }
2602 fputc ('\n', file);
2603 break;
2604
2605 case V850_NOTE_FPU_INFO:
2606 fprintf (file, _(" FPU support required: "));
2607 switch (value)
2608 {
2609 case EF_RH850_FPU20: fprintf (file, _("FPU-2.0")); break;
2610 case EF_RH850_FPU30: fprintf (file, _("FPU-3.0")); break;
2611 case 0: fprintf (file, _("none")); break;
2612 default: fprintf (file, _("unknown: %x"), value); break;
2613 }
2614 fputc ('\n', file);
2615 break;
2616
2617 case V850_NOTE_SIMD_INFO:
2618 fprintf (file, _("SIMD use: "));
2619 switch (value)
2620 {
2621 case EF_RH850_SIMD: fprintf (file, _("yes")); break;
2622 case 0: fprintf (file, _("no")); break;
2623 default: fprintf (file, _("unknown: %x"), value); break;
2624 }
2625 fputc ('\n', file);
2626 break;
2627
2628 case V850_NOTE_CACHE_INFO:
2629 fprintf (file, _("CACHE use: "));
2630 switch (value)
2631 {
2632 case EF_RH850_CACHE: fprintf (file, _("yes")); break;
2633 case 0: fprintf (file, _("no")); break;
2634 default: fprintf (file, _("unknown: %x"), value); break;
2635 }
2636 fputc ('\n', file);
2637 break;
2638
2639 case V850_NOTE_MMU_INFO:
2640 fprintf (file, _("MMU use: "));
2641 switch (value)
2642 {
2643 case EF_RH850_MMU: fprintf (file, _("yes")); break;
2644 case 0: fprintf (file, _("no")); break;
2645 default: fprintf (file, _("unknown: %x"), value); break;
2646 }
2647 fputc ('\n', file);
2648 break;
2649
2650 default:
2651 BFD_ASSERT (0);
2652 }
2653 }
2654
2655 static void
v850_elf_print_notes(bfd * abfd,FILE * file)2656 v850_elf_print_notes (bfd * abfd, FILE * file)
2657 {
2658 asection * notes = bfd_get_section_by_name (abfd, V850_NOTE_SECNAME);
2659 enum v850_notes id;
2660
2661 if (notes == NULL || notes->contents == NULL)
2662 return;
2663
2664 BFD_ASSERT (bfd_section_size (abfd, notes) == NUM_V850_NOTES * SIZEOF_V850_NOTE);
2665
2666 for (id = V850_NOTE_ALIGNMENT; id <= NUM_V850_NOTES; id++)
2667 print_v850_note (abfd, file, notes->contents, id);
2668 }
2669
2670 /* Set the right machine number and architecture. */
2671
2672 static bfd_boolean
v850_elf_object_p(bfd * abfd)2673 v850_elf_object_p (bfd *abfd)
2674 {
2675 enum bfd_architecture arch;
2676 unsigned long mach;
2677
2678 switch (elf_elfheader (abfd)->e_machine)
2679 {
2680 case EM_V800:
2681 arch = bfd_arch_v850_rh850;
2682 mach = (elf_elfheader (abfd)->e_flags & EF_V800_850E3)
2683 ? bfd_mach_v850e3v5 : bfd_mach_v850e2v3;
2684 break;
2685
2686 case EM_CYGNUS_V850:
2687 case EM_V850:
2688 arch = bfd_arch_v850;
2689 switch (elf_elfheader (abfd)->e_flags & EF_V850_ARCH)
2690 {
2691 default:
2692 case E_V850_ARCH: mach = bfd_mach_v850; break;
2693 case E_V850E_ARCH: mach = bfd_mach_v850e; break;
2694 case E_V850E1_ARCH: mach = bfd_mach_v850e1; break;
2695 case E_V850E2_ARCH: mach = bfd_mach_v850e2; break;
2696 case E_V850E2V3_ARCH: mach = bfd_mach_v850e2v3; break;
2697 case E_V850E3V5_ARCH: mach = bfd_mach_v850e3v5; break;
2698 }
2699 break;
2700
2701 default:
2702 return FALSE;
2703 }
2704
2705 return bfd_default_set_arch_mach (abfd, arch, mach);
2706 }
2707
2708 /* Store the machine number in the flags field. */
2709
2710 static void
v850_elf_final_write_processing(bfd * abfd,bfd_boolean linker ATTRIBUTE_UNUSED)2711 v850_elf_final_write_processing (bfd *abfd,
2712 bfd_boolean linker ATTRIBUTE_UNUSED)
2713 {
2714 unsigned long val;
2715
2716 switch (bfd_get_arch (abfd))
2717 {
2718 case bfd_arch_v850_rh850:
2719 val = EF_RH850_ABI;
2720 if (bfd_get_mach (abfd) == bfd_mach_v850e3v5)
2721 val |= EF_V800_850E3;
2722 elf_elfheader (abfd)->e_flags |= val;
2723 break;
2724
2725 case bfd_arch_v850:
2726 switch (bfd_get_mach (abfd))
2727 {
2728 default:
2729 case bfd_mach_v850: val = E_V850_ARCH; break;
2730 case bfd_mach_v850e: val = E_V850E_ARCH; break;
2731 case bfd_mach_v850e1: val = E_V850E1_ARCH; break;
2732 case bfd_mach_v850e2: val = E_V850E2_ARCH; break;
2733 case bfd_mach_v850e2v3: val = E_V850E2V3_ARCH; break;
2734 case bfd_mach_v850e3v5: val = E_V850E3V5_ARCH; break;
2735 }
2736 elf_elfheader (abfd)->e_flags &=~ EF_V850_ARCH;
2737 elf_elfheader (abfd)->e_flags |= val;
2738 break;
2739 default:
2740 break;
2741 }
2742 }
2743
2744 /* Function to keep V850 specific file flags. */
2745
2746 static bfd_boolean
v850_elf_set_private_flags(bfd * abfd,flagword flags)2747 v850_elf_set_private_flags (bfd *abfd, flagword flags)
2748 {
2749 BFD_ASSERT (!elf_flags_init (abfd)
2750 || elf_elfheader (abfd)->e_flags == flags);
2751
2752 elf_elfheader (abfd)->e_flags = flags;
2753 elf_flags_init (abfd) = TRUE;
2754 return TRUE;
2755 }
2756
2757 /* Merge backend specific data from an object file
2758 to the output object file when linking. */
2759
2760 static bfd_boolean
v850_elf_merge_private_bfd_data(bfd * ibfd,bfd * obfd)2761 v850_elf_merge_private_bfd_data (bfd *ibfd, bfd *obfd)
2762 {
2763 flagword out_flags;
2764 flagword in_flags;
2765 bfd_boolean result = TRUE;
2766
2767 if ( bfd_get_flavour (ibfd) != bfd_target_elf_flavour
2768 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
2769 return TRUE;
2770
2771 result &= v850_elf_merge_notes (ibfd, obfd);
2772
2773 in_flags = elf_elfheader (ibfd)->e_flags;
2774 out_flags = elf_elfheader (obfd)->e_flags;
2775
2776 if (! elf_flags_init (obfd))
2777 {
2778 /* If the input is the default architecture then do not
2779 bother setting the flags for the output architecture,
2780 instead allow future merges to do this. If no future
2781 merges ever set these flags then they will retain their
2782 unitialised values, which surprise surprise, correspond
2783 to the default values. */
2784 if (bfd_get_arch_info (ibfd)->the_default)
2785 return TRUE;
2786
2787 elf_flags_init (obfd) = TRUE;
2788 elf_elfheader (obfd)->e_flags = in_flags;
2789
2790 if (bfd_get_arch (obfd) == bfd_get_arch (ibfd)
2791 && bfd_get_arch_info (obfd)->the_default)
2792 result &= bfd_set_arch_mach (obfd, bfd_get_arch (ibfd), bfd_get_mach (ibfd));
2793
2794 return result;
2795 }
2796
2797 /* Check flag compatibility. */
2798 if (in_flags == out_flags)
2799 return result;
2800
2801 if (bfd_get_arch (obfd) == bfd_arch_v850_rh850)
2802 {
2803 if ((in_flags & EF_V800_850E3) != (out_flags & EF_V800_850E3))
2804 {
2805 _bfd_error_handler (_("%B: Architecture mismatch with previous modules"),
2806 ibfd);
2807 elf_elfheader (obfd)->e_flags |= EF_V800_850E3;
2808 }
2809
2810 return result;
2811 }
2812
2813 if ((in_flags & EF_V850_ARCH) != (out_flags & EF_V850_ARCH)
2814 && (in_flags & EF_V850_ARCH) != E_V850_ARCH)
2815 {
2816 /* Allow earlier architecture binaries to be linked with later binaries.
2817 Set the output binary to the later architecture, except for v850e1,
2818 which we set to v850e. */
2819 if ( (in_flags & EF_V850_ARCH) == E_V850E1_ARCH
2820 && (out_flags & EF_V850_ARCH) == E_V850E_ARCH)
2821 return result;
2822
2823 if ( (in_flags & EF_V850_ARCH) == E_V850_ARCH
2824 && (out_flags & EF_V850_ARCH) == E_V850E_ARCH)
2825 {
2826 elf_elfheader (obfd)->e_flags =
2827 ((out_flags & ~ EF_V850_ARCH) | E_V850E_ARCH);
2828 return result;
2829 }
2830
2831 if (( (in_flags & EF_V850_ARCH) == E_V850_ARCH
2832 || (in_flags & EF_V850_ARCH) == E_V850E_ARCH)
2833 && (out_flags & EF_V850_ARCH) == E_V850E2_ARCH)
2834 {
2835 elf_elfheader (obfd)->e_flags =
2836 ((out_flags & ~ EF_V850_ARCH) | E_V850E2_ARCH);
2837 return result;
2838 }
2839
2840 if (( (in_flags & EF_V850_ARCH) == E_V850_ARCH
2841 || (in_flags & EF_V850_ARCH) == E_V850E_ARCH
2842 || (in_flags & EF_V850_ARCH) == E_V850E2_ARCH)
2843 && (out_flags & EF_V850_ARCH) == E_V850E2V3_ARCH)
2844 {
2845 elf_elfheader (obfd)->e_flags =
2846 ((out_flags & ~ EF_V850_ARCH) | E_V850E2V3_ARCH);
2847 return result;
2848 }
2849
2850 if (( (in_flags & EF_V850_ARCH) == E_V850_ARCH
2851 || (in_flags & EF_V850_ARCH) == E_V850E_ARCH
2852 || (in_flags & EF_V850_ARCH) == E_V850E2_ARCH
2853 || (in_flags & EF_V850_ARCH) == E_V850E2V3_ARCH)
2854 && (out_flags & EF_V850_ARCH) == E_V850E3V5_ARCH)
2855 {
2856 elf_elfheader (obfd)->e_flags =
2857 ((out_flags & ~ EF_V850_ARCH) | E_V850E3V5_ARCH);
2858 return result;
2859 }
2860
2861 _bfd_error_handler (_("%B: Architecture mismatch with previous modules"),
2862 ibfd);
2863 }
2864
2865 return result;
2866 }
2867
2868 /* Display the flags field. */
2869
2870 static bfd_boolean
v850_elf_print_private_bfd_data(bfd * abfd,void * ptr)2871 v850_elf_print_private_bfd_data (bfd *abfd, void * ptr)
2872 {
2873 FILE * file = (FILE *) ptr;
2874
2875 BFD_ASSERT (abfd != NULL && ptr != NULL);
2876
2877 _bfd_elf_print_private_bfd_data (abfd, ptr);
2878
2879 /* xgettext:c-format. */
2880 fprintf (file, _("private flags = %lx: "), elf_elfheader (abfd)->e_flags);
2881
2882 if (bfd_get_arch (abfd) == bfd_arch_v850_rh850)
2883 {
2884 if ((elf_elfheader (abfd)->e_flags & EF_RH850_ABI) != EF_RH850_ABI)
2885 fprintf (file, _("unknown v850 architecture"));
2886 else if (elf_elfheader (abfd)->e_flags & EF_V800_850E3)
2887 fprintf (file, _("v850 E3 architecture"));
2888 else
2889 fprintf (file, _("v850 architecture"));
2890 }
2891 else
2892 {
2893 switch (elf_elfheader (abfd)->e_flags & EF_V850_ARCH)
2894 {
2895 default:
2896 case E_V850_ARCH: fprintf (file, _("v850 architecture")); break;
2897 case E_V850E_ARCH: fprintf (file, _("v850e architecture")); break;
2898 case E_V850E1_ARCH: fprintf (file, _("v850e1 architecture")); break;
2899 case E_V850E2_ARCH: fprintf (file, _("v850e2 architecture")); break;
2900 case E_V850E2V3_ARCH: fprintf (file, _("v850e2v3 architecture")); break;
2901 case E_V850E3V5_ARCH: fprintf (file, _("v850e3v5 architecture")); break;
2902 }
2903 }
2904
2905 fputc ('\n', file);
2906
2907 v850_elf_print_notes (abfd, file);
2908
2909 return TRUE;
2910 }
2911
2912 /* V850 ELF uses four common sections. One is the usual one, and the
2913 others are for (small) objects in one of the special data areas:
2914 small, tiny and zero. All the objects are kept together, and then
2915 referenced via the gp register, the ep register or the r0 register
2916 respectively, which yields smaller, faster assembler code. This
2917 approach is copied from elf32-mips.c. */
2918
2919 static asection v850_elf_scom_section;
2920 static asymbol v850_elf_scom_symbol;
2921 static asymbol * v850_elf_scom_symbol_ptr;
2922 static asection v850_elf_tcom_section;
2923 static asymbol v850_elf_tcom_symbol;
2924 static asymbol * v850_elf_tcom_symbol_ptr;
2925 static asection v850_elf_zcom_section;
2926 static asymbol v850_elf_zcom_symbol;
2927 static asymbol * v850_elf_zcom_symbol_ptr;
2928
2929 /* Given a BFD section, try to locate the
2930 corresponding ELF section index. */
2931
2932 static bfd_boolean
v850_elf_section_from_bfd_section(bfd * abfd ATTRIBUTE_UNUSED,asection * sec,int * retval)2933 v850_elf_section_from_bfd_section (bfd *abfd ATTRIBUTE_UNUSED,
2934 asection *sec,
2935 int *retval)
2936 {
2937 if (strcmp (bfd_get_section_name (abfd, sec), ".scommon") == 0)
2938 *retval = SHN_V850_SCOMMON;
2939 else if (strcmp (bfd_get_section_name (abfd, sec), ".tcommon") == 0)
2940 *retval = SHN_V850_TCOMMON;
2941 else if (strcmp (bfd_get_section_name (abfd, sec), ".zcommon") == 0)
2942 *retval = SHN_V850_ZCOMMON;
2943 else
2944 return FALSE;
2945
2946 return TRUE;
2947 }
2948
2949 /* Handle the special V850 section numbers that a symbol may use. */
2950
2951 static void
v850_elf_symbol_processing(bfd * abfd,asymbol * asym)2952 v850_elf_symbol_processing (bfd *abfd, asymbol *asym)
2953 {
2954 elf_symbol_type * elfsym = (elf_symbol_type *) asym;
2955 unsigned int indx;
2956
2957 indx = elfsym->internal_elf_sym.st_shndx;
2958
2959 /* If the section index is an "ordinary" index, then it may
2960 refer to a v850 specific section created by the assembler.
2961 Check the section's type and change the index it matches.
2962
2963 FIXME: Should we alter the st_shndx field as well ? */
2964
2965 if (indx < elf_numsections (abfd))
2966 switch (elf_elfsections (abfd)[indx]->sh_type)
2967 {
2968 case SHT_V850_SCOMMON:
2969 indx = SHN_V850_SCOMMON;
2970 break;
2971
2972 case SHT_V850_TCOMMON:
2973 indx = SHN_V850_TCOMMON;
2974 break;
2975
2976 case SHT_V850_ZCOMMON:
2977 indx = SHN_V850_ZCOMMON;
2978 break;
2979
2980 default:
2981 break;
2982 }
2983
2984 switch (indx)
2985 {
2986 case SHN_V850_SCOMMON:
2987 if (v850_elf_scom_section.name == NULL)
2988 {
2989 /* Initialize the small common section. */
2990 v850_elf_scom_section.name = ".scommon";
2991 v850_elf_scom_section.flags = SEC_IS_COMMON | SEC_ALLOC | SEC_DATA;
2992 v850_elf_scom_section.output_section = & v850_elf_scom_section;
2993 v850_elf_scom_section.symbol = & v850_elf_scom_symbol;
2994 v850_elf_scom_section.symbol_ptr_ptr = & v850_elf_scom_symbol_ptr;
2995 v850_elf_scom_symbol.name = ".scommon";
2996 v850_elf_scom_symbol.flags = BSF_SECTION_SYM;
2997 v850_elf_scom_symbol.section = & v850_elf_scom_section;
2998 v850_elf_scom_symbol_ptr = & v850_elf_scom_symbol;
2999 }
3000 asym->section = & v850_elf_scom_section;
3001 asym->value = elfsym->internal_elf_sym.st_size;
3002 break;
3003
3004 case SHN_V850_TCOMMON:
3005 if (v850_elf_tcom_section.name == NULL)
3006 {
3007 /* Initialize the tcommon section. */
3008 v850_elf_tcom_section.name = ".tcommon";
3009 v850_elf_tcom_section.flags = SEC_IS_COMMON;
3010 v850_elf_tcom_section.output_section = & v850_elf_tcom_section;
3011 v850_elf_tcom_section.symbol = & v850_elf_tcom_symbol;
3012 v850_elf_tcom_section.symbol_ptr_ptr = & v850_elf_tcom_symbol_ptr;
3013 v850_elf_tcom_symbol.name = ".tcommon";
3014 v850_elf_tcom_symbol.flags = BSF_SECTION_SYM;
3015 v850_elf_tcom_symbol.section = & v850_elf_tcom_section;
3016 v850_elf_tcom_symbol_ptr = & v850_elf_tcom_symbol;
3017 }
3018 asym->section = & v850_elf_tcom_section;
3019 asym->value = elfsym->internal_elf_sym.st_size;
3020 break;
3021
3022 case SHN_V850_ZCOMMON:
3023 if (v850_elf_zcom_section.name == NULL)
3024 {
3025 /* Initialize the zcommon section. */
3026 v850_elf_zcom_section.name = ".zcommon";
3027 v850_elf_zcom_section.flags = SEC_IS_COMMON;
3028 v850_elf_zcom_section.output_section = & v850_elf_zcom_section;
3029 v850_elf_zcom_section.symbol = & v850_elf_zcom_symbol;
3030 v850_elf_zcom_section.symbol_ptr_ptr = & v850_elf_zcom_symbol_ptr;
3031 v850_elf_zcom_symbol.name = ".zcommon";
3032 v850_elf_zcom_symbol.flags = BSF_SECTION_SYM;
3033 v850_elf_zcom_symbol.section = & v850_elf_zcom_section;
3034 v850_elf_zcom_symbol_ptr = & v850_elf_zcom_symbol;
3035 }
3036 asym->section = & v850_elf_zcom_section;
3037 asym->value = elfsym->internal_elf_sym.st_size;
3038 break;
3039 }
3040 }
3041
3042 /* Hook called by the linker routine which adds symbols from an object
3043 file. We must handle the special v850 section numbers here. */
3044
3045 static bfd_boolean
v850_elf_add_symbol_hook(bfd * abfd,struct bfd_link_info * info ATTRIBUTE_UNUSED,Elf_Internal_Sym * sym,const char ** namep ATTRIBUTE_UNUSED,flagword * flagsp ATTRIBUTE_UNUSED,asection ** secp,bfd_vma * valp)3046 v850_elf_add_symbol_hook (bfd *abfd,
3047 struct bfd_link_info *info ATTRIBUTE_UNUSED,
3048 Elf_Internal_Sym *sym,
3049 const char **namep ATTRIBUTE_UNUSED,
3050 flagword *flagsp ATTRIBUTE_UNUSED,
3051 asection **secp,
3052 bfd_vma *valp)
3053 {
3054 unsigned int indx = sym->st_shndx;
3055
3056 /* If the section index is an "ordinary" index, then it may
3057 refer to a v850 specific section created by the assembler.
3058 Check the section's type and change the index it matches.
3059
3060 FIXME: Should we alter the st_shndx field as well ? */
3061
3062 if (indx < elf_numsections (abfd))
3063 switch (elf_elfsections (abfd)[indx]->sh_type)
3064 {
3065 case SHT_V850_SCOMMON:
3066 indx = SHN_V850_SCOMMON;
3067 break;
3068
3069 case SHT_V850_TCOMMON:
3070 indx = SHN_V850_TCOMMON;
3071 break;
3072
3073 case SHT_V850_ZCOMMON:
3074 indx = SHN_V850_ZCOMMON;
3075 break;
3076
3077 default:
3078 break;
3079 }
3080
3081 switch (indx)
3082 {
3083 case SHN_V850_SCOMMON:
3084 *secp = bfd_make_section_old_way (abfd, ".scommon");
3085 (*secp)->flags |= SEC_IS_COMMON;
3086 *valp = sym->st_size;
3087 break;
3088
3089 case SHN_V850_TCOMMON:
3090 *secp = bfd_make_section_old_way (abfd, ".tcommon");
3091 (*secp)->flags |= SEC_IS_COMMON;
3092 *valp = sym->st_size;
3093 break;
3094
3095 case SHN_V850_ZCOMMON:
3096 *secp = bfd_make_section_old_way (abfd, ".zcommon");
3097 (*secp)->flags |= SEC_IS_COMMON;
3098 *valp = sym->st_size;
3099 break;
3100 }
3101
3102 return TRUE;
3103 }
3104
3105 static int
v850_elf_link_output_symbol_hook(struct bfd_link_info * info ATTRIBUTE_UNUSED,const char * name ATTRIBUTE_UNUSED,Elf_Internal_Sym * sym,asection * input_sec,struct elf_link_hash_entry * h ATTRIBUTE_UNUSED)3106 v850_elf_link_output_symbol_hook (struct bfd_link_info *info ATTRIBUTE_UNUSED,
3107 const char *name ATTRIBUTE_UNUSED,
3108 Elf_Internal_Sym *sym,
3109 asection *input_sec,
3110 struct elf_link_hash_entry *h ATTRIBUTE_UNUSED)
3111 {
3112 /* If we see a common symbol, which implies a relocatable link, then
3113 if a symbol was in a special common section in an input file, mark
3114 it as a special common in the output file. */
3115
3116 if (sym->st_shndx == SHN_COMMON)
3117 {
3118 if (strcmp (input_sec->name, ".scommon") == 0)
3119 sym->st_shndx = SHN_V850_SCOMMON;
3120 else if (strcmp (input_sec->name, ".tcommon") == 0)
3121 sym->st_shndx = SHN_V850_TCOMMON;
3122 else if (strcmp (input_sec->name, ".zcommon") == 0)
3123 sym->st_shndx = SHN_V850_ZCOMMON;
3124 }
3125
3126 /* The price we pay for using h->other unused bits as flags in the
3127 linker is cleaning up after ourselves. */
3128
3129 sym->st_other &= ~(V850_OTHER_SDA | V850_OTHER_ZDA | V850_OTHER_TDA
3130 | V850_OTHER_ERROR);
3131
3132 return 1;
3133 }
3134
3135 static bfd_boolean
v850_elf_section_from_shdr(bfd * abfd,Elf_Internal_Shdr * hdr,const char * name,int shindex)3136 v850_elf_section_from_shdr (bfd *abfd,
3137 Elf_Internal_Shdr *hdr,
3138 const char *name,
3139 int shindex)
3140 {
3141 /* There ought to be a place to keep ELF backend specific flags, but
3142 at the moment there isn't one. We just keep track of the
3143 sections by their name, instead. */
3144
3145 if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name, shindex))
3146 return FALSE;
3147
3148 switch (hdr->sh_type)
3149 {
3150 case SHT_V850_SCOMMON:
3151 case SHT_V850_TCOMMON:
3152 case SHT_V850_ZCOMMON:
3153 if (! bfd_set_section_flags (abfd, hdr->bfd_section,
3154 (bfd_get_section_flags (abfd,
3155 hdr->bfd_section)
3156 | SEC_IS_COMMON)))
3157 return FALSE;
3158 }
3159
3160 return TRUE;
3161 }
3162
3163 /* Set the correct type for a V850 ELF section. We do this
3164 by the section name, which is a hack, but ought to work. */
3165
3166 static bfd_boolean
v850_elf_fake_sections(bfd * abfd ATTRIBUTE_UNUSED,Elf_Internal_Shdr * hdr,asection * sec)3167 v850_elf_fake_sections (bfd *abfd ATTRIBUTE_UNUSED,
3168 Elf_Internal_Shdr *hdr,
3169 asection *sec)
3170 {
3171 const char * name;
3172
3173 name = bfd_get_section_name (abfd, sec);
3174
3175 if (strcmp (name, ".scommon") == 0)
3176 hdr->sh_type = SHT_V850_SCOMMON;
3177 else if (strcmp (name, ".tcommon") == 0)
3178 hdr->sh_type = SHT_V850_TCOMMON;
3179 else if (strcmp (name, ".zcommon") == 0)
3180 hdr->sh_type = SHT_V850_ZCOMMON;
3181 /* Tweak the section type of .note.renesas. */
3182 else if (strcmp (name, V850_NOTE_SECNAME) == 0)
3183 {
3184 hdr->sh_type = SHT_RENESAS_INFO;
3185 hdr->sh_entsize = SIZEOF_V850_NOTE;
3186 }
3187
3188 return TRUE;
3189 }
3190
3191 /* Delete some bytes from a section while relaxing. */
3192
3193 static bfd_boolean
v850_elf_relax_delete_bytes(bfd * abfd,asection * sec,bfd_vma addr,bfd_vma toaddr,int count)3194 v850_elf_relax_delete_bytes (bfd *abfd,
3195 asection *sec,
3196 bfd_vma addr,
3197 bfd_vma toaddr,
3198 int count)
3199 {
3200 Elf_Internal_Shdr *symtab_hdr;
3201 Elf32_External_Sym *extsyms;
3202 Elf32_External_Sym *esym;
3203 Elf32_External_Sym *esymend;
3204 int sym_index;
3205 unsigned int sec_shndx;
3206 bfd_byte *contents;
3207 Elf_Internal_Rela *irel;
3208 Elf_Internal_Rela *irelend;
3209 struct elf_link_hash_entry *sym_hash;
3210 Elf_External_Sym_Shndx *shndx;
3211
3212 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
3213 extsyms = (Elf32_External_Sym *) symtab_hdr->contents;
3214
3215 sec_shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
3216
3217 contents = elf_section_data (sec)->this_hdr.contents;
3218
3219 /* The deletion must stop at the next ALIGN reloc for an alignment
3220 power larger than the number of bytes we are deleting. */
3221
3222 /* Actually delete the bytes. */
3223 #if (DEBUG_RELAX & 2)
3224 fprintf (stderr, "relax_delete: contents: sec: %s %p .. %p %x\n",
3225 sec->name, addr, toaddr, count );
3226 #endif
3227 memmove (contents + addr, contents + addr + count,
3228 toaddr - addr - count);
3229 memset (contents + toaddr-count, 0, count);
3230
3231 /* Adjust all the relocs. */
3232 irel = elf_section_data (sec)->relocs;
3233 irelend = irel + sec->reloc_count;
3234 if (elf_symtab_shndx_list (abfd))
3235 {
3236 Elf_Internal_Shdr *shndx_hdr;
3237
3238 shndx_hdr = & elf_symtab_shndx_list (abfd)->hdr;
3239 shndx = (Elf_External_Sym_Shndx *) shndx_hdr->contents;
3240 }
3241 else
3242 {
3243 shndx = NULL;
3244 }
3245
3246 for (; irel < irelend; irel++)
3247 {
3248 bfd_vma raddr, paddr, symval;
3249 Elf_Internal_Sym isym;
3250
3251 /* Get the new reloc address. */
3252 raddr = irel->r_offset;
3253 if ((raddr >= (addr + count) && raddr < toaddr))
3254 irel->r_offset -= count;
3255
3256 if (raddr >= addr && raddr < addr + count)
3257 {
3258 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3259 (int) R_V850_NONE);
3260 continue;
3261 }
3262
3263 if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_ALIGN)
3264 continue;
3265
3266 bfd_elf32_swap_symbol_in (abfd,
3267 extsyms + ELF32_R_SYM (irel->r_info),
3268 shndx ? shndx + ELF32_R_SYM (irel->r_info) : NULL,
3269 & isym);
3270
3271 if (isym.st_shndx != sec_shndx)
3272 continue;
3273
3274 /* Get the value of the symbol referred to by the reloc. */
3275 if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
3276 {
3277 symval = isym.st_value;
3278 #if (DEBUG_RELAX & 2)
3279 {
3280 char * name = bfd_elf_string_from_elf_section
3281 (abfd, symtab_hdr->sh_link, isym.st_name);
3282 fprintf (stderr,
3283 "relax_delete: local: sec: %s, sym: %s (%d), value: %x + %x + %x addend %x\n",
3284 sec->name, name, isym.st_name,
3285 sec->output_section->vma, sec->output_offset,
3286 isym.st_value, irel->r_addend);
3287 }
3288 #endif
3289 }
3290 else
3291 {
3292 unsigned long indx;
3293 struct elf_link_hash_entry * h;
3294
3295 /* An external symbol. */
3296 indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
3297
3298 h = elf_sym_hashes (abfd) [indx];
3299 BFD_ASSERT (h != NULL);
3300
3301 symval = h->root.u.def.value;
3302 #if (DEBUG_RELAX & 2)
3303 fprintf (stderr,
3304 "relax_delete: defined: sec: %s, name: %s, value: %x + %x + %x addend %x\n",
3305 sec->name, h->root.root.string, h->root.u.def.value,
3306 sec->output_section->vma, sec->output_offset, irel->r_addend);
3307 #endif
3308 }
3309
3310 paddr = symval + irel->r_addend;
3311
3312 if ( (symval >= addr + count && symval < toaddr)
3313 && (paddr < addr + count || paddr >= toaddr))
3314 irel->r_addend += count;
3315 else if ( (symval < addr + count || symval >= toaddr)
3316 && (paddr >= addr + count && paddr < toaddr))
3317 irel->r_addend -= count;
3318 }
3319
3320 /* Adjust the local symbols defined in this section. */
3321 esym = extsyms;
3322 esymend = esym + symtab_hdr->sh_info;
3323
3324 for (; esym < esymend; esym++, shndx = (shndx ? shndx + 1 : NULL))
3325 {
3326 Elf_Internal_Sym isym;
3327
3328 bfd_elf32_swap_symbol_in (abfd, esym, shndx, & isym);
3329
3330 if (isym.st_shndx == sec_shndx
3331 && isym.st_value >= addr + count
3332 && isym.st_value < toaddr)
3333 {
3334 isym.st_value -= count;
3335
3336 if (isym.st_value + isym.st_size >= toaddr)
3337 isym.st_size += count;
3338
3339 bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
3340 }
3341 else if (isym.st_shndx == sec_shndx
3342 && isym.st_value < addr + count)
3343 {
3344 if (isym.st_value+isym.st_size >= addr + count
3345 && isym.st_value+isym.st_size < toaddr)
3346 isym.st_size -= count;
3347
3348 if (isym.st_value >= addr
3349 && isym.st_value < addr + count)
3350 isym.st_value = addr;
3351
3352 bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
3353 }
3354 }
3355
3356 /* Now adjust the global symbols defined in this section. */
3357 esym = extsyms + symtab_hdr->sh_info;
3358 esymend = extsyms + (symtab_hdr->sh_size / sizeof (Elf32_External_Sym));
3359
3360 for (sym_index = 0; esym < esymend; esym ++, sym_index ++)
3361 {
3362 Elf_Internal_Sym isym;
3363
3364 bfd_elf32_swap_symbol_in (abfd, esym, shndx, & isym);
3365 sym_hash = elf_sym_hashes (abfd) [sym_index];
3366
3367 if (isym.st_shndx == sec_shndx
3368 && ((sym_hash)->root.type == bfd_link_hash_defined
3369 || (sym_hash)->root.type == bfd_link_hash_defweak)
3370 && (sym_hash)->root.u.def.section == sec
3371 && (sym_hash)->root.u.def.value >= addr + count
3372 && (sym_hash)->root.u.def.value < toaddr)
3373 {
3374 if ((sym_hash)->root.u.def.value + isym.st_size >= toaddr)
3375 {
3376 isym.st_size += count;
3377 bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
3378 }
3379
3380 (sym_hash)->root.u.def.value -= count;
3381 }
3382 else if (isym.st_shndx == sec_shndx
3383 && ((sym_hash)->root.type == bfd_link_hash_defined
3384 || (sym_hash)->root.type == bfd_link_hash_defweak)
3385 && (sym_hash)->root.u.def.section == sec
3386 && (sym_hash)->root.u.def.value < addr + count)
3387 {
3388 if ((sym_hash)->root.u.def.value+isym.st_size >= addr + count
3389 && (sym_hash)->root.u.def.value+isym.st_size < toaddr)
3390 isym.st_size -= count;
3391
3392 if ((sym_hash)->root.u.def.value >= addr
3393 && (sym_hash)->root.u.def.value < addr + count)
3394 (sym_hash)->root.u.def.value = addr;
3395
3396 bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
3397 }
3398
3399 if (shndx)
3400 ++ shndx;
3401 }
3402
3403 return TRUE;
3404 }
3405
3406 #define NOP_OPCODE (0x0000)
3407 #define MOVHI 0x0640 /* 4byte. */
3408 #define MOVHI_MASK 0x07e0
3409 #define MOVHI_R1(insn) ((insn) & 0x1f) /* 4byte. */
3410 #define MOVHI_R2(insn) ((insn) >> 11)
3411 #define MOVEA 0x0620 /* 2byte. */
3412 #define MOVEA_MASK 0x07e0
3413 #define MOVEA_R1(insn) ((insn) & 0x1f)
3414 #define MOVEA_R2(insn) ((insn) >> 11)
3415 #define JARL_4 0x00040780 /* 4byte. */
3416 #define JARL_4_MASK 0xFFFF07FF
3417 #define JARL_R2(insn) (int)(((insn) & (~JARL_4_MASK)) >> 11)
3418 #define ADD_I 0x0240 /* 2byte. */
3419 #define ADD_I_MASK 0x07e0
3420 #define ADD_I5(insn) ((((insn) & 0x001f) << 11) >> 11) /* 2byte. */
3421 #define ADD_R2(insn) ((insn) >> 11)
3422 #define JMP_R 0x0060 /* 2byte. */
3423 #define JMP_R_MASK 0xFFE0
3424 #define JMP_R1(insn) ((insn) & 0x1f)
3425
3426 static bfd_boolean
v850_elf_relax_section(bfd * abfd,asection * sec,struct bfd_link_info * link_info,bfd_boolean * again)3427 v850_elf_relax_section (bfd *abfd,
3428 asection *sec,
3429 struct bfd_link_info *link_info,
3430 bfd_boolean *again)
3431 {
3432 Elf_Internal_Shdr *symtab_hdr;
3433 Elf_Internal_Rela *internal_relocs;
3434 Elf_Internal_Rela *irel;
3435 Elf_Internal_Rela *irelend;
3436 Elf_Internal_Rela *irelalign = NULL;
3437 Elf_Internal_Sym *isymbuf = NULL;
3438 bfd_byte *contents = NULL;
3439 bfd_vma addr = 0;
3440 bfd_vma toaddr;
3441 int align_pad_size = 0;
3442 bfd_boolean result = TRUE;
3443
3444 *again = FALSE;
3445
3446 if (bfd_link_relocatable (link_info)
3447 || (sec->flags & SEC_RELOC) == 0
3448 || sec->reloc_count == 0)
3449 return TRUE;
3450
3451 symtab_hdr = & elf_tdata (abfd)->symtab_hdr;
3452
3453 internal_relocs = (_bfd_elf_link_read_relocs
3454 (abfd, sec, NULL, NULL, link_info->keep_memory));
3455 if (internal_relocs == NULL)
3456 goto error_return;
3457
3458 irelend = internal_relocs + sec->reloc_count;
3459
3460 while (addr < sec->size)
3461 {
3462 toaddr = sec->size;
3463
3464 for (irel = internal_relocs; irel < irelend; irel ++)
3465 if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_ALIGN
3466 && irel->r_offset > addr
3467 && irel->r_offset < toaddr)
3468 toaddr = irel->r_offset;
3469
3470 #ifdef DEBUG_RELAX
3471 fprintf (stderr, "relax region 0x%x to 0x%x align pad %d\n",
3472 addr, toaddr, align_pad_size);
3473 #endif
3474 if (irelalign)
3475 {
3476 bfd_vma alignto;
3477 bfd_vma alignmoveto;
3478
3479 alignmoveto = BFD_ALIGN (addr - align_pad_size, 1 << irelalign->r_addend);
3480 alignto = BFD_ALIGN (addr, 1 << irelalign->r_addend);
3481
3482 if (alignmoveto < alignto)
3483 {
3484 bfd_vma i;
3485
3486 align_pad_size = alignto - alignmoveto;
3487 #ifdef DEBUG_RELAX
3488 fprintf (stderr, "relax move region 0x%x to 0x%x delete size 0x%x\n",
3489 alignmoveto, toaddr, align_pad_size);
3490 #endif
3491 if (!v850_elf_relax_delete_bytes (abfd, sec, alignmoveto,
3492 toaddr, align_pad_size))
3493 goto error_return;
3494
3495 for (i = BFD_ALIGN (toaddr - align_pad_size, 1);
3496 (i + 1) < toaddr; i += 2)
3497 bfd_put_16 (abfd, NOP_OPCODE, contents + i);
3498
3499 addr = alignmoveto;
3500 }
3501 else
3502 align_pad_size = 0;
3503 }
3504
3505 for (irel = internal_relocs; irel < irelend; irel++)
3506 {
3507 bfd_vma laddr;
3508 bfd_vma addend;
3509 bfd_vma symval;
3510 int insn[5];
3511 int no_match = -1;
3512 Elf_Internal_Rela *hi_irelfn;
3513 Elf_Internal_Rela *lo_irelfn;
3514 Elf_Internal_Rela *irelcall;
3515 bfd_signed_vma foff;
3516 unsigned int r_type;
3517
3518 if (! (irel->r_offset >= addr && irel->r_offset < toaddr
3519 && (ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGCALL
3520 || ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGJUMP)))
3521 continue;
3522
3523 #ifdef DEBUG_RELAX
3524 fprintf (stderr, "relax check r_info 0x%x r_offset 0x%x r_addend 0x%x\n",
3525 irel->r_info,
3526 irel->r_offset,
3527 irel->r_addend );
3528 #endif
3529
3530 /* Get the section contents. */
3531 if (contents == NULL)
3532 {
3533 if (elf_section_data (sec)->this_hdr.contents != NULL)
3534 contents = elf_section_data (sec)->this_hdr.contents;
3535 else
3536 {
3537 if (! bfd_malloc_and_get_section (abfd, sec, &contents))
3538 goto error_return;
3539 }
3540 }
3541
3542 /* Read this BFD's local symbols if we haven't done so already. */
3543 if (isymbuf == NULL && symtab_hdr->sh_info != 0)
3544 {
3545 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
3546 if (isymbuf == NULL)
3547 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
3548 symtab_hdr->sh_info, 0,
3549 NULL, NULL, NULL);
3550 if (isymbuf == NULL)
3551 goto error_return;
3552 }
3553
3554 laddr = irel->r_offset;
3555
3556 if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGCALL)
3557 {
3558 /* Check code for -mlong-calls output. */
3559 if (laddr + 16 <= (bfd_vma) sec->size)
3560 {
3561 insn[0] = bfd_get_16 (abfd, contents + laddr);
3562 insn[1] = bfd_get_16 (abfd, contents + laddr + 4);
3563 insn[2] = bfd_get_32 (abfd, contents + laddr + 8);
3564 insn[3] = bfd_get_16 (abfd, contents + laddr + 12);
3565 insn[4] = bfd_get_16 (abfd, contents + laddr + 14);
3566
3567 if ((insn[0] & MOVHI_MASK) != MOVHI
3568 || MOVHI_R1 (insn[0]) != 0)
3569 no_match = 0;
3570
3571 if (no_match < 0
3572 && ((insn[1] & MOVEA_MASK) != MOVEA
3573 || MOVHI_R2 (insn[0]) != MOVEA_R1 (insn[1])))
3574 no_match = 1;
3575
3576 if (no_match < 0
3577 && (insn[2] & JARL_4_MASK) != JARL_4)
3578 no_match = 2;
3579
3580 if (no_match < 0
3581 && ((insn[3] & ADD_I_MASK) != ADD_I
3582 || ADD_I5 (insn[3]) != 4
3583 || JARL_R2 (insn[2]) != ADD_R2 (insn[3])))
3584 no_match = 3;
3585
3586 if (no_match < 0
3587 && ((insn[4] & JMP_R_MASK) != JMP_R
3588 || MOVEA_R2 (insn[1]) != JMP_R1 (insn[4])))
3589 no_match = 4;
3590 }
3591 else
3592 {
3593 ((*_bfd_error_handler)
3594 ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized insns",
3595 bfd_get_filename (abfd), (unsigned long) irel->r_offset));
3596
3597 continue;
3598 }
3599
3600 if (no_match >= 0)
3601 {
3602 ((*_bfd_error_handler)
3603 ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized insn 0x%x",
3604 bfd_get_filename (abfd), (unsigned long) irel->r_offset+no_match, insn[no_match]));
3605
3606 continue;
3607 }
3608
3609 /* Get the reloc for the address from which the register is
3610 being loaded. This reloc will tell us which function is
3611 actually being called. */
3612
3613 for (hi_irelfn = internal_relocs; hi_irelfn < irelend; hi_irelfn ++)
3614 {
3615 r_type = ELF32_R_TYPE (hi_irelfn->r_info);
3616
3617 if (hi_irelfn->r_offset == laddr + 2
3618 && (r_type == (int) R_V850_HI16_S || r_type == (int) R_V810_WHI1))
3619 break;
3620 }
3621
3622 for (lo_irelfn = internal_relocs; lo_irelfn < irelend; lo_irelfn ++)
3623 {
3624 r_type = ELF32_R_TYPE (lo_irelfn->r_info);
3625
3626 if (lo_irelfn->r_offset == laddr + 6
3627 && (r_type == (int) R_V850_LO16 || r_type == (int) R_V810_WLO))
3628 break;
3629 }
3630
3631 for (irelcall = internal_relocs; irelcall < irelend; irelcall ++)
3632 {
3633 r_type = ELF32_R_TYPE (irelcall->r_info);
3634
3635 if (irelcall->r_offset == laddr + 8
3636 && (r_type == (int) R_V850_22_PCREL || r_type == (int) R_V850_PCR22))
3637 break;
3638 }
3639
3640 if ( hi_irelfn == irelend
3641 || lo_irelfn == irelend
3642 || irelcall == irelend)
3643 {
3644 ((*_bfd_error_handler)
3645 ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized reloc",
3646 bfd_get_filename (abfd), (unsigned long) irel->r_offset ));
3647
3648 continue;
3649 }
3650
3651 if (ELF32_R_SYM (irelcall->r_info) < symtab_hdr->sh_info)
3652 {
3653 Elf_Internal_Sym * isym;
3654
3655 /* A local symbol. */
3656 isym = isymbuf + ELF32_R_SYM (irelcall->r_info);
3657
3658 symval = isym->st_value;
3659 }
3660 else
3661 {
3662 unsigned long indx;
3663 struct elf_link_hash_entry * h;
3664
3665 /* An external symbol. */
3666 indx = ELF32_R_SYM (irelcall->r_info) - symtab_hdr->sh_info;
3667 h = elf_sym_hashes (abfd)[indx];
3668 BFD_ASSERT (h != NULL);
3669
3670 if ( h->root.type != bfd_link_hash_defined
3671 && h->root.type != bfd_link_hash_defweak)
3672 /* This appears to be a reference to an undefined
3673 symbol. Just ignore it--it will be caught by the
3674 regular reloc processing. */
3675 continue;
3676
3677 symval = h->root.u.def.value;
3678 }
3679
3680 if (symval + irelcall->r_addend != irelcall->r_offset + 4)
3681 {
3682 ((*_bfd_error_handler)
3683 ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized reloc 0x%lx",
3684 bfd_get_filename (abfd), (unsigned long) irel->r_offset, irelcall->r_offset ));
3685
3686 continue;
3687 }
3688
3689 /* Get the value of the symbol referred to by the reloc. */
3690 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
3691 {
3692 Elf_Internal_Sym *isym;
3693 asection *sym_sec;
3694
3695 /* A local symbol. */
3696 isym = isymbuf + ELF32_R_SYM (hi_irelfn->r_info);
3697
3698 if (isym->st_shndx == SHN_UNDEF)
3699 sym_sec = bfd_und_section_ptr;
3700 else if (isym->st_shndx == SHN_ABS)
3701 sym_sec = bfd_abs_section_ptr;
3702 else if (isym->st_shndx == SHN_COMMON)
3703 sym_sec = bfd_com_section_ptr;
3704 else
3705 sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
3706 symval = (isym->st_value
3707 + sym_sec->output_section->vma
3708 + sym_sec->output_offset);
3709 }
3710 else
3711 {
3712 unsigned long indx;
3713 struct elf_link_hash_entry *h;
3714
3715 /* An external symbol. */
3716 indx = ELF32_R_SYM (hi_irelfn->r_info) - symtab_hdr->sh_info;
3717 h = elf_sym_hashes (abfd)[indx];
3718 BFD_ASSERT (h != NULL);
3719
3720 if ( h->root.type != bfd_link_hash_defined
3721 && h->root.type != bfd_link_hash_defweak)
3722 /* This appears to be a reference to an undefined
3723 symbol. Just ignore it--it will be caught by the
3724 regular reloc processing. */
3725 continue;
3726
3727 symval = (h->root.u.def.value
3728 + h->root.u.def.section->output_section->vma
3729 + h->root.u.def.section->output_offset);
3730 }
3731
3732 addend = irel->r_addend;
3733
3734 foff = (symval + addend
3735 - (irel->r_offset
3736 + sec->output_section->vma
3737 + sec->output_offset
3738 + 4));
3739 #ifdef DEBUG_RELAX
3740 fprintf (stderr, "relax longcall r_offset 0x%x ptr 0x%x symbol 0x%x addend 0x%x distance 0x%x\n",
3741 irel->r_offset,
3742 (irel->r_offset
3743 + sec->output_section->vma
3744 + sec->output_offset),
3745 symval, addend, foff);
3746 #endif
3747
3748 if (foff < -0x100000 || foff >= 0x100000)
3749 /* After all that work, we can't shorten this function call. */
3750 continue;
3751
3752 /* For simplicity of coding, we are going to modify the section
3753 contents, the section relocs, and the BFD symbol table. We
3754 must tell the rest of the code not to free up this
3755 information. It would be possible to instead create a table
3756 of changes which have to be made, as is done in coff-mips.c;
3757 that would be more work, but would require less memory when
3758 the linker is run. */
3759 elf_section_data (sec)->relocs = internal_relocs;
3760 elf_section_data (sec)->this_hdr.contents = contents;
3761 symtab_hdr->contents = (bfd_byte *) isymbuf;
3762
3763 /* Replace the long call with a jarl. */
3764 if (bfd_get_arch (abfd) == bfd_arch_v850_rh850)
3765 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_PCR22);
3766 else
3767 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_22_PCREL);
3768
3769 addend = 0;
3770
3771 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
3772 /* If this needs to be changed because of future relaxing,
3773 it will be handled here like other internal IND12W
3774 relocs. */
3775 bfd_put_32 (abfd,
3776 0x00000780 | (JARL_R2 (insn[2])<<11) | ((addend << 16) & 0xffff) | ((addend >> 16) & 0xf),
3777 contents + irel->r_offset);
3778 else
3779 /* We can't fully resolve this yet, because the external
3780 symbol value may be changed by future relaxing.
3781 We let the final link phase handle it. */
3782 bfd_put_32 (abfd, 0x00000780 | (JARL_R2 (insn[2])<<11),
3783 contents + irel->r_offset);
3784
3785 hi_irelfn->r_info =
3786 ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_NONE);
3787 lo_irelfn->r_info =
3788 ELF32_R_INFO (ELF32_R_SYM (lo_irelfn->r_info), R_V850_NONE);
3789 irelcall->r_info =
3790 ELF32_R_INFO (ELF32_R_SYM (irelcall->r_info), R_V850_NONE);
3791
3792 if (! v850_elf_relax_delete_bytes (abfd, sec,
3793 irel->r_offset + 4, toaddr, 12))
3794 goto error_return;
3795
3796 align_pad_size += 12;
3797 }
3798 else if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGJUMP)
3799 {
3800 /* Check code for -mlong-jumps output. */
3801 if (laddr + 10 <= (bfd_vma) sec->size)
3802 {
3803 insn[0] = bfd_get_16 (abfd, contents + laddr);
3804 insn[1] = bfd_get_16 (abfd, contents + laddr + 4);
3805 insn[2] = bfd_get_16 (abfd, contents + laddr + 8);
3806
3807 if ((insn[0] & MOVHI_MASK) != MOVHI
3808 || MOVHI_R1 (insn[0]) != 0)
3809 no_match = 0;
3810
3811 if (no_match < 0
3812 && ((insn[1] & MOVEA_MASK) != MOVEA
3813 || MOVHI_R2 (insn[0]) != MOVEA_R1 (insn[1])))
3814 no_match = 1;
3815
3816 if (no_match < 0
3817 && ((insn[2] & JMP_R_MASK) != JMP_R
3818 || MOVEA_R2 (insn[1]) != JMP_R1 (insn[2])))
3819 no_match = 4;
3820 }
3821 else
3822 {
3823 ((*_bfd_error_handler)
3824 ("%s: 0x%lx: warning: R_V850_LONGJUMP points to unrecognized insns",
3825 bfd_get_filename (abfd), (unsigned long) irel->r_offset));
3826
3827 continue;
3828 }
3829
3830 if (no_match >= 0)
3831 {
3832 ((*_bfd_error_handler)
3833 ("%s: 0x%lx: warning: R_V850_LONGJUMP points to unrecognized insn 0x%x",
3834 bfd_get_filename (abfd), (unsigned long) irel->r_offset+no_match, insn[no_match]));
3835
3836 continue;
3837 }
3838
3839 /* Get the reloc for the address from which the register is
3840 being loaded. This reloc will tell us which function is
3841 actually being called. */
3842 for (hi_irelfn = internal_relocs; hi_irelfn < irelend; hi_irelfn ++)
3843 {
3844 r_type = ELF32_R_TYPE (hi_irelfn->r_info);
3845
3846 if (hi_irelfn->r_offset == laddr + 2
3847 && ((r_type == (int) R_V850_HI16_S) || r_type == (int) R_V810_WHI1))
3848 break;
3849 }
3850
3851 for (lo_irelfn = internal_relocs; lo_irelfn < irelend; lo_irelfn ++)
3852 {
3853 r_type = ELF32_R_TYPE (lo_irelfn->r_info);
3854
3855 if (lo_irelfn->r_offset == laddr + 6
3856 && (r_type == (int) R_V850_LO16 || r_type == (int) R_V810_WLO))
3857 break;
3858 }
3859
3860 if ( hi_irelfn == irelend
3861 || lo_irelfn == irelend)
3862 {
3863 ((*_bfd_error_handler)
3864 ("%s: 0x%lx: warning: R_V850_LONGJUMP points to unrecognized reloc",
3865 bfd_get_filename (abfd), (unsigned long) irel->r_offset ));
3866
3867 continue;
3868 }
3869
3870 /* Get the value of the symbol referred to by the reloc. */
3871 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
3872 {
3873 Elf_Internal_Sym * isym;
3874 asection * sym_sec;
3875
3876 /* A local symbol. */
3877 isym = isymbuf + ELF32_R_SYM (hi_irelfn->r_info);
3878
3879 if (isym->st_shndx == SHN_UNDEF)
3880 sym_sec = bfd_und_section_ptr;
3881 else if (isym->st_shndx == SHN_ABS)
3882 sym_sec = bfd_abs_section_ptr;
3883 else if (isym->st_shndx == SHN_COMMON)
3884 sym_sec = bfd_com_section_ptr;
3885 else
3886 sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
3887 symval = (isym->st_value
3888 + sym_sec->output_section->vma
3889 + sym_sec->output_offset);
3890 #ifdef DEBUG_RELAX
3891 {
3892 char * name = bfd_elf_string_from_elf_section
3893 (abfd, symtab_hdr->sh_link, isym->st_name);
3894
3895 fprintf (stderr, "relax long jump local: sec: %s, sym: %s (%d), value: %x + %x + %x addend %x\n",
3896 sym_sec->name, name, isym->st_name,
3897 sym_sec->output_section->vma,
3898 sym_sec->output_offset,
3899 isym->st_value, irel->r_addend);
3900 }
3901 #endif
3902 }
3903 else
3904 {
3905 unsigned long indx;
3906 struct elf_link_hash_entry * h;
3907
3908 /* An external symbol. */
3909 indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
3910 h = elf_sym_hashes (abfd)[indx];
3911 BFD_ASSERT (h != NULL);
3912
3913 if ( h->root.type != bfd_link_hash_defined
3914 && h->root.type != bfd_link_hash_defweak)
3915 /* This appears to be a reference to an undefined
3916 symbol. Just ignore it--it will be caught by the
3917 regular reloc processing. */
3918 continue;
3919
3920 symval = (h->root.u.def.value
3921 + h->root.u.def.section->output_section->vma
3922 + h->root.u.def.section->output_offset);
3923 #ifdef DEBUG_RELAX
3924 fprintf (stderr,
3925 "relax longjump defined: sec: %s, name: %s, value: %x + %x + %x addend %x\n",
3926 sec->name, h->root.root.string, h->root.u.def.value,
3927 sec->output_section->vma, sec->output_offset, irel->r_addend);
3928 #endif
3929 }
3930
3931 addend = irel->r_addend;
3932
3933 foff = (symval + addend
3934 - (irel->r_offset
3935 + sec->output_section->vma
3936 + sec->output_offset
3937 + 4));
3938 #ifdef DEBUG_RELAX
3939 fprintf (stderr, "relax longjump r_offset 0x%x ptr 0x%x symbol 0x%x addend 0x%x distance 0x%x\n",
3940 irel->r_offset,
3941 (irel->r_offset
3942 + sec->output_section->vma
3943 + sec->output_offset),
3944 symval, addend, foff);
3945 #endif
3946 if (foff < -0x100000 || foff >= 0x100000)
3947 /* After all that work, we can't shorten this function call. */
3948 continue;
3949
3950 /* For simplicity of coding, we are going to modify the section
3951 contents, the section relocs, and the BFD symbol table. We
3952 must tell the rest of the code not to free up this
3953 information. It would be possible to instead create a table
3954 of changes which have to be made, as is done in coff-mips.c;
3955 that would be more work, but would require less memory when
3956 the linker is run. */
3957 elf_section_data (sec)->relocs = internal_relocs;
3958 elf_section_data (sec)->this_hdr.contents = contents;
3959 symtab_hdr->contents = (bfd_byte *) isymbuf;
3960
3961 if (foff < -0x100 || foff >= 0x100)
3962 {
3963 /* Replace the long jump with a jr. */
3964
3965 if (bfd_get_arch (abfd) == bfd_arch_v850_rh850)
3966 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info), R_V850_PCR22);
3967 else
3968 irel->r_info =
3969 ELF32_R_INFO (ELF32_R_SYM (irel->r_info), R_V850_22_PCREL);
3970
3971 irel->r_addend = addend;
3972 addend = 0;
3973
3974 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
3975 /* If this needs to be changed because of future relaxing,
3976 it will be handled here like other internal IND12W
3977 relocs. */
3978 bfd_put_32 (abfd,
3979 0x00000780 | ((addend << 15) & 0xffff0000) | ((addend >> 17) & 0xf),
3980 contents + irel->r_offset);
3981 else
3982 /* We can't fully resolve this yet, because the external
3983 symbol value may be changed by future relaxing.
3984 We let the final link phase handle it. */
3985 bfd_put_32 (abfd, 0x00000780, contents + irel->r_offset);
3986
3987 hi_irelfn->r_info =
3988 ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_NONE);
3989 lo_irelfn->r_info =
3990 ELF32_R_INFO (ELF32_R_SYM (lo_irelfn->r_info), R_V850_NONE);
3991 if (!v850_elf_relax_delete_bytes (abfd, sec,
3992 irel->r_offset + 4, toaddr, 6))
3993 goto error_return;
3994
3995 align_pad_size += 6;
3996 }
3997 else
3998 {
3999 /* Replace the long jump with a br. */
4000
4001 if (bfd_get_arch (abfd) == bfd_arch_v850_rh850)
4002 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info), R_V850_PC9);
4003 else
4004 irel->r_info =
4005 ELF32_R_INFO (ELF32_R_SYM (irel->r_info), R_V850_9_PCREL);
4006
4007 irel->r_addend = addend;
4008 addend = 0;
4009
4010 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
4011 /* If this needs to be changed because of future relaxing,
4012 it will be handled here like other internal IND12W
4013 relocs. */
4014 bfd_put_16 (abfd,
4015 0x0585 | ((addend << 10) & 0xf800) | ((addend << 3) & 0x0070),
4016 contents + irel->r_offset);
4017 else
4018 /* We can't fully resolve this yet, because the external
4019 symbol value may be changed by future relaxing.
4020 We let the final link phase handle it. */
4021 bfd_put_16 (abfd, 0x0585, contents + irel->r_offset);
4022
4023 hi_irelfn->r_info =
4024 ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_NONE);
4025 lo_irelfn->r_info =
4026 ELF32_R_INFO (ELF32_R_SYM (lo_irelfn->r_info), R_V850_NONE);
4027 if (!v850_elf_relax_delete_bytes (abfd, sec,
4028 irel->r_offset + 2, toaddr, 8))
4029 goto error_return;
4030
4031 align_pad_size += 8;
4032 }
4033 }
4034 }
4035
4036 irelalign = NULL;
4037 for (irel = internal_relocs; irel < irelend; irel++)
4038 {
4039 if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_ALIGN
4040 && irel->r_offset == toaddr)
4041 {
4042 irel->r_offset -= align_pad_size;
4043
4044 if (irelalign == NULL || irelalign->r_addend > irel->r_addend)
4045 irelalign = irel;
4046 }
4047 }
4048
4049 addr = toaddr;
4050 }
4051
4052 if (!irelalign)
4053 {
4054 #ifdef DEBUG_RELAX
4055 fprintf (stderr, "relax pad %d shorten %d -> %d\n",
4056 align_pad_size,
4057 sec->size,
4058 sec->size - align_pad_size);
4059 #endif
4060 sec->size -= align_pad_size;
4061 }
4062
4063 finish:
4064 if (internal_relocs != NULL
4065 && elf_section_data (sec)->relocs != internal_relocs)
4066 free (internal_relocs);
4067
4068 if (contents != NULL
4069 && elf_section_data (sec)->this_hdr.contents != (unsigned char *) contents)
4070 free (contents);
4071
4072 if (isymbuf != NULL
4073 && symtab_hdr->contents != (bfd_byte *) isymbuf)
4074 free (isymbuf);
4075
4076 return result;
4077
4078 error_return:
4079 result = FALSE;
4080 goto finish;
4081 }
4082
4083 static const struct bfd_elf_special_section v850_elf_special_sections[] =
4084 {
4085 { STRING_COMMA_LEN (".call_table_data"), 0, SHT_PROGBITS, (SHF_ALLOC + SHF_WRITE) },
4086 { STRING_COMMA_LEN (".call_table_text"), 0, SHT_PROGBITS, (SHF_ALLOC + SHF_WRITE
4087 + SHF_EXECINSTR) },
4088 { STRING_COMMA_LEN (".rosdata"), -2, SHT_PROGBITS, (SHF_ALLOC
4089 + SHF_V850_GPREL) },
4090 { STRING_COMMA_LEN (".rozdata"), -2, SHT_PROGBITS, (SHF_ALLOC
4091 + SHF_V850_R0REL) },
4092 { STRING_COMMA_LEN (".sbss"), -2, SHT_NOBITS, (SHF_ALLOC + SHF_WRITE
4093 + SHF_V850_GPREL) },
4094 { STRING_COMMA_LEN (".scommon"), -2, SHT_V850_SCOMMON, (SHF_ALLOC + SHF_WRITE
4095 + SHF_V850_GPREL) },
4096 { STRING_COMMA_LEN (".sdata"), -2, SHT_PROGBITS, (SHF_ALLOC + SHF_WRITE
4097 + SHF_V850_GPREL) },
4098 { STRING_COMMA_LEN (".tbss"), -2, SHT_NOBITS, (SHF_ALLOC + SHF_WRITE
4099 + SHF_V850_EPREL) },
4100 { STRING_COMMA_LEN (".tcommon"), -2, SHT_V850_TCOMMON, (SHF_ALLOC + SHF_WRITE
4101 + SHF_V850_R0REL) },
4102 { STRING_COMMA_LEN (".tdata"), -2, SHT_PROGBITS, (SHF_ALLOC + SHF_WRITE
4103 + SHF_V850_EPREL) },
4104 { STRING_COMMA_LEN (".zbss"), -2, SHT_NOBITS, (SHF_ALLOC + SHF_WRITE
4105 + SHF_V850_R0REL) },
4106 { STRING_COMMA_LEN (".zcommon"), -2, SHT_V850_ZCOMMON, (SHF_ALLOC + SHF_WRITE
4107 + SHF_V850_R0REL) },
4108 { STRING_COMMA_LEN (".zdata"), -2, SHT_PROGBITS, (SHF_ALLOC + SHF_WRITE
4109 + SHF_V850_R0REL) },
4110 { NULL, 0, 0, 0, 0 }
4111 };
4112
4113 #define TARGET_LITTLE_SYM v850_elf32_vec
4114 #define TARGET_LITTLE_NAME "elf32-v850"
4115 #define ELF_ARCH bfd_arch_v850
4116 #define ELF_MACHINE_CODE EM_V850
4117 #define ELF_MACHINE_ALT1 EM_CYGNUS_V850
4118 #define ELF_MAXPAGESIZE 0x1000
4119
4120 #define elf_info_to_howto v850_elf_info_to_howto_rela
4121 #define elf_info_to_howto_rel v850_elf_info_to_howto_rel
4122
4123 #define elf_backend_check_relocs v850_elf_check_relocs
4124 #define elf_backend_relocate_section v850_elf_relocate_section
4125 #define elf_backend_object_p v850_elf_object_p
4126 #define elf_backend_final_write_processing v850_elf_final_write_processing
4127 #define elf_backend_section_from_bfd_section v850_elf_section_from_bfd_section
4128 #define elf_backend_symbol_processing v850_elf_symbol_processing
4129 #define elf_backend_add_symbol_hook v850_elf_add_symbol_hook
4130 #define elf_backend_link_output_symbol_hook v850_elf_link_output_symbol_hook
4131 #define elf_backend_section_from_shdr v850_elf_section_from_shdr
4132 #define elf_backend_fake_sections v850_elf_fake_sections
4133 #define elf_backend_gc_mark_hook v850_elf_gc_mark_hook
4134 #define elf_backend_special_sections v850_elf_special_sections
4135
4136 #define elf_backend_can_gc_sections 1
4137 #define elf_backend_rela_normal 1
4138
4139 #define bfd_elf32_bfd_is_local_label_name v850_elf_is_local_label_name
4140 #define bfd_elf32_bfd_is_target_special_symbol v850_elf_is_target_special_symbol
4141
4142 #define bfd_elf32_bfd_reloc_type_lookup v850_elf_reloc_type_lookup
4143 #define bfd_elf32_bfd_reloc_name_lookup v850_elf_reloc_name_lookup
4144 #define bfd_elf32_bfd_merge_private_bfd_data v850_elf_merge_private_bfd_data
4145 #define bfd_elf32_bfd_set_private_flags v850_elf_set_private_flags
4146 #define bfd_elf32_bfd_print_private_bfd_data v850_elf_print_private_bfd_data
4147 #define bfd_elf32_bfd_relax_section v850_elf_relax_section
4148
4149 #define elf_symbol_leading_char '_'
4150
4151 #undef elf32_bed
4152 #define elf32_bed elf32_v850_bed
4153
4154 #include "elf32-target.h"
4155
4156 /* Map BFD reloc types to V800 ELF reloc types. */
4157
4158 static const struct v850_elf_reloc_map v800_elf_reloc_map[] =
4159 {
4160 { BFD_RELOC_NONE, R_V810_NONE },
4161 { BFD_RELOC_8, R_V810_BYTE },
4162 { BFD_RELOC_16, R_V810_HWORD },
4163 { BFD_RELOC_32, R_V810_WORD },
4164 { BFD_RELOC_LO16, R_V810_WLO },
4165 { BFD_RELOC_HI16, R_V810_WHI },
4166 { BFD_RELOC_HI16_S, R_V810_WHI1 },
4167 { BFD_RELOC_V850_32_PCREL, R_V850_PC32 },
4168 { BFD_RELOC_V850_22_PCREL, R_V850_PCR22 },
4169 { BFD_RELOC_V850_17_PCREL, R_V850_PC17 },
4170 { BFD_RELOC_V850_16_PCREL, R_V850_PC16U },
4171 { BFD_RELOC_V850_9_PCREL, R_V850_PC9 },
4172 { BFD_RELOC_V850_LO16_S1, R_V810_WLO_1 }, /* Or R_V850_HWLO or R_V850_HWLO_1. */
4173 { BFD_RELOC_V850_23, R_V850_WLO23 },
4174 { BFD_RELOC_V850_LO16_SPLIT_OFFSET, R_V850_BLO },
4175 { BFD_RELOC_V850_ZDA_16_16_OFFSET, R_V810_HWORD },
4176 { BFD_RELOC_V850_TDA_16_16_OFFSET, R_V810_HWORD },
4177 { BFD_RELOC_V850_SDA_16_16_OFFSET, R_V810_HWORD },
4178 { BFD_RELOC_V850_SDA_15_16_OFFSET, R_V810_GPWLO_1 }
4179 };
4180
4181 /* Map a bfd relocation into the appropriate howto structure. */
4182
4183 static reloc_howto_type *
v800_elf_reloc_type_lookup(bfd * abfd,bfd_reloc_code_real_type code)4184 v800_elf_reloc_type_lookup (bfd * abfd, bfd_reloc_code_real_type code)
4185 {
4186 unsigned int i;
4187
4188 BFD_ASSERT (bfd_get_arch (abfd) == bfd_arch_v850_rh850);
4189
4190 for (i = ARRAY_SIZE (v800_elf_reloc_map); i --;)
4191 if (v800_elf_reloc_map[i].bfd_reloc_val == code)
4192 {
4193 unsigned int elf_reloc_val = v800_elf_reloc_map[i].elf_reloc_val;
4194 unsigned int idx = elf_reloc_val - R_V810_NONE;
4195
4196 BFD_ASSERT (v800_elf_howto_table[idx].type == elf_reloc_val);
4197
4198 return v800_elf_howto_table + idx;
4199 }
4200
4201 #ifdef DEBUG
4202 fprintf (stderr, "failed to find v800 equiv of bfd reloc code %d\n", code);
4203 #endif
4204 return NULL;
4205 }
4206
4207 static reloc_howto_type *
v800_elf_reloc_name_lookup(bfd * abfd,const char * r_name)4208 v800_elf_reloc_name_lookup (bfd * abfd, const char * r_name)
4209 {
4210 unsigned int i;
4211
4212 BFD_ASSERT (bfd_get_arch (abfd) == bfd_arch_v850_rh850);
4213
4214 for (i = ARRAY_SIZE (v800_elf_howto_table); i--;)
4215 if (v800_elf_howto_table[i].name != NULL
4216 && strcasecmp (v800_elf_howto_table[i].name, r_name) == 0)
4217 return v800_elf_howto_table + i;
4218
4219 return NULL;
4220 }
4221
4222
4223 /* Set the howto pointer in CACHE_PTR for a V800 ELF reloc. */
4224
4225 static void
v800_elf_info_to_howto(bfd * abfd,arelent * cache_ptr,Elf_Internal_Rela * dst)4226 v800_elf_info_to_howto (bfd * abfd,
4227 arelent * cache_ptr,
4228 Elf_Internal_Rela * dst)
4229 {
4230 unsigned int r_type = ELF32_R_TYPE (dst->r_info);
4231
4232 BFD_ASSERT (bfd_get_arch (abfd) == bfd_arch_v850_rh850);
4233
4234 BFD_ASSERT (r_type < (unsigned int) R_V800_max);
4235
4236 if (r_type == R_V800_NONE)
4237 r_type = R_V810_NONE;
4238
4239 BFD_ASSERT (r_type >= (unsigned int) R_V810_NONE);
4240 r_type -= R_V810_NONE;
4241 BFD_ASSERT (r_type < ARRAY_SIZE (v800_elf_howto_table));
4242
4243 cache_ptr->howto = v800_elf_howto_table + r_type;
4244 }
4245
4246 #undef TARGET_LITTLE_SYM
4247 #define TARGET_LITTLE_SYM v800_elf32_vec
4248 #undef TARGET_LITTLE_NAME
4249 #define TARGET_LITTLE_NAME "elf32-v850-rh850"
4250 #undef ELF_ARCH
4251 #define ELF_ARCH bfd_arch_v850_rh850
4252 #undef ELF_MACHINE_CODE
4253 #define ELF_MACHINE_CODE EM_V800
4254 #undef ELF_MACHINE_ALT1
4255
4256 #undef elf32_bed
4257 #define elf32_bed elf32_v850_rh850_bed
4258
4259 #undef elf_info_to_howto
4260 #define elf_info_to_howto v800_elf_info_to_howto
4261 #undef elf_info_to_howto_rel
4262 #define elf_info_to_howto_rel NULL
4263 #undef bfd_elf32_bfd_reloc_type_lookup
4264 #define bfd_elf32_bfd_reloc_type_lookup v800_elf_reloc_type_lookup
4265 #undef bfd_elf32_bfd_reloc_name_lookup
4266 #define bfd_elf32_bfd_reloc_name_lookup v800_elf_reloc_name_lookup
4267
4268 #include "elf32-target.h"
4269