projects / deliverable / binutils-gdb.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
PR ld/15323
[deliverable/binutils-gdb.git] / bfd / elf32-v850.c
1 /* V850-specific support for 32-bit ELF
2 Copyright 1996-2013 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
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 (info->relocatable)
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
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 *
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
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
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, "reloc number %d not recognised\n", 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 \f
813 /* Insert the addend into the instruction. */
814
815 static bfd_reloc_status_type
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
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 2, /* Size (0 = byte, 1 = short, 2 = long). */
899 32, /* Bitsize. */
900 FALSE, /* PC_relative. */
901 0, /* Bitpos. */
902 complain_overflow_bitfield, /* 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 \f
1852 /* Map a bfd relocation into the appropriate howto structure. */
1853
1854 static reloc_howto_type *
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 *
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 \f
1889 /* Set the howto pointer for an V850 ELF reloc. */
1890
1891 static void
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 BFD_ASSERT (r_type < (unsigned int) R_V850_max);
1900 cache_ptr->howto = &v850_elf_howto_table[r_type];
1901 }
1902
1903 /* Set the howto pointer for a V850 ELF reloc (type RELA). */
1904
1905 static void
1906 v850_elf_info_to_howto_rela (bfd *abfd ATTRIBUTE_UNUSED,
1907 arelent * cache_ptr,
1908 Elf_Internal_Rela *dst)
1909 {
1910 unsigned int r_type;
1911
1912 r_type = ELF32_R_TYPE (dst->r_info);
1913 BFD_ASSERT (r_type < (unsigned int) R_V850_max);
1914 cache_ptr->howto = &v850_elf_howto_table[r_type];
1915 }
1916 \f
1917 static bfd_boolean
1918 v850_elf_is_local_label_name (bfd *abfd ATTRIBUTE_UNUSED, const char *name)
1919 {
1920 return ( (name[0] == '.' && (name[1] == 'L' || name[1] == '.'))
1921 || (name[0] == '_' && name[1] == '.' && name[2] == 'L' && name[3] == '_'));
1922 }
1923 \f
1924 /* We overload some of the bfd_reloc error codes for own purposes. */
1925 #define bfd_reloc_gp_not_found bfd_reloc_other
1926 #define bfd_reloc_ep_not_found bfd_reloc_continue
1927 #define bfd_reloc_ctbp_not_found (bfd_reloc_dangerous + 1)
1928
1929 /* Perform a relocation as part of a final link. */
1930
1931 static bfd_reloc_status_type
1932 v850_elf_final_link_relocate (reloc_howto_type *howto,
1933 bfd *input_bfd,
1934 bfd *output_bfd ATTRIBUTE_UNUSED,
1935 asection *input_section,
1936 bfd_byte *contents,
1937 bfd_vma offset,
1938 bfd_vma value,
1939 bfd_vma addend,
1940 struct bfd_link_info *info,
1941 asection *sym_sec,
1942 int is_local ATTRIBUTE_UNUSED)
1943 {
1944 unsigned int r_type = howto->type;
1945 bfd_byte *hit_data = contents + offset;
1946
1947 /* Adjust the value according to the relocation. */
1948 switch (r_type)
1949 {
1950 case R_V850_PC9:
1951 case R_V850_9_PCREL:
1952 value -= (input_section->output_section->vma
1953 + input_section->output_offset);
1954 value -= offset;
1955 break;
1956
1957 case R_V850_PC16U:
1958 case R_V850_16_PCREL:
1959 value -= (input_section->output_section->vma
1960 + input_section->output_offset
1961 + offset);
1962
1963 /* If the sign extension will corrupt the value then we have overflowed. */
1964 if ((value & 0xffff0000) != 0xffff0000)
1965 return bfd_reloc_overflow;
1966
1967 break;
1968
1969 case R_V850_PC17:
1970 case R_V850_17_PCREL:
1971 value -= (input_section->output_section->vma
1972 + input_section->output_offset
1973 + offset);
1974
1975 /* If the sign extension will corrupt the value then we have overflowed. */
1976 if (((value & 0xffff0000) != 0x0) && ((value & 0xffff0000) != 0xffff0000))
1977 return bfd_reloc_overflow;
1978
1979 value = SEXT17 (value);
1980 break;
1981
1982 case R_V850_PCR22:
1983 case R_V850_22_PCREL:
1984 value -= (input_section->output_section->vma
1985 + input_section->output_offset
1986 + offset);
1987
1988 /* If the sign extension will corrupt the value then we have overflowed. */
1989 if (((value & 0xffe00000) != 0x0) && ((value & 0xffe00000) != 0xffe00000))
1990 return bfd_reloc_overflow;
1991
1992 /* Only the bottom 22 bits of the PC are valid. */
1993 value = SEXT22 (value);
1994 break;
1995
1996 case R_V850_PC32:
1997 case R_V850_32_PCREL:
1998 value -= (input_section->output_section->vma
1999 + input_section->output_offset
2000 + offset);
2001 break;
2002
2003 case R_V850_32_ABS:
2004 case R_V850_23:
2005 case R_V850_HI16_S:
2006 case R_V850_HI16:
2007 case R_V850_LO16:
2008 case R_V850_LO16_S1:
2009 case R_V850_LO16_SPLIT_OFFSET:
2010 case R_V850_16:
2011 case R_V850_ABS32:
2012 case R_V850_8:
2013 case R_V810_BYTE:
2014 case R_V810_HWORD:
2015 case R_V810_WORD:
2016 case R_V810_WLO:
2017 case R_V810_WHI:
2018 case R_V810_WHI1:
2019 case R_V810_WLO_1:
2020 case R_V850_WLO23:
2021 case R_V850_BLO:
2022 break;
2023
2024 case R_V850_ZDA_15_16_OFFSET:
2025 case R_V850_ZDA_16_16_OFFSET:
2026 case R_V850_ZDA_16_16_SPLIT_OFFSET:
2027 if (sym_sec == NULL)
2028 return bfd_reloc_undefined;
2029
2030 value -= sym_sec->output_section->vma;
2031 break;
2032
2033 case R_V850_SDA_15_16_OFFSET:
2034 case R_V850_SDA_16_16_OFFSET:
2035 case R_V850_SDA_16_16_SPLIT_OFFSET:
2036 case R_V810_GPWLO_1:
2037 {
2038 unsigned long gp;
2039 struct bfd_link_hash_entry * h;
2040
2041 if (sym_sec == NULL)
2042 return bfd_reloc_undefined;
2043
2044 /* Get the value of __gp. */
2045 h = bfd_link_hash_lookup (info->hash, "__gp", FALSE, FALSE, TRUE);
2046 if (h == NULL
2047 || h->type != bfd_link_hash_defined)
2048 return bfd_reloc_gp_not_found;
2049
2050 gp = (h->u.def.value
2051 + h->u.def.section->output_section->vma
2052 + h->u.def.section->output_offset);
2053
2054 value -= sym_sec->output_section->vma;
2055 value -= (gp - sym_sec->output_section->vma);
2056 }
2057 break;
2058
2059 case R_V850_TDA_4_4_OFFSET:
2060 case R_V850_TDA_4_5_OFFSET:
2061 case R_V850_TDA_7_7_OFFSET:
2062 case R_V850_TDA_7_8_OFFSET:
2063 case R_V850_TDA_6_8_OFFSET:
2064 case R_V850_TDA_16_16_OFFSET:
2065 {
2066 unsigned long ep;
2067 struct bfd_link_hash_entry * h;
2068
2069 /* Get the value of __ep. */
2070 h = bfd_link_hash_lookup (info->hash, "__ep", FALSE, FALSE, TRUE);
2071 if (h == NULL
2072 || h->type != bfd_link_hash_defined)
2073 return bfd_reloc_ep_not_found;
2074
2075 ep = (h->u.def.value
2076 + h->u.def.section->output_section->vma
2077 + h->u.def.section->output_offset);
2078
2079 value -= ep;
2080 }
2081 break;
2082
2083 case R_V850_CALLT_6_7_OFFSET:
2084 {
2085 unsigned long ctbp;
2086 struct bfd_link_hash_entry * h;
2087
2088 /* Get the value of __ctbp. */
2089 h = bfd_link_hash_lookup (info->hash, "__ctbp", FALSE, FALSE, TRUE);
2090 if (h == NULL
2091 || h->type != bfd_link_hash_defined)
2092 return bfd_reloc_ctbp_not_found;
2093
2094 ctbp = (h->u.def.value
2095 + h->u.def.section->output_section->vma
2096 + h->u.def.section->output_offset);
2097 value -= ctbp;
2098 }
2099 break;
2100
2101 case R_V850_CALLT_15_16_OFFSET:
2102 case R_V850_CALLT_16_16_OFFSET:
2103 {
2104 unsigned long ctbp;
2105 struct bfd_link_hash_entry * h;
2106
2107 if (sym_sec == NULL)
2108 return bfd_reloc_undefined;
2109
2110 /* Get the value of __ctbp. */
2111 h = bfd_link_hash_lookup (info->hash, "__ctbp", FALSE, FALSE, TRUE);
2112 if (h == NULL
2113 || h->type != bfd_link_hash_defined)
2114 return bfd_reloc_ctbp_not_found;
2115
2116 ctbp = (h->u.def.value
2117 + h->u.def.section->output_section->vma
2118 + h->u.def.section->output_offset);
2119
2120 value -= sym_sec->output_section->vma;
2121 value -= (ctbp - sym_sec->output_section->vma);
2122 }
2123 break;
2124
2125 case R_V850_NONE:
2126 case R_V810_NONE:
2127 case R_V850_GNU_VTINHERIT:
2128 case R_V850_GNU_VTENTRY:
2129 case R_V850_LONGCALL:
2130 case R_V850_LONGJUMP:
2131 case R_V850_ALIGN:
2132 return bfd_reloc_ok;
2133
2134 default:
2135 #ifdef DEBUG
2136 fprintf (stderr, "reloc number %d not recognised\n", r_type);
2137 #endif
2138 return bfd_reloc_notsupported;
2139 }
2140
2141 /* Perform the relocation. */
2142 return v850_elf_perform_relocation (input_bfd, r_type, value + addend, hit_data);
2143 }
2144 \f
2145 /* Relocate an V850 ELF section. */
2146
2147 static bfd_boolean
2148 v850_elf_relocate_section (bfd *output_bfd,
2149 struct bfd_link_info *info,
2150 bfd *input_bfd,
2151 asection *input_section,
2152 bfd_byte *contents,
2153 Elf_Internal_Rela *relocs,
2154 Elf_Internal_Sym *local_syms,
2155 asection **local_sections)
2156 {
2157 Elf_Internal_Shdr *symtab_hdr;
2158 struct elf_link_hash_entry **sym_hashes;
2159 Elf_Internal_Rela *rel;
2160 Elf_Internal_Rela *relend;
2161
2162 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
2163 sym_hashes = elf_sym_hashes (input_bfd);
2164
2165 /* Reset the list of remembered HI16S relocs to empty. */
2166 free_hi16s = previous_hi16s;
2167 previous_hi16s = NULL;
2168 hi16s_counter = 0;
2169
2170 rel = relocs;
2171 relend = relocs + input_section->reloc_count;
2172 for (; rel < relend; rel++)
2173 {
2174 unsigned int r_type;
2175 reloc_howto_type *howto;
2176 unsigned long r_symndx;
2177 Elf_Internal_Sym *sym;
2178 asection *sec;
2179 struct elf_link_hash_entry *h;
2180 bfd_vma relocation;
2181 bfd_reloc_status_type r;
2182
2183 r_symndx = ELF32_R_SYM (rel->r_info);
2184 r_type = ELF32_R_TYPE (rel->r_info);
2185
2186 if (r_type == R_V850_GNU_VTENTRY
2187 || r_type == R_V850_GNU_VTINHERIT)
2188 continue;
2189
2190 if (bfd_get_arch (input_bfd) == bfd_arch_v850_rh850)
2191 howto = v800_elf_howto_table + (r_type - R_V810_NONE);
2192 else
2193 howto = v850_elf_howto_table + r_type;
2194
2195 BFD_ASSERT (r_type == howto->type);
2196
2197 h = NULL;
2198 sym = NULL;
2199 sec = NULL;
2200 if (r_symndx < symtab_hdr->sh_info)
2201 {
2202 sym = local_syms + r_symndx;
2203 sec = local_sections[r_symndx];
2204 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
2205 }
2206 else
2207 {
2208 bfd_boolean unresolved_reloc, warned;
2209
2210 /* Note - this check is delayed until now as it is possible and
2211 valid to have a file without any symbols but with relocs that
2212 can be processed. */
2213 if (sym_hashes == NULL)
2214 {
2215 info->callbacks->warning
2216 (info, "no hash table available",
2217 NULL, input_bfd, input_section, (bfd_vma) 0);
2218
2219 return FALSE;
2220 }
2221
2222 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
2223 r_symndx, symtab_hdr, sym_hashes,
2224 h, sec, relocation,
2225 unresolved_reloc, warned);
2226 }
2227
2228 if (sec != NULL && discarded_section (sec))
2229 RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
2230 rel, 1, relend, howto, 0, contents);
2231
2232 if (info->relocatable)
2233 continue;
2234
2235 /* FIXME: We should use the addend, but the COFF relocations don't. */
2236 r = v850_elf_final_link_relocate (howto, input_bfd, output_bfd,
2237 input_section,
2238 contents, rel->r_offset,
2239 relocation, rel->r_addend,
2240 info, sec, h == NULL);
2241
2242 if (r != bfd_reloc_ok)
2243 {
2244 const char * name;
2245 const char * msg = NULL;
2246
2247 if (h != NULL)
2248 name = h->root.root.string;
2249 else
2250 {
2251 name = (bfd_elf_string_from_elf_section
2252 (input_bfd, symtab_hdr->sh_link, sym->st_name));
2253 if (name == NULL || *name == '\0')
2254 name = bfd_section_name (input_bfd, sec);
2255 }
2256
2257 switch ((int) r)
2258 {
2259 case bfd_reloc_overflow:
2260 if (! ((*info->callbacks->reloc_overflow)
2261 (info, (h ? &h->root : NULL), name, howto->name,
2262 (bfd_vma) 0, input_bfd, input_section,
2263 rel->r_offset)))
2264 return FALSE;
2265 break;
2266
2267 case bfd_reloc_undefined:
2268 if (! ((*info->callbacks->undefined_symbol)
2269 (info, name, input_bfd, input_section,
2270 rel->r_offset, TRUE)))
2271 return FALSE;
2272 break;
2273
2274 case bfd_reloc_outofrange:
2275 msg = _("internal error: out of range error");
2276 goto common_error;
2277
2278 case bfd_reloc_notsupported:
2279 msg = _("internal error: unsupported relocation error");
2280 goto common_error;
2281
2282 case bfd_reloc_dangerous:
2283 msg = _("internal error: dangerous relocation");
2284 goto common_error;
2285
2286 case bfd_reloc_gp_not_found:
2287 msg = _("could not locate special linker symbol __gp");
2288 goto common_error;
2289
2290 case bfd_reloc_ep_not_found:
2291 msg = _("could not locate special linker symbol __ep");
2292 goto common_error;
2293
2294 case bfd_reloc_ctbp_not_found:
2295 msg = _("could not locate special linker symbol __ctbp");
2296 goto common_error;
2297
2298 default:
2299 msg = _("internal error: unknown error");
2300 /* fall through */
2301
2302 common_error:
2303 if (!((*info->callbacks->warning)
2304 (info, msg, name, input_bfd, input_section,
2305 rel->r_offset)))
2306 return FALSE;
2307 break;
2308 }
2309 }
2310 }
2311
2312 return TRUE;
2313 }
2314
2315 static asection *
2316 v850_elf_gc_mark_hook (asection *sec,
2317 struct bfd_link_info *info,
2318 Elf_Internal_Rela *rel,
2319 struct elf_link_hash_entry *h,
2320 Elf_Internal_Sym *sym)
2321 {
2322 if (h != NULL)
2323 switch (ELF32_R_TYPE (rel->r_info))
2324 {
2325 case R_V850_GNU_VTINHERIT:
2326 case R_V850_GNU_VTENTRY:
2327 return NULL;
2328 }
2329
2330 return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
2331 }
2332
2333 /* Set the right machine number and architecture. */
2334
2335 static bfd_boolean
2336 v850_elf_object_p (bfd *abfd)
2337 {
2338 enum bfd_architecture arch;
2339 unsigned long mach;
2340
2341 switch (elf_elfheader (abfd)->e_machine)
2342 {
2343 case EM_V800:
2344 arch = bfd_arch_v850_rh850;
2345 mach = (elf_elfheader (abfd)->e_flags & EF_V800_850E3)
2346 ? bfd_mach_v850e3v5 : bfd_mach_v850e2v3;
2347 break;
2348
2349 case EM_CYGNUS_V850:
2350 case EM_V850:
2351 arch = bfd_arch_v850;
2352 switch (elf_elfheader (abfd)->e_flags & EF_V850_ARCH)
2353 {
2354 default:
2355 case E_V850_ARCH: mach = bfd_mach_v850; break;
2356 case E_V850E_ARCH: mach = bfd_mach_v850e; break;
2357 case E_V850E1_ARCH: mach = bfd_mach_v850e1; break;
2358 case E_V850E2_ARCH: mach = bfd_mach_v850e2; break;
2359 case E_V850E2V3_ARCH: mach = bfd_mach_v850e2v3; break;
2360 case E_V850E3V5_ARCH: mach = bfd_mach_v850e3v5; break;
2361 }
2362 break;
2363
2364 default:
2365 return FALSE;
2366 }
2367
2368 return bfd_default_set_arch_mach (abfd, arch, mach);
2369 }
2370
2371 /* Store the machine number in the flags field. */
2372
2373 static void
2374 v850_elf_final_write_processing (bfd *abfd,
2375 bfd_boolean linker ATTRIBUTE_UNUSED)
2376 {
2377 unsigned long val;
2378
2379 switch (bfd_get_arch (abfd))
2380 {
2381 case bfd_arch_v850_rh850:
2382 val = EF_RH850_ABI;
2383 if (bfd_get_mach (abfd) == bfd_mach_v850e3v5)
2384 val |= EF_V800_850E3;
2385 elf_elfheader (abfd)->e_flags |= val;
2386 break;
2387
2388 case bfd_arch_v850:
2389 switch (bfd_get_mach (abfd))
2390 {
2391 default:
2392 case bfd_mach_v850: val = E_V850_ARCH; break;
2393 case bfd_mach_v850e: val = E_V850E_ARCH; break;
2394 case bfd_mach_v850e1: val = E_V850E1_ARCH; break;
2395 case bfd_mach_v850e2: val = E_V850E2_ARCH; break;
2396 case bfd_mach_v850e2v3: val = E_V850E2V3_ARCH; break;
2397 case bfd_mach_v850e3v5: val = E_V850E3V5_ARCH; break;
2398 }
2399 elf_elfheader (abfd)->e_flags &=~ EF_V850_ARCH;
2400 elf_elfheader (abfd)->e_flags |= val;
2401 break;
2402 default:
2403 break;
2404 }
2405 }
2406
2407 /* Function to keep V850 specific file flags. */
2408
2409 static bfd_boolean
2410 v850_elf_set_private_flags (bfd *abfd, flagword flags)
2411 {
2412 BFD_ASSERT (!elf_flags_init (abfd)
2413 || elf_elfheader (abfd)->e_flags == flags);
2414
2415 elf_elfheader (abfd)->e_flags = flags;
2416 elf_flags_init (abfd) = TRUE;
2417 return TRUE;
2418 }
2419
2420 /* Merge backend specific data from an object file
2421 to the output object file when linking. */
2422
2423 static bfd_boolean
2424 v850_elf_merge_private_bfd_data (bfd *ibfd, bfd *obfd)
2425 {
2426 flagword out_flags;
2427 flagword in_flags;
2428
2429 if ( bfd_get_flavour (ibfd) != bfd_target_elf_flavour
2430 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
2431 return TRUE;
2432
2433 in_flags = elf_elfheader (ibfd)->e_flags;
2434 out_flags = elf_elfheader (obfd)->e_flags;
2435
2436 if (! elf_flags_init (obfd))
2437 {
2438 /* If the input is the default architecture then do not
2439 bother setting the flags for the output architecture,
2440 instead allow future merges to do this. If no future
2441 merges ever set these flags then they will retain their
2442 unitialised values, which surprise surprise, correspond
2443 to the default values. */
2444 if (bfd_get_arch_info (ibfd)->the_default)
2445 return TRUE;
2446
2447 elf_flags_init (obfd) = TRUE;
2448 elf_elfheader (obfd)->e_flags = in_flags;
2449
2450 if (bfd_get_arch (obfd) == bfd_get_arch (ibfd)
2451 && bfd_get_arch_info (obfd)->the_default)
2452 return bfd_set_arch_mach (obfd, bfd_get_arch (ibfd), bfd_get_mach (ibfd));
2453
2454 return TRUE;
2455 }
2456
2457 /* Check flag compatibility. */
2458 if (in_flags == out_flags)
2459 return TRUE;
2460
2461 if (bfd_get_arch (obfd) == bfd_arch_v850_rh850)
2462 {
2463 if ((in_flags & EF_V800_850E3) != (out_flags & EF_V800_850E3))
2464 {
2465 _bfd_error_handler (_("%B: Architecture mismatch with previous modules"),
2466 ibfd);
2467 elf_elfheader (obfd)->e_flags |= EF_V800_850E3;
2468 }
2469
2470 if ((in_flags & EF_RH850_DATA_ALIGN8) != (out_flags & EF_RH850_DATA_ALIGN8))
2471 {
2472 _bfd_error_handler (_("%B: Alignment mismatch with previous modules"),
2473 ibfd);
2474 elf_elfheader (obfd)->e_flags |= EF_RH850_DATA_ALIGN8;
2475 }
2476
2477 return TRUE;
2478 }
2479
2480 if ((in_flags & EF_V850_ARCH) != (out_flags & EF_V850_ARCH)
2481 && (in_flags & EF_V850_ARCH) != E_V850_ARCH)
2482 {
2483 /* Allow earlier architecture binaries to be linked with later binaries.
2484 Set the output binary to the later architecture, except for v850e1,
2485 which we set to v850e. */
2486 if ( (in_flags & EF_V850_ARCH) == E_V850E1_ARCH
2487 && (out_flags & EF_V850_ARCH) == E_V850E_ARCH)
2488 return TRUE;
2489
2490 if ( (in_flags & EF_V850_ARCH) == E_V850_ARCH
2491 && (out_flags & EF_V850_ARCH) == E_V850E_ARCH)
2492 {
2493 elf_elfheader (obfd)->e_flags =
2494 ((out_flags & ~ EF_V850_ARCH) | E_V850E_ARCH);
2495 return TRUE;
2496 }
2497
2498 if (( (in_flags & EF_V850_ARCH) == E_V850_ARCH
2499 || (in_flags & EF_V850_ARCH) == E_V850E_ARCH)
2500 && (out_flags & EF_V850_ARCH) == E_V850E2_ARCH)
2501 {
2502 elf_elfheader (obfd)->e_flags =
2503 ((out_flags & ~ EF_V850_ARCH) | E_V850E2_ARCH);
2504 return TRUE;
2505 }
2506
2507 if (( (in_flags & EF_V850_ARCH) == E_V850_ARCH
2508 || (in_flags & EF_V850_ARCH) == E_V850E_ARCH
2509 || (in_flags & EF_V850_ARCH) == E_V850E2_ARCH)
2510 && (out_flags & EF_V850_ARCH) == E_V850E2V3_ARCH)
2511 {
2512 elf_elfheader (obfd)->e_flags =
2513 ((out_flags & ~ EF_V850_ARCH) | E_V850E2V3_ARCH);
2514 return TRUE;
2515 }
2516
2517 if (( (in_flags & EF_V850_ARCH) == E_V850_ARCH
2518 || (in_flags & EF_V850_ARCH) == E_V850E_ARCH
2519 || (in_flags & EF_V850_ARCH) == E_V850E2_ARCH
2520 || (in_flags & EF_V850_ARCH) == E_V850E2V3_ARCH)
2521 && (out_flags & EF_V850_ARCH) == E_V850E3V5_ARCH)
2522 {
2523 elf_elfheader (obfd)->e_flags =
2524 ((out_flags & ~ EF_V850_ARCH) | E_V850E3V5_ARCH);
2525 return TRUE;
2526 }
2527
2528 _bfd_error_handler (_("%B: Architecture mismatch with previous modules"),
2529 ibfd);
2530 }
2531
2532 return TRUE;
2533 }
2534
2535 /* Display the flags field. */
2536
2537 static bfd_boolean
2538 v850_elf_print_private_bfd_data (bfd *abfd, void * ptr)
2539 {
2540 FILE * file = (FILE *) ptr;
2541
2542 BFD_ASSERT (abfd != NULL && ptr != NULL);
2543
2544 _bfd_elf_print_private_bfd_data (abfd, ptr);
2545
2546 /* xgettext:c-format. */
2547 fprintf (file, _("private flags = %lx: "), elf_elfheader (abfd)->e_flags);
2548
2549 if (bfd_get_arch (abfd) == bfd_arch_v850_rh850)
2550 {
2551 if ((elf_elfheader (abfd)->e_flags & EF_RH850_ABI) != EF_RH850_ABI)
2552 fprintf (file, _("unknown v850 architecture"));
2553 else if (elf_elfheader (abfd)->e_flags & EF_V800_850E3)
2554 fprintf (file, _("v850 E3 architecture"));
2555 else
2556 fprintf (file, _("v850 architecture"));
2557
2558 if (elf_elfheader (abfd)->e_flags & EF_RH850_DATA_ALIGN8)
2559 fprintf (file, _(", 8-byte data alignment"));
2560 }
2561 else
2562 {
2563 switch (elf_elfheader (abfd)->e_flags & EF_V850_ARCH)
2564 {
2565 default:
2566 case E_V850_ARCH: fprintf (file, _("v850 architecture")); break;
2567 case E_V850E_ARCH: fprintf (file, _("v850e architecture")); break;
2568 case E_V850E1_ARCH: fprintf (file, _("v850e1 architecture")); break;
2569 case E_V850E2_ARCH: fprintf (file, _("v850e2 architecture")); break;
2570 case E_V850E2V3_ARCH: fprintf (file, _("v850e2v3 architecture")); break;
2571 case E_V850E3V5_ARCH: fprintf (file, _("v850e3v5 architecture")); break;
2572 }
2573 }
2574
2575 fputc ('\n', file);
2576
2577 return TRUE;
2578 }
2579
2580 /* V850 ELF uses four common sections. One is the usual one, and the
2581 others are for (small) objects in one of the special data areas:
2582 small, tiny and zero. All the objects are kept together, and then
2583 referenced via the gp register, the ep register or the r0 register
2584 respectively, which yields smaller, faster assembler code. This
2585 approach is copied from elf32-mips.c. */
2586
2587 static asection v850_elf_scom_section;
2588 static asymbol v850_elf_scom_symbol;
2589 static asymbol * v850_elf_scom_symbol_ptr;
2590 static asection v850_elf_tcom_section;
2591 static asymbol v850_elf_tcom_symbol;
2592 static asymbol * v850_elf_tcom_symbol_ptr;
2593 static asection v850_elf_zcom_section;
2594 static asymbol v850_elf_zcom_symbol;
2595 static asymbol * v850_elf_zcom_symbol_ptr;
2596
2597 /* Given a BFD section, try to locate the
2598 corresponding ELF section index. */
2599
2600 static bfd_boolean
2601 v850_elf_section_from_bfd_section (bfd *abfd ATTRIBUTE_UNUSED,
2602 asection *sec,
2603 int *retval)
2604 {
2605 if (strcmp (bfd_get_section_name (abfd, sec), ".scommon") == 0)
2606 *retval = SHN_V850_SCOMMON;
2607 else if (strcmp (bfd_get_section_name (abfd, sec), ".tcommon") == 0)
2608 *retval = SHN_V850_TCOMMON;
2609 else if (strcmp (bfd_get_section_name (abfd, sec), ".zcommon") == 0)
2610 *retval = SHN_V850_ZCOMMON;
2611 else
2612 return FALSE;
2613
2614 return TRUE;
2615 }
2616
2617 /* Handle the special V850 section numbers that a symbol may use. */
2618
2619 static void
2620 v850_elf_symbol_processing (bfd *abfd, asymbol *asym)
2621 {
2622 elf_symbol_type * elfsym = (elf_symbol_type *) asym;
2623 unsigned int indx;
2624
2625 indx = elfsym->internal_elf_sym.st_shndx;
2626
2627 /* If the section index is an "ordinary" index, then it may
2628 refer to a v850 specific section created by the assembler.
2629 Check the section's type and change the index it matches.
2630
2631 FIXME: Should we alter the st_shndx field as well ? */
2632
2633 if (indx < elf_numsections (abfd))
2634 switch (elf_elfsections (abfd)[indx]->sh_type)
2635 {
2636 case SHT_V850_SCOMMON:
2637 indx = SHN_V850_SCOMMON;
2638 break;
2639
2640 case SHT_V850_TCOMMON:
2641 indx = SHN_V850_TCOMMON;
2642 break;
2643
2644 case SHT_V850_ZCOMMON:
2645 indx = SHN_V850_ZCOMMON;
2646 break;
2647
2648 default:
2649 break;
2650 }
2651
2652 switch (indx)
2653 {
2654 case SHN_V850_SCOMMON:
2655 if (v850_elf_scom_section.name == NULL)
2656 {
2657 /* Initialize the small common section. */
2658 v850_elf_scom_section.name = ".scommon";
2659 v850_elf_scom_section.flags = SEC_IS_COMMON | SEC_ALLOC | SEC_DATA;
2660 v850_elf_scom_section.output_section = & v850_elf_scom_section;
2661 v850_elf_scom_section.symbol = & v850_elf_scom_symbol;
2662 v850_elf_scom_section.symbol_ptr_ptr = & v850_elf_scom_symbol_ptr;
2663 v850_elf_scom_symbol.name = ".scommon";
2664 v850_elf_scom_symbol.flags = BSF_SECTION_SYM;
2665 v850_elf_scom_symbol.section = & v850_elf_scom_section;
2666 v850_elf_scom_symbol_ptr = & v850_elf_scom_symbol;
2667 }
2668 asym->section = & v850_elf_scom_section;
2669 asym->value = elfsym->internal_elf_sym.st_size;
2670 break;
2671
2672 case SHN_V850_TCOMMON:
2673 if (v850_elf_tcom_section.name == NULL)
2674 {
2675 /* Initialize the tcommon section. */
2676 v850_elf_tcom_section.name = ".tcommon";
2677 v850_elf_tcom_section.flags = SEC_IS_COMMON;
2678 v850_elf_tcom_section.output_section = & v850_elf_tcom_section;
2679 v850_elf_tcom_section.symbol = & v850_elf_tcom_symbol;
2680 v850_elf_tcom_section.symbol_ptr_ptr = & v850_elf_tcom_symbol_ptr;
2681 v850_elf_tcom_symbol.name = ".tcommon";
2682 v850_elf_tcom_symbol.flags = BSF_SECTION_SYM;
2683 v850_elf_tcom_symbol.section = & v850_elf_tcom_section;
2684 v850_elf_tcom_symbol_ptr = & v850_elf_tcom_symbol;
2685 }
2686 asym->section = & v850_elf_tcom_section;
2687 asym->value = elfsym->internal_elf_sym.st_size;
2688 break;
2689
2690 case SHN_V850_ZCOMMON:
2691 if (v850_elf_zcom_section.name == NULL)
2692 {
2693 /* Initialize the zcommon section. */
2694 v850_elf_zcom_section.name = ".zcommon";
2695 v850_elf_zcom_section.flags = SEC_IS_COMMON;
2696 v850_elf_zcom_section.output_section = & v850_elf_zcom_section;
2697 v850_elf_zcom_section.symbol = & v850_elf_zcom_symbol;
2698 v850_elf_zcom_section.symbol_ptr_ptr = & v850_elf_zcom_symbol_ptr;
2699 v850_elf_zcom_symbol.name = ".zcommon";
2700 v850_elf_zcom_symbol.flags = BSF_SECTION_SYM;
2701 v850_elf_zcom_symbol.section = & v850_elf_zcom_section;
2702 v850_elf_zcom_symbol_ptr = & v850_elf_zcom_symbol;
2703 }
2704 asym->section = & v850_elf_zcom_section;
2705 asym->value = elfsym->internal_elf_sym.st_size;
2706 break;
2707 }
2708 }
2709
2710 /* Hook called by the linker routine which adds symbols from an object
2711 file. We must handle the special v850 section numbers here. */
2712
2713 static bfd_boolean
2714 v850_elf_add_symbol_hook (bfd *abfd,
2715 struct bfd_link_info *info ATTRIBUTE_UNUSED,
2716 Elf_Internal_Sym *sym,
2717 const char **namep ATTRIBUTE_UNUSED,
2718 flagword *flagsp ATTRIBUTE_UNUSED,
2719 asection **secp,
2720 bfd_vma *valp)
2721 {
2722 unsigned int indx = sym->st_shndx;
2723
2724 /* If the section index is an "ordinary" index, then it may
2725 refer to a v850 specific section created by the assembler.
2726 Check the section's type and change the index it matches.
2727
2728 FIXME: Should we alter the st_shndx field as well ? */
2729
2730 if (indx < elf_numsections (abfd))
2731 switch (elf_elfsections (abfd)[indx]->sh_type)
2732 {
2733 case SHT_V850_SCOMMON:
2734 indx = SHN_V850_SCOMMON;
2735 break;
2736
2737 case SHT_V850_TCOMMON:
2738 indx = SHN_V850_TCOMMON;
2739 break;
2740
2741 case SHT_V850_ZCOMMON:
2742 indx = SHN_V850_ZCOMMON;
2743 break;
2744
2745 default:
2746 break;
2747 }
2748
2749 switch (indx)
2750 {
2751 case SHN_V850_SCOMMON:
2752 *secp = bfd_make_section_old_way (abfd, ".scommon");
2753 (*secp)->flags |= SEC_IS_COMMON;
2754 *valp = sym->st_size;
2755 break;
2756
2757 case SHN_V850_TCOMMON:
2758 *secp = bfd_make_section_old_way (abfd, ".tcommon");
2759 (*secp)->flags |= SEC_IS_COMMON;
2760 *valp = sym->st_size;
2761 break;
2762
2763 case SHN_V850_ZCOMMON:
2764 *secp = bfd_make_section_old_way (abfd, ".zcommon");
2765 (*secp)->flags |= SEC_IS_COMMON;
2766 *valp = sym->st_size;
2767 break;
2768 }
2769
2770 return TRUE;
2771 }
2772
2773 static int
2774 v850_elf_link_output_symbol_hook (struct bfd_link_info *info ATTRIBUTE_UNUSED,
2775 const char *name ATTRIBUTE_UNUSED,
2776 Elf_Internal_Sym *sym,
2777 asection *input_sec,
2778 struct elf_link_hash_entry *h ATTRIBUTE_UNUSED)
2779 {
2780 /* If we see a common symbol, which implies a relocatable link, then
2781 if a symbol was in a special common section in an input file, mark
2782 it as a special common in the output file. */
2783
2784 if (sym->st_shndx == SHN_COMMON)
2785 {
2786 if (strcmp (input_sec->name, ".scommon") == 0)
2787 sym->st_shndx = SHN_V850_SCOMMON;
2788 else if (strcmp (input_sec->name, ".tcommon") == 0)
2789 sym->st_shndx = SHN_V850_TCOMMON;
2790 else if (strcmp (input_sec->name, ".zcommon") == 0)
2791 sym->st_shndx = SHN_V850_ZCOMMON;
2792 }
2793
2794 /* The price we pay for using h->other unused bits as flags in the
2795 linker is cleaning up after ourselves. */
2796
2797 sym->st_other &= ~(V850_OTHER_SDA | V850_OTHER_ZDA | V850_OTHER_TDA
2798 | V850_OTHER_ERROR);
2799
2800 return 1;
2801 }
2802
2803 static bfd_boolean
2804 v850_elf_section_from_shdr (bfd *abfd,
2805 Elf_Internal_Shdr *hdr,
2806 const char *name,
2807 int shindex)
2808 {
2809 /* There ought to be a place to keep ELF backend specific flags, but
2810 at the moment there isn't one. We just keep track of the
2811 sections by their name, instead. */
2812
2813 if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name, shindex))
2814 return FALSE;
2815
2816 switch (hdr->sh_type)
2817 {
2818 case SHT_V850_SCOMMON:
2819 case SHT_V850_TCOMMON:
2820 case SHT_V850_ZCOMMON:
2821 if (! bfd_set_section_flags (abfd, hdr->bfd_section,
2822 (bfd_get_section_flags (abfd,
2823 hdr->bfd_section)
2824 | SEC_IS_COMMON)))
2825 return FALSE;
2826 }
2827
2828 return TRUE;
2829 }
2830
2831 /* Set the correct type for a V850 ELF section. We do this
2832 by the section name, which is a hack, but ought to work. */
2833
2834 static bfd_boolean
2835 v850_elf_fake_sections (bfd *abfd ATTRIBUTE_UNUSED,
2836 Elf_Internal_Shdr *hdr,
2837 asection *sec)
2838 {
2839 const char * name;
2840
2841 name = bfd_get_section_name (abfd, sec);
2842
2843 if (strcmp (name, ".scommon") == 0)
2844 hdr->sh_type = SHT_V850_SCOMMON;
2845 else if (strcmp (name, ".tcommon") == 0)
2846 hdr->sh_type = SHT_V850_TCOMMON;
2847 else if (strcmp (name, ".zcommon") == 0)
2848 hdr->sh_type = SHT_V850_ZCOMMON;
2849
2850 return TRUE;
2851 }
2852
2853 /* Delete some bytes from a section while relaxing. */
2854
2855 static bfd_boolean
2856 v850_elf_relax_delete_bytes (bfd *abfd,
2857 asection *sec,
2858 bfd_vma addr,
2859 bfd_vma toaddr,
2860 int count)
2861 {
2862 Elf_Internal_Shdr *symtab_hdr;
2863 Elf32_External_Sym *extsyms;
2864 Elf32_External_Sym *esym;
2865 Elf32_External_Sym *esymend;
2866 int sym_index;
2867 unsigned int sec_shndx;
2868 bfd_byte *contents;
2869 Elf_Internal_Rela *irel;
2870 Elf_Internal_Rela *irelend;
2871 struct elf_link_hash_entry *sym_hash;
2872 Elf_Internal_Shdr *shndx_hdr;
2873 Elf_External_Sym_Shndx *shndx;
2874
2875 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2876 extsyms = (Elf32_External_Sym *) symtab_hdr->contents;
2877
2878 sec_shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
2879
2880 contents = elf_section_data (sec)->this_hdr.contents;
2881
2882 /* The deletion must stop at the next ALIGN reloc for an alignment
2883 power larger than the number of bytes we are deleting. */
2884
2885 /* Actually delete the bytes. */
2886 #if (DEBUG_RELAX & 2)
2887 fprintf (stderr, "relax_delete: contents: sec: %s %p .. %p %x\n",
2888 sec->name, addr, toaddr, count );
2889 #endif
2890 memmove (contents + addr, contents + addr + count,
2891 toaddr - addr - count);
2892 memset (contents + toaddr-count, 0, count);
2893
2894 /* Adjust all the relocs. */
2895 irel = elf_section_data (sec)->relocs;
2896 irelend = irel + sec->reloc_count;
2897 shndx_hdr = &elf_tdata (abfd)->symtab_shndx_hdr;
2898 shndx = (Elf_External_Sym_Shndx *) shndx_hdr->contents;
2899
2900 for (; irel < irelend; irel++)
2901 {
2902 bfd_vma raddr, paddr, symval;
2903 Elf_Internal_Sym isym;
2904
2905 /* Get the new reloc address. */
2906 raddr = irel->r_offset;
2907 if ((raddr >= (addr + count) && raddr < toaddr))
2908 irel->r_offset -= count;
2909
2910 if (raddr >= addr && raddr < addr + count)
2911 {
2912 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
2913 (int) R_V850_NONE);
2914 continue;
2915 }
2916
2917 if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_ALIGN)
2918 continue;
2919
2920 bfd_elf32_swap_symbol_in (abfd,
2921 extsyms + ELF32_R_SYM (irel->r_info),
2922 shndx ? shndx + ELF32_R_SYM (irel->r_info) : NULL,
2923 & isym);
2924
2925 if (isym.st_shndx != sec_shndx)
2926 continue;
2927
2928 /* Get the value of the symbol referred to by the reloc. */
2929 if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
2930 {
2931 symval = isym.st_value;
2932 #if (DEBUG_RELAX & 2)
2933 {
2934 char * name = bfd_elf_string_from_elf_section
2935 (abfd, symtab_hdr->sh_link, isym.st_name);
2936 fprintf (stderr,
2937 "relax_delete: local: sec: %s, sym: %s (%d), value: %x + %x + %x addend %x\n",
2938 sec->name, name, isym.st_name,
2939 sec->output_section->vma, sec->output_offset,
2940 isym.st_value, irel->r_addend);
2941 }
2942 #endif
2943 }
2944 else
2945 {
2946 unsigned long indx;
2947 struct elf_link_hash_entry * h;
2948
2949 /* An external symbol. */
2950 indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
2951
2952 h = elf_sym_hashes (abfd) [indx];
2953 BFD_ASSERT (h != NULL);
2954
2955 symval = h->root.u.def.value;
2956 #if (DEBUG_RELAX & 2)
2957 fprintf (stderr,
2958 "relax_delete: defined: sec: %s, name: %s, value: %x + %x + %x addend %x\n",
2959 sec->name, h->root.root.string, h->root.u.def.value,
2960 sec->output_section->vma, sec->output_offset, irel->r_addend);
2961 #endif
2962 }
2963
2964 paddr = symval + irel->r_addend;
2965
2966 if ( (symval >= addr + count && symval < toaddr)
2967 && (paddr < addr + count || paddr >= toaddr))
2968 irel->r_addend += count;
2969 else if ( (symval < addr + count || symval >= toaddr)
2970 && (paddr >= addr + count && paddr < toaddr))
2971 irel->r_addend -= count;
2972 }
2973
2974 /* Adjust the local symbols defined in this section. */
2975 esym = extsyms;
2976 esymend = esym + symtab_hdr->sh_info;
2977
2978 for (; esym < esymend; esym++, shndx = (shndx ? shndx + 1 : NULL))
2979 {
2980 Elf_Internal_Sym isym;
2981
2982 bfd_elf32_swap_symbol_in (abfd, esym, shndx, & isym);
2983
2984 if (isym.st_shndx == sec_shndx
2985 && isym.st_value >= addr + count
2986 && isym.st_value < toaddr)
2987 {
2988 isym.st_value -= count;
2989
2990 if (isym.st_value + isym.st_size >= toaddr)
2991 isym.st_size += count;
2992
2993 bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
2994 }
2995 else if (isym.st_shndx == sec_shndx
2996 && isym.st_value < addr + count)
2997 {
2998 if (isym.st_value+isym.st_size >= addr + count
2999 && isym.st_value+isym.st_size < toaddr)
3000 isym.st_size -= count;
3001
3002 if (isym.st_value >= addr
3003 && isym.st_value < addr + count)
3004 isym.st_value = addr;
3005
3006 bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
3007 }
3008 }
3009
3010 /* Now adjust the global symbols defined in this section. */
3011 esym = extsyms + symtab_hdr->sh_info;
3012 esymend = extsyms + (symtab_hdr->sh_size / sizeof (Elf32_External_Sym));
3013
3014 for (sym_index = 0; esym < esymend; esym ++, sym_index ++)
3015 {
3016 Elf_Internal_Sym isym;
3017
3018 bfd_elf32_swap_symbol_in (abfd, esym, shndx, & isym);
3019 sym_hash = elf_sym_hashes (abfd) [sym_index];
3020
3021 if (isym.st_shndx == sec_shndx
3022 && ((sym_hash)->root.type == bfd_link_hash_defined
3023 || (sym_hash)->root.type == bfd_link_hash_defweak)
3024 && (sym_hash)->root.u.def.section == sec
3025 && (sym_hash)->root.u.def.value >= addr + count
3026 && (sym_hash)->root.u.def.value < toaddr)
3027 {
3028 if ((sym_hash)->root.u.def.value + isym.st_size >= toaddr)
3029 {
3030 isym.st_size += count;
3031 bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
3032 }
3033
3034 (sym_hash)->root.u.def.value -= count;
3035 }
3036 else if (isym.st_shndx == sec_shndx
3037 && ((sym_hash)->root.type == bfd_link_hash_defined
3038 || (sym_hash)->root.type == bfd_link_hash_defweak)
3039 && (sym_hash)->root.u.def.section == sec
3040 && (sym_hash)->root.u.def.value < addr + count)
3041 {
3042 if ((sym_hash)->root.u.def.value+isym.st_size >= addr + count
3043 && (sym_hash)->root.u.def.value+isym.st_size < toaddr)
3044 isym.st_size -= count;
3045
3046 if ((sym_hash)->root.u.def.value >= addr
3047 && (sym_hash)->root.u.def.value < addr + count)
3048 (sym_hash)->root.u.def.value = addr;
3049
3050 bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
3051 }
3052
3053 if (shndx)
3054 ++ shndx;
3055 }
3056
3057 return TRUE;
3058 }
3059
3060 #define NOP_OPCODE (0x0000)
3061 #define MOVHI 0x0640 /* 4byte. */
3062 #define MOVHI_MASK 0x07e0
3063 #define MOVHI_R1(insn) ((insn) & 0x1f) /* 4byte. */
3064 #define MOVHI_R2(insn) ((insn) >> 11)
3065 #define MOVEA 0x0620 /* 2byte. */
3066 #define MOVEA_MASK 0x07e0
3067 #define MOVEA_R1(insn) ((insn) & 0x1f)
3068 #define MOVEA_R2(insn) ((insn) >> 11)
3069 #define JARL_4 0x00040780 /* 4byte. */
3070 #define JARL_4_MASK 0xFFFF07FF
3071 #define JARL_R2(insn) (int)(((insn) & (~JARL_4_MASK)) >> 11)
3072 #define ADD_I 0x0240 /* 2byte. */
3073 #define ADD_I_MASK 0x07e0
3074 #define ADD_I5(insn) ((((insn) & 0x001f) << 11) >> 11) /* 2byte. */
3075 #define ADD_R2(insn) ((insn) >> 11)
3076 #define JMP_R 0x0060 /* 2byte. */
3077 #define JMP_R_MASK 0xFFE0
3078 #define JMP_R1(insn) ((insn) & 0x1f)
3079
3080 static bfd_boolean
3081 v850_elf_relax_section (bfd *abfd,
3082 asection *sec,
3083 struct bfd_link_info *link_info,
3084 bfd_boolean *again)
3085 {
3086 Elf_Internal_Shdr *symtab_hdr;
3087 Elf_Internal_Rela *internal_relocs;
3088 Elf_Internal_Rela *irel;
3089 Elf_Internal_Rela *irelend;
3090 Elf_Internal_Rela *irelalign = NULL;
3091 Elf_Internal_Sym *isymbuf = NULL;
3092 bfd_byte *contents = NULL;
3093 bfd_vma addr = 0;
3094 bfd_vma toaddr;
3095 int align_pad_size = 0;
3096 bfd_boolean result = TRUE;
3097
3098 *again = FALSE;
3099
3100 if (link_info->relocatable
3101 || (sec->flags & SEC_RELOC) == 0
3102 || sec->reloc_count == 0)
3103 return TRUE;
3104
3105 symtab_hdr = & elf_tdata (abfd)->symtab_hdr;
3106
3107 internal_relocs = (_bfd_elf_link_read_relocs
3108 (abfd, sec, NULL, NULL, link_info->keep_memory));
3109 if (internal_relocs == NULL)
3110 goto error_return;
3111
3112 irelend = internal_relocs + sec->reloc_count;
3113
3114 while (addr < sec->size)
3115 {
3116 toaddr = sec->size;
3117
3118 for (irel = internal_relocs; irel < irelend; irel ++)
3119 if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_ALIGN
3120 && irel->r_offset > addr
3121 && irel->r_offset < toaddr)
3122 toaddr = irel->r_offset;
3123
3124 #ifdef DEBUG_RELAX
3125 fprintf (stderr, "relax region 0x%x to 0x%x align pad %d\n",
3126 addr, toaddr, align_pad_size);
3127 #endif
3128 if (irelalign)
3129 {
3130 bfd_vma alignto;
3131 bfd_vma alignmoveto;
3132
3133 alignmoveto = BFD_ALIGN (addr - align_pad_size, 1 << irelalign->r_addend);
3134 alignto = BFD_ALIGN (addr, 1 << irelalign->r_addend);
3135
3136 if (alignmoveto < alignto)
3137 {
3138 unsigned int i;
3139
3140 align_pad_size = alignto - alignmoveto;
3141 #ifdef DEBUG_RELAX
3142 fprintf (stderr, "relax move region 0x%x to 0x%x delete size 0x%x\n",
3143 alignmoveto, toaddr, align_pad_size);
3144 #endif
3145 if (!v850_elf_relax_delete_bytes (abfd, sec, alignmoveto,
3146 toaddr, align_pad_size))
3147 goto error_return;
3148
3149 for (i = BFD_ALIGN (toaddr - align_pad_size, 1);
3150 (i + 1) < toaddr; i += 2)
3151 bfd_put_16 (abfd, NOP_OPCODE, contents + i);
3152
3153 addr = alignmoveto;
3154 }
3155 else
3156 align_pad_size = 0;
3157 }
3158
3159 for (irel = internal_relocs; irel < irelend; irel++)
3160 {
3161 bfd_vma laddr;
3162 bfd_vma addend;
3163 bfd_vma symval;
3164 int insn[5];
3165 int no_match = -1;
3166 Elf_Internal_Rela *hi_irelfn;
3167 Elf_Internal_Rela *lo_irelfn;
3168 Elf_Internal_Rela *irelcall;
3169 bfd_signed_vma foff;
3170 unsigned int r_type;
3171
3172 if (! (irel->r_offset >= addr && irel->r_offset < toaddr
3173 && (ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGCALL
3174 || ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGJUMP)))
3175 continue;
3176
3177 #ifdef DEBUG_RELAX
3178 fprintf (stderr, "relax check r_info 0x%x r_offset 0x%x r_addend 0x%x\n",
3179 irel->r_info,
3180 irel->r_offset,
3181 irel->r_addend );
3182 #endif
3183
3184 /* Get the section contents. */
3185 if (contents == NULL)
3186 {
3187 if (elf_section_data (sec)->this_hdr.contents != NULL)
3188 contents = elf_section_data (sec)->this_hdr.contents;
3189 else
3190 {
3191 if (! bfd_malloc_and_get_section (abfd, sec, &contents))
3192 goto error_return;
3193 }
3194 }
3195
3196 /* Read this BFD's local symbols if we haven't done so already. */
3197 if (isymbuf == NULL && symtab_hdr->sh_info != 0)
3198 {
3199 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
3200 if (isymbuf == NULL)
3201 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
3202 symtab_hdr->sh_info, 0,
3203 NULL, NULL, NULL);
3204 if (isymbuf == NULL)
3205 goto error_return;
3206 }
3207
3208 laddr = irel->r_offset;
3209
3210 if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGCALL)
3211 {
3212 /* Check code for -mlong-calls output. */
3213 if (laddr + 16 <= (bfd_vma) sec->size)
3214 {
3215 insn[0] = bfd_get_16 (abfd, contents + laddr);
3216 insn[1] = bfd_get_16 (abfd, contents + laddr + 4);
3217 insn[2] = bfd_get_32 (abfd, contents + laddr + 8);
3218 insn[3] = bfd_get_16 (abfd, contents + laddr + 12);
3219 insn[4] = bfd_get_16 (abfd, contents + laddr + 14);
3220
3221 if ((insn[0] & MOVHI_MASK) != MOVHI
3222 || MOVHI_R1 (insn[0]) != 0)
3223 no_match = 0;
3224
3225 if (no_match < 0
3226 && ((insn[1] & MOVEA_MASK) != MOVEA
3227 || MOVHI_R2 (insn[0]) != MOVEA_R1 (insn[1])))
3228 no_match = 1;
3229
3230 if (no_match < 0
3231 && (insn[2] & JARL_4_MASK) != JARL_4)
3232 no_match = 2;
3233
3234 if (no_match < 0
3235 && ((insn[3] & ADD_I_MASK) != ADD_I
3236 || ADD_I5 (insn[3]) != 4
3237 || JARL_R2 (insn[2]) != ADD_R2 (insn[3])))
3238 no_match = 3;
3239
3240 if (no_match < 0
3241 && ((insn[4] & JMP_R_MASK) != JMP_R
3242 || MOVEA_R2 (insn[1]) != JMP_R1 (insn[4])))
3243 no_match = 4;
3244 }
3245 else
3246 {
3247 ((*_bfd_error_handler)
3248 ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized insns",
3249 bfd_get_filename (abfd), (unsigned long) irel->r_offset));
3250
3251 continue;
3252 }
3253
3254 if (no_match >= 0)
3255 {
3256 ((*_bfd_error_handler)
3257 ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized insn 0x%x",
3258 bfd_get_filename (abfd), (unsigned long) irel->r_offset+no_match, insn[no_match]));
3259
3260 continue;
3261 }
3262
3263 /* Get the reloc for the address from which the register is
3264 being loaded. This reloc will tell us which function is
3265 actually being called. */
3266
3267 for (hi_irelfn = internal_relocs; hi_irelfn < irelend; hi_irelfn ++)
3268 {
3269 r_type = ELF32_R_TYPE (hi_irelfn->r_info);
3270
3271 if (hi_irelfn->r_offset == laddr + 2
3272 && (r_type == (int) R_V850_HI16_S || r_type == (int) R_V810_WHI1))
3273 break;
3274 }
3275
3276 for (lo_irelfn = internal_relocs; lo_irelfn < irelend; lo_irelfn ++)
3277 {
3278 r_type = ELF32_R_TYPE (lo_irelfn->r_info);
3279
3280 if (lo_irelfn->r_offset == laddr + 6
3281 && (r_type == (int) R_V850_LO16 || r_type == (int) R_V810_WLO))
3282 break;
3283 }
3284
3285 for (irelcall = internal_relocs; irelcall < irelend; irelcall ++)
3286 {
3287 r_type = ELF32_R_TYPE (irelcall->r_info);
3288
3289 if (irelcall->r_offset == laddr + 8
3290 && (r_type == (int) R_V850_22_PCREL || r_type == (int) R_V850_PCR22))
3291 break;
3292 }
3293
3294 if ( hi_irelfn == irelend
3295 || lo_irelfn == irelend
3296 || irelcall == irelend)
3297 {
3298 ((*_bfd_error_handler)
3299 ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized reloc",
3300 bfd_get_filename (abfd), (unsigned long) irel->r_offset ));
3301
3302 continue;
3303 }
3304
3305 if (ELF32_R_SYM (irelcall->r_info) < symtab_hdr->sh_info)
3306 {
3307 Elf_Internal_Sym * isym;
3308
3309 /* A local symbol. */
3310 isym = isymbuf + ELF32_R_SYM (irelcall->r_info);
3311
3312 symval = isym->st_value;
3313 }
3314 else
3315 {
3316 unsigned long indx;
3317 struct elf_link_hash_entry * h;
3318
3319 /* An external symbol. */
3320 indx = ELF32_R_SYM (irelcall->r_info) - symtab_hdr->sh_info;
3321 h = elf_sym_hashes (abfd)[indx];
3322 BFD_ASSERT (h != NULL);
3323
3324 if ( h->root.type != bfd_link_hash_defined
3325 && h->root.type != bfd_link_hash_defweak)
3326 /* This appears to be a reference to an undefined
3327 symbol. Just ignore it--it will be caught by the
3328 regular reloc processing. */
3329 continue;
3330
3331 symval = h->root.u.def.value;
3332 }
3333
3334 if (symval + irelcall->r_addend != irelcall->r_offset + 4)
3335 {
3336 ((*_bfd_error_handler)
3337 ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized reloc 0x%lx",
3338 bfd_get_filename (abfd), (unsigned long) irel->r_offset, irelcall->r_offset ));
3339
3340 continue;
3341 }
3342
3343 /* Get the value of the symbol referred to by the reloc. */
3344 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
3345 {
3346 Elf_Internal_Sym *isym;
3347 asection *sym_sec;
3348
3349 /* A local symbol. */
3350 isym = isymbuf + ELF32_R_SYM (hi_irelfn->r_info);
3351
3352 if (isym->st_shndx == SHN_UNDEF)
3353 sym_sec = bfd_und_section_ptr;
3354 else if (isym->st_shndx == SHN_ABS)
3355 sym_sec = bfd_abs_section_ptr;
3356 else if (isym->st_shndx == SHN_COMMON)
3357 sym_sec = bfd_com_section_ptr;
3358 else
3359 sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
3360 symval = (isym->st_value
3361 + sym_sec->output_section->vma
3362 + sym_sec->output_offset);
3363 }
3364 else
3365 {
3366 unsigned long indx;
3367 struct elf_link_hash_entry *h;
3368
3369 /* An external symbol. */
3370 indx = ELF32_R_SYM (hi_irelfn->r_info) - symtab_hdr->sh_info;
3371 h = elf_sym_hashes (abfd)[indx];
3372 BFD_ASSERT (h != NULL);
3373
3374 if ( h->root.type != bfd_link_hash_defined
3375 && h->root.type != bfd_link_hash_defweak)
3376 /* This appears to be a reference to an undefined
3377 symbol. Just ignore it--it will be caught by the
3378 regular reloc processing. */
3379 continue;
3380
3381 symval = (h->root.u.def.value
3382 + h->root.u.def.section->output_section->vma
3383 + h->root.u.def.section->output_offset);
3384 }
3385
3386 addend = irel->r_addend;
3387
3388 foff = (symval + addend
3389 - (irel->r_offset
3390 + sec->output_section->vma
3391 + sec->output_offset
3392 + 4));
3393 #ifdef DEBUG_RELAX
3394 fprintf (stderr, "relax longcall r_offset 0x%x ptr 0x%x symbol 0x%x addend 0x%x distance 0x%x\n",
3395 irel->r_offset,
3396 (irel->r_offset
3397 + sec->output_section->vma
3398 + sec->output_offset),
3399 symval, addend, foff);
3400 #endif
3401
3402 if (foff < -0x100000 || foff >= 0x100000)
3403 /* After all that work, we can't shorten this function call. */
3404 continue;
3405
3406 /* For simplicity of coding, we are going to modify the section
3407 contents, the section relocs, and the BFD symbol table. We
3408 must tell the rest of the code not to free up this
3409 information. It would be possible to instead create a table
3410 of changes which have to be made, as is done in coff-mips.c;
3411 that would be more work, but would require less memory when
3412 the linker is run. */
3413 elf_section_data (sec)->relocs = internal_relocs;
3414 elf_section_data (sec)->this_hdr.contents = contents;
3415 symtab_hdr->contents = (bfd_byte *) isymbuf;
3416
3417 /* Replace the long call with a jarl. */
3418 if (bfd_get_arch (abfd) == bfd_arch_v850_rh850)
3419 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_PCR22);
3420 else
3421 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_22_PCREL);
3422
3423 addend = 0;
3424
3425 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
3426 /* If this needs to be changed because of future relaxing,
3427 it will be handled here like other internal IND12W
3428 relocs. */
3429 bfd_put_32 (abfd,
3430 0x00000780 | (JARL_R2 (insn[2])<<11) | ((addend << 16) & 0xffff) | ((addend >> 16) & 0xf),
3431 contents + irel->r_offset);
3432 else
3433 /* We can't fully resolve this yet, because the external
3434 symbol value may be changed by future relaxing.
3435 We let the final link phase handle it. */
3436 bfd_put_32 (abfd, 0x00000780 | (JARL_R2 (insn[2])<<11),
3437 contents + irel->r_offset);
3438
3439 hi_irelfn->r_info =
3440 ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_NONE);
3441 lo_irelfn->r_info =
3442 ELF32_R_INFO (ELF32_R_SYM (lo_irelfn->r_info), R_V850_NONE);
3443 irelcall->r_info =
3444 ELF32_R_INFO (ELF32_R_SYM (irelcall->r_info), R_V850_NONE);
3445
3446 if (! v850_elf_relax_delete_bytes (abfd, sec,
3447 irel->r_offset + 4, toaddr, 12))
3448 goto error_return;
3449
3450 align_pad_size += 12;
3451 }
3452 else if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGJUMP)
3453 {
3454 /* Check code for -mlong-jumps output. */
3455 if (laddr + 10 <= (bfd_vma) sec->size)
3456 {
3457 insn[0] = bfd_get_16 (abfd, contents + laddr);
3458 insn[1] = bfd_get_16 (abfd, contents + laddr + 4);
3459 insn[2] = bfd_get_16 (abfd, contents + laddr + 8);
3460
3461 if ((insn[0] & MOVHI_MASK) != MOVHI
3462 || MOVHI_R1 (insn[0]) != 0)
3463 no_match = 0;
3464
3465 if (no_match < 0
3466 && ((insn[1] & MOVEA_MASK) != MOVEA
3467 || MOVHI_R2 (insn[0]) != MOVEA_R1 (insn[1])))
3468 no_match = 1;
3469
3470 if (no_match < 0
3471 && ((insn[2] & JMP_R_MASK) != JMP_R
3472 || MOVEA_R2 (insn[1]) != JMP_R1 (insn[2])))
3473 no_match = 4;
3474 }
3475 else
3476 {
3477 ((*_bfd_error_handler)
3478 ("%s: 0x%lx: warning: R_V850_LONGJUMP points to unrecognized insns",
3479 bfd_get_filename (abfd), (unsigned long) irel->r_offset));
3480
3481 continue;
3482 }
3483
3484 if (no_match >= 0)
3485 {
3486 ((*_bfd_error_handler)
3487 ("%s: 0x%lx: warning: R_V850_LONGJUMP points to unrecognized insn 0x%x",
3488 bfd_get_filename (abfd), (unsigned long) irel->r_offset+no_match, insn[no_match]));
3489
3490 continue;
3491 }
3492
3493 /* Get the reloc for the address from which the register is
3494 being loaded. This reloc will tell us which function is
3495 actually being called. */
3496 for (hi_irelfn = internal_relocs; hi_irelfn < irelend; hi_irelfn ++)
3497 {
3498 r_type = ELF32_R_TYPE (hi_irelfn->r_info);
3499
3500 if (hi_irelfn->r_offset == laddr + 2
3501 && ((r_type == (int) R_V850_HI16_S) || r_type == (int) R_V810_WHI1))
3502 break;
3503 }
3504
3505 for (lo_irelfn = internal_relocs; lo_irelfn < irelend; lo_irelfn ++)
3506 {
3507 r_type = ELF32_R_TYPE (lo_irelfn->r_info);
3508
3509 if (lo_irelfn->r_offset == laddr + 6
3510 && (r_type == (int) R_V850_LO16 || r_type == (int) R_V810_WLO))
3511 break;
3512 }
3513
3514 if ( hi_irelfn == irelend
3515 || lo_irelfn == irelend)
3516 {
3517 ((*_bfd_error_handler)
3518 ("%s: 0x%lx: warning: R_V850_LONGJUMP points to unrecognized reloc",
3519 bfd_get_filename (abfd), (unsigned long) irel->r_offset ));
3520
3521 continue;
3522 }
3523
3524 /* Get the value of the symbol referred to by the reloc. */
3525 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
3526 {
3527 Elf_Internal_Sym * isym;
3528 asection * sym_sec;
3529
3530 /* A local symbol. */
3531 isym = isymbuf + ELF32_R_SYM (hi_irelfn->r_info);
3532
3533 if (isym->st_shndx == SHN_UNDEF)
3534 sym_sec = bfd_und_section_ptr;
3535 else if (isym->st_shndx == SHN_ABS)
3536 sym_sec = bfd_abs_section_ptr;
3537 else if (isym->st_shndx == SHN_COMMON)
3538 sym_sec = bfd_com_section_ptr;
3539 else
3540 sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
3541 symval = (isym->st_value
3542 + sym_sec->output_section->vma
3543 + sym_sec->output_offset);
3544 #ifdef DEBUG_RELAX
3545 {
3546 char * name = bfd_elf_string_from_elf_section
3547 (abfd, symtab_hdr->sh_link, isym->st_name);
3548
3549 fprintf (stderr, "relax long jump local: sec: %s, sym: %s (%d), value: %x + %x + %x addend %x\n",
3550 sym_sec->name, name, isym->st_name,
3551 sym_sec->output_section->vma,
3552 sym_sec->output_offset,
3553 isym->st_value, irel->r_addend);
3554 }
3555 #endif
3556 }
3557 else
3558 {
3559 unsigned long indx;
3560 struct elf_link_hash_entry * h;
3561
3562 /* An external symbol. */
3563 indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
3564 h = elf_sym_hashes (abfd)[indx];
3565 BFD_ASSERT (h != NULL);
3566
3567 if ( h->root.type != bfd_link_hash_defined
3568 && h->root.type != bfd_link_hash_defweak)
3569 /* This appears to be a reference to an undefined
3570 symbol. Just ignore it--it will be caught by the
3571 regular reloc processing. */
3572 continue;
3573
3574 symval = (h->root.u.def.value
3575 + h->root.u.def.section->output_section->vma
3576 + h->root.u.def.section->output_offset);
3577 #ifdef DEBUG_RELAX
3578 fprintf (stderr,
3579 "relax longjump defined: sec: %s, name: %s, value: %x + %x + %x addend %x\n",
3580 sec->name, h->root.root.string, h->root.u.def.value,
3581 sec->output_section->vma, sec->output_offset, irel->r_addend);
3582 #endif
3583 }
3584
3585 addend = irel->r_addend;
3586
3587 foff = (symval + addend
3588 - (irel->r_offset
3589 + sec->output_section->vma
3590 + sec->output_offset
3591 + 4));
3592 #ifdef DEBUG_RELAX
3593 fprintf (stderr, "relax longjump r_offset 0x%x ptr 0x%x symbol 0x%x addend 0x%x distance 0x%x\n",
3594 irel->r_offset,
3595 (irel->r_offset
3596 + sec->output_section->vma
3597 + sec->output_offset),
3598 symval, addend, foff);
3599 #endif
3600 if (foff < -0x100000 || foff >= 0x100000)
3601 /* After all that work, we can't shorten this function call. */
3602 continue;
3603
3604 /* For simplicity of coding, we are going to modify the section
3605 contents, the section relocs, and the BFD symbol table. We
3606 must tell the rest of the code not to free up this
3607 information. It would be possible to instead create a table
3608 of changes which have to be made, as is done in coff-mips.c;
3609 that would be more work, but would require less memory when
3610 the linker is run. */
3611 elf_section_data (sec)->relocs = internal_relocs;
3612 elf_section_data (sec)->this_hdr.contents = contents;
3613 symtab_hdr->contents = (bfd_byte *) isymbuf;
3614
3615 if (foff < -0x100 || foff >= 0x100)
3616 {
3617 /* Replace the long jump with a jr. */
3618
3619 if (bfd_get_arch (abfd) == bfd_arch_v850_rh850)
3620 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info), R_V850_PCR22);
3621 else
3622 irel->r_info =
3623 ELF32_R_INFO (ELF32_R_SYM (irel->r_info), R_V850_22_PCREL);
3624
3625 irel->r_addend = addend;
3626 addend = 0;
3627
3628 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
3629 /* If this needs to be changed because of future relaxing,
3630 it will be handled here like other internal IND12W
3631 relocs. */
3632 bfd_put_32 (abfd,
3633 0x00000780 | ((addend << 15) & 0xffff0000) | ((addend >> 17) & 0xf),
3634 contents + irel->r_offset);
3635 else
3636 /* We can't fully resolve this yet, because the external
3637 symbol value may be changed by future relaxing.
3638 We let the final link phase handle it. */
3639 bfd_put_32 (abfd, 0x00000780, contents + irel->r_offset);
3640
3641 hi_irelfn->r_info =
3642 ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_NONE);
3643 lo_irelfn->r_info =
3644 ELF32_R_INFO (ELF32_R_SYM (lo_irelfn->r_info), R_V850_NONE);
3645 if (!v850_elf_relax_delete_bytes (abfd, sec,
3646 irel->r_offset + 4, toaddr, 6))
3647 goto error_return;
3648
3649 align_pad_size += 6;
3650 }
3651 else
3652 {
3653 /* Replace the long jump with a br. */
3654
3655 if (bfd_get_arch (abfd) == bfd_arch_v850_rh850)
3656 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info), R_V850_PC9);
3657 else
3658 irel->r_info =
3659 ELF32_R_INFO (ELF32_R_SYM (irel->r_info), R_V850_9_PCREL);
3660
3661 irel->r_addend = addend;
3662 addend = 0;
3663
3664 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
3665 /* If this needs to be changed because of future relaxing,
3666 it will be handled here like other internal IND12W
3667 relocs. */
3668 bfd_put_16 (abfd,
3669 0x0585 | ((addend << 10) & 0xf800) | ((addend << 3) & 0x0070),
3670 contents + irel->r_offset);
3671 else
3672 /* We can't fully resolve this yet, because the external
3673 symbol value may be changed by future relaxing.
3674 We let the final link phase handle it. */
3675 bfd_put_16 (abfd, 0x0585, contents + irel->r_offset);
3676
3677 hi_irelfn->r_info =
3678 ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_NONE);
3679 lo_irelfn->r_info =
3680 ELF32_R_INFO (ELF32_R_SYM (lo_irelfn->r_info), R_V850_NONE);
3681 if (!v850_elf_relax_delete_bytes (abfd, sec,
3682 irel->r_offset + 2, toaddr, 8))
3683 goto error_return;
3684
3685 align_pad_size += 8;
3686 }
3687 }
3688 }
3689
3690 irelalign = NULL;
3691 for (irel = internal_relocs; irel < irelend; irel++)
3692 {
3693 if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_ALIGN
3694 && irel->r_offset == toaddr)
3695 {
3696 irel->r_offset -= align_pad_size;
3697
3698 if (irelalign == NULL || irelalign->r_addend > irel->r_addend)
3699 irelalign = irel;
3700 }
3701 }
3702
3703 addr = toaddr;
3704 }
3705
3706 if (!irelalign)
3707 {
3708 #ifdef DEBUG_RELAX
3709 fprintf (stderr, "relax pad %d shorten %d -> %d\n",
3710 align_pad_size,
3711 sec->size,
3712 sec->size - align_pad_size);
3713 #endif
3714 sec->size -= align_pad_size;
3715 }
3716
3717 finish:
3718 if (internal_relocs != NULL
3719 && elf_section_data (sec)->relocs != internal_relocs)
3720 free (internal_relocs);
3721
3722 if (contents != NULL
3723 && elf_section_data (sec)->this_hdr.contents != (unsigned char *) contents)
3724 free (contents);
3725
3726 if (isymbuf != NULL
3727 && symtab_hdr->contents != (bfd_byte *) isymbuf)
3728 free (isymbuf);
3729
3730 return result;
3731
3732 error_return:
3733 result = FALSE;
3734 goto finish;
3735 }
3736
3737 static const struct bfd_elf_special_section v850_elf_special_sections[] =
3738 {
3739 { STRING_COMMA_LEN (".call_table_data"), 0, SHT_PROGBITS, (SHF_ALLOC + SHF_WRITE) },
3740 { STRING_COMMA_LEN (".call_table_text"), 0, SHT_PROGBITS, (SHF_ALLOC + SHF_WRITE
3741 + SHF_EXECINSTR) },
3742 { STRING_COMMA_LEN (".rosdata"), -2, SHT_PROGBITS, (SHF_ALLOC
3743 + SHF_V850_GPREL) },
3744 { STRING_COMMA_LEN (".rozdata"), -2, SHT_PROGBITS, (SHF_ALLOC
3745 + SHF_V850_R0REL) },
3746 { STRING_COMMA_LEN (".sbss"), -2, SHT_NOBITS, (SHF_ALLOC + SHF_WRITE
3747 + SHF_V850_GPREL) },
3748 { STRING_COMMA_LEN (".scommon"), -2, SHT_V850_SCOMMON, (SHF_ALLOC + SHF_WRITE
3749 + SHF_V850_GPREL) },
3750 { STRING_COMMA_LEN (".sdata"), -2, SHT_PROGBITS, (SHF_ALLOC + SHF_WRITE
3751 + SHF_V850_GPREL) },
3752 { STRING_COMMA_LEN (".tbss"), -2, SHT_NOBITS, (SHF_ALLOC + SHF_WRITE
3753 + SHF_V850_EPREL) },
3754 { STRING_COMMA_LEN (".tcommon"), -2, SHT_V850_TCOMMON, (SHF_ALLOC + SHF_WRITE
3755 + SHF_V850_R0REL) },
3756 { STRING_COMMA_LEN (".tdata"), -2, SHT_PROGBITS, (SHF_ALLOC + SHF_WRITE
3757 + SHF_V850_EPREL) },
3758 { STRING_COMMA_LEN (".zbss"), -2, SHT_NOBITS, (SHF_ALLOC + SHF_WRITE
3759 + SHF_V850_R0REL) },
3760 { STRING_COMMA_LEN (".zcommon"), -2, SHT_V850_ZCOMMON, (SHF_ALLOC + SHF_WRITE
3761 + SHF_V850_R0REL) },
3762 { STRING_COMMA_LEN (".zdata"), -2, SHT_PROGBITS, (SHF_ALLOC + SHF_WRITE
3763 + SHF_V850_R0REL) },
3764 { NULL, 0, 0, 0, 0 }
3765 };
3766 \f
3767 #define TARGET_LITTLE_SYM bfd_elf32_v850_vec
3768 #define TARGET_LITTLE_NAME "elf32-v850"
3769 #define ELF_ARCH bfd_arch_v850
3770 #define ELF_MACHINE_CODE EM_V850
3771 #define ELF_MACHINE_ALT1 EM_CYGNUS_V850
3772 #define ELF_MAXPAGESIZE 0x1000
3773
3774 #define elf_info_to_howto v850_elf_info_to_howto_rela
3775 #define elf_info_to_howto_rel v850_elf_info_to_howto_rel
3776
3777 #define elf_backend_check_relocs v850_elf_check_relocs
3778 #define elf_backend_relocate_section v850_elf_relocate_section
3779 #define elf_backend_object_p v850_elf_object_p
3780 #define elf_backend_final_write_processing v850_elf_final_write_processing
3781 #define elf_backend_section_from_bfd_section v850_elf_section_from_bfd_section
3782 #define elf_backend_symbol_processing v850_elf_symbol_processing
3783 #define elf_backend_add_symbol_hook v850_elf_add_symbol_hook
3784 #define elf_backend_link_output_symbol_hook v850_elf_link_output_symbol_hook
3785 #define elf_backend_section_from_shdr v850_elf_section_from_shdr
3786 #define elf_backend_fake_sections v850_elf_fake_sections
3787 #define elf_backend_gc_mark_hook v850_elf_gc_mark_hook
3788 #define elf_backend_special_sections v850_elf_special_sections
3789
3790 #define elf_backend_can_gc_sections 1
3791 #define elf_backend_rela_normal 1
3792
3793 #define bfd_elf32_bfd_is_local_label_name v850_elf_is_local_label_name
3794 #define bfd_elf32_bfd_reloc_type_lookup v850_elf_reloc_type_lookup
3795 #define bfd_elf32_bfd_reloc_name_lookup v850_elf_reloc_name_lookup
3796 #define bfd_elf32_bfd_merge_private_bfd_data v850_elf_merge_private_bfd_data
3797 #define bfd_elf32_bfd_set_private_flags v850_elf_set_private_flags
3798 #define bfd_elf32_bfd_print_private_bfd_data v850_elf_print_private_bfd_data
3799 #define bfd_elf32_bfd_relax_section v850_elf_relax_section
3800
3801 #define elf_symbol_leading_char '_'
3802
3803 #undef elf32_bed
3804 #define elf32_bed elf32_v850_bed
3805
3806 #include "elf32-target.h"
3807
3808 /* Map BFD reloc types to V800 ELF reloc types. */
3809
3810 static const struct v850_elf_reloc_map v800_elf_reloc_map[] =
3811 {
3812 { BFD_RELOC_NONE, R_V810_NONE },
3813 { BFD_RELOC_8, R_V810_BYTE },
3814 { BFD_RELOC_16, R_V810_HWORD },
3815 { BFD_RELOC_32, R_V810_WORD },
3816 { BFD_RELOC_LO16, R_V810_WLO },
3817 { BFD_RELOC_HI16, R_V810_WHI },
3818 { BFD_RELOC_HI16_S, R_V810_WHI1 },
3819 { BFD_RELOC_V850_32_PCREL, R_V850_PC32 },
3820 { BFD_RELOC_V850_22_PCREL, R_V850_PCR22 },
3821 { BFD_RELOC_V850_17_PCREL, R_V850_PC17 },
3822 { BFD_RELOC_V850_16_PCREL, R_V850_PC16U },
3823 { BFD_RELOC_V850_9_PCREL, R_V850_PC9 },
3824 { BFD_RELOC_V850_LO16_S1, R_V810_WLO_1 }, /* Or R_V850_HWLO or R_V850_HWLO_1. */
3825 { BFD_RELOC_V850_23, R_V850_WLO23 },
3826 { BFD_RELOC_V850_LO16_SPLIT_OFFSET, R_V850_BLO },
3827 { BFD_RELOC_V850_ZDA_16_16_OFFSET, R_V810_HWORD },
3828 { BFD_RELOC_V850_TDA_16_16_OFFSET, R_V810_HWORD },
3829 { BFD_RELOC_V850_SDA_16_16_OFFSET, R_V810_HWORD },
3830 { BFD_RELOC_V850_SDA_15_16_OFFSET, R_V810_GPWLO_1 }
3831 };
3832
3833 /* Map a bfd relocation into the appropriate howto structure. */
3834
3835 static reloc_howto_type *
3836 v800_elf_reloc_type_lookup (bfd * abfd, bfd_reloc_code_real_type code)
3837 {
3838 unsigned int i;
3839
3840 BFD_ASSERT (bfd_get_arch (abfd) == bfd_arch_v850_rh850);
3841
3842 for (i = ARRAY_SIZE (v800_elf_reloc_map); i --;)
3843 if (v800_elf_reloc_map[i].bfd_reloc_val == code)
3844 {
3845 unsigned int elf_reloc_val = v800_elf_reloc_map[i].elf_reloc_val;
3846 unsigned int idx = elf_reloc_val - R_V810_NONE;
3847
3848 BFD_ASSERT (v800_elf_howto_table[idx].type == elf_reloc_val);
3849
3850 return v800_elf_howto_table + idx;
3851 }
3852
3853 #ifdef DEBUG
3854 fprintf (stderr, "failed to find v800 equiv of bfd reloc code %d\n", code);
3855 #endif
3856 return NULL;
3857 }
3858
3859 static reloc_howto_type *
3860 v800_elf_reloc_name_lookup (bfd * abfd, const char * r_name)
3861 {
3862 unsigned int i;
3863
3864 BFD_ASSERT (bfd_get_arch (abfd) == bfd_arch_v850_rh850);
3865
3866 for (i = ARRAY_SIZE (v800_elf_howto_table); i--;)
3867 if (v800_elf_howto_table[i].name != NULL
3868 && strcasecmp (v800_elf_howto_table[i].name, r_name) == 0)
3869 return v800_elf_howto_table + i;
3870
3871 return NULL;
3872 }
3873
3874
3875 /* Set the howto pointer in CACHE_PTR for a V800 ELF reloc. */
3876
3877 static void
3878 v800_elf_info_to_howto (bfd * abfd,
3879 arelent * cache_ptr,
3880 Elf_Internal_Rela * dst)
3881 {
3882 unsigned int r_type = ELF32_R_TYPE (dst->r_info);
3883
3884 BFD_ASSERT (bfd_get_arch (abfd) == bfd_arch_v850_rh850);
3885
3886 BFD_ASSERT (r_type < (unsigned int) R_V800_max);
3887
3888 if (r_type == R_V800_NONE)
3889 r_type = R_V810_NONE;
3890
3891 BFD_ASSERT (r_type >= (unsigned int) R_V810_NONE);
3892 r_type -= R_V810_NONE;
3893 BFD_ASSERT (r_type < ARRAY_SIZE (v800_elf_howto_table));
3894
3895 cache_ptr->howto = v800_elf_howto_table + r_type;
3896 }
3897 \f
3898
3899 #undef TARGET_LITTLE_SYM
3900 #define TARGET_LITTLE_SYM bfd_elf32_v850_rh850_vec
3901 #undef TARGET_LITTLE_NAME
3902 #define TARGET_LITTLE_NAME "elf32-v850-rh850"
3903 #undef ELF_ARCH
3904 #define ELF_ARCH bfd_arch_v850_rh850
3905 #undef ELF_MACHINE_CODE
3906 #define ELF_MACHINE_CODE EM_V800
3907 #undef ELF_MACHINE_ALT1
3908
3909 #undef elf32_bed
3910 #define elf32_bed elf32_v850_rh850_bed
3911
3912 #undef elf_info_to_howto
3913 #define elf_info_to_howto v800_elf_info_to_howto
3914 #undef elf_info_to_howto_rel
3915 #define elf_info_to_howto_rel NULL
3916 #undef bfd_elf32_bfd_reloc_type_lookup
3917 #define bfd_elf32_bfd_reloc_type_lookup v800_elf_reloc_type_lookup
3918 #undef bfd_elf32_bfd_reloc_name_lookup
3919 #define bfd_elf32_bfd_reloc_name_lookup v800_elf_reloc_name_lookup
3920
3921 #include "elf32-target.h"
GDB Binutils - Deliverables
This page took 0.105386 seconds and 5 git commands to generate.