projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
opcodes/
[deliverable/binutils-gdb.git] / bfd / elf32-bfin.c
CommitLineData
3b55e94a 1/* ADI Blackfin BFD support for 32-bit ELF.
ab96bf03 2 Copyright 2005, 2006, 2007 Free Software Foundation, Inc.
0f64bb02
CM		 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
cd123cb7 8 the Free Software Foundation; either version 3 of the License, or
0f64bb02
CM		 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
cd123cb7
NC		 18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
19 MA 02110-1301, USA. */
0f64bb02 20
0f64bb02 21#include "sysdep.h"
3db64b00 22#include "bfd.h"
0f64bb02
CM		 23#include "libbfd.h"
24#include "elf-bfd.h"
25#include "elf/bfin.h"
48d502e1
BS		 26#include "elf/dwarf2.h"
27#include "hashtab.h"
0f64bb02 28
0f64bb02
CM		 29/* FUNCTION : bfin_pltpc_reloc
30 ABSTRACT : TODO : figure out how to handle pltpc relocs. */
31static bfd_reloc_status_type
32bfin_pltpc_reloc (
33 bfd *abfd ATTRIBUTE_UNUSED,
34 arelent *reloc_entry ATTRIBUTE_UNUSED,
35 asymbol *symbol ATTRIBUTE_UNUSED,
36 PTR data ATTRIBUTE_UNUSED,
37 asection *input_section ATTRIBUTE_UNUSED,
38 bfd *output_bfd ATTRIBUTE_UNUSED,
3b55e94a 39 char **error_message ATTRIBUTE_UNUSED)
0f64bb02
CM		 40{
41 bfd_reloc_status_type flag = bfd_reloc_ok;
3b55e94a 42 return flag;
0f64bb02
CM		 43}
44\f
45
46static bfd_reloc_status_type
47bfin_pcrel24_reloc (bfd *abfd,
48 arelent *reloc_entry,
49 asymbol *symbol,
50 PTR data,
51 asection *input_section,
52 bfd *output_bfd,
53 char **error_message ATTRIBUTE_UNUSED)
54{
55 bfd_vma relocation;
56 bfd_size_type addr = reloc_entry->address;
57 bfd_vma output_base = 0;
58 reloc_howto_type *howto = reloc_entry->howto;
59 asection *output_section;
60 bfd_boolean relocatable = (output_bfd != NULL);
61
62 if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
63 return bfd_reloc_outofrange;
64
3b55e94a
BS		 65 if (bfd_is_und_section (symbol->section)
66 && (symbol->flags & BSF_WEAK) == 0
67 && !relocatable)
68 return bfd_reloc_undefined;
69
70 if (bfd_is_com_section (symbol->section))
71 relocation = 0;
0f64bb02 72 else
3b55e94a 73 relocation = symbol->value;
0f64bb02 74
3b55e94a
BS		 75 output_section = symbol->section->output_section;
76
77 if (relocatable)
78 output_base = 0;
79 else
80 output_base = output_section->vma;
81
82 if (!relocatable || !strcmp (symbol->name, symbol->section->name))
83 relocation += output_base + symbol->section->output_offset;
0f64bb02 84
3b55e94a
BS		 85 if (!relocatable && !strcmp (symbol->name, symbol->section->name))
86 relocation += reloc_entry->addend;
0f64bb02 87
0f64bb02
CM		 88 relocation -= input_section->output_section->vma + input_section->output_offset;
89 relocation -= reloc_entry->address;
90
91 if (howto->complain_on_overflow != complain_overflow_dont)
92 {
93 bfd_reloc_status_type status;
3b55e94a
BS		 94 status = bfd_check_overflow (howto->complain_on_overflow,
95 howto->bitsize,
96 howto->rightshift,
97 bfd_arch_bits_per_address(abfd),
98 relocation);
0f64bb02
CM		 99 if (status != bfd_reloc_ok)
100 return status;
101 }
3b55e94a 102
0f64bb02
CM		 103 /* if rightshift is 1 and the number odd, return error. */
104 if (howto->rightshift && (relocation & 0x01))
105 {
106 fprintf(stderr, "relocation should be even number\n");
107 return bfd_reloc_overflow;
108 }
109
110 relocation >>= (bfd_vma) howto->rightshift;
111 /* Shift everything up to where it's going to be used. */
112
113 relocation <<= (bfd_vma) howto->bitpos;
114
115 if (relocatable)
116 {
117 reloc_entry->address += input_section->output_offset;
118 reloc_entry->addend += symbol->section->output_offset;
119 }
120
121 {
122 short x;
123
124 /* We are getting reloc_entry->address 2 byte off from
3b55e94a
BS		 125 the start of instruction. Assuming absolute postion
126 of the reloc data. But, following code had been written assuming
127 reloc address is starting at begining of instruction.
128 To compensate that I have increased the value of
129 relocation by 1 (effectively 2) and used the addr -2 instead of addr. */
0f64bb02
CM		 130
131 relocation += 1;
132 x = bfd_get_16 (abfd, (bfd_byte *) data + addr - 2);
133 x = (x & 0xff00) | ((relocation >> 16) & 0xff);
134 bfd_put_16 (abfd, x, (unsigned char *) data + addr - 2);
135
136 x = bfd_get_16 (abfd, (bfd_byte *) data + addr);
137 x = relocation & 0xFFFF;
138 bfd_put_16 (abfd, x, (unsigned char *) data + addr );
139 }
140 return bfd_reloc_ok;
141}
142
143static bfd_reloc_status_type
3b55e94a
BS		 144bfin_imm16_reloc (bfd *abfd,
145 arelent *reloc_entry,
146 asymbol *symbol,
147 PTR data,
148 asection *input_section,
149 bfd *output_bfd,
150 char **error_message ATTRIBUTE_UNUSED)
0f64bb02 151{
3b55e94a
BS		 152 bfd_vma relocation, x;
153 bfd_size_type reloc_addr = reloc_entry->address;
0f64bb02 154 bfd_vma output_base = 0;
3b55e94a 155 reloc_howto_type *howto = reloc_entry->howto;
0f64bb02
CM		 156 asection *output_section;
157 bfd_boolean relocatable = (output_bfd != NULL);
158
3b55e94a
BS		 159 /* Is the address of the relocation really within the section? */
160 if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
161 return bfd_reloc_outofrange;
162
0f64bb02
CM		 163 if (bfd_is_und_section (symbol->section)
164 && (symbol->flags & BSF_WEAK) == 0
165 && !relocatable)
166 return bfd_reloc_undefined;
167
0f64bb02 168 output_section = symbol->section->output_section;
3b55e94a 169 relocation = symbol->value;
0f64bb02
CM		 170
171 /* Convert input-section-relative symbol value to absolute. */
172 if (relocatable)
173 output_base = 0;
174 else
175 output_base = output_section->vma;
176
3b55e94a 177 if (!relocatable || !strcmp (symbol->name, symbol->section->name))
0f64bb02
CM		 178 relocation += output_base + symbol->section->output_offset;
179
180 /* Add in supplied addend. */
181 relocation += reloc_entry->addend;
182
183 if (relocatable)
184 {
185 reloc_entry->address += input_section->output_offset;
186 reloc_entry->addend += symbol->section->output_offset;
187 }
0f64bb02
CM		 188 else
189 {
190 reloc_entry->addend = 0;
191 }
192
193 if (howto->complain_on_overflow != complain_overflow_dont)
194 {
195 bfd_reloc_status_type flag;
196 flag = bfd_check_overflow (howto->complain_on_overflow,
3b55e94a
BS		 197 howto->bitsize,
198 howto->rightshift,
199 bfd_arch_bits_per_address(abfd),
200 relocation);
0f64bb02 201 if (flag != bfd_reloc_ok)
3b55e94a 202 return flag;
0f64bb02
CM		 203 }
204
0f64bb02
CM		 205 /* Here the variable relocation holds the final address of the
206 symbol we are relocating against, plus any addend. */
207
0f64bb02
CM		 208 relocation >>= (bfd_vma) howto->rightshift;
209 x = relocation;
210 bfd_put_16 (abfd, x, (unsigned char *) data + reloc_addr);
211 return bfd_reloc_ok;
212}
213
214
215static bfd_reloc_status_type
216bfin_byte4_reloc (bfd *abfd,
217 arelent *reloc_entry,
218 asymbol *symbol,
219 PTR data,
220 asection *input_section,
221 bfd *output_bfd,
3b55e94a 222 char **error_message ATTRIBUTE_UNUSED)
0f64bb02
CM		 223{
224 bfd_vma relocation, x;
225 bfd_size_type addr = reloc_entry->address;
226 bfd_vma output_base = 0;
227 asection *output_section;
228 bfd_boolean relocatable = (output_bfd != NULL);
229
230 /* Is the address of the relocation really within the section? */
231 if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
232 return bfd_reloc_outofrange;
233
3b55e94a
BS		 234 if (bfd_is_und_section (symbol->section)
235 && (symbol->flags & BSF_WEAK) == 0
236 && !relocatable)
237 return bfd_reloc_undefined;
0f64bb02 238
3b55e94a
BS		 239 output_section = symbol->section->output_section;
240 relocation = symbol->value;
241 /* Convert input-section-relative symbol value to absolute. */
242 if (relocatable)
243 output_base = 0;
0f64bb02 244 else
3b55e94a
BS		 245 output_base = output_section->vma;
246
247 if ((symbol->name
248 && symbol->section->name
249 && !strcmp (symbol->name, symbol->section->name))
250 || !relocatable)
0f64bb02 251 {
3b55e94a 252 relocation += output_base + symbol->section->output_offset;
0f64bb02
CM		 253 }
254
3b55e94a
BS		 255 relocation += reloc_entry->addend;
256
0f64bb02 257 if (relocatable)
3b55e94a 258 {
0f64bb02
CM		 259 /* This output will be relocatable ... like ld -r. */
260 reloc_entry->address += input_section->output_offset;
261 reloc_entry->addend += symbol->section->output_offset;
262 }
263 else
264 {
265 reloc_entry->addend = 0;
266 }
267
268 /* Here the variable relocation holds the final address of the
269 symbol we are relocating against, plus any addend. */
270 x = relocation & 0xFFFF0000;
271 x >>=16;
272 bfd_put_16 (abfd, x, (unsigned char *) data + addr + 2);
3b55e94a 273
0f64bb02
CM		 274 x = relocation & 0x0000FFFF;
275 bfd_put_16 (abfd, x, (unsigned char *) data + addr);
276 return bfd_reloc_ok;
277}
278
279/* bfin_bfd_reloc handles the blackfin arithmetic relocations.
280 Use this instead of bfd_perform_relocation. */
281static bfd_reloc_status_type
282bfin_bfd_reloc (bfd *abfd,
283 arelent *reloc_entry,
284 asymbol *symbol,
285 PTR data,
286 asection *input_section,
287 bfd *output_bfd,
288 char **error_message ATTRIBUTE_UNUSED)
289{
290 bfd_vma relocation;
291 bfd_size_type addr = reloc_entry->address;
292 bfd_vma output_base = 0;
293 reloc_howto_type *howto = reloc_entry->howto;
294 asection *output_section;
295 bfd_boolean relocatable = (output_bfd != NULL);
296
297 /* Is the address of the relocation really within the section? */
298 if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
299 return bfd_reloc_outofrange;
300
3b55e94a
BS		 301 if (bfd_is_und_section (symbol->section)
302 && (symbol->flags & BSF_WEAK) == 0
303 && !relocatable)
304 return bfd_reloc_undefined;
305
306 /* Get symbol value. (Common symbols are special.) */
307 if (bfd_is_com_section (symbol->section))
308 relocation = 0;
0f64bb02 309 else
3b55e94a
BS		 310 relocation = symbol->value;
311
312 output_section = symbol->section->output_section;
313
314 /* Convert input-section-relative symbol value to absolute. */
315 if (relocatable)
316 output_base = 0;
317 else
318 output_base = output_section->vma;
319
320 if (!relocatable || !strcmp (symbol->name, symbol->section->name))
321 relocation += output_base + symbol->section->output_offset;
322
323 if (!relocatable && !strcmp (symbol->name, symbol->section->name))
0f64bb02 324 {
3b55e94a
BS		 325 /* Add in supplied addend. */
326 relocation += reloc_entry->addend;
0f64bb02 327 }
3b55e94a 328
0f64bb02
CM		 329 /* Here the variable relocation holds the final address of the
330 symbol we are relocating against, plus any addend. */
331
332 if (howto->pc_relative == TRUE)
333 {
334 relocation -= input_section->output_section->vma + input_section->output_offset;
335
336 if (howto->pcrel_offset == TRUE)
337 relocation -= reloc_entry->address;
338 }
339
340 if (relocatable)
341 {
342 reloc_entry->address += input_section->output_offset;
343 reloc_entry->addend += symbol->section->output_offset;
344 }
345
346 if (howto->complain_on_overflow != complain_overflow_dont)
347 {
348 bfd_reloc_status_type status;
349
3b55e94a 350 status = bfd_check_overflow (howto->complain_on_overflow,
0f64bb02 351 howto->bitsize,
3b55e94a 352 howto->rightshift,
0f64bb02
CM		 353 bfd_arch_bits_per_address(abfd),
354 relocation);
355 if (status != bfd_reloc_ok)
356 return status;
357 }
3b55e94a 358
0f64bb02
CM		 359 /* If rightshift is 1 and the number odd, return error. */
360 if (howto->rightshift && (relocation & 0x01))
361 {
362 fprintf(stderr, "relocation should be even number\n");
363 return bfd_reloc_overflow;
364 }
365
366 relocation >>= (bfd_vma) howto->rightshift;
367
368 /* Shift everything up to where it's going to be used. */
369
370 relocation <<= (bfd_vma) howto->bitpos;
371
3b55e94a 372#define DOIT(x) \
0f64bb02
CM		 373 x = ( (x & ~howto->dst_mask) | (relocation & howto->dst_mask))
374
375 /* handle 8 and 16 bit relocations here. */
376 switch (howto->size)
377 {
378 case 0:
379 {
380 char x = bfd_get_8 (abfd, (char *) data + addr);
381 DOIT (x);
382 bfd_put_8 (abfd, x, (unsigned char *) data + addr);
383 }
384 break;
385
386 case 1:
387 {
388 unsigned short x = bfd_get_16 (abfd, (bfd_byte *) data + addr);
389 DOIT (x);
390 bfd_put_16 (abfd, (bfd_vma) x, (unsigned char *) data + addr);
391 }
392 break;
393
394 default:
395 return bfd_reloc_other;
396 }
397
3b55e94a 398 return bfd_reloc_ok;
0f64bb02
CM		 399}
400
0f64bb02
CM		 401/* HOWTO Table for blackfin.
402 Blackfin relocations are fairly complicated.
403 Some of the salient features are
404 a. Even numbered offsets. A number of (not all) relocations are
405 even numbered. This means that the rightmost bit is not stored.
406 Needs to right shift by 1 and check to see if value is not odd
407 b. A relocation can be an expression. An expression takes on
408 a variety of relocations arranged in a stack.
409 As a result, we cannot use the standard generic function as special
410 function. We will have our own, which is very similar to the standard
411 generic function except that it understands how to get the value from
412 the relocation stack. . */
413
414#define BFIN_RELOC_MIN 0
48d502e1 415#define BFIN_RELOC_MAX 0x21
0f64bb02
CM		 416#define BFIN_GNUEXT_RELOC_MIN 0x40
417#define BFIN_GNUEXT_RELOC_MAX 0x43
418#define BFIN_ARELOC_MIN 0xE0
419#define BFIN_ARELOC_MAX 0xF3
420
421static reloc_howto_type bfin_howto_table [] =
422{
423 /* This reloc does nothing. . */
424 HOWTO (R_unused0, /* type. */
425 0, /* rightshift. */
426 2, /* size (0 = byte, 1 = short, 2 = long). */
427 32, /* bitsize. */
428 FALSE, /* pc_relative. */
429 0, /* bitpos. */
430 complain_overflow_bitfield, /* complain_on_overflow. */
431 bfd_elf_generic_reloc, /* special_function. */
432 "R_unused0", /* name. */
433 FALSE, /* partial_inplace. */
434 0, /* src_mask. */
435 0, /* dst_mask. */
436 FALSE), /* pcrel_offset. */
437
438 HOWTO (R_pcrel5m2, /* type. */
439 1, /* rightshift. */
440 1, /* size (0 = byte, 1 = short, 2 = long).. */
441 4, /* bitsize. */
442 TRUE, /* pc_relative. */
443 0, /* bitpos. */
444 complain_overflow_unsigned, /* complain_on_overflow. */
445 bfin_bfd_reloc, /* special_function. */
446 "R_pcrel5m2", /* name. */
447 FALSE, /* partial_inplace. */
f4707595 448 0, /* src_mask. */
0f64bb02
CM		 449 0x0000000F, /* dst_mask. */
450 FALSE), /* pcrel_offset. */
451
452 HOWTO (R_unused1, /* type. */
453 0, /* rightshift. */
454 2, /* size (0 = byte, 1 = short, 2 = long). */
455 32, /* bitsize. */
456 FALSE, /* pc_relative. */
457 0, /* bitpos. */
458 complain_overflow_bitfield, /* complain_on_overflow. */
459 bfd_elf_generic_reloc, /* special_function. */
460 "R_unused1", /* name. */
461 FALSE, /* partial_inplace. */
462 0, /* src_mask. */
463 0, /* dst_mask. */
464 FALSE), /* pcrel_offset. */
465
466 HOWTO (R_pcrel10, /* type. */
467 1, /* rightshift. */
468 1, /* size (0 = byte, 1 = short, 2 = long). */
469 10, /* bitsize. */
470 TRUE, /* pc_relative. */
471 0, /* bitpos. */
472 complain_overflow_signed, /* complain_on_overflow. */
473 bfin_bfd_reloc, /* special_function. */
474 "R_pcrel10", /* name. */
475 FALSE, /* partial_inplace. */
f4707595 476 0, /* src_mask. */
0f64bb02
CM		 477 0x000003FF, /* dst_mask. */
478 TRUE), /* pcrel_offset. */
3b55e94a 479
0f64bb02
CM		 480 HOWTO (R_pcrel12_jump, /* type. */
481 1, /* rightshift. */
482 /* the offset is actually 13 bit
483 aligned on a word boundary so
484 only 12 bits have to be used.
485 Right shift the rightmost bit.. */
486 1, /* size (0 = byte, 1 = short, 2 = long). */
487 12, /* bitsize. */
488 TRUE, /* pc_relative. */
489 0, /* bitpos. */
490 complain_overflow_signed, /* complain_on_overflow. */
491 bfin_bfd_reloc, /* special_function. */
492 "R_pcrel12_jump", /* name. */
493 FALSE, /* partial_inplace. */
f4707595 494 0, /* src_mask. */
0f64bb02
CM		 495 0x0FFF, /* dst_mask. */
496 TRUE), /* pcrel_offset. */
497
498 HOWTO (R_rimm16, /* type. */
499 0, /* rightshift. */
500 1, /* size (0 = byte, 1 = short, 2 = long). */
501 16, /* bitsize. */
502 FALSE, /* pc_relative. */
503 0, /* bitpos. */
504 complain_overflow_signed, /* complain_on_overflow. */
505 bfin_imm16_reloc, /* special_function. */
506 "R_rimm16", /* name. */
507 FALSE, /* partial_inplace. */
f4707595 508 0, /* src_mask. */
0f64bb02
CM		 509 0x0000FFFF, /* dst_mask. */
510 TRUE), /* pcrel_offset. */
511
512 HOWTO (R_luimm16, /* type. */
513 0, /* rightshift. */
514 1, /* size (0 = byte, 1 = short, 2 = long). */
515 16, /* bitsize. */
516 FALSE, /* pc_relative. */
517 0, /* bitpos. */
518 complain_overflow_dont, /* complain_on_overflow. */
519 bfin_imm16_reloc, /* special_function. */
520 "R_luimm16", /* name. */
521 FALSE, /* partial_inplace. */
f4707595 522 0, /* src_mask. */
0f64bb02
CM		 523 0x0000FFFF, /* dst_mask. */
524 TRUE), /* pcrel_offset. */
3b55e94a 525
0f64bb02
CM		 526 HOWTO (R_huimm16, /* type. */
527 16, /* rightshift. */
528 1, /* size (0 = byte, 1 = short, 2 = long). */
529 16, /* bitsize. */
530 FALSE, /* pc_relative. */
531 0, /* bitpos. */
532 complain_overflow_unsigned, /* complain_on_overflow. */
533 bfin_imm16_reloc, /* special_function. */
534 "R_huimm16", /* name. */
535 FALSE, /* partial_inplace. */
f4707595 536 0, /* src_mask. */
0f64bb02
CM		 537 0x0000FFFF, /* dst_mask. */
538 TRUE), /* pcrel_offset. */
539
540 HOWTO (R_pcrel12_jump_s, /* type. */
541 1, /* rightshift. */
542 1, /* size (0 = byte, 1 = short, 2 = long). */
543 12, /* bitsize. */
544 TRUE, /* pc_relative. */
545 0, /* bitpos. */
546 complain_overflow_signed, /* complain_on_overflow. */
547 bfin_bfd_reloc, /* special_function. */
548 "R_pcrel12_jump_s", /* name. */
549 FALSE, /* partial_inplace. */
f4707595 550 0, /* src_mask. */
0f64bb02
CM		 551 0x00000FFF, /* dst_mask. */
552 TRUE), /* pcrel_offset. */
553
554 HOWTO (R_pcrel24_jump_x, /* type. */
555 1, /* rightshift. */
556 2, /* size (0 = byte, 1 = short, 2 = long). */
557 24, /* bitsize. */
558 TRUE, /* pc_relative. */
559 0, /* bitpos. */
560 complain_overflow_signed, /* complain_on_overflow. */
561 bfin_pcrel24_reloc, /* special_function. */
562 "R_pcrel24_jump_x", /* name. */
563 FALSE, /* partial_inplace. */
f4707595 564 0, /* src_mask. */
0f64bb02
CM		 565 0x00FFFFFF, /* dst_mask. */
566 TRUE), /* pcrel_offset. */
567
568 HOWTO (R_pcrel24, /* type. */
569 1, /* rightshift. */
570 2, /* size (0 = byte, 1 = short, 2 = long). */
571 24, /* bitsize. */
572 TRUE, /* pc_relative. */
573 0, /* bitpos. */
574 complain_overflow_signed, /* complain_on_overflow. */
575 bfin_pcrel24_reloc, /* special_function. */
576 "R_pcrel24", /* name. */
577 FALSE, /* partial_inplace. */
f4707595 578 0, /* src_mask. */
0f64bb02
CM		 579 0x00FFFFFF, /* dst_mask. */
580 TRUE), /* pcrel_offset. */
581
582 HOWTO (R_unusedb, /* type. */
583 0, /* rightshift. */
584 2, /* size (0 = byte, 1 = short, 2 = long). */
585 32, /* bitsize. */
586 FALSE, /* pc_relative. */
587 0, /* bitpos. */
588 complain_overflow_dont, /* complain_on_overflow. */
589 bfd_elf_generic_reloc, /* special_function. */
590 "R_unusedb", /* name. */
591 FALSE, /* partial_inplace. */
592 0, /* src_mask. */
593 0, /* dst_mask. */
594 FALSE), /* pcrel_offset. */
595
596 HOWTO (R_unusedc, /* type. */
597 0, /* rightshift. */
598 2, /* size (0 = byte, 1 = short, 2 = long). */
599 32, /* bitsize. */
600 FALSE, /* pc_relative. */
601 0, /* bitpos. */
602 complain_overflow_dont, /* complain_on_overflow. */
603 bfd_elf_generic_reloc, /* special_function. */
604 "R_unusedc", /* name. */
605 FALSE, /* partial_inplace. */
606 0, /* src_mask. */
607 0, /* dst_mask. */
608 FALSE), /* pcrel_offset. */
609
610 HOWTO (R_pcrel24_jump_l, /* type. */
611 1, /* rightshift. */
612 2, /* size (0 = byte, 1 = short, 2 = long). */
613 24, /* bitsize. */
614 TRUE, /* pc_relative. */
615 0, /* bitpos. */
616 complain_overflow_signed, /* complain_on_overflow. */
617 bfin_pcrel24_reloc, /* special_function. */
618 "R_pcrel24_jump_l", /* name. */
619 FALSE, /* partial_inplace. */
f4707595 620 0, /* src_mask. */
0f64bb02
CM		 621 0x00FFFFFF, /* dst_mask. */
622 TRUE), /* pcrel_offset. */
623
624 HOWTO (R_pcrel24_call_x, /* type. */
625 1, /* rightshift. */
626 2, /* size (0 = byte, 1 = short, 2 = long). */
627 24, /* bitsize. */
628 TRUE, /* pc_relative. */
629 0, /* bitpos. */
630 complain_overflow_signed, /* complain_on_overflow. */
631 bfin_pcrel24_reloc, /* special_function. */
632 "R_pcrel24_call_x", /* name. */
633 FALSE, /* partial_inplace. */
f4707595 634 0, /* src_mask. */
0f64bb02
CM		 635 0x00FFFFFF, /* dst_mask. */
636 TRUE), /* pcrel_offset. */
637
638 HOWTO (R_var_eq_symb, /* type. */
639 0, /* rightshift. */
640 2, /* size (0 = byte, 1 = short, 2 = long). */
641 32, /* bitsize. */
642 FALSE, /* pc_relative. */
643 0, /* bitpos. */
644 complain_overflow_bitfield, /* complain_on_overflow. */
645 bfin_bfd_reloc, /* special_function. */
646 "R_var_eq_symb", /* name. */
647 FALSE, /* partial_inplace. */
648 0, /* src_mask. */
649 0, /* dst_mask. */
650 FALSE), /* pcrel_offset. */
651
652 HOWTO (R_byte_data, /* type. */
653 0, /* rightshift. */
654 0, /* size (0 = byte, 1 = short, 2 = long). */
655 8, /* bitsize. */
656 FALSE, /* pc_relative. */
657 0, /* bitpos. */
658 complain_overflow_unsigned, /* complain_on_overflow. */
659 bfin_bfd_reloc, /* special_function. */
660 "R_byte_data", /* name. */
661 FALSE, /* partial_inplace. */
f4707595 662 0, /* src_mask. */
0f64bb02
CM		 663 0xFF, /* dst_mask. */
664 TRUE), /* pcrel_offset. */
665
666 HOWTO (R_byte2_data, /* type. */
667 0, /* rightshift. */
668 1, /* size (0 = byte, 1 = short, 2 = long). */
669 16, /* bitsize. */
670 FALSE, /* pc_relative. */
671 0, /* bitpos. */
672 complain_overflow_signed, /* complain_on_overflow. */
673 bfin_bfd_reloc, /* special_function. */
674 "R_byte2_data", /* name. */
675 FALSE, /* partial_inplace. */
f4707595 676 0, /* src_mask. */
0f64bb02
CM		 677 0xFFFF, /* dst_mask. */
678 TRUE), /* pcrel_offset. */
679
680 HOWTO (R_byte4_data, /* type. */
681 0, /* rightshift. */
682 2, /* size (0 = byte, 1 = short, 2 = long). */
683 32, /* bitsize. */
684 FALSE, /* pc_relative. */
685 0, /* bitpos. */
686 complain_overflow_unsigned, /* complain_on_overflow. */
687 bfin_byte4_reloc, /* special_function. */
688 "R_byte4_data", /* name. */
689 FALSE, /* partial_inplace. */
f4707595 690 0, /* src_mask. */
0f64bb02
CM		 691 0xFFFFFFFF, /* dst_mask. */
692 TRUE), /* pcrel_offset. */
693
694 HOWTO (R_pcrel11, /* type. */
695 1, /* rightshift. */
696 1, /* size (0 = byte, 1 = short, 2 = long). */
697 10, /* bitsize. */
698 TRUE, /* pc_relative. */
699 0, /* bitpos. */
700 complain_overflow_unsigned, /* complain_on_overflow. */
701 bfin_bfd_reloc, /* special_function. */
702 "R_pcrel11", /* name. */
703 FALSE, /* partial_inplace. */
f4707595 704 0, /* src_mask. */
0f64bb02
CM		 705 0x000003FF, /* dst_mask. */
706 FALSE), /* pcrel_offset. */
48d502e1
BS		 707
708
709 /* A 18-bit signed operand with the GOT offset for the address of
710 the symbol. */
711 HOWTO (R_BFIN_GOT17M4, /* type */
712 2, /* rightshift */
713 1, /* size (0 = byte, 1 = short, 2 = long) */
714 16, /* bitsize */
715 FALSE, /* pc_relative */
716 0, /* bitpos */
717 complain_overflow_signed, /* complain_on_overflow */
718 bfd_elf_generic_reloc, /* special_function */
5dff4664 719 "R_BFIN_GOT17M4", /* name */
48d502e1
BS		 720 FALSE, /* partial_inplace */
721 0xffff, /* src_mask */
722 0xffff, /* dst_mask */
723 FALSE), /* pcrel_offset */
724
725 /* The upper 16 bits of the GOT offset for the address of the
726 symbol. */
727 HOWTO (R_BFIN_GOTHI, /* type */
728 0, /* rightshift */
729 1, /* size (0 = byte, 1 = short, 2 = long) */
730 16, /* bitsize */
731 FALSE, /* pc_relative */
732 0, /* bitpos */
733 complain_overflow_dont, /* complain_on_overflow */
734 bfd_elf_generic_reloc, /* special_function */
735 "R_BFIN_GOTHI", /* name */
736 FALSE, /* partial_inplace */
737 0xffff, /* src_mask */
738 0xffff, /* dst_mask */
739 FALSE), /* pcrel_offset */
740
741 /* The lower 16 bits of the GOT offset for the address of the
742 symbol. */
743 HOWTO (R_BFIN_GOTLO, /* type */
744 0, /* rightshift */
745 1, /* size (0 = byte, 1 = short, 2 = long) */
746 16, /* bitsize */
747 FALSE, /* pc_relative */
748 0, /* bitpos */
749 complain_overflow_dont, /* complain_on_overflow */
750 bfd_elf_generic_reloc, /* special_function */
751 "R_BFIN_GOTLO", /* name */
752 FALSE, /* partial_inplace */
753 0xffff, /* src_mask */
754 0xffff, /* dst_mask */
755 FALSE), /* pcrel_offset */
756
757 /* The 32-bit address of the canonical descriptor of a function. */
758 HOWTO (R_BFIN_FUNCDESC, /* type */
759 0, /* rightshift */
760 2, /* size (0 = byte, 1 = short, 2 = long) */
761 32, /* bitsize */
762 FALSE, /* pc_relative */
763 0, /* bitpos */
764 complain_overflow_bitfield, /* complain_on_overflow */
765 bfd_elf_generic_reloc, /* special_function */
766 "R_BFIN_FUNCDESC", /* name */
767 FALSE, /* partial_inplace */
768 0xffffffff, /* src_mask */
769 0xffffffff, /* dst_mask */
770 FALSE), /* pcrel_offset */
771
772 /* A 12-bit signed operand with the GOT offset for the address of
773 canonical descriptor of a function. */
774 HOWTO (R_BFIN_FUNCDESC_GOT17M4, /* type */
775 2, /* rightshift */
776 1, /* size (0 = byte, 1 = short, 2 = long) */
777 16, /* bitsize */
778 FALSE, /* pc_relative */
779 0, /* bitpos */
780 complain_overflow_signed, /* complain_on_overflow */
781 bfd_elf_generic_reloc, /* special_function */
782 "R_BFIN_FUNCDESC_GOT17M4", /* name */
783 FALSE, /* partial_inplace */
784 0xffff, /* src_mask */
785 0xffff, /* dst_mask */
786 FALSE), /* pcrel_offset */
787
788 /* The upper 16 bits of the GOT offset for the address of the
789 canonical descriptor of a function. */
790 HOWTO (R_BFIN_FUNCDESC_GOTHI, /* type */
791 0, /* rightshift */
792 1, /* size (0 = byte, 1 = short, 2 = long) */
793 16, /* bitsize */
794 FALSE, /* pc_relative */
795 0, /* bitpos */
796 complain_overflow_dont, /* complain_on_overflow */
797 bfd_elf_generic_reloc, /* special_function */
798 "R_BFIN_FUNCDESC_GOTHI", /* name */
799 FALSE, /* partial_inplace */
800 0xffff, /* src_mask */
801 0xffff, /* dst_mask */
802 FALSE), /* pcrel_offset */
803
804 /* The lower 16 bits of the GOT offset for the address of the
805 canonical descriptor of a function. */
806 HOWTO (R_BFIN_FUNCDESC_GOTLO, /* type */
807 0, /* rightshift */
808 1, /* size (0 = byte, 1 = short, 2 = long) */
809 16, /* bitsize */
810 FALSE, /* pc_relative */
811 0, /* bitpos */
812 complain_overflow_dont, /* complain_on_overflow */
813 bfd_elf_generic_reloc, /* special_function */
814 "R_BFIN_FUNCDESC_GOTLO", /* name */
815 FALSE, /* partial_inplace */
816 0xffff, /* src_mask */
817 0xffff, /* dst_mask */
818 FALSE), /* pcrel_offset */
819
820 /* The 32-bit address of the canonical descriptor of a function. */
821 HOWTO (R_BFIN_FUNCDESC_VALUE, /* type */
822 0, /* rightshift */
823 2, /* size (0 = byte, 1 = short, 2 = long) */
824 64, /* bitsize */
825 FALSE, /* pc_relative */
826 0, /* bitpos */
827 complain_overflow_bitfield, /* complain_on_overflow */
828 bfd_elf_generic_reloc, /* special_function */
829 "R_BFIN_FUNCDESC_VALUE", /* name */
830 FALSE, /* partial_inplace */
831 0xffffffff, /* src_mask */
832 0xffffffff, /* dst_mask */
833 FALSE), /* pcrel_offset */
834
835 /* A 12-bit signed operand with the GOT offset for the address of
836 canonical descriptor of a function. */
837 HOWTO (R_BFIN_FUNCDESC_GOTOFF17M4, /* type */
838 2, /* rightshift */
839 1, /* size (0 = byte, 1 = short, 2 = long) */
840 16, /* bitsize */
841 FALSE, /* pc_relative */
842 0, /* bitpos */
843 complain_overflow_signed, /* complain_on_overflow */
844 bfd_elf_generic_reloc, /* special_function */
845 "R_BFIN_FUNCDESC_GOTOFF17M4", /* name */
846 FALSE, /* partial_inplace */
847 0xffff, /* src_mask */
848 0xffff, /* dst_mask */
849 FALSE), /* pcrel_offset */
850
851 /* The upper 16 bits of the GOT offset for the address of the
852 canonical descriptor of a function. */
853 HOWTO (R_BFIN_FUNCDESC_GOTOFFHI, /* type */
854 0, /* rightshift */
855 1, /* size (0 = byte, 1 = short, 2 = long) */
856 16, /* bitsize */
857 FALSE, /* pc_relative */
858 0, /* bitpos */
859 complain_overflow_dont, /* complain_on_overflow */
860 bfd_elf_generic_reloc, /* special_function */
861 "R_BFIN_FUNCDESC_GOTOFFHI", /* name */
862 FALSE, /* partial_inplace */
863 0xffff, /* src_mask */
864 0xffff, /* dst_mask */
865 FALSE), /* pcrel_offset */
866
867 /* The lower 16 bits of the GOT offset for the address of the
868 canonical descriptor of a function. */
869 HOWTO (R_BFIN_FUNCDESC_GOTOFFLO, /* type */
870 0, /* rightshift */
871 1, /* size (0 = byte, 1 = short, 2 = long) */
872 16, /* bitsize */
873 FALSE, /* pc_relative */
874 0, /* bitpos */
875 complain_overflow_dont, /* complain_on_overflow */
876 bfd_elf_generic_reloc, /* special_function */
877 "R_BFIN_FUNCDESC_GOTOFFLO", /* name */
878 FALSE, /* partial_inplace */
879 0xffff, /* src_mask */
880 0xffff, /* dst_mask */
881 FALSE), /* pcrel_offset */
882
883 /* A 12-bit signed operand with the GOT offset for the address of
884 the symbol. */
885 HOWTO (R_BFIN_GOTOFF17M4, /* type */
886 2, /* rightshift */
887 1, /* size (0 = byte, 1 = short, 2 = long) */
888 16, /* bitsize */
889 FALSE, /* pc_relative */
890 0, /* bitpos */
891 complain_overflow_signed, /* complain_on_overflow */
892 bfd_elf_generic_reloc, /* special_function */
893 "R_BFIN_GOTOFF17M4", /* name */
894 FALSE, /* partial_inplace */
895 0xffff, /* src_mask */
896 0xffff, /* dst_mask */
897 FALSE), /* pcrel_offset */
898
899 /* The upper 16 bits of the GOT offset for the address of the
900 symbol. */
901 HOWTO (R_BFIN_GOTOFFHI, /* type */
902 0, /* rightshift */
903 1, /* size (0 = byte, 1 = short, 2 = long) */
904 16, /* bitsize */
905 FALSE, /* pc_relative */
906 0, /* bitpos */
907 complain_overflow_dont, /* complain_on_overflow */
908 bfd_elf_generic_reloc, /* special_function */
909 "R_BFIN_GOTOFFHI", /* name */
910 FALSE, /* partial_inplace */
911 0xffff, /* src_mask */
912 0xffff, /* dst_mask */
913 FALSE), /* pcrel_offset */
914
915 /* The lower 16 bits of the GOT offset for the address of the
916 symbol. */
917 HOWTO (R_BFIN_GOTOFFLO, /* type */
918 0, /* rightshift */
919 1, /* size (0 = byte, 1 = short, 2 = long) */
920 16, /* bitsize */
921 FALSE, /* pc_relative */
922 0, /* bitpos */
923 complain_overflow_dont, /* complain_on_overflow */
924 bfd_elf_generic_reloc, /* special_function */
925 "R_BFIN_GOTOFFLO", /* name */
926 FALSE, /* partial_inplace */
927 0xffff, /* src_mask */
928 0xffff, /* dst_mask */
929 FALSE), /* pcrel_offset */
0f64bb02
CM		 930};
931
0f64bb02
CM		 932static reloc_howto_type bfin_gnuext_howto_table [] =
933{
934 HOWTO (R_pltpc, /* type. */
935 0, /* rightshift. */
936 1, /* size (0 = byte, 1 = short, 2 = long). */
937 16, /* bitsize. */
938 FALSE, /* pc_relative. */
939 0, /* bitpos. */
940 complain_overflow_bitfield, /* complain_on_overflow. */
941 bfin_pltpc_reloc, /* special_function. */
942 "R_pltpc", /* name. */
943 FALSE, /* partial_inplace. */
944 0xffff, /* src_mask. */
945 0xffff, /* dst_mask. */
946 FALSE), /* pcrel_offset. */
947
948 HOWTO (R_got, /* type. */
949 0, /* rightshift. */
950 1, /* size (0 = byte, 1 = short, 2 = long). */
951 16, /* bitsize. */
952 FALSE, /* pc_relative. */
953 0, /* bitpos. */
954 complain_overflow_bitfield, /* complain_on_overflow. */
955 bfd_elf_generic_reloc, /* special_function. */
956 "R_got", /* name. */
957 FALSE, /* partial_inplace. */
958 0x7fff, /* src_mask. */
959 0x7fff, /* dst_mask. */
960 FALSE), /* pcrel_offset. */
961
962/* GNU extension to record C++ vtable hierarchy. */
963 HOWTO (R_BFIN_GNU_VTINHERIT, /* type. */
964 0, /* rightshift. */
965 2, /* size (0 = byte, 1 = short, 2 = long). */
966 0, /* bitsize. */
967 FALSE, /* pc_relative. */
968 0, /* bitpos. */
969 complain_overflow_dont, /* complain_on_overflow. */
970 NULL, /* special_function. */
971 "R_BFIN_GNU_VTINHERIT", /* name. */
972 FALSE, /* partial_inplace. */
973 0, /* src_mask. */
974 0, /* dst_mask. */
975 FALSE), /* pcrel_offset. */
976
977/* GNU extension to record C++ vtable member usage. */
978 HOWTO (R_BFIN_GNU_VTENTRY, /* type. */
979 0, /* rightshift. */
980 2, /* size (0 = byte, 1 = short, 2 = long). */
981 0, /* bitsize. */
982 FALSE, /* pc_relative. */
983 0, /* bitpos. */
984 complain_overflow_dont, /* complain_on_overflow. */
985 _bfd_elf_rel_vtable_reloc_fn, /* special_function. */
986 "R_BFIN_GNU_VTENTRY", /* name. */
987 FALSE, /* partial_inplace. */
988 0, /* src_mask. */
989 0, /* dst_mask. */
990 FALSE) /* pcrel_offset. */
991};
992
993struct bfin_reloc_map
994{
995 bfd_reloc_code_real_type bfd_reloc_val;
996 unsigned int bfin_reloc_val;
997};
998
999static const struct bfin_reloc_map bfin_reloc_map [] =
1000{
1001 { BFD_RELOC_NONE, R_unused0 },
1002 { BFD_RELOC_BFIN_5_PCREL, R_pcrel5m2 },
1003 { BFD_RELOC_NONE, R_unused1 },
1004 { BFD_RELOC_BFIN_10_PCREL, R_pcrel10 },
1005 { BFD_RELOC_BFIN_12_PCREL_JUMP, R_pcrel12_jump },
1006 { BFD_RELOC_BFIN_16_IMM, R_rimm16 },
1007 { BFD_RELOC_BFIN_16_LOW, R_luimm16 },
1008 { BFD_RELOC_BFIN_16_HIGH, R_huimm16 },
1009 { BFD_RELOC_BFIN_12_PCREL_JUMP_S, R_pcrel12_jump_s },
1010 { BFD_RELOC_24_PCREL, R_pcrel24 },
1011 { BFD_RELOC_24_PCREL, R_pcrel24 },
1012 { BFD_RELOC_BFIN_24_PCREL_JUMP_L, R_pcrel24_jump_l },
1013 { BFD_RELOC_NONE, R_unusedb },
1014 { BFD_RELOC_NONE, R_unusedc },
1015 { BFD_RELOC_BFIN_24_PCREL_CALL_X, R_pcrel24_call_x },
1016 { BFD_RELOC_8, R_byte_data },
1017 { BFD_RELOC_16, R_byte2_data },
1018 { BFD_RELOC_32, R_byte4_data },
1019 { BFD_RELOC_BFIN_11_PCREL, R_pcrel11 },
1020 { BFD_RELOC_BFIN_GOT, R_got },
1021 { BFD_RELOC_BFIN_PLTPC, R_pltpc },
48d502e1
BS		 1022
1023 { BFD_RELOC_BFIN_GOT17M4, R_BFIN_GOT17M4 },
1024 { BFD_RELOC_BFIN_GOTHI, R_BFIN_GOTHI },
1025 { BFD_RELOC_BFIN_GOTLO, R_BFIN_GOTLO },
1026 { BFD_RELOC_BFIN_FUNCDESC, R_BFIN_FUNCDESC },
1027 { BFD_RELOC_BFIN_FUNCDESC_GOT17M4, R_BFIN_FUNCDESC_GOT17M4 },
1028 { BFD_RELOC_BFIN_FUNCDESC_GOTHI, R_BFIN_FUNCDESC_GOTHI },
1029 { BFD_RELOC_BFIN_FUNCDESC_GOTLO, R_BFIN_FUNCDESC_GOTLO },
1030 { BFD_RELOC_BFIN_FUNCDESC_VALUE, R_BFIN_FUNCDESC_VALUE },
1031 { BFD_RELOC_BFIN_FUNCDESC_GOTOFF17M4, R_BFIN_FUNCDESC_GOTOFF17M4 },
1032 { BFD_RELOC_BFIN_FUNCDESC_GOTOFFHI, R_BFIN_FUNCDESC_GOTOFFHI },
1033 { BFD_RELOC_BFIN_FUNCDESC_GOTOFFLO, R_BFIN_FUNCDESC_GOTOFFLO },
1034 { BFD_RELOC_BFIN_GOTOFF17M4, R_BFIN_GOTOFF17M4 },
1035 { BFD_RELOC_BFIN_GOTOFFHI, R_BFIN_GOTOFFHI },
1036 { BFD_RELOC_BFIN_GOTOFFLO, R_BFIN_GOTOFFLO },
1037
0f64bb02
CM		 1038 { BFD_RELOC_VTABLE_INHERIT, R_BFIN_GNU_VTINHERIT },
1039 { BFD_RELOC_VTABLE_ENTRY, R_BFIN_GNU_VTENTRY },
0f64bb02
CM		 1040};
1041
1042
1043static void
1044bfin_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
1045 arelent *cache_ptr,
1046 Elf_Internal_Rela *dst)
1047{
1048 unsigned int r_type;
1049
1050 r_type = ELF32_R_TYPE (dst->r_info);
1051
1052 if (r_type <= BFIN_RELOC_MAX)
1053 cache_ptr->howto = &bfin_howto_table [r_type];
1054
0f64bb02
CM		 1055 else if (r_type >= BFIN_GNUEXT_RELOC_MIN && r_type <= BFIN_GNUEXT_RELOC_MAX)
1056 cache_ptr->howto = &bfin_gnuext_howto_table [r_type - BFIN_GNUEXT_RELOC_MIN];
1057
1058 else
1059 cache_ptr->howto = (reloc_howto_type *) NULL;
0f64bb02 1060}
157090f7 1061
0f64bb02
CM		 1062/* Given a BFD reloc type, return the howto. */
1063static reloc_howto_type *
1064bfin_bfd_reloc_type_lookup (bfd * abfd ATTRIBUTE_UNUSED,
1065 bfd_reloc_code_real_type code)
1066{
1067 unsigned int i;
1068 unsigned int r_type = BFIN_RELOC_MIN;
1069
1070 for (i = sizeof (bfin_reloc_map) / sizeof (bfin_reloc_map[0]); --i;)
1071 if (bfin_reloc_map[i].bfd_reloc_val == code)
1072 r_type = bfin_reloc_map[i].bfin_reloc_val;
1073
1074 if (r_type <= BFIN_RELOC_MAX && r_type > BFIN_RELOC_MIN)
1075 return &bfin_howto_table [r_type];
1076
0f64bb02
CM		 1077 else if (r_type >= BFIN_GNUEXT_RELOC_MIN && r_type <= BFIN_GNUEXT_RELOC_MAX)
1078 return &bfin_gnuext_howto_table [r_type - BFIN_GNUEXT_RELOC_MIN];
1079
1080 return (reloc_howto_type *) NULL;
157090f7 1081}
0f64bb02 1082
157090f7
AM		 1083static reloc_howto_type *
1084bfin_bfd_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1085 const char *r_name)
1086{
1087 unsigned int i;
1088
1089 for (i = 0;
1090 i < (sizeof (bfin_howto_table)
1091 / sizeof (bfin_howto_table[0]));
1092 i++)
1093 if (bfin_howto_table[i].name != NULL
1094 && strcasecmp (bfin_howto_table[i].name, r_name) == 0)
1095 return &bfin_howto_table[i];
1096
1097 for (i = 0;
1098 i < (sizeof (bfin_gnuext_howto_table)
1099 / sizeof (bfin_gnuext_howto_table[0]));
1100 i++)
1101 if (bfin_gnuext_howto_table[i].name != NULL
1102 && strcasecmp (bfin_gnuext_howto_table[i].name, r_name) == 0)
1103 return &bfin_gnuext_howto_table[i];
1104
1105 return NULL;
0f64bb02 1106}
157090f7 1107
0f64bb02
CM		 1108/* Given a bfin relocation type, return the howto. */
1109static reloc_howto_type *
1110bfin_reloc_type_lookup (bfd * abfd ATTRIBUTE_UNUSED,
1111 unsigned int r_type)
1112{
1113 if (r_type <= BFIN_RELOC_MAX)
1114 return &bfin_howto_table [r_type];
1115
0f64bb02
CM		 1116 else if (r_type >= BFIN_GNUEXT_RELOC_MIN && r_type <= BFIN_GNUEXT_RELOC_MAX)
1117 return &bfin_gnuext_howto_table [r_type - BFIN_GNUEXT_RELOC_MIN];
1118
1119 return (reloc_howto_type *) NULL;
0f64bb02
CM		 1120}
1121
1122/* Return TRUE if the name is a local label.
1123 bfin local labels begin with L$. */
1124static bfd_boolean
1125bfin_is_local_label_name (
1126 bfd *abfd ATTRIBUTE_UNUSED,
1127 const char *label)
1128{
1129 if (label[0] == 'L' && label[1] == '$' )
1130 return TRUE;
1131
1132 return _bfd_elf_is_local_label_name (abfd, label);
1133}
1134
48d502e1
BS		 1135extern const bfd_target bfd_elf32_bfinfdpic_vec;
1136#define IS_FDPIC(bfd) ((bfd)->xvec == &bfd_elf32_bfinfdpic_vec)
1137
1138/* An extension of the elf hash table data structure, containing some
1139 additional Blackfin-specific data. */
1140struct bfinfdpic_elf_link_hash_table
1141{
1142 struct elf_link_hash_table elf;
1143
1144 /* A pointer to the .got section. */
1145 asection *sgot;
1146 /* A pointer to the .rel.got section. */
1147 asection *sgotrel;
1148 /* A pointer to the .rofixup section. */
1149 asection *sgotfixup;
1150 /* A pointer to the .plt section. */
1151 asection *splt;
1152 /* A pointer to the .rel.plt section. */
1153 asection *spltrel;
1154 /* GOT base offset. */
1155 bfd_vma got0;
1156 /* Location of the first non-lazy PLT entry, i.e., the number of
1157 bytes taken by lazy PLT entries. */
1158 bfd_vma plt0;
1159 /* A hash table holding information about which symbols were
1160 referenced with which PIC-related relocations. */
1161 struct htab *relocs_info;
1162};
1163
1164/* Get the Blackfin ELF linker hash table from a link_info structure. */
1165
1166#define bfinfdpic_hash_table(info) \
1167 ((struct bfinfdpic_elf_link_hash_table *) ((info)->hash))
1168
1169#define bfinfdpic_got_section(info) \
1170 (bfinfdpic_hash_table (info)->sgot)
1171#define bfinfdpic_gotrel_section(info) \
1172 (bfinfdpic_hash_table (info)->sgotrel)
1173#define bfinfdpic_gotfixup_section(info) \
1174 (bfinfdpic_hash_table (info)->sgotfixup)
1175#define bfinfdpic_plt_section(info) \
1176 (bfinfdpic_hash_table (info)->splt)
1177#define bfinfdpic_pltrel_section(info) \
1178 (bfinfdpic_hash_table (info)->spltrel)
1179#define bfinfdpic_relocs_info(info) \
1180 (bfinfdpic_hash_table (info)->relocs_info)
1181#define bfinfdpic_got_initial_offset(info) \
1182 (bfinfdpic_hash_table (info)->got0)
1183#define bfinfdpic_plt_initial_offset(info) \
1184 (bfinfdpic_hash_table (info)->plt0)
1185
1186/* Create a Blackfin ELF linker hash table. */
1187
1188static struct bfd_link_hash_table *
1189bfinfdpic_elf_link_hash_table_create (bfd *abfd)
1190{
1191 struct bfinfdpic_elf_link_hash_table *ret;
1192 bfd_size_type amt = sizeof (struct bfinfdpic_elf_link_hash_table);
1193
1194 ret = bfd_zalloc (abfd, amt);
1195 if (ret == NULL)
1196 return NULL;
1197
1198 if (!_bfd_elf_link_hash_table_init (&ret->elf, abfd,
1199 _bfd_elf_link_hash_newfunc,
1200 sizeof (struct elf_link_hash_entry)))
1201 {
1202 free (ret);
1203 return NULL;
1204 }
1205
1206 return &ret->elf.root;
1207}
1208
1209/* Decide whether a reference to a symbol can be resolved locally or
1210 not. If the symbol is protected, we want the local address, but
1211 its function descriptor must be assigned by the dynamic linker. */
1212#define BFINFDPIC_SYM_LOCAL(INFO, H) \
1213 (_bfd_elf_symbol_refs_local_p ((H), (INFO), 1) \
1214 || ! elf_hash_table (INFO)->dynamic_sections_created)
1215#define BFINFDPIC_FUNCDESC_LOCAL(INFO, H) \
1216 ((H)->dynindx == -1 || ! elf_hash_table (INFO)->dynamic_sections_created)
1217
1218/* This structure collects information on what kind of GOT, PLT or
1219 function descriptors are required by relocations that reference a
1220 certain symbol. */
1221struct bfinfdpic_relocs_info
1222{
1223 /* The index of the symbol, as stored in the relocation r_info, if
1224 we have a local symbol; -1 otherwise. */
1225 long symndx;
1226 union
1227 {
1228 /* The input bfd in which the symbol is defined, if it's a local
1229 symbol. */
1230 bfd *abfd;
1231 /* If symndx == -1, the hash table entry corresponding to a global
1232 symbol (even if it turns out to bind locally, in which case it
1233 should ideally be replaced with section's symndx + addend). */
1234 struct elf_link_hash_entry *h;
1235 } d;
1236 /* The addend of the relocation that references the symbol. */
1237 bfd_vma addend;
1238
1239 /* The fields above are used to identify an entry. The fields below
1240 contain information on how an entry is used and, later on, which
1241 locations it was assigned. */
1242 /* The following 2 fields record whether the symbol+addend above was
1243 ever referenced with a GOT relocation. The 17M4 suffix indicates a
1244 GOT17M4 relocation; hilo is used for GOTLO/GOTHI pairs. */
1245 unsigned got17m4:1;
1246 unsigned gothilo:1;
1247 /* Whether a FUNCDESC relocation references symbol+addend. */
1248 unsigned fd:1;
1249 /* Whether a FUNCDESC_GOT relocation references symbol+addend. */
1250 unsigned fdgot17m4:1;
1251 unsigned fdgothilo:1;
1252 /* Whether a FUNCDESC_GOTOFF relocation references symbol+addend. */
1253 unsigned fdgoff17m4:1;
1254 unsigned fdgoffhilo:1;
1255 /* Whether symbol+addend is referenced with GOTOFF17M4, GOTOFFLO or
1256 GOTOFFHI relocations. The addend doesn't really matter, since we
1257 envision that this will only be used to check whether the symbol
1258 is mapped to the same segment as the got. */
1259 unsigned gotoff:1;
1260 /* Whether symbol+addend is referenced by a LABEL24 relocation. */
1261 unsigned call:1;
1262 /* Whether symbol+addend is referenced by a 32 or FUNCDESC_VALUE
1263 relocation. */
1264 unsigned sym:1;
1265 /* Whether we need a PLT entry for a symbol. Should be implied by
1266 something like:
1267 (call && symndx == -1 && ! BFINFDPIC_SYM_LOCAL (info, d.h)) */
1268 unsigned plt:1;
1269 /* Whether a function descriptor should be created in this link unit
1270 for symbol+addend. Should be implied by something like:
1271 (plt || fdgotoff17m4 || fdgotofflohi
1272 || ((fd || fdgot17m4 || fdgothilo)
1273 && (symndx != -1 || BFINFDPIC_FUNCDESC_LOCAL (info, d.h)))) */
1274 unsigned privfd:1;
1275 /* Whether a lazy PLT entry is needed for this symbol+addend.
1276 Should be implied by something like:
1277 (privfd && symndx == -1 && ! BFINFDPIC_SYM_LOCAL (info, d.h)
1278 && ! (info->flags & DF_BIND_NOW)) */
1279 unsigned lazyplt:1;
1280 /* Whether we've already emitted GOT relocations and PLT entries as
1281 needed for this symbol. */
1282 unsigned done:1;
1283
1284 /* The number of R_byte4_data, R_BFIN_FUNCDESC and R_BFIN_FUNCDESC_VALUE
1285 relocations referencing the symbol. */
1286 unsigned relocs32, relocsfd, relocsfdv;
1287
1288 /* The number of .rofixups entries and dynamic relocations allocated
1289 for this symbol, minus any that might have already been used. */
1290 unsigned fixups, dynrelocs;
1291
1292 /* The offsets of the GOT entries assigned to symbol+addend, to the
1293 function descriptor's address, and to a function descriptor,
1294 respectively. Should be zero if unassigned. The offsets are
1295 counted from the value that will be assigned to the PIC register,
1296 not from the beginning of the .got section. */
1297 bfd_signed_vma got_entry, fdgot_entry, fd_entry;
1298 /* The offsets of the PLT entries assigned to symbol+addend,
1299 non-lazy and lazy, respectively. If unassigned, should be
1300 (bfd_vma)-1. */
1301 bfd_vma plt_entry, lzplt_entry;
1302};
1303
1304/* Compute a hash with the key fields of an bfinfdpic_relocs_info entry. */
1305static hashval_t
1306bfinfdpic_relocs_info_hash (const void *entry_)
1307{
1308 const struct bfinfdpic_relocs_info *entry = entry_;
1309
1310 return (entry->symndx == -1
17e226a8
BS		 1311 ? (long) entry->d.h->root.root.hash
1312 : entry->symndx + (long) entry->d.abfd->id * 257) + entry->addend;
48d502e1
BS		 1313}
1314
1315/* Test whether the key fields of two bfinfdpic_relocs_info entries are
1316 identical. */
1317static int
1318bfinfdpic_relocs_info_eq (const void *entry1, const void *entry2)
1319{
1320 const struct bfinfdpic_relocs_info *e1 = entry1;
1321 const struct bfinfdpic_relocs_info *e2 = entry2;
1322
1323 return e1->symndx == e2->symndx && e1->addend == e2->addend
1324 && (e1->symndx == -1 ? e1->d.h == e2->d.h : e1->d.abfd == e2->d.abfd);
1325}
1326
1327/* Find or create an entry in a hash table HT that matches the key
1328 fields of the given ENTRY. If it's not found, memory for a new
1329 entry is allocated in ABFD's obstack. */
1330static struct bfinfdpic_relocs_info *
1331bfinfdpic_relocs_info_find (struct htab *ht,
1332 bfd *abfd,
1333 const struct bfinfdpic_relocs_info *entry,
1334 enum insert_option insert)
1335{
1336 struct bfinfdpic_relocs_info **loc =
1337 (struct bfinfdpic_relocs_info **) htab_find_slot (ht, entry, insert);
1338
1339 if (! loc)
1340 return NULL;
1341
1342 if (*loc)
1343 return *loc;
1344
1345 *loc = bfd_zalloc (abfd, sizeof (**loc));
1346
1347 if (! *loc)
1348 return *loc;
1349
1350 (*loc)->symndx = entry->symndx;
1351 (*loc)->d = entry->d;
1352 (*loc)->addend = entry->addend;
1353 (*loc)->plt_entry = (bfd_vma)-1;
1354 (*loc)->lzplt_entry = (bfd_vma)-1;
1355
1356 return *loc;
1357}
1358
1359/* Obtain the address of the entry in HT associated with H's symbol +
1360 addend, creating a new entry if none existed. ABFD is only used
1361 for memory allocation purposes. */
1362inline static struct bfinfdpic_relocs_info *
1363bfinfdpic_relocs_info_for_global (struct htab *ht,
1364 bfd *abfd,
1365 struct elf_link_hash_entry *h,
1366 bfd_vma addend,
1367 enum insert_option insert)
1368{
1369 struct bfinfdpic_relocs_info entry;
1370
1371 entry.symndx = -1;
1372 entry.d.h = h;
1373 entry.addend = addend;
1374
1375 return bfinfdpic_relocs_info_find (ht, abfd, &entry, insert);
1376}
1377
1378/* Obtain the address of the entry in HT associated with the SYMNDXth
1379 local symbol of the input bfd ABFD, plus the addend, creating a new
1380 entry if none existed. */
1381inline static struct bfinfdpic_relocs_info *
1382bfinfdpic_relocs_info_for_local (struct htab *ht,
1383 bfd *abfd,
1384 long symndx,
1385 bfd_vma addend,
1386 enum insert_option insert)
1387{
1388 struct bfinfdpic_relocs_info entry;
1389
1390 entry.symndx = symndx;
1391 entry.d.abfd = abfd;
1392 entry.addend = addend;
1393
1394 return bfinfdpic_relocs_info_find (ht, abfd, &entry, insert);
1395}
1396
1397/* Merge fields set by check_relocs() of two entries that end up being
1398 mapped to the same (presumably global) symbol. */
1399
1400inline static void
1401bfinfdpic_pic_merge_early_relocs_info (struct bfinfdpic_relocs_info *e2,
1402 struct bfinfdpic_relocs_info const *e1)
1403{
1404 e2->got17m4 |= e1->got17m4;
1405 e2->gothilo |= e1->gothilo;
1406 e2->fd |= e1->fd;
1407 e2->fdgot17m4 |= e1->fdgot17m4;
1408 e2->fdgothilo |= e1->fdgothilo;
1409 e2->fdgoff17m4 |= e1->fdgoff17m4;
1410 e2->fdgoffhilo |= e1->fdgoffhilo;
1411 e2->gotoff |= e1->gotoff;
1412 e2->call |= e1->call;
1413 e2->sym |= e1->sym;
1414}
1415
1416/* Every block of 65535 lazy PLT entries shares a single call to the
1417 resolver, inserted in the 32768th lazy PLT entry (i.e., entry #
1418 32767, counting from 0). All other lazy PLT entries branch to it
1419 in a single instruction. */
1420
1421#define LZPLT_RESOLVER_EXTRA 10
1422#define LZPLT_NORMAL_SIZE 6
1423#define LZPLT_ENTRIES 1362
1424
1425#define BFINFDPIC_LZPLT_BLOCK_SIZE ((bfd_vma) LZPLT_NORMAL_SIZE * LZPLT_ENTRIES + LZPLT_RESOLVER_EXTRA)
1426#define BFINFDPIC_LZPLT_RESOLV_LOC (LZPLT_NORMAL_SIZE * LZPLT_ENTRIES / 2)
1427
1428/* Add a dynamic relocation to the SRELOC section. */
1429
1430inline static bfd_vma
1431_bfinfdpic_add_dyn_reloc (bfd *output_bfd, asection *sreloc, bfd_vma offset,
1432 int reloc_type, long dynindx, bfd_vma addend,
1433 struct bfinfdpic_relocs_info *entry)
1434{
1435 Elf_Internal_Rela outrel;
1436 bfd_vma reloc_offset;
1437
1438 outrel.r_offset = offset;
1439 outrel.r_info = ELF32_R_INFO (dynindx, reloc_type);
1440 outrel.r_addend = addend;
1441
1442 reloc_offset = sreloc->reloc_count * sizeof (Elf32_External_Rel);
1443 BFD_ASSERT (reloc_offset < sreloc->size);
1444 bfd_elf32_swap_reloc_out (output_bfd, &outrel,
1445 sreloc->contents + reloc_offset);
1446 sreloc->reloc_count++;
1447
1448 /* If the entry's index is zero, this relocation was probably to a
1449 linkonce section that got discarded. We reserved a dynamic
1450 relocation, but it was for another entry than the one we got at
1451 the time of emitting the relocation. Unfortunately there's no
1452 simple way for us to catch this situation, since the relocation
1453 is cleared right before calling relocate_section, at which point
1454 we no longer know what the relocation used to point to. */
1455 if (entry->symndx)
1456 {
1457 BFD_ASSERT (entry->dynrelocs > 0);
1458 entry->dynrelocs--;
1459 }
1460
1461 return reloc_offset;
1462}
1463
1464/* Add a fixup to the ROFIXUP section. */
1465
1466static bfd_vma
1467_bfinfdpic_add_rofixup (bfd *output_bfd, asection *rofixup, bfd_vma offset,
1468 struct bfinfdpic_relocs_info *entry)
1469{
1470 bfd_vma fixup_offset;
1471
1472 if (rofixup->flags & SEC_EXCLUDE)
1473 return -1;
1474
1475 fixup_offset = rofixup->reloc_count * 4;
1476 if (rofixup->contents)
1477 {
1478 BFD_ASSERT (fixup_offset < rofixup->size);
1479 bfd_put_32 (output_bfd, offset, rofixup->contents + fixup_offset);
1480 }
1481 rofixup->reloc_count++;
1482
1483 if (entry && entry->symndx)
1484 {
1485 /* See discussion about symndx == 0 in _bfinfdpic_add_dyn_reloc
1486 above. */
1487 BFD_ASSERT (entry->fixups > 0);
1488 entry->fixups--;
1489 }
1490
1491 return fixup_offset;
1492}
1493
1494/* Find the segment number in which OSEC, and output section, is
1495 located. */
1496
1497static unsigned
1498_bfinfdpic_osec_to_segment (bfd *output_bfd, asection *osec)
1499{
2ea37f1c 1500 Elf_Internal_Phdr *p = _bfd_elf_find_segment_containing_section (output_bfd, osec);
48d502e1 1501
2ea37f1c 1502 return (p != NULL) ? p - elf_tdata (output_bfd)->phdr : -1;
48d502e1
BS		 1503}
1504
1505inline static bfd_boolean
1506_bfinfdpic_osec_readonly_p (bfd *output_bfd, asection *osec)
1507{
1508 unsigned seg = _bfinfdpic_osec_to_segment (output_bfd, osec);
1509
1510 return ! (elf_tdata (output_bfd)->phdr[seg].p_flags & PF_W);
1511}
1512
1513/* Generate relocations for GOT entries, function descriptors, and
1514 code for PLT and lazy PLT entries. */
1515
1516inline static bfd_boolean
1517_bfinfdpic_emit_got_relocs_plt_entries (struct bfinfdpic_relocs_info *entry,
1518 bfd *output_bfd,
1519 struct bfd_link_info *info,
1520 asection *sec,
1521 Elf_Internal_Sym *sym,
1522 bfd_vma addend)
1523
1524{
1525 bfd_vma fd_lazy_rel_offset = (bfd_vma)-1;
1526 int dynindx = -1;
1527
1528 if (entry->done)
1529 return TRUE;
1530 entry->done = 1;
1531
1532 if (entry->got_entry || entry->fdgot_entry || entry->fd_entry)
1533 {
1534 /* If the symbol is dynamic, consider it for dynamic
1535 relocations, otherwise decay to section + offset. */
1536 if (entry->symndx == -1 && entry->d.h->dynindx != -1)
1537 dynindx = entry->d.h->dynindx;
1538 else
1539 {
1540 if (sec->output_section
1541 && ! bfd_is_abs_section (sec->output_section)
1542 && ! bfd_is_und_section (sec->output_section))
1543 dynindx = elf_section_data (sec->output_section)->dynindx;
1544 else
1545 dynindx = 0;
1546 }
1547 }
1548
1549 /* Generate relocation for GOT entry pointing to the symbol. */
1550 if (entry->got_entry)
1551 {
1552 int idx = dynindx;
1553 bfd_vma ad = addend;
1554
1555 /* If the symbol is dynamic but binds locally, use
1556 section+offset. */
1557 if (sec && (entry->symndx != -1
1558 || BFINFDPIC_SYM_LOCAL (info, entry->d.h)))
1559 {
1560 if (entry->symndx == -1)
1561 ad += entry->d.h->root.u.def.value;
1562 else
1563 ad += sym->st_value;
1564 ad += sec->output_offset;
1565 if (sec->output_section && elf_section_data (sec->output_section))
1566 idx = elf_section_data (sec->output_section)->dynindx;
1567 else
1568 idx = 0;
1569 }
1570
1571 /* If we're linking an executable at a fixed address, we can
1572 omit the dynamic relocation as long as the symbol is local to
1573 this module. */
1574 if (info->executable && !info->pie
1575 && (entry->symndx != -1
1576 || BFINFDPIC_SYM_LOCAL (info, entry->d.h)))
1577 {
1578 if (sec)
1579 ad += sec->output_section->vma;
1580 if (entry->symndx != -1
1581 || entry->d.h->root.type != bfd_link_hash_undefweak)
1582 _bfinfdpic_add_rofixup (output_bfd,
1583 bfinfdpic_gotfixup_section (info),
1584 bfinfdpic_got_section (info)->output_section
1585 ->vma
1586 + bfinfdpic_got_section (info)->output_offset
1587 + bfinfdpic_got_initial_offset (info)
1588 + entry->got_entry, entry);
1589 }
1590 else
1591 _bfinfdpic_add_dyn_reloc (output_bfd, bfinfdpic_gotrel_section (info),
1592 _bfd_elf_section_offset
1593 (output_bfd, info,
1594 bfinfdpic_got_section (info),
1595 bfinfdpic_got_initial_offset (info)
1596 + entry->got_entry)
1597 + bfinfdpic_got_section (info)
1598 ->output_section->vma
1599 + bfinfdpic_got_section (info)->output_offset,
1600 R_byte4_data, idx, ad, entry);
1601
1602 bfd_put_32 (output_bfd, ad,
1603 bfinfdpic_got_section (info)->contents
1604 + bfinfdpic_got_initial_offset (info)
1605 + entry->got_entry);
1606 }
1607
1608 /* Generate relocation for GOT entry pointing to a canonical
1609 function descriptor. */
1610 if (entry->fdgot_entry)
1611 {
1612 int reloc, idx;
1613 bfd_vma ad = 0;
1614
1615 if (! (entry->symndx == -1
1616 && entry->d.h->root.type == bfd_link_hash_undefweak
1617 && BFINFDPIC_SYM_LOCAL (info, entry->d.h)))
1618 {
1619 /* If the symbol is dynamic and there may be dynamic symbol
1620 resolution because we are, or are linked with, a shared
1621 library, emit a FUNCDESC relocation such that the dynamic
1622 linker will allocate the function descriptor. If the
1623 symbol needs a non-local function descriptor but binds
1624 locally (e.g., its visibility is protected, emit a
1625 dynamic relocation decayed to section+offset. */
1626 if (entry->symndx == -1
1627 && ! BFINFDPIC_FUNCDESC_LOCAL (info, entry->d.h)
1628 && BFINFDPIC_SYM_LOCAL (info, entry->d.h)
1629 && !(info->executable && !info->pie))
1630 {
1631 reloc = R_BFIN_FUNCDESC;
1632 idx = elf_section_data (entry->d.h->root.u.def.section
1633 ->output_section)->dynindx;
1634 ad = entry->d.h->root.u.def.section->output_offset
1635 + entry->d.h->root.u.def.value;
1636 }
1637 else if (entry->symndx == -1
1638 && ! BFINFDPIC_FUNCDESC_LOCAL (info, entry->d.h))
1639 {
1640 reloc = R_BFIN_FUNCDESC;
1641 idx = dynindx;
1642 ad = addend;
1643 if (ad)
1644 return FALSE;
1645 }
1646 else
1647 {
1648 /* Otherwise, we know we have a private function descriptor,
1649 so reference it directly. */
1650 if (elf_hash_table (info)->dynamic_sections_created)
1651 BFD_ASSERT (entry->privfd);
1652 reloc = R_byte4_data;
1653 idx = elf_section_data (bfinfdpic_got_section (info)
1654 ->output_section)->dynindx;
1655 ad = bfinfdpic_got_section (info)->output_offset
1656 + bfinfdpic_got_initial_offset (info) + entry->fd_entry;
1657 }
1658
1659 /* If there is room for dynamic symbol resolution, emit the
1660 dynamic relocation. However, if we're linking an
1661 executable at a fixed location, we won't have emitted a
1662 dynamic symbol entry for the got section, so idx will be
1663 zero, which means we can and should compute the address
1664 of the private descriptor ourselves. */
1665 if (info->executable && !info->pie
1666 && (entry->symndx != -1
1667 || BFINFDPIC_FUNCDESC_LOCAL (info, entry->d.h)))
1668 {
1669 ad += bfinfdpic_got_section (info)->output_section->vma;
1670 _bfinfdpic_add_rofixup (output_bfd,
1671 bfinfdpic_gotfixup_section (info),
1672 bfinfdpic_got_section (info)
1673 ->output_section->vma
1674 + bfinfdpic_got_section (info)
1675 ->output_offset
1676 + bfinfdpic_got_initial_offset (info)
1677 + entry->fdgot_entry, entry);
1678 }
1679 else
1680 _bfinfdpic_add_dyn_reloc (output_bfd,
1681 bfinfdpic_gotrel_section (info),
1682 _bfd_elf_section_offset
1683 (output_bfd, info,
1684 bfinfdpic_got_section (info),
1685 bfinfdpic_got_initial_offset (info)
1686 + entry->fdgot_entry)
1687 + bfinfdpic_got_section (info)
1688 ->output_section->vma
1689 + bfinfdpic_got_section (info)
1690 ->output_offset,
1691 reloc, idx, ad, entry);
1692 }
1693
1694 bfd_put_32 (output_bfd, ad,
1695 bfinfdpic_got_section (info)->contents
1696 + bfinfdpic_got_initial_offset (info)
1697 + entry->fdgot_entry);
1698 }
1699
1700 /* Generate relocation to fill in a private function descriptor in
1701 the GOT. */
1702 if (entry->fd_entry)
1703 {
1704 int idx = dynindx;
1705 bfd_vma ad = addend;
1706 bfd_vma ofst;
1707 long lowword, highword;
1708
1709 /* If the symbol is dynamic but binds locally, use
1710 section+offset. */
1711 if (sec && (entry->symndx != -1
1712 || BFINFDPIC_SYM_LOCAL (info, entry->d.h)))
1713 {
1714 if (entry->symndx == -1)
1715 ad += entry->d.h->root.u.def.value;
1716 else
1717 ad += sym->st_value;
1718 ad += sec->output_offset;
1719 if (sec->output_section && elf_section_data (sec->output_section))
1720 idx = elf_section_data (sec->output_section)->dynindx;
1721 else
1722 idx = 0;
1723 }
1724
1725 /* If we're linking an executable at a fixed address, we can
1726 omit the dynamic relocation as long as the symbol is local to
1727 this module. */
1728 if (info->executable && !info->pie
1729 && (entry->symndx != -1 || BFINFDPIC_SYM_LOCAL (info, entry->d.h)))
1730 {
1731 if (sec)
1732 ad += sec->output_section->vma;
1733 ofst = 0;
1734 if (entry->symndx != -1
1735 || entry->d.h->root.type != bfd_link_hash_undefweak)
1736 {
1737 _bfinfdpic_add_rofixup (output_bfd,
1738 bfinfdpic_gotfixup_section (info),
1739 bfinfdpic_got_section (info)
1740 ->output_section->vma
1741 + bfinfdpic_got_section (info)
1742 ->output_offset
1743 + bfinfdpic_got_initial_offset (info)
1744 + entry->fd_entry, entry);
1745 _bfinfdpic_add_rofixup (output_bfd,
1746 bfinfdpic_gotfixup_section (info),
1747 bfinfdpic_got_section (info)
1748 ->output_section->vma
1749 + bfinfdpic_got_section (info)
1750 ->output_offset
1751 + bfinfdpic_got_initial_offset (info)
1752 + entry->fd_entry + 4, entry);
1753 }
1754 }
1755 else
1756 {
1757 ofst
1758 = _bfinfdpic_add_dyn_reloc (output_bfd,
1759 entry->lazyplt
1760 ? bfinfdpic_pltrel_section (info)
1761 : bfinfdpic_gotrel_section (info),
1762 _bfd_elf_section_offset
1763 (output_bfd, info,
1764 bfinfdpic_got_section (info),
1765 bfinfdpic_got_initial_offset (info)
1766 + entry->fd_entry)
1767 + bfinfdpic_got_section (info)
1768 ->output_section->vma
1769 + bfinfdpic_got_section (info)
1770 ->output_offset,
1771 R_BFIN_FUNCDESC_VALUE, idx, ad, entry);
1772 }
1773
1774 /* If we've omitted the dynamic relocation, just emit the fixed
1775 addresses of the symbol and of the local GOT base offset. */
1776 if (info->executable && !info->pie && sec && sec->output_section)
1777 {
1778 lowword = ad;
1779 highword = bfinfdpic_got_section (info)->output_section->vma
1780 + bfinfdpic_got_section (info)->output_offset
1781 + bfinfdpic_got_initial_offset (info);
1782 }
1783 else if (entry->lazyplt)
1784 {
1785 if (ad)
1786 return FALSE;
1787
1788 fd_lazy_rel_offset = ofst;
1789
1790 /* A function descriptor used for lazy or local resolving is
1791 initialized such that its high word contains the output
1792 section index in which the PLT entries are located, and
1793 the low word contains the address of the lazy PLT entry
1794 entry point, that must be within the memory region
1795 assigned to that section. */
1796 lowword = entry->lzplt_entry + 4
1797 + bfinfdpic_plt_section (info)->output_offset
1798 + bfinfdpic_plt_section (info)->output_section->vma;
1799 highword = _bfinfdpic_osec_to_segment
1800 (output_bfd, bfinfdpic_plt_section (info)->output_section);
1801 }
1802 else
1803 {
1804 /* A function descriptor for a local function gets the index
1805 of the section. For a non-local function, it's
1806 disregarded. */
1807 lowword = ad;
1808 if (entry->symndx == -1 && entry->d.h->dynindx != -1
1809 && entry->d.h->dynindx == idx)
1810 highword = 0;
1811 else
1812 highword = _bfinfdpic_osec_to_segment
1813 (output_bfd, sec->output_section);
1814 }
1815
1816 bfd_put_32 (output_bfd, lowword,
1817 bfinfdpic_got_section (info)->contents
1818 + bfinfdpic_got_initial_offset (info)
1819 + entry->fd_entry);
1820 bfd_put_32 (output_bfd, highword,
1821 bfinfdpic_got_section (info)->contents
1822 + bfinfdpic_got_initial_offset (info)
1823 + entry->fd_entry + 4);
1824 }
1825
1826 /* Generate code for the PLT entry. */
1827 if (entry->plt_entry != (bfd_vma) -1)
1828 {
1829 bfd_byte *plt_code = bfinfdpic_plt_section (info)->contents
1830 + entry->plt_entry;
1831
1832 BFD_ASSERT (entry->fd_entry);
1833
1834 /* Figure out what kind of PLT entry we need, depending on the
1835 location of the function descriptor within the GOT. */
1836 if (entry->fd_entry >= -(1 << (18 - 1))
1837 && entry->fd_entry + 4 < (1 << (18 - 1)))
1838 {
1839 /* P1 = [P3 + fd_entry]; P3 = [P3 + fd_entry + 4] */
1840 bfd_put_32 (output_bfd,
1841 0xe519 | ((entry->fd_entry << 14) & 0xFFFF0000),
1842 plt_code);
1843 bfd_put_32 (output_bfd,
1844 0xe51b | (((entry->fd_entry + 4) << 14) & 0xFFFF0000),
1845 plt_code + 4);
1846 plt_code += 8;
1847 }
1848 else
1849 {
1850 /* P1.L = fd_entry; P1.H = fd_entry;
1851 P3 = P3 + P1;
1852 P1 = [P3];
1853 P3 = [P3 + 4]; */
1854 bfd_put_32 (output_bfd,
1855 0xe109 | (entry->fd_entry << 16),
1856 plt_code);
1857 bfd_put_32 (output_bfd,
1858 0xe149 | (entry->fd_entry & 0xFFFF0000),
1859 plt_code + 4);
1860 bfd_put_16 (output_bfd, 0x5ad9, plt_code + 8);
1861 bfd_put_16 (output_bfd, 0x9159, plt_code + 10);
1862 bfd_put_16 (output_bfd, 0xac5b, plt_code + 12);
1863 plt_code += 14;
1864 }
1865 /* JUMP (P1) */
1866 bfd_put_16 (output_bfd, 0x0051, plt_code);
1867 }
1868
1869 /* Generate code for the lazy PLT entry. */
1870 if (entry->lzplt_entry != (bfd_vma) -1)
1871 {
1872 bfd_byte *lzplt_code = bfinfdpic_plt_section (info)->contents
1873 + entry->lzplt_entry;
1874 bfd_vma resolverStub_addr;
1875
1876 bfd_put_32 (output_bfd, fd_lazy_rel_offset, lzplt_code);
1877 lzplt_code += 4;
1878
1879 resolverStub_addr = entry->lzplt_entry / BFINFDPIC_LZPLT_BLOCK_SIZE
1880 * BFINFDPIC_LZPLT_BLOCK_SIZE + BFINFDPIC_LZPLT_RESOLV_LOC;
1881 if (resolverStub_addr >= bfinfdpic_plt_initial_offset (info))
1882 resolverStub_addr = bfinfdpic_plt_initial_offset (info) - LZPLT_NORMAL_SIZE - LZPLT_RESOLVER_EXTRA;
1883
1884 if (entry->lzplt_entry == resolverStub_addr)
1885 {
1886 /* This is a lazy PLT entry that includes a resolver call.
1887 P2 = [P3];
1888 R3 = [P3 + 4];
1889 JUMP (P2); */
1890 bfd_put_32 (output_bfd,
1891 0xa05b915a,
1892 lzplt_code);
1893 bfd_put_16 (output_bfd, 0x0052, lzplt_code + 4);
1894 }
1895 else
1896 {
1897 /* JUMP.S resolverStub */
1898 bfd_put_16 (output_bfd,
1899 0x2000
1900 | (((resolverStub_addr - entry->lzplt_entry)
1901 / 2) & (((bfd_vma)1 << 12) - 1)),
1902 lzplt_code);
1903 }
1904 }
1905
1906 return TRUE;
1907}
1908
0f64bb02
CM		 1909
1910/* Look through the relocs for a section during the first phase, and
1911 allocate space in the global offset table or procedure linkage
1912 table. */
1913
1914static bfd_boolean
1915bfin_check_relocs (bfd * abfd,
1916 struct bfd_link_info *info,
1917 asection *sec,
1918 const Elf_Internal_Rela *relocs)
1919{
1920 bfd *dynobj;
1921 Elf_Internal_Shdr *symtab_hdr;
1922 struct elf_link_hash_entry **sym_hashes;
1923 bfd_signed_vma *local_got_refcounts;
1924 const Elf_Internal_Rela *rel;
1925 const Elf_Internal_Rela *rel_end;
1926 asection *sgot;
1927 asection *srelgot;
1928 asection *sreloc;
1929 if (info->relocatable)
1930 return TRUE;
1931
1932 dynobj = elf_hash_table (info)->dynobj;
1933 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1934 sym_hashes = elf_sym_hashes (abfd);
1935 local_got_refcounts = elf_local_got_refcounts (abfd);
1936
1937 sgot = NULL;
1938 srelgot = NULL;
1939 sreloc = NULL;
1940
1941 rel_end = relocs + sec->reloc_count;
1942 for (rel = relocs; rel < rel_end; rel++)
1943 {
1944 unsigned long r_symndx;
1945 struct elf_link_hash_entry *h;
1946
1947 r_symndx = ELF32_R_SYM (rel->r_info);
1948 if (r_symndx < symtab_hdr->sh_info)
1949 h = NULL;
1950 else
1951 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1952
1953 switch (ELF32_R_TYPE (rel->r_info))
1954 {
1955 /* This relocation describes the C++ object vtable hierarchy.
1956 Reconstruct it for later use during GC. */
1957 case R_BFIN_GNU_VTINHERIT:
1958 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
1959 return FALSE;
1960 break;
1961
1962 /* This relocation describes which C++ vtable entries
1963 are actually used. Record for later use during GC. */
1964 case R_BFIN_GNU_VTENTRY:
d17e0c6e
JB		 1965 BFD_ASSERT (h != NULL);
1966 if (h != NULL
1967 && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
0f64bb02
CM		 1968 return FALSE;
1969 break;
1970
1971 case R_got:
1972 if (h != NULL
5592d7ec 1973 && strcmp (h->root.root.string, "__GLOBAL_OFFSET_TABLE_") == 0)
0f64bb02
CM		 1974 break;
1975 /* Fall through. */
1976
1977 if (dynobj == NULL)
1978 {
1979 /* Create the .got section. */
1980 elf_hash_table (info)->dynobj = dynobj = abfd;
1981 if (!_bfd_elf_create_got_section (dynobj, info))
1982 return FALSE;
1983 }
1984
1985 if (sgot == NULL)
1986 {
1987 sgot = bfd_get_section_by_name (dynobj, ".got");
1988 BFD_ASSERT (sgot != NULL);
1989 }
1990
1991 if (srelgot == NULL && (h != NULL || info->shared))
1992 {
1993 srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
1994 if (srelgot == NULL)
1995 {
117ed4f8
AM		 1996 flagword flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS
1997 | SEC_IN_MEMORY | SEC_LINKER_CREATED
1998 | SEC_READONLY);
1999 srelgot = bfd_make_section_with_flags (dynobj, ".rela.got",
2000 flags);
0f64bb02 2001 if (srelgot == NULL
0f64bb02
CM		 2002 || !bfd_set_section_alignment (dynobj, srelgot, 2))
2003 return FALSE;
2004 }
2005 }
2006
2007 if (h != NULL)
2008 {
2009 if (h->got.refcount == 0)
2010 {
2011 /* Make sure this symbol is output as a dynamic symbol. */
2012 if (h->dynindx == -1 && !h->forced_local)
2013 {
2014 if (!bfd_elf_link_record_dynamic_symbol (info, h))
2015 return FALSE;
2016 }
2017
2018 /* Allocate space in the .got section. */
2019 sgot->size += 4;
2020 /* Allocate relocation space. */
2021 srelgot->size += sizeof (Elf32_External_Rela);
2022 }
2023 h->got.refcount++;
2024 }
2025 else
2026 {
2027 /* This is a global offset table entry for a local symbol. */
2028 if (local_got_refcounts == NULL)
2029 {
2030 bfd_size_type size;
2031
2032 size = symtab_hdr->sh_info;
2033 size *= sizeof (bfd_signed_vma);
2034 local_got_refcounts = ((bfd_signed_vma *)
2035 bfd_zalloc (abfd, size));
2036 if (local_got_refcounts == NULL)
2037 return FALSE;
2038 elf_local_got_refcounts (abfd) = local_got_refcounts;
2039 }
2040 if (local_got_refcounts[r_symndx] == 0)
2041 {
2042 sgot->size += 4;
2043 if (info->shared)
2044 {
2045 /* If we are generating a shared object, we need to
2046 output a R_68K_RELATIVE reloc so that the dynamic
2047 linker can adjust this GOT entry. */
2048 srelgot->size += sizeof (Elf32_External_Rela);
2049 }
2050 }
2051 local_got_refcounts[r_symndx]++;
2052 }
2053 break;
2054
2055 default:
2056 break;
2057 }
2058 }
2059
2060 return TRUE;
2061}
2062
2063static enum elf_reloc_type_class
2064elf32_bfin_reloc_type_class (const Elf_Internal_Rela * rela)
2065{
2066 switch ((int) ELF32_R_TYPE (rela->r_info))
2067 {
2068 default:
2069 return reloc_class_normal;
2070 }
2071}
48d502e1
BS		 2072\f
2073/* Relocate an Blackfin ELF section.
2074
2075 The RELOCATE_SECTION function is called by the new ELF backend linker
2076 to handle the relocations for a section.
2077
2078 The relocs are always passed as Rela structures; if the section
2079 actually uses Rel structures, the r_addend field will always be
2080 zero.
2081
2082 This function is responsible for adjusting the section contents as
2083 necessary, and (if using Rela relocs and generating a relocatable
2084 output file) adjusting the reloc addend as necessary.
2085
2086 This function does not have to worry about setting the reloc
2087 address or the reloc symbol index.
2088
2089 LOCAL_SYMS is a pointer to the swapped in local symbols.
2090
2091 LOCAL_SECTIONS is an array giving the section in the input file
2092 corresponding to the st_shndx field of each local symbol.
2093
2094 The global hash table entry for the global symbols can be found
2095 via elf_sym_hashes (input_bfd).
2096
2097 When generating relocatable output, this function must handle
2098 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
2099 going to be the section symbol corresponding to the output
2100 section, which means that the addend must be adjusted
2101 accordingly. */
f4707595 2102
0f64bb02 2103static bfd_boolean
48d502e1
BS		 2104bfinfdpic_relocate_section (bfd * output_bfd,
2105 struct bfd_link_info *info,
2106 bfd * input_bfd,
2107 asection * input_section,
2108 bfd_byte * contents,
2109 Elf_Internal_Rela * relocs,
2110 Elf_Internal_Sym * local_syms,
2111 asection ** local_sections)
0f64bb02 2112{
0f64bb02
CM		 2113 Elf_Internal_Shdr *symtab_hdr;
2114 struct elf_link_hash_entry **sym_hashes;
0f64bb02
CM		 2115 Elf_Internal_Rela *rel;
2116 Elf_Internal_Rela *relend;
48d502e1
BS		 2117 unsigned isec_segment, got_segment, plt_segment,
2118 check_segment[2];
2119 int silence_segment_error = !(info->shared || info->pie);
0f64bb02 2120
48d502e1 2121 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
0f64bb02 2122 sym_hashes = elf_sym_hashes (input_bfd);
48d502e1
BS		 2123 relend = relocs + input_section->reloc_count;
2124
2125 isec_segment = _bfinfdpic_osec_to_segment (output_bfd,
2126 input_section->output_section);
2127 if (IS_FDPIC (output_bfd) && bfinfdpic_got_section (info))
2128 got_segment = _bfinfdpic_osec_to_segment (output_bfd,
2129 bfinfdpic_got_section (info)
2130 ->output_section);
2131 else
2132 got_segment = -1;
2133 if (IS_FDPIC (output_bfd) && elf_hash_table (info)->dynamic_sections_created)
2134 plt_segment = _bfinfdpic_osec_to_segment (output_bfd,
2135 bfinfdpic_plt_section (info)
2136 ->output_section);
2137 else
2138 plt_segment = -1;
0f64bb02 2139
48d502e1 2140 for (rel = relocs; rel < relend; rel ++)
0f64bb02 2141 {
0f64bb02
CM		 2142 reloc_howto_type *howto;
2143 unsigned long r_symndx;
0f64bb02
CM		 2144 Elf_Internal_Sym *sym;
2145 asection *sec;
48d502e1
BS		 2146 struct elf_link_hash_entry *h;
2147 bfd_vma relocation;
0f64bb02 2148 bfd_reloc_status_type r;
48d502e1
BS		 2149 const char * name = NULL;
2150 int r_type;
2151 asection *osec;
2152 struct bfinfdpic_relocs_info *picrel;
2153 bfd_vma orig_addend = rel->r_addend;
0f64bb02
CM		 2154
2155 r_type = ELF32_R_TYPE (rel->r_info);
0f64bb02 2156
48d502e1
BS		 2157 if (r_type == R_BFIN_GNU_VTINHERIT
2158 || r_type == R_BFIN_GNU_VTENTRY)
0f64bb02
CM		 2159 continue;
2160
48d502e1 2161 r_symndx = ELF32_R_SYM (rel->r_info);
0f64bb02
CM		 2162 howto = bfin_reloc_type_lookup (input_bfd, r_type);
2163 if (howto == NULL)
2164 {
2165 bfd_set_error (bfd_error_bad_value);
2166 return FALSE;
2167 }
0f64bb02 2168
48d502e1
BS		 2169 h = NULL;
2170 sym = NULL;
2171 sec = NULL;
0f64bb02
CM		 2172
2173 if (r_symndx < symtab_hdr->sh_info)
2174 {
2175 sym = local_syms + r_symndx;
48d502e1 2176 osec = sec = local_sections [r_symndx];
0f64bb02 2177 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
48d502e1
BS		 2178
2179 name = bfd_elf_string_from_elf_section
2180 (input_bfd, symtab_hdr->sh_link, sym->st_name);
2181 name = (name == NULL) ? bfd_section_name (input_bfd, sec) : name;
0f64bb02
CM		 2182 }
2183 else
2184 {
ab96bf03
AM		 2185 bfd_boolean warned;
2186 bfd_boolean unresolved_reloc;
0f64bb02 2187
ab96bf03
AM		 2188 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
2189 r_symndx, symtab_hdr, sym_hashes,
2190 h, sec, relocation,
2191 unresolved_reloc, warned);
2192 osec = sec;
2193 }
f4707595 2194
ab96bf03
AM		 2195 if (sec != NULL && elf_discarded_section (sec))
2196 {
2197 /* For relocs against symbols from removed linkonce sections,
2198 or sections discarded by a linker script, we just want the
2199 section contents zeroed. Avoid any special processing. */
2200 _bfd_clear_contents (howto, input_bfd, contents + rel->r_offset);
2201 rel->r_info = 0;
2202 rel->r_addend = 0;
2203 continue;
2204 }
48d502e1 2205
ab96bf03
AM		 2206 if (info->relocatable)
2207 continue;
2208
2209 if (h != NULL
2210 && (h->root.type == bfd_link_hash_defined
2211 || h->root.type == bfd_link_hash_defweak)
2212 && !BFINFDPIC_SYM_LOCAL (info, h))
2213 {
2214 osec = sec = NULL;
2215 relocation = 0;
48d502e1
BS		 2216 }
2217
2218 switch (r_type)
0f64bb02 2219 {
48d502e1
BS		 2220 case R_pcrel24:
2221 case R_pcrel24_jump_l:
2222 case R_byte4_data:
2223 if (! IS_FDPIC (output_bfd))
2224 goto non_fdpic;
2225
2226 case R_BFIN_GOT17M4:
2227 case R_BFIN_GOTHI:
2228 case R_BFIN_GOTLO:
2229 case R_BFIN_FUNCDESC_GOT17M4:
2230 case R_BFIN_FUNCDESC_GOTHI:
2231 case R_BFIN_FUNCDESC_GOTLO:
2232 case R_BFIN_GOTOFF17M4:
2233 case R_BFIN_GOTOFFHI:
2234 case R_BFIN_GOTOFFLO:
2235 case R_BFIN_FUNCDESC_GOTOFF17M4:
2236 case R_BFIN_FUNCDESC_GOTOFFHI:
2237 case R_BFIN_FUNCDESC_GOTOFFLO:
2238 case R_BFIN_FUNCDESC:
2239 case R_BFIN_FUNCDESC_VALUE:
2240 if (h != NULL)
2241 picrel = bfinfdpic_relocs_info_for_global (bfinfdpic_relocs_info
2242 (info), input_bfd, h,
2243 orig_addend, INSERT);
2244 else
2245 /* In order to find the entry we created before, we must
2246 use the original addend, not the one that may have been
2247 modified by _bfd_elf_rela_local_sym(). */
2248 picrel = bfinfdpic_relocs_info_for_local (bfinfdpic_relocs_info
2249 (info), input_bfd, r_symndx,
2250 orig_addend, INSERT);
2251 if (! picrel)
2252 return FALSE;
0f64bb02 2253
48d502e1
BS		 2254 if (!_bfinfdpic_emit_got_relocs_plt_entries (picrel, output_bfd, info,
2255 osec, sym,
2256 rel->r_addend))
2257 {
2258 (*_bfd_error_handler)
2259 (_("%B: relocation at `%A+0x%x' references symbol `%s' with nonzero addend"),
2260 input_bfd, input_section, rel->r_offset, name);
2261 return FALSE;
2262
2263 }
2264
2265 break;
2266
2267 default:
2268 non_fdpic:
2269 picrel = NULL;
2270 if (h && ! BFINFDPIC_SYM_LOCAL (info, h))
2271 {
2272 info->callbacks->warning
2273 (info, _("relocation references symbol not defined in the module"),
2274 name, input_bfd, input_section, rel->r_offset);
2275 return FALSE;
2276 }
2277 break;
2278 }
2279
2280 switch (r_type)
2281 {
2282 case R_pcrel24:
2283 case R_pcrel24_jump_l:
2284 check_segment[0] = isec_segment;
2285 if (! IS_FDPIC (output_bfd))
2286 check_segment[1] = isec_segment;
2287 else if (picrel->plt)
2288 {
2289 relocation = bfinfdpic_plt_section (info)->output_section->vma
2290 + bfinfdpic_plt_section (info)->output_offset
2291 + picrel->plt_entry;
2292 check_segment[1] = plt_segment;
2293 }
2294 /* We don't want to warn on calls to undefined weak symbols,
2295 as calls to them must be protected by non-NULL tests
2296 anyway, and unprotected calls would invoke undefined
2297 behavior. */
2298 else if (picrel->symndx == -1
2299 && picrel->d.h->root.type == bfd_link_hash_undefweak)
2300 check_segment[1] = check_segment[0];
2301 else
2302 check_segment[1] = sec
2303 ? _bfinfdpic_osec_to_segment (output_bfd, sec->output_section)
2304 : (unsigned)-1;
2305 break;
2306
2307 case R_BFIN_GOT17M4:
2308 case R_BFIN_GOTHI:
2309 case R_BFIN_GOTLO:
2310 relocation = picrel->got_entry;
2311 check_segment[0] = check_segment[1] = got_segment;
2312 break;
0f64bb02 2313
48d502e1
BS		 2314 case R_BFIN_FUNCDESC_GOT17M4:
2315 case R_BFIN_FUNCDESC_GOTHI:
2316 case R_BFIN_FUNCDESC_GOTLO:
2317 relocation = picrel->fdgot_entry;
2318 check_segment[0] = check_segment[1] = got_segment;
2319 break;
2320
2321 case R_BFIN_GOTOFFHI:
2322 case R_BFIN_GOTOFF17M4:
2323 case R_BFIN_GOTOFFLO:
2324 relocation -= bfinfdpic_got_section (info)->output_section->vma
2325 + bfinfdpic_got_section (info)->output_offset
2326 + bfinfdpic_got_initial_offset (info);
2327 check_segment[0] = got_segment;
2328 check_segment[1] = sec
2329 ? _bfinfdpic_osec_to_segment (output_bfd, sec->output_section)
2330 : (unsigned)-1;
2331 break;
2332
2333 case R_BFIN_FUNCDESC_GOTOFF17M4:
2334 case R_BFIN_FUNCDESC_GOTOFFHI:
2335 case R_BFIN_FUNCDESC_GOTOFFLO:
2336 relocation = picrel->fd_entry;
2337 check_segment[0] = check_segment[1] = got_segment;
2338 break;
2339
2340 case R_BFIN_FUNCDESC:
0f64bb02 2341 {
48d502e1
BS		 2342 int dynindx;
2343 bfd_vma addend = rel->r_addend;
0f64bb02 2344
48d502e1
BS		 2345 if (! (h && h->root.type == bfd_link_hash_undefweak
2346 && BFINFDPIC_SYM_LOCAL (info, h)))
0f64bb02 2347 {
48d502e1
BS		 2348 /* If the symbol is dynamic and there may be dynamic
2349 symbol resolution because we are or are linked with a
2350 shared library, emit a FUNCDESC relocation such that
2351 the dynamic linker will allocate the function
2352 descriptor. If the symbol needs a non-local function
2353 descriptor but binds locally (e.g., its visibility is
2354 protected, emit a dynamic relocation decayed to
2355 section+offset. */
2356 if (h && ! BFINFDPIC_FUNCDESC_LOCAL (info, h)
2357 && BFINFDPIC_SYM_LOCAL (info, h)
2358 && !(info->executable && !info->pie))
2359 {
2360 dynindx = elf_section_data (h->root.u.def.section
2361 ->output_section)->dynindx;
2362 addend += h->root.u.def.section->output_offset
2363 + h->root.u.def.value;
2364 }
2365 else if (h && ! BFINFDPIC_FUNCDESC_LOCAL (info, h))
2366 {
2367 if (addend)
2368 {
2369 info->callbacks->warning
2370 (info, _("R_BFIN_FUNCDESC references dynamic symbol with nonzero addend"),
2371 name, input_bfd, input_section, rel->r_offset);
2372 return FALSE;
2373 }
2374 dynindx = h->dynindx;
2375 }
2376 else
2377 {
2378 /* Otherwise, we know we have a private function
2379 descriptor, so reference it directly. */
2380 BFD_ASSERT (picrel->privfd);
2381 r_type = R_byte4_data;
2382 dynindx = elf_section_data (bfinfdpic_got_section (info)
2383 ->output_section)->dynindx;
2384 addend = bfinfdpic_got_section (info)->output_offset
2385 + bfinfdpic_got_initial_offset (info)
2386 + picrel->fd_entry;
2387 }
2388
2389 /* If there is room for dynamic symbol resolution, emit
2390 the dynamic relocation. However, if we're linking an
2391 executable at a fixed location, we won't have emitted a
2392 dynamic symbol entry for the got section, so idx will
2393 be zero, which means we can and should compute the
2394 address of the private descriptor ourselves. */
2395 if (info->executable && !info->pie
2396 && (!h || BFINFDPIC_FUNCDESC_LOCAL (info, h)))
2397 {
2398 addend += bfinfdpic_got_section (info)->output_section->vma;
2399 if ((bfd_get_section_flags (output_bfd,
2400 input_section->output_section)
2401 & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
2402 {
2403 if (_bfinfdpic_osec_readonly_p (output_bfd,
2404 input_section
2405 ->output_section))
2406 {
2407 info->callbacks->warning
2408 (info,
2409 _("cannot emit fixups in read-only section"),
2410 name, input_bfd, input_section, rel->r_offset);
2411 return FALSE;
2412 }
2413 _bfinfdpic_add_rofixup (output_bfd,
2414 bfinfdpic_gotfixup_section
2415 (info),
2416 _bfd_elf_section_offset
2417 (output_bfd, info,
2418 input_section, rel->r_offset)
2419 + input_section
2420 ->output_section->vma
2421 + input_section->output_offset,
2422 picrel);
2423 }
2424 }
2425 else if ((bfd_get_section_flags (output_bfd,
2426 input_section->output_section)
2427 & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
2428 {
8aafe8b4
JZ		 2429 bfd_vma offset;
2430
48d502e1
BS		 2431 if (_bfinfdpic_osec_readonly_p (output_bfd,
2432 input_section
2433 ->output_section))
2434 {
2435 info->callbacks->warning
2436 (info,
2437 _("cannot emit dynamic relocations in read-only section"),
2438 name, input_bfd, input_section, rel->r_offset);
2439 return FALSE;
2440 }
8aafe8b4
JZ		 2441 offset = _bfd_elf_section_offset (output_bfd, info,
2442 input_section, rel->r_offset);
2443 /* Only output a reloc for a not deleted entry. */
2444 if (offset >= (bfd_vma) -2)
2445 _bfinfdpic_add_dyn_reloc (output_bfd,
2446 bfinfdpic_gotrel_section (info),
2447 0,
2448 R_unused0,
2449 dynindx, addend, picrel);
2450 else
2451 _bfinfdpic_add_dyn_reloc (output_bfd,
2452 bfinfdpic_gotrel_section (info),
2453 offset + input_section
2454 ->output_section->vma
2455 + input_section->output_offset,
2456 r_type,
2457 dynindx, addend, picrel);
48d502e1
BS		 2458 }
2459 else
2460 addend += bfinfdpic_got_section (info)->output_section->vma;
0f64bb02
CM		 2461 }
2462
48d502e1
BS		 2463 /* We want the addend in-place because dynamic
2464 relocations are REL. Setting relocation to it should
2465 arrange for it to be installed. */
2466 relocation = addend - rel->r_addend;
2467 }
2468 check_segment[0] = check_segment[1] = got_segment;
2469 break;
0f64bb02 2470
48d502e1
BS		 2471 case R_byte4_data:
2472 if (! IS_FDPIC (output_bfd))
2473 {
2474 check_segment[0] = check_segment[1] = -1;
2475 break;
2476 }
2477 /* Fall through. */
2478 case R_BFIN_FUNCDESC_VALUE:
2479 {
2480 int dynindx;
2481 bfd_vma addend = rel->r_addend;
f4707595 2482
48d502e1
BS		 2483 /* If the symbol is dynamic but binds locally, use
2484 section+offset. */
2485 if (h && ! BFINFDPIC_SYM_LOCAL (info, h))
2486 {
2487 if (addend && r_type == R_BFIN_FUNCDESC_VALUE)
0f64bb02 2488 {
48d502e1
BS		 2489 info->callbacks->warning
2490 (info, _("R_BFIN_FUNCDESC_VALUE references dynamic symbol with nonzero addend"),
2491 name, input_bfd, input_section, rel->r_offset);
2492 return FALSE;
2493 }
2494 dynindx = h->dynindx;
2495 }
2496 else
2497 {
2498 if (h)
2499 addend += h->root.u.def.value;
2500 else
2501 addend += sym->st_value;
2502 if (osec)
2503 addend += osec->output_offset;
2504 if (osec && osec->output_section
2505 && ! bfd_is_abs_section (osec->output_section)
2506 && ! bfd_is_und_section (osec->output_section))
2507 dynindx = elf_section_data (osec->output_section)->dynindx;
2508 else
2509 dynindx = 0;
2510 }
0f64bb02 2511
48d502e1
BS		 2512 /* If we're linking an executable at a fixed address, we
2513 can omit the dynamic relocation as long as the symbol
2514 is defined in the current link unit (which is implied
2515 by its output section not being NULL). */
2516 if (info->executable && !info->pie
2517 && (!h || BFINFDPIC_SYM_LOCAL (info, h)))
2518 {
2519 if (osec)
2520 addend += osec->output_section->vma;
2521 if (IS_FDPIC (input_bfd)
2522 && (bfd_get_section_flags (output_bfd,
2523 input_section->output_section)
2524 & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
2525 {
2526 if (_bfinfdpic_osec_readonly_p (output_bfd,
2527 input_section
2528 ->output_section))
0f64bb02 2529 {
48d502e1
BS		 2530 info->callbacks->warning
2531 (info,
2532 _("cannot emit fixups in read-only section"),
2533 name, input_bfd, input_section, rel->r_offset);
2534 return FALSE;
2535 }
2536 if (!h || h->root.type != bfd_link_hash_undefweak)
2537 {
2538 _bfinfdpic_add_rofixup (output_bfd,
2539 bfinfdpic_gotfixup_section
2540 (info),
2541 _bfd_elf_section_offset
2542 (output_bfd, info,
2543 input_section, rel->r_offset)
2544 + input_section
2545 ->output_section->vma
2546 + input_section->output_offset,
2547 picrel);
2548 if (r_type == R_BFIN_FUNCDESC_VALUE)
2549 _bfinfdpic_add_rofixup
2550 (output_bfd,
2551 bfinfdpic_gotfixup_section (info),
2552 _bfd_elf_section_offset
2553 (output_bfd, info,
2554 input_section, rel->r_offset)
2555 + input_section->output_section->vma
2556 + input_section->output_offset + 4, picrel);
0f64bb02
CM		 2557 }
2558 }
0f64bb02
CM		 2559 }
2560 else
2561 {
48d502e1
BS		 2562 if ((bfd_get_section_flags (output_bfd,
2563 input_section->output_section)
2564 & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
0f64bb02 2565 {
48d502e1
BS		 2566 if (_bfinfdpic_osec_readonly_p (output_bfd,
2567 input_section
2568 ->output_section))
0f64bb02 2569 {
48d502e1
BS		 2570 info->callbacks->warning
2571 (info,
2572 _("cannot emit dynamic relocations in read-only section"),
2573 name, input_bfd, input_section, rel->r_offset);
2574 return FALSE;
0f64bb02 2575 }
48d502e1
BS		 2576 _bfinfdpic_add_dyn_reloc (output_bfd,
2577 bfinfdpic_gotrel_section (info),
2578 _bfd_elf_section_offset
2579 (output_bfd, info,
2580 input_section, rel->r_offset)
2581 + input_section
2582 ->output_section->vma
2583 + input_section->output_offset,
2584 r_type, dynindx, addend, picrel);
0f64bb02 2585 }
48d502e1
BS		 2586 else if (osec)
2587 addend += osec->output_section->vma;
2588 /* We want the addend in-place because dynamic
2589 relocations are REL. Setting relocation to it
2590 should arrange for it to be installed. */
2591 relocation = addend - rel->r_addend;
0f64bb02
CM		 2592 }
2593
48d502e1
BS		 2594 if (r_type == R_BFIN_FUNCDESC_VALUE)
2595 {
2596 /* If we've omitted the dynamic relocation, just emit
2597 the fixed addresses of the symbol and of the local
2598 GOT base offset. */
2599 if (info->executable && !info->pie
2600 && (!h || BFINFDPIC_SYM_LOCAL (info, h)))
2601 bfd_put_32 (output_bfd,
2602 bfinfdpic_got_section (info)->output_section->vma
2603 + bfinfdpic_got_section (info)->output_offset
2604 + bfinfdpic_got_initial_offset (info),
2605 contents + rel->r_offset + 4);
2606 else
2607 /* A function descriptor used for lazy or local
2608 resolving is initialized such that its high word
2609 contains the output section index in which the
2610 PLT entries are located, and the low word
2611 contains the offset of the lazy PLT entry entry
2612 point into that section. */
2613 bfd_put_32 (output_bfd,
2614 h && ! BFINFDPIC_SYM_LOCAL (info, h)
2615 ? 0
2616 : _bfinfdpic_osec_to_segment (output_bfd,
2617 sec
2618 ->output_section),
2619 contents + rel->r_offset + 4);
2620 }
0f64bb02 2621 }
48d502e1
BS		 2622 check_segment[0] = check_segment[1] = got_segment;
2623 break;
f4707595 2624
48d502e1
BS		 2625 default:
2626 check_segment[0] = isec_segment;
2627 check_segment[1] = sec
2628 ? _bfinfdpic_osec_to_segment (output_bfd, sec->output_section)
2629 : (unsigned)-1;
2630 break;
2631 }
f4707595 2632
48d502e1
BS		 2633 if (check_segment[0] != check_segment[1] && IS_FDPIC (output_bfd))
2634 {
2635#if 1 /* If you take this out, remove the #error from fdpic-static-6.d
2636 in the ld testsuite. */
2637 /* This helps catch problems in GCC while we can't do more
2638 than static linking. The idea is to test whether the
2639 input file basename is crt0.o only once. */
2640 if (silence_segment_error == 1)
2641 silence_segment_error =
2642 (strlen (input_bfd->filename) == 6
2643 && strcmp (input_bfd->filename, "crt0.o") == 0)
2644 || (strlen (input_bfd->filename) > 6
2645 && strcmp (input_bfd->filename
2646 + strlen (input_bfd->filename) - 7,
2647 "/crt0.o") == 0)
2648 ? -1 : 0;
2649#endif
2650 if (!silence_segment_error
2651 /* We don't want duplicate errors for undefined
2652 symbols. */
2653 && !(picrel && picrel->symndx == -1
2654 && picrel->d.h->root.type == bfd_link_hash_undefined))
2655 info->callbacks->warning
2656 (info,
2657 (info->shared || info->pie)
2658 ? _("relocations between different segments are not supported")
2659 : _("warning: relocation references a different segment"),
2660 name, input_bfd, input_section, rel->r_offset);
2661 if (!silence_segment_error && (info->shared || info->pie))
2662 return FALSE;
2663 elf_elfheader (output_bfd)->e_flags |= EF_BFIN_PIC;
2664 }
f4707595 2665
48d502e1
BS		 2666 switch (r_type)
2667 {
2668 case R_BFIN_GOTOFFHI:
2669 /* We need the addend to be applied before we shift the
2670 value right. */
2671 relocation += rel->r_addend;
2672 /* Fall through. */
2673 case R_BFIN_GOTHI:
2674 case R_BFIN_FUNCDESC_GOTHI:
2675 case R_BFIN_FUNCDESC_GOTOFFHI:
2676 relocation >>= 16;
2677 /* Fall through. */
f4707595 2678
48d502e1
BS		 2679 case R_BFIN_GOTLO:
2680 case R_BFIN_FUNCDESC_GOTLO:
2681 case R_BFIN_GOTOFFLO:
2682 case R_BFIN_FUNCDESC_GOTOFFLO:
2683 relocation &= 0xffff;
2684 break;
f4707595 2685
48d502e1
BS		 2686 default:
2687 break;
2688 }
f4707595 2689
48d502e1
BS		 2690 switch (r_type)
2691 {
2692 case R_pcrel24:
2693 case R_pcrel24_jump_l:
2694 if (! IS_FDPIC (output_bfd) || ! picrel->plt)
2695 break;
2696 /* Fall through. */
f4707595 2697
48d502e1
BS		 2698 /* When referencing a GOT entry, a function descriptor or a
2699 PLT, we don't want the addend to apply to the reference,
2700 but rather to the referenced symbol. The actual entry
2701 will have already been created taking the addend into
2702 account, so cancel it out here. */
2703 case R_BFIN_GOT17M4:
2704 case R_BFIN_GOTHI:
2705 case R_BFIN_GOTLO:
2706 case R_BFIN_FUNCDESC_GOT17M4:
2707 case R_BFIN_FUNCDESC_GOTHI:
2708 case R_BFIN_FUNCDESC_GOTLO:
2709 case R_BFIN_FUNCDESC_GOTOFF17M4:
2710 case R_BFIN_FUNCDESC_GOTOFFHI:
2711 case R_BFIN_FUNCDESC_GOTOFFLO:
2712 /* Note that we only want GOTOFFHI, not GOTOFFLO or GOTOFF17M4
2713 here, since we do want to apply the addend to the others.
2714 Note that we've applied the addend to GOTOFFHI before we
2715 shifted it right. */
2716 case R_BFIN_GOTOFFHI:
2717 relocation -= rel->r_addend;
0f64bb02
CM		 2718 break;
2719
2720 default:
0f64bb02
CM		 2721 break;
2722 }
2723
48d502e1
BS		 2724 if (r_type == R_pcrel24
2725 || r_type == R_pcrel24_jump_l)
0f64bb02 2726 {
48d502e1
BS		 2727 bfd_vma x;
2728 bfd_vma address = rel->r_offset;
2729
2730 relocation += rel->r_addend;
2731
2732 /* Perform usual pc-relative correction. */
2733 relocation -= input_section->output_section->vma + input_section->output_offset;
2734 relocation -= address;
2735
2736 /* We are getting reloc_entry->address 2 byte off from
2737 the start of instruction. Assuming absolute postion
2738 of the reloc data. But, following code had been written assuming
2739 reloc address is starting at begining of instruction.
2740 To compensate that I have increased the value of
2741 relocation by 1 (effectively 2) and used the addr -2 instead of addr. */
2742
2743 relocation += 2;
2744 address -= 2;
2745
2746 relocation >>= 1;
2747
2748 x = bfd_get_16 (input_bfd, contents + address);
2749 x = (x & 0xff00) | ((relocation >> 16) & 0xff);
2750 bfd_put_16 (input_bfd, x, contents + address);
2751
2752 x = bfd_get_16 (input_bfd, contents + address + 2);
2753 x = relocation & 0xFFFF;
2754 bfd_put_16 (input_bfd, x, contents + address + 2);
2755 r = bfd_reloc_ok;
0f64bb02 2756 }
48d502e1
BS		 2757 else
2758 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
2759 contents, rel->r_offset,
2760 relocation, rel->r_addend);
0f64bb02 2761
0f64bb02
CM		 2762 if (r != bfd_reloc_ok)
2763 {
48d502e1 2764 const char * msg = (const char *) NULL;
0f64bb02 2765
48d502e1 2766 switch (r)
0f64bb02 2767 {
48d502e1
BS		 2768 case bfd_reloc_overflow:
2769 r = info->callbacks->reloc_overflow
2770 (info, (h ? &h->root : NULL), name, howto->name,
2771 (bfd_vma) 0, input_bfd, input_section, rel->r_offset);
2772 break;
2773
2774 case bfd_reloc_undefined:
2775 r = info->callbacks->undefined_symbol
2776 (info, name, input_bfd, input_section, rel->r_offset, TRUE);
2777 break;
2778
2779 case bfd_reloc_outofrange:
2780 msg = _("internal error: out of range error");
2781 break;
2782
2783 case bfd_reloc_notsupported:
2784 msg = _("internal error: unsupported relocation error");
2785 break;
2786
2787 case bfd_reloc_dangerous:
2788 msg = _("internal error: dangerous relocation");
2789 break;
2790
2791 default:
2792 msg = _("internal error: unknown error");
2793 break;
2794 }
2795
2796 if (msg)
2797 r = info->callbacks->warning
2798 (info, msg, name, input_bfd, input_section, rel->r_offset);
2799
2800 if (! r)
2801 return FALSE;
2802 }
2803 }
2804
2805 return TRUE;
2806}
2807
2808static bfd_boolean
2809bfin_relocate_section (bfd * output_bfd,
2810 struct bfd_link_info *info,
2811 bfd * input_bfd,
2812 asection * input_section,
2813 bfd_byte * contents,
2814 Elf_Internal_Rela * relocs,
2815 Elf_Internal_Sym * local_syms,
2816 asection ** local_sections)
2817{
2818 bfd *dynobj;
2819 Elf_Internal_Shdr *symtab_hdr;
2820 struct elf_link_hash_entry **sym_hashes;
2821 bfd_vma *local_got_offsets;
2822 asection *sgot;
2823 asection *sreloc;
2824 Elf_Internal_Rela *rel;
2825 Elf_Internal_Rela *relend;
2826 int i = 0;
2827
48d502e1
BS		 2828 dynobj = elf_hash_table (info)->dynobj;
2829 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
2830 sym_hashes = elf_sym_hashes (input_bfd);
2831 local_got_offsets = elf_local_got_offsets (input_bfd);
2832
2833 sgot = NULL;
2834 sreloc = NULL;
2835
2836 rel = relocs;
2837 relend = relocs + input_section->reloc_count;
2838 for (; rel < relend; rel++, i++)
2839 {
2840 int r_type;
2841 reloc_howto_type *howto;
2842 unsigned long r_symndx;
2843 struct elf_link_hash_entry *h;
2844 Elf_Internal_Sym *sym;
2845 asection *sec;
2846 bfd_vma relocation = 0;
2847 bfd_boolean unresolved_reloc;
2848 bfd_reloc_status_type r;
2849 bfd_vma address;
2850
2851 r_type = ELF32_R_TYPE (rel->r_info);
2852 if (r_type < 0 || r_type >= 243)
2853 {
2854 bfd_set_error (bfd_error_bad_value);
2855 return FALSE;
2856 }
2857
2858 if (r_type == R_BFIN_GNU_VTENTRY
2859 || r_type == R_BFIN_GNU_VTINHERIT)
2860 continue;
2861
2862 howto = bfin_reloc_type_lookup (input_bfd, r_type);
2863 if (howto == NULL)
2864 {
2865 bfd_set_error (bfd_error_bad_value);
2866 return FALSE;
2867 }
2868 r_symndx = ELF32_R_SYM (rel->r_info);
2869
2870 h = NULL;
2871 sym = NULL;
2872 sec = NULL;
2873 unresolved_reloc = FALSE;
2874
2875 if (r_symndx < symtab_hdr->sh_info)
2876 {
2877 sym = local_syms + r_symndx;
2878 sec = local_sections[r_symndx];
2879 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
2880 }
2881 else
2882 {
2883 bfd_boolean warned;
ab96bf03 2884
48d502e1
BS		 2885 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
2886 r_symndx, symtab_hdr, sym_hashes,
2887 h, sec, relocation,
2888 unresolved_reloc, warned);
2889 }
2890
ab96bf03
AM		 2891 if (sec != NULL && elf_discarded_section (sec))
2892 {
2893 /* For relocs against symbols from removed linkonce sections,
2894 or sections discarded by a linker script, we just want the
2895 section contents zeroed. Avoid any special processing. */
2896 _bfd_clear_contents (howto, input_bfd, contents + rel->r_offset);
2897 rel->r_info = 0;
2898 rel->r_addend = 0;
2899 continue;
2900 }
2901
2902 if (info->relocatable)
2903 continue;
2904
48d502e1
BS		 2905 address = rel->r_offset;
2906
2907 /* Then, process normally. */
2908 switch (r_type)
2909 {
2910 case R_BFIN_GNU_VTINHERIT:
2911 case R_BFIN_GNU_VTENTRY:
2912 return bfd_reloc_ok;
2913
2914 case R_got:
2915 /* Relocation is to the address of the entry for this symbol
2916 in the global offset table. */
2917 if (h != NULL
5592d7ec 2918 && strcmp (h->root.root.string, "__GLOBAL_OFFSET_TABLE_") == 0)
48d502e1
BS		 2919 goto do_default;
2920 /* Fall through. */
2921 /* Relocation is the offset of the entry for this symbol in
2922 the global offset table. */
2923
2924 {
2925 bfd_vma off;
2926
2927 if (sgot == NULL)
2928 {
2929 sgot = bfd_get_section_by_name (dynobj, ".got");
2930 BFD_ASSERT (sgot != NULL);
2931 }
2932
2933 if (h != NULL)
2934 {
2935 bfd_boolean dyn;
2936
2937 off = h->got.offset;
2938 BFD_ASSERT (off != (bfd_vma) - 1);
2939 dyn = elf_hash_table (info)->dynamic_sections_created;
2940
2941 if (!WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
2942 || (info->shared
2943 && (info->symbolic
2944 || h->dynindx == -1
2945 || h->forced_local)
2946 && h->def_regular))
2947 {
2948 /* This is actually a static link, or it is a
2949 -Bsymbolic link and the symbol is defined
2950 locally, or the symbol was forced to be local
2951 because of a version file.. We must initialize
2952 this entry in the global offset table. Since
2953 the offset must always be a multiple of 4, we
2954 use the least significant bit to record whether
2955 we have initialized it already.
2956
2957 When doing a dynamic link, we create a .rela.got
2958 relocation entry to initialize the value. This
2959 is done in the finish_dynamic_symbol routine. */
2960 if ((off & 1) != 0)
2961 off &= ~1;
2962 else
2963 {
2964 bfd_put_32 (output_bfd, relocation,
2965 sgot->contents + off);
2966 h->got.offset |= 1;
2967 }
2968 }
2969 else
2970 unresolved_reloc = FALSE;
2971 }
2972 else
2973 {
2974 BFD_ASSERT (local_got_offsets != NULL);
2975 off = local_got_offsets[r_symndx];
2976 BFD_ASSERT (off != (bfd_vma) - 1);
2977
2978 /* The offset must always be a multiple of 4. We use
2979 the least significant bit to record whether we have
2980 already generated the necessary reloc. */
2981 if ((off & 1) != 0)
2982 off &= ~1;
2983 else
2984 {
2985 bfd_put_32 (output_bfd, relocation, sgot->contents + off);
2986
2987 if (info->shared)
2988 {
2989 asection *s;
2990 Elf_Internal_Rela outrel;
2991 bfd_byte *loc;
2992
2993 s = bfd_get_section_by_name (dynobj, ".rela.got");
2994 BFD_ASSERT (s != NULL);
2995
2996 outrel.r_offset = (sgot->output_section->vma
2997 + sgot->output_offset + off);
2998 outrel.r_info =
2999 ELF32_R_INFO (0, R_pcrel24);
3000 outrel.r_addend = relocation;
3001 loc = s->contents;
3002 loc +=
3003 s->reloc_count++ * sizeof (Elf32_External_Rela);
3004 bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
3005 }
3006
3007 local_got_offsets[r_symndx] |= 1;
3008 }
3009 }
3010
3011 relocation = sgot->output_offset + off;
3012 rel->r_addend = 0;
3013 /* bfin : preg = [preg + 17bitdiv4offset] relocation is div by 4. */
3014 relocation /= 4;
3015 }
3016 goto do_default;
3017
3018 case R_pcrel24:
3019 case R_pcrel24_jump_l:
3020 {
3021 bfd_vma x;
3022
3023 relocation += rel->r_addend;
3024
3025 /* Perform usual pc-relative correction. */
3026 relocation -= input_section->output_section->vma + input_section->output_offset;
3027 relocation -= address;
3028
3029 /* We are getting reloc_entry->address 2 byte off from
3030 the start of instruction. Assuming absolute postion
3031 of the reloc data. But, following code had been written assuming
3032 reloc address is starting at begining of instruction.
3033 To compensate that I have increased the value of
3034 relocation by 1 (effectively 2) and used the addr -2 instead of addr. */
3035
3036 relocation += 2;
3037 address -= 2;
3038
3039 relocation >>= 1;
3040
3041 x = bfd_get_16 (input_bfd, contents + address);
3042 x = (x & 0xff00) | ((relocation >> 16) & 0xff);
3043 bfd_put_16 (input_bfd, x, contents + address);
3044
3045 x = bfd_get_16 (input_bfd, contents + address + 2);
3046 x = relocation & 0xFFFF;
3047 bfd_put_16 (input_bfd, x, contents + address + 2);
3048 r = bfd_reloc_ok;
3049 }
3050 break;
3051
3052 default:
3053 do_default:
3054 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
3055 contents, address,
3056 relocation, rel->r_addend);
3057
3058 break;
3059 }
3060
3061 /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
3062 because such sections are not SEC_ALLOC and thus ld.so will
3063 not process them. */
3064 if (unresolved_reloc
3065 && !((input_section->flags & SEC_DEBUGGING) != 0 && h->def_dynamic))
3066 {
3067 (*_bfd_error_handler)
3068 (_("%B(%A+0x%lx): unresolvable relocation against symbol `%s'"),
3069 input_bfd,
3070 input_section, (long) rel->r_offset, h->root.root.string);
3071 return FALSE;
3072 }
3073
3074 if (r != bfd_reloc_ok)
3075 {
3076 const char *name;
3077
3078 if (h != NULL)
3079 name = h->root.root.string;
3080 else
3081 {
3082 name = bfd_elf_string_from_elf_section (input_bfd,
3083 symtab_hdr->sh_link,
3084 sym->st_name);
0f64bb02
CM		 3085 if (name == NULL)
3086 return FALSE;
3087 if (*name == '\0')
3088 name = bfd_section_name (input_bfd, sec);
3089 }
3090
48d502e1
BS		 3091 if (r == bfd_reloc_overflow)
3092 {
3093 if (!(info->callbacks->reloc_overflow
3094 (info, (h ? &h->root : NULL), name, howto->name,
3095 (bfd_vma) 0, input_bfd, input_section, rel->r_offset)))
3096 return FALSE;
3097 }
3098 else
3099 {
3100 (*_bfd_error_handler)
3101 (_("%B(%A+0x%lx): reloc against `%s': error %d"),
3102 input_bfd, input_section,
3103 (long) rel->r_offset, name, (int) r);
3104 return FALSE;
3105 }
3106 }
3107 }
3108
3109 return TRUE;
3110}
3111
3112static asection *
3113bfin_gc_mark_hook (asection * sec,
07adf181 3114 struct bfd_link_info *info,
48d502e1
BS		 3115 Elf_Internal_Rela * rel,
3116 struct elf_link_hash_entry *h,
3117 Elf_Internal_Sym * sym)
3118{
3119 if (h != NULL)
07adf181
AM		 3120 switch (ELF32_R_TYPE (rel->r_info))
3121 {
3122 case R_BFIN_GNU_VTINHERIT:
3123 case R_BFIN_GNU_VTENTRY:
3124 return NULL;
3125 }
48d502e1 3126
07adf181 3127 return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
48d502e1
BS		 3128}
3129
3130/* Update the got entry reference counts for the section being removed. */
3131
3132static bfd_boolean
3133bfin_gc_sweep_hook (bfd * abfd,
3134 struct bfd_link_info *info,
3135 asection * sec,
3136 const Elf_Internal_Rela * relocs)
3137{
3138 Elf_Internal_Shdr *symtab_hdr;
3139 struct elf_link_hash_entry **sym_hashes;
3140 bfd_signed_vma *local_got_refcounts;
3141 const Elf_Internal_Rela *rel, *relend;
3142 bfd *dynobj;
3143 asection *sgot;
3144 asection *srelgot;
3145
3146 dynobj = elf_hash_table (info)->dynobj;
3147 if (dynobj == NULL)
3148 return TRUE;
3149
3150 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
3151 sym_hashes = elf_sym_hashes (abfd);
3152 local_got_refcounts = elf_local_got_refcounts (abfd);
3153
3154 sgot = bfd_get_section_by_name (dynobj, ".got");
3155 srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
3156
3157 relend = relocs + sec->reloc_count;
3158 for (rel = relocs; rel < relend; rel++)
3159 {
3160 unsigned long r_symndx;
3161 struct elf_link_hash_entry *h;
3162
3163 switch (ELF32_R_TYPE (rel->r_info))
3164 {
3165 case R_got:
3166 r_symndx = ELF32_R_SYM (rel->r_info);
3167 if (r_symndx >= symtab_hdr->sh_info)
3168 {
3169 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
3170 if (h->got.refcount > 0)
3171 {
3172 --h->got.refcount;
3173 if (h->got.refcount == 0)
3174 {
3175 /* We don't need the .got entry any more. */
3176 sgot->size -= 4;
3177 srelgot->size -= sizeof (Elf32_External_Rela);
3178 }
3179 }
3180 }
3181 else if (local_got_refcounts != NULL)
3182 {
3183 if (local_got_refcounts[r_symndx] > 0)
3184 {
3185 --local_got_refcounts[r_symndx];
3186 if (local_got_refcounts[r_symndx] == 0)
3187 {
3188 /* We don't need the .got entry any more. */
3189 sgot->size -= 4;
3190 if (info->shared)
3191 srelgot->size -= sizeof (Elf32_External_Rela);
3192 }
3193 }
3194 }
3195 break;
3196 default:
3197 break;
3198 }
3199 }
3200 return TRUE;
3201}
3202
3203/* We need dynamic symbols for every section, since segments can
3204 relocate independently. */
3205static bfd_boolean
3206_bfinfdpic_link_omit_section_dynsym (bfd *output_bfd ATTRIBUTE_UNUSED,
3207 struct bfd_link_info *info
3208 ATTRIBUTE_UNUSED,
3209 asection *p ATTRIBUTE_UNUSED)
3210{
3211 switch (elf_section_data (p)->this_hdr.sh_type)
3212 {
3213 case SHT_PROGBITS:
3214 case SHT_NOBITS:
3215 /* If sh_type is yet undecided, assume it could be
3216 SHT_PROGBITS/SHT_NOBITS. */
3217 case SHT_NULL:
3218 return FALSE;
3219
3220 /* There shouldn't be section relative relocations
3221 against any other section. */
3222 default:
3223 return TRUE;
3224 }
3225}
3226
3227/* Create a .got section, as well as its additional info field. This
3228 is almost entirely copied from
3229 elflink.c:_bfd_elf_create_got_section(). */
3230
3231static bfd_boolean
3232_bfin_create_got_section (bfd *abfd, struct bfd_link_info *info)
3233{
3234 flagword flags, pltflags;
3235 asection *s;
3236 struct elf_link_hash_entry *h;
48d502e1
BS		 3237 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
3238 int ptralign;
3239 int offset;
3240
3241 /* This function may be called more than once. */
3242 s = bfd_get_section_by_name (abfd, ".got");
3243 if (s != NULL && (s->flags & SEC_LINKER_CREATED) != 0)
3244 return TRUE;
3245
3246 /* Machine specific: although pointers are 32-bits wide, we want the
3247 GOT to be aligned to a 64-bit boundary, such that function
3248 descriptors in it can be accessed with 64-bit loads and
3249 stores. */
3250 ptralign = 3;
3251
3252 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
3253 | SEC_LINKER_CREATED);
3254 pltflags = flags;
3255
3256 s = bfd_make_section_with_flags (abfd, ".got", flags);
3257 if (s == NULL
3258 || !bfd_set_section_alignment (abfd, s, ptralign))
3259 return FALSE;
3260
3261 if (bed->want_got_plt)
3262 {
3263 s = bfd_make_section_with_flags (abfd, ".got.plt", flags);
3264 if (s == NULL
3265 || !bfd_set_section_alignment (abfd, s, ptralign))
3266 return FALSE;
3267 }
3268
3269 if (bed->want_got_sym)
3270 {
3271 /* Define the symbol _GLOBAL_OFFSET_TABLE_ at the start of the .got
3272 (or .got.plt) section. We don't do this in the linker script
3273 because we don't want to define the symbol if we are not creating
3274 a global offset table. */
5592d7ec 3275 h = _bfd_elf_define_linkage_sym (abfd, info, s, "__GLOBAL_OFFSET_TABLE_");
48d502e1
BS		 3276 elf_hash_table (info)->hgot = h;
3277 if (h == NULL)
3278 return FALSE;
3279
3280 /* Machine-specific: we want the symbol for executables as
3281 well. */
3282 if (! bfd_elf_link_record_dynamic_symbol (info, h))
3283 return FALSE;
3284 }
3285
3286 /* The first bit of the global offset table is the header. */
3287 s->size += bed->got_header_size;
3288
3289 /* This is the machine-specific part. Create and initialize section
3290 data for the got. */
3291 if (IS_FDPIC (abfd))
3292 {
3293 bfinfdpic_got_section (info) = s;
3294 bfinfdpic_relocs_info (info) = htab_try_create (1,
3295 bfinfdpic_relocs_info_hash,
3296 bfinfdpic_relocs_info_eq,
3297 (htab_del) NULL);
3298 if (! bfinfdpic_relocs_info (info))
3299 return FALSE;
3300
3301 s = bfd_make_section_with_flags (abfd, ".rel.got",
3302 (flags | SEC_READONLY));
3303 if (s == NULL
3304 || ! bfd_set_section_alignment (abfd, s, 2))
3305 return FALSE;
3306
3307 bfinfdpic_gotrel_section (info) = s;
3308
3309 /* Machine-specific. */
3310 s = bfd_make_section_with_flags (abfd, ".rofixup",
3311 (flags | SEC_READONLY));
3312 if (s == NULL
3313 || ! bfd_set_section_alignment (abfd, s, 2))
3314 return FALSE;
3315
3316 bfinfdpic_gotfixup_section (info) = s;
3317 offset = -2048;
3318 flags = BSF_GLOBAL;
3319 }
3320 else
3321 {
3322 offset = 2048;
3323 flags = BSF_GLOBAL | BSF_WEAK;
3324 }
3325
48d502e1
BS		 3326 return TRUE;
3327}
3328
3329/* Make sure the got and plt sections exist, and that our pointers in
3330 the link hash table point to them. */
3331
3332static bfd_boolean
3333elf32_bfinfdpic_create_dynamic_sections (bfd *abfd, struct bfd_link_info *info)
3334{
3335 /* This is mostly copied from
3336 elflink.c:_bfd_elf_create_dynamic_sections(). */
3337 flagword flags, pltflags;
3338 asection *s;
3339 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
3340
3341 /* We need to create .plt, .rel[a].plt, .got, .got.plt, .dynbss, and
3342 .rel[a].bss sections. */
3343
3344 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
3345 | SEC_LINKER_CREATED);
3346
3347 pltflags = flags;
3348 pltflags |= SEC_CODE;
3349 if (bed->plt_not_loaded)
3350 pltflags &= ~ (SEC_CODE | SEC_LOAD | SEC_HAS_CONTENTS);
3351 if (bed->plt_readonly)
3352 pltflags |= SEC_READONLY;
3353
117ed4f8 3354 s = bfd_make_section_with_flags (abfd, ".plt", pltflags);
48d502e1 3355 if (s == NULL
48d502e1
BS		 3356 || ! bfd_set_section_alignment (abfd, s, bed->plt_alignment))
3357 return FALSE;
3358 /* Blackfin-specific: remember it. */
3359 bfinfdpic_plt_section (info) = s;
3360
3361 if (bed->want_plt_sym)
3362 {
3363 /* Define the symbol _PROCEDURE_LINKAGE_TABLE_ at the start of the
3364 .plt section. */
3365 struct elf_link_hash_entry *h;
3366 struct bfd_link_hash_entry *bh = NULL;
3367
3368 if (! (_bfd_generic_link_add_one_symbol
5592d7ec 3369 (info, abfd, "__PROCEDURE_LINKAGE_TABLE_", BSF_GLOBAL, s, 0, NULL,
48d502e1
BS		 3370 FALSE, get_elf_backend_data (abfd)->collect, &bh)))
3371 return FALSE;
3372 h = (struct elf_link_hash_entry *) bh;
3373 h->def_regular = 1;
3374 h->type = STT_OBJECT;
3375
3376 if (! info->executable
3377 && ! bfd_elf_link_record_dynamic_symbol (info, h))
3378 return FALSE;
3379 }
3380
3381 /* Blackfin-specific: we want rel relocations for the plt. */
117ed4f8 3382 s = bfd_make_section_with_flags (abfd, ".rel.plt", flags | SEC_READONLY);
48d502e1 3383 if (s == NULL
48d502e1
BS		 3384 || ! bfd_set_section_alignment (abfd, s, bed->s->log_file_align))
3385 return FALSE;
3386 /* Blackfin-specific: remember it. */
3387 bfinfdpic_pltrel_section (info) = s;
3388
3389 /* Blackfin-specific: we want to create the GOT in the Blackfin way. */
3390 if (! _bfin_create_got_section (abfd, info))
3391 return FALSE;
3392
3393 /* Blackfin-specific: make sure we created everything we wanted. */
3394 BFD_ASSERT (bfinfdpic_got_section (info) && bfinfdpic_gotrel_section (info)
3395 /* && bfinfdpic_gotfixup_section (info) */
3396 && bfinfdpic_plt_section (info)
3397 && bfinfdpic_pltrel_section (info));
3398
3399 if (bed->want_dynbss)
3400 {
3401 /* The .dynbss section is a place to put symbols which are defined
3402 by dynamic objects, are referenced by regular objects, and are
3403 not functions. We must allocate space for them in the process
3404 image and use a R_*_COPY reloc to tell the dynamic linker to
3405 initialize them at run time. The linker script puts the .dynbss
3406 section into the .bss section of the final image. */
117ed4f8
AM		 3407 s = bfd_make_section_with_flags (abfd, ".dynbss",
3408 SEC_ALLOC | SEC_LINKER_CREATED);
3409 if (s == NULL)
48d502e1
BS		 3410 return FALSE;
3411
3412 /* The .rel[a].bss section holds copy relocs. This section is not
3413 normally needed. We need to create it here, though, so that the
3414 linker will map it to an output section. We can't just create it
3415 only if we need it, because we will not know whether we need it
3416 until we have seen all the input files, and the first time the
3417 main linker code calls BFD after examining all the input files
3418 (size_dynamic_sections) the input sections have already been
3419 mapped to the output sections. If the section turns out not to
3420 be needed, we can discard it later. We will never need this
3421 section when generating a shared object, since they do not use
3422 copy relocs. */
3423 if (! info->shared)
3424 {
117ed4f8
AM		 3425 s = bfd_make_section_with_flags (abfd,
3426 (bed->default_use_rela_p
3427 ? ".rela.bss" : ".rel.bss"),
3428 flags | SEC_READONLY);
48d502e1 3429 if (s == NULL
48d502e1
BS		 3430 || ! bfd_set_section_alignment (abfd, s, bed->s->log_file_align))
3431 return FALSE;
3432 }
3433 }
3434
3435 return TRUE;
3436}
3437
3438/* The name of the dynamic interpreter. This is put in the .interp
3439 section. */
3440
3441#define ELF_DYNAMIC_INTERPRETER "/lib/ld.so.1"
3442
3443#define DEFAULT_STACK_SIZE 0x20000
3444
3445/* This structure is used to collect the number of entries present in
3446 each addressable range of the got. */
3447struct _bfinfdpic_dynamic_got_info
3448{
3449 /* Several bits of information about the current link. */
3450 struct bfd_link_info *info;
3451 /* Total size needed for GOT entries within the 18- or 32-bit
3452 ranges. */
3453 bfd_vma got17m4, gothilo;
3454 /* Total size needed for function descriptor entries within the 18-
3455 or 32-bit ranges. */
3456 bfd_vma fd17m4, fdhilo;
3457 /* Total size needed function descriptor entries referenced in PLT
3458 entries, that would be profitable to place in offsets close to
3459 the PIC register. */
3460 bfd_vma fdplt;
3461 /* Total size needed by lazy PLT entries. */
3462 bfd_vma lzplt;
3463 /* Number of relocations carried over from input object files. */
3464 unsigned long relocs;
3465 /* Number of fixups introduced by relocations in input object files. */
3466 unsigned long fixups;
3467};
3468
3469/* Compute the total GOT size required by each symbol in each range.
3470 Symbols may require up to 4 words in the GOT: an entry pointing to
3471 the symbol, an entry pointing to its function descriptor, and a
3472 private function descriptors taking two words. */
3473
3474static int
3475_bfinfdpic_count_got_plt_entries (void **entryp, void *dinfo_)
3476{
3477 struct bfinfdpic_relocs_info *entry = *entryp;
3478 struct _bfinfdpic_dynamic_got_info *dinfo = dinfo_;
3479 unsigned relocs = 0, fixups = 0;
3480
3481 /* Allocate space for a GOT entry pointing to the symbol. */
3482 if (entry->got17m4)
3483 dinfo->got17m4 += 4;
3484 else if (entry->gothilo)
3485 dinfo->gothilo += 4;
3486 else
3487 entry->relocs32--;
3488 entry->relocs32++;
3489
3490 /* Allocate space for a GOT entry pointing to the function
3491 descriptor. */
3492 if (entry->fdgot17m4)
3493 dinfo->got17m4 += 4;
3494 else if (entry->fdgothilo)
3495 dinfo->gothilo += 4;
3496 else
3497 entry->relocsfd--;
3498 entry->relocsfd++;
3499
3500 /* Decide whether we need a PLT entry, a function descriptor in the
3501 GOT, and a lazy PLT entry for this symbol. */
3502 entry->plt = entry->call
3503 && entry->symndx == -1 && ! BFINFDPIC_SYM_LOCAL (dinfo->info, entry->d.h)
3504 && elf_hash_table (dinfo->info)->dynamic_sections_created;
3505 entry->privfd = entry->plt
3506 || entry->fdgoff17m4 || entry->fdgoffhilo
3507 || ((entry->fd || entry->fdgot17m4 || entry->fdgothilo)
3508 && (entry->symndx != -1
3509 || BFINFDPIC_FUNCDESC_LOCAL (dinfo->info, entry->d.h)));
3510 entry->lazyplt = entry->privfd
3511 && entry->symndx == -1 && ! BFINFDPIC_SYM_LOCAL (dinfo->info, entry->d.h)
3512 && ! (dinfo->info->flags & DF_BIND_NOW)
3513 && elf_hash_table (dinfo->info)->dynamic_sections_created;
3514
3515 /* Allocate space for a function descriptor. */
3516 if (entry->fdgoff17m4)
3517 dinfo->fd17m4 += 8;
3518 else if (entry->privfd && entry->plt)
3519 dinfo->fdplt += 8;
3520 else if (entry->privfd)
3521 dinfo->fdhilo += 8;
3522 else
3523 entry->relocsfdv--;
3524 entry->relocsfdv++;
3525
3526 if (entry->lazyplt)
3527 dinfo->lzplt += LZPLT_NORMAL_SIZE;
3528
3529 if (!dinfo->info->executable || dinfo->info->pie)
3530 relocs = entry->relocs32 + entry->relocsfd + entry->relocsfdv;
3531 else
3532 {
3533 if (entry->symndx != -1 || BFINFDPIC_SYM_LOCAL (dinfo->info, entry->d.h))
3534 {
3535 if (entry->symndx != -1
3536 || entry->d.h->root.type != bfd_link_hash_undefweak)
3537 fixups += entry->relocs32 + 2 * entry->relocsfdv;
3538 }
3539 else
3540 relocs += entry->relocs32 + entry->relocsfdv;
3541
3542 if (entry->symndx != -1
3543 || BFINFDPIC_FUNCDESC_LOCAL (dinfo->info, entry->d.h))
3544 {
3545 if (entry->symndx != -1
3546 || entry->d.h->root.type != bfd_link_hash_undefweak)
3547 fixups += entry->relocsfd;
3548 }
3549 else
3550 relocs += entry->relocsfd;
3551 }
3552
3553 entry->dynrelocs += relocs;
3554 entry->fixups += fixups;
3555 dinfo->relocs += relocs;
3556 dinfo->fixups += fixups;
3557
3558 return 1;
3559}
3560
3561/* This structure is used to assign offsets to got entries, function
3562 descriptors, plt entries and lazy plt entries. */
3563
3564struct _bfinfdpic_dynamic_got_plt_info
3565{
3566 /* Summary information collected with _bfinfdpic_count_got_plt_entries. */
3567 struct _bfinfdpic_dynamic_got_info g;
3568
3569 /* For each addressable range, we record a MAX (positive) and MIN
3570 (negative) value. CUR is used to assign got entries, and it's
3571 incremented from an initial positive value to MAX, then from MIN
3572 to FDCUR (unless FDCUR wraps around first). FDCUR is used to
3573 assign function descriptors, and it's decreased from an initial
3574 non-positive value to MIN, then from MAX down to CUR (unless CUR
3575 wraps around first). All of MIN, MAX, CUR and FDCUR always point
3576 to even words. ODD, if non-zero, indicates an odd word to be
3577 used for the next got entry, otherwise CUR is used and
3578 incremented by a pair of words, wrapping around when it reaches
3579 MAX. FDCUR is decremented (and wrapped) before the next function
3580 descriptor is chosen. FDPLT indicates the number of remaining
3581 slots that can be used for function descriptors used only by PLT
3582 entries. */
3583 struct _bfinfdpic_dynamic_got_alloc_data
3584 {
3585 bfd_signed_vma max, cur, odd, fdcur, min;
3586 bfd_vma fdplt;
3587 } got17m4, gothilo;
3588};
3589
3590/* Determine the positive and negative ranges to be used by each
3591 offset range in the GOT. FDCUR and CUR, that must be aligned to a
3592 double-word boundary, are the minimum (negative) and maximum
3593 (positive) GOT offsets already used by previous ranges, except for
3594 an ODD entry that may have been left behind. GOT and FD indicate
3595 the size of GOT entries and function descriptors that must be
3596 placed within the range from -WRAP to WRAP. If there's room left,
3597 up to FDPLT bytes should be reserved for additional function
3598 descriptors. */
3599
3600inline static bfd_signed_vma
3601_bfinfdpic_compute_got_alloc_data (struct _bfinfdpic_dynamic_got_alloc_data *gad,
3602 bfd_signed_vma fdcur,
3603 bfd_signed_vma odd,
3604 bfd_signed_vma cur,
3605 bfd_vma got,
3606 bfd_vma fd,
3607 bfd_vma fdplt,
3608 bfd_vma wrap)
3609{
3610 bfd_signed_vma wrapmin = -wrap;
3611
3612 /* Start at the given initial points. */
3613 gad->fdcur = fdcur;
3614 gad->cur = cur;
3615
3616 /* If we had an incoming odd word and we have any got entries that
3617 are going to use it, consume it, otherwise leave gad->odd at
3618 zero. We might force gad->odd to zero and return the incoming
3619 odd such that it is used by the next range, but then GOT entries
3620 might appear to be out of order and we wouldn't be able to
3621 shorten the GOT by one word if it turns out to end with an
3622 unpaired GOT entry. */
3623 if (odd && got)
3624 {
3625 gad->odd = odd;
3626 got -= 4;
3627 odd = 0;
3628 }
3629 else
3630 gad->odd = 0;
3631
3632 /* If we're left with an unpaired GOT entry, compute its location
3633 such that we can return it. Otherwise, if got doesn't require an
3634 odd number of words here, either odd was already zero in the
3635 block above, or it was set to zero because got was non-zero, or
3636 got was already zero. In the latter case, we want the value of
3637 odd to carry over to the return statement, so we don't want to
3638 reset odd unless the condition below is true. */
3639 if (got & 4)
3640 {
3641 odd = cur + got;
3642 got += 4;
3643 }
3644
3645 /* Compute the tentative boundaries of this range. */
3646 gad->max = cur + got;
3647 gad->min = fdcur - fd;
3648 gad->fdplt = 0;
3649
3650 /* If function descriptors took too much space, wrap some of them
3651 around. */
3652 if (gad->min < wrapmin)
3653 {
3654 gad->max += wrapmin - gad->min;
3655 gad->min = wrapmin;
3656 }
3657 /* If there is space left and we have function descriptors
3658 referenced in PLT entries that could take advantage of shorter
3659 offsets, place them here. */
3660 else if (fdplt && gad->min > wrapmin)
3661 {
3662 bfd_vma fds;
3663 if ((bfd_vma) (gad->min - wrapmin) < fdplt)
3664 fds = gad->min - wrapmin;
3665 else
3666 fds = fdplt;
3667
3668 fdplt -= fds;
3669 gad->min -= fds;
3670 gad->fdplt += fds;
3671 }
3672
3673 /* If GOT entries took too much space, wrap some of them around.
3674 This may well cause gad->min to become lower than wrapmin. This
3675 will cause a relocation overflow later on, so we don't have to
3676 report it here . */
3677 if ((bfd_vma) gad->max > wrap)
3678 {
3679 gad->min -= gad->max - wrap;
3680 gad->max = wrap;
3681 }
3682 /* If there is more space left, try to place some more function
3683 descriptors for PLT entries. */
3684 else if (fdplt && (bfd_vma) gad->max < wrap)
3685 {
3686 bfd_vma fds;
3687 if ((bfd_vma) (wrap - gad->max) < fdplt)
3688 fds = wrap - gad->max;
3689 else
3690 fds = fdplt;
3691
3692 fdplt -= fds;
3693 gad->max += fds;
3694 gad->fdplt += fds;
3695 }
3696
3697 /* If odd was initially computed as an offset past the wrap point,
3698 wrap it around. */
3699 if (odd > gad->max)
3700 odd = gad->min + odd - gad->max;
3701
3702 /* _bfinfdpic_get_got_entry() below will always wrap gad->cur if needed
3703 before returning, so do it here too. This guarantees that,
3704 should cur and fdcur meet at the wrap point, they'll both be
3705 equal to min. */
3706 if (gad->cur == gad->max)
3707 gad->cur = gad->min;
3708
3709 return odd;
3710}
3711
3712/* Compute the location of the next GOT entry, given the allocation
3713 data for a range. */
3714
3715inline static bfd_signed_vma
3716_bfinfdpic_get_got_entry (struct _bfinfdpic_dynamic_got_alloc_data *gad)
3717{
3718 bfd_signed_vma ret;
3719
3720 if (gad->odd)
3721 {
3722 /* If there was an odd word left behind, use it. */
3723 ret = gad->odd;
3724 gad->odd = 0;
3725 }
3726 else
3727 {
3728 /* Otherwise, use the word pointed to by cur, reserve the next
3729 as an odd word, and skip to the next pair of words, possibly
3730 wrapping around. */
3731 ret = gad->cur;
3732 gad->odd = gad->cur + 4;
3733 gad->cur += 8;
3734 if (gad->cur == gad->max)
3735 gad->cur = gad->min;
3736 }
3737
3738 return ret;
3739}
3740
3741/* Compute the location of the next function descriptor entry in the
3742 GOT, given the allocation data for a range. */
3743
3744inline static bfd_signed_vma
3745_bfinfdpic_get_fd_entry (struct _bfinfdpic_dynamic_got_alloc_data *gad)
3746{
3747 /* If we're at the bottom, wrap around, and only then allocate the
3748 next pair of words. */
3749 if (gad->fdcur == gad->min)
3750 gad->fdcur = gad->max;
3751 return gad->fdcur -= 8;
3752}
3753
3754/* Assign GOT offsets for every GOT entry and function descriptor.
3755 Doing everything in a single pass is tricky. */
3756
3757static int
3758_bfinfdpic_assign_got_entries (void **entryp, void *info_)
3759{
3760 struct bfinfdpic_relocs_info *entry = *entryp;
3761 struct _bfinfdpic_dynamic_got_plt_info *dinfo = info_;
3762
3763 if (entry->got17m4)
3764 entry->got_entry = _bfinfdpic_get_got_entry (&dinfo->got17m4);
3765 else if (entry->gothilo)
3766 entry->got_entry = _bfinfdpic_get_got_entry (&dinfo->gothilo);
3767
3768 if (entry->fdgot17m4)
3769 entry->fdgot_entry = _bfinfdpic_get_got_entry (&dinfo->got17m4);
3770 else if (entry->fdgothilo)
3771 entry->fdgot_entry = _bfinfdpic_get_got_entry (&dinfo->gothilo);
3772
3773 if (entry->fdgoff17m4)
3774 entry->fd_entry = _bfinfdpic_get_fd_entry (&dinfo->got17m4);
3775 else if (entry->plt && dinfo->got17m4.fdplt)
3776 {
3777 dinfo->got17m4.fdplt -= 8;
3778 entry->fd_entry = _bfinfdpic_get_fd_entry (&dinfo->got17m4);
3779 }
3780 else if (entry->plt)
3781 {
3782 dinfo->gothilo.fdplt -= 8;
3783 entry->fd_entry = _bfinfdpic_get_fd_entry (&dinfo->gothilo);
3784 }
3785 else if (entry->privfd)
3786 entry->fd_entry = _bfinfdpic_get_fd_entry (&dinfo->gothilo);
3787
3788 return 1;
3789}
3790
3791/* Assign GOT offsets to private function descriptors used by PLT
3792 entries (or referenced by 32-bit offsets), as well as PLT entries
3793 and lazy PLT entries. */
3794
3795static int
3796_bfinfdpic_assign_plt_entries (void **entryp, void *info_)
3797{
3798 struct bfinfdpic_relocs_info *entry = *entryp;
3799 struct _bfinfdpic_dynamic_got_plt_info *dinfo = info_;
3800
3801 /* If this symbol requires a local function descriptor, allocate
3802 one. */
3803 if (entry->privfd && entry->fd_entry == 0)
3804 {
3805 if (dinfo->got17m4.fdplt)
3806 {
3807 entry->fd_entry = _bfinfdpic_get_fd_entry (&dinfo->got17m4);
3808 dinfo->got17m4.fdplt -= 8;
3809 }
3810 else
3811 {
3812 BFD_ASSERT (dinfo->gothilo.fdplt);
3813 entry->fd_entry = _bfinfdpic_get_fd_entry (&dinfo->gothilo);
3814 dinfo->gothilo.fdplt -= 8;
3815 }
3816 }
3817
3818 if (entry->plt)
3819 {
3820 int size;
3821
3822 /* We use the section's raw size to mark the location of the
3823 next PLT entry. */
3824 entry->plt_entry = bfinfdpic_plt_section (dinfo->g.info)->size;
3825
3826 /* Figure out the length of this PLT entry based on the
3827 addressing mode we need to reach the function descriptor. */
3828 BFD_ASSERT (entry->fd_entry);
3829 if (entry->fd_entry >= -(1 << (18 - 1))
3830 && entry->fd_entry + 4 < (1 << (18 - 1)))
3831 size = 10;
3832 else
3833 size = 16;
3834
3835 bfinfdpic_plt_section (dinfo->g.info)->size += size;
3836 }
3837
3838 if (entry->lazyplt)
3839 {
3840 entry->lzplt_entry = dinfo->g.lzplt;
3841 dinfo->g.lzplt += LZPLT_NORMAL_SIZE;
3842 /* If this entry is the one that gets the resolver stub, account
3843 for the additional instruction. */
3844 if (entry->lzplt_entry % BFINFDPIC_LZPLT_BLOCK_SIZE
3845 == BFINFDPIC_LZPLT_RESOLV_LOC)
3846 dinfo->g.lzplt += LZPLT_RESOLVER_EXTRA;
3847 }
3848
3849 return 1;
3850}
3851
3852/* Follow indirect and warning hash entries so that each got entry
3853 points to the final symbol definition. P must point to a pointer
3854 to the hash table we're traversing. Since this traversal may
3855 modify the hash table, we set this pointer to NULL to indicate
3856 we've made a potentially-destructive change to the hash table, so
3857 the traversal must be restarted. */
3858static int
3859_bfinfdpic_resolve_final_relocs_info (void **entryp, void *p)
3860{
3861 struct bfinfdpic_relocs_info *entry = *entryp;
3862 htab_t *htab = p;
3863
3864 if (entry->symndx == -1)
3865 {
3866 struct elf_link_hash_entry *h = entry->d.h;
3867 struct bfinfdpic_relocs_info *oentry;
3868
3869 while (h->root.type == bfd_link_hash_indirect
3870 || h->root.type == bfd_link_hash_warning)
3871 h = (struct elf_link_hash_entry *)h->root.u.i.link;
3872
3873 if (entry->d.h == h)
3874 return 1;
3875
3876 oentry = bfinfdpic_relocs_info_for_global (*htab, 0, h, entry->addend,
3877 NO_INSERT);
3878
3879 if (oentry)
3880 {
3881 /* Merge the two entries. */
3882 bfinfdpic_pic_merge_early_relocs_info (oentry, entry);
3883 htab_clear_slot (*htab, entryp);
3884 return 1;
3885 }
3886
3887 entry->d.h = h;
3888
3889 /* If we can't find this entry with the new bfd hash, re-insert
3890 it, and get the traversal restarted. */
3891 if (! htab_find (*htab, entry))
3892 {
3893 htab_clear_slot (*htab, entryp);
3894 entryp = htab_find_slot (*htab, entry, INSERT);
3895 if (! *entryp)
3896 *entryp = entry;
3897 /* Abort the traversal, since the whole table may have
3898 moved, and leave it up to the parent to restart the
3899 process. */
3900 *(htab_t *)p = NULL;
3901 return 0;
3902 }
3903 }
3904
3905 return 1;
3906}
3907
3908/* Set the sizes of the dynamic sections. */
3909
3910static bfd_boolean
3911elf32_bfinfdpic_size_dynamic_sections (bfd *output_bfd,
3912 struct bfd_link_info *info)
3913{
3914 bfd *dynobj;
3915 asection *s;
3916 struct _bfinfdpic_dynamic_got_plt_info gpinfo;
3917 bfd_signed_vma odd;
3918 bfd_vma limit;
3919
3920 dynobj = elf_hash_table (info)->dynobj;
3921 BFD_ASSERT (dynobj != NULL);
3922
3923 if (elf_hash_table (info)->dynamic_sections_created)
3924 {
3925 /* Set the contents of the .interp section to the interpreter. */
3926 if (info->executable)
3927 {
3928 s = bfd_get_section_by_name (dynobj, ".interp");
3929 BFD_ASSERT (s != NULL);
3930 s->size = sizeof ELF_DYNAMIC_INTERPRETER;
3931 s->contents = (bfd_byte *) ELF_DYNAMIC_INTERPRETER;
3932 }
3933 }
3934
3935 memset (&gpinfo, 0, sizeof (gpinfo));
3936 gpinfo.g.info = info;
3937
3938 for (;;)
3939 {
3940 htab_t relocs = bfinfdpic_relocs_info (info);
3941
3942 htab_traverse (relocs, _bfinfdpic_resolve_final_relocs_info, &relocs);
3943
3944 if (relocs == bfinfdpic_relocs_info (info))
3945 break;
3946 }
3947
3948 htab_traverse (bfinfdpic_relocs_info (info), _bfinfdpic_count_got_plt_entries,
3949 &gpinfo.g);
3950
3951 odd = 12;
3952 /* Compute the total size taken by entries in the 18-bit range,
3953 to tell how many PLT function descriptors we can bring into it
3954 without causing it to overflow. */
3955 limit = odd + gpinfo.g.got17m4 + gpinfo.g.fd17m4;
3956 if (limit < (bfd_vma)1 << 18)
3957 limit = ((bfd_vma)1 << 18) - limit;
3958 else
3959 limit = 0;
3960 if (gpinfo.g.fdplt < limit)
3961 limit = gpinfo.g.fdplt;
3962
3963 /* Determine the ranges of GOT offsets that we can use for each
3964 range of addressing modes. */
3965 odd = _bfinfdpic_compute_got_alloc_data (&gpinfo.got17m4,
3966 0,
3967 odd,
3968 16,
3969 gpinfo.g.got17m4,
3970 gpinfo.g.fd17m4,
3971 limit,
3972 (bfd_vma)1 << (18-1));
3973 odd = _bfinfdpic_compute_got_alloc_data (&gpinfo.gothilo,
3974 gpinfo.got17m4.min,
3975 odd,
3976 gpinfo.got17m4.max,
3977 gpinfo.g.gothilo,
3978 gpinfo.g.fdhilo,
3979 gpinfo.g.fdplt - gpinfo.got17m4.fdplt,
3980 (bfd_vma)1 << (32-1));
3981
3982 /* Now assign (most) GOT offsets. */
3983 htab_traverse (bfinfdpic_relocs_info (info), _bfinfdpic_assign_got_entries,
3984 &gpinfo);
3985
3986 bfinfdpic_got_section (info)->size = gpinfo.gothilo.max
3987 - gpinfo.gothilo.min
3988 /* If an odd word is the last word of the GOT, we don't need this
3989 word to be part of the GOT. */
3990 - (odd + 4 == gpinfo.gothilo.max ? 4 : 0);
3991 if (bfinfdpic_got_section (info)->size == 0)
3992 bfinfdpic_got_section (info)->flags |= SEC_EXCLUDE;
3993 else if (bfinfdpic_got_section (info)->size == 12
3994 && ! elf_hash_table (info)->dynamic_sections_created)
3995 {
3996 bfinfdpic_got_section (info)->flags |= SEC_EXCLUDE;
3997 bfinfdpic_got_section (info)->size = 0;
3998 }
3999 else
4000 {
4001 bfinfdpic_got_section (info)->contents =
4002 (bfd_byte *) bfd_zalloc (dynobj,
4003 bfinfdpic_got_section (info)->size);
4004 if (bfinfdpic_got_section (info)->contents == NULL)
4005 return FALSE;
4006 }
4007
4008 if (elf_hash_table (info)->dynamic_sections_created)
4009 /* Subtract the number of lzplt entries, since those will generate
4010 relocations in the pltrel section. */
4011 bfinfdpic_gotrel_section (info)->size =
4012 (gpinfo.g.relocs - gpinfo.g.lzplt / LZPLT_NORMAL_SIZE)
4013 * get_elf_backend_data (output_bfd)->s->sizeof_rel;
4014 else
4015 BFD_ASSERT (gpinfo.g.relocs == 0);
4016 if (bfinfdpic_gotrel_section (info)->size == 0)
4017 bfinfdpic_gotrel_section (info)->flags |= SEC_EXCLUDE;
4018 else
4019 {
4020 bfinfdpic_gotrel_section (info)->contents =
4021 (bfd_byte *) bfd_zalloc (dynobj,
4022 bfinfdpic_gotrel_section (info)->size);
4023 if (bfinfdpic_gotrel_section (info)->contents == NULL)
4024 return FALSE;
4025 }
4026
4027 bfinfdpic_gotfixup_section (info)->size = (gpinfo.g.fixups + 1) * 4;
4028 if (bfinfdpic_gotfixup_section (info)->size == 0)
4029 bfinfdpic_gotfixup_section (info)->flags |= SEC_EXCLUDE;
4030 else
4031 {
4032 bfinfdpic_gotfixup_section (info)->contents =
4033 (bfd_byte *) bfd_zalloc (dynobj,
4034 bfinfdpic_gotfixup_section (info)->size);
4035 if (bfinfdpic_gotfixup_section (info)->contents == NULL)
4036 return FALSE;
4037 }
4038
4039 if (elf_hash_table (info)->dynamic_sections_created)
4040 {
4041 bfinfdpic_pltrel_section (info)->size =
4042 gpinfo.g.lzplt / LZPLT_NORMAL_SIZE * get_elf_backend_data (output_bfd)->s->sizeof_rel;
4043 if (bfinfdpic_pltrel_section (info)->size == 0)
4044 bfinfdpic_pltrel_section (info)->flags |= SEC_EXCLUDE;
4045 else
4046 {
4047 bfinfdpic_pltrel_section (info)->contents =
4048 (bfd_byte *) bfd_zalloc (dynobj,
4049 bfinfdpic_pltrel_section (info)->size);
4050 if (bfinfdpic_pltrel_section (info)->contents == NULL)
4051 return FALSE;
4052 }
4053 }
4054
4055 /* Add 4 bytes for every block of at most 65535 lazy PLT entries,
4056 such that there's room for the additional instruction needed to
4057 call the resolver. Since _bfinfdpic_assign_got_entries didn't
4058 account for them, our block size is 4 bytes smaller than the real
4059 block size. */
4060 if (elf_hash_table (info)->dynamic_sections_created)
4061 {
4062 bfinfdpic_plt_section (info)->size = gpinfo.g.lzplt
4063 + ((gpinfo.g.lzplt + (BFINFDPIC_LZPLT_BLOCK_SIZE - 4) - LZPLT_NORMAL_SIZE)
4064 / (BFINFDPIC_LZPLT_BLOCK_SIZE - 4) * LZPLT_RESOLVER_EXTRA);
4065 }
4066
4067 /* Reset it, such that _bfinfdpic_assign_plt_entries() can use it to
4068 actually assign lazy PLT entries addresses. */
4069 gpinfo.g.lzplt = 0;
4070
4071 /* Save information that we're going to need to generate GOT and PLT
4072 entries. */
4073 bfinfdpic_got_initial_offset (info) = -gpinfo.gothilo.min;
4074
4075 if (get_elf_backend_data (output_bfd)->want_got_sym)
4076 elf_hash_table (info)->hgot->root.u.def.value
4077 += bfinfdpic_got_initial_offset (info);
4078
4079 if (elf_hash_table (info)->dynamic_sections_created)
4080 bfinfdpic_plt_initial_offset (info) =
4081 bfinfdpic_plt_section (info)->size;
4082
4083 htab_traverse (bfinfdpic_relocs_info (info), _bfinfdpic_assign_plt_entries,
4084 &gpinfo);
4085
4086 /* Allocate the PLT section contents only after
4087 _bfinfdpic_assign_plt_entries has a chance to add the size of the
4088 non-lazy PLT entries. */
4089 if (elf_hash_table (info)->dynamic_sections_created)
4090 {
4091 if (bfinfdpic_plt_section (info)->size == 0)
4092 bfinfdpic_plt_section (info)->flags |= SEC_EXCLUDE;
4093 else
4094 {
4095 bfinfdpic_plt_section (info)->contents =
4096 (bfd_byte *) bfd_zalloc (dynobj,
4097 bfinfdpic_plt_section (info)->size);
4098 if (bfinfdpic_plt_section (info)->contents == NULL)
4099 return FALSE;
4100 }
4101 }
4102
4103 if (elf_hash_table (info)->dynamic_sections_created)
4104 {
4105 if (bfinfdpic_got_section (info)->size)
4106 if (!_bfd_elf_add_dynamic_entry (info, DT_PLTGOT, 0))
4107 return FALSE;
4108
4109 if (bfinfdpic_pltrel_section (info)->size)
4110 if (!_bfd_elf_add_dynamic_entry (info, DT_PLTRELSZ, 0)
4111 || !_bfd_elf_add_dynamic_entry (info, DT_PLTREL, DT_REL)
4112 || !_bfd_elf_add_dynamic_entry (info, DT_JMPREL, 0))
4113 return FALSE;
4114
4115 if (bfinfdpic_gotrel_section (info)->size)
4116 if (!_bfd_elf_add_dynamic_entry (info, DT_REL, 0)
4117 || !_bfd_elf_add_dynamic_entry (info, DT_RELSZ, 0)
4118 || !_bfd_elf_add_dynamic_entry (info, DT_RELENT,
4119 sizeof (Elf32_External_Rel)))
4120 return FALSE;
4121 }
4122
4123 return TRUE;
4124}
4125
4126static bfd_boolean
4127elf32_bfinfdpic_always_size_sections (bfd *output_bfd,
4128 struct bfd_link_info *info)
4129{
4130 if (!info->relocatable)
4131 {
4132 struct elf_link_hash_entry *h;
48d502e1
BS		 4133
4134 /* Force a PT_GNU_STACK segment to be created. */
4135 if (! elf_tdata (output_bfd)->stack_flags)
4136 elf_tdata (output_bfd)->stack_flags = PF_R | PF_W | PF_X;
4137
4138 /* Define __stacksize if it's not defined yet. */
4139 h = elf_link_hash_lookup (elf_hash_table (info), "__stacksize",
4140 FALSE, FALSE, FALSE);
4141 if (! h || h->root.type != bfd_link_hash_defined
4142 || h->type != STT_OBJECT
4143 || !h->def_regular)
4144 {
4145 struct bfd_link_hash_entry *bh = NULL;
4146
4147 if (!(_bfd_generic_link_add_one_symbol
4148 (info, output_bfd, "__stacksize",
4149 BSF_GLOBAL, bfd_abs_section_ptr, DEFAULT_STACK_SIZE,
4150 (const char *) NULL, FALSE,
4151 get_elf_backend_data (output_bfd)->collect, &bh)))
4152 return FALSE;
4153
4154 h = (struct elf_link_hash_entry *) bh;
4155 h->def_regular = 1;
4156 h->type = STT_OBJECT;
4157 }
48d502e1
BS		 4158 }
4159
4160 return TRUE;
4161}
4162
4163static bfd_boolean
e36284ab
AM		 4164elf32_bfinfdpic_modify_program_headers (bfd *output_bfd,
4165 struct bfd_link_info *info)
48d502e1 4166{
e36284ab 4167 struct elf_obj_tdata *tdata = elf_tdata (output_bfd);
48d502e1 4168 struct elf_segment_map *m;
e36284ab 4169 Elf_Internal_Phdr *p;
48d502e1
BS		 4170
4171 /* objcopy and strip preserve what's already there using
4172 elf32_bfinfdpic_copy_private_bfd_data (). */
4173 if (! info)
4174 return TRUE;
4175
e36284ab 4176 for (p = tdata->phdr, m = tdata->segment_map; m != NULL; m = m->next, p++)
48d502e1
BS		 4177 if (m->p_type == PT_GNU_STACK)
4178 break;
4179
4180 if (m)
4181 {
48d502e1
BS		 4182 struct elf_link_hash_entry *h;
4183
e36284ab
AM		 4184 /* Obtain the pointer to the __stacksize symbol. */
4185 h = elf_link_hash_lookup (elf_hash_table (info), "__stacksize",
4186 FALSE, FALSE, FALSE);
4187 if (h)
48d502e1 4188 {
48d502e1
BS		 4189 while (h->root.type == bfd_link_hash_indirect
4190 || h->root.type == bfd_link_hash_warning)
e36284ab 4191 h = (struct elf_link_hash_entry *) h->root.u.i.link;
48d502e1 4192 BFD_ASSERT (h->root.type == bfd_link_hash_defined);
e36284ab 4193 }
48d502e1 4194
e36284ab
AM		 4195 /* Set the header p_memsz from the symbol value. We
4196 intentionally ignore the symbol section. */
4197 if (h && h->root.type == bfd_link_hash_defined)
4198 p->p_memsz = h->root.u.def.value;
4199 else
4200 p->p_memsz = DEFAULT_STACK_SIZE;
48d502e1 4201
e36284ab 4202 p->p_align = 8;
48d502e1
BS		 4203 }
4204
4205 return TRUE;
4206}
4207
4208static bfd_boolean
4209elf32_bfinfdpic_finish_dynamic_sections (bfd *output_bfd,
4210 struct bfd_link_info *info)
4211{
4212 bfd *dynobj;
4213 asection *sdyn;
4214
4215 dynobj = elf_hash_table (info)->dynobj;
4216
4217 if (bfinfdpic_got_section (info))
4218 {
4219 BFD_ASSERT (bfinfdpic_gotrel_section (info)->size
4220 == (bfinfdpic_gotrel_section (info)->reloc_count
4221 * sizeof (Elf32_External_Rel)));
4222
4223 if (bfinfdpic_gotfixup_section (info))
4224 {
4225 struct elf_link_hash_entry *hgot = elf_hash_table (info)->hgot;
4226 bfd_vma got_value = hgot->root.u.def.value
4227 + hgot->root.u.def.section->output_section->vma
4228 + hgot->root.u.def.section->output_offset;
4229
4230 _bfinfdpic_add_rofixup (output_bfd, bfinfdpic_gotfixup_section (info),
4231 got_value, 0);
4232
4233 if (bfinfdpic_gotfixup_section (info)->size
4234 != (bfinfdpic_gotfixup_section (info)->reloc_count * 4))
0f64bb02
CM		 4235 {
4236 (*_bfd_error_handler)
48d502e1 4237 ("LINKER BUG: .rofixup section size mismatch");
0f64bb02
CM		 4238 return FALSE;
4239 }
4240 }
4241 }
48d502e1
BS		 4242 if (elf_hash_table (info)->dynamic_sections_created)
4243 {
4244 BFD_ASSERT (bfinfdpic_pltrel_section (info)->size
4245 == (bfinfdpic_pltrel_section (info)->reloc_count
4246 * sizeof (Elf32_External_Rel)));
4247 }
4248
4249 sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
4250
4251 if (elf_hash_table (info)->dynamic_sections_created)
4252 {
4253 Elf32_External_Dyn * dyncon;
4254 Elf32_External_Dyn * dynconend;
4255
4256 BFD_ASSERT (sdyn != NULL);
4257
4258 dyncon = (Elf32_External_Dyn *) sdyn->contents;
4259 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
4260
4261 for (; dyncon < dynconend; dyncon++)
4262 {
4263 Elf_Internal_Dyn dyn;
4264
4265 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
4266
4267 switch (dyn.d_tag)
4268 {
4269 default:
4270 break;
4271
4272 case DT_PLTGOT:
4273 dyn.d_un.d_ptr = bfinfdpic_got_section (info)->output_section->vma
4274 + bfinfdpic_got_section (info)->output_offset
4275 + bfinfdpic_got_initial_offset (info);
4276 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4277 break;
4278
4279 case DT_JMPREL:
4280 dyn.d_un.d_ptr = bfinfdpic_pltrel_section (info)
4281 ->output_section->vma
4282 + bfinfdpic_pltrel_section (info)->output_offset;
4283 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4284 break;
4285
4286 case DT_PLTRELSZ:
4287 dyn.d_un.d_val = bfinfdpic_pltrel_section (info)->size;
4288 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4289 break;
4290 }
4291 }
4292 }
4293
4294 return TRUE;
4295}
4296
4297/* Adjust a symbol defined by a dynamic object and referenced by a
4298 regular object. */
4299
4300static bfd_boolean
4301elf32_bfinfdpic_adjust_dynamic_symbol
4302(struct bfd_link_info *info ATTRIBUTE_UNUSED,
4303 struct elf_link_hash_entry *h ATTRIBUTE_UNUSED)
4304{
4305 bfd * dynobj;
4306
4307 dynobj = elf_hash_table (info)->dynobj;
4308
4309 /* Make sure we know what is going on here. */
4310 BFD_ASSERT (dynobj != NULL
4311 && (h->u.weakdef != NULL
4312 || (h->def_dynamic
4313 && h->ref_regular
4314 && !h->def_regular)));
4315
4316 /* If this is a weak symbol, and there is a real definition, the
4317 processor independent code will have arranged for us to see the
4318 real definition first, and we can just use the same value. */
4319 if (h->u.weakdef != NULL)
4320 {
4321 BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
4322 || h->u.weakdef->root.type == bfd_link_hash_defweak);
4323 h->root.u.def.section = h->u.weakdef->root.u.def.section;
4324 h->root.u.def.value = h->u.weakdef->root.u.def.value;
4325 }
0f64bb02
CM		 4326
4327 return TRUE;
4328}
4329
48d502e1
BS		 4330/* Perform any actions needed for dynamic symbols. */
4331
4332static bfd_boolean
4333elf32_bfinfdpic_finish_dynamic_symbol
4334(bfd *output_bfd ATTRIBUTE_UNUSED,
4335 struct bfd_link_info *info ATTRIBUTE_UNUSED,
4336 struct elf_link_hash_entry *h ATTRIBUTE_UNUSED,
4337 Elf_Internal_Sym *sym ATTRIBUTE_UNUSED)
0f64bb02 4338{
48d502e1
BS		 4339 return TRUE;
4340}
0f64bb02 4341
48d502e1
BS		 4342/* Decide whether to attempt to turn absptr or lsda encodings in
4343 shared libraries into pcrel within the given input section. */
0f64bb02 4344
48d502e1
BS		 4345static bfd_boolean
4346bfinfdpic_elf_use_relative_eh_frame
4347(bfd *input_bfd ATTRIBUTE_UNUSED,
4348 struct bfd_link_info *info ATTRIBUTE_UNUSED,
4349 asection *eh_frame_section ATTRIBUTE_UNUSED)
4350{
4351 /* We can't use PC-relative encodings in FDPIC binaries, in general. */
4352 return FALSE;
4353}
0f64bb02 4354
48d502e1 4355/* Adjust the contents of an eh_frame_hdr section before they're output. */
0f64bb02 4356
48d502e1
BS		 4357static bfd_byte
4358bfinfdpic_elf_encode_eh_address (bfd *abfd,
4359 struct bfd_link_info *info,
4360 asection *osec, bfd_vma offset,
4361 asection *loc_sec, bfd_vma loc_offset,
4362 bfd_vma *encoded)
4363{
4364 struct elf_link_hash_entry *h;
0f64bb02 4365
48d502e1
BS		 4366 h = elf_hash_table (info)->hgot;
4367 BFD_ASSERT (h && h->root.type == bfd_link_hash_defined);
4368
4369 if (! h || (_bfinfdpic_osec_to_segment (abfd, osec)
4370 == _bfinfdpic_osec_to_segment (abfd, loc_sec->output_section)))
4371 return _bfd_elf_encode_eh_address (abfd, info, osec, offset,
4372 loc_sec, loc_offset, encoded);
4373
4374 BFD_ASSERT (_bfinfdpic_osec_to_segment (abfd, osec)
4375 == (_bfinfdpic_osec_to_segment
4376 (abfd, h->root.u.def.section->output_section)));
4377
4378 *encoded = osec->vma + offset
4379 - (h->root.u.def.value
4380 + h->root.u.def.section->output_section->vma
4381 + h->root.u.def.section->output_offset);
4382
4383 return DW_EH_PE_datarel | DW_EH_PE_sdata4;
0f64bb02
CM		 4384}
4385
4386
48d502e1
BS		 4387
4388/* Look through the relocs for a section during the first phase.
4389
4390 Besides handling virtual table relocs for gc, we have to deal with
4391 all sorts of PIC-related relocations. We describe below the
4392 general plan on how to handle such relocations, even though we only
4393 collect information at this point, storing them in hash tables for
4394 perusal of later passes.
4395
4396 32 relocations are propagated to the linker output when creating
4397 position-independent output. LO16 and HI16 relocations are not
4398 supposed to be encountered in this case.
4399
4400 LABEL16 should always be resolvable by the linker, since it's only
4401 used by branches.
4402
4403 LABEL24, on the other hand, is used by calls. If it turns out that
4404 the target of a call is a dynamic symbol, a PLT entry must be
4405 created for it, which triggers the creation of a private function
4406 descriptor and, unless lazy binding is disabled, a lazy PLT entry.
4407
4408 GPREL relocations require the referenced symbol to be in the same
4409 segment as _gp, but this can only be checked later.
4410
4411 All GOT, GOTOFF and FUNCDESC relocations require a .got section to
4412 exist. LABEL24 might as well, since it may require a PLT entry,
4413 that will require a got.
4414
4415 Non-FUNCDESC GOT relocations require a GOT entry to be created
4416 regardless of whether the symbol is dynamic. However, since a
4417 global symbol that turns out to not be exported may have the same
4418 address of a non-dynamic symbol, we don't assign GOT entries at
4419 this point, such that we can share them in this case. A relocation
4420 for the GOT entry always has to be created, be it to offset a
4421 private symbol by the section load address, be it to get the symbol
4422 resolved dynamically.
4423
4424 FUNCDESC GOT relocations require a GOT entry to be created, and
4425 handled as if a FUNCDESC relocation was applied to the GOT entry in
4426 an object file.
4427
4428 FUNCDESC relocations referencing a symbol that turns out to NOT be
4429 dynamic cause a private function descriptor to be created. The
4430 FUNCDESC relocation then decays to a 32 relocation that points at
4431 the private descriptor. If the symbol is dynamic, the FUNCDESC
4432 relocation is propagated to the linker output, such that the
4433 dynamic linker creates the canonical descriptor, pointing to the
4434 dynamically-resolved definition of the function.
4435
4436 Non-FUNCDESC GOTOFF relocations must always refer to non-dynamic
4437 symbols that are assigned to the same segment as the GOT, but we
4438 can only check this later, after we know the complete set of
4439 symbols defined and/or exported.
4440
4441 FUNCDESC GOTOFF relocations require a function descriptor to be
4442 created and, unless lazy binding is disabled or the symbol is not
4443 dynamic, a lazy PLT entry. Since we can't tell at this point
4444 whether a symbol is going to be dynamic, we have to decide later
4445 whether to create a lazy PLT entry or bind the descriptor directly
4446 to the private function.
4447
4448 FUNCDESC_VALUE relocations are not supposed to be present in object
4449 files, but they may very well be simply propagated to the linker
4450 output, since they have no side effect.
4451
4452
4453 A function descriptor always requires a FUNCDESC_VALUE relocation.
4454 Whether it's in .plt.rel or not depends on whether lazy binding is
4455 enabled and on whether the referenced symbol is dynamic.
4456
4457 The existence of a lazy PLT requires the resolverStub lazy PLT
4458 entry to be present.
4459
4460
4461 As for assignment of GOT, PLT and lazy PLT entries, and private
4462 descriptors, we might do them all sequentially, but we can do
4463 better than that. For example, we can place GOT entries and
4464 private function descriptors referenced using 12-bit operands
4465 closer to the PIC register value, such that these relocations don't
4466 overflow. Those that are only referenced with LO16 relocations
4467 could come next, but we may as well place PLT-required function
4468 descriptors in the 12-bit range to make them shorter. Symbols
4469 referenced with LO16/HI16 may come next, but we may place
4470 additional function descriptors in the 16-bit range if we can
4471 reliably tell that we've already placed entries that are ever
4472 referenced with only LO16. PLT entries are therefore generated as
4473 small as possible, while not introducing relocation overflows in
4474 GOT or FUNCDESC_GOTOFF relocations. Lazy PLT entries could be
4475 generated before or after PLT entries, but not intermingled with
4476 them, such that we can have more lazy PLT entries in range for a
4477 branch to the resolverStub. The resolverStub should be emitted at
4478 the most distant location from the first lazy PLT entry such that
4479 it's still in range for a branch, or closer, if there isn't a need
4480 for so many lazy PLT entries. Additional lazy PLT entries may be
4481 emitted after the resolverStub, as long as branches are still in
4482 range. If the branch goes out of range, longer lazy PLT entries
4483 are emitted.
4484
4485 We could further optimize PLT and lazy PLT entries by giving them
4486 priority in assignment to closer-to-gr17 locations depending on the
4487 number of occurrences of references to them (assuming a function
4488 that's called more often is more important for performance, so its
4489 PLT entry should be faster), or taking hints from the compiler.
4490 Given infinite time and money... :-) */
0f64bb02
CM		 4491
4492static bfd_boolean
48d502e1
BS		 4493bfinfdpic_check_relocs (bfd *abfd, struct bfd_link_info *info,
4494 asection *sec, const Elf_Internal_Rela *relocs)
0f64bb02
CM		 4495{
4496 Elf_Internal_Shdr *symtab_hdr;
5582a088 4497 struct elf_link_hash_entry **sym_hashes;
48d502e1
BS		 4498 const Elf_Internal_Rela *rel;
4499 const Elf_Internal_Rela *rel_end;
0f64bb02 4500 bfd *dynobj;
48d502e1 4501 struct bfinfdpic_relocs_info *picrel;
0f64bb02 4502
48d502e1 4503 if (info->relocatable)
0f64bb02
CM		 4504 return TRUE;
4505
4506 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
4507 sym_hashes = elf_sym_hashes (abfd);
0f64bb02 4508
48d502e1
BS		 4509 dynobj = elf_hash_table (info)->dynobj;
4510 rel_end = relocs + sec->reloc_count;
4511 for (rel = relocs; rel < rel_end; rel++)
0f64bb02 4512 {
0f64bb02 4513 struct elf_link_hash_entry *h;
48d502e1
BS		 4514 unsigned long r_symndx;
4515
4516 r_symndx = ELF32_R_SYM (rel->r_info);
4517 if (r_symndx < symtab_hdr->sh_info)
4518 h = NULL;
4519 else
4520 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
0f64bb02
CM		 4521
4522 switch (ELF32_R_TYPE (rel->r_info))
4523 {
48d502e1
BS		 4524 case R_BFIN_GOT17M4:
4525 case R_BFIN_GOTHI:
4526 case R_BFIN_GOTLO:
4527 case R_BFIN_FUNCDESC_GOT17M4:
4528 case R_BFIN_FUNCDESC_GOTHI:
4529 case R_BFIN_FUNCDESC_GOTLO:
4530 case R_BFIN_GOTOFF17M4:
4531 case R_BFIN_GOTOFFHI:
4532 case R_BFIN_GOTOFFLO:
4533 case R_BFIN_FUNCDESC_GOTOFF17M4:
4534 case R_BFIN_FUNCDESC_GOTOFFHI:
4535 case R_BFIN_FUNCDESC_GOTOFFLO:
4536 case R_BFIN_FUNCDESC:
4537 case R_BFIN_FUNCDESC_VALUE:
4538 if (! IS_FDPIC (abfd))
4539 goto bad_reloc;
4540 /* Fall through. */
4541 case R_pcrel24:
4542 case R_pcrel24_jump_l:
4543 case R_byte4_data:
4544 if (IS_FDPIC (abfd) && ! dynobj)
0f64bb02 4545 {
48d502e1
BS		 4546 elf_hash_table (info)->dynobj = dynobj = abfd;
4547 if (! _bfin_create_got_section (abfd, info))
4548 return FALSE;
0f64bb02 4549 }
48d502e1 4550 if (! IS_FDPIC (abfd))
0f64bb02 4551 {
48d502e1
BS		 4552 picrel = NULL;
4553 break;
4554 }
4555 if (h != NULL)
4556 {
4557 if (h->dynindx == -1)
4558 switch (ELF_ST_VISIBILITY (h->other))
4559 {
4560 case STV_INTERNAL:
4561 case STV_HIDDEN:
4562 break;
4563 default:
4564 bfd_elf_link_record_dynamic_symbol (info, h);
4565 break;
4566 }
4567 picrel
4568 = bfinfdpic_relocs_info_for_global (bfinfdpic_relocs_info (info),
4569 abfd, h,
4570 rel->r_addend, INSERT);
0f64bb02 4571 }
48d502e1
BS		 4572 else
4573 picrel = bfinfdpic_relocs_info_for_local (bfinfdpic_relocs_info
4574 (info), abfd, r_symndx,
4575 rel->r_addend, INSERT);
4576 if (! picrel)
4577 return FALSE;
0f64bb02 4578 break;
48d502e1 4579
0f64bb02 4580 default:
48d502e1 4581 picrel = NULL;
0f64bb02
CM		 4582 break;
4583 }
48d502e1
BS		 4584
4585 switch (ELF32_R_TYPE (rel->r_info))
4586 {
4587 case R_pcrel24:
4588 case R_pcrel24_jump_l:
4589 if (IS_FDPIC (abfd))
4590 picrel->call = 1;
4591 break;
4592
4593 case R_BFIN_FUNCDESC_VALUE:
4594 picrel->relocsfdv++;
4595 if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC)
4596 picrel->relocs32--;
4597 /* Fall through. */
4598
4599 case R_byte4_data:
4600 if (! IS_FDPIC (abfd))
4601 break;
4602
4603 picrel->sym = 1;
4604 if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC)
4605 picrel->relocs32++;
4606 break;
4607
4608 case R_BFIN_GOT17M4:
4609 picrel->got17m4 = 1;
4610 break;
4611
4612 case R_BFIN_GOTHI:
4613 case R_BFIN_GOTLO:
4614 picrel->gothilo = 1;
4615 break;
4616
4617 case R_BFIN_FUNCDESC_GOT17M4:
4618 picrel->fdgot17m4 = 1;
4619 break;
4620
4621 case R_BFIN_FUNCDESC_GOTHI:
4622 case R_BFIN_FUNCDESC_GOTLO:
4623 picrel->fdgothilo = 1;
4624 break;
4625
4626 case R_BFIN_GOTOFF17M4:
4627 case R_BFIN_GOTOFFHI:
4628 case R_BFIN_GOTOFFLO:
4629 picrel->gotoff = 1;
4630 break;
4631
4632 case R_BFIN_FUNCDESC_GOTOFF17M4:
4633 picrel->fdgoff17m4 = 1;
4634 break;
4635
4636 case R_BFIN_FUNCDESC_GOTOFFHI:
4637 case R_BFIN_FUNCDESC_GOTOFFLO:
4638 picrel->fdgoffhilo = 1;
4639 break;
4640
4641 case R_BFIN_FUNCDESC:
4642 picrel->fd = 1;
4643 picrel->relocsfd++;
4644 break;
4645
4646 /* This relocation describes the C++ object vtable hierarchy.
4647 Reconstruct it for later use during GC. */
4648 case R_BFIN_GNU_VTINHERIT:
4649 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
4650 return FALSE;
4651 break;
4652
4653 /* This relocation describes which C++ vtable entries are actually
4654 used. Record for later use during GC. */
4655 case R_BFIN_GNU_VTENTRY:
d17e0c6e
JB		 4656 BFD_ASSERT (h != NULL);
4657 if (h != NULL
4658 && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
48d502e1
BS		 4659 return FALSE;
4660 break;
4661
4662 case R_huimm16:
4663 case R_luimm16:
4664 case R_pcrel12_jump_s:
4665 case R_pcrel10:
4666 break;
4667
4668 default:
4669 bad_reloc:
4670 (*_bfd_error_handler)
4671 (_("%B: unsupported relocation type %i"),
4672 abfd, ELF32_R_TYPE (rel->r_info));
4673 return FALSE;
4674 }
0f64bb02
CM		 4675 }
4676
4677 return TRUE;
4678}
4679
48d502e1
BS		 4680/* Set the right machine number for a Blackfin ELF file. */
4681
4682static bfd_boolean
4683elf32_bfin_object_p (bfd *abfd)
4684{
4685 bfd_default_set_arch_mach (abfd, bfd_arch_bfin, 0);
4686 return (((elf_elfheader (abfd)->e_flags & EF_BFIN_FDPIC) != 0)
4687 == (IS_FDPIC (abfd)));
4688}
0f64bb02 4689
0f64bb02 4690static bfd_boolean
48d502e1 4691elf32_bfin_set_private_flags (bfd * abfd, flagword flags)
0f64bb02 4692{
48d502e1
BS		 4693 elf_elfheader (abfd)->e_flags = flags;
4694 elf_flags_init (abfd) = TRUE;
4695 return TRUE;
4696}
0f64bb02 4697
48d502e1
BS		 4698/* Copy backend specific data from one object module to another. */
4699
4700static bfd_boolean
4701bfin_elf_copy_private_bfd_data (bfd *ibfd, bfd *obfd)
4702{
0f64bb02
CM		 4703 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
4704 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
4705 return TRUE;
4706
48d502e1
BS		 4707 BFD_ASSERT (!elf_flags_init (obfd)
4708 || elf_elfheader (obfd)->e_flags == elf_elfheader (ibfd)->e_flags);
0f64bb02 4709
48d502e1
BS		 4710 elf_elfheader (obfd)->e_flags = elf_elfheader (ibfd)->e_flags;
4711 elf_flags_init (obfd) = TRUE;
104d59d1
JM		 4712
4713 /* Copy object attributes. */
4714 _bfd_elf_copy_obj_attributes (ibfd, obfd);
4715
0f64bb02
CM		 4716 return TRUE;
4717}
4718
0f64bb02 4719static bfd_boolean
48d502e1 4720elf32_bfinfdpic_copy_private_bfd_data (bfd *ibfd, bfd *obfd)
0f64bb02 4721{
48d502e1
BS		 4722 unsigned i;
4723
4724 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
4725 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
4726 return TRUE;
4727
4728 if (! bfin_elf_copy_private_bfd_data (ibfd, obfd))
4729 return FALSE;
4730
4731 if (! elf_tdata (ibfd) || ! elf_tdata (ibfd)->phdr
4732 || ! elf_tdata (obfd) || ! elf_tdata (obfd)->phdr)
4733 return TRUE;
4734
4735 /* Copy the stack size. */
4736 for (i = 0; i < elf_elfheader (ibfd)->e_phnum; i++)
4737 if (elf_tdata (ibfd)->phdr[i].p_type == PT_GNU_STACK)
4738 {
4739 Elf_Internal_Phdr *iphdr = &elf_tdata (ibfd)->phdr[i];
4740
4741 for (i = 0; i < elf_elfheader (obfd)->e_phnum; i++)
4742 if (elf_tdata (obfd)->phdr[i].p_type == PT_GNU_STACK)
4743 {
4744 memcpy (&elf_tdata (obfd)->phdr[i], iphdr, sizeof (*iphdr));
4745
4746 /* Rewrite the phdrs, since we're only called after they
4747 were first written. */
4748 if (bfd_seek (obfd, (bfd_signed_vma) get_elf_backend_data (obfd)
4749 ->s->sizeof_ehdr, SEEK_SET) != 0
4750 || get_elf_backend_data (obfd)->s
4751 ->write_out_phdrs (obfd, elf_tdata (obfd)->phdr,
4752 elf_elfheader (obfd)->e_phnum) != 0)
4753 return FALSE;
4754 break;
4755 }
4756
4757 break;
4758 }
4759
0f64bb02
CM		 4760 return TRUE;
4761}
4762
4763
4764/* Display the flags field. */
4765static bfd_boolean
4766elf32_bfin_print_private_bfd_data (bfd * abfd, PTR ptr)
4767{
4768 FILE *file = (FILE *) ptr;
48d502e1 4769 flagword flags;
0f64bb02
CM		 4770
4771 BFD_ASSERT (abfd != NULL && ptr != NULL);
4772
4773 /* Print normal ELF private data. */
4774 _bfd_elf_print_private_bfd_data (abfd, ptr);
4775
48d502e1 4776 flags = elf_elfheader (abfd)->e_flags;
0f64bb02
CM		 4777
4778 /* xgettext:c-format */
4779 fprintf (file, _("private flags = %lx:"), elf_elfheader (abfd)->e_flags);
4780
48d502e1
BS		 4781 if (flags & EF_BFIN_PIC)
4782 fprintf (file, " -fpic");
4783
4784 if (flags & EF_BFIN_FDPIC)
4785 fprintf (file, " -mfdpic");
4786
0f64bb02
CM		 4787 fputc ('\n', file);
4788
4789 return TRUE;
4790}
4791
48d502e1
BS		 4792/* Merge backend specific data from an object file to the output
4793 object file when linking. */
4794
4795static bfd_boolean
4796elf32_bfin_merge_private_bfd_data (bfd *ibfd, bfd *obfd)
4797{
4798 flagword old_flags, old_partial;
4799 flagword new_flags, new_partial;
4800 bfd_boolean error = FALSE;
4801
4802 new_flags = elf_elfheader (ibfd)->e_flags;
4803 old_flags = elf_elfheader (obfd)->e_flags;
4804
4805 if (new_flags & EF_BFIN_FDPIC)
4806 new_flags &= ~EF_BFIN_PIC;
4807
4808#ifdef DEBUG
4809 (*_bfd_error_handler) ("old_flags = 0x%.8lx, new_flags = 0x%.8lx, init = %s, filename = %s",
4810 old_flags, new_flags, elf_flags_init (obfd) ? "yes" : "no",
4811 bfd_get_filename (ibfd));
4812#endif
4813
4814 if (!elf_flags_init (obfd)) /* First call, no flags set. */
4815 {
4816 elf_flags_init (obfd) = TRUE;
4817 old_flags = new_flags;
4818 }
4819
4820 else if (new_flags == old_flags) /* Compatible flags are ok. */
4821 ;
4822
4823 else /* Possibly incompatible flags. */
4824 {
4825 /* We don't have to do anything if the pic flags are the same, or the new
4826 module(s) were compiled with -mlibrary-pic. */
4827 new_partial = (new_flags & EF_BFIN_PIC_FLAGS);
4828 old_partial = (old_flags & EF_BFIN_PIC_FLAGS);
4829 if (new_partial == old_partial)
4830 ;
4831
4832 /* If we have mixtures of -fpic and -fPIC, or in both bits. */
4833 else if (new_partial != 0 && old_partial != 0)
4834 old_flags |= new_partial;
4835
4836 /* One module was compiled for pic and the other was not, see if we have
4837 had any relocations that are not pic-safe. */
4838 else
4839 old_flags |= new_partial;
4840
4841 }
4842
4843 /* Update the old flags now with changes made above. */
4844 elf_elfheader (obfd)->e_flags = old_flags;
4845
4846 if (((new_flags & EF_BFIN_FDPIC) == 0)
4847 != (! IS_FDPIC (ibfd)))
4848 {
4849 error = TRUE;
4850 if (IS_FDPIC (obfd))
4851 (*_bfd_error_handler)
4852 (_("%s: cannot link non-fdpic object file into fdpic executable"),
4853 bfd_get_filename (ibfd));
4854 else
4855 (*_bfd_error_handler)
4856 (_("%s: cannot link fdpic object file into non-fdpic executable"),
4857 bfd_get_filename (ibfd));
4858 }
4859
4860 if (error)
4861 bfd_set_error (bfd_error_bad_value);
4862
4863 return !error;
4864}
4865\f
0f64bb02
CM		 4866/* bfin ELF linker hash entry. */
4867
4868struct bfin_link_hash_entry
4869{
4870 struct elf_link_hash_entry root;
4871
4872 /* Number of PC relative relocs copied for this symbol. */
4873 struct bfin_pcrel_relocs_copied *pcrel_relocs_copied;
4874};
4875
4876/* bfin ELF linker hash table. */
4877
4878struct bfin_link_hash_table
4879{
4880 struct elf_link_hash_table root;
4881
4882 /* Small local sym to section mapping cache. */
4883 struct sym_sec_cache sym_sec;
4884};
4885
4886#define bfin_hash_entry(ent) ((struct bfin_link_hash_entry *) (ent))
4887
4888static struct bfd_hash_entry *
4889bfin_link_hash_newfunc (struct bfd_hash_entry *entry,
48d502e1 4890 struct bfd_hash_table *table, const char *string)
0f64bb02
CM		 4891{
4892 struct bfd_hash_entry *ret = entry;
4893
4894 /* Allocate the structure if it has not already been allocated by a
4895 subclass. */
4896 if (ret == NULL)
4897 ret = bfd_hash_allocate (table, sizeof (struct bfin_link_hash_entry));
4898 if (ret == NULL)
4899 return ret;
4900
4901 /* Call the allocation method of the superclass. */
4902 ret = _bfd_elf_link_hash_newfunc (ret, table, string);
4903 if (ret != NULL)
4904 bfin_hash_entry (ret)->pcrel_relocs_copied = NULL;
4905
4906 return ret;
4907}
4908
4909/* Create an bfin ELF linker hash table. */
4910
4911static struct bfd_link_hash_table *
4912bfin_link_hash_table_create (bfd * abfd)
4913{
4914 struct bfin_link_hash_table *ret;
4915 bfd_size_type amt = sizeof (struct bfin_link_hash_table);
4916
48d502e1
BS		 4917 ret = bfd_zalloc (abfd, amt);
4918 if (ret == NULL)
0f64bb02
CM		 4919 return NULL;
4920
4921 if (!_bfd_elf_link_hash_table_init (&ret->root, abfd,
66eb6687 4922 bfin_link_hash_newfunc,
48d502e1 4923 sizeof (struct elf_link_hash_entry)))
0f64bb02
CM		 4924 {
4925 free (ret);
4926 return NULL;
4927 }
4928
4929 ret->sym_sec.abfd = NULL;
4930
4931 return &ret->root.root;
4932}
4933
4934/* The size in bytes of an entry in the procedure linkage table. */
4935
4936/* Finish up the dynamic sections. */
4937
4938static bfd_boolean
4939bfin_finish_dynamic_sections (bfd * output_bfd ATTRIBUTE_UNUSED,
4940 struct bfd_link_info *info)
4941{
4942 bfd *dynobj;
4943 asection *sdyn;
4944
4945 dynobj = elf_hash_table (info)->dynobj;
4946
4947 sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
4948
4949 if (elf_hash_table (info)->dynamic_sections_created)
4950 {
4951 Elf32_External_Dyn *dyncon, *dynconend;
4952
4953 BFD_ASSERT (sdyn != NULL);
4954
4955 dyncon = (Elf32_External_Dyn *) sdyn->contents;
4956 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
4957 for (; dyncon < dynconend; dyncon++)
4958 {
4959 Elf_Internal_Dyn dyn;
4960
4961 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
4962
4963 }
4964
4965 }
4966 return TRUE;
4967}
4968
4969/* Finish up dynamic symbol handling. We set the contents of various
4970 dynamic sections here. */
4971
4972static bfd_boolean
4973bfin_finish_dynamic_symbol (bfd * output_bfd,
4974 struct bfd_link_info *info,
4975 struct elf_link_hash_entry *h,
4976 Elf_Internal_Sym * sym)
4977{
4978 bfd *dynobj;
4979
4980 dynobj = elf_hash_table (info)->dynobj;
4981
4982 if (h->got.offset != (bfd_vma) - 1)
4983 {
4984 asection *sgot;
4985 asection *srela;
4986 Elf_Internal_Rela rela;
4987 bfd_byte *loc;
4988
4989 /* This symbol has an entry in the global offset table.
4990 Set it up. */
4991
4992 sgot = bfd_get_section_by_name (dynobj, ".got");
4993 srela = bfd_get_section_by_name (dynobj, ".rela.got");
4994 BFD_ASSERT (sgot != NULL && srela != NULL);
4995
4996 rela.r_offset = (sgot->output_section->vma
4997 + sgot->output_offset
4998 + (h->got.offset & ~(bfd_vma) 1));
4999
5000 /* If this is a -Bsymbolic link, and the symbol is defined
5001 locally, we just want to emit a RELATIVE reloc. Likewise if
5002 the symbol was forced to be local because of a version file.
5003 The entry in the global offset table will already have been
5004 initialized in the relocate_section function. */
5005 if (info->shared
5006 && (info->symbolic
5007 || h->dynindx == -1 || h->forced_local) && h->def_regular)
5008 {
5592d7ec 5009 fprintf(stderr, "*** check this relocation %s\n", __FUNCTION__);
0f64bb02
CM		 5010 rela.r_info = ELF32_R_INFO (0, R_pcrel24);
5011 rela.r_addend = bfd_get_signed_32 (output_bfd,
5012 (sgot->contents
5013 +
5014 (h->got.
5015 offset & ~(bfd_vma) 1)));
5016 }
5017 else
5018 {
5019 bfd_put_32 (output_bfd, (bfd_vma) 0,
5020 sgot->contents + (h->got.offset & ~(bfd_vma) 1));
5021 rela.r_info = ELF32_R_INFO (h->dynindx, R_got);
5022 rela.r_addend = 0;
5023 }
5024
5025 loc = srela->contents;
5026 loc += srela->reloc_count++ * sizeof (Elf32_External_Rela);
5027 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
5028 }
5029
5030 if (h->needs_copy)
5031 {
5032 BFD_ASSERT (0);
5033 }
5034 /* Mark _DYNAMIC and _GLOBAL_OFFSET_TABLE_ as absolute. */
5592d7ec 5035 if (strcmp (h->root.root.string, "__DYNAMIC") == 0
22edb2f1 5036 || h == elf_hash_table (info)->hgot)
0f64bb02
CM		 5037 sym->st_shndx = SHN_ABS;
5038
5039 return TRUE;
5040}
5041
5042/* Adjust a symbol defined by a dynamic object and referenced by a
5043 regular object. The current definition is in some section of the
5044 dynamic object, but we're not including those sections. We have to
5045 change the definition to something the rest of the link can
5046 understand. */
5047
5048static bfd_boolean
5049bfin_adjust_dynamic_symbol (struct bfd_link_info *info,
5050 struct elf_link_hash_entry *h)
5051{
5052 bfd *dynobj;
5053 asection *s;
5054 unsigned int power_of_two;
5055
5056 dynobj = elf_hash_table (info)->dynobj;
5057
5058 /* Make sure we know what is going on here. */
5059 BFD_ASSERT (dynobj != NULL
5060 && (h->needs_plt
5061 || h->u.weakdef != NULL
5062 || (h->def_dynamic && h->ref_regular && !h->def_regular)));
5063
5064 /* If this is a function, put it in the procedure linkage table. We
5065 will fill in the contents of the procedure linkage table later,
5066 when we know the address of the .got section. */
5067 if (h->type == STT_FUNC || h->needs_plt)
5068 {
5069 BFD_ASSERT(0);
5070 }
5071
5072 /* If this is a weak symbol, and there is a real definition, the
5073 processor independent code will have arranged for us to see the
5074 real definition first, and we can just use the same value. */
5075 if (h->u.weakdef != NULL)
5076 {
5077 BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
5078 || h->u.weakdef->root.type == bfd_link_hash_defweak);
5079 h->root.u.def.section = h->u.weakdef->root.u.def.section;
5080 h->root.u.def.value = h->u.weakdef->root.u.def.value;
5081 return TRUE;
5082 }
5083
5084 /* This is a reference to a symbol defined by a dynamic object which
5085 is not a function. */
5086
5087 /* If we are creating a shared library, we must presume that the
5088 only references to the symbol are via the global offset table.
5089 For such cases we need not do anything here; the relocations will
5090 be handled correctly by relocate_section. */
5091 if (info->shared)
5092 return TRUE;
5093
5094 /* We must allocate the symbol in our .dynbss section, which will
5095 become part of the .bss section of the executable. There will be
5096 an entry for this symbol in the .dynsym section. The dynamic
5097 object will contain position independent code, so all references
5098 from the dynamic object to this symbol will go through the global
5099 offset table. The dynamic linker will use the .dynsym entry to
5100 determine the address it must put in the global offset table, so
5101 both the dynamic object and the regular object will refer to the
5102 same memory location for the variable. */
5103
5104 s = bfd_get_section_by_name (dynobj, ".dynbss");
5105 BFD_ASSERT (s != NULL);
5106
5107 /* We must generate a R_68K_COPY reloc to tell the dynamic linker to
5108 copy the initial value out of the dynamic object and into the
5109 runtime process image. We need to remember the offset into the
5110 .rela.bss section we are going to use. */
5111 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
5112 {
5113 asection *srel;
5114
5115 srel = bfd_get_section_by_name (dynobj, ".rela.bss");
5116 BFD_ASSERT (srel != NULL);
5117 srel->size += sizeof (Elf32_External_Rela);
5118 h->needs_copy = 1;
5119 }
5120
5121 /* We need to figure out the alignment required for this symbol. I
5122 have no idea how ELF linkers handle this. */
5123 power_of_two = bfd_log2 (h->size);
5124 if (power_of_two > 3)
5125 power_of_two = 3;
5126
5127 /* Apply the required alignment. */
5128 s->size = BFD_ALIGN (s->size, (bfd_size_type) (1 << power_of_two));
5129 if (power_of_two > bfd_get_section_alignment (dynobj, s))
5130 {
5131 if (!bfd_set_section_alignment (dynobj, s, power_of_two))
5132 return FALSE;
5133 }
5134
5135 /* Define the symbol as being at this point in the section. */
5136 h->root.u.def.section = s;
5137 h->root.u.def.value = s->size;
5138
5139 /* Increment the section size to make room for the symbol. */
5140 s->size += h->size;
5141
5142 return TRUE;
5143}
5144
5145/* The bfin linker needs to keep track of the number of relocs that it
5146 decides to copy in check_relocs for each symbol. This is so that it
5147 can discard PC relative relocs if it doesn't need them when linking
5148 with -Bsymbolic. We store the information in a field extending the
5149 regular ELF linker hash table. */
5150
5151/* This structure keeps track of the number of PC relative relocs we have
5152 copied for a given symbol. */
5153
5154struct bfin_pcrel_relocs_copied
5155{
5156 /* Next section. */
5157 struct bfin_pcrel_relocs_copied *next;
5158 /* A section in dynobj. */
5159 asection *section;
5160 /* Number of relocs copied in this section. */
5161 bfd_size_type count;
5162};
5163
5164/* This function is called via elf_link_hash_traverse if we are
5165 creating a shared object. In the -Bsymbolic case it discards the
5166 space allocated to copy PC relative relocs against symbols which
5167 are defined in regular objects. For the normal shared case, it
5168 discards space for pc-relative relocs that have become local due to
5169 symbol visibility changes. We allocated space for them in the
5170 check_relocs routine, but we won't fill them in in the
5171 relocate_section routine.
5172
5173 We also check whether any of the remaining relocations apply
5174 against a readonly section, and set the DF_TEXTREL flag in this
5175 case. */
5176
5177static bfd_boolean
5178bfin_discard_copies (struct elf_link_hash_entry *h, PTR inf)
5179{
5180 struct bfd_link_info *info = (struct bfd_link_info *) inf;
5181 struct bfin_pcrel_relocs_copied *s;
5182
5183 if (h->root.type == bfd_link_hash_warning)
5184 h = (struct elf_link_hash_entry *) h->root.u.i.link;
5185
5186 if (!h->def_regular || (!info->symbolic && !h->forced_local))
5187 {
5188 if ((info->flags & DF_TEXTREL) == 0)
5189 {
5190 /* Look for relocations against read-only sections. */
5191 for (s = bfin_hash_entry (h)->pcrel_relocs_copied;
5192 s != NULL; s = s->next)
5193 if ((s->section->flags & SEC_READONLY) != 0)
5194 {
5195 info->flags |= DF_TEXTREL;
5196 break;
5197 }
5198 }
5199
5200 return TRUE;
5201 }
5202
5203 for (s = bfin_hash_entry (h)->pcrel_relocs_copied;
5204 s != NULL; s = s->next)
5205 s->section->size -= s->count * sizeof (Elf32_External_Rela);
5206
5207 return TRUE;
5208}
5209
0f64bb02
CM		 5210static bfd_boolean
5211bfin_size_dynamic_sections (bfd * output_bfd ATTRIBUTE_UNUSED,
5212 struct bfd_link_info *info)
5213{
5214 bfd *dynobj;
5215 asection *s;
5216 bfd_boolean relocs;
5217
5218 dynobj = elf_hash_table (info)->dynobj;
5219 BFD_ASSERT (dynobj != NULL);
5220
5221 if (elf_hash_table (info)->dynamic_sections_created)
5222 {
5223 /* Set the contents of the .interp section to the interpreter. */
5224 if (info->executable)
5225 {
5226 s = bfd_get_section_by_name (dynobj, ".interp");
5227 BFD_ASSERT (s != NULL);
5228 s->size = sizeof ELF_DYNAMIC_INTERPRETER;
5229 s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
5230 }
5231 }
5232 else
5233 {
5234 /* We may have created entries in the .rela.got section.
5235 However, if we are not creating the dynamic sections, we will
5236 not actually use these entries. Reset the size of .rela.got,
5237 which will cause it to get stripped from the output file
5238 below. */
5239 s = bfd_get_section_by_name (dynobj, ".rela.got");
5240 if (s != NULL)
5241 s->size = 0;
5242 }
5243
5244 /* If this is a -Bsymbolic shared link, then we need to discard all
5245 PC relative relocs against symbols defined in a regular object.
5246 For the normal shared case we discard the PC relative relocs
5247 against symbols that have become local due to visibility changes.
5248 We allocated space for them in the check_relocs routine, but we
5249 will not fill them in in the relocate_section routine. */
5250 if (info->shared)
5251 elf_link_hash_traverse (elf_hash_table (info),
5252 bfin_discard_copies, (PTR) info);
5253
5254 /* The check_relocs and adjust_dynamic_symbol entry points have
5255 determined the sizes of the various dynamic sections. Allocate
5256 memory for them. */
5257 relocs = FALSE;
5258 for (s = dynobj->sections; s != NULL; s = s->next)
5259 {
5260 const char *name;
5261 bfd_boolean strip;
5262
5263 if ((s->flags & SEC_LINKER_CREATED) == 0)
5264 continue;
5265
5266 /* It's OK to base decisions on the section name, because none
5267 of the dynobj section names depend upon the input files. */
5268 name = bfd_get_section_name (dynobj, s);
5269
5270 strip = FALSE;
5271
0112cd26 5272 if (CONST_STRNEQ (name, ".rela"))
0f64bb02
CM		 5273 {
5274 if (s->size == 0)
5275 {
5276 /* If we don't need this section, strip it from the
5277 output file. This is mostly to handle .rela.bss and
5278 .rela.plt. We must create both sections in
5279 create_dynamic_sections, because they must be created
5280 before the linker maps input sections to output
5281 sections. The linker does that before
5282 adjust_dynamic_symbol is called, and it is that
5283 function which decides whether anything needs to go
5284 into these sections. */
5285 strip = TRUE;
5286 }
5287 else
5288 {
5289 relocs = TRUE;
5290
5291 /* We use the reloc_count field as a counter if we need
5292 to copy relocs into the output file. */
5293 s->reloc_count = 0;
5294 }
5295 }
0112cd26 5296 else if (! CONST_STRNEQ (name, ".got"))
0f64bb02
CM		 5297 {
5298 /* It's not one of our sections, so don't allocate space. */
5299 continue;
5300 }
5301
5302 if (strip)
5303 {
5304 s->flags |= SEC_EXCLUDE;
5305 continue;
5306 }
5307
5308 /* Allocate memory for the section contents. */
5309 /* FIXME: This should be a call to bfd_alloc not bfd_zalloc.
5310 Unused entries should be reclaimed before the section's contents
5311 are written out, but at the moment this does not happen. Thus in
5312 order to prevent writing out garbage, we initialise the section's
5313 contents to zero. */
5314 s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->size);
5315 if (s->contents == NULL && s->size != 0)
5316 return FALSE;
5317 }
5318
5319 if (elf_hash_table (info)->dynamic_sections_created)
5320 {
5321 /* Add some entries to the .dynamic section. We fill in the
5322 values later, in bfin_finish_dynamic_sections, but we
5323 must add the entries now so that we get the correct size for
5324 the .dynamic section. The DT_DEBUG entry is filled in by the
5325 dynamic linker and used by the debugger. */
5326#define add_dynamic_entry(TAG, VAL) \
5327 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
5328
5329 if (!info->shared)
5330 {
5331 if (!add_dynamic_entry (DT_DEBUG, 0))
5332 return FALSE;
5333 }
5334
5335
5336 if (relocs)
5337 {
5338 if (!add_dynamic_entry (DT_RELA, 0)
5339 || !add_dynamic_entry (DT_RELASZ, 0)
5340 || !add_dynamic_entry (DT_RELAENT,
5341 sizeof (Elf32_External_Rela)))
5342 return FALSE;
5343 }
5344
5345 if ((info->flags & DF_TEXTREL) != 0)
5346 {
5347 if (!add_dynamic_entry (DT_TEXTREL, 0))
5348 return FALSE;
5349 }
5350 }
5351#undef add_dynamic_entry
5352
5353 return TRUE;
5354}
48d502e1 5355\f
0f64bb02
CM		 5356/* Given a .data section and a .emreloc in-memory section, store
5357 relocation information into the .emreloc section which can be
5358 used at runtime to relocate the section. This is called by the
5359 linker when the --embedded-relocs switch is used. This is called
5360 after the add_symbols entry point has been called for all the
5361 objects, and before the final_link entry point is called. */
5362
3b55e94a
BS		 5363bfd_boolean bfd_bfin_elf32_create_embedded_relocs
5364 PARAMS ((bfd *, struct bfd_link_info *, asection *, asection *, char **));
5365
0f64bb02
CM		 5366bfd_boolean
5367bfd_bfin_elf32_create_embedded_relocs (
5368 bfd *abfd,
5369 struct bfd_link_info *info,
5370 asection *datasec,
5371 asection *relsec,
5372 char **errmsg)
5373{
5374 Elf_Internal_Shdr *symtab_hdr;
5375 Elf_Internal_Sym *isymbuf = NULL;
5376 Elf_Internal_Rela *internal_relocs = NULL;
5377 Elf_Internal_Rela *irel, *irelend;
5378 bfd_byte *p;
5379 bfd_size_type amt;
5380
5381 BFD_ASSERT (! info->relocatable);
5382
5383 *errmsg = NULL;
5384
5385 if (datasec->reloc_count == 0)
5386 return TRUE;
5387
5388 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
5389
5390 /* Get a copy of the native relocations. */
5391 internal_relocs = (_bfd_elf_link_read_relocs
5392 (abfd, datasec, (PTR) NULL, (Elf_Internal_Rela *) NULL,
5393 info->keep_memory));
5394 if (internal_relocs == NULL)
5395 goto error_return;
5396
5397 amt = (bfd_size_type) datasec->reloc_count * 12;
5398 relsec->contents = (bfd_byte *) bfd_alloc (abfd, amt);
5399 if (relsec->contents == NULL)
5400 goto error_return;
5401
5402 p = relsec->contents;
5403
5404 irelend = internal_relocs + datasec->reloc_count;
5405 for (irel = internal_relocs; irel < irelend; irel++, p += 12)
5406 {
5407 asection *targetsec;
5408
5409 /* We are going to write a four byte longword into the runtime
5410 reloc section. The longword will be the address in the data
5411 section which must be relocated. It is followed by the name
5412 of the target section NUL-padded or truncated to 8
5413 characters. */
5414
5415 /* We can only relocate absolute longword relocs at run time. */
5416 if (ELF32_R_TYPE (irel->r_info) != (int) R_byte4_data)
5417 {
5418 *errmsg = _("unsupported reloc type");
5419 bfd_set_error (bfd_error_bad_value);
5420 goto error_return;
5421 }
5422
5423 /* Get the target section referred to by the reloc. */
5424 if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
5425 {
5426 /* A local symbol. */
5427 Elf_Internal_Sym *isym;
5428
5429 /* Read this BFD's local symbols if we haven't done so already. */
5430 if (isymbuf == NULL)
5431 {
5432 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
5433 if (isymbuf == NULL)
5434 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
5435 symtab_hdr->sh_info, 0,
5436 NULL, NULL, NULL);
5437 if (isymbuf == NULL)
5438 goto error_return;
5439 }
5440
5441 isym = isymbuf + ELF32_R_SYM (irel->r_info);
5442 targetsec = bfd_section_from_elf_index (abfd, isym->st_shndx);
5443 }
5444 else
5445 {
5446 unsigned long indx;
5447 struct elf_link_hash_entry *h;
5448
5449 /* An external symbol. */
5450 indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
5451 h = elf_sym_hashes (abfd)[indx];
5452 BFD_ASSERT (h != NULL);
5453 if (h->root.type == bfd_link_hash_defined
5454 || h->root.type == bfd_link_hash_defweak)
5455 targetsec = h->root.u.def.section;
5456 else
5457 targetsec = NULL;
5458 }
5459
5460 bfd_put_32 (abfd, irel->r_offset + datasec->output_offset, p);
5461 memset (p + 4, 0, 8);
5462 if (targetsec != NULL)
9ba4c445 5463 strncpy ((char *) p + 4, targetsec->output_section->name, 8);
0f64bb02
CM		 5464 }
5465
5466 if (isymbuf != NULL && symtab_hdr->contents != (unsigned char *) isymbuf)
5467 free (isymbuf);
5468 if (internal_relocs != NULL
5469 && elf_section_data (datasec)->relocs != internal_relocs)
5470 free (internal_relocs);
5471 return TRUE;
5472
5473error_return:
5474 if (isymbuf != NULL && symtab_hdr->contents != (unsigned char *) isymbuf)
5475 free (isymbuf);
5476 if (internal_relocs != NULL
5477 && elf_section_data (datasec)->relocs != internal_relocs)
5478 free (internal_relocs);
5479 return FALSE;
5480}
48d502e1 5481\f
0f64bb02
CM		 5482#define TARGET_LITTLE_SYM bfd_elf32_bfin_vec
5483#define TARGET_LITTLE_NAME "elf32-bfin"
5484#define ELF_ARCH bfd_arch_bfin
3b55e94a 5485#define ELF_MACHINE_CODE EM_BLACKFIN
0f64bb02
CM		 5486#define ELF_MAXPAGESIZE 0x1000
5487#define elf_symbol_leading_char '_'
5488
5489#define bfd_elf32_bfd_reloc_type_lookup bfin_bfd_reloc_type_lookup
157090f7
AM		 5490#define bfd_elf32_bfd_reloc_name_lookup \
5491 bfin_bfd_reloc_name_lookup
0f64bb02
CM		 5492#define elf_info_to_howto bfin_info_to_howto
5493#define elf_info_to_howto_rel 0
48d502e1 5494#define elf_backend_object_p elf32_bfin_object_p
0f64bb02
CM		 5495
5496#define bfd_elf32_bfd_is_local_label_name \
5497 bfin_is_local_label_name
5498#define bfin_hash_table(p) \
5499 ((struct bfin_link_hash_table *) (p)->hash)
5500
5501
5502
5503#define elf_backend_create_dynamic_sections \
5504 _bfd_elf_create_dynamic_sections
5505#define bfd_elf32_bfd_link_hash_table_create \
5506 bfin_link_hash_table_create
5507#define bfd_elf32_bfd_final_link bfd_elf_gc_common_final_link
5508
48d502e1 5509#define elf_backend_check_relocs bfin_check_relocs
0f64bb02
CM		 5510#define elf_backend_adjust_dynamic_symbol \
5511 bfin_adjust_dynamic_symbol
5512#define elf_backend_size_dynamic_sections \
5513 bfin_size_dynamic_sections
5514#define elf_backend_relocate_section bfin_relocate_section
5515#define elf_backend_finish_dynamic_symbol \
5516 bfin_finish_dynamic_symbol
5517#define elf_backend_finish_dynamic_sections \
5518 bfin_finish_dynamic_sections
5519#define elf_backend_gc_mark_hook bfin_gc_mark_hook
5520#define elf_backend_gc_sweep_hook bfin_gc_sweep_hook
5521#define bfd_elf32_bfd_merge_private_bfd_data \
5522 elf32_bfin_merge_private_bfd_data
5523#define bfd_elf32_bfd_set_private_flags \
5524 elf32_bfin_set_private_flags
5525#define bfd_elf32_bfd_print_private_bfd_data \
5526 elf32_bfin_print_private_bfd_data
5527#define elf_backend_reloc_type_class elf32_bfin_reloc_type_class
5528#define elf_backend_can_gc_sections 1
5529#define elf_backend_can_refcount 1
5530#define elf_backend_want_got_plt 0
5531#define elf_backend_plt_readonly 1
5532#define elf_backend_want_plt_sym 0
5533#define elf_backend_got_header_size 12
5534#define elf_backend_rela_normal 1
5535
48d502e1
BS		 5536#include "elf32-target.h"
5537
5538#undef TARGET_LITTLE_SYM
5539#define TARGET_LITTLE_SYM bfd_elf32_bfinfdpic_vec
5540#undef TARGET_LITTLE_NAME
5541#define TARGET_LITTLE_NAME "elf32-bfinfdpic"
5542#undef elf32_bed
5543#define elf32_bed elf32_bfinfdpic_bed
5544
5545#undef elf_backend_gc_sweep_hook
48d502e1
BS		 5546
5547#undef elf_backend_got_header_size
5548#define elf_backend_got_header_size 0
5549
5550#undef elf_backend_relocate_section
5551#define elf_backend_relocate_section bfinfdpic_relocate_section
5552#undef elf_backend_check_relocs
5553#define elf_backend_check_relocs bfinfdpic_check_relocs
5554
5555#undef bfd_elf32_bfd_link_hash_table_create
5556#define bfd_elf32_bfd_link_hash_table_create \
5557 bfinfdpic_elf_link_hash_table_create
5558#undef elf_backend_always_size_sections
5559#define elf_backend_always_size_sections \
5560 elf32_bfinfdpic_always_size_sections
e36284ab
AM		 5561#undef elf_backend_modify_program_headers
5562#define elf_backend_modify_program_headers \
5563 elf32_bfinfdpic_modify_program_headers
48d502e1
BS		 5564#undef bfd_elf32_bfd_copy_private_bfd_data
5565#define bfd_elf32_bfd_copy_private_bfd_data \
5566 elf32_bfinfdpic_copy_private_bfd_data
5567
5568#undef elf_backend_create_dynamic_sections
5569#define elf_backend_create_dynamic_sections \
5570 elf32_bfinfdpic_create_dynamic_sections
5571#undef elf_backend_adjust_dynamic_symbol
5572#define elf_backend_adjust_dynamic_symbol \
5573 elf32_bfinfdpic_adjust_dynamic_symbol
5574#undef elf_backend_size_dynamic_sections
5575#define elf_backend_size_dynamic_sections \
5576 elf32_bfinfdpic_size_dynamic_sections
5577#undef elf_backend_finish_dynamic_symbol
5578#define elf_backend_finish_dynamic_symbol \
5579 elf32_bfinfdpic_finish_dynamic_symbol
5580#undef elf_backend_finish_dynamic_sections
5581#define elf_backend_finish_dynamic_sections \
5582 elf32_bfinfdpic_finish_dynamic_sections
5583
5584#undef elf_backend_can_make_relative_eh_frame
5585#define elf_backend_can_make_relative_eh_frame \
5586 bfinfdpic_elf_use_relative_eh_frame
5587#undef elf_backend_can_make_lsda_relative_eh_frame
5588#define elf_backend_can_make_lsda_relative_eh_frame \
5589 bfinfdpic_elf_use_relative_eh_frame
5590#undef elf_backend_encode_eh_address
5591#define elf_backend_encode_eh_address \
5592 bfinfdpic_elf_encode_eh_address
5593
5594#undef elf_backend_may_use_rel_p
5595#define elf_backend_may_use_rel_p 1
5596#undef elf_backend_may_use_rela_p
5597#define elf_backend_may_use_rela_p 1
5598/* We use REL for dynamic relocations only. */
5599#undef elf_backend_default_use_rela_p
5600#define elf_backend_default_use_rela_p 1
5601
5602#undef elf_backend_omit_section_dynsym
5603#define elf_backend_omit_section_dynsym _bfinfdpic_link_omit_section_dynsym
0f64bb02
CM		 5604
5605#include "elf32-target.h"
GDB Binutils - Deliverables
This page took 0.336188 seconds and 4 git commands to generate.