* elf.c (map_sections_to_segments): Even if we are not demand
[deliverable/binutils-gdb.git] / bfd / elf32-v850.c
CommitLineData
01b49cb3 1/* V850-specific support for 32-bit ELF
de224d6a 2 Copyright (C) 1996, 1997 Free Software Foundation, Inc.
01b49cb3
C
3
4This file is part of BFD, the Binary File Descriptor library.
5
6This program is free software; you can redistribute it and/or modify
7it under the terms of the GNU General Public License as published by
8the Free Software Foundation; either version 2 of the License, or
9(at your option) any later version.
10
11This program is distributed in the hope that it will be useful,
12but WITHOUT ANY WARRANTY; without even the implied warranty of
13MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14GNU General Public License for more details.
15
16You should have received a copy of the GNU General Public License
17along with this program; if not, write to the Free Software
18Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
19
90ffe48b
JL
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
01b49cb3
C
26#include "bfd.h"
27#include "sysdep.h"
725b96f5 28#include "bfdlink.h"
01b49cb3
C
29#include "libbfd.h"
30#include "elf-bfd.h"
de224d6a 31#include "elf/v850.h"
01b49cb3 32
de224d6a 33static reloc_howto_type *v850_elf_reloc_type_lookup
01b49cb3 34 PARAMS ((bfd *abfd, bfd_reloc_code_real_type code));
de224d6a 35static void v850_elf_info_to_howto_rel
01b49cb3 36 PARAMS ((bfd *, arelent *, Elf32_Internal_Rel *));
de224d6a 37static bfd_reloc_status_type v850_elf_reloc
e73b6ae6 38 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
8988d935 39static boolean v850_elf_is_local_label_name PARAMS ((bfd *, const char *));
de224d6a
MM
40static 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 **));
01b49cb3
C
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
def31039
NC
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. */
de224d6a 54static reloc_howto_type v850_elf_howto_table[] =
01b49cb3
C
55{
56 /* This reloc does nothing. */
de224d6a
MM
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 */
01b49cb3
C
70
71 /* A PC relative 9 bit branch. */
de224d6a
MM
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 */
01b49cb3
C
85
86 /* A PC relative 22 bit branch. */
de224d6a
MM
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 */
01b49cb3
C
100
101 /* High 16 bits of symbol value. */
de224d6a
MM
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 */
01b49cb3
C
115
116 /* High 16 bits of symbol value. */
de224d6a
MM
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 */
01b49cb3
C
130
131 /* Low 16 bits of symbol value. */
de224d6a
MM
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 */
8988d935 139 v850_elf_reloc, /* special_function */
de224d6a
MM
140 "R_V850_LO16", /* name */
141 true, /* partial_inplace */
142 0xffff, /* src_mask */
143 0xffff, /* dst_mask */
144 false), /* pcrel_offset */
237b5c4c
JL
145
146 /* Simple 32bit reloc. */
de224d6a
MM
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 */
237b5c4c
JL
160
161 /* Simple 16bit reloc. */
de224d6a
MM
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 */
afaed5e9
MM
175
176 /* Simple 8bit reloc. */
de224d6a
MM
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 */
b6d08fce 190
def31039
NC
191 /* 16 bit offset from the short data area pointer. */
192 HOWTO (R_V850_SDA_16_16_OFFSET, /* type */
de224d6a
MM
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 */
8988d935 199 v850_elf_reloc, /* special_function */
def31039
NC
200 "R_V850_SDA_16_16_OFFSET", /* name */
201 false, /* partial_inplace */
de224d6a
MM
202 0xffff, /* src_mask */
203 0xffff, /* dst_mask */
204 false), /* pcrel_offset */
b6d08fce 205
def31039
NC
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 */
de224d6a
MM
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 */
8988d935 229 v850_elf_reloc, /* special_function */
def31039
NC
230 "R_V850_ZDA_16_16_OFFSET", /* name */
231 false, /* partial_inplace */
de224d6a
MM
232 0xffff, /* src_mask */
233 0xffff, /* dst_mask */
234 false), /* pcrel_offset */
b6d08fce 235
def31039
NC
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
5bb28764
NC
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
def31039
NC
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 */
de224d6a
MM
345 0, /* rightshift */
346 2, /* size (0 = byte, 1 = short, 2 = long) */
def31039 347 16, /* bitsize */
de224d6a
MM
348 false, /* pc_relative */
349 0, /* bitpos */
350 complain_overflow_dont, /* complain_on_overflow */
8988d935 351 v850_elf_reloc, /* special_function */
def31039
NC
352 "R_V850_SDA_16_16_SPLIT_OFFSET",/* name */
353 false, /* partial_inplace */
354 0xfffe0020, /* src_mask */
355 0xfffe0020, /* dst_mask */
de224d6a 356 false), /* pcrel_offset */
b6d08fce 357
def31039
NC
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
9420c20a
NC
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
def31039 403/* end-sanitize-v850e */
01b49cb3
C
404};
405
406/* Map BFD reloc types to V850 ELF reloc types. */
407
de224d6a 408struct v850_elf_reloc_map
01b49cb3
C
409{
410 unsigned char bfd_reloc_val;
411 unsigned char elf_reloc_val;
412};
413
de224d6a 414static const struct v850_elf_reloc_map v850_elf_reloc_map[] =
01b49cb3 415{
def31039
NC
416 { BFD_RELOC_NONE, R_V850_NONE },
417 { BFD_RELOC_V850_9_PCREL, R_V850_9_PCREL },
def31039
NC
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 },
9420c20a
NC
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 },
5bb28764 432 { BFD_RELOC_V850_TDA_16_16_OFFSET, R_V850_TDA_16_16_OFFSET },
def31039 433/* start-sanitize-v850e */
9420c20a
NC
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 },
def31039
NC
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 },
9420c20a
NC
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 },
def31039 440/* end-sanitize-v850e */
01b49cb3
C
441};
442
de224d6a
MM
443\f
444/* Map a bfd relocation into the appropriate howto structure */
01b49cb3 445static reloc_howto_type *
de224d6a 446v850_elf_reloc_type_lookup (abfd, code)
9420c20a
NC
447 bfd * abfd;
448 bfd_reloc_code_real_type code;
01b49cb3
C
449{
450 unsigned int i;
451
452 for (i = 0;
de224d6a 453 i < sizeof (v850_elf_reloc_map) / sizeof (struct v850_elf_reloc_map);
01b49cb3
C
454 i++)
455 {
de224d6a 456 if (v850_elf_reloc_map[i].bfd_reloc_val == code)
def31039
NC
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 }
01b49cb3
C
462 }
463
464 return NULL;
465}
466
de224d6a 467\f
01b49cb3 468/* Set the howto pointer for an V850 ELF reloc. */
01b49cb3 469static void
de224d6a 470v850_elf_info_to_howto_rel (abfd, cache_ptr, dst)
9420c20a
NC
471 bfd * abfd;
472 arelent * cache_ptr;
473 Elf32_Internal_Rel * dst;
01b49cb3
C
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);
de224d6a
MM
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
487static boolean
488v850_elf_check_relocs (abfd, info, sec, relocs)
9420c20a
NC
489 bfd * abfd;
490 struct bfd_link_info * info;
491 asection * sec;
492 const Elf_Internal_Rela * relocs;
de224d6a
MM
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:
9420c20a
NC
544/* start-sanitize-v850e */
545 case R_V850_CALLT_6_7_OFFSET:
546 case R_V850_CALLT_16_16_OFFSET:
547/* end-sanitize-v850e */
de224d6a
MM
548 break;
549
def31039
NC
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:
de224d6a
MM
555 other = V850_OTHER_SDA;
556 common = ".scommon";
557 goto small_data_common;
def31039
NC
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:
de224d6a
MM
564 other = V850_OTHER_ZDA;
565 common = ".zcommon";
566 goto small_data_common;
def31039
NC
567
568/* start-sanitize-v850e */
569 case R_V850_TDA_4_5_OFFSET:
570 case R_V850_TDA_4_4_OFFSET:
2cf9a0d0 571/* end-sanitize-v850e */
def31039
NC
572 case R_V850_TDA_6_8_OFFSET:
573 case R_V850_TDA_7_8_OFFSET:
574 case R_V850_TDA_7_7_OFFSET:
5bb28764 575 case R_V850_TDA_16_16_OFFSET:
de224d6a
MM
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 {
55e6f0bf
NC
589 const char * msg;
590 static char buff[100]; /* XXX */
591
de224d6a
MM
592 switch (h->other & V850_OTHER_MASK)
593 {
594 default:
55e6f0bf 595 msg = "cannot occupy in multiple small data regions";
de224d6a
MM
596 break;
597 case V850_OTHER_SDA | V850_OTHER_ZDA | V850_OTHER_TDA:
55e6f0bf 598 msg = "can only be in one of the small, zero, and tiny data regions";
de224d6a
MM
599 break;
600 case V850_OTHER_SDA | V850_OTHER_ZDA:
55e6f0bf 601 msg = "cannot be in both small and zero data regions simultaneously";
de224d6a
MM
602 break;
603 case V850_OTHER_SDA | V850_OTHER_TDA:
55e6f0bf 604 msg = "cannot be in both small and tiny data regions simultaneously";
de224d6a
MM
605 break;
606 case V850_OTHER_ZDA | V850_OTHER_TDA:
55e6f0bf 607 msg = "cannot be in both zero and tiny data regions simultaneously";
de224d6a
MM
608 break;
609 }
610
55e6f0bf
NC
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);
de224d6a
MM
614
615 bfd_set_error (bfd_error_bad_value);
616 h->other |= V850_OTHER_ERROR;
617 ret = false;
618 }
619 }
620
8988d935 621 if (h && h->root.type == bfd_link_hash_common
de224d6a
MM
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;
01b49cb3
C
640}
641
de224d6a 642\f
def31039 643/* Insert the addend into the instruction. */
e73b6ae6 644static bfd_reloc_status_type
de224d6a 645v850_elf_reloc (abfd, reloc, symbol, data, isection, obfd, err)
def31039
NC
646 bfd * abfd;
647 arelent * reloc;
648 asymbol * symbol;
649 PTR data;
650 asection * isection;
651 bfd * obfd;
652 char ** err;
e73b6ae6 653{
5ddf2a9e
NC
654 long relocation;
655 long insn;
656
657
def31039
NC
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. */
e73b6ae6
JL
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 }
def31039 671#if 0
e73b6ae6
JL
672 else if (obfd != NULL)
673 {
674 return bfd_reloc_continue;
675 }
def31039
NC
676#endif
677
05f1baaa
JL
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
e73b6ae6 684 /* We handle final linking of some relocs ourselves. */
8988d935 685
5ddf2a9e
NC
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. */
5ddf2a9e
NC
765 bfd_put_16 (abfd, relocation, (bfd_byte *)data + reloc->address);
766 return bfd_reloc_ok;
def31039 767
5ddf2a9e
NC
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:
5bb28764 774 case R_V850_TDA_16_16_OFFSET:
5ddf2a9e
NC
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
def31039 834/* start-sanitize-v850e */
5ddf2a9e
NC
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;
9420c20a
NC
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
def31039 892/* end-sanitize-v850e */
e73b6ae6
JL
893 }
894
895 return bfd_reloc_continue;
896}
897
de224d6a 898\f
1336da39
SG
899/*ARGSUSED*/
900static boolean
8988d935 901v850_elf_is_local_label_name (abfd, name)
9420c20a
NC
902 bfd * abfd;
903 const char * name;
1336da39 904{
8988d935
NC
905 return ((name[0] == '.' && (name[1] == 'L' || name[1] == '.'))
906 || (name[0] == '_' && name[1] == '.' && name[2] == 'L'
907 && name[3] == '_'));
1336da39
SG
908}
909
de224d6a 910\f
725b96f5
JL
911/* Perform a relocation as part of a final link. */
912static bfd_reloc_status_type
de224d6a 913v850_elf_final_link_relocate (howto, input_bfd, output_bfd,
725b96f5
JL
914 input_section, contents, offset, value,
915 addend, info, sym_sec, is_local)
def31039
NC
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;
725b96f5 927{
def31039
NC
928 unsigned long insn;
929 unsigned long r_type = howto->type;
930 bfd_byte * hit_data = contents + offset;
725b96f5
JL
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);
c322f1b5 946 insn &= 0x078f;
725b96f5
JL
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);
c322f1b5 963 insn &= 0x1ffc0;
725b96f5
JL
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:
90ffe48b 969 value += (short)bfd_get_16 (input_bfd, hit_data);
725b96f5
JL
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:
90ffe48b 979 value += (short)bfd_get_16 (input_bfd, hit_data);
725b96f5
JL
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:
90ffe48b 989 value += (short)bfd_get_16 (input_bfd, hit_data);
725b96f5
JL
990 value &= 0xffff;
991
992 bfd_put_16 (input_bfd, value, hit_data);
993 return bfd_reloc_ok;
994
995 case R_V850_16:
def31039 996 value += (short) bfd_get_16 (input_bfd, hit_data);
725b96f5 997
def31039
NC
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:
db1fa6ab
NC
1005 if (sym_sec == NULL)
1006 return bfd_reloc_undefined;
1007
def31039
NC
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)
725b96f5
JL
1012 return bfd_reloc_overflow;
1013
1014 bfd_put_16 (input_bfd, value, hit_data);
1015 return bfd_reloc_ok;
1016
def31039 1017 case R_V850_ZDA_15_16_OFFSET:
db1fa6ab
NC
1018 if (sym_sec == NULL)
1019 return bfd_reloc_undefined;
1020
def31039
NC
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
725b96f5
JL
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:
90ffe48b 1041 value += (char)bfd_get_8 (input_bfd, hit_data);
725b96f5
JL
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
def31039 1049 case R_V850_SDA_16_16_OFFSET:
db1fa6ab
NC
1050 if (sym_sec == NULL)
1051 return bfd_reloc_undefined;
1052
725b96f5 1053 {
def31039
NC
1054 unsigned long gp;
1055 struct bfd_link_hash_entry * h;
725b96f5
JL
1056
1057 /* Get the value of __gp. */
def31039 1058 h = bfd_link_hash_lookup (info->hash, "__gp", false, false, true);
725b96f5
JL
1059 if (h == (struct bfd_link_hash_entry *) NULL
1060 || h->type != bfd_link_hash_defined)
def31039 1061 return bfd_reloc_other;
725b96f5
JL
1062
1063 gp = (h->u.def.value
1064 + h->u.def.section->output_section->vma
1065 + h->u.def.section->output_offset);
def31039
NC
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);
725b96f5
JL
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
def31039 1078 case R_V850_SDA_15_16_OFFSET:
db1fa6ab
NC
1079 if (sym_sec == NULL)
1080 return bfd_reloc_undefined;
1081
725b96f5 1082 {
def31039
NC
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);
725b96f5 1098
def31039
NC
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
c322f1b5 1118 insn = bfd_get_16 (input_bfd, hit_data);
725b96f5
JL
1119
1120 /* Get the value of __ep. */
def31039 1121 h = bfd_link_hash_lookup (info->hash, "__ep", false, false, true);
725b96f5
JL
1122 if (h == (struct bfd_link_hash_entry *) NULL
1123 || h->type != bfd_link_hash_defined)
def31039 1124 return bfd_reloc_continue; /* Actually this indicates that __ep could not be found. */
725b96f5
JL
1125
1126 ep = (h->u.def.value
1127 + h->u.def.section->output_section->vma
1128 + h->u.def.section->output_offset);
def31039 1129
725b96f5 1130 value -= ep;
def31039
NC
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);
725b96f5 1141
def31039
NC
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);
725b96f5 1152
def31039
NC
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. */
c322f1b5 1158
def31039
NC
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);
c322f1b5 1182
def31039
NC
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. */
c322f1b5 1188
def31039
NC
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
5bb28764
NC
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
def31039
NC
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. */
c322f1b5 1241
def31039
NC
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);
c322f1b5 1248
def31039
NC
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. */
c322f1b5 1270
def31039
NC
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);
c322f1b5 1277
def31039
NC
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:
db1fa6ab
NC
1290 if (sym_sec == NULL)
1291 return bfd_reloc_undefined;
1292
def31039
NC
1293 {
1294 unsigned long gp;
1295 struct bfd_link_hash_entry * h;
c322f1b5 1296
def31039
NC
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;
c322f1b5 1302
def31039
NC
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);
c322f1b5 1309
def31039
NC
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;
725b96f5 1324 }
def31039
NC
1325
1326 case R_V850_ZDA_16_16_SPLIT_OFFSET:
db1fa6ab
NC
1327 if (sym_sec == NULL)
1328 return bfd_reloc_undefined;
1329
def31039
NC
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
9420c20a
NC
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 }
def31039 1374
9420c20a
NC
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 */
725b96f5
JL
1405
1406 case R_V850_NONE:
8988d935
NC
1407 return bfd_reloc_ok;
1408
725b96f5 1409 default:
8988d935 1410 return bfd_reloc_notsupported;
725b96f5 1411 }
725b96f5
JL
1412}
1413
de224d6a 1414\f
725b96f5 1415/* Relocate an V850 ELF section. */
725b96f5
JL
1416static boolean
1417v850_elf_relocate_section (output_bfd, info, input_bfd, input_section,
de224d6a 1418 contents, relocs, local_syms, local_sections)
def31039
NC
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;
725b96f5 1427{
def31039
NC
1428 Elf_Internal_Shdr * symtab_hdr;
1429 struct elf_link_hash_entry ** sym_hashes;
1430 Elf_Internal_Rela * rel;
1431 Elf_Internal_Rela * relend;
725b96f5 1432
def31039 1433 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
725b96f5
JL
1434 sym_hashes = elf_sym_hashes (input_bfd);
1435
def31039 1436 rel = relocs;
725b96f5
JL
1437 relend = relocs + input_section->reloc_count;
1438 for (; rel < relend; rel++)
1439 {
def31039
NC
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;
725b96f5 1448
8988d935 1449 r_symndx = ELF32_R_SYM (rel->r_info);
def31039
NC
1450 r_type = ELF32_R_TYPE (rel->r_info);
1451 howto = v850_elf_howto_table + r_type;
8988d935 1452
725b96f5
JL
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
725b96f5
JL
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);
def31039
NC
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;
1488fprintf (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
725b96f5
JL
1492 }
1493 else
1494 {
1495 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
def31039 1496
725b96f5
JL
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;
def31039 1500
725b96f5
JL
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. */
de224d6a
MM
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);
725b96f5
JL
1528
1529 if (r != bfd_reloc_ok)
1530 {
def31039
NC
1531 const char * name;
1532 const char * msg = (const char *)0;
8988d935
NC
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
725b96f5
JL
1544 switch (r)
1545 {
725b96f5 1546 case bfd_reloc_overflow:
8988d935
NC
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:
def31039 1554 fprintf (stderr, "undef2 %s\n", name );
8988d935
NC
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:
def31039
NC
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";
8988d935
NC
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;
725b96f5
JL
1590 break;
1591 }
1592 }
1593 }
1594
1595 return true;
1596}
01b49cb3 1597
8988d935 1598/* Set the right machine number. */
8988d935
NC
1599static boolean
1600v850_elf_object_p (abfd)
1601 bfd *abfd;
1602{
8bef8c30 1603 switch (elf_elfheader (abfd)->e_flags & EF_V850_ARCH)
8988d935
NC
1604 {
1605 default:
8bef8c30 1606 case E_V850_ARCH: (void) bfd_default_set_arch_mach (abfd, bfd_arch_v850, 0); break;
8988d935 1607/* start-sanitize-v850e */
8bef8c30 1608 case E_V850E_ARCH: (void) bfd_default_set_arch_mach (abfd, bfd_arch_v850, bfd_mach_v850e); break;
8bef8c30 1609 case E_V850EQ_ARCH: (void) bfd_default_set_arch_mach (abfd, bfd_arch_v850, bfd_mach_v850eq); break;
15d82b26 1610/* end-sanitize-v850e */
8988d935
NC
1611 }
1612}
1613
8bef8c30
NC
1614/* Store the machine number in the flags field. */
1615void
1616v850_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;
8988d935 1626/* start-sanitize-v850e */
15d82b26 1627 case bfd_mach_v850e: val = E_V850E_ARCH; break;
8bef8c30 1628 case bfd_mach_v850eq: val = E_V850EQ_ARCH; break;
15d82b26 1629/* end-sanitize-v850e */
8bef8c30
NC
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. */
1637boolean
1638v850_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 */
1651boolean
1652v850_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. */
1672boolean
1673v850_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. */
8988d935 1702
8bef8c30
NC
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));
15d82b26 1710#if 0
8bef8c30
NC
1711 bfd_set_error (bfd_error_bad_value);
1712 return false;
15d82b26
NC
1713#else
1714 return true;
1715#endif
8bef8c30
NC
1716 }
1717
1718 return true;
1719}
1720/* Display the flags field */
1721
1722static boolean
1723v850_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:
98ab32a5 1736 case E_V850_ARCH: fprintf (file, ": v850 architecture"); break;
8bef8c30 1737/* start-sanitize-v850e */
15d82b26 1738 case E_V850E_ARCH: fprintf (file, ": v850e architecture"); break;
98ab32a5 1739 case E_V850EQ_ARCH: fprintf (file, ": v850eq architecture"); break;
15d82b26 1740/* end-sanitize-v850e */
8bef8c30
NC
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
de224d6a
MM
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
8988d935 1758#define elf_backend_object_p v850_elf_object_p
8bef8c30 1759#define elf_backend_final_write_processing v850_elf_final_write_processing
8988d935 1760#define bfd_elf32_bfd_is_local_label_name v850_elf_is_local_label_name
de224d6a 1761#define bfd_elf32_bfd_reloc_type_lookup v850_elf_reloc_type_lookup
8bef8c30
NC
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
de224d6a
MM
1766
1767#define elf_symbol_leading_char '_'
1336da39 1768
01b49cb3 1769#include "elf32-target.h"
This page took 0.129866 seconds and 4 git commands to generate.