projects / deliverable / binutils-gdb.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Removed v850eq sanitization.
[deliverable/binutils-gdb.git] / bfd / elf32-v850.c
1 /* V850-specific support for 32-bit ELF
2 Copyright (C) 1996, 1997 Free Software Foundation, Inc.
3
4 This file is part of BFD, the Binary File Descriptor library.
5
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
10
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
19
20
21
22 /* XXX FIXME: This code is littered with 32bit int, 16bit short, 8bit char
23 dependencies. As is the gas & simulator code or the v850. */
24
25
26 #include "bfd.h"
27 #include "sysdep.h"
28 #include "bfdlink.h"
29 #include "libbfd.h"
30 #include "elf-bfd.h"
31 #include "elf/v850.h"
32
33 static reloc_howto_type *v850_elf_reloc_type_lookup
34 PARAMS ((bfd *abfd, bfd_reloc_code_real_type code));
35 static void v850_elf_info_to_howto_rel
36 PARAMS ((bfd *, arelent *, Elf32_Internal_Rel *));
37 static bfd_reloc_status_type v850_elf_reloc
38 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
39 static boolean v850_elf_is_local_label_name PARAMS ((bfd *, const char *));
40 static boolean v850_elf_relocate_section PARAMS((bfd *,
41 struct bfd_link_info *,
42 bfd *,
43 asection *,
44 bfd_byte *,
45 Elf_Internal_Rela *,
46 Elf_Internal_Sym *,
47 asection **));
48 /* Try to minimize the amount of space occupied by relocation tables
49 on the ROM (not that the ROM won't be swamped by other ELF overhead). */
50 #define USE_REL
51
52 /* Note: It is REQUIRED that the 'type' value of each entry in this array
53 match the index of the entry in the array. */
54 static reloc_howto_type v850_elf_howto_table[] =
55 {
56 /* This reloc does nothing. */
57 HOWTO (R_V850_NONE, /* type */
58 0, /* rightshift */
59 2, /* size (0 = byte, 1 = short, 2 = long) */
60 32, /* bitsize */
61 false, /* pc_relative */
62 0, /* bitpos */
63 complain_overflow_bitfield, /* complain_on_overflow */
64 bfd_elf_generic_reloc, /* special_function */
65 "R_V850_NONE", /* name */
66 false, /* partial_inplace */
67 0, /* src_mask */
68 0, /* dst_mask */
69 false), /* pcrel_offset */
70
71 /* A PC relative 9 bit branch. */
72 HOWTO (R_V850_9_PCREL, /* type */
73 2, /* rightshift */
74 2, /* size (0 = byte, 1 = short, 2 = long) */
75 26, /* bitsize */
76 true, /* pc_relative */
77 0, /* bitpos */
78 complain_overflow_bitfield, /* complain_on_overflow */
79 v850_elf_reloc, /* special_function */
80 "R_V850_9_PCREL", /* name */
81 false, /* partial_inplace */
82 0x00ffffff, /* src_mask */
83 0x00ffffff, /* dst_mask */
84 true), /* pcrel_offset */
85
86 /* A PC relative 22 bit branch. */
87 HOWTO (R_V850_22_PCREL, /* type */
88 2, /* rightshift */
89 2, /* size (0 = byte, 1 = short, 2 = long) */
90 22, /* bitsize */
91 true, /* pc_relative */
92 7, /* bitpos */
93 complain_overflow_signed, /* complain_on_overflow */
94 v850_elf_reloc, /* special_function */
95 "R_V850_22_PCREL", /* name */
96 false, /* partial_inplace */
97 0x07ffff80, /* src_mask */
98 0x07ffff80, /* dst_mask */
99 true), /* pcrel_offset */
100
101 /* High 16 bits of symbol value. */
102 HOWTO (R_V850_HI16_S, /* type */
103 0, /* rightshift */
104 1, /* size (0 = byte, 1 = short, 2 = long) */
105 16, /* bitsize */
106 false, /* pc_relative */
107 0, /* bitpos */
108 complain_overflow_dont, /* complain_on_overflow */
109 v850_elf_reloc, /* special_function */
110 "R_V850_HI16_S", /* name */
111 true, /* partial_inplace */
112 0xffff, /* src_mask */
113 0xffff, /* dst_mask */
114 false), /* pcrel_offset */
115
116 /* High 16 bits of symbol value. */
117 HOWTO (R_V850_HI16, /* type */
118 0, /* rightshift */
119 1, /* size (0 = byte, 1 = short, 2 = long) */
120 16, /* bitsize */
121 false, /* pc_relative */
122 0, /* bitpos */
123 complain_overflow_dont, /* complain_on_overflow */
124 v850_elf_reloc, /* special_function */
125 "R_V850_HI16", /* name */
126 true, /* partial_inplace */
127 0xffff, /* src_mask */
128 0xffff, /* dst_mask */
129 false), /* pcrel_offset */
130
131 /* Low 16 bits of symbol value. */
132 HOWTO (R_V850_LO16, /* type */
133 0, /* rightshift */
134 1, /* size (0 = byte, 1 = short, 2 = long) */
135 16, /* bitsize */
136 false, /* pc_relative */
137 0, /* bitpos */
138 complain_overflow_dont, /* complain_on_overflow */
139 v850_elf_reloc, /* special_function */
140 "R_V850_LO16", /* name */
141 true, /* partial_inplace */
142 0xffff, /* src_mask */
143 0xffff, /* dst_mask */
144 false), /* pcrel_offset */
145
146 /* Simple 32bit reloc. */
147 HOWTO (R_V850_32, /* type */
148 0, /* rightshift */
149 2, /* size (0 = byte, 1 = short, 2 = long) */
150 32, /* bitsize */
151 false, /* pc_relative */
152 0, /* bitpos */
153 complain_overflow_dont, /* complain_on_overflow */
154 bfd_elf_generic_reloc, /* special_function */
155 "R_V850_32", /* name */
156 true, /* partial_inplace */
157 0xffffffff, /* src_mask */
158 0xffffffff, /* dst_mask */
159 false), /* pcrel_offset */
160
161 /* Simple 16bit reloc. */
162 HOWTO (R_V850_16, /* type */
163 0, /* rightshift */
164 1, /* size (0 = byte, 1 = short, 2 = long) */
165 16, /* bitsize */
166 false, /* pc_relative */
167 0, /* bitpos */
168 complain_overflow_dont, /* complain_on_overflow */
169 bfd_elf_generic_reloc, /* special_function */
170 "R_V850_16", /* name */
171 true, /* partial_inplace */
172 0xffff, /* src_mask */
173 0xffff, /* dst_mask */
174 false), /* pcrel_offset */
175
176 /* Simple 8bit reloc. */
177 HOWTO (R_V850_8, /* type */
178 0, /* rightshift */
179 0, /* size (0 = byte, 1 = short, 2 = long) */
180 8, /* bitsize */
181 false, /* pc_relative */
182 0, /* bitpos */
183 complain_overflow_dont, /* complain_on_overflow */
184 bfd_elf_generic_reloc, /* special_function */
185 "R_V850_8", /* name */
186 true, /* partial_inplace */
187 0xff, /* src_mask */
188 0xff, /* dst_mask */
189 false), /* pcrel_offset */
190
191 /* 16 bit offset from the short data area pointer. */
192 HOWTO (R_V850_SDA_16_16_OFFSET, /* type */
193 0, /* rightshift */
194 1, /* size (0 = byte, 1 = short, 2 = long) */
195 16, /* bitsize */
196 false, /* pc_relative */
197 0, /* bitpos */
198 complain_overflow_dont, /* complain_on_overflow */
199 v850_elf_reloc, /* special_function */
200 "R_V850_SDA_16_16_OFFSET", /* name */
201 false, /* partial_inplace */
202 0xffff, /* src_mask */
203 0xffff, /* dst_mask */
204 false), /* pcrel_offset */
205
206 /* 15 bit offset from the short data area pointer. */
207 HOWTO (R_V850_SDA_15_16_OFFSET, /* type */
208 1, /* rightshift */
209 1, /* size (0 = byte, 1 = short, 2 = long) */
210 16, /* bitsize */
211 false, /* pc_relative */
212 1, /* bitpos */
213 complain_overflow_dont, /* complain_on_overflow */
214 v850_elf_reloc, /* special_function */
215 "R_V850_SDA_15_16_OFFSET", /* name */
216 false, /* partial_inplace */
217 0xfffe, /* src_mask */
218 0xfffe, /* dst_mask */
219 false), /* pcrel_offset */
220
221 /* 16 bit offset from the zero data area pointer. */
222 HOWTO (R_V850_ZDA_16_16_OFFSET, /* type */
223 0, /* rightshift */
224 1, /* size (0 = byte, 1 = short, 2 = long) */
225 16, /* bitsize */
226 false, /* pc_relative */
227 0, /* bitpos */
228 complain_overflow_dont, /* complain_on_overflow */
229 v850_elf_reloc, /* special_function */
230 "R_V850_ZDA_16_16_OFFSET", /* name */
231 false, /* partial_inplace */
232 0xffff, /* src_mask */
233 0xffff, /* dst_mask */
234 false), /* pcrel_offset */
235
236 /* 15 bit offset from the zero data area pointer. */
237 HOWTO (R_V850_ZDA_15_16_OFFSET, /* type */
238 1, /* rightshift */
239 1, /* size (0 = byte, 1 = short, 2 = long) */
240 16, /* bitsize */
241 false, /* pc_relative */
242 1, /* bitpos */
243 complain_overflow_dont, /* complain_on_overflow */
244 v850_elf_reloc, /* special_function */
245 "R_V850_ZDA_15_16_OFFSET", /* name */
246 false, /* partial_inplace */
247 0xfffe, /* src_mask */
248 0xfffe, /* dst_mask */
249 false), /* pcrel_offset */
250
251 /* 6 bit offset from the tiny data area pointer. */
252 HOWTO (R_V850_TDA_6_8_OFFSET, /* type */
253 2, /* rightshift */
254 1, /* size (0 = byte, 1 = short, 2 = long) */
255 8, /* bitsize */
256 false, /* pc_relative */
257 1, /* bitpos */
258 complain_overflow_dont, /* complain_on_overflow */
259 v850_elf_reloc, /* special_function */
260 "R_V850_TDA_6_8_OFFSET", /* name */
261 false, /* partial_inplace */
262 0x7e, /* src_mask */
263 0x7e, /* dst_mask */
264 false), /* pcrel_offset */
265
266 /* 8 bit offset from the tiny data area pointer. */
267 HOWTO (R_V850_TDA_7_8_OFFSET, /* type */
268 1, /* rightshift */
269 1, /* size (0 = byte, 1 = short, 2 = long) */
270 8, /* bitsize */
271 false, /* pc_relative */
272 0, /* bitpos */
273 complain_overflow_dont, /* complain_on_overflow */
274 v850_elf_reloc, /* special_function */
275 "R_V850_TDA_7_8_OFFSET", /* name */
276 false, /* partial_inplace */
277 0x7f, /* src_mask */
278 0x7f, /* dst_mask */
279 false), /* pcrel_offset */
280
281 /* 7 bit offset from the tiny data area pointer. */
282 HOWTO (R_V850_TDA_7_7_OFFSET, /* type */
283 0, /* rightshift */
284 1, /* size (0 = byte, 1 = short, 2 = long) */
285 7, /* bitsize */
286 false, /* pc_relative */
287 0, /* bitpos */
288 complain_overflow_dont, /* complain_on_overflow */
289 v850_elf_reloc, /* special_function */
290 "R_V850_TDA_7_7_OFFSET", /* name */
291 false, /* partial_inplace */
292 0x7f, /* src_mask */
293 0x7f, /* dst_mask */
294 false), /* pcrel_offset */
295
296 /* 16 bit offset from the tiny data area pointer! */
297 HOWTO (R_V850_TDA_16_16_OFFSET, /* type */
298 0, /* rightshift */
299 1, /* size (0 = byte, 1 = short, 2 = long) */
300 16, /* bitsize */
301 false, /* pc_relative */
302 0, /* bitpos */
303 complain_overflow_dont, /* complain_on_overflow */
304 v850_elf_reloc, /* special_function */
305 "R_V850_TDA_16_16_OFFSET", /* name */
306 false, /* partial_inplace */
307 0xffff, /* src_mask */
308 0xfff, /* dst_mask */
309 false), /* pcrel_offset */
310
311 /* start-sanitize-v850e */
312
313 /* 5 bit offset from the tiny data area pointer. */
314 HOWTO (R_V850_TDA_4_5_OFFSET, /* type */
315 1, /* rightshift */
316 1, /* size (0 = byte, 1 = short, 2 = long) */
317 5, /* bitsize */
318 false, /* pc_relative */
319 0, /* bitpos */
320 complain_overflow_dont, /* complain_on_overflow */
321 v850_elf_reloc, /* special_function */
322 "R_V850_TDA_4_5_OFFSET", /* name */
323 false, /* partial_inplace */
324 0x0f, /* src_mask */
325 0x0f, /* dst_mask */
326 false), /* pcrel_offset */
327
328 /* 4 bit offset from the tiny data area pointer. */
329 HOWTO (R_V850_TDA_4_4_OFFSET, /* type */
330 0, /* rightshift */
331 1, /* size (0 = byte, 1 = short, 2 = long) */
332 4, /* bitsize */
333 false, /* pc_relative */
334 0, /* bitpos */
335 complain_overflow_dont, /* complain_on_overflow */
336 v850_elf_reloc, /* special_function */
337 "R_V850_TDA_4_4_OFFSET", /* name */
338 false, /* partial_inplace */
339 0x0f, /* src_mask */
340 0x0f, /* dst_mask */
341 false), /* pcrel_offset */
342
343 /* 16 bit offset from the short data area pointer. */
344 HOWTO (R_V850_SDA_16_16_SPLIT_OFFSET, /* type */
345 0, /* rightshift */
346 2, /* size (0 = byte, 1 = short, 2 = long) */
347 16, /* bitsize */
348 false, /* pc_relative */
349 0, /* bitpos */
350 complain_overflow_dont, /* complain_on_overflow */
351 v850_elf_reloc, /* special_function */
352 "R_V850_SDA_16_16_SPLIT_OFFSET",/* name */
353 false, /* partial_inplace */
354 0xfffe0020, /* src_mask */
355 0xfffe0020, /* dst_mask */
356 false), /* pcrel_offset */
357
358 /* 16 bit offset from the zero data area pointer. */
359 HOWTO (R_V850_ZDA_16_16_SPLIT_OFFSET, /* type */
360 0, /* rightshift */
361 2, /* size (0 = byte, 1 = short, 2 = long) */
362 16, /* bitsize */
363 false, /* pc_relative */
364 0, /* bitpos */
365 complain_overflow_dont, /* complain_on_overflow */
366 v850_elf_reloc, /* special_function */
367 "R_V850_ZDA_16_16_SPLIT_OFFSET",/* name */
368 false, /* partial_inplace */
369 0xfffe0020, /* src_mask */
370 0xfffe0020, /* dst_mask */
371 false), /* pcrel_offset */
372
373 /* 6 bit offset from the call table base pointer. */
374 HOWTO (R_V850_CALLT_6_7_OFFSET, /* type */
375 0, /* rightshift */
376 1, /* size (0 = byte, 1 = short, 2 = long) */
377 7, /* bitsize */
378 false, /* pc_relative */
379 0, /* bitpos */
380 complain_overflow_dont, /* complain_on_overflow */
381 v850_elf_reloc, /* special_function */
382 "R_V850_CALLT_6_7_OFFSET", /* name */
383 false, /* partial_inplace */
384 0x3f, /* src_mask */
385 0x3f, /* dst_mask */
386 false), /* pcrel_offset */
387
388 /* 16 bit offset from the call table base pointer. */
389 HOWTO (R_V850_CALLT_16_16_OFFSET, /* type */
390 0, /* rightshift */
391 1, /* size (0 = byte, 1 = short, 2 = long) */
392 16, /* bitsize */
393 false, /* pc_relative */
394 0, /* bitpos */
395 complain_overflow_dont, /* complain_on_overflow */
396 v850_elf_reloc, /* special_function */
397 "R_V850_CALLT_16_16_OFFSET", /* name */
398 false, /* partial_inplace */
399 0xffff, /* src_mask */
400 0xffff, /* dst_mask */
401 false), /* pcrel_offset */
402
403 /* end-sanitize-v850e */
404 };
405
406 /* Map BFD reloc types to V850 ELF reloc types. */
407
408 struct v850_elf_reloc_map
409 {
410 unsigned char bfd_reloc_val;
411 unsigned char elf_reloc_val;
412 };
413
414 static const struct v850_elf_reloc_map v850_elf_reloc_map[] =
415 {
416 { BFD_RELOC_NONE, R_V850_NONE },
417 { BFD_RELOC_V850_9_PCREL, R_V850_9_PCREL },
418 { BFD_RELOC_V850_22_PCREL, R_V850_22_PCREL },
419 { BFD_RELOC_HI16_S, R_V850_HI16_S },
420 { BFD_RELOC_HI16, R_V850_HI16 },
421 { BFD_RELOC_LO16, R_V850_LO16 },
422 { BFD_RELOC_32, R_V850_32 },
423 { BFD_RELOC_16, R_V850_16 },
424 { BFD_RELOC_8, R_V850_8 },
425 { BFD_RELOC_V850_SDA_16_16_OFFSET, R_V850_SDA_16_16_OFFSET },
426 { BFD_RELOC_V850_SDA_15_16_OFFSET, R_V850_SDA_15_16_OFFSET },
427 { BFD_RELOC_V850_ZDA_16_16_OFFSET, R_V850_ZDA_16_16_OFFSET },
428 { BFD_RELOC_V850_ZDA_15_16_OFFSET, R_V850_ZDA_15_16_OFFSET },
429 { BFD_RELOC_V850_TDA_6_8_OFFSET, R_V850_TDA_6_8_OFFSET },
430 { BFD_RELOC_V850_TDA_7_8_OFFSET, R_V850_TDA_7_8_OFFSET },
431 { BFD_RELOC_V850_TDA_7_7_OFFSET, R_V850_TDA_7_7_OFFSET },
432 { BFD_RELOC_V850_TDA_16_16_OFFSET, R_V850_TDA_16_16_OFFSET },
433 /* start-sanitize-v850e */
434 { BFD_RELOC_V850_TDA_4_5_OFFSET, R_V850_TDA_4_5_OFFSET },
435 { BFD_RELOC_V850_TDA_4_4_OFFSET, R_V850_TDA_4_4_OFFSET },
436 { BFD_RELOC_V850_SDA_16_16_SPLIT_OFFSET, R_V850_SDA_16_16_SPLIT_OFFSET },
437 { BFD_RELOC_V850_ZDA_16_16_SPLIT_OFFSET, R_V850_ZDA_16_16_SPLIT_OFFSET },
438 { BFD_RELOC_V850_CALLT_6_7_OFFSET, R_V850_CALLT_6_7_OFFSET },
439 { BFD_RELOC_V850_CALLT_16_16_OFFSET, R_V850_CALLT_16_16_OFFSET },
440 /* end-sanitize-v850e */
441 };
442
443 \f
444 /* Map a bfd relocation into the appropriate howto structure */
445 static reloc_howto_type *
446 v850_elf_reloc_type_lookup (abfd, code)
447 bfd * abfd;
448 bfd_reloc_code_real_type code;
449 {
450 unsigned int i;
451
452 for (i = 0;
453 i < sizeof (v850_elf_reloc_map) / sizeof (struct v850_elf_reloc_map);
454 i++)
455 {
456 if (v850_elf_reloc_map[i].bfd_reloc_val == code)
457 {
458 BFD_ASSERT (v850_elf_howto_table[v850_elf_reloc_map[i].elf_reloc_val].type == v850_elf_reloc_map[i].elf_reloc_val);
459
460 return & v850_elf_howto_table[v850_elf_reloc_map[i].elf_reloc_val];
461 }
462 }
463
464 return NULL;
465 }
466
467 \f
468 /* Set the howto pointer for an V850 ELF reloc. */
469 static void
470 v850_elf_info_to_howto_rel (abfd, cache_ptr, dst)
471 bfd * abfd;
472 arelent * cache_ptr;
473 Elf32_Internal_Rel * dst;
474 {
475 unsigned int r_type;
476
477 r_type = ELF32_R_TYPE (dst->r_info);
478 BFD_ASSERT (r_type < (unsigned int) R_V850_max);
479 cache_ptr->howto = &v850_elf_howto_table[r_type];
480 }
481
482 \f
483 /* Look through the relocs for a section during the first phase, and
484 allocate space in the global offset table or procedure linkage
485 table. */
486
487 static boolean
488 v850_elf_check_relocs (abfd, info, sec, relocs)
489 bfd * abfd;
490 struct bfd_link_info * info;
491 asection * sec;
492 const Elf_Internal_Rela * relocs;
493 {
494 boolean ret = true;
495 bfd *dynobj;
496 Elf_Internal_Shdr *symtab_hdr;
497 struct elf_link_hash_entry **sym_hashes;
498 const Elf_Internal_Rela *rel;
499 const Elf_Internal_Rela *rel_end;
500 asection *sreloc;
501 enum reloc_type r_type;
502 int other = 0;
503 const char *common = (const char *)0;
504
505 if (info->relocateable)
506 return true;
507
508 #ifdef DEBUG
509 fprintf (stderr, "v850_elf_check_relocs called for section %s in %s\n",
510 bfd_get_section_name (abfd, sec),
511 bfd_get_filename (abfd));
512 #endif
513
514 dynobj = elf_hash_table (info)->dynobj;
515 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
516 sym_hashes = elf_sym_hashes (abfd);
517 sreloc = NULL;
518
519 rel_end = relocs + sec->reloc_count;
520 for (rel = relocs; rel < rel_end; rel++)
521 {
522 unsigned long r_symndx;
523 struct elf_link_hash_entry *h;
524
525 r_symndx = ELF32_R_SYM (rel->r_info);
526 if (r_symndx < symtab_hdr->sh_info)
527 h = NULL;
528 else
529 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
530
531 r_type = (enum reloc_type) ELF32_R_TYPE (rel->r_info);
532 switch (r_type)
533 {
534 default:
535 case R_V850_NONE:
536 case R_V850_9_PCREL:
537 case R_V850_22_PCREL:
538 case R_V850_HI16_S:
539 case R_V850_HI16:
540 case R_V850_LO16:
541 case R_V850_32:
542 case R_V850_16:
543 case R_V850_8:
544 /* start-sanitize-v850e */
545 case R_V850_CALLT_6_7_OFFSET:
546 case R_V850_CALLT_16_16_OFFSET:
547 /* end-sanitize-v850e */
548 break;
549
550 /* start-sanitize-v850e */
551 case R_V850_SDA_16_16_SPLIT_OFFSET:
552 /* end-sanitize-v850e */
553 case R_V850_SDA_16_16_OFFSET:
554 case R_V850_SDA_15_16_OFFSET:
555 other = V850_OTHER_SDA;
556 common = ".scommon";
557 goto small_data_common;
558
559 /* start-sanitize-v850e */
560 case R_V850_ZDA_16_16_SPLIT_OFFSET:
561 /* end-sanitize-v850e */
562 case R_V850_ZDA_16_16_OFFSET:
563 case R_V850_ZDA_15_16_OFFSET:
564 other = V850_OTHER_ZDA;
565 common = ".zcommon";
566 goto small_data_common;
567
568 /* start-sanitize-v850e */
569 case R_V850_TDA_4_5_OFFSET:
570 case R_V850_TDA_4_4_OFFSET:
571 /* end-sanitize-v850e */
572 case R_V850_TDA_6_8_OFFSET:
573 case R_V850_TDA_7_8_OFFSET:
574 case R_V850_TDA_7_7_OFFSET:
575 case R_V850_TDA_16_16_OFFSET:
576 other = V850_OTHER_TDA;
577 common = ".tcommon";
578 /* fall through */
579
580 #define V850_OTHER_MASK (V850_OTHER_TDA | V850_OTHER_SDA | V850_OTHER_ZDA)
581
582 small_data_common:
583 if (h)
584 {
585 h->other |= other; /* flag which type of relocation was used */
586 if ((h->other & V850_OTHER_MASK) != (other & V850_OTHER_MASK)
587 && (h->other & V850_OTHER_ERROR) == 0)
588 {
589 const char * msg;
590 static char buff[100]; /* XXX */
591
592 switch (h->other & V850_OTHER_MASK)
593 {
594 default:
595 msg = "cannot occupy in multiple small data regions";
596 break;
597 case V850_OTHER_SDA | V850_OTHER_ZDA | V850_OTHER_TDA:
598 msg = "can only be in one of the small, zero, and tiny data regions";
599 break;
600 case V850_OTHER_SDA | V850_OTHER_ZDA:
601 msg = "cannot be in both small and zero data regions simultaneously";
602 break;
603 case V850_OTHER_SDA | V850_OTHER_TDA:
604 msg = "cannot be in both small and tiny data regions simultaneously";
605 break;
606 case V850_OTHER_ZDA | V850_OTHER_TDA:
607 msg = "cannot be in both zero and tiny data regions simultaneously";
608 break;
609 }
610
611 sprintf (buff, "Variable '%s' %s", h->root.root.string, msg );
612 info->callbacks->warning (info, buff, h->root.root.string,
613 abfd, h->root.u.def.section, 0);
614
615 bfd_set_error (bfd_error_bad_value);
616 h->other |= V850_OTHER_ERROR;
617 ret = false;
618 }
619 }
620
621 if (h && h->root.type == bfd_link_hash_common
622 && h->root.u.c.p
623 && !strcmp (bfd_get_section_name (abfd, h->root.u.c.p->section), "COMMON"))
624 {
625 asection *section = h->root.u.c.p->section = bfd_make_section_old_way (abfd, common);
626 section->flags |= SEC_IS_COMMON;
627 }
628
629 #ifdef DEBUG
630 fprintf (stderr, "v850_elf_check_relocs, found %s relocation for %s%s\n",
631 v850_elf_howto_table[ (int)r_type ].name,
632 (h && h->root.root.string) ? h->root.root.string : "<unknown>",
633 (h->root.type == bfd_link_hash_common) ? ", symbol is common" : "");
634 #endif
635 break;
636 }
637 }
638
639 return ret;
640 }
641
642 \f
643 /* Insert the addend into the instruction. */
644 static bfd_reloc_status_type
645 v850_elf_reloc (abfd, reloc, symbol, data, isection, obfd, err)
646 bfd * abfd;
647 arelent * reloc;
648 asymbol * symbol;
649 PTR data;
650 asection * isection;
651 bfd * obfd;
652 char ** err;
653 {
654 long relocation;
655 long insn;
656
657
658 /* If there is an output BFD,
659 and the symbol is not a section name (which is only defined at final link time),
660 and either we are not putting the addend into the instruction
661 or the addend is zero, so there is nothing to add into the instruction
662 then just fixup the address and return. */
663 if (obfd != (bfd *) NULL
664 && (symbol->flags & BSF_SECTION_SYM) == 0
665 && (! reloc->howto->partial_inplace
666 || reloc->addend == 0))
667 {
668 reloc->address += isection->output_offset;
669 return bfd_reloc_ok;
670 }
671 #if 0
672 else if (obfd != NULL)
673 {
674 return bfd_reloc_continue;
675 }
676 #endif
677
678 /* Catch relocs involving undefined symbols. */
679 if (bfd_is_und_section (symbol->section)
680 && (symbol->flags & BSF_WEAK) == 0
681 && obfd == NULL)
682 return bfd_reloc_undefined;
683
684 /* We handle final linking of some relocs ourselves. */
685
686 /* Is the address of the relocation really within the section? */
687 if (reloc->address > isection->_cooked_size)
688 return bfd_reloc_outofrange;
689
690 /* Work out which section the relocation is targetted at and the
691 initial relocation command value. */
692
693 /* Get symbol value. (Common symbols are special.) */
694 if (bfd_is_com_section (symbol->section))
695 relocation = 0;
696 else
697 relocation = symbol->value;
698
699 /* Convert input-section-relative symbol value to absolute + addend. */
700 relocation += symbol->section->output_section->vma;
701 relocation += symbol->section->output_offset;
702 relocation += reloc->addend;
703
704 if (reloc->howto->pc_relative == true)
705 {
706 /* Here the variable relocation holds the final address of the
707 symbol we are relocating against, plus any addend. */
708 relocation -= isection->output_section->vma + isection->output_offset;
709
710 /* Deal with pcrel_offset */
711 relocation -= reloc->address;
712 }
713
714 /* I've got no clue... */
715 reloc->addend = 0;
716
717 switch (reloc->howto->type)
718 {
719 default:
720 /* fprintf (stderr, "reloc type %d not SUPPORTED\n", reloc->howto->type ); */
721 return bfd_reloc_notsupported;
722
723 case R_V850_22_PCREL:
724 if (relocation > 0x1ffff || relocation < -0x200000)
725 return bfd_reloc_overflow;
726
727 if ((relocation % 2) != 0)
728 return bfd_reloc_dangerous;
729
730 insn = bfd_get_32 (abfd, (bfd_byte *) data + reloc->address);
731 insn &= ~0xfffe003f;
732 insn |= (((relocation & 0xfffe) << 16)
733 | ((relocation & 0x3f0000) >> 16));
734 bfd_put_32 (abfd, insn, (bfd_byte *)data + reloc->address);
735 return bfd_reloc_ok;
736
737 case R_V850_9_PCREL:
738 if (relocation > 0xff || relocation < -0x100)
739 return bfd_reloc_overflow;
740
741 if ((relocation % 2) != 0)
742 return bfd_reloc_dangerous;
743
744 insn = bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
745 insn &= ~ 0xf870;
746 insn |= ((relocation & 0x1f0) << 7) | ((relocation & 0x0e) << 3);
747 bfd_put_16 (abfd, insn, (bfd_byte *)data + reloc->address);
748 return bfd_reloc_ok;
749
750 case R_V850_HI16_S:
751 relocation += bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
752 relocation = (relocation >> 16) + ((relocation & 0x8000) != 0);
753 bfd_put_16 (abfd, relocation, (bfd_byte *)data + reloc->address);
754 return bfd_reloc_ok;
755
756 case R_V850_HI16:
757 relocation += bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
758 relocation = (relocation >> 16);
759 bfd_put_16 (abfd, relocation, (bfd_byte *)data + reloc->address);
760 return bfd_reloc_ok;
761
762 case R_V850_LO16:
763 relocation += (short)bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
764 /* Do not complain if value has top bit set, as this has been anticipated. */
765 bfd_put_16 (abfd, relocation, (bfd_byte *)data + reloc->address);
766 return bfd_reloc_ok;
767
768 case R_V850_16:
769 relocation += (short)bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
770 /* drop through */
771
772 case R_V850_SDA_16_16_OFFSET:
773 case R_V850_ZDA_16_16_OFFSET:
774 case R_V850_TDA_16_16_OFFSET:
775 if ((long)relocation > 0x7fff || (long)relocation < -0x8000)
776 return bfd_reloc_overflow;
777 bfd_put_16 (abfd, relocation, (bfd_byte *)data + reloc->address);
778 return bfd_reloc_ok;
779
780 case R_V850_SDA_15_16_OFFSET:
781 case R_V850_ZDA_15_16_OFFSET:
782 if ((long)relocation > 0x7ffe || (long)relocation < -0x8000)
783 return bfd_reloc_overflow;
784
785 if (relocation & 1)
786 return bfd_reloc_dangerous;
787
788 insn = bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
789 insn &= 1;
790 insn |= (relocation >> 1) & ~1;
791
792 bfd_put_16 (abfd, insn, (bfd_byte *)data + reloc->address);
793 return bfd_reloc_ok;
794
795 case R_V850_TDA_6_8_OFFSET:
796 if ((long) relocation > 0xfc || (long) relocation < 0)
797 return bfd_reloc_overflow;
798
799 if (relocation & 3)
800 return bfd_reloc_dangerous;
801
802 insn = bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
803 insn &= 0xff81;
804 insn |= (relocation >> 1);
805
806 bfd_put_16 (abfd, insn, (bfd_byte *)data + reloc->address);
807 return bfd_reloc_ok;
808
809 case R_V850_TDA_7_8_OFFSET:
810 if ((long) relocation > 0xfe || (long) relocation < 0)
811 return bfd_reloc_overflow;
812
813 if (relocation & 1)
814 return bfd_reloc_dangerous;
815
816 insn = bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
817 insn &= 0xff80;
818 insn |= (relocation >> 1);
819
820 bfd_put_16 (abfd, insn, (bfd_byte *)data + reloc->address);
821 return bfd_reloc_ok;
822
823 case R_V850_TDA_7_7_OFFSET:
824 if ((long) relocation > 0x7f || (long) relocation < 0)
825 return bfd_reloc_overflow;
826
827 insn = bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
828 insn &= 0xff80;
829 insn |= relocation;
830
831 bfd_put_16 (abfd, insn, (bfd_byte *)data + reloc->address);
832 return bfd_reloc_ok;
833
834 /* start-sanitize-v850e */
835 case R_V850_TDA_4_5_OFFSET:
836 if ((long) relocation > 0x1e || (long) relocation < 0)
837 return bfd_reloc_overflow;
838
839 if (relocation & 1)
840 return bfd_reloc_dangerous;
841
842 insn = bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
843 insn &= 0xfff0;
844 insn |= (relocation >> 1);
845
846 bfd_put_16 (abfd, insn, (bfd_byte *)data + reloc->address);
847 return bfd_reloc_ok;
848
849 case R_V850_TDA_4_4_OFFSET:
850 if ((long) relocation > 0xf || (long) relocation < 0)
851 return bfd_reloc_overflow;
852
853 insn = bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
854 insn &= 0xfff0;
855 insn |= relocation;
856
857 bfd_put_16 (abfd, insn, (bfd_byte *)data + reloc->address);
858 return bfd_reloc_ok;
859
860 case R_V850_ZDA_16_16_SPLIT_OFFSET:
861 case R_V850_SDA_16_16_SPLIT_OFFSET:
862 if ((long) relocation > 0xffff || (long) relocation < 0)
863 return bfd_reloc_overflow;
864
865 insn = bfd_get_32 (abfd, (bfd_byte *) data + reloc->address);
866
867 insn &= 0x0001ffdf;
868 insn |= (relocation & 1) << 5;
869 insn |= (relocation & ~1) << 16;
870
871 bfd_put_32 (abfd, insn, (bfd_byte *)data + reloc->address);
872 return bfd_reloc_ok;
873
874 case R_V850_CALLT_6_7_OFFSET:
875 if ((long) relocation > 0x7e || (long) relocation < 0)
876 return bfd_reloc_overflow;
877
878 if (relocation & 1)
879 return bfd_reloc_dangerous;
880
881 insn = bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
882 insn &= 0xff80;
883 insn |= (relocation >> 1);
884
885 bfd_put_16 (abfd, insn, (bfd_byte *)data + reloc->address);
886 return bfd_reloc_ok;
887
888 case R_V850_CALLT_16_16_OFFSET:
889 bfd_put_16 (abfd, relocation, (bfd_byte *)data + reloc->address);
890 return bfd_reloc_ok;
891
892 /* end-sanitize-v850e */
893 }
894
895 return bfd_reloc_continue;
896 }
897
898 \f
899 /*ARGSUSED*/
900 static boolean
901 v850_elf_is_local_label_name (abfd, name)
902 bfd * abfd;
903 const char * name;
904 {
905 return ((name[0] == '.' && (name[1] == 'L' || name[1] == '.'))
906 || (name[0] == '_' && name[1] == '.' && name[2] == 'L'
907 && name[3] == '_'));
908 }
909
910 \f
911 /* Perform a relocation as part of a final link. */
912 static bfd_reloc_status_type
913 v850_elf_final_link_relocate (howto, input_bfd, output_bfd,
914 input_section, contents, offset, value,
915 addend, info, sym_sec, is_local)
916 reloc_howto_type * howto;
917 bfd * input_bfd;
918 bfd * output_bfd;
919 asection * input_section;
920 bfd_byte * contents;
921 bfd_vma offset;
922 bfd_vma value;
923 bfd_vma addend;
924 struct bfd_link_info * info;
925 asection * sym_sec;
926 int is_local;
927 {
928 unsigned long insn;
929 unsigned long r_type = howto->type;
930 bfd_byte * hit_data = contents + offset;
931
932 switch (r_type)
933 {
934 case R_V850_9_PCREL:
935 value -= (input_section->output_section->vma
936 + input_section->output_offset);
937 value -= offset;
938
939 if ((long)value > 0xff || (long)value < -0x100)
940 return bfd_reloc_overflow;
941
942 if ((value % 2) != 0)
943 return bfd_reloc_dangerous;
944
945 insn = bfd_get_16 (input_bfd, hit_data);
946 insn &= 0x078f;
947 insn |= ((value & 0x1f0) << 7) | ((value & 0x0e) << 3);
948 bfd_put_16 (input_bfd, insn, hit_data);
949 return bfd_reloc_ok;
950
951 case R_V850_22_PCREL:
952 value -= (input_section->output_section->vma
953 + input_section->output_offset);
954 value -= offset;
955
956 if ((long)value > 0x1ffff || (long)value < -0x200000)
957 return bfd_reloc_overflow;
958
959 if ((value % 2) != 0)
960 return bfd_reloc_dangerous;
961
962 insn = bfd_get_32 (input_bfd, hit_data);
963 insn &= 0x1ffc0;
964 insn |= (((value & 0xfffe) << 16) | ((value & 0x3f0000) >> 16));
965 bfd_put_32 (input_bfd, insn, hit_data);
966 return bfd_reloc_ok;
967
968 case R_V850_HI16_S:
969 value += (short)bfd_get_16 (input_bfd, hit_data);
970 value = (value >> 16) + ((value & 0x8000) != 0);
971
972 if ((long)value > 0x7fff || (long)value < -0x8000)
973 return bfd_reloc_overflow;
974
975 bfd_put_16 (input_bfd, value, hit_data);
976 return bfd_reloc_ok;
977
978 case R_V850_HI16:
979 value += (short)bfd_get_16 (input_bfd, hit_data);
980 value >>= 16;
981
982 if ((long)value > 0x7fff || (long)value < -0x8000)
983 return bfd_reloc_overflow;
984
985 bfd_put_16 (input_bfd, value, hit_data);
986 return bfd_reloc_ok;
987
988 case R_V850_LO16:
989 value += (short)bfd_get_16 (input_bfd, hit_data);
990 value &= 0xffff;
991
992 bfd_put_16 (input_bfd, value, hit_data);
993 return bfd_reloc_ok;
994
995 case R_V850_16:
996 value += (short) bfd_get_16 (input_bfd, hit_data);
997
998 if ((long) value > 0x7fff || (long) value < -0x8000)
999 return bfd_reloc_overflow;
1000
1001 bfd_put_16 (input_bfd, value, hit_data);
1002 return bfd_reloc_ok;
1003
1004 case R_V850_ZDA_16_16_OFFSET:
1005 if (sym_sec == NULL)
1006 return bfd_reloc_undefined;
1007
1008 value -= sym_sec->output_section->vma;
1009 value += (short) bfd_get_16 (input_bfd, hit_data);
1010
1011 if ((long) value > 0x7fff || (long) value < -0x8000)
1012 return bfd_reloc_overflow;
1013
1014 bfd_put_16 (input_bfd, value, hit_data);
1015 return bfd_reloc_ok;
1016
1017 case R_V850_ZDA_15_16_OFFSET:
1018 if (sym_sec == NULL)
1019 return bfd_reloc_undefined;
1020
1021 insn = bfd_get_16 (input_bfd, hit_data);
1022
1023 value -= sym_sec->output_section->vma;
1024 value += ((insn & 0xfffe) << 1);
1025
1026 if ((long) value > 0x7ffe || (long) value < -0x8000)
1027 return bfd_reloc_overflow;
1028
1029 value &= ~1;
1030 value |= (insn & 1);
1031
1032 bfd_put_16 (input_bfd, value, hit_data);
1033 return bfd_reloc_ok;
1034
1035 case R_V850_32:
1036 value += bfd_get_32 (input_bfd, hit_data);
1037 bfd_put_32 (input_bfd, value, hit_data);
1038 return bfd_reloc_ok;
1039
1040 case R_V850_8:
1041 value += (char)bfd_get_8 (input_bfd, hit_data);
1042
1043 if ((long)value > 0x7f || (long)value < -0x80)
1044 return bfd_reloc_overflow;
1045
1046 bfd_put_8 (input_bfd, value, hit_data);
1047 return bfd_reloc_ok;
1048
1049 case R_V850_SDA_16_16_OFFSET:
1050 if (sym_sec == NULL)
1051 return bfd_reloc_undefined;
1052
1053 {
1054 unsigned long gp;
1055 struct bfd_link_hash_entry * h;
1056
1057 /* Get the value of __gp. */
1058 h = bfd_link_hash_lookup (info->hash, "__gp", false, false, true);
1059 if (h == (struct bfd_link_hash_entry *) NULL
1060 || h->type != bfd_link_hash_defined)
1061 return bfd_reloc_other;
1062
1063 gp = (h->u.def.value
1064 + h->u.def.section->output_section->vma
1065 + h->u.def.section->output_offset);
1066
1067 value -= sym_sec->output_section->vma;
1068 value -= (gp - sym_sec->output_section->vma);
1069 value += (short) bfd_get_16 (input_bfd, hit_data);
1070
1071 if ((long)value > 0x7fff || (long)value < -0x8000)
1072 return bfd_reloc_overflow;
1073
1074 bfd_put_16 (input_bfd, value, hit_data);
1075 return bfd_reloc_ok;
1076 }
1077
1078 case R_V850_SDA_15_16_OFFSET:
1079 if (sym_sec == NULL)
1080 return bfd_reloc_undefined;
1081
1082 {
1083 unsigned long gp;
1084 struct bfd_link_hash_entry * h;
1085
1086 /* Get the value of __gp. */
1087 h = bfd_link_hash_lookup (info->hash, "__gp", false, false, true);
1088 if (h == (struct bfd_link_hash_entry *) NULL
1089 || h->type != bfd_link_hash_defined)
1090 return bfd_reloc_other;
1091
1092 gp = (h->u.def.value
1093 + h->u.def.section->output_section->vma
1094 + h->u.def.section->output_offset);
1095
1096 value -= sym_sec->output_section->vma;
1097 value -= (gp - sym_sec->output_section->vma);
1098
1099 insn = bfd_get_16 (input_bfd, hit_data);
1100
1101 value += ((insn & 0xfffe) << 1);
1102
1103 if ((long)value > 0x7ffe || (long)value < -0x8000)
1104 return bfd_reloc_overflow;
1105
1106 value &= ~1;
1107 value |= (insn & 1);
1108
1109 bfd_put_16 (input_bfd, value, hit_data);
1110 return bfd_reloc_ok;
1111 }
1112
1113 case R_V850_TDA_6_8_OFFSET:
1114 {
1115 unsigned long ep;
1116 struct bfd_link_hash_entry * h;
1117
1118 insn = bfd_get_16 (input_bfd, hit_data);
1119
1120 /* Get the value of __ep. */
1121 h = bfd_link_hash_lookup (info->hash, "__ep", false, false, true);
1122 if (h == (struct bfd_link_hash_entry *) NULL
1123 || h->type != bfd_link_hash_defined)
1124 return bfd_reloc_continue; /* Actually this indicates that __ep could not be found. */
1125
1126 ep = (h->u.def.value
1127 + h->u.def.section->output_section->vma
1128 + h->u.def.section->output_offset);
1129
1130 value -= ep;
1131 value += ((insn & 0x7e) << 2);
1132
1133 if ((long) value > 0xfc || (long) value < 0)
1134 return bfd_reloc_overflow;
1135
1136 if ((value % 2) != 0)
1137 return bfd_reloc_dangerous;
1138
1139 insn &= 0xff81;
1140 insn |= (value >> 1);
1141
1142 bfd_put_16 (input_bfd, insn, hit_data);
1143 return bfd_reloc_ok;
1144 }
1145
1146 case R_V850_TDA_7_8_OFFSET:
1147 {
1148 unsigned long ep;
1149 struct bfd_link_hash_entry * h;
1150
1151 insn = bfd_get_16 (input_bfd, hit_data);
1152
1153 /* Get the value of __ep. */
1154 h = bfd_link_hash_lookup (info->hash, "__ep", false, false, true);
1155 if (h == (struct bfd_link_hash_entry *) NULL
1156 || h->type != bfd_link_hash_defined)
1157 return bfd_reloc_continue; /* Actually this indicates that __ep could not be found. */
1158
1159 ep = (h->u.def.value
1160 + h->u.def.section->output_section->vma
1161 + h->u.def.section->output_offset);
1162
1163 value -= ep;
1164 value += ((insn & 0x7f) << 1);
1165
1166 if ((long) value > 0xfe || (long) value < 0)
1167 return bfd_reloc_overflow;
1168
1169 insn &= 0xff80;
1170 insn |= (value >> 1);
1171
1172 bfd_put_16 (input_bfd, insn, hit_data);
1173 return bfd_reloc_ok;
1174 }
1175
1176 case R_V850_TDA_7_7_OFFSET:
1177 {
1178 unsigned long ep;
1179 struct bfd_link_hash_entry * h;
1180
1181 insn = bfd_get_16 (input_bfd, hit_data);
1182
1183 /* Get the value of __ep. */
1184 h = bfd_link_hash_lookup (info->hash, "__ep", false, false, true);
1185 if (h == (struct bfd_link_hash_entry *) NULL
1186 || h->type != bfd_link_hash_defined)
1187 return bfd_reloc_continue; /* Actually this indicates that __ep could not be found. */
1188
1189 ep = (h->u.def.value
1190 + h->u.def.section->output_section->vma
1191 + h->u.def.section->output_offset);
1192 value -= ep;
1193
1194 value += insn & 0x7f;
1195
1196 if ((long) value > 0x7f || (long) value < 0)
1197 return bfd_reloc_overflow;
1198
1199 insn &= 0xff80;
1200 insn |= value;
1201 bfd_put_16 (input_bfd, insn, hit_data);
1202 return bfd_reloc_ok;
1203 }
1204
1205 case R_V850_TDA_16_16_OFFSET:
1206 {
1207 unsigned long ep;
1208 struct bfd_link_hash_entry * h;
1209
1210 /* Get the value of __ep. */
1211 h = bfd_link_hash_lookup (info->hash, "__ep", false, false, true);
1212 if (h == (struct bfd_link_hash_entry *) NULL
1213 || h->type != bfd_link_hash_defined)
1214 return bfd_reloc_other;
1215
1216 ep = (h->u.def.value
1217 + h->u.def.section->output_section->vma
1218 + h->u.def.section->output_offset);
1219 value -= ep;
1220
1221 value += (short) bfd_get_16 (input_bfd, hit_data);
1222
1223 if ((long)value > 0x7fff || (long)value < -0x8000)
1224 return bfd_reloc_overflow;
1225
1226 bfd_put_16 (input_bfd, value, hit_data);
1227 return bfd_reloc_ok;
1228 }
1229
1230 /* start-sanitize-v850e */
1231 case R_V850_TDA_4_5_OFFSET:
1232 {
1233 unsigned long ep;
1234 struct bfd_link_hash_entry * h;
1235
1236 /* Get the value of __ep. */
1237 h = bfd_link_hash_lookup (info->hash, "__ep", false, false, true);
1238 if (h == (struct bfd_link_hash_entry *) NULL
1239 || h->type != bfd_link_hash_defined)
1240 return bfd_reloc_continue; /* Actually this indicates that __ep could not be found. */
1241
1242 ep = (h->u.def.value
1243 + h->u.def.section->output_section->vma
1244 + h->u.def.section->output_offset);
1245 value -= ep;
1246
1247 insn = bfd_get_16 (input_bfd, hit_data);
1248
1249 value += ((insn & 0xf) << 1);
1250
1251 if ((long) value > 0x1e || (long) value < 0)
1252 return bfd_reloc_overflow;
1253
1254 insn &= 0xfff0;
1255 insn |= (value >> 1);
1256 bfd_put_16 (input_bfd, insn, hit_data);
1257 return bfd_reloc_ok;
1258 }
1259
1260 case R_V850_TDA_4_4_OFFSET:
1261 {
1262 unsigned long ep;
1263 struct bfd_link_hash_entry * h;
1264
1265 /* Get the value of __ep. */
1266 h = bfd_link_hash_lookup (info->hash, "__ep", false, false, true);
1267 if (h == (struct bfd_link_hash_entry *) NULL
1268 || h->type != bfd_link_hash_defined)
1269 return bfd_reloc_continue; /* Actually this indicates that __ep could not be found. */
1270
1271 ep = (h->u.def.value
1272 + h->u.def.section->output_section->vma
1273 + h->u.def.section->output_offset);
1274 value -= ep;
1275
1276 insn = bfd_get_16 (input_bfd, hit_data);
1277
1278 value += insn & 0xf;
1279
1280 if ((long) value > 0xf || (long) value < 0)
1281 return bfd_reloc_overflow;
1282
1283 insn &= 0xfff0;
1284 insn |= value;
1285 bfd_put_16 (input_bfd, insn, hit_data);
1286 return bfd_reloc_ok;
1287 }
1288
1289 case R_V850_SDA_16_16_SPLIT_OFFSET:
1290 if (sym_sec == NULL)
1291 return bfd_reloc_undefined;
1292
1293 {
1294 unsigned long gp;
1295 struct bfd_link_hash_entry * h;
1296
1297 /* Get the value of __gp. */
1298 h = bfd_link_hash_lookup (info->hash, "__gp", false, false, true);
1299 if (h == (struct bfd_link_hash_entry *) NULL
1300 || h->type != bfd_link_hash_defined)
1301 return bfd_reloc_other;
1302
1303 gp = (h->u.def.value
1304 + h->u.def.section->output_section->vma
1305 + h->u.def.section->output_offset);
1306
1307 value -= sym_sec->output_section->vma;
1308 value -= (gp - sym_sec->output_section->vma);
1309
1310 insn = bfd_get_32 (input_bfd, hit_data);
1311
1312 value += ((insn & 0xfffe0000) >> 16);
1313 value += ((insn & 0x20) >> 5);
1314
1315 if ((long)value > 0x7fff || (long)value < -0x8000)
1316 return bfd_reloc_overflow;
1317
1318 insn &= 0x0001ffdf;
1319 insn |= (value & 1) << 5;
1320 insn |= (value & ~1) << 16;
1321
1322 bfd_put_32 (input_bfd, insn, hit_data);
1323 return bfd_reloc_ok;
1324 }
1325
1326 case R_V850_ZDA_16_16_SPLIT_OFFSET:
1327 if (sym_sec == NULL)
1328 return bfd_reloc_undefined;
1329
1330 insn = bfd_get_32 (input_bfd, hit_data);
1331
1332 value -= sym_sec->output_section->vma;
1333 value += ((insn & 0xfffe0000) >> 16);
1334 value += ((insn & 0x20) >> 5);
1335
1336 if ((long)value > 0x7fff || (long)value < -0x8000)
1337 return bfd_reloc_overflow;
1338
1339 insn &= 0x0001ffdf;
1340 insn |= (value & 1) << 5;
1341 insn |= (value & ~1) << 16;
1342
1343 bfd_put_32 (input_bfd, insn, hit_data);
1344 return bfd_reloc_ok;
1345
1346 case R_V850_CALLT_6_7_OFFSET:
1347 {
1348 unsigned long ctbp;
1349 struct bfd_link_hash_entry * h;
1350
1351 /* Get the value of __ctbp. */
1352 h = bfd_link_hash_lookup (info->hash, "__ctbp", false, false, true);
1353 if (h == (struct bfd_link_hash_entry *) NULL
1354 || h->type != bfd_link_hash_defined)
1355 return bfd_reloc_continue; /* Actually this indicates that __ctbp could not be found. */
1356
1357 ctbp = (h->u.def.value
1358 + h->u.def.section->output_section->vma
1359 + h->u.def.section->output_offset);
1360 value -= ctbp;
1361
1362 insn = bfd_get_16 (input_bfd, hit_data);
1363
1364 value += ((insn & 0x3f) << 1);
1365
1366 if ((long) value > 0x7e || (long) value < 0)
1367 return bfd_reloc_overflow;
1368
1369 insn &= 0xff80;
1370 insn |= (value >> 1);
1371 bfd_put_16 (input_bfd, insn, hit_data);
1372 return bfd_reloc_ok;
1373 }
1374
1375 case R_V850_CALLT_16_16_OFFSET:
1376 if (sym_sec == NULL)
1377 return bfd_reloc_undefined;
1378
1379 {
1380 unsigned long ctbp;
1381 struct bfd_link_hash_entry * h;
1382
1383 /* Get the value of __ctbp. */
1384 h = bfd_link_hash_lookup (info->hash, "__ctbp", false, false, true);
1385 if (h == (struct bfd_link_hash_entry *) NULL
1386 || h->type != bfd_link_hash_defined)
1387 return bfd_reloc_other;
1388
1389 ctbp = (h->u.def.value
1390 + h->u.def.section->output_section->vma
1391 + h->u.def.section->output_offset);
1392
1393 value -= sym_sec->output_section->vma;
1394 value -= (ctbp - sym_sec->output_section->vma);
1395 value += (short) bfd_get_16 (input_bfd, hit_data);
1396
1397 if ((long) value > 0xffff || (long) value < 0)
1398 return bfd_reloc_overflow;
1399
1400 bfd_put_16 (input_bfd, value, hit_data);
1401 return bfd_reloc_ok;
1402 }
1403
1404 /* end-sanitize-v850e */
1405
1406 case R_V850_NONE:
1407 return bfd_reloc_ok;
1408
1409 default:
1410 return bfd_reloc_notsupported;
1411 }
1412 }
1413
1414 \f
1415 /* Relocate an V850 ELF section. */
1416 static boolean
1417 v850_elf_relocate_section (output_bfd, info, input_bfd, input_section,
1418 contents, relocs, local_syms, local_sections)
1419 bfd * output_bfd;
1420 struct bfd_link_info * info;
1421 bfd * input_bfd;
1422 asection * input_section;
1423 bfd_byte * contents;
1424 Elf_Internal_Rela * relocs;
1425 Elf_Internal_Sym * local_syms;
1426 asection ** local_sections;
1427 {
1428 Elf_Internal_Shdr * symtab_hdr;
1429 struct elf_link_hash_entry ** sym_hashes;
1430 Elf_Internal_Rela * rel;
1431 Elf_Internal_Rela * relend;
1432
1433 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
1434 sym_hashes = elf_sym_hashes (input_bfd);
1435
1436 rel = relocs;
1437 relend = relocs + input_section->reloc_count;
1438 for (; rel < relend; rel++)
1439 {
1440 int r_type;
1441 reloc_howto_type * howto;
1442 unsigned long r_symndx;
1443 Elf_Internal_Sym * sym;
1444 asection * sec;
1445 struct elf_link_hash_entry * h;
1446 bfd_vma relocation;
1447 bfd_reloc_status_type r;
1448
1449 r_symndx = ELF32_R_SYM (rel->r_info);
1450 r_type = ELF32_R_TYPE (rel->r_info);
1451 howto = v850_elf_howto_table + r_type;
1452
1453 if (info->relocateable)
1454 {
1455 /* This is a relocateable link. We don't have to change
1456 anything, unless the reloc is against a section symbol,
1457 in which case we have to adjust according to where the
1458 section symbol winds up in the output section. */
1459 if (r_symndx < symtab_hdr->sh_info)
1460 {
1461 sym = local_syms + r_symndx;
1462 if (ELF_ST_TYPE (sym->st_info) == STT_SECTION)
1463 {
1464 sec = local_sections[r_symndx];
1465 rel->r_addend += sec->output_offset + sym->st_value;
1466 }
1467 }
1468
1469 continue;
1470 }
1471
1472 /* This is a final link. */
1473 h = NULL;
1474 sym = NULL;
1475 sec = NULL;
1476 if (r_symndx < symtab_hdr->sh_info)
1477 {
1478 sym = local_syms + r_symndx;
1479 sec = local_sections[r_symndx];
1480 relocation = (sec->output_section->vma
1481 + sec->output_offset
1482 + sym->st_value);
1483 #if 0
1484 {
1485 char * name;
1486 name = bfd_elf_string_from_elf_section (input_bfd, symtab_hdr->sh_link, sym->st_name);
1487 name = (name == NULL) ? "<none>" : name;
1488 fprintf (stderr, "local: sec: %s, sym: %s (%d), value: %x + %x + %x addend %x rel %x\n", sec->name, name, sym->st_name,
1489 sec->output_section->vma, sec->output_offset, sym->st_value, rel->r_addend, rel);
1490 }
1491 #endif
1492 }
1493 else
1494 {
1495 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1496
1497 while (h->root.type == bfd_link_hash_indirect
1498 || h->root.type == bfd_link_hash_warning)
1499 h = (struct elf_link_hash_entry *) h->root.u.i.link;
1500
1501 if (h->root.type == bfd_link_hash_defined
1502 || h->root.type == bfd_link_hash_defweak)
1503 {
1504 sec = h->root.u.def.section;
1505 relocation = (h->root.u.def.value
1506 + sec->output_section->vma
1507 + sec->output_offset);
1508 }
1509 else if (h->root.type == bfd_link_hash_undefweak)
1510 relocation = 0;
1511 else
1512 {
1513 if (! ((*info->callbacks->undefined_symbol)
1514 (info, h->root.root.string, input_bfd,
1515 input_section, rel->r_offset)))
1516 return false;
1517 relocation = 0;
1518 }
1519 }
1520
1521 /* FIXME: We should use the addend, but the COFF relocations
1522 don't. */
1523 r = v850_elf_final_link_relocate (howto, input_bfd, output_bfd,
1524 input_section,
1525 contents, rel->r_offset,
1526 relocation, rel->r_addend,
1527 info, sec, h == NULL);
1528
1529 if (r != bfd_reloc_ok)
1530 {
1531 const char * name;
1532 const char * msg = (const char *)0;
1533
1534 if (h != NULL)
1535 name = h->root.root.string;
1536 else
1537 {
1538 name = (bfd_elf_string_from_elf_section
1539 (input_bfd, symtab_hdr->sh_link, sym->st_name));
1540 if (name == NULL || *name == '\0')
1541 name = bfd_section_name (input_bfd, sec);
1542 }
1543
1544 switch (r)
1545 {
1546 case bfd_reloc_overflow:
1547 if (! ((*info->callbacks->reloc_overflow)
1548 (info, name, howto->name, (bfd_vma) 0,
1549 input_bfd, input_section, rel->r_offset)))
1550 return false;
1551 break;
1552
1553 case bfd_reloc_undefined:
1554 fprintf (stderr, "undef2 %s\n", name );
1555 if (! ((*info->callbacks->undefined_symbol)
1556 (info, name, input_bfd, input_section,
1557 rel->r_offset)))
1558 return false;
1559 break;
1560
1561 case bfd_reloc_outofrange:
1562 msg = "internal error: out of range error";
1563 goto common_error;
1564
1565 case bfd_reloc_notsupported:
1566 msg = "internal error: unsupported relocation error";
1567 goto common_error;
1568
1569 case bfd_reloc_dangerous:
1570 msg = "internal error: dangerous relocation";
1571 goto common_error;
1572
1573 case bfd_reloc_other:
1574 msg = "could not locate special linker symbol __gp";
1575 goto common_error;
1576
1577 case bfd_reloc_continue:
1578 msg = "could not locate special linker symbol __ep";
1579 goto common_error;
1580
1581 default:
1582 msg = "internal error: unknown error";
1583 /* fall through */
1584
1585 common_error:
1586 if (!((*info->callbacks->warning)
1587 (info, msg, name, input_bfd, input_section,
1588 rel->r_offset)))
1589 return false;
1590 break;
1591 }
1592 }
1593 }
1594
1595 return true;
1596 }
1597
1598 /* Set the right machine number. */
1599 static boolean
1600 v850_elf_object_p (abfd)
1601 bfd *abfd;
1602 {
1603 switch (elf_elfheader (abfd)->e_flags & EF_V850_ARCH)
1604 {
1605 default:
1606 case E_V850_ARCH: (void) bfd_default_set_arch_mach (abfd, bfd_arch_v850, 0); break;
1607 /* start-sanitize-v850e */
1608 case E_V850E_ARCH: (void) bfd_default_set_arch_mach (abfd, bfd_arch_v850, bfd_mach_v850e); break;
1609 case E_V850EQ_ARCH: (void) bfd_default_set_arch_mach (abfd, bfd_arch_v850, bfd_mach_v850eq); break;
1610 /* end-sanitize-v850e */
1611 }
1612 }
1613
1614 /* Store the machine number in the flags field. */
1615 void
1616 v850_elf_final_write_processing (abfd, linker)
1617 bfd * abfd;
1618 boolean linker;
1619 {
1620 unsigned long val;
1621
1622 switch (bfd_get_mach (abfd))
1623 {
1624 default:
1625 case 0: val = E_V850_ARCH; break;
1626 /* start-sanitize-v850e */
1627 case bfd_mach_v850e: val = E_V850E_ARCH; break;
1628 case bfd_mach_v850eq: val = E_V850EQ_ARCH; break;
1629 /* end-sanitize-v850e */
1630 }
1631
1632 elf_elfheader (abfd)->e_flags &=~ EF_V850_ARCH;
1633 elf_elfheader (abfd)->e_flags |= val;
1634 }
1635
1636 /* Function to keep V850 specific file flags. */
1637 boolean
1638 v850_elf_set_private_flags (abfd, flags)
1639 bfd * abfd;
1640 flagword flags;
1641 {
1642 BFD_ASSERT (!elf_flags_init (abfd)
1643 || elf_elfheader (abfd)->e_flags == flags);
1644
1645 elf_elfheader (abfd)->e_flags = flags;
1646 elf_flags_init (abfd) = true;
1647 return true;
1648 }
1649
1650 /* Copy backend specific data from one object module to another */
1651 boolean
1652 v850_elf_copy_private_bfd_data (ibfd, obfd)
1653 bfd * ibfd;
1654 bfd * obfd;
1655 {
1656 if ( bfd_get_flavour (ibfd) != bfd_target_elf_flavour
1657 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
1658 return true;
1659
1660 BFD_ASSERT (!elf_flags_init (obfd)
1661 || (elf_elfheader (obfd)->e_flags
1662 == elf_elfheader (ibfd)->e_flags));
1663
1664 elf_gp (obfd) = elf_gp (ibfd);
1665 elf_elfheader (obfd)->e_flags = elf_elfheader (ibfd)->e_flags;
1666 elf_flags_init (obfd) = true;
1667 return true;
1668 }
1669
1670 /* Merge backend specific data from an object file to the output
1671 object file when linking. */
1672 boolean
1673 v850_elf_merge_private_bfd_data (ibfd, obfd)
1674 bfd * ibfd;
1675 bfd * obfd;
1676 {
1677 flagword old_flags;
1678 flagword new_flags;
1679
1680 if ( bfd_get_flavour (ibfd) != bfd_target_elf_flavour
1681 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
1682 return true;
1683
1684 new_flags = elf_elfheader (ibfd)->e_flags;
1685 old_flags = elf_elfheader (obfd)->e_flags;
1686
1687 if (! elf_flags_init (obfd))
1688 {
1689 elf_flags_init (obfd) = true;
1690 elf_elfheader (obfd)->e_flags = new_flags;
1691
1692 if (bfd_get_arch (obfd) == bfd_get_arch (ibfd)
1693 && bfd_get_arch_info (obfd)->the_default)
1694 {
1695 return bfd_set_arch_mach (obfd, bfd_get_arch (ibfd), bfd_get_mach (ibfd));
1696 }
1697
1698 return true;
1699 }
1700
1701 /* Check flag compatibility. */
1702
1703 if (new_flags == old_flags)
1704 return true;
1705
1706 if ((new_flags & EF_V850_ARCH) != (old_flags & EF_V850_ARCH))
1707 {
1708 _bfd_error_handler ("%s: Architecture mismatch with previous modules",
1709 bfd_get_filename (ibfd));
1710 #if 0
1711 bfd_set_error (bfd_error_bad_value);
1712 return false;
1713 #else
1714 return true;
1715 #endif
1716 }
1717
1718 return true;
1719 }
1720 /* Display the flags field */
1721
1722 static boolean
1723 v850_elf_print_private_bfd_data (abfd, ptr)
1724 bfd * abfd;
1725 PTR ptr;
1726 {
1727 FILE * file = (FILE *) ptr;
1728
1729 BFD_ASSERT (abfd != NULL && ptr != NULL)
1730
1731 fprintf (file, "private flags = %x", elf_elfheader (abfd)->e_flags);
1732
1733 switch (elf_elfheader (abfd)->e_flags & EF_V850_ARCH)
1734 {
1735 default:
1736 case E_V850_ARCH: fprintf (file, ": v850 architecture"); break;
1737 /* start-sanitize-v850e */
1738 case E_V850E_ARCH: fprintf (file, ": v850e architecture"); break;
1739 case E_V850EQ_ARCH: fprintf (file, ": v850eq architecture"); break;
1740 /* end-sanitize-v850e */
1741 }
1742
1743 fputc ('\n', file);
1744
1745 return true;
1746 }
1747 \f
1748 #define TARGET_LITTLE_SYM bfd_elf32_v850_vec
1749 #define TARGET_LITTLE_NAME "elf32-v850"
1750 #define ELF_ARCH bfd_arch_v850
1751 #define ELF_MACHINE_CODE EM_CYGNUS_V850
1752 #define ELF_MAXPAGESIZE 0x1000
1753
1754 #define elf_info_to_howto 0
1755 #define elf_info_to_howto_rel v850_elf_info_to_howto_rel
1756 #define elf_backend_check_relocs v850_elf_check_relocs
1757 #define elf_backend_relocate_section v850_elf_relocate_section
1758 #define elf_backend_object_p v850_elf_object_p
1759 #define elf_backend_final_write_processing v850_elf_final_write_processing
1760 #define bfd_elf32_bfd_is_local_label_name v850_elf_is_local_label_name
1761 #define bfd_elf32_bfd_reloc_type_lookup v850_elf_reloc_type_lookup
1762 #define bfd_elf32_bfd_copy_private_bfd_data v850_elf_copy_private_bfd_data
1763 #define bfd_elf32_bfd_merge_private_bfd_data v850_elf_merge_private_bfd_data
1764 #define bfd_elf32_bfd_set_private_flags v850_elf_set_private_flags
1765 #define bfd_elf32_bfd_print_private_bfd_data v850_elf_print_private_bfd_data
1766
1767 #define elf_symbol_leading_char '_'
1768
1769 #include "elf32-target.h"
GDB Binutils - Deliverables
This page took 0.072588 seconds and 5 git commands to generate.