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