* ld.texinfo (MEMORY): Clarify the behaviour of the ! character in
[binutils.git] / bfd / elf32-v850.c
blobe153e8305a89047d6935060c51050697806f6117
1 /* V850-specific support for 32-bit ELF
2 Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
3 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
5 This file is part of BFD, the Binary File Descriptor library.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
20 MA 02110-1301, USA. */
23 /* XXX FIXME: This code is littered with 32bit int, 16bit short, 8bit char
24 dependencies. As is the gas & simulator code for the v850. */
26 #include "sysdep.h"
27 #include "bfd.h"
28 #include "bfdlink.h"
29 #include "libbfd.h"
30 #include "elf-bfd.h"
31 #include "elf/v850.h"
32 #include "libiberty.h"
34 /* Sign-extend a 17-bit number. */
35 #define SEXT17(x) ((((x) & 0x1ffff) ^ 0x10000) - 0x10000)
37 /* Sign-extend a 22-bit number. */
38 #define SEXT22(x) ((((x) & 0x3fffff) ^ 0x200000) - 0x200000)
40 static reloc_howto_type v850_elf_howto_table[];
42 /* Look through the relocs for a section during the first phase, and
43 allocate space in the global offset table or procedure linkage
44 table. */
46 static bfd_boolean
47 v850_elf_check_relocs (bfd *abfd,
48 struct bfd_link_info *info,
49 asection *sec,
50 const Elf_Internal_Rela *relocs)
52 bfd_boolean ret = TRUE;
53 Elf_Internal_Shdr *symtab_hdr;
54 struct elf_link_hash_entry **sym_hashes;
55 const Elf_Internal_Rela *rel;
56 const Elf_Internal_Rela *rel_end;
57 enum v850_reloc_type r_type;
58 int other = 0;
59 const char *common = NULL;
61 if (info->relocatable)
62 return TRUE;
64 #ifdef DEBUG
65 _bfd_error_handler ("v850_elf_check_relocs called for section %A in %B",
66 sec, abfd);
67 #endif
69 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
70 sym_hashes = elf_sym_hashes (abfd);
72 rel_end = relocs + sec->reloc_count;
73 for (rel = relocs; rel < rel_end; rel++)
75 unsigned long r_symndx;
76 struct elf_link_hash_entry *h;
78 r_symndx = ELF32_R_SYM (rel->r_info);
79 if (r_symndx < symtab_hdr->sh_info)
80 h = NULL;
81 else
83 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
84 while (h->root.type == bfd_link_hash_indirect
85 || h->root.type == bfd_link_hash_warning)
86 h = (struct elf_link_hash_entry *) h->root.u.i.link;
89 r_type = (enum v850_reloc_type) ELF32_R_TYPE (rel->r_info);
90 switch (r_type)
92 default:
93 case R_V850_NONE:
94 case R_V850_9_PCREL:
95 case R_V850_16_PCREL:
96 case R_V850_17_PCREL:
97 case R_V850_22_PCREL:
98 case R_V850_32_PCREL:
99 case R_V850_32_ABS:
100 case R_V850_HI16:
101 case R_V850_HI16_S:
102 case R_V850_LO16:
103 case R_V850_LO16_S1:
104 case R_V850_LO16_SPLIT_OFFSET:
105 case R_V850_23:
106 case R_V850_ABS32:
107 case R_V850_REL32:
108 case R_V850_16:
109 case R_V850_16_S1:
110 case R_V850_16_SPLIT_OFFSET:
111 case R_V850_8:
112 case R_V850_CALLT_6_7_OFFSET:
113 case R_V850_CALLT_15_16_OFFSET:
114 case R_V850_CALLT_16_16_OFFSET:
115 break;
117 /* This relocation describes the C++ object vtable hierarchy.
118 Reconstruct it for later use during GC. */
119 case R_V850_GNU_VTINHERIT:
120 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
121 return FALSE;
122 break;
124 /* This relocation describes which C++ vtable entries
125 are actually used. Record for later use during GC. */
126 case R_V850_GNU_VTENTRY:
127 BFD_ASSERT (h != NULL);
128 if (h != NULL
129 && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
130 return FALSE;
131 break;
133 case R_V850_SDA_16_16_SPLIT_OFFSET:
134 case R_V850_SDA_16_16_OFFSET:
135 case R_V850_SDA_15_16_OFFSET:
136 other = V850_OTHER_SDA;
137 common = ".scommon";
138 goto small_data_common;
140 case R_V850_ZDA_16_16_SPLIT_OFFSET:
141 case R_V850_ZDA_16_16_OFFSET:
142 case R_V850_ZDA_15_16_OFFSET:
143 other = V850_OTHER_ZDA;
144 common = ".zcommon";
145 goto small_data_common;
147 case R_V850_TDA_4_4_OFFSET:
148 case R_V850_TDA_4_5_OFFSET:
149 case R_V850_TDA_7_7_OFFSET:
150 case R_V850_TDA_6_8_OFFSET:
151 case R_V850_TDA_7_8_OFFSET:
152 case R_V850_TDA_16_16_OFFSET:
153 other = V850_OTHER_TDA;
154 common = ".tcommon";
155 /* fall through */
157 #define V850_OTHER_MASK (V850_OTHER_TDA | V850_OTHER_SDA | V850_OTHER_ZDA)
159 small_data_common:
160 if (h)
162 /* Flag which type of relocation was used. */
163 h->other |= other;
164 if ((h->other & V850_OTHER_MASK) != (other & V850_OTHER_MASK)
165 && (h->other & V850_OTHER_ERROR) == 0)
167 const char * msg;
168 static char buff[200]; /* XXX */
170 switch (h->other & V850_OTHER_MASK)
172 default:
173 msg = _("Variable `%s' cannot occupy in multiple small data regions");
174 break;
175 case V850_OTHER_SDA | V850_OTHER_ZDA | V850_OTHER_TDA:
176 msg = _("Variable `%s' can only be in one of the small, zero, and tiny data regions");
177 break;
178 case V850_OTHER_SDA | V850_OTHER_ZDA:
179 msg = _("Variable `%s' cannot be in both small and zero data regions simultaneously");
180 break;
181 case V850_OTHER_SDA | V850_OTHER_TDA:
182 msg = _("Variable `%s' cannot be in both small and tiny data regions simultaneously");
183 break;
184 case V850_OTHER_ZDA | V850_OTHER_TDA:
185 msg = _("Variable `%s' cannot be in both zero and tiny data regions simultaneously");
186 break;
189 sprintf (buff, msg, h->root.root.string);
190 info->callbacks->warning (info, buff, h->root.root.string,
191 abfd, h->root.u.def.section,
192 (bfd_vma) 0);
194 bfd_set_error (bfd_error_bad_value);
195 h->other |= V850_OTHER_ERROR;
196 ret = FALSE;
200 if (h && h->root.type == bfd_link_hash_common
201 && h->root.u.c.p
202 && !strcmp (bfd_get_section_name (abfd, h->root.u.c.p->section), "COMMON"))
204 asection * section;
206 section = h->root.u.c.p->section = bfd_make_section_old_way (abfd, common);
207 section->flags |= SEC_IS_COMMON;
210 #ifdef DEBUG
211 fprintf (stderr, "v850_elf_check_relocs, found %s relocation for %s%s\n",
212 v850_elf_howto_table[ (int)r_type ].name,
213 (h && h->root.root.string) ? h->root.root.string : "<unknown>",
214 (h->root.type == bfd_link_hash_common) ? ", symbol is common" : "");
215 #endif
216 break;
220 return ret;
223 /* In the old version, when an entry was checked out from the table,
224 it was deleted. This produced an error if the entry was needed
225 more than once, as the second attempted retry failed.
227 In the current version, the entry is not deleted, instead we set
228 the field 'found' to TRUE. If a second lookup matches the same
229 entry, then we know that the hi16s reloc has already been updated
230 and does not need to be updated a second time.
232 TODO - TOFIX: If it is possible that we need to restore 2 different
233 addresses from the same table entry, where the first generates an
234 overflow, whilst the second do not, then this code will fail. */
236 typedef struct hi16s_location
238 bfd_vma addend;
239 bfd_byte * address;
240 unsigned long counter;
241 bfd_boolean found;
242 struct hi16s_location * next;
244 hi16s_location;
246 static hi16s_location * previous_hi16s;
247 static hi16s_location * free_hi16s;
248 static unsigned long hi16s_counter;
250 static void
251 remember_hi16s_reloc (bfd *abfd, bfd_vma addend, bfd_byte *address)
253 hi16s_location * entry = NULL;
254 bfd_size_type amt = sizeof (* free_hi16s);
256 /* Find a free structure. */
257 if (free_hi16s == NULL)
258 free_hi16s = bfd_zalloc (abfd, amt);
260 entry = free_hi16s;
261 free_hi16s = free_hi16s->next;
263 entry->addend = addend;
264 entry->address = address;
265 entry->counter = hi16s_counter ++;
266 entry->found = FALSE;
267 entry->next = previous_hi16s;
268 previous_hi16s = entry;
270 /* Cope with wrap around of our counter. */
271 if (hi16s_counter == 0)
273 /* XXX: Assume that all counter entries differ only in their low 16 bits. */
274 for (entry = previous_hi16s; entry != NULL; entry = entry->next)
275 entry->counter &= 0xffff;
277 hi16s_counter = 0x10000;
281 static bfd_byte *
282 find_remembered_hi16s_reloc (bfd_vma addend, bfd_boolean *already_found)
284 hi16s_location *match = NULL;
285 hi16s_location *entry;
286 bfd_byte *addr;
288 /* Search the table. Record the most recent entry that matches. */
289 for (entry = previous_hi16s; entry; entry = entry->next)
291 if (entry->addend == addend
292 && (match == NULL || match->counter < entry->counter))
294 match = entry;
298 if (match == NULL)
299 return NULL;
301 /* Extract the address. */
302 addr = match->address;
304 /* Remember if this entry has already been used before. */
305 if (already_found)
306 * already_found = match->found;
308 /* Note that this entry has now been used. */
309 match->found = TRUE;
311 return addr;
314 /* Calculate the final operand value for a R_V850_LO16 or
315 R_V850_LO16_SPLIT_OFFSET. *INSN is the current operand value and
316 ADDEND is the sum of the relocation symbol and offset. Store the
317 operand value in *INSN and return true on success.
319 The assembler has already done some of this: If the value stored in
320 the instruction has its 15th bit set, (counting from zero) then the
321 assembler will have added 1 to the value stored in the associated
322 HI16S reloc. So for example, these relocations:
324 movhi hi( fred ), r0, r1
325 movea lo( fred ), r1, r1
327 will store 0 in the value fields for the MOVHI and MOVEA instructions
328 and addend will be the address of fred, but for these instructions:
330 movhi hi( fred + 0x123456 ), r0, r1
331 movea lo( fred + 0x123456 ), r1, r1
333 the value stored in the MOVHI instruction will be 0x12 and the value
334 stored in the MOVEA instruction will be 0x3456. If however the
335 instructions were:
337 movhi hi( fred + 0x10ffff ), r0, r1
338 movea lo( fred + 0x10ffff ), r1, r1
340 then the value stored in the MOVHI instruction would be 0x11 (not
341 0x10) and the value stored in the MOVEA instruction would be 0xffff.
342 Thus (assuming for the moment that the addend is 0), at run time the
343 MOVHI instruction loads 0x110000 into r1, then the MOVEA instruction
344 adds 0xffffffff (sign extension!) producing 0x10ffff. Similarly if
345 the instructions were:
347 movhi hi( fred - 1 ), r0, r1
348 movea lo( fred - 1 ), r1, r1
350 then 0 is stored in the MOVHI instruction and -1 is stored in the
351 MOVEA instruction.
353 Overflow can occur if the addition of the value stored in the
354 instruction plus the addend sets the 15th bit when before it was clear.
355 This is because the 15th bit will be sign extended into the high part,
356 thus reducing its value by one, but since the 15th bit was originally
357 clear, the assembler will not have added 1 to the previous HI16S reloc
358 to compensate for this effect. For example:
360 movhi hi( fred + 0x123456 ), r0, r1
361 movea lo( fred + 0x123456 ), r1, r1
363 The value stored in HI16S reloc is 0x12, the value stored in the LO16
364 reloc is 0x3456. If we assume that the address of fred is 0x00007000
365 then the relocations become:
367 HI16S: 0x0012 + (0x00007000 >> 16) = 0x12
368 LO16: 0x3456 + (0x00007000 & 0xffff) = 0xa456
370 but when the instructions are executed, the MOVEA instruction's value
371 is signed extended, so the sum becomes:
373 0x00120000
374 + 0xffffa456
375 ------------
376 0x0011a456 but 'fred + 0x123456' = 0x0012a456
378 Note that if the 15th bit was set in the value stored in the LO16
379 reloc, then we do not have to do anything:
381 movhi hi( fred + 0x10ffff ), r0, r1
382 movea lo( fred + 0x10ffff ), r1, r1
384 HI16S: 0x0011 + (0x00007000 >> 16) = 0x11
385 LO16: 0xffff + (0x00007000 & 0xffff) = 0x6fff
387 0x00110000
388 + 0x00006fff
389 ------------
390 0x00116fff = fred + 0x10ffff = 0x7000 + 0x10ffff
392 Overflow can also occur if the computation carries into the 16th bit
393 and it also results in the 15th bit having the same value as the 15th
394 bit of the original value. What happens is that the HI16S reloc
395 will have already examined the 15th bit of the original value and
396 added 1 to the high part if the bit is set. This compensates for the
397 sign extension of 15th bit of the result of the computation. But now
398 there is a carry into the 16th bit, and this has not been allowed for.
400 So, for example if fred is at address 0xf000:
402 movhi hi( fred + 0xffff ), r0, r1 [bit 15 of the offset is set]
403 movea lo( fred + 0xffff ), r1, r1
405 HI16S: 0x0001 + (0x0000f000 >> 16) = 0x0001
406 LO16: 0xffff + (0x0000f000 & 0xffff) = 0xefff (carry into bit 16 is lost)
408 0x00010000
409 + 0xffffefff
410 ------------
411 0x0000efff but 'fred + 0xffff' = 0x0001efff
413 Similarly, if the 15th bit remains clear, but overflow occurs into
414 the 16th bit then (assuming the address of fred is 0xf000):
416 movhi hi( fred + 0x7000 ), r0, r1 [bit 15 of the offset is clear]
417 movea lo( fred + 0x7000 ), r1, r1
419 HI16S: 0x0000 + (0x0000f000 >> 16) = 0x0000
420 LO16: 0x7000 + (0x0000f000 & 0xffff) = 0x6fff (carry into bit 16 is lost)
422 0x00000000
423 + 0x00006fff
424 ------------
425 0x00006fff but 'fred + 0x7000' = 0x00016fff
427 Note - there is no need to change anything if a carry occurs, and the
428 15th bit changes its value from being set to being clear, as the HI16S
429 reloc will have already added in 1 to the high part for us:
431 movhi hi( fred + 0xffff ), r0, r1 [bit 15 of the offset is set]
432 movea lo( fred + 0xffff ), r1, r1
434 HI16S: 0x0001 + (0x00007000 >> 16)
435 LO16: 0xffff + (0x00007000 & 0xffff) = 0x6fff (carry into bit 16 is lost)
437 0x00010000
438 + 0x00006fff (bit 15 not set, so the top half is zero)
439 ------------
440 0x00016fff which is right (assuming that fred is at 0x7000)
442 but if the 15th bit goes from being clear to being set, then we must
443 once again handle overflow:
445 movhi hi( fred + 0x7000 ), r0, r1 [bit 15 of the offset is clear]
446 movea lo( fred + 0x7000 ), r1, r1
448 HI16S: 0x0000 + (0x0000ffff >> 16)
449 LO16: 0x7000 + (0x0000ffff & 0xffff) = 0x6fff (carry into bit 16)
451 0x00000000
452 + 0x00006fff (bit 15 not set, so the top half is zero)
453 ------------
454 0x00006fff which is wrong (assuming that fred is at 0xffff). */
456 static bfd_boolean
457 v850_elf_perform_lo16_relocation (bfd *abfd, unsigned long *insn,
458 unsigned long addend)
460 #define BIT15_SET(x) ((x) & 0x8000)
461 #define OVERFLOWS(a,i) ((((a) & 0xffff) + (i)) > 0xffff)
463 if ((BIT15_SET (*insn + addend) && ! BIT15_SET (addend))
464 || (OVERFLOWS (addend, *insn)
465 && ((! BIT15_SET (*insn)) || (BIT15_SET (addend)))))
467 bfd_boolean already_updated;
468 bfd_byte *hi16s_address = find_remembered_hi16s_reloc
469 (addend, & already_updated);
471 /* Amend the matching HI16_S relocation. */
472 if (hi16s_address != NULL)
474 if (! already_updated)
476 unsigned long hi_insn = bfd_get_16 (abfd, hi16s_address);
477 hi_insn += 1;
478 bfd_put_16 (abfd, hi_insn, hi16s_address);
481 else
483 fprintf (stderr, _("FAILED to find previous HI16 reloc\n"));
484 return FALSE;
487 #undef OVERFLOWS
488 #undef BIT15_SET
490 /* Do not complain if value has top bit set, as this has been
491 anticipated. */
492 *insn = (*insn + addend) & 0xffff;
493 return TRUE;
496 /* FIXME: The code here probably ought to be removed and the code in reloc.c
497 allowed to do its stuff instead. At least for most of the relocs, anyway. */
499 static bfd_reloc_status_type
500 v850_elf_perform_relocation (bfd *abfd,
501 unsigned int r_type,
502 bfd_vma addend,
503 bfd_byte *address)
505 unsigned long insn;
506 unsigned long result;
507 bfd_signed_vma saddend = (bfd_signed_vma) addend;
509 switch (r_type)
511 default:
512 return bfd_reloc_notsupported;
514 case R_V850_REL32:
515 case R_V850_ABS32:
516 bfd_put_32 (abfd, addend, address);
517 return bfd_reloc_ok;
519 case R_V850_23:
520 insn = bfd_get_32 (abfd, address);
521 insn &= ~((0x7f << 4) | (0x7fff80 << (16-7)));
522 insn |= ((addend & 0x7f) << 4) | ((addend & 0x7fff80) << (16-7));
523 bfd_put_32 (abfd, (bfd_vma) insn, address);
524 return bfd_reloc_ok;
526 case R_V850_22_PCREL:
527 if (saddend > 0x1fffff || saddend < -0x200000)
528 return bfd_reloc_overflow;
530 if ((addend % 2) != 0)
531 return bfd_reloc_dangerous;
533 insn = bfd_get_32 (abfd, address);
534 insn &= ~0xfffe003f;
535 insn |= (((addend & 0xfffe) << 16) | ((addend & 0x3f0000) >> 16));
536 bfd_put_32 (abfd, (bfd_vma) insn, address);
537 return bfd_reloc_ok;
539 case R_V850_17_PCREL:
540 if (saddend > 0xffff || saddend < -0x10000)
541 return bfd_reloc_overflow;
543 if ((addend % 2) != 0)
544 return bfd_reloc_dangerous;
546 insn = bfd_get_32 (abfd, address);
547 insn &= ~ 0xfffe0010;
548 insn |= ((addend & 0xfffe) << 16) | ((addend & 0x10000) >> (16-4));
549 break;
551 case R_V850_16_PCREL:
552 if ((saddend < -0xffff) || (saddend > 0))
553 return bfd_reloc_overflow;
555 if ((addend % 2) != 0)
556 return bfd_reloc_dangerous;
558 insn = bfd_get_16 (abfd, address);
559 insn &= ~0xfffe;
560 insn |= (-addend & 0xfffe);
561 break;
563 case R_V850_9_PCREL:
564 if (saddend > 0xff || saddend < -0x100)
565 return bfd_reloc_overflow;
567 if ((addend % 2) != 0)
568 return bfd_reloc_dangerous;
570 insn = bfd_get_16 (abfd, address);
571 insn &= ~ 0xf870;
572 insn |= ((addend & 0x1f0) << 7) | ((addend & 0x0e) << 3);
573 break;
575 case R_V850_HI16:
576 addend += (bfd_get_16 (abfd, address) << 16);
577 addend = (addend >> 16);
578 insn = addend;
579 break;
581 case R_V850_HI16_S:
582 /* Remember where this relocation took place. */
583 remember_hi16s_reloc (abfd, addend, address);
585 addend += (bfd_get_16 (abfd, address) << 16);
586 addend = (addend >> 16) + ((addend & 0x8000) != 0);
588 /* This relocation cannot overflow. */
589 if (addend > 0xffff)
590 addend = 0;
592 insn = addend;
593 break;
595 case R_V850_LO16:
596 insn = bfd_get_16 (abfd, address);
597 if (! v850_elf_perform_lo16_relocation (abfd, &insn, addend))
598 return bfd_reloc_overflow;
599 break;
601 case R_V850_8:
602 addend += (char) bfd_get_8 (abfd, address);
604 saddend = (bfd_signed_vma) addend;
606 if (saddend > 0x7f || saddend < -0x80)
607 return bfd_reloc_overflow;
609 bfd_put_8 (abfd, addend, address);
610 return bfd_reloc_ok;
612 case R_V850_CALLT_16_16_OFFSET:
613 addend += bfd_get_16 (abfd, address);
615 saddend = (bfd_signed_vma) addend;
617 if (saddend > 0xffff || saddend < 0)
618 return bfd_reloc_overflow;
620 insn = addend;
621 break;
623 case R_V850_CALLT_15_16_OFFSET:
624 insn = bfd_get_16 (abfd, address);
626 addend += insn & 0xfffe;;
628 saddend = (bfd_signed_vma) addend;
630 if (saddend > 0xffff || saddend < 0)
631 return bfd_reloc_overflow;
633 insn = (0xfffe & addend)
634 | (insn & ~0xfffe);
635 break;
637 case R_V850_CALLT_6_7_OFFSET:
638 insn = bfd_get_16 (abfd, address);
639 addend += ((insn & 0x3f) << 1);
641 saddend = (bfd_signed_vma) addend;
643 if (saddend > 0x7e || saddend < 0)
644 return bfd_reloc_overflow;
646 if (addend & 1)
647 return bfd_reloc_dangerous;
649 insn &= 0xff80;
650 insn |= (addend >> 1);
651 break;
653 case R_V850_16:
654 case R_V850_SDA_16_16_OFFSET:
655 case R_V850_ZDA_16_16_OFFSET:
656 case R_V850_TDA_16_16_OFFSET:
657 addend += bfd_get_16 (abfd, address);
659 saddend = (bfd_signed_vma) addend;
661 if (saddend > 0x7fff || saddend < -0x8000)
662 return bfd_reloc_overflow;
664 insn = addend;
665 break;
667 case R_V850_16_S1:
668 case R_V850_SDA_15_16_OFFSET:
669 case R_V850_ZDA_15_16_OFFSET:
670 insn = bfd_get_16 (abfd, address);
671 addend += (insn & 0xfffe);
673 saddend = (bfd_signed_vma) addend;
675 if (saddend > 0x7ffe || saddend < -0x8000)
676 return bfd_reloc_overflow;
678 if (addend & 1)
679 return bfd_reloc_dangerous;
681 insn = (addend &~ (bfd_vma) 1) | (insn & 1);
682 break;
684 case R_V850_TDA_6_8_OFFSET:
685 insn = bfd_get_16 (abfd, address);
686 addend += ((insn & 0x7e) << 1);
688 saddend = (bfd_signed_vma) addend;
690 if (saddend > 0xfc || saddend < 0)
691 return bfd_reloc_overflow;
693 if (addend & 3)
694 return bfd_reloc_dangerous;
696 insn &= 0xff81;
697 insn |= (addend >> 1);
698 break;
700 case R_V850_TDA_7_8_OFFSET:
701 insn = bfd_get_16 (abfd, address);
702 addend += ((insn & 0x7f) << 1);
704 saddend = (bfd_signed_vma) addend;
706 if (saddend > 0xfe || saddend < 0)
707 return bfd_reloc_overflow;
709 if (addend & 1)
710 return bfd_reloc_dangerous;
712 insn &= 0xff80;
713 insn |= (addend >> 1);
714 break;
716 case R_V850_TDA_7_7_OFFSET:
717 insn = bfd_get_16 (abfd, address);
718 addend += insn & 0x7f;
720 saddend = (bfd_signed_vma) addend;
722 if (saddend > 0x7f || saddend < 0)
723 return bfd_reloc_overflow;
725 insn &= 0xff80;
726 insn |= addend;
727 break;
729 case R_V850_TDA_4_5_OFFSET:
730 insn = bfd_get_16 (abfd, address);
731 addend += ((insn & 0xf) << 1);
733 saddend = (bfd_signed_vma) addend;
735 if (saddend > 0x1e || saddend < 0)
736 return bfd_reloc_overflow;
738 if (addend & 1)
739 return bfd_reloc_dangerous;
741 insn &= 0xfff0;
742 insn |= (addend >> 1);
743 break;
745 case R_V850_TDA_4_4_OFFSET:
746 insn = bfd_get_16 (abfd, address);
747 addend += insn & 0xf;
749 saddend = (bfd_signed_vma) addend;
751 if (saddend > 0xf || saddend < 0)
752 return bfd_reloc_overflow;
754 insn &= 0xfff0;
755 insn |= addend;
756 break;
758 case R_V850_LO16_S1:
759 insn = bfd_get_16 (abfd, address);
760 result = insn & 0xfffe;
761 if (! v850_elf_perform_lo16_relocation (abfd, &result, addend))
762 return bfd_reloc_overflow;
763 if (result & 1)
764 return bfd_reloc_overflow;
765 insn = (result & 0xfffe)
766 | (insn & ~0xfffe);
767 bfd_put_16 (abfd, insn, address);
768 return bfd_reloc_ok;
770 case R_V850_LO16_SPLIT_OFFSET:
771 insn = bfd_get_32 (abfd, address);
772 result = ((insn & 0xfffe0000) >> 16) | ((insn & 0x20) >> 5);
773 if (! v850_elf_perform_lo16_relocation (abfd, &result, addend))
774 return bfd_reloc_overflow;
775 insn = (((result << 16) & 0xfffe0000)
776 | ((result << 5) & 0x20)
777 | (insn & ~0xfffe0020));
778 bfd_put_32 (abfd, insn, address);
779 return bfd_reloc_ok;
781 case R_V850_16_SPLIT_OFFSET:
782 case R_V850_SDA_16_16_SPLIT_OFFSET:
783 case R_V850_ZDA_16_16_SPLIT_OFFSET:
784 insn = bfd_get_32 (abfd, address);
785 addend += ((insn & 0xfffe0000) >> 16) + ((insn & 0x20) >> 5);
787 saddend = (bfd_signed_vma) addend;
789 if (saddend > 0x7fff || saddend < -0x8000)
790 return bfd_reloc_overflow;
792 insn &= 0x0001ffdf;
793 insn |= (addend & 1) << 5;
794 insn |= (addend &~ (bfd_vma) 1) << 16;
796 bfd_put_32 (abfd, (bfd_vma) insn, address);
797 return bfd_reloc_ok;
799 case R_V850_GNU_VTINHERIT:
800 case R_V850_GNU_VTENTRY:
801 return bfd_reloc_ok;
805 bfd_put_16 (abfd, (bfd_vma) insn, address);
806 return bfd_reloc_ok;
809 /* Insert the addend into the instruction. */
811 static bfd_reloc_status_type
812 v850_elf_reloc (bfd *abfd ATTRIBUTE_UNUSED,
813 arelent *reloc,
814 asymbol *symbol,
815 void * data ATTRIBUTE_UNUSED,
816 asection *isection,
817 bfd *obfd,
818 char **err ATTRIBUTE_UNUSED)
820 long relocation;
822 /* If there is an output BFD,
823 and the symbol is not a section name (which is only defined at final link time),
824 and either we are not putting the addend into the instruction
825 or the addend is zero, so there is nothing to add into the instruction
826 then just fixup the address and return. */
827 if (obfd != NULL
828 && (symbol->flags & BSF_SECTION_SYM) == 0
829 && (! reloc->howto->partial_inplace
830 || reloc->addend == 0))
832 reloc->address += isection->output_offset;
833 return bfd_reloc_ok;
836 /* Catch relocs involving undefined symbols. */
837 if (bfd_is_und_section (symbol->section)
838 && (symbol->flags & BSF_WEAK) == 0
839 && obfd == NULL)
840 return bfd_reloc_undefined;
842 /* We handle final linking of some relocs ourselves. */
844 /* Is the address of the relocation really within the section? */
845 if (reloc->address > bfd_get_section_limit (abfd, isection))
846 return bfd_reloc_outofrange;
848 /* Work out which section the relocation is targeted at and the
849 initial relocation command value. */
851 if (reloc->howto->pc_relative)
852 return bfd_reloc_ok;
854 /* Get symbol value. (Common symbols are special.) */
855 if (bfd_is_com_section (symbol->section))
856 relocation = 0;
857 else
858 relocation = symbol->value;
860 /* Convert input-section-relative symbol value to absolute + addend. */
861 relocation += symbol->section->output_section->vma;
862 relocation += symbol->section->output_offset;
863 relocation += reloc->addend;
865 reloc->addend = relocation;
866 return bfd_reloc_ok;
869 /* This function is used for relocs which are only used
870 for relaxing, which the linker should otherwise ignore. */
872 static bfd_reloc_status_type
873 v850_elf_ignore_reloc (bfd *abfd ATTRIBUTE_UNUSED,
874 arelent *reloc_entry,
875 asymbol *symbol ATTRIBUTE_UNUSED,
876 void * data ATTRIBUTE_UNUSED,
877 asection *input_section,
878 bfd *output_bfd,
879 char **error_message ATTRIBUTE_UNUSED)
881 if (output_bfd != NULL)
882 reloc_entry->address += input_section->output_offset;
884 return bfd_reloc_ok;
886 /* Note: It is REQUIRED that the 'type' value of each entry
887 in this array match the index of the entry in the array.
888 SeeAlso: RELOC_NUBMER in include/elf/v850.h */
889 static reloc_howto_type v850_elf_howto_table[] =
891 /* This reloc does nothing. */
892 HOWTO (R_V850_NONE, /* Type. */
893 0, /* Rightshift. */
894 2, /* Size (0 = byte, 1 = short, 2 = long). */
895 32, /* Bitsize. */
896 FALSE, /* PC_relative. */
897 0, /* Bitpos. */
898 complain_overflow_bitfield, /* Complain_on_overflow. */
899 bfd_elf_generic_reloc, /* Special_function. */
900 "R_V850_NONE", /* Name. */
901 FALSE, /* Partial_inplace. */
902 0, /* Src_mask. */
903 0, /* Dst_mask. */
904 FALSE), /* PCrel_offset. */
906 /* A PC relative 9 bit branch. */
907 HOWTO (R_V850_9_PCREL, /* Type. */
908 0, /* Rightshift. */
909 1, /* Size (0 = byte, 1 = short, 2 = long). */
910 9, /* Bitsize. */
911 TRUE, /* PC_relative. */
912 0, /* Bitpos. */
913 complain_overflow_bitfield, /* Complain_on_overflow. */
914 v850_elf_reloc, /* Special_function. */
915 "R_V850_9_PCREL", /* Name. */
916 FALSE, /* Partial_inplace. */
917 0x00ffffff, /* Src_mask. */
918 0x00ffffff, /* Dst_mask. */
919 TRUE), /* PCrel_offset. */
921 /* A PC relative 22 bit branch. */
922 HOWTO (R_V850_22_PCREL, /* Type. */
923 0, /* Rightshift. */
924 2, /* Size (0 = byte, 1 = short, 2 = long). */
925 22, /* Bitsize. */
926 TRUE, /* PC_relative. */
927 0, /* Bitpos. */
928 complain_overflow_signed, /* Complain_on_overflow. */
929 v850_elf_reloc, /* Special_function. */
930 "R_V850_22_PCREL", /* Name. */
931 FALSE, /* Partial_inplace. */
932 0x07ffff80, /* Src_mask. */
933 0x07ffff80, /* Dst_mask. */
934 TRUE), /* PCrel_offset. */
936 /* High 16 bits of symbol value. */
937 HOWTO (R_V850_HI16_S, /* Type. */
938 0, /* Rightshift. */
939 1, /* Size (0 = byte, 1 = short, 2 = long). */
940 16, /* Bitsize. */
941 FALSE, /* PC_relative. */
942 0, /* Bitpos. */
943 complain_overflow_dont, /* Complain_on_overflow. */
944 v850_elf_reloc, /* Special_function. */
945 "R_V850_HI16_S", /* Name. */
946 FALSE, /* Partial_inplace. */
947 0xffff, /* Src_mask. */
948 0xffff, /* Dst_mask. */
949 FALSE), /* PCrel_offset. */
951 /* High 16 bits of symbol value. */
952 HOWTO (R_V850_HI16, /* Type. */
953 0, /* Rightshift. */
954 1, /* Size (0 = byte, 1 = short, 2 = long). */
955 16, /* Bitsize. */
956 FALSE, /* PC_relative. */
957 0, /* Bitpos. */
958 complain_overflow_dont, /* Complain_on_overflow. */
959 v850_elf_reloc, /* Special_function. */
960 "R_V850_HI16", /* Name. */
961 FALSE, /* Partial_inplace. */
962 0xffff, /* Src_mask. */
963 0xffff, /* Dst_mask. */
964 FALSE), /* PCrel_offset. */
966 /* Low 16 bits of symbol value. */
967 HOWTO (R_V850_LO16, /* Type. */
968 0, /* Rightshift. */
969 1, /* Size (0 = byte, 1 = short, 2 = long). */
970 16, /* Bitsize. */
971 FALSE, /* PC_relative. */
972 0, /* Bitpos. */
973 complain_overflow_dont, /* Complain_on_overflow. */
974 v850_elf_reloc, /* Special_function. */
975 "R_V850_LO16", /* Name. */
976 FALSE, /* Partial_inplace. */
977 0xffff, /* Src_mask. */
978 0xffff, /* Dst_mask. */
979 FALSE), /* PCrel_offset. */
981 /* Simple 32bit reloc. */
982 HOWTO (R_V850_ABS32, /* Type. */
983 0, /* Rightshift. */
984 2, /* Size (0 = byte, 1 = short, 2 = long). */
985 32, /* Bitsize. */
986 FALSE, /* PC_relative. */
987 0, /* Bitpos. */
988 complain_overflow_dont, /* Complain_on_overflow. */
989 v850_elf_reloc, /* Special_function. */
990 "R_V850_ABS32", /* Name. */
991 FALSE, /* Partial_inplace. */
992 0xffffffff, /* Src_mask. */
993 0xffffffff, /* Dst_mask. */
994 FALSE), /* PCrel_offset. */
996 /* Simple 16bit reloc. */
997 HOWTO (R_V850_16, /* Type. */
998 0, /* Rightshift. */
999 1, /* Size (0 = byte, 1 = short, 2 = long). */
1000 16, /* Bitsize. */
1001 FALSE, /* PC_relative. */
1002 0, /* Bitpos. */
1003 complain_overflow_dont, /* Complain_on_overflow. */
1004 bfd_elf_generic_reloc, /* Special_function. */
1005 "R_V850_16", /* Name. */
1006 FALSE, /* Partial_inplace. */
1007 0xffff, /* Src_mask. */
1008 0xffff, /* Dst_mask. */
1009 FALSE), /* PCrel_offset. */
1011 /* Simple 8bit reloc. */
1012 HOWTO (R_V850_8, /* Type. */
1013 0, /* Rightshift. */
1014 0, /* Size (0 = byte, 1 = short, 2 = long). */
1015 8, /* Bitsize. */
1016 FALSE, /* PC_relative. */
1017 0, /* Bitpos. */
1018 complain_overflow_dont, /* Complain_on_overflow. */
1019 bfd_elf_generic_reloc, /* Special_function. */
1020 "R_V850_8", /* Name. */
1021 FALSE, /* Partial_inplace. */
1022 0xff, /* Src_mask. */
1023 0xff, /* Dst_mask. */
1024 FALSE), /* PCrel_offset. */
1026 /* 16 bit offset from the short data area pointer. */
1027 HOWTO (R_V850_SDA_16_16_OFFSET, /* Type. */
1028 0, /* Rightshift. */
1029 1, /* Size (0 = byte, 1 = short, 2 = long). */
1030 16, /* Bitsize. */
1031 FALSE, /* PC_relative. */
1032 0, /* Bitpos. */
1033 complain_overflow_dont, /* Complain_on_overflow. */
1034 v850_elf_reloc, /* Special_function. */
1035 "R_V850_SDA_16_16_OFFSET", /* Name. */
1036 FALSE, /* Partial_inplace. */
1037 0xffff, /* Src_mask. */
1038 0xffff, /* Dst_mask. */
1039 FALSE), /* PCrel_offset. */
1041 /* 15 bit offset from the short data area pointer. */
1042 HOWTO (R_V850_SDA_15_16_OFFSET, /* Type. */
1043 1, /* Rightshift. */
1044 1, /* Size (0 = byte, 1 = short, 2 = long). */
1045 16, /* Bitsize. */
1046 FALSE, /* PC_relative. */
1047 1, /* Bitpos. */
1048 complain_overflow_dont, /* Complain_on_overflow. */
1049 v850_elf_reloc, /* Special_function. */
1050 "R_V850_SDA_15_16_OFFSET", /* Name. */
1051 FALSE, /* Partial_inplace. */
1052 0xfffe, /* Src_mask. */
1053 0xfffe, /* Dst_mask. */
1054 FALSE), /* PCrel_offset. */
1056 /* 16 bit offset from the zero data area pointer. */
1057 HOWTO (R_V850_ZDA_16_16_OFFSET, /* Type. */
1058 0, /* Rightshift. */
1059 1, /* Size (0 = byte, 1 = short, 2 = long). */
1060 16, /* Bitsize. */
1061 FALSE, /* PC_relative. */
1062 0, /* Bitpos. */
1063 complain_overflow_dont, /* Complain_on_overflow. */
1064 v850_elf_reloc, /* Special_function. */
1065 "R_V850_ZDA_16_16_OFFSET", /* Name. */
1066 FALSE, /* Partial_inplace. */
1067 0xffff, /* Src_mask. */
1068 0xffff, /* Dst_mask. */
1069 FALSE), /* PCrel_offset. */
1071 /* 15 bit offset from the zero data area pointer. */
1072 HOWTO (R_V850_ZDA_15_16_OFFSET, /* Type. */
1073 1, /* Rightshift. */
1074 1, /* Size (0 = byte, 1 = short, 2 = long). */
1075 16, /* Bitsize. */
1076 FALSE, /* PC_relative. */
1077 1, /* Bitpos. */
1078 complain_overflow_dont, /* Complain_on_overflow. */
1079 v850_elf_reloc, /* Special_function. */
1080 "R_V850_ZDA_15_16_OFFSET", /* Name. */
1081 FALSE, /* Partial_inplace. */
1082 0xfffe, /* Src_mask. */
1083 0xfffe, /* Dst_mask. */
1084 FALSE), /* PCrel_offset. */
1086 /* 6 bit offset from the tiny data area pointer. */
1087 HOWTO (R_V850_TDA_6_8_OFFSET, /* Type. */
1088 2, /* Rightshift. */
1089 1, /* Size (0 = byte, 1 = short, 2 = long). */
1090 8, /* Bitsize. */
1091 FALSE, /* PC_relative. */
1092 1, /* Bitpos. */
1093 complain_overflow_dont, /* Complain_on_overflow. */
1094 v850_elf_reloc, /* Special_function. */
1095 "R_V850_TDA_6_8_OFFSET", /* Name. */
1096 FALSE, /* Partial_inplace. */
1097 0x7e, /* Src_mask. */
1098 0x7e, /* Dst_mask. */
1099 FALSE), /* PCrel_offset. */
1101 /* 8 bit offset from the tiny data area pointer. */
1102 HOWTO (R_V850_TDA_7_8_OFFSET, /* Type. */
1103 1, /* Rightshift. */
1104 1, /* Size (0 = byte, 1 = short, 2 = long). */
1105 8, /* Bitsize. */
1106 FALSE, /* PC_relative. */
1107 0, /* Bitpos. */
1108 complain_overflow_dont, /* Complain_on_overflow. */
1109 v850_elf_reloc, /* Special_function. */
1110 "R_V850_TDA_7_8_OFFSET", /* Name. */
1111 FALSE, /* Partial_inplace. */
1112 0x7f, /* Src_mask. */
1113 0x7f, /* Dst_mask. */
1114 FALSE), /* PCrel_offset. */
1116 /* 7 bit offset from the tiny data area pointer. */
1117 HOWTO (R_V850_TDA_7_7_OFFSET, /* Type. */
1118 0, /* Rightshift. */
1119 1, /* Size (0 = byte, 1 = short, 2 = long). */
1120 7, /* Bitsize. */
1121 FALSE, /* PC_relative. */
1122 0, /* Bitpos. */
1123 complain_overflow_dont, /* Complain_on_overflow. */
1124 v850_elf_reloc, /* Special_function. */
1125 "R_V850_TDA_7_7_OFFSET", /* Name. */
1126 FALSE, /* Partial_inplace. */
1127 0x7f, /* Src_mask. */
1128 0x7f, /* Dst_mask. */
1129 FALSE), /* PCrel_offset. */
1131 /* 16 bit offset from the tiny data area pointer! */
1132 HOWTO (R_V850_TDA_16_16_OFFSET, /* Type. */
1133 0, /* Rightshift. */
1134 1, /* Size (0 = byte, 1 = short, 2 = long). */
1135 16, /* Bitsize. */
1136 FALSE, /* PC_relative. */
1137 0, /* Bitpos. */
1138 complain_overflow_dont, /* Complain_on_overflow. */
1139 v850_elf_reloc, /* Special_function. */
1140 "R_V850_TDA_16_16_OFFSET", /* Name. */
1141 FALSE, /* Partial_inplace. */
1142 0xffff, /* Src_mask. */
1143 0xfff, /* Dst_mask. */
1144 FALSE), /* PCrel_offset. */
1146 /* 5 bit offset from the tiny data area pointer. */
1147 HOWTO (R_V850_TDA_4_5_OFFSET, /* Type. */
1148 1, /* Rightshift. */
1149 1, /* Size (0 = byte, 1 = short, 2 = long). */
1150 5, /* Bitsize. */
1151 FALSE, /* PC_relative. */
1152 0, /* Bitpos. */
1153 complain_overflow_dont, /* Complain_on_overflow. */
1154 v850_elf_reloc, /* Special_function. */
1155 "R_V850_TDA_4_5_OFFSET", /* Name. */
1156 FALSE, /* Partial_inplace. */
1157 0x0f, /* Src_mask. */
1158 0x0f, /* Dst_mask. */
1159 FALSE), /* PCrel_offset. */
1161 /* 4 bit offset from the tiny data area pointer. */
1162 HOWTO (R_V850_TDA_4_4_OFFSET, /* Type. */
1163 0, /* Rightshift. */
1164 1, /* Size (0 = byte, 1 = short, 2 = long). */
1165 4, /* Bitsize. */
1166 FALSE, /* PC_relative. */
1167 0, /* Bitpos. */
1168 complain_overflow_dont, /* Complain_on_overflow. */
1169 v850_elf_reloc, /* Special_function. */
1170 "R_V850_TDA_4_4_OFFSET", /* Name. */
1171 FALSE, /* Partial_inplace. */
1172 0x0f, /* Src_mask. */
1173 0x0f, /* Dst_mask. */
1174 FALSE), /* PCrel_offset. */
1176 /* 16 bit offset from the short data area pointer. */
1177 HOWTO (R_V850_SDA_16_16_SPLIT_OFFSET, /* Type. */
1178 0, /* Rightshift. */
1179 2, /* Size (0 = byte, 1 = short, 2 = long). */
1180 16, /* Bitsize. */
1181 FALSE, /* PC_relative. */
1182 0, /* Bitpos. */
1183 complain_overflow_dont, /* Complain_on_overflow. */
1184 v850_elf_reloc, /* Special_function. */
1185 "R_V850_SDA_16_16_SPLIT_OFFSET",/* Name. */
1186 FALSE, /* Partial_inplace. */
1187 0xfffe0020, /* Src_mask. */
1188 0xfffe0020, /* Dst_mask. */
1189 FALSE), /* PCrel_offset. */
1191 /* 16 bit offset from the zero data area pointer. */
1192 HOWTO (R_V850_ZDA_16_16_SPLIT_OFFSET, /* Type. */
1193 0, /* Rightshift. */
1194 2, /* Size (0 = byte, 1 = short, 2 = long). */
1195 16, /* Bitsize. */
1196 FALSE, /* PC_relative. */
1197 0, /* Bitpos. */
1198 complain_overflow_dont, /* Complain_on_overflow. */
1199 v850_elf_reloc, /* Special_function. */
1200 "R_V850_ZDA_16_16_SPLIT_OFFSET",/* Name. */
1201 FALSE, /* Partial_inplace. */
1202 0xfffe0020, /* Src_mask. */
1203 0xfffe0020, /* Dst_mask. */
1204 FALSE), /* PCrel_offset. */
1206 /* 6 bit offset from the call table base pointer. */
1207 HOWTO (R_V850_CALLT_6_7_OFFSET, /* Type. */
1208 0, /* Rightshift. */
1209 1, /* Size (0 = byte, 1 = short, 2 = long). */
1210 7, /* Bitsize. */
1211 FALSE, /* PC_relative. */
1212 0, /* Bitpos. */
1213 complain_overflow_dont, /* Complain_on_overflow. */
1214 v850_elf_reloc, /* Special_function. */
1215 "R_V850_CALLT_6_7_OFFSET", /* Name. */
1216 FALSE, /* Partial_inplace. */
1217 0x3f, /* Src_mask. */
1218 0x3f, /* Dst_mask. */
1219 FALSE), /* PCrel_offset. */
1221 /* 16 bit offset from the call table base pointer. */
1222 HOWTO (R_V850_CALLT_16_16_OFFSET, /* Type. */
1223 0, /* Rightshift. */
1224 1, /* Size (0 = byte, 1 = short, 2 = long). */
1225 16, /* Bitsize. */
1226 FALSE, /* PC_relative. */
1227 0, /* Bitpos. */
1228 complain_overflow_dont, /* Complain_on_overflow. */
1229 v850_elf_reloc, /* Special_function. */
1230 "R_V850_CALLT_16_16_OFFSET", /* Name. */
1231 FALSE, /* Partial_inplace. */
1232 0xffff, /* Src_mask. */
1233 0xffff, /* Dst_mask. */
1234 FALSE), /* PCrel_offset. */
1237 /* GNU extension to record C++ vtable hierarchy */
1238 HOWTO (R_V850_GNU_VTINHERIT, /* Type. */
1239 0, /* Rightshift. */
1240 2, /* Size (0 = byte, 1 = short, 2 = long). */
1241 0, /* Bitsize. */
1242 FALSE, /* PC_relative. */
1243 0, /* Bitpos. */
1244 complain_overflow_dont, /* Complain_on_overflow. */
1245 NULL, /* Special_function. */
1246 "R_V850_GNU_VTINHERIT", /* Name. */
1247 FALSE, /* Partial_inplace. */
1248 0, /* Src_mask. */
1249 0, /* Dst_mask. */
1250 FALSE), /* PCrel_offset. */
1252 /* GNU extension to record C++ vtable member usage. */
1253 HOWTO (R_V850_GNU_VTENTRY, /* Type. */
1254 0, /* Rightshift. */
1255 2, /* Size (0 = byte, 1 = short, 2 = long). */
1256 0, /* Bitsize. */
1257 FALSE, /* PC_relative. */
1258 0, /* Bitpos. */
1259 complain_overflow_dont, /* Complain_on_overflow. */
1260 _bfd_elf_rel_vtable_reloc_fn, /* Special_function. */
1261 "R_V850_GNU_VTENTRY", /* Name. */
1262 FALSE, /* Partial_inplace. */
1263 0, /* Src_mask. */
1264 0, /* Dst_mask. */
1265 FALSE), /* PCrel_offset. */
1267 /* Indicates a .longcall pseudo-op. The compiler will generate a .longcall
1268 pseudo-op when it finds a function call which can be relaxed. */
1269 HOWTO (R_V850_LONGCALL, /* Type. */
1270 0, /* Rightshift. */
1271 2, /* Size (0 = byte, 1 = short, 2 = long). */
1272 32, /* Bitsize. */
1273 TRUE, /* PC_relative. */
1274 0, /* Bitpos. */
1275 complain_overflow_signed, /* Complain_on_overflow. */
1276 v850_elf_ignore_reloc, /* Special_function. */
1277 "R_V850_LONGCALL", /* Name. */
1278 FALSE, /* Partial_inplace. */
1279 0, /* Src_mask. */
1280 0, /* Dst_mask. */
1281 TRUE), /* PCrel_offset. */
1283 /* Indicates a .longjump pseudo-op. The compiler will generate a
1284 .longjump pseudo-op when it finds a branch which can be relaxed. */
1285 HOWTO (R_V850_LONGJUMP, /* Type. */
1286 0, /* Rightshift. */
1287 2, /* Size (0 = byte, 1 = short, 2 = long). */
1288 32, /* Bitsize. */
1289 TRUE, /* PC_relative. */
1290 0, /* Bitpos. */
1291 complain_overflow_signed, /* Complain_on_overflow. */
1292 v850_elf_ignore_reloc, /* Special_function. */
1293 "R_V850_LONGJUMP", /* Name. */
1294 FALSE, /* Partial_inplace. */
1295 0, /* Src_mask. */
1296 0, /* Dst_mask. */
1297 TRUE), /* PCrel_offset. */
1299 HOWTO (R_V850_ALIGN, /* Type. */
1300 0, /* Rightshift. */
1301 1, /* Size (0 = byte, 1 = short, 2 = long). */
1302 0, /* Bitsize. */
1303 FALSE, /* PC_relative. */
1304 0, /* Bitpos. */
1305 complain_overflow_unsigned, /* Complain_on_overflow. */
1306 v850_elf_ignore_reloc, /* Special_function. */
1307 "R_V850_ALIGN", /* Name. */
1308 FALSE, /* Partial_inplace. */
1309 0, /* Src_mask. */
1310 0, /* Dst_mask. */
1311 TRUE), /* PCrel_offset. */
1313 /* Simple pc-relative 32bit reloc. */
1314 HOWTO (R_V850_REL32, /* Type. */
1315 0, /* Rightshift. */
1316 2, /* Size (0 = byte, 1 = short, 2 = long). */
1317 32, /* Bitsize. */
1318 TRUE, /* PC_relative. */
1319 0, /* Bitpos. */
1320 complain_overflow_dont, /* Complain_on_overflow. */
1321 v850_elf_reloc, /* Special_function. */
1322 "R_V850_REL32", /* Name. */
1323 FALSE, /* Partial_inplace. */
1324 0xffffffff, /* Src_mask. */
1325 0xffffffff, /* Dst_mask. */
1326 FALSE), /* PCrel_offset. */
1328 /* An ld.bu version of R_V850_LO16. */
1329 HOWTO (R_V850_LO16_SPLIT_OFFSET, /* Type. */
1330 0, /* Rightshift. */
1331 2, /* Size (0 = byte, 1 = short, 2 = long). */
1332 16, /* Bitsize. */
1333 FALSE, /* PC_relative. */
1334 0, /* Bitpos. */
1335 complain_overflow_dont, /* Complain_on_overflow. */
1336 v850_elf_reloc, /* Special_function. */
1337 "R_V850_LO16_SPLIT_OFFSET", /* Name. */
1338 FALSE, /* Partial_inplace. */
1339 0xfffe0020, /* Src_mask. */
1340 0xfffe0020, /* Dst_mask. */
1341 FALSE), /* PCrel_offset. */
1343 /* A unsigned PC relative 16 bit loop. */
1344 HOWTO (R_V850_16_PCREL, /* Type. */
1345 0, /* Rightshift. */
1346 1, /* Size (0 = byte, 1 = short, 2 = long). */
1347 16, /* Bitsize. */
1348 TRUE, /* PC_relative. */
1349 0, /* Bitpos. */
1350 complain_overflow_bitfield, /* Complain_on_overflow. */
1351 v850_elf_reloc, /* Special_function. */
1352 "R_V850_16_PCREL", /* Name. */
1353 FALSE, /* Partial_inplace. */
1354 0xfffe, /* Src_mask. */
1355 0xfffe, /* Dst_mask. */
1356 TRUE), /* PCrel_offset. */
1358 /* A PC relative 17 bit branch. */
1359 HOWTO (R_V850_17_PCREL, /* Type. */
1360 0, /* Rightshift. */
1361 2, /* Size (0 = byte, 1 = short, 2 = long). */
1362 17, /* Bitsize. */
1363 TRUE, /* PC_relative. */
1364 0, /* Bitpos. */
1365 complain_overflow_bitfield, /* Complain_on_overflow. */
1366 v850_elf_reloc, /* Special_function. */
1367 "R_V850_17_PCREL", /* Name. */
1368 FALSE, /* Partial_inplace. */
1369 0x0010fffe, /* Src_mask. */
1370 0x0010fffe, /* Dst_mask. */
1371 TRUE), /* PCrel_offset. */
1373 /* A 23bit offset ld/st. */
1374 HOWTO (R_V850_23, /* type. */
1375 0, /* rightshift. */
1376 2, /* size (0 = byte, 1 = short, 2 = long). */
1377 23, /* bitsize. */
1378 FALSE, /* pc_relative. */
1379 0, /* bitpos. */
1380 complain_overflow_dont, /* complain_on_overflow. */
1381 v850_elf_reloc, /* special_function. */
1382 "R_V850_23", /* name. */
1383 FALSE, /* partial_inplace. */
1384 0xffff07f0, /* src_mask. */
1385 0xffff07f0, /* dst_mask. */
1386 FALSE), /* pcrel_offset. */
1388 /* A PC relative 32 bit branch. */
1389 HOWTO (R_V850_32_PCREL, /* type. */
1390 1, /* rightshift. */
1391 2, /* size (0 = byte, 1 = short, 2 = long). */
1392 32, /* bitsize. */
1393 TRUE, /* pc_relative. */
1394 1, /* bitpos. */
1395 complain_overflow_signed, /* complain_on_overflow. */
1396 v850_elf_reloc, /* special_function. */
1397 "R_V850_32_PCREL", /* name. */
1398 FALSE, /* partial_inplace. */
1399 0xfffffffe, /* src_mask. */
1400 0xfffffffe, /* dst_mask. */
1401 TRUE), /* pcrel_offset. */
1403 /* A absolute 32 bit branch. */
1404 HOWTO (R_V850_32_ABS, /* type. */
1405 1, /* rightshift. */
1406 2, /* size (0 = byte, 1 = short, 2 = long). */
1407 32, /* bitsize. */
1408 TRUE, /* pc_relative. */
1409 1, /* bitpos. */
1410 complain_overflow_signed, /* complain_on_overflow. */
1411 v850_elf_reloc, /* special_function. */
1412 "R_V850_32_ABS", /* name. */
1413 FALSE, /* partial_inplace. */
1414 0xfffffffe, /* src_mask. */
1415 0xfffffffe, /* dst_mask. */
1416 FALSE), /* pcrel_offset. */
1418 /* High 16 bits of symbol value. */
1419 HOWTO (R_V850_HI16, /* Type. */
1420 0, /* Rightshift. */
1421 1, /* Size (0 = byte, 1 = short, 2 = long). */
1422 16, /* Bitsize. */
1423 FALSE, /* PC_relative. */
1424 0, /* Bitpos. */
1425 complain_overflow_dont, /* Complain_on_overflow. */
1426 v850_elf_reloc, /* Special_function. */
1427 "R_V850_HI16", /* Name. */
1428 FALSE, /* Partial_inplace. */
1429 0xffff, /* Src_mask. */
1430 0xffff, /* Dst_mask. */
1431 FALSE), /* PCrel_offset. */
1433 /* Low 16 bits of symbol value. */
1434 HOWTO (R_V850_16_S1, /* type. */
1435 1, /* rightshift. */
1436 1, /* size (0 = byte, 1 = short, 2 = long). */
1437 16, /* bitsize. */
1438 FALSE, /* pc_relative. */
1439 1, /* bitpos. */
1440 complain_overflow_dont, /* complain_on_overflow. */
1441 v850_elf_reloc, /* special_function. */
1442 "R_V850_16_S1", /* name. */
1443 FALSE, /* partial_inplace. */
1444 0xfffe, /* src_mask. */
1445 0xfffe, /* dst_mask. */
1446 FALSE), /* pcrel_offset. */
1448 /* Low 16 bits of symbol value. */
1449 HOWTO (R_V850_LO16_S1, /* type. */
1450 1, /* rightshift. */
1451 1, /* size (0 = byte, 1 = short, 2 = long). */
1452 16, /* bitsize. */
1453 FALSE, /* pc_relative. */
1454 1, /* bitpos. */
1455 complain_overflow_dont, /* complain_on_overflow. */
1456 v850_elf_reloc, /* special_function. */
1457 "R_V850_LO16_S1", /* name. */
1458 FALSE, /* partial_inplace. */
1459 0xfffe, /* src_mask. */
1460 0xfffe, /* dst_mask. */
1461 FALSE), /* pcrel_offset. */
1463 /* 16 bit offset from the call table base pointer. */
1464 HOWTO (R_V850_CALLT_15_16_OFFSET, /* type. */
1465 1, /* rightshift. */
1466 1, /* size (0 = byte, 1 = short, 2 = long). */
1467 16, /* bitsize. */
1468 FALSE, /* pc_relative. */
1469 1, /* bitpos. */
1470 complain_overflow_dont, /* complain_on_overflow. */
1471 v850_elf_reloc, /* special_function. */
1472 "R_V850_CALLT_15_16_OFFSET", /* name. */
1473 FALSE, /* partial_inplace. */
1474 0xfffe, /* src_mask. */
1475 0xfffe, /* dst_mask. */
1476 FALSE), /* pcrel_offset. */
1478 /* Like R_V850_32 PCREL, but referring to the GOT table entry for
1479 the symbol. */
1480 HOWTO (R_V850_32_GOTPCREL, /* type. */
1481 0, /* rightshift. */
1482 2, /* size (0 = byte, 1 = short, 2 = long). */
1483 32, /* bitsize. */
1484 TRUE, /* pc_relative. */
1485 0, /* bitpos. */
1486 complain_overflow_unsigned, /* complain_on_overflow. */
1487 v850_elf_reloc, /* special_function. */
1488 "R_V850_32_GOTPCREL", /* name. */
1489 FALSE, /* partial_inplace. */
1490 0xffffffff, /* src_mask. */
1491 0xffffffff, /* dst_mask. */
1492 TRUE), /* pcrel_offset. */
1494 /* Like R_V850_SDA_, but referring to the GOT table entry for
1495 the symbol. */
1496 HOWTO (R_V850_16_GOT, /* type. */
1497 0, /* rightshift. */
1498 2, /* size (0 = byte, 1 = short, 2 = long). */
1499 16, /* bitsize. */
1500 FALSE, /* pc_relative. */
1501 0, /* bitpos. */
1502 complain_overflow_unsigned, /* complain_on_overflow. */
1503 bfd_elf_generic_reloc, /* special_function. */
1504 "R_V850_16_GOT", /* name. */
1505 FALSE, /* partial_inplace. */
1506 0xffff, /* src_mask. */
1507 0xffff, /* dst_mask. */
1508 FALSE), /* pcrel_offset. */
1510 HOWTO (R_V850_32_GOT, /* type. */
1511 0, /* rightshift. */
1512 2, /* size (0 = byte, 1 = short, 2 = long). */
1513 32, /* bitsize. */
1514 FALSE, /* pc_relative. */
1515 0, /* bitpos. */
1516 complain_overflow_unsigned, /* complain_on_overflow. */
1517 bfd_elf_generic_reloc, /* special_function. */
1518 "R_V850_32_GOT", /* name. */
1519 FALSE, /* partial_inplace. */
1520 0xffffffff, /* src_mask. */
1521 0xffffffff, /* dst_mask. */
1522 FALSE), /* pcrel_offset. */
1524 /* Like R_V850_22_PCREL, but referring to the procedure linkage table
1525 entry for the symbol. */
1526 HOWTO (R_V850_22_PLT, /* type. */
1527 1, /* rightshift. */
1528 2, /* size (0 = byte, 1 = short, 2 = long). */
1529 22, /* bitsize. */
1530 TRUE, /* pc_relative. */
1531 7, /* bitpos. */
1532 complain_overflow_signed, /* complain_on_overflow. */
1533 bfd_elf_generic_reloc, /* special_function. */
1534 "R_V850_22_PLT", /* name. */
1535 FALSE, /* partial_inplace. */
1536 0x07ffff80, /* src_mask. */
1537 0x07ffff80, /* dst_mask. */
1538 TRUE), /* pcrel_offset. */
1540 HOWTO (R_V850_32_PLT, /* type. */
1541 1, /* rightshift. */
1542 2, /* size (0 = byte, 1 = short, 2 = long). */
1543 32, /* bitsize. */
1544 TRUE, /* pc_relative. */
1545 1, /* bitpos. */
1546 complain_overflow_signed, /* complain_on_overflow. */
1547 bfd_elf_generic_reloc, /* special_function. */
1548 "R_V850_32_PLT", /* name. */
1549 FALSE, /* partial_inplace. */
1550 0xffffffff, /* src_mask. */
1551 0xffffffff, /* dst_mask. */
1552 TRUE), /* pcrel_offset. */
1554 /* This is used only by the dynamic linker. The symbol should exist
1555 both in the object being run and in some shared library. The
1556 dynamic linker copies the data addressed by the symbol from the
1557 shared library into the object, because the object being
1558 run has to have the data at some particular address. */
1559 HOWTO (R_V850_COPY, /* type. */
1560 0, /* rightshift. */
1561 2, /* size (0 = byte, 1 = short, 2 = long). */
1562 32, /* bitsize. */
1563 FALSE, /* pc_relative. */
1564 0, /* bitpos. */
1565 complain_overflow_bitfield, /* complain_on_overflow. */
1566 bfd_elf_generic_reloc, /* special_function. */
1567 "R_V850_COPY", /* name. */
1568 FALSE, /* partial_inplace. */
1569 0xffffffff, /* src_mask. */
1570 0xffffffff, /* dst_mask. */
1571 FALSE), /* pcrel_offset. */
1573 /* Like R_M32R_24, but used when setting global offset table
1574 entries. */
1575 HOWTO (R_V850_GLOB_DAT, /* type. */
1576 0, /* rightshift. */
1577 2, /* size (0 = byte, 1 = short, 2 = long) */
1578 32, /* bitsize. */
1579 FALSE, /* pc_relative. */
1580 0, /* bitpos. */
1581 complain_overflow_bitfield, /* complain_on_overflow. */
1582 bfd_elf_generic_reloc, /* special_function. */
1583 "R_V850_GLOB_DAT", /* name. */
1584 FALSE, /* partial_inplace. */
1585 0xffffffff, /* src_mask. */
1586 0xffffffff, /* dst_mask. */
1587 FALSE), /* pcrel_offset. */
1589 /* Marks a procedure linkage table entry for a symbol. */
1590 HOWTO (R_V850_JMP_SLOT, /* type. */
1591 0, /* rightshift. */
1592 2, /* size (0 = byte, 1 = short, 2 = long) */
1593 32, /* bitsize. */
1594 FALSE, /* pc_relative. */
1595 0, /* bitpos. */
1596 complain_overflow_bitfield, /* complain_on_overflow. */
1597 bfd_elf_generic_reloc, /* special_function. */
1598 "R_V850_JMP_SLOT", /* name. */
1599 FALSE, /* partial_inplace. */
1600 0xffffffff, /* src_mask. */
1601 0xffffffff, /* dst_mask. */
1602 FALSE), /* pcrel_offset. */
1604 /* Used only by the dynamic linker. When the object is run, this
1605 longword is set to the load address of the object, plus the
1606 addend. */
1607 HOWTO (R_V850_RELATIVE, /* type. */
1608 0, /* rightshift. */
1609 2, /* size (0 = byte, 1 = short, 2 = long) */
1610 32, /* bitsize. */
1611 FALSE, /* pc_relative. */
1612 0, /* bitpos. */
1613 complain_overflow_bitfield, /* complain_on_overflow. */
1614 bfd_elf_generic_reloc, /* special_function. */
1615 "R_V850_RELATIVE", /* name. */
1616 FALSE, /* partial_inplace. */
1617 0xffffffff, /* src_mask. */
1618 0xffffffff, /* dst_mask. */
1619 FALSE), /* pcrel_offset. */
1621 HOWTO (R_V850_16_GOTOFF, /* type. */
1622 0, /* rightshift. */
1623 2, /* size (0 = byte, 1 = short, 2 = long) */
1624 16, /* bitsize. */
1625 FALSE, /* pc_relative. */
1626 0, /* bitpos. */
1627 complain_overflow_bitfield, /* complain_on_overflow. */
1628 bfd_elf_generic_reloc, /* special_function. */
1629 "R_V850_16_GOTOFF", /* name. */
1630 FALSE, /* partial_inplace. */
1631 0xffff, /* src_mask. */
1632 0xffff, /* dst_mask. */
1633 FALSE), /* pcrel_offset. */
1635 HOWTO (R_V850_32_GOTOFF, /* type. */
1636 0, /* rightshift. */
1637 2, /* size (0 = byte, 1 = short, 2 = long) */
1638 32, /* bitsize. */
1639 FALSE, /* pc_relative. */
1640 0, /* bitpos. */
1641 complain_overflow_bitfield, /* complain_on_overflow. */
1642 bfd_elf_generic_reloc, /* special_function. */
1643 "R_V850_32_GOTOFF", /* name. */
1644 FALSE, /* partial_inplace. */
1645 0xffffffff, /* src_mask. */
1646 0xffffffff, /* dst_mask. */
1647 FALSE), /* pcrel_offset. */
1649 HOWTO (R_V850_CODE, /* type. */
1650 0, /* rightshift. */
1651 1, /* size (0 = byte, 1 = short, 2 = long) */
1652 0, /* bitsize. */
1653 FALSE, /* pc_relative. */
1654 0, /* bitpos. */
1655 complain_overflow_unsigned, /* complain_on_overflow. */
1656 v850_elf_ignore_reloc, /* special_function. */
1657 "R_V850_CODE", /* name. */
1658 FALSE, /* partial_inplace. */
1659 0, /* src_mask. */
1660 0, /* dst_mask. */
1661 TRUE), /* pcrel_offset. */
1663 HOWTO (R_V850_DATA, /* type. */
1664 0, /* rightshift. */
1665 1, /* size (0 = byte, 1 = short, 2 = long) */
1666 0, /* bitsize. */
1667 FALSE, /* pc_relative. */
1668 0, /* bitpos. */
1669 complain_overflow_unsigned, /* complain_on_overflow. */
1670 v850_elf_ignore_reloc, /* special_function. */
1671 "R_V850_DATA", /* name. */
1672 FALSE, /* partial_inplace. */
1673 0, /* src_mask. */
1674 0, /* dst_mask. */
1675 TRUE), /* pcrel_offset. */
1679 /* Map BFD reloc types to V850 ELF reloc types. */
1681 struct v850_elf_reloc_map
1683 /* BFD_RELOC_V850_CALLT_16_16_OFFSET is 258, which will not fix in an
1684 unsigned char. */
1685 bfd_reloc_code_real_type bfd_reloc_val;
1686 unsigned int elf_reloc_val;
1689 static const struct v850_elf_reloc_map v850_elf_reloc_map[] =
1691 { BFD_RELOC_NONE, R_V850_NONE },
1692 { BFD_RELOC_V850_9_PCREL, R_V850_9_PCREL },
1693 { BFD_RELOC_V850_22_PCREL, R_V850_22_PCREL },
1694 { BFD_RELOC_HI16_S, R_V850_HI16_S },
1695 { BFD_RELOC_HI16, R_V850_HI16 },
1696 { BFD_RELOC_LO16, R_V850_LO16 },
1697 { BFD_RELOC_32, R_V850_ABS32 },
1698 { BFD_RELOC_32_PCREL, R_V850_REL32 },
1699 { BFD_RELOC_16, R_V850_16 },
1700 { BFD_RELOC_8, R_V850_8 },
1701 { BFD_RELOC_V850_SDA_16_16_OFFSET, R_V850_SDA_16_16_OFFSET },
1702 { BFD_RELOC_V850_SDA_15_16_OFFSET, R_V850_SDA_15_16_OFFSET },
1703 { BFD_RELOC_V850_ZDA_16_16_OFFSET, R_V850_ZDA_16_16_OFFSET },
1704 { BFD_RELOC_V850_ZDA_15_16_OFFSET, R_V850_ZDA_15_16_OFFSET },
1705 { BFD_RELOC_V850_TDA_6_8_OFFSET, R_V850_TDA_6_8_OFFSET },
1706 { BFD_RELOC_V850_TDA_7_8_OFFSET, R_V850_TDA_7_8_OFFSET },
1707 { BFD_RELOC_V850_TDA_7_7_OFFSET, R_V850_TDA_7_7_OFFSET },
1708 { BFD_RELOC_V850_TDA_16_16_OFFSET, R_V850_TDA_16_16_OFFSET },
1709 { BFD_RELOC_V850_TDA_4_5_OFFSET, R_V850_TDA_4_5_OFFSET },
1710 { BFD_RELOC_V850_TDA_4_4_OFFSET, R_V850_TDA_4_4_OFFSET },
1711 { BFD_RELOC_V850_LO16_SPLIT_OFFSET, R_V850_LO16_SPLIT_OFFSET },
1712 { BFD_RELOC_V850_SDA_16_16_SPLIT_OFFSET, R_V850_SDA_16_16_SPLIT_OFFSET },
1713 { BFD_RELOC_V850_ZDA_16_16_SPLIT_OFFSET, R_V850_ZDA_16_16_SPLIT_OFFSET },
1714 { BFD_RELOC_V850_CALLT_6_7_OFFSET, R_V850_CALLT_6_7_OFFSET },
1715 { BFD_RELOC_V850_CALLT_16_16_OFFSET, R_V850_CALLT_16_16_OFFSET },
1716 { BFD_RELOC_VTABLE_INHERIT, R_V850_GNU_VTINHERIT },
1717 { BFD_RELOC_VTABLE_ENTRY, R_V850_GNU_VTENTRY },
1718 { BFD_RELOC_V850_LONGCALL, R_V850_LONGCALL },
1719 { BFD_RELOC_V850_LONGJUMP, R_V850_LONGJUMP },
1720 { BFD_RELOC_V850_ALIGN, R_V850_ALIGN },
1721 { BFD_RELOC_V850_16_PCREL, R_V850_16_PCREL },
1722 { BFD_RELOC_V850_17_PCREL, R_V850_17_PCREL },
1723 { BFD_RELOC_V850_23, R_V850_23 },
1724 { BFD_RELOC_V850_32_PCREL, R_V850_32_PCREL },
1725 { BFD_RELOC_V850_32_ABS, R_V850_32_ABS },
1726 { BFD_RELOC_V850_16_SPLIT_OFFSET, R_V850_HI16 },
1727 { BFD_RELOC_V850_16_S1, R_V850_16_S1 },
1728 { BFD_RELOC_V850_LO16_S1, R_V850_LO16_S1 },
1729 { BFD_RELOC_V850_CALLT_15_16_OFFSET, R_V850_CALLT_15_16_OFFSET },
1730 { BFD_RELOC_V850_32_GOTPCREL, R_V850_32_GOTPCREL },
1731 { BFD_RELOC_V850_16_GOT, R_V850_16_GOT },
1732 { BFD_RELOC_V850_32_GOT, R_V850_32_GOT },
1733 { BFD_RELOC_V850_22_PLT_PCREL, R_V850_22_PLT },
1734 { BFD_RELOC_V850_32_PLT_PCREL, R_V850_32_PLT },
1735 { BFD_RELOC_V850_COPY, R_V850_COPY },
1736 { BFD_RELOC_V850_GLOB_DAT, R_V850_GLOB_DAT },
1737 { BFD_RELOC_V850_JMP_SLOT, R_V850_JMP_SLOT },
1738 { BFD_RELOC_V850_RELATIVE, R_V850_RELATIVE },
1739 { BFD_RELOC_V850_16_GOTOFF, R_V850_16_GOTOFF },
1740 { BFD_RELOC_V850_32_GOTOFF, R_V850_32_GOTOFF },
1741 { BFD_RELOC_V850_CODE, R_V850_CODE },
1742 { BFD_RELOC_V850_DATA, R_V850_DATA },
1745 /* Map a bfd relocation into the appropriate howto structure. */
1747 static reloc_howto_type *
1748 v850_elf_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1749 bfd_reloc_code_real_type code)
1751 unsigned int i;
1753 for (i = ARRAY_SIZE (v850_elf_reloc_map); i --;)
1754 if (v850_elf_reloc_map[i].bfd_reloc_val == code)
1756 unsigned int elf_reloc_val = v850_elf_reloc_map[i].elf_reloc_val;
1758 BFD_ASSERT (v850_elf_howto_table[elf_reloc_val].type == elf_reloc_val);
1760 return v850_elf_howto_table + elf_reloc_val;
1763 return NULL;
1766 static reloc_howto_type *
1767 v850_elf_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1768 const char *r_name)
1770 unsigned int i;
1772 for (i = 0;
1773 i < sizeof (v850_elf_howto_table) / sizeof (v850_elf_howto_table[0]);
1774 i++)
1775 if (v850_elf_howto_table[i].name != NULL
1776 && strcasecmp (v850_elf_howto_table[i].name, r_name) == 0)
1777 return &v850_elf_howto_table[i];
1779 return NULL;
1782 /* Set the howto pointer for an V850 ELF reloc. */
1784 static void
1785 v850_elf_info_to_howto_rel (bfd *abfd ATTRIBUTE_UNUSED,
1786 arelent *cache_ptr,
1787 Elf_Internal_Rela *dst)
1789 unsigned int r_type;
1791 r_type = ELF32_R_TYPE (dst->r_info);
1792 BFD_ASSERT (r_type < (unsigned int) R_V850_max);
1793 cache_ptr->howto = &v850_elf_howto_table[r_type];
1796 /* Set the howto pointer for a V850 ELF reloc (type RELA). */
1798 static void
1799 v850_elf_info_to_howto_rela (bfd *abfd ATTRIBUTE_UNUSED,
1800 arelent * cache_ptr,
1801 Elf_Internal_Rela *dst)
1803 unsigned int r_type;
1805 r_type = ELF32_R_TYPE (dst->r_info);
1806 BFD_ASSERT (r_type < (unsigned int) R_V850_max);
1807 cache_ptr->howto = &v850_elf_howto_table[r_type];
1810 static bfd_boolean
1811 v850_elf_is_local_label_name (bfd *abfd ATTRIBUTE_UNUSED, const char *name)
1813 return ( (name[0] == '.' && (name[1] == 'L' || name[1] == '.'))
1814 || (name[0] == '_' && name[1] == '.' && name[2] == 'L' && name[3] == '_'));
1817 /* We overload some of the bfd_reloc error codes for own purposes. */
1818 #define bfd_reloc_gp_not_found bfd_reloc_other
1819 #define bfd_reloc_ep_not_found bfd_reloc_continue
1820 #define bfd_reloc_ctbp_not_found (bfd_reloc_dangerous + 1)
1822 /* Perform a relocation as part of a final link. */
1824 static bfd_reloc_status_type
1825 v850_elf_final_link_relocate (reloc_howto_type *howto,
1826 bfd *input_bfd,
1827 bfd *output_bfd ATTRIBUTE_UNUSED,
1828 asection *input_section,
1829 bfd_byte *contents,
1830 bfd_vma offset,
1831 bfd_vma value,
1832 bfd_vma addend,
1833 struct bfd_link_info *info,
1834 asection *sym_sec,
1835 int is_local ATTRIBUTE_UNUSED)
1837 unsigned int r_type = howto->type;
1838 bfd_byte *hit_data = contents + offset;
1840 /* Adjust the value according to the relocation. */
1841 switch (r_type)
1843 case R_V850_9_PCREL:
1844 value -= (input_section->output_section->vma
1845 + input_section->output_offset);
1846 value -= offset;
1847 break;
1849 case R_V850_16_PCREL:
1850 value -= (input_section->output_section->vma
1851 + input_section->output_offset
1852 + offset);
1854 /* If the sign extension will corrupt the value then we have overflowed. */
1855 if ((value & 0xffff0000) != 0xffff0000)
1856 return bfd_reloc_overflow;
1858 break;
1860 case R_V850_17_PCREL:
1861 value -= (input_section->output_section->vma
1862 + input_section->output_offset
1863 + offset);
1865 /* If the sign extension will corrupt the value then we have overflowed. */
1866 if (((value & 0xffff0000) != 0x0) && ((value & 0xffff0000) != 0xffff0000))
1867 return bfd_reloc_overflow;
1869 value = SEXT17 (value);
1870 break;
1872 case R_V850_22_PCREL:
1873 value -= (input_section->output_section->vma
1874 + input_section->output_offset
1875 + offset);
1877 /* If the sign extension will corrupt the value then we have overflowed. */
1878 if (((value & 0xffe00000) != 0x0) && ((value & 0xffe00000) != 0xffe00000))
1879 return bfd_reloc_overflow;
1881 /* Only the bottom 22 bits of the PC are valid. */
1882 value = SEXT22 (value);
1883 break;
1885 case R_V850_32_PCREL:
1886 value -= (input_section->output_section->vma
1887 + input_section->output_offset
1888 + offset);
1889 break;
1891 case R_V850_32_ABS:
1892 case R_V850_23:
1893 case R_V850_HI16_S:
1894 case R_V850_HI16:
1895 case R_V850_LO16:
1896 case R_V850_LO16_S1:
1897 case R_V850_LO16_SPLIT_OFFSET:
1898 case R_V850_16:
1899 case R_V850_ABS32:
1900 case R_V850_8:
1901 break;
1903 case R_V850_ZDA_15_16_OFFSET:
1904 case R_V850_ZDA_16_16_OFFSET:
1905 case R_V850_ZDA_16_16_SPLIT_OFFSET:
1906 if (sym_sec == NULL)
1907 return bfd_reloc_undefined;
1909 value -= sym_sec->output_section->vma;
1910 break;
1912 case R_V850_SDA_15_16_OFFSET:
1913 case R_V850_SDA_16_16_OFFSET:
1914 case R_V850_SDA_16_16_SPLIT_OFFSET:
1916 unsigned long gp;
1917 struct bfd_link_hash_entry * h;
1919 if (sym_sec == NULL)
1920 return bfd_reloc_undefined;
1922 /* Get the value of __gp. */
1923 h = bfd_link_hash_lookup (info->hash, "__gp", FALSE, FALSE, TRUE);
1924 if (h == NULL
1925 || h->type != bfd_link_hash_defined)
1926 return bfd_reloc_gp_not_found;
1928 gp = (h->u.def.value
1929 + h->u.def.section->output_section->vma
1930 + h->u.def.section->output_offset);
1932 value -= sym_sec->output_section->vma;
1933 value -= (gp - sym_sec->output_section->vma);
1935 break;
1937 case R_V850_TDA_4_4_OFFSET:
1938 case R_V850_TDA_4_5_OFFSET:
1939 case R_V850_TDA_7_7_OFFSET:
1940 case R_V850_TDA_7_8_OFFSET:
1941 case R_V850_TDA_6_8_OFFSET:
1942 case R_V850_TDA_16_16_OFFSET:
1944 unsigned long ep;
1945 struct bfd_link_hash_entry * h;
1947 /* Get the value of __ep. */
1948 h = bfd_link_hash_lookup (info->hash, "__ep", FALSE, FALSE, TRUE);
1949 if (h == NULL
1950 || h->type != bfd_link_hash_defined)
1951 return bfd_reloc_ep_not_found;
1953 ep = (h->u.def.value
1954 + h->u.def.section->output_section->vma
1955 + h->u.def.section->output_offset);
1957 value -= ep;
1959 break;
1961 case R_V850_CALLT_6_7_OFFSET:
1963 unsigned long ctbp;
1964 struct bfd_link_hash_entry * h;
1966 /* Get the value of __ctbp. */
1967 h = bfd_link_hash_lookup (info->hash, "__ctbp", FALSE, FALSE, TRUE);
1968 if (h == NULL
1969 || h->type != bfd_link_hash_defined)
1970 return bfd_reloc_ctbp_not_found;
1972 ctbp = (h->u.def.value
1973 + h->u.def.section->output_section->vma
1974 + h->u.def.section->output_offset);
1975 value -= ctbp;
1977 break;
1979 case R_V850_CALLT_15_16_OFFSET:
1980 case R_V850_CALLT_16_16_OFFSET:
1982 unsigned long ctbp;
1983 struct bfd_link_hash_entry * h;
1985 if (sym_sec == NULL)
1986 return bfd_reloc_undefined;
1988 /* Get the value of __ctbp. */
1989 h = bfd_link_hash_lookup (info->hash, "__ctbp", FALSE, FALSE, TRUE);
1990 if (h == NULL
1991 || h->type != bfd_link_hash_defined)
1992 return bfd_reloc_ctbp_not_found;
1994 ctbp = (h->u.def.value
1995 + h->u.def.section->output_section->vma
1996 + h->u.def.section->output_offset);
1998 value -= sym_sec->output_section->vma;
1999 value -= (ctbp - sym_sec->output_section->vma);
2001 break;
2003 case R_V850_NONE:
2004 case R_V850_GNU_VTINHERIT:
2005 case R_V850_GNU_VTENTRY:
2006 case R_V850_LONGCALL:
2007 case R_V850_LONGJUMP:
2008 case R_V850_ALIGN:
2009 return bfd_reloc_ok;
2011 default:
2012 return bfd_reloc_notsupported;
2015 /* Perform the relocation. */
2016 return v850_elf_perform_relocation (input_bfd, r_type, value + addend, hit_data);
2019 /* Relocate an V850 ELF section. */
2021 static bfd_boolean
2022 v850_elf_relocate_section (bfd *output_bfd,
2023 struct bfd_link_info *info,
2024 bfd *input_bfd,
2025 asection *input_section,
2026 bfd_byte *contents,
2027 Elf_Internal_Rela *relocs,
2028 Elf_Internal_Sym *local_syms,
2029 asection **local_sections)
2031 Elf_Internal_Shdr *symtab_hdr;
2032 struct elf_link_hash_entry **sym_hashes;
2033 Elf_Internal_Rela *rel;
2034 Elf_Internal_Rela *relend;
2036 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
2037 sym_hashes = elf_sym_hashes (input_bfd);
2039 /* Reset the list of remembered HI16S relocs to empty. */
2040 free_hi16s = previous_hi16s;
2041 previous_hi16s = NULL;
2042 hi16s_counter = 0;
2044 rel = relocs;
2045 relend = relocs + input_section->reloc_count;
2046 for (; rel < relend; rel++)
2048 int r_type;
2049 reloc_howto_type *howto;
2050 unsigned long r_symndx;
2051 Elf_Internal_Sym *sym;
2052 asection *sec;
2053 struct elf_link_hash_entry *h;
2054 bfd_vma relocation;
2055 bfd_reloc_status_type r;
2057 r_symndx = ELF32_R_SYM (rel->r_info);
2058 r_type = ELF32_R_TYPE (rel->r_info);
2060 if (r_type == R_V850_GNU_VTENTRY
2061 || r_type == R_V850_GNU_VTINHERIT)
2062 continue;
2064 howto = v850_elf_howto_table + r_type;
2065 h = NULL;
2066 sym = NULL;
2067 sec = NULL;
2068 if (r_symndx < symtab_hdr->sh_info)
2070 sym = local_syms + r_symndx;
2071 sec = local_sections[r_symndx];
2072 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
2074 else
2076 bfd_boolean unresolved_reloc, warned;
2078 /* Note - this check is delayed until now as it is possible and
2079 valid to have a file without any symbols but with relocs that
2080 can be processed. */
2081 if (sym_hashes == NULL)
2083 info->callbacks->warning
2084 (info, "no hash table available",
2085 NULL, input_bfd, input_section, (bfd_vma) 0);
2087 return FALSE;
2090 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
2091 r_symndx, symtab_hdr, sym_hashes,
2092 h, sec, relocation,
2093 unresolved_reloc, warned);
2096 if (sec != NULL && elf_discarded_section (sec))
2098 /* For relocs against symbols from removed linkonce sections,
2099 or sections discarded by a linker script, we just want the
2100 section contents zeroed. Avoid any special processing. */
2101 _bfd_clear_contents (howto, input_bfd, contents + rel->r_offset);
2102 rel->r_info = 0;
2103 rel->r_addend = 0;
2104 continue;
2107 if (info->relocatable)
2108 continue;
2110 /* FIXME: We should use the addend, but the COFF relocations don't. */
2111 r = v850_elf_final_link_relocate (howto, input_bfd, output_bfd,
2112 input_section,
2113 contents, rel->r_offset,
2114 relocation, rel->r_addend,
2115 info, sec, h == NULL);
2117 if (r != bfd_reloc_ok)
2119 const char * name;
2120 const char * msg = NULL;
2122 if (h != NULL)
2123 name = h->root.root.string;
2124 else
2126 name = (bfd_elf_string_from_elf_section
2127 (input_bfd, symtab_hdr->sh_link, sym->st_name));
2128 if (name == NULL || *name == '\0')
2129 name = bfd_section_name (input_bfd, sec);
2132 switch ((int) r)
2134 case bfd_reloc_overflow:
2135 if (! ((*info->callbacks->reloc_overflow)
2136 (info, (h ? &h->root : NULL), name, howto->name,
2137 (bfd_vma) 0, input_bfd, input_section,
2138 rel->r_offset)))
2139 return FALSE;
2140 break;
2142 case bfd_reloc_undefined:
2143 if (! ((*info->callbacks->undefined_symbol)
2144 (info, name, input_bfd, input_section,
2145 rel->r_offset, TRUE)))
2146 return FALSE;
2147 break;
2149 case bfd_reloc_outofrange:
2150 msg = _("internal error: out of range error");
2151 goto common_error;
2153 case bfd_reloc_notsupported:
2154 msg = _("internal error: unsupported relocation error");
2155 goto common_error;
2157 case bfd_reloc_dangerous:
2158 msg = _("internal error: dangerous relocation");
2159 goto common_error;
2161 case bfd_reloc_gp_not_found:
2162 msg = _("could not locate special linker symbol __gp");
2163 goto common_error;
2165 case bfd_reloc_ep_not_found:
2166 msg = _("could not locate special linker symbol __ep");
2167 goto common_error;
2169 case bfd_reloc_ctbp_not_found:
2170 msg = _("could not locate special linker symbol __ctbp");
2171 goto common_error;
2173 default:
2174 msg = _("internal error: unknown error");
2175 /* fall through */
2177 common_error:
2178 if (!((*info->callbacks->warning)
2179 (info, msg, name, input_bfd, input_section,
2180 rel->r_offset)))
2181 return FALSE;
2182 break;
2187 return TRUE;
2190 static asection *
2191 v850_elf_gc_mark_hook (asection *sec,
2192 struct bfd_link_info *info,
2193 Elf_Internal_Rela *rel,
2194 struct elf_link_hash_entry *h,
2195 Elf_Internal_Sym *sym)
2197 if (h != NULL)
2198 switch (ELF32_R_TYPE (rel->r_info))
2200 case R_V850_GNU_VTINHERIT:
2201 case R_V850_GNU_VTENTRY:
2202 return NULL;
2205 return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
2208 /* Set the right machine number. */
2210 static bfd_boolean
2211 v850_elf_object_p (bfd *abfd)
2213 switch (elf_elfheader (abfd)->e_flags & EF_V850_ARCH)
2215 default:
2216 case E_V850_ARCH:
2217 bfd_default_set_arch_mach (abfd, bfd_arch_v850, bfd_mach_v850);
2218 break;
2219 case E_V850E_ARCH:
2220 bfd_default_set_arch_mach (abfd, bfd_arch_v850, bfd_mach_v850e);
2221 break;
2222 case E_V850E1_ARCH:
2223 bfd_default_set_arch_mach (abfd, bfd_arch_v850, bfd_mach_v850e1);
2224 break;
2225 case E_V850E2_ARCH:
2226 bfd_default_set_arch_mach (abfd, bfd_arch_v850, bfd_mach_v850e2);
2227 break;
2228 case E_V850E2V3_ARCH:
2229 bfd_default_set_arch_mach (abfd, bfd_arch_v850, bfd_mach_v850e2v3);
2230 break;
2232 return TRUE;
2235 /* Store the machine number in the flags field. */
2237 static void
2238 v850_elf_final_write_processing (bfd *abfd,
2239 bfd_boolean linker ATTRIBUTE_UNUSED)
2241 unsigned long val;
2243 switch (bfd_get_mach (abfd))
2245 default:
2246 case bfd_mach_v850: val = E_V850_ARCH; break;
2247 case bfd_mach_v850e: val = E_V850E_ARCH; break;
2248 case bfd_mach_v850e1: val = E_V850E1_ARCH; break;
2249 case bfd_mach_v850e2: val = E_V850E2_ARCH; break;
2250 case bfd_mach_v850e2v3: val = E_V850E2V3_ARCH; break;
2253 elf_elfheader (abfd)->e_flags &=~ EF_V850_ARCH;
2254 elf_elfheader (abfd)->e_flags |= val;
2257 /* Function to keep V850 specific file flags. */
2259 static bfd_boolean
2260 v850_elf_set_private_flags (bfd *abfd, flagword flags)
2262 BFD_ASSERT (!elf_flags_init (abfd)
2263 || elf_elfheader (abfd)->e_flags == flags);
2265 elf_elfheader (abfd)->e_flags = flags;
2266 elf_flags_init (abfd) = TRUE;
2267 return TRUE;
2270 /* Merge backend specific data from an object file
2271 to the output object file when linking. */
2273 static bfd_boolean
2274 v850_elf_merge_private_bfd_data (bfd *ibfd, bfd *obfd)
2276 flagword out_flags;
2277 flagword in_flags;
2279 if ( bfd_get_flavour (ibfd) != bfd_target_elf_flavour
2280 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
2281 return TRUE;
2283 in_flags = elf_elfheader (ibfd)->e_flags;
2284 out_flags = elf_elfheader (obfd)->e_flags;
2286 if (! elf_flags_init (obfd))
2288 /* If the input is the default architecture then do not
2289 bother setting the flags for the output architecture,
2290 instead allow future merges to do this. If no future
2291 merges ever set these flags then they will retain their
2292 unitialised values, which surprise surprise, correspond
2293 to the default values. */
2294 if (bfd_get_arch_info (ibfd)->the_default)
2295 return TRUE;
2297 elf_flags_init (obfd) = TRUE;
2298 elf_elfheader (obfd)->e_flags = in_flags;
2300 if (bfd_get_arch (obfd) == bfd_get_arch (ibfd)
2301 && bfd_get_arch_info (obfd)->the_default)
2302 return bfd_set_arch_mach (obfd, bfd_get_arch (ibfd), bfd_get_mach (ibfd));
2304 return TRUE;
2307 /* Check flag compatibility. */
2308 if (in_flags == out_flags)
2309 return TRUE;
2311 if ((in_flags & EF_V850_ARCH) != (out_flags & EF_V850_ARCH)
2312 && (in_flags & EF_V850_ARCH) != E_V850_ARCH)
2315 /* Allow v850e1 binaries to be linked with v850e binaries.
2316 Set the output binary to v850e. */
2317 if ((in_flags & EF_V850_ARCH) == E_V850E1_ARCH
2318 && (out_flags & EF_V850_ARCH) == E_V850E_ARCH)
2319 return TRUE;
2321 if ((in_flags & EF_V850_ARCH) == E_V850_ARCH
2322 && (out_flags & EF_V850_ARCH) == E_V850E_ARCH)
2324 elf_elfheader (obfd)->e_flags =
2325 ((out_flags & ~ EF_V850_ARCH) | E_V850E_ARCH);
2326 return TRUE;
2329 if (((in_flags & EF_V850_ARCH) == E_V850_ARCH
2330 || (in_flags & EF_V850_ARCH) == E_V850E_ARCH)
2331 && (out_flags & EF_V850_ARCH) == E_V850E2_ARCH)
2333 elf_elfheader (obfd)->e_flags =
2334 ((out_flags & ~ EF_V850_ARCH) | E_V850E2_ARCH);
2335 return TRUE;
2338 if (((in_flags & EF_V850_ARCH) == E_V850_ARCH
2339 || (in_flags & EF_V850_ARCH) == E_V850E_ARCH
2340 || (in_flags & EF_V850_ARCH) == E_V850E2_ARCH)
2341 && (out_flags & EF_V850_ARCH) == E_V850E2V3_ARCH)
2343 elf_elfheader (obfd)->e_flags =
2344 ((out_flags & ~ EF_V850_ARCH) | E_V850E2V3_ARCH);
2345 return TRUE;
2348 _bfd_error_handler (_("%B: Architecture mismatch with previous modules"),
2349 ibfd);
2352 return TRUE;
2355 /* Display the flags field. */
2357 static bfd_boolean
2358 v850_elf_print_private_bfd_data (bfd *abfd, void * ptr)
2360 FILE * file = (FILE *) ptr;
2362 BFD_ASSERT (abfd != NULL && ptr != NULL);
2364 _bfd_elf_print_private_bfd_data (abfd, ptr);
2366 /* xgettext:c-format. */
2367 fprintf (file, _("private flags = %lx: "), elf_elfheader (abfd)->e_flags);
2369 switch (elf_elfheader (abfd)->e_flags & EF_V850_ARCH)
2371 default:
2372 case E_V850_ARCH: fprintf (file, _("v850 architecture")); break;
2373 case E_V850E_ARCH: fprintf (file, _("v850e architecture")); break;
2374 case E_V850E1_ARCH: fprintf (file, _("v850e1 architecture")); break;
2375 case E_V850E2_ARCH: fprintf (file, _("v850e2 architecture")); break;
2376 case E_V850E2V3_ARCH: fprintf (file, _("v850e2v3 architecture")); break;
2379 fputc ('\n', file);
2381 return TRUE;
2384 /* V850 ELF uses four common sections. One is the usual one, and the
2385 others are for (small) objects in one of the special data areas:
2386 small, tiny and zero. All the objects are kept together, and then
2387 referenced via the gp register, the ep register or the r0 register
2388 respectively, which yields smaller, faster assembler code. This
2389 approach is copied from elf32-mips.c. */
2391 static asection v850_elf_scom_section;
2392 static asymbol v850_elf_scom_symbol;
2393 static asymbol * v850_elf_scom_symbol_ptr;
2394 static asection v850_elf_tcom_section;
2395 static asymbol v850_elf_tcom_symbol;
2396 static asymbol * v850_elf_tcom_symbol_ptr;
2397 static asection v850_elf_zcom_section;
2398 static asymbol v850_elf_zcom_symbol;
2399 static asymbol * v850_elf_zcom_symbol_ptr;
2401 /* Given a BFD section, try to locate the
2402 corresponding ELF section index. */
2404 static bfd_boolean
2405 v850_elf_section_from_bfd_section (bfd *abfd ATTRIBUTE_UNUSED,
2406 asection *sec,
2407 int *retval)
2409 if (strcmp (bfd_get_section_name (abfd, sec), ".scommon") == 0)
2410 *retval = SHN_V850_SCOMMON;
2411 else if (strcmp (bfd_get_section_name (abfd, sec), ".tcommon") == 0)
2412 *retval = SHN_V850_TCOMMON;
2413 else if (strcmp (bfd_get_section_name (abfd, sec), ".zcommon") == 0)
2414 *retval = SHN_V850_ZCOMMON;
2415 else
2416 return FALSE;
2418 return TRUE;
2421 /* Handle the special V850 section numbers that a symbol may use. */
2423 static void
2424 v850_elf_symbol_processing (bfd *abfd, asymbol *asym)
2426 elf_symbol_type * elfsym = (elf_symbol_type *) asym;
2427 unsigned int indx;
2429 indx = elfsym->internal_elf_sym.st_shndx;
2431 /* If the section index is an "ordinary" index, then it may
2432 refer to a v850 specific section created by the assembler.
2433 Check the section's type and change the index it matches.
2435 FIXME: Should we alter the st_shndx field as well ? */
2437 if (indx < elf_numsections (abfd))
2438 switch (elf_elfsections (abfd)[indx]->sh_type)
2440 case SHT_V850_SCOMMON:
2441 indx = SHN_V850_SCOMMON;
2442 break;
2444 case SHT_V850_TCOMMON:
2445 indx = SHN_V850_TCOMMON;
2446 break;
2448 case SHT_V850_ZCOMMON:
2449 indx = SHN_V850_ZCOMMON;
2450 break;
2452 default:
2453 break;
2456 switch (indx)
2458 case SHN_V850_SCOMMON:
2459 if (v850_elf_scom_section.name == NULL)
2461 /* Initialize the small common section. */
2462 v850_elf_scom_section.name = ".scommon";
2463 v850_elf_scom_section.flags = SEC_IS_COMMON | SEC_ALLOC | SEC_DATA;
2464 v850_elf_scom_section.output_section = & v850_elf_scom_section;
2465 v850_elf_scom_section.symbol = & v850_elf_scom_symbol;
2466 v850_elf_scom_section.symbol_ptr_ptr = & v850_elf_scom_symbol_ptr;
2467 v850_elf_scom_symbol.name = ".scommon";
2468 v850_elf_scom_symbol.flags = BSF_SECTION_SYM;
2469 v850_elf_scom_symbol.section = & v850_elf_scom_section;
2470 v850_elf_scom_symbol_ptr = & v850_elf_scom_symbol;
2472 asym->section = & v850_elf_scom_section;
2473 asym->value = elfsym->internal_elf_sym.st_size;
2474 break;
2476 case SHN_V850_TCOMMON:
2477 if (v850_elf_tcom_section.name == NULL)
2479 /* Initialize the tcommon section. */
2480 v850_elf_tcom_section.name = ".tcommon";
2481 v850_elf_tcom_section.flags = SEC_IS_COMMON;
2482 v850_elf_tcom_section.output_section = & v850_elf_tcom_section;
2483 v850_elf_tcom_section.symbol = & v850_elf_tcom_symbol;
2484 v850_elf_tcom_section.symbol_ptr_ptr = & v850_elf_tcom_symbol_ptr;
2485 v850_elf_tcom_symbol.name = ".tcommon";
2486 v850_elf_tcom_symbol.flags = BSF_SECTION_SYM;
2487 v850_elf_tcom_symbol.section = & v850_elf_tcom_section;
2488 v850_elf_tcom_symbol_ptr = & v850_elf_tcom_symbol;
2490 asym->section = & v850_elf_tcom_section;
2491 asym->value = elfsym->internal_elf_sym.st_size;
2492 break;
2494 case SHN_V850_ZCOMMON:
2495 if (v850_elf_zcom_section.name == NULL)
2497 /* Initialize the zcommon section. */
2498 v850_elf_zcom_section.name = ".zcommon";
2499 v850_elf_zcom_section.flags = SEC_IS_COMMON;
2500 v850_elf_zcom_section.output_section = & v850_elf_zcom_section;
2501 v850_elf_zcom_section.symbol = & v850_elf_zcom_symbol;
2502 v850_elf_zcom_section.symbol_ptr_ptr = & v850_elf_zcom_symbol_ptr;
2503 v850_elf_zcom_symbol.name = ".zcommon";
2504 v850_elf_zcom_symbol.flags = BSF_SECTION_SYM;
2505 v850_elf_zcom_symbol.section = & v850_elf_zcom_section;
2506 v850_elf_zcom_symbol_ptr = & v850_elf_zcom_symbol;
2508 asym->section = & v850_elf_zcom_section;
2509 asym->value = elfsym->internal_elf_sym.st_size;
2510 break;
2514 /* Hook called by the linker routine which adds symbols from an object
2515 file. We must handle the special v850 section numbers here. */
2517 static bfd_boolean
2518 v850_elf_add_symbol_hook (bfd *abfd,
2519 struct bfd_link_info *info ATTRIBUTE_UNUSED,
2520 Elf_Internal_Sym *sym,
2521 const char **namep ATTRIBUTE_UNUSED,
2522 flagword *flagsp ATTRIBUTE_UNUSED,
2523 asection **secp,
2524 bfd_vma *valp)
2526 unsigned int indx = sym->st_shndx;
2528 /* If the section index is an "ordinary" index, then it may
2529 refer to a v850 specific section created by the assembler.
2530 Check the section's type and change the index it matches.
2532 FIXME: Should we alter the st_shndx field as well ? */
2534 if (indx < elf_numsections (abfd))
2535 switch (elf_elfsections (abfd)[indx]->sh_type)
2537 case SHT_V850_SCOMMON:
2538 indx = SHN_V850_SCOMMON;
2539 break;
2541 case SHT_V850_TCOMMON:
2542 indx = SHN_V850_TCOMMON;
2543 break;
2545 case SHT_V850_ZCOMMON:
2546 indx = SHN_V850_ZCOMMON;
2547 break;
2549 default:
2550 break;
2553 switch (indx)
2555 case SHN_V850_SCOMMON:
2556 *secp = bfd_make_section_old_way (abfd, ".scommon");
2557 (*secp)->flags |= SEC_IS_COMMON;
2558 *valp = sym->st_size;
2559 break;
2561 case SHN_V850_TCOMMON:
2562 *secp = bfd_make_section_old_way (abfd, ".tcommon");
2563 (*secp)->flags |= SEC_IS_COMMON;
2564 *valp = sym->st_size;
2565 break;
2567 case SHN_V850_ZCOMMON:
2568 *secp = bfd_make_section_old_way (abfd, ".zcommon");
2569 (*secp)->flags |= SEC_IS_COMMON;
2570 *valp = sym->st_size;
2571 break;
2574 return TRUE;
2577 static int
2578 v850_elf_link_output_symbol_hook (struct bfd_link_info *info ATTRIBUTE_UNUSED,
2579 const char *name ATTRIBUTE_UNUSED,
2580 Elf_Internal_Sym *sym,
2581 asection *input_sec,
2582 struct elf_link_hash_entry *h ATTRIBUTE_UNUSED)
2584 /* If we see a common symbol, which implies a relocatable link, then
2585 if a symbol was in a special common section in an input file, mark
2586 it as a special common in the output file. */
2588 if (sym->st_shndx == SHN_COMMON)
2590 if (strcmp (input_sec->name, ".scommon") == 0)
2591 sym->st_shndx = SHN_V850_SCOMMON;
2592 else if (strcmp (input_sec->name, ".tcommon") == 0)
2593 sym->st_shndx = SHN_V850_TCOMMON;
2594 else if (strcmp (input_sec->name, ".zcommon") == 0)
2595 sym->st_shndx = SHN_V850_ZCOMMON;
2598 /* The price we pay for using h->other unused bits as flags in the
2599 linker is cleaning up after ourselves. */
2601 sym->st_other &= ~(V850_OTHER_SDA | V850_OTHER_ZDA | V850_OTHER_TDA
2602 | V850_OTHER_ERROR);
2604 return 1;
2607 static bfd_boolean
2608 v850_elf_section_from_shdr (bfd *abfd,
2609 Elf_Internal_Shdr *hdr,
2610 const char *name,
2611 int shindex)
2613 /* There ought to be a place to keep ELF backend specific flags, but
2614 at the moment there isn't one. We just keep track of the
2615 sections by their name, instead. */
2617 if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name, shindex))
2618 return FALSE;
2620 switch (hdr->sh_type)
2622 case SHT_V850_SCOMMON:
2623 case SHT_V850_TCOMMON:
2624 case SHT_V850_ZCOMMON:
2625 if (! bfd_set_section_flags (abfd, hdr->bfd_section,
2626 (bfd_get_section_flags (abfd,
2627 hdr->bfd_section)
2628 | SEC_IS_COMMON)))
2629 return FALSE;
2632 return TRUE;
2635 /* Set the correct type for a V850 ELF section. We do this
2636 by the section name, which is a hack, but ought to work. */
2638 static bfd_boolean
2639 v850_elf_fake_sections (bfd *abfd ATTRIBUTE_UNUSED,
2640 Elf_Internal_Shdr *hdr,
2641 asection *sec)
2643 const char * name;
2645 name = bfd_get_section_name (abfd, sec);
2647 if (strcmp (name, ".scommon") == 0)
2648 hdr->sh_type = SHT_V850_SCOMMON;
2649 else if (strcmp (name, ".tcommon") == 0)
2650 hdr->sh_type = SHT_V850_TCOMMON;
2651 else if (strcmp (name, ".zcommon") == 0)
2652 hdr->sh_type = SHT_V850_ZCOMMON;
2654 return TRUE;
2657 /* Delete some bytes from a section while relaxing. */
2659 static bfd_boolean
2660 v850_elf_relax_delete_bytes (bfd *abfd,
2661 asection *sec,
2662 bfd_vma addr,
2663 bfd_vma toaddr,
2664 int count)
2666 Elf_Internal_Shdr *symtab_hdr;
2667 Elf32_External_Sym *extsyms;
2668 Elf32_External_Sym *esym;
2669 Elf32_External_Sym *esymend;
2670 int sym_index;
2671 unsigned int sec_shndx;
2672 bfd_byte *contents;
2673 Elf_Internal_Rela *irel;
2674 Elf_Internal_Rela *irelend;
2675 struct elf_link_hash_entry *sym_hash;
2676 Elf_Internal_Shdr *shndx_hdr;
2677 Elf_External_Sym_Shndx *shndx;
2679 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2680 extsyms = (Elf32_External_Sym *) symtab_hdr->contents;
2682 sec_shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
2684 contents = elf_section_data (sec)->this_hdr.contents;
2686 /* The deletion must stop at the next ALIGN reloc for an alignment
2687 power larger than the number of bytes we are deleting. */
2689 /* Actually delete the bytes. */
2690 #if (DEBUG_RELAX & 2)
2691 fprintf (stderr, "relax_delete: contents: sec: %s %p .. %p %x\n",
2692 sec->name, addr, toaddr, count );
2693 #endif
2694 memmove (contents + addr, contents + addr + count,
2695 toaddr - addr - count);
2696 memset (contents + toaddr-count, 0, count);
2698 /* Adjust all the relocs. */
2699 irel = elf_section_data (sec)->relocs;
2700 irelend = irel + sec->reloc_count;
2701 shndx_hdr = &elf_tdata (abfd)->symtab_shndx_hdr;
2702 shndx = (Elf_External_Sym_Shndx *) shndx_hdr->contents;
2704 for (; irel < irelend; irel++)
2706 bfd_vma raddr, paddr, symval;
2707 Elf_Internal_Sym isym;
2709 /* Get the new reloc address. */
2710 raddr = irel->r_offset;
2711 if ((raddr >= (addr + count) && raddr < toaddr))
2712 irel->r_offset -= count;
2714 if (raddr >= addr && raddr < addr + count)
2716 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
2717 (int) R_V850_NONE);
2718 continue;
2721 if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_ALIGN)
2722 continue;
2724 bfd_elf32_swap_symbol_in (abfd,
2725 extsyms + ELF32_R_SYM (irel->r_info),
2726 shndx ? shndx + ELF32_R_SYM (irel->r_info) : NULL,
2727 & isym);
2729 if (isym.st_shndx != sec_shndx)
2730 continue;
2732 /* Get the value of the symbol referred to by the reloc. */
2733 if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
2735 symval = isym.st_value;
2736 #if (DEBUG_RELAX & 2)
2738 char * name = bfd_elf_string_from_elf_section
2739 (abfd, symtab_hdr->sh_link, isym.st_name);
2740 fprintf (stderr,
2741 "relax_delete: local: sec: %s, sym: %s (%d), value: %x + %x + %x addend %x\n",
2742 sec->name, name, isym.st_name,
2743 sec->output_section->vma, sec->output_offset,
2744 isym.st_value, irel->r_addend);
2746 #endif
2748 else
2750 unsigned long indx;
2751 struct elf_link_hash_entry * h;
2753 /* An external symbol. */
2754 indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
2756 h = elf_sym_hashes (abfd) [indx];
2757 BFD_ASSERT (h != NULL);
2759 symval = h->root.u.def.value;
2760 #if (DEBUG_RELAX & 2)
2761 fprintf (stderr,
2762 "relax_delete: defined: sec: %s, name: %s, value: %x + %x + %x addend %x\n",
2763 sec->name, h->root.root.string, h->root.u.def.value,
2764 sec->output_section->vma, sec->output_offset, irel->r_addend);
2765 #endif
2768 paddr = symval + irel->r_addend;
2770 if ( (symval >= addr + count && symval < toaddr)
2771 && (paddr < addr + count || paddr >= toaddr))
2772 irel->r_addend += count;
2773 else if ( (symval < addr + count || symval >= toaddr)
2774 && (paddr >= addr + count && paddr < toaddr))
2775 irel->r_addend -= count;
2778 /* Adjust the local symbols defined in this section. */
2779 esym = extsyms;
2780 esymend = esym + symtab_hdr->sh_info;
2782 for (; esym < esymend; esym++, shndx = (shndx ? shndx + 1 : NULL))
2784 Elf_Internal_Sym isym;
2786 bfd_elf32_swap_symbol_in (abfd, esym, shndx, & isym);
2788 if (isym.st_shndx == sec_shndx
2789 && isym.st_value >= addr + count
2790 && isym.st_value < toaddr)
2792 isym.st_value -= count;
2794 if (isym.st_value + isym.st_size >= toaddr)
2795 isym.st_size += count;
2797 bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
2799 else if (isym.st_shndx == sec_shndx
2800 && isym.st_value < addr + count)
2802 if (isym.st_value+isym.st_size >= addr + count
2803 && isym.st_value+isym.st_size < toaddr)
2804 isym.st_size -= count;
2806 if (isym.st_value >= addr
2807 && isym.st_value < addr + count)
2808 isym.st_value = addr;
2810 bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
2814 /* Now adjust the global symbols defined in this section. */
2815 esym = extsyms + symtab_hdr->sh_info;
2816 esymend = extsyms + (symtab_hdr->sh_size / sizeof (Elf32_External_Sym));
2818 for (sym_index = 0; esym < esymend; esym ++, sym_index ++)
2820 Elf_Internal_Sym isym;
2822 bfd_elf32_swap_symbol_in (abfd, esym, shndx, & isym);
2823 sym_hash = elf_sym_hashes (abfd) [sym_index];
2825 if (isym.st_shndx == sec_shndx
2826 && ((sym_hash)->root.type == bfd_link_hash_defined
2827 || (sym_hash)->root.type == bfd_link_hash_defweak)
2828 && (sym_hash)->root.u.def.section == sec
2829 && (sym_hash)->root.u.def.value >= addr + count
2830 && (sym_hash)->root.u.def.value < toaddr)
2832 if ((sym_hash)->root.u.def.value + isym.st_size >= toaddr)
2834 isym.st_size += count;
2835 bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
2838 (sym_hash)->root.u.def.value -= count;
2840 else if (isym.st_shndx == sec_shndx
2841 && ((sym_hash)->root.type == bfd_link_hash_defined
2842 || (sym_hash)->root.type == bfd_link_hash_defweak)
2843 && (sym_hash)->root.u.def.section == sec
2844 && (sym_hash)->root.u.def.value < addr + count)
2846 if ((sym_hash)->root.u.def.value+isym.st_size >= addr + count
2847 && (sym_hash)->root.u.def.value+isym.st_size < toaddr)
2848 isym.st_size -= count;
2850 if ((sym_hash)->root.u.def.value >= addr
2851 && (sym_hash)->root.u.def.value < addr + count)
2852 (sym_hash)->root.u.def.value = addr;
2854 bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
2857 if (shndx)
2858 ++ shndx;
2861 return TRUE;
2864 #define NOP_OPCODE (0x0000)
2865 #define MOVHI 0x0640 /* 4byte. */
2866 #define MOVHI_MASK 0x07e0
2867 #define MOVHI_R1(insn) ((insn) & 0x1f) /* 4byte. */
2868 #define MOVHI_R2(insn) ((insn) >> 11)
2869 #define MOVEA 0x0620 /* 2byte. */
2870 #define MOVEA_MASK 0x07e0
2871 #define MOVEA_R1(insn) ((insn) & 0x1f)
2872 #define MOVEA_R2(insn) ((insn) >> 11)
2873 #define JARL_4 0x00040780 /* 4byte. */
2874 #define JARL_4_MASK 0xFFFF07FF
2875 #define JARL_R2(insn) (int)(((insn) & (~JARL_4_MASK)) >> 11)
2876 #define ADD_I 0x0240 /* 2byte. */
2877 #define ADD_I_MASK 0x07e0
2878 #define ADD_I5(insn) ((((insn) & 0x001f) << 11) >> 11) /* 2byte. */
2879 #define ADD_R2(insn) ((insn) >> 11)
2880 #define JMP_R 0x0060 /* 2byte. */
2881 #define JMP_R_MASK 0xFFE0
2882 #define JMP_R1(insn) ((insn) & 0x1f)
2884 static bfd_boolean
2885 v850_elf_relax_section (bfd *abfd,
2886 asection *sec,
2887 struct bfd_link_info *link_info,
2888 bfd_boolean *again)
2890 Elf_Internal_Shdr *symtab_hdr;
2891 Elf_Internal_Rela *internal_relocs;
2892 Elf_Internal_Rela *irel;
2893 Elf_Internal_Rela *irelend;
2894 Elf_Internal_Rela *irelalign = NULL;
2895 Elf_Internal_Sym *isymbuf = NULL;
2896 bfd_byte *contents = NULL;
2897 bfd_vma addr = 0;
2898 bfd_vma toaddr;
2899 int align_pad_size = 0;
2900 bfd_boolean result = TRUE;
2902 *again = FALSE;
2904 if (link_info->relocatable
2905 || (sec->flags & SEC_RELOC) == 0
2906 || sec->reloc_count == 0)
2907 return TRUE;
2909 symtab_hdr = & elf_tdata (abfd)->symtab_hdr;
2911 internal_relocs = (_bfd_elf_link_read_relocs
2912 (abfd, sec, NULL, NULL, link_info->keep_memory));
2913 if (internal_relocs == NULL)
2914 goto error_return;
2916 irelend = internal_relocs + sec->reloc_count;
2918 while (addr < sec->size)
2920 toaddr = sec->size;
2922 for (irel = internal_relocs; irel < irelend; irel ++)
2923 if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_ALIGN
2924 && irel->r_offset > addr
2925 && irel->r_offset < toaddr)
2926 toaddr = irel->r_offset;
2928 #ifdef DEBUG_RELAX
2929 fprintf (stderr, "relax region 0x%x to 0x%x align pad %d\n",
2930 addr, toaddr, align_pad_size);
2931 #endif
2932 if (irelalign)
2934 bfd_vma alignto;
2935 bfd_vma alignmoveto;
2937 alignmoveto = BFD_ALIGN (addr - align_pad_size, 1 << irelalign->r_addend);
2938 alignto = BFD_ALIGN (addr, 1 << irelalign->r_addend);
2940 if (alignmoveto < alignto)
2942 unsigned int i;
2944 align_pad_size = alignto - alignmoveto;
2945 #ifdef DEBUG_RELAX
2946 fprintf (stderr, "relax move region 0x%x to 0x%x delete size 0x%x\n",
2947 alignmoveto, toaddr, align_pad_size);
2948 #endif
2949 if (!v850_elf_relax_delete_bytes (abfd, sec, alignmoveto,
2950 toaddr, align_pad_size))
2951 goto error_return;
2953 for (i = BFD_ALIGN (toaddr - align_pad_size, 1);
2954 (i + 1) < toaddr; i += 2)
2955 bfd_put_16 (abfd, NOP_OPCODE, contents + i);
2957 addr = alignmoveto;
2959 else
2960 align_pad_size = 0;
2963 for (irel = internal_relocs; irel < irelend; irel++)
2965 bfd_vma laddr;
2966 bfd_vma addend;
2967 bfd_vma symval;
2968 int insn[5];
2969 int no_match = -1;
2970 Elf_Internal_Rela *hi_irelfn;
2971 Elf_Internal_Rela *lo_irelfn;
2972 Elf_Internal_Rela *irelcall;
2973 bfd_signed_vma foff;
2975 if (! (irel->r_offset >= addr && irel->r_offset < toaddr
2976 && (ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGCALL
2977 || ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGJUMP)))
2978 continue;
2980 #ifdef DEBUG_RELAX
2981 fprintf (stderr, "relax check r_info 0x%x r_offset 0x%x r_addend 0x%x\n",
2982 irel->r_info,
2983 irel->r_offset,
2984 irel->r_addend );
2985 #endif
2987 /* Get the section contents. */
2988 if (contents == NULL)
2990 if (elf_section_data (sec)->this_hdr.contents != NULL)
2991 contents = elf_section_data (sec)->this_hdr.contents;
2992 else
2994 if (! bfd_malloc_and_get_section (abfd, sec, &contents))
2995 goto error_return;
2999 /* Read this BFD's local symbols if we haven't done so already. */
3000 if (isymbuf == NULL && symtab_hdr->sh_info != 0)
3002 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
3003 if (isymbuf == NULL)
3004 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
3005 symtab_hdr->sh_info, 0,
3006 NULL, NULL, NULL);
3007 if (isymbuf == NULL)
3008 goto error_return;
3011 laddr = irel->r_offset;
3013 if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGCALL)
3015 /* Check code for -mlong-calls output. */
3016 if (laddr + 16 <= (bfd_vma) sec->size)
3018 insn[0] = bfd_get_16 (abfd, contents + laddr);
3019 insn[1] = bfd_get_16 (abfd, contents + laddr + 4);
3020 insn[2] = bfd_get_32 (abfd, contents + laddr + 8);
3021 insn[3] = bfd_get_16 (abfd, contents + laddr + 12);
3022 insn[4] = bfd_get_16 (abfd, contents + laddr + 14);
3024 if ((insn[0] & MOVHI_MASK) != MOVHI
3025 || MOVHI_R1 (insn[0]) != 0)
3026 no_match = 0;
3028 if (no_match < 0
3029 && ((insn[1] & MOVEA_MASK) != MOVEA
3030 || MOVHI_R2 (insn[0]) != MOVEA_R1 (insn[1])))
3031 no_match = 1;
3033 if (no_match < 0
3034 && (insn[2] & JARL_4_MASK) != JARL_4)
3035 no_match = 2;
3037 if (no_match < 0
3038 && ((insn[3] & ADD_I_MASK) != ADD_I
3039 || ADD_I5 (insn[3]) != 4
3040 || JARL_R2 (insn[2]) != ADD_R2 (insn[3])))
3041 no_match = 3;
3043 if (no_match < 0
3044 && ((insn[4] & JMP_R_MASK) != JMP_R
3045 || MOVEA_R2 (insn[1]) != JMP_R1 (insn[4])))
3046 no_match = 4;
3048 else
3050 ((*_bfd_error_handler)
3051 ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized insns",
3052 bfd_get_filename (abfd), (unsigned long) irel->r_offset));
3054 continue;
3057 if (no_match >= 0)
3059 ((*_bfd_error_handler)
3060 ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized insn 0x%x",
3061 bfd_get_filename (abfd), (unsigned long) irel->r_offset+no_match, insn[no_match]));
3063 continue;
3066 /* Get the reloc for the address from which the register is
3067 being loaded. This reloc will tell us which function is
3068 actually being called. */
3069 for (hi_irelfn = internal_relocs; hi_irelfn < irelend; hi_irelfn ++)
3070 if (hi_irelfn->r_offset == laddr + 2
3071 && ELF32_R_TYPE (hi_irelfn->r_info)
3072 == (int) R_V850_HI16_S)
3073 break;
3075 for (lo_irelfn = internal_relocs; lo_irelfn < irelend; lo_irelfn ++)
3076 if (lo_irelfn->r_offset == laddr + 6
3077 && ELF32_R_TYPE (lo_irelfn->r_info)
3078 == (int) R_V850_LO16)
3079 break;
3081 for (irelcall = internal_relocs; irelcall < irelend; irelcall ++)
3082 if (irelcall->r_offset == laddr + 8
3083 && ELF32_R_TYPE (irelcall->r_info)
3084 == (int) R_V850_22_PCREL)
3085 break;
3087 if ( hi_irelfn == irelend
3088 || lo_irelfn == irelend
3089 || irelcall == irelend)
3091 ((*_bfd_error_handler)
3092 ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized reloc",
3093 bfd_get_filename (abfd), (unsigned long) irel->r_offset ));
3095 continue;
3098 if (ELF32_R_SYM (irelcall->r_info) < symtab_hdr->sh_info)
3100 Elf_Internal_Sym * isym;
3102 /* A local symbol. */
3103 isym = isymbuf + ELF32_R_SYM (irelcall->r_info);
3105 symval = isym->st_value;
3107 else
3109 unsigned long indx;
3110 struct elf_link_hash_entry * h;
3112 /* An external symbol. */
3113 indx = ELF32_R_SYM (irelcall->r_info) - symtab_hdr->sh_info;
3114 h = elf_sym_hashes (abfd)[indx];
3115 BFD_ASSERT (h != NULL);
3117 if ( h->root.type != bfd_link_hash_defined
3118 && h->root.type != bfd_link_hash_defweak)
3119 /* This appears to be a reference to an undefined
3120 symbol. Just ignore it--it will be caught by the
3121 regular reloc processing. */
3122 continue;
3124 symval = h->root.u.def.value;
3127 if (symval + irelcall->r_addend != irelcall->r_offset + 4)
3129 ((*_bfd_error_handler)
3130 ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized reloc 0x%lx",
3131 bfd_get_filename (abfd), (unsigned long) irel->r_offset, irelcall->r_offset ));
3133 continue;
3136 /* Get the value of the symbol referred to by the reloc. */
3137 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
3139 Elf_Internal_Sym *isym;
3140 asection *sym_sec;
3142 /* A local symbol. */
3143 isym = isymbuf + ELF32_R_SYM (hi_irelfn->r_info);
3145 if (isym->st_shndx == SHN_UNDEF)
3146 sym_sec = bfd_und_section_ptr;
3147 else if (isym->st_shndx == SHN_ABS)
3148 sym_sec = bfd_abs_section_ptr;
3149 else if (isym->st_shndx == SHN_COMMON)
3150 sym_sec = bfd_com_section_ptr;
3151 else
3152 sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
3153 symval = (isym->st_value
3154 + sym_sec->output_section->vma
3155 + sym_sec->output_offset);
3157 else
3159 unsigned long indx;
3160 struct elf_link_hash_entry *h;
3162 /* An external symbol. */
3163 indx = ELF32_R_SYM (hi_irelfn->r_info) - symtab_hdr->sh_info;
3164 h = elf_sym_hashes (abfd)[indx];
3165 BFD_ASSERT (h != NULL);
3167 if ( h->root.type != bfd_link_hash_defined
3168 && h->root.type != bfd_link_hash_defweak)
3169 /* This appears to be a reference to an undefined
3170 symbol. Just ignore it--it will be caught by the
3171 regular reloc processing. */
3172 continue;
3174 symval = (h->root.u.def.value
3175 + h->root.u.def.section->output_section->vma
3176 + h->root.u.def.section->output_offset);
3179 addend = irel->r_addend;
3181 foff = (symval + addend
3182 - (irel->r_offset
3183 + sec->output_section->vma
3184 + sec->output_offset
3185 + 4));
3186 #ifdef DEBUG_RELAX
3187 fprintf (stderr, "relax longcall r_offset 0x%x ptr 0x%x symbol 0x%x addend 0x%x distance 0x%x\n",
3188 irel->r_offset,
3189 (irel->r_offset
3190 + sec->output_section->vma
3191 + sec->output_offset),
3192 symval, addend, foff);
3193 #endif
3195 if (foff < -0x100000 || foff >= 0x100000)
3196 /* After all that work, we can't shorten this function call. */
3197 continue;
3199 /* For simplicity of coding, we are going to modify the section
3200 contents, the section relocs, and the BFD symbol table. We
3201 must tell the rest of the code not to free up this
3202 information. It would be possible to instead create a table
3203 of changes which have to be made, as is done in coff-mips.c;
3204 that would be more work, but would require less memory when
3205 the linker is run. */
3206 elf_section_data (sec)->relocs = internal_relocs;
3207 elf_section_data (sec)->this_hdr.contents = contents;
3208 symtab_hdr->contents = (bfd_byte *) isymbuf;
3210 /* Replace the long call with a jarl. */
3211 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_22_PCREL);
3213 addend = 0;
3215 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
3216 /* If this needs to be changed because of future relaxing,
3217 it will be handled here like other internal IND12W
3218 relocs. */
3219 bfd_put_32 (abfd,
3220 0x00000780 | (JARL_R2 (insn[2])<<11) | ((addend << 16) & 0xffff) | ((addend >> 16) & 0xf),
3221 contents + irel->r_offset);
3222 else
3223 /* We can't fully resolve this yet, because the external
3224 symbol value may be changed by future relaxing.
3225 We let the final link phase handle it. */
3226 bfd_put_32 (abfd, 0x00000780 | (JARL_R2 (insn[2])<<11),
3227 contents + irel->r_offset);
3229 hi_irelfn->r_info =
3230 ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_NONE);
3231 lo_irelfn->r_info =
3232 ELF32_R_INFO (ELF32_R_SYM (lo_irelfn->r_info), R_V850_NONE);
3233 irelcall->r_info =
3234 ELF32_R_INFO (ELF32_R_SYM (irelcall->r_info), R_V850_NONE);
3236 if (! v850_elf_relax_delete_bytes (abfd, sec,
3237 irel->r_offset + 4, toaddr, 12))
3238 goto error_return;
3240 align_pad_size += 12;
3242 else if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGJUMP)
3244 /* Check code for -mlong-jumps output. */
3245 if (laddr + 10 <= (bfd_vma) sec->size)
3247 insn[0] = bfd_get_16 (abfd, contents + laddr);
3248 insn[1] = bfd_get_16 (abfd, contents + laddr + 4);
3249 insn[2] = bfd_get_16 (abfd, contents + laddr + 8);
3251 if ((insn[0] & MOVHI_MASK) != MOVHI
3252 || MOVHI_R1 (insn[0]) != 0)
3253 no_match = 0;
3255 if (no_match < 0
3256 && ((insn[1] & MOVEA_MASK) != MOVEA
3257 || MOVHI_R2 (insn[0]) != MOVEA_R1 (insn[1])))
3258 no_match = 1;
3260 if (no_match < 0
3261 && ((insn[2] & JMP_R_MASK) != JMP_R
3262 || MOVEA_R2 (insn[1]) != JMP_R1 (insn[2])))
3263 no_match = 4;
3265 else
3267 ((*_bfd_error_handler)
3268 ("%s: 0x%lx: warning: R_V850_LONGJUMP points to unrecognized insns",
3269 bfd_get_filename (abfd), (unsigned long) irel->r_offset));
3271 continue;
3274 if (no_match >= 0)
3276 ((*_bfd_error_handler)
3277 ("%s: 0x%lx: warning: R_V850_LONGJUMP points to unrecognized insn 0x%x",
3278 bfd_get_filename (abfd), (unsigned long) irel->r_offset+no_match, insn[no_match]));
3280 continue;
3283 /* Get the reloc for the address from which the register is
3284 being loaded. This reloc will tell us which function is
3285 actually being called. */
3286 for (hi_irelfn = internal_relocs; hi_irelfn < irelend; hi_irelfn ++)
3287 if (hi_irelfn->r_offset == laddr + 2
3288 && ELF32_R_TYPE (hi_irelfn->r_info) == (int) R_V850_HI16_S)
3289 break;
3291 for (lo_irelfn = internal_relocs; lo_irelfn < irelend; lo_irelfn ++)
3292 if (lo_irelfn->r_offset == laddr + 6
3293 && ELF32_R_TYPE (lo_irelfn->r_info) == (int) R_V850_LO16)
3294 break;
3296 if ( hi_irelfn == irelend
3297 || lo_irelfn == irelend)
3299 ((*_bfd_error_handler)
3300 ("%s: 0x%lx: warning: R_V850_LONGJUMP points to unrecognized reloc",
3301 bfd_get_filename (abfd), (unsigned long) irel->r_offset ));
3303 continue;
3306 /* Get the value of the symbol referred to by the reloc. */
3307 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
3309 Elf_Internal_Sym * isym;
3310 asection * sym_sec;
3312 /* A local symbol. */
3313 isym = isymbuf + ELF32_R_SYM (hi_irelfn->r_info);
3315 if (isym->st_shndx == SHN_UNDEF)
3316 sym_sec = bfd_und_section_ptr;
3317 else if (isym->st_shndx == SHN_ABS)
3318 sym_sec = bfd_abs_section_ptr;
3319 else if (isym->st_shndx == SHN_COMMON)
3320 sym_sec = bfd_com_section_ptr;
3321 else
3322 sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
3323 symval = (isym->st_value
3324 + sym_sec->output_section->vma
3325 + sym_sec->output_offset);
3326 #ifdef DEBUG_RELAX
3328 char * name = bfd_elf_string_from_elf_section
3329 (abfd, symtab_hdr->sh_link, isym->st_name);
3331 fprintf (stderr, "relax long jump local: sec: %s, sym: %s (%d), value: %x + %x + %x addend %x\n",
3332 sym_sec->name, name, isym->st_name,
3333 sym_sec->output_section->vma,
3334 sym_sec->output_offset,
3335 isym->st_value, irel->r_addend);
3337 #endif
3339 else
3341 unsigned long indx;
3342 struct elf_link_hash_entry * h;
3344 /* An external symbol. */
3345 indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
3346 h = elf_sym_hashes (abfd)[indx];
3347 BFD_ASSERT (h != NULL);
3349 if ( h->root.type != bfd_link_hash_defined
3350 && h->root.type != bfd_link_hash_defweak)
3351 /* This appears to be a reference to an undefined
3352 symbol. Just ignore it--it will be caught by the
3353 regular reloc processing. */
3354 continue;
3356 symval = (h->root.u.def.value
3357 + h->root.u.def.section->output_section->vma
3358 + h->root.u.def.section->output_offset);
3359 #ifdef DEBUG_RELAX
3360 fprintf (stderr,
3361 "relax longjump defined: sec: %s, name: %s, value: %x + %x + %x addend %x\n",
3362 sec->name, h->root.root.string, h->root.u.def.value,
3363 sec->output_section->vma, sec->output_offset, irel->r_addend);
3364 #endif
3367 addend = irel->r_addend;
3369 foff = (symval + addend
3370 - (irel->r_offset
3371 + sec->output_section->vma
3372 + sec->output_offset
3373 + 4));
3374 #ifdef DEBUG_RELAX
3375 fprintf (stderr, "relax longjump r_offset 0x%x ptr 0x%x symbol 0x%x addend 0x%x distance 0x%x\n",
3376 irel->r_offset,
3377 (irel->r_offset
3378 + sec->output_section->vma
3379 + sec->output_offset),
3380 symval, addend, foff);
3381 #endif
3382 if (foff < -0x100000 || foff >= 0x100000)
3383 /* After all that work, we can't shorten this function call. */
3384 continue;
3386 /* For simplicity of coding, we are going to modify the section
3387 contents, the section relocs, and the BFD symbol table. We
3388 must tell the rest of the code not to free up this
3389 information. It would be possible to instead create a table
3390 of changes which have to be made, as is done in coff-mips.c;
3391 that would be more work, but would require less memory when
3392 the linker is run. */
3393 elf_section_data (sec)->relocs = internal_relocs;
3394 elf_section_data (sec)->this_hdr.contents = contents;
3395 symtab_hdr->contents = (bfd_byte *) isymbuf;
3397 if (foff < -0x100 || foff >= 0x100)
3399 /* Replace the long jump with a jr. */
3401 irel->r_info =
3402 ELF32_R_INFO (ELF32_R_SYM (irel->r_info), R_V850_22_PCREL);
3404 irel->r_addend = addend;
3405 addend = 0;
3407 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
3408 /* If this needs to be changed because of future relaxing,
3409 it will be handled here like other internal IND12W
3410 relocs. */
3411 bfd_put_32 (abfd,
3412 0x00000780 | ((addend << 15) & 0xffff0000) | ((addend >> 17) & 0xf),
3413 contents + irel->r_offset);
3414 else
3415 /* We can't fully resolve this yet, because the external
3416 symbol value may be changed by future relaxing.
3417 We let the final link phase handle it. */
3418 bfd_put_32 (abfd, 0x00000780, contents + irel->r_offset);
3420 hi_irelfn->r_info =
3421 ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_NONE);
3422 lo_irelfn->r_info =
3423 ELF32_R_INFO (ELF32_R_SYM (lo_irelfn->r_info), R_V850_NONE);
3424 if (!v850_elf_relax_delete_bytes (abfd, sec,
3425 irel->r_offset + 4, toaddr, 6))
3426 goto error_return;
3428 align_pad_size += 6;
3430 else
3432 /* Replace the long jump with a br. */
3434 irel->r_info =
3435 ELF32_R_INFO (ELF32_R_SYM (irel->r_info), R_V850_9_PCREL);
3437 irel->r_addend = addend;
3438 addend = 0;
3440 if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
3441 /* If this needs to be changed because of future relaxing,
3442 it will be handled here like other internal IND12W
3443 relocs. */
3444 bfd_put_16 (abfd,
3445 0x0585 | ((addend << 10) & 0xf800) | ((addend << 3) & 0x0070),
3446 contents + irel->r_offset);
3447 else
3448 /* We can't fully resolve this yet, because the external
3449 symbol value may be changed by future relaxing.
3450 We let the final link phase handle it. */
3451 bfd_put_16 (abfd, 0x0585, contents + irel->r_offset);
3453 hi_irelfn->r_info =
3454 ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_NONE);
3455 lo_irelfn->r_info =
3456 ELF32_R_INFO (ELF32_R_SYM (lo_irelfn->r_info), R_V850_NONE);
3457 if (!v850_elf_relax_delete_bytes (abfd, sec,
3458 irel->r_offset + 2, toaddr, 8))
3459 goto error_return;
3461 align_pad_size += 8;
3466 irelalign = NULL;
3467 for (irel = internal_relocs; irel < irelend; irel++)
3469 if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_ALIGN
3470 && irel->r_offset == toaddr)
3472 irel->r_offset -= align_pad_size;
3474 if (irelalign == NULL || irelalign->r_addend > irel->r_addend)
3475 irelalign = irel;
3479 addr = toaddr;
3482 if (!irelalign)
3484 #ifdef DEBUG_RELAX
3485 fprintf (stderr, "relax pad %d shorten %d -> %d\n",
3486 align_pad_size,
3487 sec->size,
3488 sec->size - align_pad_size);
3489 #endif
3490 sec->size -= align_pad_size;
3493 finish:
3494 if (internal_relocs != NULL
3495 && elf_section_data (sec)->relocs != internal_relocs)
3496 free (internal_relocs);
3498 if (contents != NULL
3499 && elf_section_data (sec)->this_hdr.contents != (unsigned char *) contents)
3500 free (contents);
3502 if (isymbuf != NULL
3503 && symtab_hdr->contents != (bfd_byte *) isymbuf)
3504 free (isymbuf);
3506 return result;
3508 error_return:
3509 result = FALSE;
3510 goto finish;
3513 static const struct bfd_elf_special_section v850_elf_special_sections[] =
3515 { STRING_COMMA_LEN (".call_table_data"), 0, SHT_PROGBITS, (SHF_ALLOC + SHF_WRITE) },
3516 { STRING_COMMA_LEN (".call_table_text"), 0, SHT_PROGBITS, (SHF_ALLOC + SHF_WRITE
3517 + SHF_EXECINSTR) },
3518 { STRING_COMMA_LEN (".rosdata"), -2, SHT_PROGBITS, (SHF_ALLOC
3519 + SHF_V850_GPREL) },
3520 { STRING_COMMA_LEN (".rozdata"), -2, SHT_PROGBITS, (SHF_ALLOC
3521 + SHF_V850_R0REL) },
3522 { STRING_COMMA_LEN (".sbss"), -2, SHT_NOBITS, (SHF_ALLOC + SHF_WRITE
3523 + SHF_V850_GPREL) },
3524 { STRING_COMMA_LEN (".scommon"), -2, SHT_V850_SCOMMON, (SHF_ALLOC + SHF_WRITE
3525 + SHF_V850_GPREL) },
3526 { STRING_COMMA_LEN (".sdata"), -2, SHT_PROGBITS, (SHF_ALLOC + SHF_WRITE
3527 + SHF_V850_GPREL) },
3528 { STRING_COMMA_LEN (".tbss"), -2, SHT_NOBITS, (SHF_ALLOC + SHF_WRITE
3529 + SHF_V850_EPREL) },
3530 { STRING_COMMA_LEN (".tcommon"), -2, SHT_V850_TCOMMON, (SHF_ALLOC + SHF_WRITE
3531 + SHF_V850_R0REL) },
3532 { STRING_COMMA_LEN (".tdata"), -2, SHT_PROGBITS, (SHF_ALLOC + SHF_WRITE
3533 + SHF_V850_EPREL) },
3534 { STRING_COMMA_LEN (".zbss"), -2, SHT_NOBITS, (SHF_ALLOC + SHF_WRITE
3535 + SHF_V850_R0REL) },
3536 { STRING_COMMA_LEN (".zcommon"), -2, SHT_V850_ZCOMMON, (SHF_ALLOC + SHF_WRITE
3537 + SHF_V850_R0REL) },
3538 { STRING_COMMA_LEN (".zdata"), -2, SHT_PROGBITS, (SHF_ALLOC + SHF_WRITE
3539 + SHF_V850_R0REL) },
3540 { NULL, 0, 0, 0, 0 }
3543 #define TARGET_LITTLE_SYM bfd_elf32_v850_vec
3544 #define TARGET_LITTLE_NAME "elf32-v850"
3545 #define ELF_ARCH bfd_arch_v850
3546 #define ELF_MACHINE_CODE EM_V850
3547 #define ELF_MACHINE_ALT1 EM_CYGNUS_V850
3548 #define ELF_MACHINE_ALT2 EM_V800 /* This is the value used by the GreenHills toolchain. */
3549 #define ELF_MAXPAGESIZE 0x1000
3551 #define elf_info_to_howto v850_elf_info_to_howto_rela
3552 #define elf_info_to_howto_rel v850_elf_info_to_howto_rel
3554 #define elf_backend_check_relocs v850_elf_check_relocs
3555 #define elf_backend_relocate_section v850_elf_relocate_section
3556 #define elf_backend_object_p v850_elf_object_p
3557 #define elf_backend_final_write_processing v850_elf_final_write_processing
3558 #define elf_backend_section_from_bfd_section v850_elf_section_from_bfd_section
3559 #define elf_backend_symbol_processing v850_elf_symbol_processing
3560 #define elf_backend_add_symbol_hook v850_elf_add_symbol_hook
3561 #define elf_backend_link_output_symbol_hook v850_elf_link_output_symbol_hook
3562 #define elf_backend_section_from_shdr v850_elf_section_from_shdr
3563 #define elf_backend_fake_sections v850_elf_fake_sections
3564 #define elf_backend_gc_mark_hook v850_elf_gc_mark_hook
3565 #define elf_backend_special_sections v850_elf_special_sections
3567 #define elf_backend_can_gc_sections 1
3568 #define elf_backend_rela_normal 1
3570 #define bfd_elf32_bfd_is_local_label_name v850_elf_is_local_label_name
3571 #define bfd_elf32_bfd_reloc_type_lookup v850_elf_reloc_type_lookup
3572 #define bfd_elf32_bfd_reloc_name_lookup v850_elf_reloc_name_lookup
3573 #define bfd_elf32_bfd_merge_private_bfd_data v850_elf_merge_private_bfd_data
3574 #define bfd_elf32_bfd_set_private_flags v850_elf_set_private_flags
3575 #define bfd_elf32_bfd_print_private_bfd_data v850_elf_print_private_bfd_data
3576 #define bfd_elf32_bfd_relax_section v850_elf_relax_section
3578 #define elf_symbol_leading_char '_'
3580 #include "elf32-target.h"