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