1 /* IA-64 support for 64-bit ELF
2 Copyright (C) 1998-2019 Free Software Foundation, Inc.
3 Contributed by David Mosberger-Tang <davidm@hpl.hp.com>
5 This file is part of BFD, the Binary File Descriptor library.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
20 MA 02110-1301, USA. */
26 #include "opcode/ia64.h"
30 #include "elfxx-ia64.h"
35 #define LOG_SECTION_ALIGN 3
39 #define LOG_SECTION_ALIGN 2
42 typedef struct bfd_hash_entry
*(*new_hash_entry_func
)
43 (struct bfd_hash_entry
*, struct bfd_hash_table
*, const char *);
45 /* In dynamically (linker-) created sections, we generally need to keep track
46 of the place a symbol or expression got allocated to. This is done via hash
47 tables that store entries of the following type. */
49 struct elfNN_ia64_dyn_sym_info
51 /* The addend for which this entry is relevant. */
56 bfd_vma pltoff_offset
;
60 bfd_vma dtpmod_offset
;
61 bfd_vma dtprel_offset
;
63 /* The symbol table entry, if any, that this was derived from. */
64 struct elf_link_hash_entry
*h
;
66 /* Used to count non-got, non-plt relocations for delayed sizing
67 of relocation sections. */
68 struct elfNN_ia64_dyn_reloc_entry
70 struct elfNN_ia64_dyn_reloc_entry
*next
;
75 /* Is this reloc against readonly section? */
79 /* TRUE when the section contents have been updated. */
80 unsigned got_done
: 1;
81 unsigned fptr_done
: 1;
82 unsigned pltoff_done
: 1;
83 unsigned tprel_done
: 1;
84 unsigned dtpmod_done
: 1;
85 unsigned dtprel_done
: 1;
87 /* TRUE for the different kinds of linker data we want created. */
88 unsigned want_got
: 1;
89 unsigned want_gotx
: 1;
90 unsigned want_fptr
: 1;
91 unsigned want_ltoff_fptr
: 1;
92 unsigned want_plt
: 1;
93 unsigned want_plt2
: 1;
94 unsigned want_pltoff
: 1;
95 unsigned want_tprel
: 1;
96 unsigned want_dtpmod
: 1;
97 unsigned want_dtprel
: 1;
100 struct elfNN_ia64_local_hash_entry
104 /* The number of elements in elfNN_ia64_dyn_sym_info array. */
106 /* The number of sorted elements in elfNN_ia64_dyn_sym_info array. */
107 unsigned int sorted_count
;
108 /* The size of elfNN_ia64_dyn_sym_info array. */
110 /* The array of elfNN_ia64_dyn_sym_info. */
111 struct elfNN_ia64_dyn_sym_info
*info
;
113 /* TRUE if this hash entry's addends was translated for
114 SHF_MERGE optimization. */
115 unsigned sec_merge_done
: 1;
118 struct elfNN_ia64_link_hash_entry
120 struct elf_link_hash_entry root
;
121 /* The number of elements in elfNN_ia64_dyn_sym_info array. */
123 /* The number of sorted elements in elfNN_ia64_dyn_sym_info array. */
124 unsigned int sorted_count
;
125 /* The size of elfNN_ia64_dyn_sym_info array. */
127 /* The array of elfNN_ia64_dyn_sym_info. */
128 struct elfNN_ia64_dyn_sym_info
*info
;
131 struct elfNN_ia64_link_hash_table
133 /* The main hash table. */
134 struct elf_link_hash_table root
;
136 asection
*fptr_sec
; /* Function descriptor table (or NULL). */
137 asection
*rel_fptr_sec
; /* Dynamic relocation section for same. */
138 asection
*pltoff_sec
; /* Private descriptors for plt (or NULL). */
139 asection
*rel_pltoff_sec
; /* Dynamic relocation section for same. */
141 bfd_size_type minplt_entries
; /* Number of minplt entries. */
142 unsigned reltext
: 1; /* Are there relocs against readonly sections? */
143 unsigned self_dtpmod_done
: 1;/* Has self DTPMOD entry been finished? */
144 bfd_vma self_dtpmod_offset
; /* .got offset to self DTPMOD entry. */
145 /* There are maybe R_IA64_GPREL22 relocations, including those
146 optimized from R_IA64_LTOFF22X, against non-SHF_IA_64_SHORT
147 sections. We need to record those sections so that we can choose
148 a proper GP to cover all R_IA64_GPREL22 relocations. */
149 asection
*max_short_sec
; /* Maximum short output section. */
150 bfd_vma max_short_offset
; /* Maximum short offset. */
151 asection
*min_short_sec
; /* Minimum short output section. */
152 bfd_vma min_short_offset
; /* Minimum short offset. */
154 htab_t loc_hash_table
;
155 void *loc_hash_memory
;
158 struct elfNN_ia64_allocate_data
160 struct bfd_link_info
*info
;
162 bfd_boolean only_got
;
165 #define elfNN_ia64_hash_table(p) \
166 (elf_hash_table_id ((struct elf_link_hash_table *) ((p)->hash)) \
167 == IA64_ELF_DATA ? ((struct elfNN_ia64_link_hash_table *) ((p)->hash)) : NULL)
169 static struct elfNN_ia64_dyn_sym_info
* get_dyn_sym_info
170 (struct elfNN_ia64_link_hash_table
*ia64_info
,
171 struct elf_link_hash_entry
*h
,
172 bfd
*abfd
, const Elf_Internal_Rela
*rel
, bfd_boolean create
);
173 static bfd_boolean elfNN_ia64_dynamic_symbol_p
174 (struct elf_link_hash_entry
*h
, struct bfd_link_info
*info
, int);
175 static bfd_boolean elfNN_ia64_choose_gp
176 (bfd
*abfd
, struct bfd_link_info
*info
, bfd_boolean final
);
177 static void elfNN_ia64_dyn_sym_traverse
178 (struct elfNN_ia64_link_hash_table
*ia64_info
,
179 bfd_boolean (*func
) (struct elfNN_ia64_dyn_sym_info
*, void *),
181 static bfd_boolean allocate_global_data_got
182 (struct elfNN_ia64_dyn_sym_info
*dyn_i
, void * data
);
183 static bfd_boolean allocate_global_fptr_got
184 (struct elfNN_ia64_dyn_sym_info
*dyn_i
, void * data
);
185 static bfd_boolean allocate_local_got
186 (struct elfNN_ia64_dyn_sym_info
*dyn_i
, void * data
);
187 static bfd_boolean elfNN_ia64_hpux_vec
188 (const bfd_target
*vec
);
189 static bfd_boolean allocate_dynrel_entries
190 (struct elfNN_ia64_dyn_sym_info
*dyn_i
, void * data
);
191 static asection
*get_pltoff
192 (bfd
*abfd
, struct bfd_link_info
*info
,
193 struct elfNN_ia64_link_hash_table
*ia64_info
);
195 /* ia64-specific relocation. */
197 /* Given a ELF reloc, return the matching HOWTO structure. */
200 elfNN_ia64_info_to_howto (bfd
*abfd ATTRIBUTE_UNUSED
,
202 Elf_Internal_Rela
*elf_reloc
)
204 unsigned int r_type
= ELF32_R_TYPE (elf_reloc
->r_info
);
206 bfd_reloc
->howto
= ia64_elf_lookup_howto (r_type
);
207 if (bfd_reloc
->howto
== NULL
)
209 /* xgettext:c-format */
210 _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
212 bfd_set_error (bfd_error_bad_value
);
219 #define PLT_HEADER_SIZE (3 * 16)
220 #define PLT_MIN_ENTRY_SIZE (1 * 16)
221 #define PLT_FULL_ENTRY_SIZE (2 * 16)
222 #define PLT_RESERVED_WORDS 3
224 static const bfd_byte plt_header
[PLT_HEADER_SIZE
] =
226 0x0b, 0x10, 0x00, 0x1c, 0x00, 0x21, /* [MMI] mov r2=r14;; */
227 0xe0, 0x00, 0x08, 0x00, 0x48, 0x00, /* addl r14=0,r2 */
228 0x00, 0x00, 0x04, 0x00, /* nop.i 0x0;; */
229 0x0b, 0x80, 0x20, 0x1c, 0x18, 0x14, /* [MMI] ld8 r16=[r14],8;; */
230 0x10, 0x41, 0x38, 0x30, 0x28, 0x00, /* ld8 r17=[r14],8 */
231 0x00, 0x00, 0x04, 0x00, /* nop.i 0x0;; */
232 0x11, 0x08, 0x00, 0x1c, 0x18, 0x10, /* [MIB] ld8 r1=[r14] */
233 0x60, 0x88, 0x04, 0x80, 0x03, 0x00, /* mov b6=r17 */
234 0x60, 0x00, 0x80, 0x00 /* br.few b6;; */
237 static const bfd_byte plt_min_entry
[PLT_MIN_ENTRY_SIZE
] =
239 0x11, 0x78, 0x00, 0x00, 0x00, 0x24, /* [MIB] mov r15=0 */
240 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, /* nop.i 0x0 */
241 0x00, 0x00, 0x00, 0x40 /* br.few 0 <PLT0>;; */
244 static const bfd_byte plt_full_entry
[PLT_FULL_ENTRY_SIZE
] =
246 0x0b, 0x78, 0x00, 0x02, 0x00, 0x24, /* [MMI] addl r15=0,r1;; */
247 0x00, 0x41, 0x3c, 0x70, 0x29, 0xc0, /* ld8.acq r16=[r15],8*/
248 0x01, 0x08, 0x00, 0x84, /* mov r14=r1;; */
249 0x11, 0x08, 0x00, 0x1e, 0x18, 0x10, /* [MIB] ld8 r1=[r15] */
250 0x60, 0x80, 0x04, 0x80, 0x03, 0x00, /* mov b6=r16 */
251 0x60, 0x00, 0x80, 0x00 /* br.few b6;; */
254 #define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
256 static const bfd_byte oor_brl
[16] =
258 0x05, 0x00, 0x00, 0x00, 0x01, 0x00, /* [MLX] nop.m 0 */
259 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* brl.sptk.few tgt;; */
260 0x00, 0x00, 0x00, 0xc0
263 static const bfd_byte oor_ip
[48] =
265 0x04, 0x00, 0x00, 0x00, 0x01, 0x00, /* [MLX] nop.m 0 */
266 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, /* movl r15=0 */
267 0x01, 0x00, 0x00, 0x60,
268 0x03, 0x00, 0x00, 0x00, 0x01, 0x00, /* [MII] nop.m 0 */
269 0x00, 0x01, 0x00, 0x60, 0x00, 0x00, /* mov r16=ip;; */
270 0xf2, 0x80, 0x00, 0x80, /* add r16=r15,r16;; */
271 0x11, 0x00, 0x00, 0x00, 0x01, 0x00, /* [MIB] nop.m 0 */
272 0x60, 0x80, 0x04, 0x80, 0x03, 0x00, /* mov b6=r16 */
273 0x60, 0x00, 0x80, 0x00 /* br b6;; */
276 static size_t oor_branch_size
= sizeof (oor_brl
);
279 bfd_elfNN_ia64_after_parse (int itanium
)
281 oor_branch_size
= itanium
? sizeof (oor_ip
) : sizeof (oor_brl
);
285 /* Rename some of the generic section flags to better document how they
287 #define skip_relax_pass_0 sec_flg0
288 #define skip_relax_pass_1 sec_flg1
290 /* These functions do relaxation for IA-64 ELF. */
293 elfNN_ia64_update_short_info (asection
*sec
, bfd_vma offset
,
294 struct elfNN_ia64_link_hash_table
*ia64_info
)
296 /* Skip ABS and SHF_IA_64_SHORT sections. */
297 if (sec
== bfd_abs_section_ptr
298 || (sec
->flags
& SEC_SMALL_DATA
) != 0)
301 if (!ia64_info
->min_short_sec
)
303 ia64_info
->max_short_sec
= sec
;
304 ia64_info
->max_short_offset
= offset
;
305 ia64_info
->min_short_sec
= sec
;
306 ia64_info
->min_short_offset
= offset
;
308 else if (sec
== ia64_info
->max_short_sec
309 && offset
> ia64_info
->max_short_offset
)
310 ia64_info
->max_short_offset
= offset
;
311 else if (sec
== ia64_info
->min_short_sec
312 && offset
< ia64_info
->min_short_offset
)
313 ia64_info
->min_short_offset
= offset
;
314 else if (sec
->output_section
->vma
315 > ia64_info
->max_short_sec
->vma
)
317 ia64_info
->max_short_sec
= sec
;
318 ia64_info
->max_short_offset
= offset
;
320 else if (sec
->output_section
->vma
321 < ia64_info
->min_short_sec
->vma
)
323 ia64_info
->min_short_sec
= sec
;
324 ia64_info
->min_short_offset
= offset
;
329 elfNN_ia64_relax_section (bfd
*abfd
, asection
*sec
,
330 struct bfd_link_info
*link_info
,
335 struct one_fixup
*next
;
341 Elf_Internal_Shdr
*symtab_hdr
;
342 Elf_Internal_Rela
*internal_relocs
;
343 Elf_Internal_Rela
*irel
, *irelend
;
345 Elf_Internal_Sym
*isymbuf
= NULL
;
346 struct elfNN_ia64_link_hash_table
*ia64_info
;
347 struct one_fixup
*fixups
= NULL
;
348 bfd_boolean changed_contents
= FALSE
;
349 bfd_boolean changed_relocs
= FALSE
;
350 bfd_boolean changed_got
= FALSE
;
351 bfd_boolean skip_relax_pass_0
= TRUE
;
352 bfd_boolean skip_relax_pass_1
= TRUE
;
355 /* Assume we're not going to change any sizes, and we'll only need
359 if (bfd_link_relocatable (link_info
))
360 (*link_info
->callbacks
->einfo
)
361 (_("%P%F: --relax and -r may not be used together\n"));
363 /* Don't even try to relax for non-ELF outputs. */
364 if (!is_elf_hash_table (link_info
->hash
))
367 /* Nothing to do if there are no relocations or there is no need for
369 if ((sec
->flags
& SEC_RELOC
) == 0
370 || sec
->reloc_count
== 0
371 || (link_info
->relax_pass
== 0 && sec
->skip_relax_pass_0
)
372 || (link_info
->relax_pass
== 1 && sec
->skip_relax_pass_1
))
375 ia64_info
= elfNN_ia64_hash_table (link_info
);
376 if (ia64_info
== NULL
)
379 symtab_hdr
= &elf_tdata (abfd
)->symtab_hdr
;
381 /* Load the relocations for this section. */
382 internal_relocs
= (_bfd_elf_link_read_relocs
383 (abfd
, sec
, NULL
, (Elf_Internal_Rela
*) NULL
,
384 link_info
->keep_memory
));
385 if (internal_relocs
== NULL
)
388 irelend
= internal_relocs
+ sec
->reloc_count
;
390 /* Get the section contents. */
391 if (elf_section_data (sec
)->this_hdr
.contents
!= NULL
)
392 contents
= elf_section_data (sec
)->this_hdr
.contents
;
395 if (!bfd_malloc_and_get_section (abfd
, sec
, &contents
))
399 for (irel
= internal_relocs
; irel
< irelend
; irel
++)
401 unsigned long r_type
= ELFNN_R_TYPE (irel
->r_info
);
402 bfd_vma symaddr
, reladdr
, trampoff
, toff
, roff
;
406 bfd_boolean is_branch
;
407 struct elfNN_ia64_dyn_sym_info
*dyn_i
;
412 case R_IA64_PCREL21B
:
413 case R_IA64_PCREL21BI
:
414 case R_IA64_PCREL21M
:
415 case R_IA64_PCREL21F
:
416 /* In pass 1, all br relaxations are done. We can skip it. */
417 if (link_info
->relax_pass
== 1)
419 skip_relax_pass_0
= FALSE
;
423 case R_IA64_PCREL60B
:
424 /* We can't optimize brl to br in pass 0 since br relaxations
425 will increase the code size. Defer it to pass 1. */
426 if (link_info
->relax_pass
== 0)
428 skip_relax_pass_1
= FALSE
;
435 /* Update max_short_sec/min_short_sec. */
437 case R_IA64_LTOFF22X
:
439 /* We can't relax ldx/mov in pass 0 since br relaxations will
440 increase the code size. Defer it to pass 1. */
441 if (link_info
->relax_pass
== 0)
443 skip_relax_pass_1
= FALSE
;
453 /* Get the value of the symbol referred to by the reloc. */
454 if (ELFNN_R_SYM (irel
->r_info
) < symtab_hdr
->sh_info
)
456 /* A local symbol. */
457 Elf_Internal_Sym
*isym
;
459 /* Read this BFD's local symbols. */
462 isymbuf
= (Elf_Internal_Sym
*) symtab_hdr
->contents
;
464 isymbuf
= bfd_elf_get_elf_syms (abfd
, symtab_hdr
,
465 symtab_hdr
->sh_info
, 0,
471 isym
= isymbuf
+ ELFNN_R_SYM (irel
->r_info
);
472 if (isym
->st_shndx
== SHN_UNDEF
)
473 continue; /* We can't do anything with undefined symbols. */
474 else if (isym
->st_shndx
== SHN_ABS
)
475 tsec
= bfd_abs_section_ptr
;
476 else if (isym
->st_shndx
== SHN_COMMON
)
477 tsec
= bfd_com_section_ptr
;
478 else if (isym
->st_shndx
== SHN_IA_64_ANSI_COMMON
)
479 tsec
= bfd_com_section_ptr
;
481 tsec
= bfd_section_from_elf_index (abfd
, isym
->st_shndx
);
483 toff
= isym
->st_value
;
484 dyn_i
= get_dyn_sym_info (ia64_info
, NULL
, abfd
, irel
, FALSE
);
485 symtype
= ELF_ST_TYPE (isym
->st_info
);
490 struct elf_link_hash_entry
*h
;
492 indx
= ELFNN_R_SYM (irel
->r_info
) - symtab_hdr
->sh_info
;
493 h
= elf_sym_hashes (abfd
)[indx
];
494 BFD_ASSERT (h
!= NULL
);
496 while (h
->root
.type
== bfd_link_hash_indirect
497 || h
->root
.type
== bfd_link_hash_warning
)
498 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
500 dyn_i
= get_dyn_sym_info (ia64_info
, h
, abfd
, irel
, FALSE
);
502 /* For branches to dynamic symbols, we're interested instead
503 in a branch to the PLT entry. */
504 if (is_branch
&& dyn_i
&& dyn_i
->want_plt2
)
506 /* Internal branches shouldn't be sent to the PLT.
507 Leave this for now and we'll give an error later. */
508 if (r_type
!= R_IA64_PCREL21B
)
511 tsec
= ia64_info
->root
.splt
;
512 toff
= dyn_i
->plt2_offset
;
513 BFD_ASSERT (irel
->r_addend
== 0);
516 /* Can't do anything else with dynamic symbols. */
517 else if (elfNN_ia64_dynamic_symbol_p (h
, link_info
, r_type
))
522 /* We can't do anything with undefined symbols. */
523 if (h
->root
.type
== bfd_link_hash_undefined
524 || h
->root
.type
== bfd_link_hash_undefweak
)
527 tsec
= h
->root
.u
.def
.section
;
528 toff
= h
->root
.u
.def
.value
;
534 if (tsec
->sec_info_type
== SEC_INFO_TYPE_MERGE
)
536 /* At this stage in linking, no SEC_MERGE symbol has been
537 adjusted, so all references to such symbols need to be
538 passed through _bfd_merged_section_offset. (Later, in
539 relocate_section, all SEC_MERGE symbols *except* for
540 section symbols have been adjusted.)
542 gas may reduce relocations against symbols in SEC_MERGE
543 sections to a relocation against the section symbol when
544 the original addend was zero. When the reloc is against
545 a section symbol we should include the addend in the
546 offset passed to _bfd_merged_section_offset, since the
547 location of interest is the original symbol. On the
548 other hand, an access to "sym+addend" where "sym" is not
549 a section symbol should not include the addend; Such an
550 access is presumed to be an offset from "sym"; The
551 location of interest is just "sym". */
552 if (symtype
== STT_SECTION
)
553 toff
+= irel
->r_addend
;
555 toff
= _bfd_merged_section_offset (abfd
, &tsec
,
556 elf_section_data (tsec
)->sec_info
,
559 if (symtype
!= STT_SECTION
)
560 toff
+= irel
->r_addend
;
563 toff
+= irel
->r_addend
;
565 symaddr
= tsec
->output_section
->vma
+ tsec
->output_offset
+ toff
;
567 roff
= irel
->r_offset
;
571 bfd_signed_vma offset
;
573 reladdr
= (sec
->output_section
->vma
575 + roff
) & (bfd_vma
) -4;
577 /* The .plt section is aligned at 32byte and the .text section
578 is aligned at 64byte. The .text section is right after the
579 .plt section. After the first relaxation pass, linker may
580 increase the gap between the .plt and .text sections up
581 to 32byte. We assume linker will always insert 32byte
582 between the .plt and .text sections after the first
584 if (tsec
== ia64_info
->root
.splt
)
585 offset
= -0x1000000 + 32;
589 /* If the branch is in range, no need to do anything. */
590 if ((bfd_signed_vma
) (symaddr
- reladdr
) >= offset
591 && (bfd_signed_vma
) (symaddr
- reladdr
) <= 0x0FFFFF0)
593 /* If the 60-bit branch is in 21-bit range, optimize it. */
594 if (r_type
== R_IA64_PCREL60B
)
596 ia64_elf_relax_brl (contents
, roff
);
599 = ELFNN_R_INFO (ELFNN_R_SYM (irel
->r_info
),
602 /* If the original relocation offset points to slot
603 1, change it to slot 2. */
604 if ((irel
->r_offset
& 3) == 1)
607 changed_contents
= TRUE
;
608 changed_relocs
= TRUE
;
613 else if (r_type
== R_IA64_PCREL60B
)
615 else if (ia64_elf_relax_br (contents
, roff
))
618 = ELFNN_R_INFO (ELFNN_R_SYM (irel
->r_info
),
621 /* Make the relocation offset point to slot 1. */
622 irel
->r_offset
= (irel
->r_offset
& ~((bfd_vma
) 0x3)) + 1;
624 changed_contents
= TRUE
;
625 changed_relocs
= TRUE
;
629 /* We can't put a trampoline in a .init/.fini section. Issue
631 if (strcmp (sec
->output_section
->name
, ".init") == 0
632 || strcmp (sec
->output_section
->name
, ".fini") == 0)
635 /* xgettext:c-format */
636 (_("%pB: can't relax br at %#" PRIx64
" in section `%pA';"
637 " please use brl or indirect branch"),
638 sec
->owner
, (uint64_t) roff
, sec
);
639 bfd_set_error (bfd_error_bad_value
);
643 /* If the branch and target are in the same section, you've
644 got one honking big section and we can't help you unless
645 you are branching backwards. You'll get an error message
647 if (tsec
== sec
&& toff
> roff
)
650 /* Look for an existing fixup to this address. */
651 for (f
= fixups
; f
; f
= f
->next
)
652 if (f
->tsec
== tsec
&& f
->toff
== toff
)
657 /* Two alternatives: If it's a branch to a PLT entry, we can
658 make a copy of the FULL_PLT entry. Otherwise, we'll have
659 to use a `brl' insn to get where we're going. */
663 if (tsec
== ia64_info
->root
.splt
)
664 size
= sizeof (plt_full_entry
);
666 size
= oor_branch_size
;
668 /* Resize the current section to make room for the new branch. */
669 trampoff
= (sec
->size
+ 15) & (bfd_vma
) -16;
671 /* If trampoline is out of range, there is nothing we
673 offset
= trampoff
- (roff
& (bfd_vma
) -4);
674 if (offset
< -0x1000000 || offset
> 0x0FFFFF0)
677 amt
= trampoff
+ size
;
678 contents
= (bfd_byte
*) bfd_realloc (contents
, amt
);
679 if (contents
== NULL
)
683 if (tsec
== ia64_info
->root
.splt
)
685 memcpy (contents
+ trampoff
, plt_full_entry
, size
);
687 /* Hijack the old relocation for use as the PLTOFF reloc. */
688 irel
->r_info
= ELFNN_R_INFO (ELFNN_R_SYM (irel
->r_info
),
690 irel
->r_offset
= trampoff
;
694 if (size
== sizeof (oor_ip
))
696 memcpy (contents
+ trampoff
, oor_ip
, size
);
697 irel
->r_info
= ELFNN_R_INFO (ELFNN_R_SYM (irel
->r_info
),
699 irel
->r_addend
-= 16;
700 irel
->r_offset
= trampoff
+ 2;
704 memcpy (contents
+ trampoff
, oor_brl
, size
);
705 irel
->r_info
= ELFNN_R_INFO (ELFNN_R_SYM (irel
->r_info
),
707 irel
->r_offset
= trampoff
+ 2;
712 /* Record the fixup so we don't do it again this section. */
713 f
= (struct one_fixup
*)
714 bfd_malloc ((bfd_size_type
) sizeof (*f
));
718 f
->trampoff
= trampoff
;
723 /* If trampoline is out of range, there is nothing we
725 offset
= f
->trampoff
- (roff
& (bfd_vma
) -4);
726 if (offset
< -0x1000000 || offset
> 0x0FFFFF0)
729 /* Nop out the reloc, since we're finalizing things here. */
730 irel
->r_info
= ELFNN_R_INFO (0, R_IA64_NONE
);
733 /* Fix up the existing branch to hit the trampoline. */
734 if (ia64_elf_install_value (contents
+ roff
, offset
, r_type
)
738 changed_contents
= TRUE
;
739 changed_relocs
= TRUE
;
746 bfd
*obfd
= sec
->output_section
->owner
;
747 gp
= _bfd_get_gp_value (obfd
);
750 if (!elfNN_ia64_choose_gp (obfd
, link_info
, FALSE
))
752 gp
= _bfd_get_gp_value (obfd
);
756 /* If the data is out of range, do nothing. */
757 if ((bfd_signed_vma
) (symaddr
- gp
) >= 0x200000
758 ||(bfd_signed_vma
) (symaddr
- gp
) < -0x200000)
761 if (r_type
== R_IA64_GPREL22
)
762 elfNN_ia64_update_short_info (tsec
->output_section
,
763 tsec
->output_offset
+ toff
,
765 else if (r_type
== R_IA64_LTOFF22X
)
767 irel
->r_info
= ELFNN_R_INFO (ELFNN_R_SYM (irel
->r_info
),
769 changed_relocs
= TRUE
;
770 if (dyn_i
->want_gotx
)
772 dyn_i
->want_gotx
= 0;
773 changed_got
|= !dyn_i
->want_got
;
776 elfNN_ia64_update_short_info (tsec
->output_section
,
777 tsec
->output_offset
+ toff
,
782 ia64_elf_relax_ldxmov (contents
, roff
);
783 irel
->r_info
= ELFNN_R_INFO (0, R_IA64_NONE
);
784 changed_contents
= TRUE
;
785 changed_relocs
= TRUE
;
790 /* ??? If we created fixups, this may push the code segment large
791 enough that the data segment moves, which will change the GP.
792 Reset the GP so that we re-calculate next round. We need to
793 do this at the _beginning_ of the next round; now will not do. */
795 /* Clean up and go home. */
798 struct one_fixup
*f
= fixups
;
799 fixups
= fixups
->next
;
804 && symtab_hdr
->contents
!= (unsigned char *) isymbuf
)
806 if (! link_info
->keep_memory
)
810 /* Cache the symbols for elf_link_input_bfd. */
811 symtab_hdr
->contents
= (unsigned char *) isymbuf
;
816 && elf_section_data (sec
)->this_hdr
.contents
!= contents
)
818 if (!changed_contents
&& !link_info
->keep_memory
)
822 /* Cache the section contents for elf_link_input_bfd. */
823 elf_section_data (sec
)->this_hdr
.contents
= contents
;
827 if (elf_section_data (sec
)->relocs
!= internal_relocs
)
830 free (internal_relocs
);
832 elf_section_data (sec
)->relocs
= internal_relocs
;
837 struct elfNN_ia64_allocate_data data
;
838 data
.info
= link_info
;
840 ia64_info
->self_dtpmod_offset
= (bfd_vma
) -1;
842 elfNN_ia64_dyn_sym_traverse (ia64_info
, allocate_global_data_got
, &data
);
843 elfNN_ia64_dyn_sym_traverse (ia64_info
, allocate_global_fptr_got
, &data
);
844 elfNN_ia64_dyn_sym_traverse (ia64_info
, allocate_local_got
, &data
);
845 ia64_info
->root
.sgot
->size
= data
.ofs
;
847 if (ia64_info
->root
.dynamic_sections_created
848 && ia64_info
->root
.srelgot
!= NULL
)
850 /* Resize .rela.got. */
851 ia64_info
->root
.srelgot
->size
= 0;
852 if (bfd_link_pic (link_info
)
853 && ia64_info
->self_dtpmod_offset
!= (bfd_vma
) -1)
854 ia64_info
->root
.srelgot
->size
+= sizeof (ElfNN_External_Rela
);
855 data
.only_got
= TRUE
;
856 elfNN_ia64_dyn_sym_traverse (ia64_info
, allocate_dynrel_entries
,
861 if (link_info
->relax_pass
== 0)
863 /* Pass 0 is only needed to relax br. */
864 sec
->skip_relax_pass_0
= skip_relax_pass_0
;
865 sec
->skip_relax_pass_1
= skip_relax_pass_1
;
868 *again
= changed_contents
|| changed_relocs
;
872 if (isymbuf
!= NULL
&& (unsigned char *) isymbuf
!= symtab_hdr
->contents
)
875 && elf_section_data (sec
)->this_hdr
.contents
!= contents
)
877 if (internal_relocs
!= NULL
878 && elf_section_data (sec
)->relocs
!= internal_relocs
)
879 free (internal_relocs
);
882 #undef skip_relax_pass_0
883 #undef skip_relax_pass_1
885 /* Return TRUE if NAME is an unwind table section name. */
887 static inline bfd_boolean
888 is_unwind_section_name (bfd
*abfd
, const char *name
)
890 if (elfNN_ia64_hpux_vec (abfd
->xvec
)
891 && !strcmp (name
, ELF_STRING_ia64_unwind_hdr
))
894 return ((CONST_STRNEQ (name
, ELF_STRING_ia64_unwind
)
895 && ! CONST_STRNEQ (name
, ELF_STRING_ia64_unwind_info
))
896 || CONST_STRNEQ (name
, ELF_STRING_ia64_unwind_once
));
899 /* Handle an IA-64 specific section when reading an object file. This
900 is called when bfd_section_from_shdr finds a section with an unknown
904 elfNN_ia64_section_from_shdr (bfd
*abfd
,
905 Elf_Internal_Shdr
*hdr
,
909 /* There ought to be a place to keep ELF backend specific flags, but
910 at the moment there isn't one. We just keep track of the
911 sections by their name, instead. Fortunately, the ABI gives
912 suggested names for all the MIPS specific sections, so we will
913 probably get away with this. */
914 switch (hdr
->sh_type
)
916 case SHT_IA_64_UNWIND
:
917 case SHT_IA_64_HP_OPT_ANOT
:
921 if (strcmp (name
, ELF_STRING_ia64_archext
) != 0)
929 if (! _bfd_elf_make_section_from_shdr (abfd
, hdr
, name
, shindex
))
935 /* Convert IA-64 specific section flags to bfd internal section flags. */
937 /* ??? There is no bfd internal flag equivalent to the SHF_IA_64_NORECOV
941 elfNN_ia64_section_flags (flagword
*flags
,
942 const Elf_Internal_Shdr
*hdr
)
944 if (hdr
->sh_flags
& SHF_IA_64_SHORT
)
945 *flags
|= SEC_SMALL_DATA
;
950 /* Set the correct type for an IA-64 ELF section. We do this by the
951 section name, which is a hack, but ought to work. */
954 elfNN_ia64_fake_sections (bfd
*abfd
, Elf_Internal_Shdr
*hdr
,
959 name
= bfd_section_name (sec
);
961 if (is_unwind_section_name (abfd
, name
))
963 /* We don't have the sections numbered at this point, so sh_info
964 is set later, in elfNN_ia64_final_write_processing. */
965 hdr
->sh_type
= SHT_IA_64_UNWIND
;
966 hdr
->sh_flags
|= SHF_LINK_ORDER
;
968 else if (strcmp (name
, ELF_STRING_ia64_archext
) == 0)
969 hdr
->sh_type
= SHT_IA_64_EXT
;
970 else if (strcmp (name
, ".HP.opt_annot") == 0)
971 hdr
->sh_type
= SHT_IA_64_HP_OPT_ANOT
;
972 else if (strcmp (name
, ".reloc") == 0)
973 /* This is an ugly, but unfortunately necessary hack that is
974 needed when producing EFI binaries on IA-64. It tells
975 elf.c:elf_fake_sections() not to consider ".reloc" as a section
976 containing ELF relocation info. We need this hack in order to
977 be able to generate ELF binaries that can be translated into
978 EFI applications (which are essentially COFF objects). Those
979 files contain a COFF ".reloc" section inside an ELFNN object,
980 which would normally cause BFD to segfault because it would
981 attempt to interpret this section as containing relocation
982 entries for section "oc". With this hack enabled, ".reloc"
983 will be treated as a normal data section, which will avoid the
984 segfault. However, you won't be able to create an ELFNN binary
985 with a section named "oc" that needs relocations, but that's
986 the kind of ugly side-effects you get when detecting section
987 types based on their names... In practice, this limitation is
989 hdr
->sh_type
= SHT_PROGBITS
;
991 if (sec
->flags
& SEC_SMALL_DATA
)
992 hdr
->sh_flags
|= SHF_IA_64_SHORT
;
994 /* Some HP linkers look for the SHF_IA_64_HP_TLS flag instead of SHF_TLS. */
996 if (elfNN_ia64_hpux_vec (abfd
->xvec
) && (sec
->flags
& SHF_TLS
))
997 hdr
->sh_flags
|= SHF_IA_64_HP_TLS
;
1002 /* The final processing done just before writing out an IA-64 ELF
1006 elfNN_ia64_final_write_processing (bfd
*abfd
)
1008 Elf_Internal_Shdr
*hdr
;
1011 for (s
= abfd
->sections
; s
; s
= s
->next
)
1013 hdr
= &elf_section_data (s
)->this_hdr
;
1014 switch (hdr
->sh_type
)
1016 case SHT_IA_64_UNWIND
:
1017 /* The IA-64 processor-specific ABI requires setting sh_link
1018 to the unwind section, whereas HP-UX requires sh_info to
1019 do so. For maximum compatibility, we'll set both for
1021 hdr
->sh_info
= hdr
->sh_link
;
1026 if (! elf_flags_init (abfd
))
1028 unsigned long flags
= 0;
1030 if (abfd
->xvec
->byteorder
== BFD_ENDIAN_BIG
)
1031 flags
|= EF_IA_64_BE
;
1032 if (bfd_get_mach (abfd
) == bfd_mach_ia64_elf64
)
1033 flags
|= EF_IA_64_ABI64
;
1035 elf_elfheader(abfd
)->e_flags
= flags
;
1036 elf_flags_init (abfd
) = TRUE
;
1038 return _bfd_elf_final_write_processing (abfd
);
1041 /* Hook called by the linker routine which adds symbols from an object
1042 file. We use it to put .comm items in .sbss, and not .bss. */
1045 elfNN_ia64_add_symbol_hook (bfd
*abfd
,
1046 struct bfd_link_info
*info
,
1047 Elf_Internal_Sym
*sym
,
1048 const char **namep ATTRIBUTE_UNUSED
,
1049 flagword
*flagsp ATTRIBUTE_UNUSED
,
1053 if (sym
->st_shndx
== SHN_COMMON
1054 && !bfd_link_relocatable (info
)
1055 && sym
->st_size
<= elf_gp_size (abfd
))
1057 /* Common symbols less than or equal to -G nn bytes are
1058 automatically put into .sbss. */
1060 asection
*scomm
= bfd_get_section_by_name (abfd
, ".scommon");
1064 scomm
= bfd_make_section_with_flags (abfd
, ".scommon",
1067 | SEC_LINKER_CREATED
));
1073 *valp
= sym
->st_size
;
1079 /* Return the number of additional phdrs we will need. */
1082 elfNN_ia64_additional_program_headers (bfd
*abfd
,
1083 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
1088 /* See if we need a PT_IA_64_ARCHEXT segment. */
1089 s
= bfd_get_section_by_name (abfd
, ELF_STRING_ia64_archext
);
1090 if (s
&& (s
->flags
& SEC_LOAD
))
1093 /* Count how many PT_IA_64_UNWIND segments we need. */
1094 for (s
= abfd
->sections
; s
; s
= s
->next
)
1095 if (is_unwind_section_name (abfd
, s
->name
) && (s
->flags
& SEC_LOAD
))
1102 elfNN_ia64_modify_segment_map (bfd
*abfd
,
1103 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
1105 struct elf_segment_map
*m
, **pm
;
1106 Elf_Internal_Shdr
*hdr
;
1109 /* If we need a PT_IA_64_ARCHEXT segment, it must come before
1110 all PT_LOAD segments. */
1111 s
= bfd_get_section_by_name (abfd
, ELF_STRING_ia64_archext
);
1112 if (s
&& (s
->flags
& SEC_LOAD
))
1114 for (m
= elf_seg_map (abfd
); m
!= NULL
; m
= m
->next
)
1115 if (m
->p_type
== PT_IA_64_ARCHEXT
)
1119 m
= ((struct elf_segment_map
*)
1120 bfd_zalloc (abfd
, (bfd_size_type
) sizeof *m
));
1124 m
->p_type
= PT_IA_64_ARCHEXT
;
1128 /* We want to put it after the PHDR and INTERP segments. */
1129 pm
= &elf_seg_map (abfd
);
1131 && ((*pm
)->p_type
== PT_PHDR
1132 || (*pm
)->p_type
== PT_INTERP
))
1140 /* Install PT_IA_64_UNWIND segments, if needed. */
1141 for (s
= abfd
->sections
; s
; s
= s
->next
)
1143 hdr
= &elf_section_data (s
)->this_hdr
;
1144 if (hdr
->sh_type
!= SHT_IA_64_UNWIND
)
1147 if (s
&& (s
->flags
& SEC_LOAD
))
1149 for (m
= elf_seg_map (abfd
); m
!= NULL
; m
= m
->next
)
1150 if (m
->p_type
== PT_IA_64_UNWIND
)
1154 /* Look through all sections in the unwind segment
1155 for a match since there may be multiple sections
1157 for (i
= m
->count
- 1; i
>= 0; --i
)
1158 if (m
->sections
[i
] == s
)
1167 m
= ((struct elf_segment_map
*)
1168 bfd_zalloc (abfd
, (bfd_size_type
) sizeof *m
));
1172 m
->p_type
= PT_IA_64_UNWIND
;
1177 /* We want to put it last. */
1178 pm
= &elf_seg_map (abfd
);
1189 /* Turn on PF_IA_64_NORECOV if needed. This involves traversing all of
1190 the input sections for each output section in the segment and testing
1191 for SHF_IA_64_NORECOV on each. */
1194 elfNN_ia64_modify_headers (bfd
*abfd
, struct bfd_link_info
*info
)
1196 struct elf_obj_tdata
*tdata
= elf_tdata (abfd
);
1197 struct elf_segment_map
*m
;
1198 Elf_Internal_Phdr
*p
;
1200 for (p
= tdata
->phdr
, m
= elf_seg_map (abfd
); m
!= NULL
; m
= m
->next
, p
++)
1201 if (m
->p_type
== PT_LOAD
)
1204 for (i
= m
->count
- 1; i
>= 0; --i
)
1206 struct bfd_link_order
*order
= m
->sections
[i
]->map_head
.link_order
;
1208 while (order
!= NULL
)
1210 if (order
->type
== bfd_indirect_link_order
)
1212 asection
*is
= order
->u
.indirect
.section
;
1213 bfd_vma flags
= elf_section_data(is
)->this_hdr
.sh_flags
;
1214 if (flags
& SHF_IA_64_NORECOV
)
1216 p
->p_flags
|= PF_IA_64_NORECOV
;
1220 order
= order
->next
;
1226 return _bfd_elf_modify_headers (abfd
, info
);
1229 /* According to the Tahoe assembler spec, all labels starting with a
1233 elfNN_ia64_is_local_label_name (bfd
*abfd ATTRIBUTE_UNUSED
,
1236 return name
[0] == '.';
1239 /* Should we do dynamic things to this symbol? */
1242 elfNN_ia64_dynamic_symbol_p (struct elf_link_hash_entry
*h
,
1243 struct bfd_link_info
*info
, int r_type
)
1245 bfd_boolean ignore_protected
1246 = ((r_type
& 0xf8) == 0x40 /* FPTR relocs */
1247 || (r_type
& 0xf8) == 0x50); /* LTOFF_FPTR relocs */
1249 return _bfd_elf_dynamic_symbol_p (h
, info
, ignore_protected
);
1252 static struct bfd_hash_entry
*
1253 elfNN_ia64_new_elf_hash_entry (struct bfd_hash_entry
*entry
,
1254 struct bfd_hash_table
*table
,
1257 struct elfNN_ia64_link_hash_entry
*ret
;
1258 ret
= (struct elfNN_ia64_link_hash_entry
*) entry
;
1260 /* Allocate the structure if it has not already been allocated by a
1263 ret
= bfd_hash_allocate (table
, sizeof (*ret
));
1268 /* Call the allocation method of the superclass. */
1269 ret
= ((struct elfNN_ia64_link_hash_entry
*)
1270 _bfd_elf_link_hash_newfunc ((struct bfd_hash_entry
*) ret
,
1275 ret
->sorted_count
= 0;
1277 return (struct bfd_hash_entry
*) ret
;
1281 elfNN_ia64_hash_copy_indirect (struct bfd_link_info
*info
,
1282 struct elf_link_hash_entry
*xdir
,
1283 struct elf_link_hash_entry
*xind
)
1285 struct elfNN_ia64_link_hash_entry
*dir
, *ind
;
1287 dir
= (struct elfNN_ia64_link_hash_entry
*) xdir
;
1288 ind
= (struct elfNN_ia64_link_hash_entry
*) xind
;
1290 /* Copy down any references that we may have already seen to the
1291 symbol which just became indirect. */
1293 if (dir
->root
.versioned
!= versioned_hidden
)
1294 dir
->root
.ref_dynamic
|= ind
->root
.ref_dynamic
;
1295 dir
->root
.ref_regular
|= ind
->root
.ref_regular
;
1296 dir
->root
.ref_regular_nonweak
|= ind
->root
.ref_regular_nonweak
;
1297 dir
->root
.needs_plt
|= ind
->root
.needs_plt
;
1299 if (ind
->root
.root
.type
!= bfd_link_hash_indirect
)
1302 /* Copy over the got and plt data. This would have been done
1305 if (ind
->info
!= NULL
)
1307 struct elfNN_ia64_dyn_sym_info
*dyn_i
;
1313 dir
->info
= ind
->info
;
1314 dir
->count
= ind
->count
;
1315 dir
->sorted_count
= ind
->sorted_count
;
1316 dir
->size
= ind
->size
;
1320 ind
->sorted_count
= 0;
1323 /* Fix up the dyn_sym_info pointers to the global symbol. */
1324 for (count
= dir
->count
, dyn_i
= dir
->info
;
1327 dyn_i
->h
= &dir
->root
;
1330 /* Copy over the dynindx. */
1332 if (ind
->root
.dynindx
!= -1)
1334 if (dir
->root
.dynindx
!= -1)
1335 _bfd_elf_strtab_delref (elf_hash_table (info
)->dynstr
,
1336 dir
->root
.dynstr_index
);
1337 dir
->root
.dynindx
= ind
->root
.dynindx
;
1338 dir
->root
.dynstr_index
= ind
->root
.dynstr_index
;
1339 ind
->root
.dynindx
= -1;
1340 ind
->root
.dynstr_index
= 0;
1345 elfNN_ia64_hash_hide_symbol (struct bfd_link_info
*info
,
1346 struct elf_link_hash_entry
*xh
,
1347 bfd_boolean force_local
)
1349 struct elfNN_ia64_link_hash_entry
*h
;
1350 struct elfNN_ia64_dyn_sym_info
*dyn_i
;
1353 h
= (struct elfNN_ia64_link_hash_entry
*)xh
;
1355 _bfd_elf_link_hash_hide_symbol (info
, &h
->root
, force_local
);
1357 for (count
= h
->count
, dyn_i
= h
->info
;
1361 dyn_i
->want_plt2
= 0;
1362 dyn_i
->want_plt
= 0;
1366 /* Compute a hash of a local hash entry. */
1369 elfNN_ia64_local_htab_hash (const void *ptr
)
1371 struct elfNN_ia64_local_hash_entry
*entry
1372 = (struct elfNN_ia64_local_hash_entry
*) ptr
;
1374 return ELF_LOCAL_SYMBOL_HASH (entry
->id
, entry
->r_sym
);
1377 /* Compare local hash entries. */
1380 elfNN_ia64_local_htab_eq (const void *ptr1
, const void *ptr2
)
1382 struct elfNN_ia64_local_hash_entry
*entry1
1383 = (struct elfNN_ia64_local_hash_entry
*) ptr1
;
1384 struct elfNN_ia64_local_hash_entry
*entry2
1385 = (struct elfNN_ia64_local_hash_entry
*) ptr2
;
1387 return entry1
->id
== entry2
->id
&& entry1
->r_sym
== entry2
->r_sym
;
1390 /* Free the global elfNN_ia64_dyn_sym_info array. */
1393 elfNN_ia64_global_dyn_info_free (void **xentry
,
1394 void * unused ATTRIBUTE_UNUSED
)
1396 struct elfNN_ia64_link_hash_entry
*entry
1397 = (struct elfNN_ia64_link_hash_entry
*) xentry
;
1404 entry
->sorted_count
= 0;
1411 /* Free the local elfNN_ia64_dyn_sym_info array. */
1414 elfNN_ia64_local_dyn_info_free (void **slot
,
1415 void * unused ATTRIBUTE_UNUSED
)
1417 struct elfNN_ia64_local_hash_entry
*entry
1418 = (struct elfNN_ia64_local_hash_entry
*) *slot
;
1425 entry
->sorted_count
= 0;
1432 /* Destroy IA-64 linker hash table. */
1435 elfNN_ia64_link_hash_table_free (bfd
*obfd
)
1437 struct elfNN_ia64_link_hash_table
*ia64_info
1438 = (struct elfNN_ia64_link_hash_table
*) obfd
->link
.hash
;
1439 if (ia64_info
->loc_hash_table
)
1441 htab_traverse (ia64_info
->loc_hash_table
,
1442 elfNN_ia64_local_dyn_info_free
, NULL
);
1443 htab_delete (ia64_info
->loc_hash_table
);
1445 if (ia64_info
->loc_hash_memory
)
1446 objalloc_free ((struct objalloc
*) ia64_info
->loc_hash_memory
);
1447 elf_link_hash_traverse (&ia64_info
->root
,
1448 elfNN_ia64_global_dyn_info_free
, NULL
);
1449 _bfd_elf_link_hash_table_free (obfd
);
1452 /* Create the derived linker hash table. The IA-64 ELF port uses this
1453 derived hash table to keep information specific to the IA-64 ElF
1454 linker (without using static variables). */
1456 static struct bfd_link_hash_table
*
1457 elfNN_ia64_hash_table_create (bfd
*abfd
)
1459 struct elfNN_ia64_link_hash_table
*ret
;
1461 ret
= bfd_zmalloc ((bfd_size_type
) sizeof (*ret
));
1465 if (!_bfd_elf_link_hash_table_init (&ret
->root
, abfd
,
1466 elfNN_ia64_new_elf_hash_entry
,
1467 sizeof (struct elfNN_ia64_link_hash_entry
),
1474 ret
->loc_hash_table
= htab_try_create (1024, elfNN_ia64_local_htab_hash
,
1475 elfNN_ia64_local_htab_eq
, NULL
);
1476 ret
->loc_hash_memory
= objalloc_create ();
1477 if (!ret
->loc_hash_table
|| !ret
->loc_hash_memory
)
1479 elfNN_ia64_link_hash_table_free (abfd
);
1482 ret
->root
.root
.hash_table_free
= elfNN_ia64_link_hash_table_free
;
1484 return &ret
->root
.root
;
1487 /* Traverse both local and global hash tables. */
1489 struct elfNN_ia64_dyn_sym_traverse_data
1491 bfd_boolean (*func
) (struct elfNN_ia64_dyn_sym_info
*, void *);
1496 elfNN_ia64_global_dyn_sym_thunk (struct bfd_hash_entry
*xentry
,
1499 struct elfNN_ia64_link_hash_entry
*entry
1500 = (struct elfNN_ia64_link_hash_entry
*) xentry
;
1501 struct elfNN_ia64_dyn_sym_traverse_data
*data
1502 = (struct elfNN_ia64_dyn_sym_traverse_data
*) xdata
;
1503 struct elfNN_ia64_dyn_sym_info
*dyn_i
;
1506 for (count
= entry
->count
, dyn_i
= entry
->info
;
1509 if (! (*data
->func
) (dyn_i
, data
->data
))
1515 elfNN_ia64_local_dyn_sym_thunk (void **slot
, void * xdata
)
1517 struct elfNN_ia64_local_hash_entry
*entry
1518 = (struct elfNN_ia64_local_hash_entry
*) *slot
;
1519 struct elfNN_ia64_dyn_sym_traverse_data
*data
1520 = (struct elfNN_ia64_dyn_sym_traverse_data
*) xdata
;
1521 struct elfNN_ia64_dyn_sym_info
*dyn_i
;
1524 for (count
= entry
->count
, dyn_i
= entry
->info
;
1527 if (! (*data
->func
) (dyn_i
, data
->data
))
1533 elfNN_ia64_dyn_sym_traverse (struct elfNN_ia64_link_hash_table
*ia64_info
,
1534 bfd_boolean (*func
) (struct elfNN_ia64_dyn_sym_info
*, void *),
1537 struct elfNN_ia64_dyn_sym_traverse_data xdata
;
1542 elf_link_hash_traverse (&ia64_info
->root
,
1543 elfNN_ia64_global_dyn_sym_thunk
, &xdata
);
1544 htab_traverse (ia64_info
->loc_hash_table
,
1545 elfNN_ia64_local_dyn_sym_thunk
, &xdata
);
1549 elfNN_ia64_create_dynamic_sections (bfd
*abfd
,
1550 struct bfd_link_info
*info
)
1552 struct elfNN_ia64_link_hash_table
*ia64_info
;
1555 if (! _bfd_elf_create_dynamic_sections (abfd
, info
))
1558 ia64_info
= elfNN_ia64_hash_table (info
);
1559 if (ia64_info
== NULL
)
1563 flagword flags
= bfd_section_flags (ia64_info
->root
.sgot
);
1564 bfd_set_section_flags (ia64_info
->root
.sgot
, SEC_SMALL_DATA
| flags
);
1565 /* The .got section is always aligned at 8 bytes. */
1566 if (!bfd_set_section_alignment (ia64_info
->root
.sgot
, 3))
1570 if (!get_pltoff (abfd
, info
, ia64_info
))
1573 s
= bfd_make_section_anyway_with_flags (abfd
, ".rela.IA_64.pltoff",
1574 (SEC_ALLOC
| SEC_LOAD
1577 | SEC_LINKER_CREATED
1580 || !bfd_set_section_alignment (s
, LOG_SECTION_ALIGN
))
1582 ia64_info
->rel_pltoff_sec
= s
;
1587 /* Find and/or create a hash entry for local symbol. */
1588 static struct elfNN_ia64_local_hash_entry
*
1589 get_local_sym_hash (struct elfNN_ia64_link_hash_table
*ia64_info
,
1590 bfd
*abfd
, const Elf_Internal_Rela
*rel
,
1593 struct elfNN_ia64_local_hash_entry e
, *ret
;
1594 asection
*sec
= abfd
->sections
;
1595 hashval_t h
= ELF_LOCAL_SYMBOL_HASH (sec
->id
,
1596 ELFNN_R_SYM (rel
->r_info
));
1600 e
.r_sym
= ELFNN_R_SYM (rel
->r_info
);
1601 slot
= htab_find_slot_with_hash (ia64_info
->loc_hash_table
, &e
, h
,
1602 create
? INSERT
: NO_INSERT
);
1608 return (struct elfNN_ia64_local_hash_entry
*) *slot
;
1610 ret
= (struct elfNN_ia64_local_hash_entry
*)
1611 objalloc_alloc ((struct objalloc
*) ia64_info
->loc_hash_memory
,
1612 sizeof (struct elfNN_ia64_local_hash_entry
));
1615 memset (ret
, 0, sizeof (*ret
));
1617 ret
->r_sym
= ELFNN_R_SYM (rel
->r_info
);
1623 /* Used to sort elfNN_ia64_dyn_sym_info array. */
1626 addend_compare (const void *xp
, const void *yp
)
1628 const struct elfNN_ia64_dyn_sym_info
*x
1629 = (const struct elfNN_ia64_dyn_sym_info
*) xp
;
1630 const struct elfNN_ia64_dyn_sym_info
*y
1631 = (const struct elfNN_ia64_dyn_sym_info
*) yp
;
1633 return x
->addend
< y
->addend
? -1 : x
->addend
> y
->addend
? 1 : 0;
1636 /* Sort elfNN_ia64_dyn_sym_info array and remove duplicates. */
1639 sort_dyn_sym_info (struct elfNN_ia64_dyn_sym_info
*info
,
1642 bfd_vma curr
, prev
, got_offset
;
1643 unsigned int i
, kept
, dupes
, diff
, dest
, src
, len
;
1645 qsort (info
, count
, sizeof (*info
), addend_compare
);
1647 /* Find the first duplicate. */
1648 prev
= info
[0].addend
;
1649 got_offset
= info
[0].got_offset
;
1650 for (i
= 1; i
< count
; i
++)
1652 curr
= info
[i
].addend
;
1655 /* For duplicates, make sure that GOT_OFFSET is valid. */
1656 if (got_offset
== (bfd_vma
) -1)
1657 got_offset
= info
[i
].got_offset
;
1660 got_offset
= info
[i
].got_offset
;
1664 /* We may move a block of elements to here. */
1667 /* Remove duplicates. */
1672 /* For duplicates, make sure that the kept one has a valid
1675 if (got_offset
!= (bfd_vma
) -1)
1676 info
[kept
].got_offset
= got_offset
;
1678 curr
= info
[i
].addend
;
1679 got_offset
= info
[i
].got_offset
;
1681 /* Move a block of elements whose first one is different from
1685 for (src
= i
+ 1; src
< count
; src
++)
1687 if (info
[src
].addend
!= curr
)
1689 /* For duplicates, make sure that GOT_OFFSET is
1691 if (got_offset
== (bfd_vma
) -1)
1692 got_offset
= info
[src
].got_offset
;
1695 /* Make sure that the kept one has a valid got_offset. */
1696 if (got_offset
!= (bfd_vma
) -1)
1697 info
[kept
].got_offset
= got_offset
;
1705 /* Find the next duplicate. SRC will be kept. */
1706 prev
= info
[src
].addend
;
1707 got_offset
= info
[src
].got_offset
;
1708 for (dupes
= src
+ 1; dupes
< count
; dupes
++)
1710 curr
= info
[dupes
].addend
;
1713 /* Make sure that got_offset is valid. */
1714 if (got_offset
== (bfd_vma
) -1)
1715 got_offset
= info
[dupes
].got_offset
;
1717 /* For duplicates, make sure that the kept one has
1718 a valid got_offset. */
1719 if (got_offset
!= (bfd_vma
) -1)
1720 info
[dupes
- 1].got_offset
= got_offset
;
1723 got_offset
= info
[dupes
].got_offset
;
1727 /* How much to move. */
1731 if (len
== 1 && dupes
< count
)
1733 /* If we only move 1 element, we combine it with the next
1734 one. There must be at least a duplicate. Find the
1735 next different one. */
1736 for (diff
= dupes
+ 1, src
++; diff
< count
; diff
++, src
++)
1738 if (info
[diff
].addend
!= curr
)
1740 /* Make sure that got_offset is valid. */
1741 if (got_offset
== (bfd_vma
) -1)
1742 got_offset
= info
[diff
].got_offset
;
1745 /* Makre sure that the last duplicated one has an valid
1747 BFD_ASSERT (curr
== prev
);
1748 if (got_offset
!= (bfd_vma
) -1)
1749 info
[diff
- 1].got_offset
= got_offset
;
1753 /* Find the next duplicate. Track the current valid
1755 prev
= info
[diff
].addend
;
1756 got_offset
= info
[diff
].got_offset
;
1757 for (dupes
= diff
+ 1; dupes
< count
; dupes
++)
1759 curr
= info
[dupes
].addend
;
1762 /* For duplicates, make sure that GOT_OFFSET
1764 if (got_offset
== (bfd_vma
) -1)
1765 got_offset
= info
[dupes
].got_offset
;
1768 got_offset
= info
[dupes
].got_offset
;
1773 len
= diff
- src
+ 1;
1778 memmove (&info
[dest
], &info
[src
], len
* sizeof (*info
));
1787 /* When we get here, either there is no duplicate at all or
1788 the only duplicate is the last element. */
1791 /* If the last element is a duplicate, make sure that the
1792 kept one has a valid got_offset. We also update count. */
1793 if (got_offset
!= (bfd_vma
) -1)
1794 info
[dest
- 1].got_offset
= got_offset
;
1802 /* Find and/or create a descriptor for dynamic symbol info. This will
1803 vary based on global or local symbol, and the addend to the reloc.
1805 We don't sort when inserting. Also, we sort and eliminate
1806 duplicates if there is an unsorted section. Typically, this will
1807 only happen once, because we do all insertions before lookups. We
1808 then use bsearch to do a lookup. This also allows lookups to be
1809 fast. So we have fast insertion (O(log N) due to duplicate check),
1810 fast lookup (O(log N)) and one sort (O(N log N) expected time).
1811 Previously, all lookups were O(N) because of the use of the linked
1812 list and also all insertions were O(N) because of the check for
1813 duplicates. There are some complications here because the array
1814 size grows occasionally, which may add an O(N) factor, but this
1815 should be rare. Also, we free the excess array allocation, which
1816 requires a copy which is O(N), but this only happens once. */
1818 static struct elfNN_ia64_dyn_sym_info
*
1819 get_dyn_sym_info (struct elfNN_ia64_link_hash_table
*ia64_info
,
1820 struct elf_link_hash_entry
*h
, bfd
*abfd
,
1821 const Elf_Internal_Rela
*rel
, bfd_boolean create
)
1823 struct elfNN_ia64_dyn_sym_info
**info_p
, *info
, *dyn_i
, key
;
1824 unsigned int *count_p
, *sorted_count_p
, *size_p
;
1825 unsigned int count
, sorted_count
, size
;
1826 bfd_vma addend
= rel
? rel
->r_addend
: 0;
1831 struct elfNN_ia64_link_hash_entry
*global_h
;
1833 global_h
= (struct elfNN_ia64_link_hash_entry
*) h
;
1834 info_p
= &global_h
->info
;
1835 count_p
= &global_h
->count
;
1836 sorted_count_p
= &global_h
->sorted_count
;
1837 size_p
= &global_h
->size
;
1841 struct elfNN_ia64_local_hash_entry
*loc_h
;
1843 loc_h
= get_local_sym_hash (ia64_info
, abfd
, rel
, create
);
1846 BFD_ASSERT (!create
);
1850 info_p
= &loc_h
->info
;
1851 count_p
= &loc_h
->count
;
1852 sorted_count_p
= &loc_h
->sorted_count
;
1853 size_p
= &loc_h
->size
;
1857 sorted_count
= *sorted_count_p
;
1862 /* When we create the array, we don't check for duplicates,
1863 except in the previously sorted section if one exists, and
1864 against the last inserted entry. This allows insertions to
1870 /* Try bsearch first on the sorted section. */
1871 key
.addend
= addend
;
1872 dyn_i
= bsearch (&key
, info
, sorted_count
,
1873 sizeof (*info
), addend_compare
);
1881 /* Do a quick check for the last inserted entry. */
1882 dyn_i
= info
+ count
- 1;
1883 if (dyn_i
->addend
== addend
)
1891 /* It is the very first element. We create the array of size
1894 amt
= size
* sizeof (*info
);
1895 info
= bfd_malloc (amt
);
1897 else if (size
<= count
)
1899 /* We double the array size every time when we reach the
1902 amt
= size
* sizeof (*info
);
1903 info
= bfd_realloc (info
, amt
);
1914 /* Append the new one to the array. */
1915 dyn_i
= info
+ count
;
1916 memset (dyn_i
, 0, sizeof (*dyn_i
));
1917 dyn_i
->got_offset
= (bfd_vma
) -1;
1918 dyn_i
->addend
= addend
;
1920 /* We increment count only since the new ones are unsorted and
1921 may have duplicate. */
1926 /* It is a lookup without insertion. Sort array if part of the
1927 array isn't sorted. */
1928 if (count
!= sorted_count
)
1930 count
= sort_dyn_sym_info (info
, count
);
1932 *sorted_count_p
= count
;
1935 /* Free unused memory. */
1938 amt
= count
* sizeof (*info
);
1939 info
= bfd_malloc (amt
);
1942 memcpy (info
, *info_p
, amt
);
1949 key
.addend
= addend
;
1950 dyn_i
= bsearch (&key
, info
, count
,
1951 sizeof (*info
), addend_compare
);
1958 get_got (bfd
*abfd
, struct bfd_link_info
*info
,
1959 struct elfNN_ia64_link_hash_table
*ia64_info
)
1964 got
= ia64_info
->root
.sgot
;
1969 dynobj
= ia64_info
->root
.dynobj
;
1971 ia64_info
->root
.dynobj
= dynobj
= abfd
;
1972 if (!_bfd_elf_create_got_section (dynobj
, info
))
1975 got
= ia64_info
->root
.sgot
;
1977 /* The .got section is always aligned at 8 bytes. */
1978 if (!bfd_set_section_alignment (got
, 3))
1981 flags
= bfd_section_flags (got
);
1982 if (!bfd_set_section_flags (got
, SEC_SMALL_DATA
| flags
))
1989 /* Create function descriptor section (.opd). This section is called .opd
1990 because it contains "official procedure descriptors". The "official"
1991 refers to the fact that these descriptors are used when taking the address
1992 of a procedure, thus ensuring a unique address for each procedure. */
1995 get_fptr (bfd
*abfd
, struct bfd_link_info
*info
,
1996 struct elfNN_ia64_link_hash_table
*ia64_info
)
2001 fptr
= ia64_info
->fptr_sec
;
2004 dynobj
= ia64_info
->root
.dynobj
;
2006 ia64_info
->root
.dynobj
= dynobj
= abfd
;
2008 fptr
= bfd_make_section_anyway_with_flags (dynobj
, ".opd",
2013 | (bfd_link_pie (info
)
2015 | SEC_LINKER_CREATED
));
2017 || !bfd_set_section_alignment (fptr
, 4))
2023 ia64_info
->fptr_sec
= fptr
;
2025 if (bfd_link_pie (info
))
2028 fptr_rel
= bfd_make_section_anyway_with_flags (dynobj
, ".rela.opd",
2029 (SEC_ALLOC
| SEC_LOAD
2032 | SEC_LINKER_CREATED
2034 if (fptr_rel
== NULL
2035 || !bfd_set_section_alignment (fptr_rel
, LOG_SECTION_ALIGN
))
2041 ia64_info
->rel_fptr_sec
= fptr_rel
;
2049 get_pltoff (bfd
*abfd
, struct bfd_link_info
*info ATTRIBUTE_UNUSED
,
2050 struct elfNN_ia64_link_hash_table
*ia64_info
)
2055 pltoff
= ia64_info
->pltoff_sec
;
2058 dynobj
= ia64_info
->root
.dynobj
;
2060 ia64_info
->root
.dynobj
= dynobj
= abfd
;
2062 pltoff
= bfd_make_section_anyway_with_flags (dynobj
,
2063 ELF_STRING_ia64_pltoff
,
2069 | SEC_LINKER_CREATED
));
2071 || !bfd_set_section_alignment (pltoff
, 4))
2077 ia64_info
->pltoff_sec
= pltoff
;
2084 get_reloc_section (bfd
*abfd
,
2085 struct elfNN_ia64_link_hash_table
*ia64_info
,
2086 asection
*sec
, bfd_boolean create
)
2088 const char *srel_name
;
2092 srel_name
= (bfd_elf_string_from_elf_section
2093 (abfd
, elf_elfheader(abfd
)->e_shstrndx
,
2094 _bfd_elf_single_rel_hdr (sec
)->sh_name
));
2095 if (srel_name
== NULL
)
2098 dynobj
= ia64_info
->root
.dynobj
;
2100 ia64_info
->root
.dynobj
= dynobj
= abfd
;
2102 srel
= bfd_get_linker_section (dynobj
, srel_name
);
2103 if (srel
== NULL
&& create
)
2105 srel
= bfd_make_section_anyway_with_flags (dynobj
, srel_name
,
2106 (SEC_ALLOC
| SEC_LOAD
2109 | SEC_LINKER_CREATED
2112 || !bfd_set_section_alignment (srel
, LOG_SECTION_ALIGN
))
2120 count_dyn_reloc (bfd
*abfd
, struct elfNN_ia64_dyn_sym_info
*dyn_i
,
2121 asection
*srel
, int type
, bfd_boolean reltext
)
2123 struct elfNN_ia64_dyn_reloc_entry
*rent
;
2125 for (rent
= dyn_i
->reloc_entries
; rent
; rent
= rent
->next
)
2126 if (rent
->srel
== srel
&& rent
->type
== type
)
2131 rent
= ((struct elfNN_ia64_dyn_reloc_entry
*)
2132 bfd_alloc (abfd
, (bfd_size_type
) sizeof (*rent
)));
2136 rent
->next
= dyn_i
->reloc_entries
;
2140 dyn_i
->reloc_entries
= rent
;
2142 rent
->reltext
= reltext
;
2149 elfNN_ia64_check_relocs (bfd
*abfd
, struct bfd_link_info
*info
,
2151 const Elf_Internal_Rela
*relocs
)
2153 struct elfNN_ia64_link_hash_table
*ia64_info
;
2154 const Elf_Internal_Rela
*relend
;
2155 Elf_Internal_Shdr
*symtab_hdr
;
2156 const Elf_Internal_Rela
*rel
;
2157 asection
*got
, *fptr
, *srel
, *pltoff
;
2166 NEED_LTOFF_FPTR
= 128,
2172 struct elf_link_hash_entry
*h
;
2173 unsigned long r_symndx
;
2174 bfd_boolean maybe_dynamic
;
2176 if (bfd_link_relocatable (info
))
2179 symtab_hdr
= &elf_tdata (abfd
)->symtab_hdr
;
2180 ia64_info
= elfNN_ia64_hash_table (info
);
2181 if (ia64_info
== NULL
)
2184 got
= fptr
= srel
= pltoff
= NULL
;
2186 relend
= relocs
+ sec
->reloc_count
;
2188 /* We scan relocations first to create dynamic relocation arrays. We
2189 modified get_dyn_sym_info to allow fast insertion and support fast
2190 lookup in the next loop. */
2191 for (rel
= relocs
; rel
< relend
; ++rel
)
2193 r_symndx
= ELFNN_R_SYM (rel
->r_info
);
2194 if (r_symndx
>= symtab_hdr
->sh_info
)
2196 long indx
= r_symndx
- symtab_hdr
->sh_info
;
2197 h
= elf_sym_hashes (abfd
)[indx
];
2198 while (h
->root
.type
== bfd_link_hash_indirect
2199 || h
->root
.type
== bfd_link_hash_warning
)
2200 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
2205 if (h
&& UNDEFWEAK_NO_DYNAMIC_RELOC (info
, h
))
2208 /* We can only get preliminary data on whether a symbol is
2209 locally or externally defined, as not all of the input files
2210 have yet been processed. Do something with what we know, as
2211 this may help reduce memory usage and processing time later. */
2212 maybe_dynamic
= (h
&& ((!bfd_link_executable (info
)
2213 && (!SYMBOLIC_BIND (info
, h
)
2214 || info
->unresolved_syms_in_shared_libs
== RM_IGNORE
))
2216 || h
->root
.type
== bfd_link_hash_defweak
));
2219 switch (ELFNN_R_TYPE (rel
->r_info
))
2221 case R_IA64_TPREL64MSB
:
2222 case R_IA64_TPREL64LSB
:
2223 if (bfd_link_pic (info
) || maybe_dynamic
)
2224 need_entry
= NEED_DYNREL
;
2227 case R_IA64_LTOFF_TPREL22
:
2228 need_entry
= NEED_TPREL
;
2229 if (bfd_link_pic (info
))
2230 info
->flags
|= DF_STATIC_TLS
;
2233 case R_IA64_DTPREL32MSB
:
2234 case R_IA64_DTPREL32LSB
:
2235 case R_IA64_DTPREL64MSB
:
2236 case R_IA64_DTPREL64LSB
:
2237 if (bfd_link_pic (info
) || maybe_dynamic
)
2238 need_entry
= NEED_DYNREL
;
2241 case R_IA64_LTOFF_DTPREL22
:
2242 need_entry
= NEED_DTPREL
;
2245 case R_IA64_DTPMOD64MSB
:
2246 case R_IA64_DTPMOD64LSB
:
2247 if (bfd_link_pic (info
) || maybe_dynamic
)
2248 need_entry
= NEED_DYNREL
;
2251 case R_IA64_LTOFF_DTPMOD22
:
2252 need_entry
= NEED_DTPMOD
;
2255 case R_IA64_LTOFF_FPTR22
:
2256 case R_IA64_LTOFF_FPTR64I
:
2257 case R_IA64_LTOFF_FPTR32MSB
:
2258 case R_IA64_LTOFF_FPTR32LSB
:
2259 case R_IA64_LTOFF_FPTR64MSB
:
2260 case R_IA64_LTOFF_FPTR64LSB
:
2261 need_entry
= NEED_FPTR
| NEED_GOT
| NEED_LTOFF_FPTR
;
2264 case R_IA64_FPTR64I
:
2265 case R_IA64_FPTR32MSB
:
2266 case R_IA64_FPTR32LSB
:
2267 case R_IA64_FPTR64MSB
:
2268 case R_IA64_FPTR64LSB
:
2269 if (bfd_link_pic (info
) || h
)
2270 need_entry
= NEED_FPTR
| NEED_DYNREL
;
2272 need_entry
= NEED_FPTR
;
2275 case R_IA64_LTOFF22
:
2276 case R_IA64_LTOFF64I
:
2277 need_entry
= NEED_GOT
;
2280 case R_IA64_LTOFF22X
:
2281 need_entry
= NEED_GOTX
;
2284 case R_IA64_PLTOFF22
:
2285 case R_IA64_PLTOFF64I
:
2286 case R_IA64_PLTOFF64MSB
:
2287 case R_IA64_PLTOFF64LSB
:
2288 need_entry
= NEED_PLTOFF
;
2292 need_entry
|= NEED_MIN_PLT
;
2296 (*info
->callbacks
->warning
)
2297 (info
, _("@pltoff reloc against local symbol"), 0,
2298 abfd
, 0, (bfd_vma
) 0);
2302 case R_IA64_PCREL21B
:
2303 case R_IA64_PCREL60B
:
2304 /* Depending on where this symbol is defined, we may or may not
2305 need a full plt entry. Only skip if we know we'll not need
2306 the entry -- static or symbolic, and the symbol definition
2307 has already been seen. */
2308 if (maybe_dynamic
&& rel
->r_addend
== 0)
2309 need_entry
= NEED_FULL_PLT
;
2315 case R_IA64_DIR32MSB
:
2316 case R_IA64_DIR32LSB
:
2317 case R_IA64_DIR64MSB
:
2318 case R_IA64_DIR64LSB
:
2319 /* Shared objects will always need at least a REL relocation. */
2320 if (bfd_link_pic (info
) || maybe_dynamic
)
2321 need_entry
= NEED_DYNREL
;
2324 case R_IA64_IPLTMSB
:
2325 case R_IA64_IPLTLSB
:
2326 /* Shared objects will always need at least a REL relocation. */
2327 if (bfd_link_pic (info
) || maybe_dynamic
)
2328 need_entry
= NEED_DYNREL
;
2331 case R_IA64_PCREL22
:
2332 case R_IA64_PCREL64I
:
2333 case R_IA64_PCREL32MSB
:
2334 case R_IA64_PCREL32LSB
:
2335 case R_IA64_PCREL64MSB
:
2336 case R_IA64_PCREL64LSB
:
2338 need_entry
= NEED_DYNREL
;
2345 if ((need_entry
& NEED_FPTR
) != 0
2348 (*info
->callbacks
->warning
)
2349 (info
, _("non-zero addend in @fptr reloc"), 0,
2350 abfd
, 0, (bfd_vma
) 0);
2353 if (get_dyn_sym_info (ia64_info
, h
, abfd
, rel
, TRUE
) == NULL
)
2357 /* Now, we only do lookup without insertion, which is very fast
2358 with the modified get_dyn_sym_info. */
2359 for (rel
= relocs
; rel
< relend
; ++rel
)
2361 struct elfNN_ia64_dyn_sym_info
*dyn_i
;
2362 int dynrel_type
= R_IA64_NONE
;
2364 r_symndx
= ELFNN_R_SYM (rel
->r_info
);
2365 if (r_symndx
>= symtab_hdr
->sh_info
)
2367 /* We're dealing with a global symbol -- find its hash entry
2368 and mark it as being referenced. */
2369 long indx
= r_symndx
- symtab_hdr
->sh_info
;
2370 h
= elf_sym_hashes (abfd
)[indx
];
2371 while (h
->root
.type
== bfd_link_hash_indirect
2372 || h
->root
.type
== bfd_link_hash_warning
)
2373 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
2375 /* PR15323, ref flags aren't set for references in the same
2382 if (h
&& UNDEFWEAK_NO_DYNAMIC_RELOC (info
, h
))
2385 /* We can only get preliminary data on whether a symbol is
2386 locally or externally defined, as not all of the input files
2387 have yet been processed. Do something with what we know, as
2388 this may help reduce memory usage and processing time later. */
2389 maybe_dynamic
= (h
&& ((!bfd_link_executable (info
)
2390 && (!SYMBOLIC_BIND (info
, h
)
2391 || info
->unresolved_syms_in_shared_libs
== RM_IGNORE
))
2393 || h
->root
.type
== bfd_link_hash_defweak
));
2396 switch (ELFNN_R_TYPE (rel
->r_info
))
2398 case R_IA64_TPREL64MSB
:
2399 case R_IA64_TPREL64LSB
:
2400 if (bfd_link_pic (info
) || maybe_dynamic
)
2401 need_entry
= NEED_DYNREL
;
2402 dynrel_type
= R_IA64_TPREL64LSB
;
2403 if (bfd_link_pic (info
))
2404 info
->flags
|= DF_STATIC_TLS
;
2407 case R_IA64_LTOFF_TPREL22
:
2408 need_entry
= NEED_TPREL
;
2409 if (bfd_link_pic (info
))
2410 info
->flags
|= DF_STATIC_TLS
;
2413 case R_IA64_DTPREL32MSB
:
2414 case R_IA64_DTPREL32LSB
:
2415 case R_IA64_DTPREL64MSB
:
2416 case R_IA64_DTPREL64LSB
:
2417 if (bfd_link_pic (info
) || maybe_dynamic
)
2418 need_entry
= NEED_DYNREL
;
2419 dynrel_type
= R_IA64_DTPRELNNLSB
;
2422 case R_IA64_LTOFF_DTPREL22
:
2423 need_entry
= NEED_DTPREL
;
2426 case R_IA64_DTPMOD64MSB
:
2427 case R_IA64_DTPMOD64LSB
:
2428 if (bfd_link_pic (info
) || maybe_dynamic
)
2429 need_entry
= NEED_DYNREL
;
2430 dynrel_type
= R_IA64_DTPMOD64LSB
;
2433 case R_IA64_LTOFF_DTPMOD22
:
2434 need_entry
= NEED_DTPMOD
;
2437 case R_IA64_LTOFF_FPTR22
:
2438 case R_IA64_LTOFF_FPTR64I
:
2439 case R_IA64_LTOFF_FPTR32MSB
:
2440 case R_IA64_LTOFF_FPTR32LSB
:
2441 case R_IA64_LTOFF_FPTR64MSB
:
2442 case R_IA64_LTOFF_FPTR64LSB
:
2443 need_entry
= NEED_FPTR
| NEED_GOT
| NEED_LTOFF_FPTR
;
2446 case R_IA64_FPTR64I
:
2447 case R_IA64_FPTR32MSB
:
2448 case R_IA64_FPTR32LSB
:
2449 case R_IA64_FPTR64MSB
:
2450 case R_IA64_FPTR64LSB
:
2451 if (bfd_link_pic (info
) || h
)
2452 need_entry
= NEED_FPTR
| NEED_DYNREL
;
2454 need_entry
= NEED_FPTR
;
2455 dynrel_type
= R_IA64_FPTRNNLSB
;
2458 case R_IA64_LTOFF22
:
2459 case R_IA64_LTOFF64I
:
2460 need_entry
= NEED_GOT
;
2463 case R_IA64_LTOFF22X
:
2464 need_entry
= NEED_GOTX
;
2467 case R_IA64_PLTOFF22
:
2468 case R_IA64_PLTOFF64I
:
2469 case R_IA64_PLTOFF64MSB
:
2470 case R_IA64_PLTOFF64LSB
:
2471 need_entry
= NEED_PLTOFF
;
2475 need_entry
|= NEED_MIN_PLT
;
2479 case R_IA64_PCREL21B
:
2480 case R_IA64_PCREL60B
:
2481 /* Depending on where this symbol is defined, we may or may not
2482 need a full plt entry. Only skip if we know we'll not need
2483 the entry -- static or symbolic, and the symbol definition
2484 has already been seen. */
2485 if (maybe_dynamic
&& rel
->r_addend
== 0)
2486 need_entry
= NEED_FULL_PLT
;
2492 case R_IA64_DIR32MSB
:
2493 case R_IA64_DIR32LSB
:
2494 case R_IA64_DIR64MSB
:
2495 case R_IA64_DIR64LSB
:
2496 /* Shared objects will always need at least a REL relocation. */
2497 if (bfd_link_pic (info
) || maybe_dynamic
)
2498 need_entry
= NEED_DYNREL
;
2499 dynrel_type
= R_IA64_DIRNNLSB
;
2502 case R_IA64_IPLTMSB
:
2503 case R_IA64_IPLTLSB
:
2504 /* Shared objects will always need at least a REL relocation. */
2505 if (bfd_link_pic (info
) || maybe_dynamic
)
2506 need_entry
= NEED_DYNREL
;
2507 dynrel_type
= R_IA64_IPLTLSB
;
2510 case R_IA64_PCREL22
:
2511 case R_IA64_PCREL64I
:
2512 case R_IA64_PCREL32MSB
:
2513 case R_IA64_PCREL32LSB
:
2514 case R_IA64_PCREL64MSB
:
2515 case R_IA64_PCREL64LSB
:
2517 need_entry
= NEED_DYNREL
;
2518 dynrel_type
= R_IA64_PCRELNNLSB
;
2525 dyn_i
= get_dyn_sym_info (ia64_info
, h
, abfd
, rel
, FALSE
);
2527 /* Record whether or not this is a local symbol. */
2530 /* Create what's needed. */
2531 if (need_entry
& (NEED_GOT
| NEED_GOTX
| NEED_TPREL
2532 | NEED_DTPMOD
| NEED_DTPREL
))
2536 got
= get_got (abfd
, info
, ia64_info
);
2540 if (need_entry
& NEED_GOT
)
2541 dyn_i
->want_got
= 1;
2542 if (need_entry
& NEED_GOTX
)
2543 dyn_i
->want_gotx
= 1;
2544 if (need_entry
& NEED_TPREL
)
2545 dyn_i
->want_tprel
= 1;
2546 if (need_entry
& NEED_DTPMOD
)
2547 dyn_i
->want_dtpmod
= 1;
2548 if (need_entry
& NEED_DTPREL
)
2549 dyn_i
->want_dtprel
= 1;
2551 if (need_entry
& NEED_FPTR
)
2555 fptr
= get_fptr (abfd
, info
, ia64_info
);
2560 /* FPTRs for shared libraries are allocated by the dynamic
2561 linker. Make sure this local symbol will appear in the
2562 dynamic symbol table. */
2563 if (!h
&& bfd_link_pic (info
))
2565 if (! (bfd_elf_link_record_local_dynamic_symbol
2566 (info
, abfd
, (long) r_symndx
)))
2570 dyn_i
->want_fptr
= 1;
2572 if (need_entry
& NEED_LTOFF_FPTR
)
2573 dyn_i
->want_ltoff_fptr
= 1;
2574 if (need_entry
& (NEED_MIN_PLT
| NEED_FULL_PLT
))
2576 if (!ia64_info
->root
.dynobj
)
2577 ia64_info
->root
.dynobj
= abfd
;
2579 dyn_i
->want_plt
= 1;
2581 if (need_entry
& NEED_FULL_PLT
)
2582 dyn_i
->want_plt2
= 1;
2583 if (need_entry
& NEED_PLTOFF
)
2585 /* This is needed here, in case @pltoff is used in a non-shared
2589 pltoff
= get_pltoff (abfd
, info
, ia64_info
);
2594 dyn_i
->want_pltoff
= 1;
2596 if ((need_entry
& NEED_DYNREL
) && (sec
->flags
& SEC_ALLOC
))
2600 srel
= get_reloc_section (abfd
, ia64_info
, sec
, TRUE
);
2604 if (!count_dyn_reloc (abfd
, dyn_i
, srel
, dynrel_type
,
2605 (sec
->flags
& SEC_READONLY
) != 0))
2613 /* For cleanliness, and potentially faster dynamic loading, allocate
2614 external GOT entries first. */
2617 allocate_global_data_got (struct elfNN_ia64_dyn_sym_info
*dyn_i
,
2620 struct elfNN_ia64_allocate_data
*x
= (struct elfNN_ia64_allocate_data
*)data
;
2622 if ((dyn_i
->want_got
|| dyn_i
->want_gotx
)
2623 && ! dyn_i
->want_fptr
2624 && elfNN_ia64_dynamic_symbol_p (dyn_i
->h
, x
->info
, 0))
2626 dyn_i
->got_offset
= x
->ofs
;
2629 if (dyn_i
->want_tprel
)
2631 dyn_i
->tprel_offset
= x
->ofs
;
2634 if (dyn_i
->want_dtpmod
)
2636 if (elfNN_ia64_dynamic_symbol_p (dyn_i
->h
, x
->info
, 0))
2638 dyn_i
->dtpmod_offset
= x
->ofs
;
2643 struct elfNN_ia64_link_hash_table
*ia64_info
;
2645 ia64_info
= elfNN_ia64_hash_table (x
->info
);
2646 if (ia64_info
== NULL
)
2649 if (ia64_info
->self_dtpmod_offset
== (bfd_vma
) -1)
2651 ia64_info
->self_dtpmod_offset
= x
->ofs
;
2654 dyn_i
->dtpmod_offset
= ia64_info
->self_dtpmod_offset
;
2657 if (dyn_i
->want_dtprel
)
2659 dyn_i
->dtprel_offset
= x
->ofs
;
2665 /* Next, allocate all the GOT entries used by LTOFF_FPTR relocs. */
2668 allocate_global_fptr_got (struct elfNN_ia64_dyn_sym_info
*dyn_i
,
2671 struct elfNN_ia64_allocate_data
*x
= (struct elfNN_ia64_allocate_data
*)data
;
2675 && elfNN_ia64_dynamic_symbol_p (dyn_i
->h
, x
->info
, R_IA64_FPTRNNLSB
))
2677 dyn_i
->got_offset
= x
->ofs
;
2683 /* Lastly, allocate all the GOT entries for local data. */
2686 allocate_local_got (struct elfNN_ia64_dyn_sym_info
*dyn_i
,
2689 struct elfNN_ia64_allocate_data
*x
= (struct elfNN_ia64_allocate_data
*)data
;
2691 if ((dyn_i
->want_got
|| dyn_i
->want_gotx
)
2692 && !elfNN_ia64_dynamic_symbol_p (dyn_i
->h
, x
->info
, 0))
2694 dyn_i
->got_offset
= x
->ofs
;
2700 /* Search for the index of a global symbol in it's defining object file. */
2703 global_sym_index (struct elf_link_hash_entry
*h
)
2705 struct elf_link_hash_entry
**p
;
2708 BFD_ASSERT (h
->root
.type
== bfd_link_hash_defined
2709 || h
->root
.type
== bfd_link_hash_defweak
);
2711 obj
= h
->root
.u
.def
.section
->owner
;
2712 for (p
= elf_sym_hashes (obj
); *p
!= h
; ++p
)
2715 return p
- elf_sym_hashes (obj
) + elf_tdata (obj
)->symtab_hdr
.sh_info
;
2718 /* Allocate function descriptors. We can do these for every function
2719 in a main executable that is not exported. */
2722 allocate_fptr (struct elfNN_ia64_dyn_sym_info
*dyn_i
, void * data
)
2724 struct elfNN_ia64_allocate_data
*x
= (struct elfNN_ia64_allocate_data
*)data
;
2726 if (dyn_i
->want_fptr
)
2728 struct elf_link_hash_entry
*h
= dyn_i
->h
;
2731 while (h
->root
.type
== bfd_link_hash_indirect
2732 || h
->root
.type
== bfd_link_hash_warning
)
2733 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
2735 if (!bfd_link_executable (x
->info
)
2737 || (ELF_ST_VISIBILITY (h
->other
) == STV_DEFAULT
2738 && !UNDEFWEAK_NO_DYNAMIC_RELOC (x
->info
, h
))
2739 || (h
->root
.type
!= bfd_link_hash_undefweak
2740 && h
->root
.type
!= bfd_link_hash_undefined
)))
2742 if (h
&& h
->dynindx
== -1)
2744 BFD_ASSERT ((h
->root
.type
== bfd_link_hash_defined
)
2745 || (h
->root
.type
== bfd_link_hash_defweak
));
2747 if (!bfd_elf_link_record_local_dynamic_symbol
2748 (x
->info
, h
->root
.u
.def
.section
->owner
,
2749 global_sym_index (h
)))
2753 dyn_i
->want_fptr
= 0;
2755 else if (h
== NULL
|| h
->dynindx
== -1)
2757 dyn_i
->fptr_offset
= x
->ofs
;
2761 dyn_i
->want_fptr
= 0;
2766 /* Allocate all the minimal PLT entries. */
2769 allocate_plt_entries (struct elfNN_ia64_dyn_sym_info
*dyn_i
,
2772 struct elfNN_ia64_allocate_data
*x
= (struct elfNN_ia64_allocate_data
*)data
;
2774 if (dyn_i
->want_plt
)
2776 struct elf_link_hash_entry
*h
= dyn_i
->h
;
2779 while (h
->root
.type
== bfd_link_hash_indirect
2780 || h
->root
.type
== bfd_link_hash_warning
)
2781 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
2783 /* ??? Versioned symbols seem to lose NEEDS_PLT. */
2784 if (elfNN_ia64_dynamic_symbol_p (h
, x
->info
, 0))
2786 bfd_size_type offset
= x
->ofs
;
2788 offset
= PLT_HEADER_SIZE
;
2789 dyn_i
->plt_offset
= offset
;
2790 x
->ofs
= offset
+ PLT_MIN_ENTRY_SIZE
;
2792 dyn_i
->want_pltoff
= 1;
2796 dyn_i
->want_plt
= 0;
2797 dyn_i
->want_plt2
= 0;
2803 /* Allocate all the full PLT entries. */
2806 allocate_plt2_entries (struct elfNN_ia64_dyn_sym_info
*dyn_i
,
2809 struct elfNN_ia64_allocate_data
*x
= (struct elfNN_ia64_allocate_data
*)data
;
2811 if (dyn_i
->want_plt2
)
2813 struct elf_link_hash_entry
*h
= dyn_i
->h
;
2814 bfd_size_type ofs
= x
->ofs
;
2816 dyn_i
->plt2_offset
= ofs
;
2817 x
->ofs
= ofs
+ PLT_FULL_ENTRY_SIZE
;
2819 while (h
->root
.type
== bfd_link_hash_indirect
2820 || h
->root
.type
== bfd_link_hash_warning
)
2821 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
2822 dyn_i
->h
->plt
.offset
= ofs
;
2827 /* Allocate all the PLTOFF entries requested by relocations and
2828 plt entries. We can't share space with allocated FPTR entries,
2829 because the latter are not necessarily addressable by the GP.
2830 ??? Relaxation might be able to determine that they are. */
2833 allocate_pltoff_entries (struct elfNN_ia64_dyn_sym_info
*dyn_i
,
2836 struct elfNN_ia64_allocate_data
*x
= (struct elfNN_ia64_allocate_data
*)data
;
2838 if (dyn_i
->want_pltoff
)
2840 dyn_i
->pltoff_offset
= x
->ofs
;
2846 /* Allocate dynamic relocations for those symbols that turned out
2850 allocate_dynrel_entries (struct elfNN_ia64_dyn_sym_info
*dyn_i
,
2853 struct elfNN_ia64_allocate_data
*x
= (struct elfNN_ia64_allocate_data
*)data
;
2854 struct elfNN_ia64_link_hash_table
*ia64_info
;
2855 struct elfNN_ia64_dyn_reloc_entry
*rent
;
2856 bfd_boolean dynamic_symbol
, shared
, resolved_zero
;
2858 ia64_info
= elfNN_ia64_hash_table (x
->info
);
2859 if (ia64_info
== NULL
)
2862 /* Note that this can't be used in relation to FPTR relocs below. */
2863 dynamic_symbol
= elfNN_ia64_dynamic_symbol_p (dyn_i
->h
, x
->info
, 0);
2865 shared
= bfd_link_pic (x
->info
);
2866 resolved_zero
= (dyn_i
->h
2867 && UNDEFWEAK_NO_DYNAMIC_RELOC (x
->info
,
2870 /* Take care of the GOT and PLT relocations. */
2873 && (dynamic_symbol
|| shared
)
2874 && (dyn_i
->want_got
|| dyn_i
->want_gotx
))
2875 || (dyn_i
->want_ltoff_fptr
2877 && dyn_i
->h
->dynindx
!= -1))
2879 if (!dyn_i
->want_ltoff_fptr
2880 || !bfd_link_pie (x
->info
)
2882 || dyn_i
->h
->root
.type
!= bfd_link_hash_undefweak
)
2883 ia64_info
->root
.srelgot
->size
+= sizeof (ElfNN_External_Rela
);
2885 if ((dynamic_symbol
|| shared
) && dyn_i
->want_tprel
)
2886 ia64_info
->root
.srelgot
->size
+= sizeof (ElfNN_External_Rela
);
2887 if (dynamic_symbol
&& dyn_i
->want_dtpmod
)
2888 ia64_info
->root
.srelgot
->size
+= sizeof (ElfNN_External_Rela
);
2889 if (dynamic_symbol
&& dyn_i
->want_dtprel
)
2890 ia64_info
->root
.srelgot
->size
+= sizeof (ElfNN_External_Rela
);
2895 if (ia64_info
->rel_fptr_sec
&& dyn_i
->want_fptr
)
2897 if (dyn_i
->h
== NULL
|| dyn_i
->h
->root
.type
!= bfd_link_hash_undefweak
)
2898 ia64_info
->rel_fptr_sec
->size
+= sizeof (ElfNN_External_Rela
);
2901 if (!resolved_zero
&& dyn_i
->want_pltoff
)
2903 bfd_size_type t
= 0;
2905 /* Dynamic symbols get one IPLT relocation. Local symbols in
2906 shared libraries get two REL relocations. Local symbols in
2907 main applications get nothing. */
2909 t
= sizeof (ElfNN_External_Rela
);
2911 t
= 2 * sizeof (ElfNN_External_Rela
);
2913 ia64_info
->rel_pltoff_sec
->size
+= t
;
2916 /* Take care of the normal data relocations. */
2918 for (rent
= dyn_i
->reloc_entries
; rent
; rent
= rent
->next
)
2920 int count
= rent
->count
;
2924 case R_IA64_FPTR32LSB
:
2925 case R_IA64_FPTR64LSB
:
2926 /* Allocate one iff !want_fptr and not PIE, which by this point
2927 will be true only if we're actually allocating one statically
2928 in the main executable. Position independent executables
2929 need a relative reloc. */
2930 if (dyn_i
->want_fptr
&& !bfd_link_pie (x
->info
))
2933 case R_IA64_PCREL32LSB
:
2934 case R_IA64_PCREL64LSB
:
2935 if (!dynamic_symbol
)
2938 case R_IA64_DIR32LSB
:
2939 case R_IA64_DIR64LSB
:
2940 if (!dynamic_symbol
&& !shared
)
2943 case R_IA64_IPLTLSB
:
2944 if (!dynamic_symbol
&& !shared
)
2946 /* Use two REL relocations for IPLT relocations
2947 against local symbols. */
2948 if (!dynamic_symbol
)
2951 case R_IA64_DTPREL32LSB
:
2952 case R_IA64_TPREL64LSB
:
2953 case R_IA64_DTPREL64LSB
:
2954 case R_IA64_DTPMOD64LSB
:
2960 ia64_info
->reltext
= 1;
2961 rent
->srel
->size
+= sizeof (ElfNN_External_Rela
) * count
;
2968 elfNN_ia64_adjust_dynamic_symbol (struct bfd_link_info
*info ATTRIBUTE_UNUSED
,
2969 struct elf_link_hash_entry
*h
)
2971 /* ??? Undefined symbols with PLT entries should be re-defined
2972 to be the PLT entry. */
2974 /* If this is a weak symbol, and there is a real definition, the
2975 processor independent code will have arranged for us to see the
2976 real definition first, and we can just use the same value. */
2977 if (h
->is_weakalias
)
2979 struct elf_link_hash_entry
*def
= weakdef (h
);
2980 BFD_ASSERT (def
->root
.type
== bfd_link_hash_defined
);
2981 h
->root
.u
.def
.section
= def
->root
.u
.def
.section
;
2982 h
->root
.u
.def
.value
= def
->root
.u
.def
.value
;
2986 /* If this is a reference to a symbol defined by a dynamic object which
2987 is not a function, we might allocate the symbol in our .dynbss section
2988 and allocate a COPY dynamic relocation.
2990 But IA-64 code is canonically PIC, so as a rule we can avoid this sort
2997 elfNN_ia64_size_dynamic_sections (bfd
*output_bfd ATTRIBUTE_UNUSED
,
2998 struct bfd_link_info
*info
)
3000 struct elfNN_ia64_allocate_data data
;
3001 struct elfNN_ia64_link_hash_table
*ia64_info
;
3004 bfd_boolean relplt
= FALSE
;
3006 ia64_info
= elfNN_ia64_hash_table (info
);
3007 if (ia64_info
== NULL
)
3009 dynobj
= ia64_info
->root
.dynobj
;
3010 ia64_info
->self_dtpmod_offset
= (bfd_vma
) -1;
3011 BFD_ASSERT(dynobj
!= NULL
);
3014 /* Set the contents of the .interp section to the interpreter. */
3015 if (ia64_info
->root
.dynamic_sections_created
3016 && bfd_link_executable (info
) && !info
->nointerp
)
3018 sec
= bfd_get_linker_section (dynobj
, ".interp");
3019 BFD_ASSERT (sec
!= NULL
);
3020 sec
->contents
= (bfd_byte
*) ELF_DYNAMIC_INTERPRETER
;
3021 sec
->size
= strlen (ELF_DYNAMIC_INTERPRETER
) + 1;
3024 /* Allocate the GOT entries. */
3026 if (ia64_info
->root
.sgot
)
3029 elfNN_ia64_dyn_sym_traverse (ia64_info
, allocate_global_data_got
, &data
);
3030 elfNN_ia64_dyn_sym_traverse (ia64_info
, allocate_global_fptr_got
, &data
);
3031 elfNN_ia64_dyn_sym_traverse (ia64_info
, allocate_local_got
, &data
);
3032 ia64_info
->root
.sgot
->size
= data
.ofs
;
3035 /* Allocate the FPTR entries. */
3037 if (ia64_info
->fptr_sec
)
3040 elfNN_ia64_dyn_sym_traverse (ia64_info
, allocate_fptr
, &data
);
3041 ia64_info
->fptr_sec
->size
= data
.ofs
;
3044 /* Now that we've seen all of the input files, we can decide which
3045 symbols need plt entries. Allocate the minimal PLT entries first.
3046 We do this even though dynamic_sections_created may be FALSE, because
3047 this has the side-effect of clearing want_plt and want_plt2. */
3050 elfNN_ia64_dyn_sym_traverse (ia64_info
, allocate_plt_entries
, &data
);
3052 ia64_info
->minplt_entries
= 0;
3055 ia64_info
->minplt_entries
3056 = (data
.ofs
- PLT_HEADER_SIZE
) / PLT_MIN_ENTRY_SIZE
;
3059 /* Align the pointer for the plt2 entries. */
3060 data
.ofs
= (data
.ofs
+ 31) & (bfd_vma
) -32;
3062 elfNN_ia64_dyn_sym_traverse (ia64_info
, allocate_plt2_entries
, &data
);
3063 if (data
.ofs
!= 0 || ia64_info
->root
.dynamic_sections_created
)
3065 /* FIXME: we always reserve the memory for dynamic linker even if
3066 there are no PLT entries since dynamic linker may assume the
3067 reserved memory always exists. */
3069 BFD_ASSERT (ia64_info
->root
.dynamic_sections_created
);
3071 ia64_info
->root
.splt
->size
= data
.ofs
;
3073 /* If we've got a .plt, we need some extra memory for the dynamic
3074 linker. We stuff these in .got.plt. */
3075 ia64_info
->root
.sgotplt
->size
= 8 * PLT_RESERVED_WORDS
;
3078 /* Allocate the PLTOFF entries. */
3080 if (ia64_info
->pltoff_sec
)
3083 elfNN_ia64_dyn_sym_traverse (ia64_info
, allocate_pltoff_entries
, &data
);
3084 ia64_info
->pltoff_sec
->size
= data
.ofs
;
3087 if (ia64_info
->root
.dynamic_sections_created
)
3089 /* Allocate space for the dynamic relocations that turned out to be
3092 if (bfd_link_pic (info
) && ia64_info
->self_dtpmod_offset
!= (bfd_vma
) -1)
3093 ia64_info
->root
.srelgot
->size
+= sizeof (ElfNN_External_Rela
);
3094 data
.only_got
= FALSE
;
3095 elfNN_ia64_dyn_sym_traverse (ia64_info
, allocate_dynrel_entries
, &data
);
3098 /* We have now determined the sizes of the various dynamic sections.
3099 Allocate memory for them. */
3100 for (sec
= dynobj
->sections
; sec
!= NULL
; sec
= sec
->next
)
3104 if (!(sec
->flags
& SEC_LINKER_CREATED
))
3107 /* If we don't need this section, strip it from the output file.
3108 There were several sections primarily related to dynamic
3109 linking that must be create before the linker maps input
3110 sections to output sections. The linker does that before
3111 bfd_elf_size_dynamic_sections is called, and it is that
3112 function which decides whether anything needs to go into
3115 strip
= (sec
->size
== 0);
3117 if (sec
== ia64_info
->root
.sgot
)
3119 else if (sec
== ia64_info
->root
.srelgot
)
3122 ia64_info
->root
.srelgot
= NULL
;
3124 /* We use the reloc_count field as a counter if we need to
3125 copy relocs into the output file. */
3126 sec
->reloc_count
= 0;
3128 else if (sec
== ia64_info
->fptr_sec
)
3131 ia64_info
->fptr_sec
= NULL
;
3133 else if (sec
== ia64_info
->rel_fptr_sec
)
3136 ia64_info
->rel_fptr_sec
= NULL
;
3138 /* We use the reloc_count field as a counter if we need to
3139 copy relocs into the output file. */
3140 sec
->reloc_count
= 0;
3142 else if (sec
== ia64_info
->root
.splt
)
3145 ia64_info
->root
.splt
= NULL
;
3147 else if (sec
== ia64_info
->pltoff_sec
)
3150 ia64_info
->pltoff_sec
= NULL
;
3152 else if (sec
== ia64_info
->rel_pltoff_sec
)
3155 ia64_info
->rel_pltoff_sec
= NULL
;
3159 /* We use the reloc_count field as a counter if we need to
3160 copy relocs into the output file. */
3161 sec
->reloc_count
= 0;
3168 /* It's OK to base decisions on the section name, because none
3169 of the dynobj section names depend upon the input files. */
3170 name
= bfd_section_name (sec
);
3172 if (strcmp (name
, ".got.plt") == 0)
3174 else if (CONST_STRNEQ (name
, ".rel"))
3178 /* We use the reloc_count field as a counter if we need to
3179 copy relocs into the output file. */
3180 sec
->reloc_count
= 0;
3188 sec
->flags
|= SEC_EXCLUDE
;
3191 /* Allocate memory for the section contents. */
3192 sec
->contents
= (bfd_byte
*) bfd_zalloc (dynobj
, sec
->size
);
3193 if (sec
->contents
== NULL
&& sec
->size
!= 0)
3198 if (ia64_info
->root
.dynamic_sections_created
)
3200 /* Add some entries to the .dynamic section. We fill in the values
3201 later (in finish_dynamic_sections) but we must add the entries now
3202 so that we get the correct size for the .dynamic section. */
3204 if (bfd_link_executable (info
))
3206 /* The DT_DEBUG entry is filled in by the dynamic linker and used
3208 #define add_dynamic_entry(TAG, VAL) \
3209 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
3211 if (!add_dynamic_entry (DT_DEBUG
, 0))
3215 if (!add_dynamic_entry (DT_IA_64_PLT_RESERVE
, 0))
3217 if (!add_dynamic_entry (DT_PLTGOT
, 0))
3222 if (!add_dynamic_entry (DT_PLTRELSZ
, 0)
3223 || !add_dynamic_entry (DT_PLTREL
, DT_RELA
)
3224 || !add_dynamic_entry (DT_JMPREL
, 0))
3228 if (!add_dynamic_entry (DT_RELA
, 0)
3229 || !add_dynamic_entry (DT_RELASZ
, 0)
3230 || !add_dynamic_entry (DT_RELAENT
, sizeof (ElfNN_External_Rela
)))
3233 if (ia64_info
->reltext
)
3235 if (!add_dynamic_entry (DT_TEXTREL
, 0))
3237 info
->flags
|= DF_TEXTREL
;
3241 /* ??? Perhaps force __gp local. */
3247 elfNN_ia64_install_dyn_reloc (bfd
*abfd
, struct bfd_link_info
*info
,
3248 asection
*sec
, asection
*srel
,
3249 bfd_vma offset
, unsigned int type
,
3250 long dynindx
, bfd_vma addend
)
3252 Elf_Internal_Rela outrel
;
3255 BFD_ASSERT (dynindx
!= -1);
3256 outrel
.r_info
= ELFNN_R_INFO (dynindx
, type
);
3257 outrel
.r_addend
= addend
;
3258 outrel
.r_offset
= _bfd_elf_section_offset (abfd
, info
, sec
, offset
);
3259 if (outrel
.r_offset
>= (bfd_vma
) -2)
3261 /* Run for the hills. We shouldn't be outputting a relocation
3262 for this. So do what everyone else does and output a no-op. */
3263 outrel
.r_info
= ELFNN_R_INFO (0, R_IA64_NONE
);
3264 outrel
.r_addend
= 0;
3265 outrel
.r_offset
= 0;
3268 outrel
.r_offset
+= sec
->output_section
->vma
+ sec
->output_offset
;
3270 loc
= srel
->contents
;
3271 loc
+= srel
->reloc_count
++ * sizeof (ElfNN_External_Rela
);
3272 bfd_elfNN_swap_reloca_out (abfd
, &outrel
, loc
);
3273 BFD_ASSERT (sizeof (ElfNN_External_Rela
) * srel
->reloc_count
<= srel
->size
);
3276 /* Store an entry for target address TARGET_ADDR in the linkage table
3277 and return the gp-relative address of the linkage table entry. */
3280 set_got_entry (bfd
*abfd
, struct bfd_link_info
*info
,
3281 struct elfNN_ia64_dyn_sym_info
*dyn_i
,
3282 long dynindx
, bfd_vma addend
, bfd_vma value
,
3283 unsigned int dyn_r_type
)
3285 struct elfNN_ia64_link_hash_table
*ia64_info
;
3290 ia64_info
= elfNN_ia64_hash_table (info
);
3291 if (ia64_info
== NULL
)
3294 got_sec
= ia64_info
->root
.sgot
;
3298 case R_IA64_TPREL64LSB
:
3299 done
= dyn_i
->tprel_done
;
3300 dyn_i
->tprel_done
= TRUE
;
3301 got_offset
= dyn_i
->tprel_offset
;
3303 case R_IA64_DTPMOD64LSB
:
3304 if (dyn_i
->dtpmod_offset
!= ia64_info
->self_dtpmod_offset
)
3306 done
= dyn_i
->dtpmod_done
;
3307 dyn_i
->dtpmod_done
= TRUE
;
3311 done
= ia64_info
->self_dtpmod_done
;
3312 ia64_info
->self_dtpmod_done
= TRUE
;
3315 got_offset
= dyn_i
->dtpmod_offset
;
3317 case R_IA64_DTPREL32LSB
:
3318 case R_IA64_DTPREL64LSB
:
3319 done
= dyn_i
->dtprel_done
;
3320 dyn_i
->dtprel_done
= TRUE
;
3321 got_offset
= dyn_i
->dtprel_offset
;
3324 done
= dyn_i
->got_done
;
3325 dyn_i
->got_done
= TRUE
;
3326 got_offset
= dyn_i
->got_offset
;
3330 BFD_ASSERT ((got_offset
& 7) == 0);
3334 /* Store the target address in the linkage table entry. */
3335 bfd_put_64 (abfd
, value
, got_sec
->contents
+ got_offset
);
3337 /* Install a dynamic relocation if needed. */
3338 if (((bfd_link_pic (info
)
3340 || (ELF_ST_VISIBILITY (dyn_i
->h
->other
) == STV_DEFAULT
3341 && !UNDEFWEAK_NO_DYNAMIC_RELOC (info
, dyn_i
->h
))
3342 || dyn_i
->h
->root
.type
!= bfd_link_hash_undefweak
)
3343 && dyn_r_type
!= R_IA64_DTPREL32LSB
3344 && dyn_r_type
!= R_IA64_DTPREL64LSB
)
3345 || elfNN_ia64_dynamic_symbol_p (dyn_i
->h
, info
, dyn_r_type
)
3347 && (dyn_r_type
== R_IA64_FPTR32LSB
3348 || dyn_r_type
== R_IA64_FPTR64LSB
)))
3349 && (!dyn_i
->want_ltoff_fptr
3350 || !bfd_link_pie (info
)
3352 || dyn_i
->h
->root
.type
!= bfd_link_hash_undefweak
))
3355 && dyn_r_type
!= R_IA64_TPREL64LSB
3356 && dyn_r_type
!= R_IA64_DTPMOD64LSB
3357 && dyn_r_type
!= R_IA64_DTPREL32LSB
3358 && dyn_r_type
!= R_IA64_DTPREL64LSB
)
3360 dyn_r_type
= R_IA64_RELNNLSB
;
3365 if (bfd_big_endian (abfd
))
3369 case R_IA64_REL32LSB
:
3370 dyn_r_type
= R_IA64_REL32MSB
;
3372 case R_IA64_DIR32LSB
:
3373 dyn_r_type
= R_IA64_DIR32MSB
;
3375 case R_IA64_FPTR32LSB
:
3376 dyn_r_type
= R_IA64_FPTR32MSB
;
3378 case R_IA64_DTPREL32LSB
:
3379 dyn_r_type
= R_IA64_DTPREL32MSB
;
3381 case R_IA64_REL64LSB
:
3382 dyn_r_type
= R_IA64_REL64MSB
;
3384 case R_IA64_DIR64LSB
:
3385 dyn_r_type
= R_IA64_DIR64MSB
;
3387 case R_IA64_FPTR64LSB
:
3388 dyn_r_type
= R_IA64_FPTR64MSB
;
3390 case R_IA64_TPREL64LSB
:
3391 dyn_r_type
= R_IA64_TPREL64MSB
;
3393 case R_IA64_DTPMOD64LSB
:
3394 dyn_r_type
= R_IA64_DTPMOD64MSB
;
3396 case R_IA64_DTPREL64LSB
:
3397 dyn_r_type
= R_IA64_DTPREL64MSB
;
3405 elfNN_ia64_install_dyn_reloc (abfd
, NULL
, got_sec
,
3406 ia64_info
->root
.srelgot
,
3407 got_offset
, dyn_r_type
,
3412 /* Return the address of the linkage table entry. */
3413 value
= (got_sec
->output_section
->vma
3414 + got_sec
->output_offset
3420 /* Fill in a function descriptor consisting of the function's code
3421 address and its global pointer. Return the descriptor's address. */
3424 set_fptr_entry (bfd
*abfd
, struct bfd_link_info
*info
,
3425 struct elfNN_ia64_dyn_sym_info
*dyn_i
,
3428 struct elfNN_ia64_link_hash_table
*ia64_info
;
3431 ia64_info
= elfNN_ia64_hash_table (info
);
3432 if (ia64_info
== NULL
)
3435 fptr_sec
= ia64_info
->fptr_sec
;
3437 if (!dyn_i
->fptr_done
)
3439 dyn_i
->fptr_done
= 1;
3441 /* Fill in the function descriptor. */
3442 bfd_put_64 (abfd
, value
, fptr_sec
->contents
+ dyn_i
->fptr_offset
);
3443 bfd_put_64 (abfd
, _bfd_get_gp_value (abfd
),
3444 fptr_sec
->contents
+ dyn_i
->fptr_offset
+ 8);
3445 if (ia64_info
->rel_fptr_sec
)
3447 Elf_Internal_Rela outrel
;
3450 if (bfd_little_endian (abfd
))
3451 outrel
.r_info
= ELFNN_R_INFO (0, R_IA64_IPLTLSB
);
3453 outrel
.r_info
= ELFNN_R_INFO (0, R_IA64_IPLTMSB
);
3454 outrel
.r_addend
= value
;
3455 outrel
.r_offset
= (fptr_sec
->output_section
->vma
3456 + fptr_sec
->output_offset
3457 + dyn_i
->fptr_offset
);
3458 loc
= ia64_info
->rel_fptr_sec
->contents
;
3459 loc
+= ia64_info
->rel_fptr_sec
->reloc_count
++
3460 * sizeof (ElfNN_External_Rela
);
3461 bfd_elfNN_swap_reloca_out (abfd
, &outrel
, loc
);
3465 /* Return the descriptor's address. */
3466 value
= (fptr_sec
->output_section
->vma
3467 + fptr_sec
->output_offset
3468 + dyn_i
->fptr_offset
);
3473 /* Fill in a PLTOFF entry consisting of the function's code address
3474 and its global pointer. Return the descriptor's address. */
3477 set_pltoff_entry (bfd
*abfd
, struct bfd_link_info
*info
,
3478 struct elfNN_ia64_dyn_sym_info
*dyn_i
,
3479 bfd_vma value
, bfd_boolean is_plt
)
3481 struct elfNN_ia64_link_hash_table
*ia64_info
;
3482 asection
*pltoff_sec
;
3484 ia64_info
= elfNN_ia64_hash_table (info
);
3485 if (ia64_info
== NULL
)
3488 pltoff_sec
= ia64_info
->pltoff_sec
;
3490 /* Don't do anything if this symbol uses a real PLT entry. In
3491 that case, we'll fill this in during finish_dynamic_symbol. */
3492 if ((! dyn_i
->want_plt
|| is_plt
)
3493 && !dyn_i
->pltoff_done
)
3495 bfd_vma gp
= _bfd_get_gp_value (abfd
);
3497 /* Fill in the function descriptor. */
3498 bfd_put_64 (abfd
, value
, pltoff_sec
->contents
+ dyn_i
->pltoff_offset
);
3499 bfd_put_64 (abfd
, gp
, pltoff_sec
->contents
+ dyn_i
->pltoff_offset
+ 8);
3501 /* Install dynamic relocations if needed. */
3503 && bfd_link_pic (info
)
3505 || (ELF_ST_VISIBILITY (dyn_i
->h
->other
) == STV_DEFAULT
3506 && !UNDEFWEAK_NO_DYNAMIC_RELOC (info
, dyn_i
->h
))
3507 || dyn_i
->h
->root
.type
!= bfd_link_hash_undefweak
))
3509 unsigned int dyn_r_type
;
3511 if (bfd_big_endian (abfd
))
3512 dyn_r_type
= R_IA64_RELNNMSB
;
3514 dyn_r_type
= R_IA64_RELNNLSB
;
3516 elfNN_ia64_install_dyn_reloc (abfd
, NULL
, pltoff_sec
,
3517 ia64_info
->rel_pltoff_sec
,
3518 dyn_i
->pltoff_offset
,
3519 dyn_r_type
, 0, value
);
3520 elfNN_ia64_install_dyn_reloc (abfd
, NULL
, pltoff_sec
,
3521 ia64_info
->rel_pltoff_sec
,
3522 dyn_i
->pltoff_offset
+ ARCH_SIZE
/ 8,
3526 dyn_i
->pltoff_done
= 1;
3529 /* Return the descriptor's address. */
3530 value
= (pltoff_sec
->output_section
->vma
3531 + pltoff_sec
->output_offset
3532 + dyn_i
->pltoff_offset
);
3537 /* Return the base VMA address which should be subtracted from real addresses
3538 when resolving @tprel() relocation.
3539 Main program TLS (whose template starts at PT_TLS p_vaddr)
3540 is assigned offset round(2 * size of pointer, PT_TLS p_align). */
3543 elfNN_ia64_tprel_base (struct bfd_link_info
*info
)
3545 asection
*tls_sec
= elf_hash_table (info
)->tls_sec
;
3546 return tls_sec
->vma
- align_power ((bfd_vma
) ARCH_SIZE
/ 4,
3547 tls_sec
->alignment_power
);
3550 /* Return the base VMA address which should be subtracted from real addresses
3551 when resolving @dtprel() relocation.
3552 This is PT_TLS segment p_vaddr. */
3555 elfNN_ia64_dtprel_base (struct bfd_link_info
*info
)
3557 return elf_hash_table (info
)->tls_sec
->vma
;
3560 /* Called through qsort to sort the .IA_64.unwind section during a
3561 non-relocatable link. Set elfNN_ia64_unwind_entry_compare_bfd
3562 to the output bfd so we can do proper endianness frobbing. */
3564 static bfd
*elfNN_ia64_unwind_entry_compare_bfd
;
3567 elfNN_ia64_unwind_entry_compare (const void * a
, const void * b
)
3571 av
= bfd_get_64 (elfNN_ia64_unwind_entry_compare_bfd
, a
);
3572 bv
= bfd_get_64 (elfNN_ia64_unwind_entry_compare_bfd
, b
);
3574 return (av
< bv
? -1 : av
> bv
? 1 : 0);
3577 /* Make sure we've got ourselves a nice fat __gp value. */
3579 elfNN_ia64_choose_gp (bfd
*abfd
, struct bfd_link_info
*info
, bfd_boolean final
)
3581 bfd_vma min_vma
= (bfd_vma
) -1, max_vma
= 0;
3582 bfd_vma min_short_vma
= min_vma
, max_short_vma
= 0;
3583 struct elf_link_hash_entry
*gp
;
3586 struct elfNN_ia64_link_hash_table
*ia64_info
;
3588 ia64_info
= elfNN_ia64_hash_table (info
);
3589 if (ia64_info
== NULL
)
3592 /* Find the min and max vma of all sections marked short. Also collect
3593 min and max vma of any type, for use in selecting a nice gp. */
3594 for (os
= abfd
->sections
; os
; os
= os
->next
)
3598 if ((os
->flags
& SEC_ALLOC
) == 0)
3602 /* When this function is called from elfNN_ia64_final_link
3603 the correct value to use is os->size. When called from
3604 elfNN_ia64_relax_section we are in the middle of section
3605 sizing; some sections will already have os->size set, others
3606 will have os->size zero and os->rawsize the previous size. */
3607 hi
= os
->vma
+ (!final
&& os
->rawsize
? os
->rawsize
: os
->size
);
3615 if (os
->flags
& SEC_SMALL_DATA
)
3617 if (min_short_vma
> lo
)
3619 if (max_short_vma
< hi
)
3624 if (ia64_info
->min_short_sec
)
3627 > (ia64_info
->min_short_sec
->vma
3628 + ia64_info
->min_short_offset
))
3629 min_short_vma
= (ia64_info
->min_short_sec
->vma
3630 + ia64_info
->min_short_offset
);
3632 < (ia64_info
->max_short_sec
->vma
3633 + ia64_info
->max_short_offset
))
3634 max_short_vma
= (ia64_info
->max_short_sec
->vma
3635 + ia64_info
->max_short_offset
);
3638 /* See if the user wants to force a value. */
3639 gp
= elf_link_hash_lookup (elf_hash_table (info
), "__gp", FALSE
,
3643 && (gp
->root
.type
== bfd_link_hash_defined
3644 || gp
->root
.type
== bfd_link_hash_defweak
))
3646 asection
*gp_sec
= gp
->root
.u
.def
.section
;
3647 gp_val
= (gp
->root
.u
.def
.value
3648 + gp_sec
->output_section
->vma
3649 + gp_sec
->output_offset
);
3653 /* Pick a sensible value. */
3655 if (ia64_info
->min_short_sec
)
3657 bfd_vma short_range
= max_short_vma
- min_short_vma
;
3659 /* If min_short_sec is set, pick one in the middle bewteen
3660 min_short_vma and max_short_vma. */
3661 if (short_range
>= 0x400000)
3663 gp_val
= min_short_vma
+ short_range
/ 2;
3667 asection
*got_sec
= ia64_info
->root
.sgot
;
3669 /* Start with just the address of the .got. */
3671 gp_val
= got_sec
->output_section
->vma
;
3672 else if (max_short_vma
!= 0)
3673 gp_val
= min_short_vma
;
3674 else if (max_vma
- min_vma
< 0x200000)
3677 gp_val
= max_vma
- 0x200000 + 8;
3680 /* If it is possible to address the entire image, but we
3681 don't with the choice above, adjust. */
3682 if (max_vma
- min_vma
< 0x400000
3683 && (max_vma
- gp_val
>= 0x200000
3684 || gp_val
- min_vma
> 0x200000))
3685 gp_val
= min_vma
+ 0x200000;
3686 else if (max_short_vma
!= 0)
3688 /* If we don't cover all the short data, adjust. */
3689 if (max_short_vma
- gp_val
>= 0x200000)
3690 gp_val
= min_short_vma
+ 0x200000;
3692 /* If we're addressing stuff past the end, adjust back. */
3693 if (gp_val
> max_vma
)
3694 gp_val
= max_vma
- 0x200000 + 8;
3698 /* Validate whether all SHF_IA_64_SHORT sections are within
3699 range of the chosen GP. */
3701 if (max_short_vma
!= 0)
3703 if (max_short_vma
- min_short_vma
>= 0x400000)
3707 /* xgettext:c-format */
3708 (_("%pB: short data segment overflowed (%#" PRIx64
" >= 0x400000)"),
3709 abfd
, (uint64_t) (max_short_vma
- min_short_vma
));
3712 else if ((gp_val
> min_short_vma
3713 && gp_val
- min_short_vma
> 0x200000)
3714 || (gp_val
< max_short_vma
3715 && max_short_vma
- gp_val
>= 0x200000))
3718 (_("%pB: __gp does not cover short data segment"), abfd
);
3723 _bfd_set_gp_value (abfd
, gp_val
);
3729 elfNN_ia64_final_link (bfd
*abfd
, struct bfd_link_info
*info
)
3731 struct elfNN_ia64_link_hash_table
*ia64_info
;
3732 asection
*unwind_output_sec
;
3734 ia64_info
= elfNN_ia64_hash_table (info
);
3735 if (ia64_info
== NULL
)
3738 /* Make sure we've got ourselves a nice fat __gp value. */
3739 if (!bfd_link_relocatable (info
))
3742 struct elf_link_hash_entry
*gp
;
3744 /* We assume after gp is set, section size will only decrease. We
3745 need to adjust gp for it. */
3746 _bfd_set_gp_value (abfd
, 0);
3747 if (! elfNN_ia64_choose_gp (abfd
, info
, TRUE
))
3749 gp_val
= _bfd_get_gp_value (abfd
);
3751 gp
= elf_link_hash_lookup (elf_hash_table (info
), "__gp", FALSE
,
3755 gp
->root
.type
= bfd_link_hash_defined
;
3756 gp
->root
.u
.def
.value
= gp_val
;
3757 gp
->root
.u
.def
.section
= bfd_abs_section_ptr
;
3761 /* If we're producing a final executable, we need to sort the contents
3762 of the .IA_64.unwind section. Force this section to be relocated
3763 into memory rather than written immediately to the output file. */
3764 unwind_output_sec
= NULL
;
3765 if (!bfd_link_relocatable (info
))
3767 asection
*s
= bfd_get_section_by_name (abfd
, ELF_STRING_ia64_unwind
);
3770 unwind_output_sec
= s
->output_section
;
3771 unwind_output_sec
->contents
3772 = bfd_malloc (unwind_output_sec
->size
);
3773 if (unwind_output_sec
->contents
== NULL
)
3778 /* Invoke the regular ELF backend linker to do all the work. */
3779 if (!bfd_elf_final_link (abfd
, info
))
3782 if (unwind_output_sec
)
3784 elfNN_ia64_unwind_entry_compare_bfd
= abfd
;
3785 qsort (unwind_output_sec
->contents
,
3786 (size_t) (unwind_output_sec
->size
/ 24),
3788 elfNN_ia64_unwind_entry_compare
);
3790 if (! bfd_set_section_contents (abfd
, unwind_output_sec
,
3791 unwind_output_sec
->contents
, (bfd_vma
) 0,
3792 unwind_output_sec
->size
))
3800 elfNN_ia64_relocate_section (bfd
*output_bfd
,
3801 struct bfd_link_info
*info
,
3803 asection
*input_section
,
3805 Elf_Internal_Rela
*relocs
,
3806 Elf_Internal_Sym
*local_syms
,
3807 asection
**local_sections
)
3809 struct elfNN_ia64_link_hash_table
*ia64_info
;
3810 Elf_Internal_Shdr
*symtab_hdr
;
3811 Elf_Internal_Rela
*rel
;
3812 Elf_Internal_Rela
*relend
;
3814 bfd_boolean ret_val
= TRUE
; /* for non-fatal errors */
3817 symtab_hdr
= &elf_tdata (input_bfd
)->symtab_hdr
;
3818 ia64_info
= elfNN_ia64_hash_table (info
);
3819 if (ia64_info
== NULL
)
3822 /* Infect various flags from the input section to the output section. */
3823 if (bfd_link_relocatable (info
))
3827 flags
= elf_section_data(input_section
)->this_hdr
.sh_flags
;
3828 flags
&= SHF_IA_64_NORECOV
;
3830 elf_section_data(input_section
->output_section
)
3831 ->this_hdr
.sh_flags
|= flags
;
3834 gp_val
= _bfd_get_gp_value (output_bfd
);
3835 srel
= get_reloc_section (input_bfd
, ia64_info
, input_section
, FALSE
);
3838 relend
= relocs
+ input_section
->reloc_count
;
3839 for (; rel
< relend
; ++rel
)
3841 struct elf_link_hash_entry
*h
;
3842 struct elfNN_ia64_dyn_sym_info
*dyn_i
;
3843 bfd_reloc_status_type r
;
3844 reloc_howto_type
*howto
;
3845 unsigned long r_symndx
;
3846 Elf_Internal_Sym
*sym
;
3847 unsigned int r_type
;
3851 bfd_boolean dynamic_symbol_p
;
3852 bfd_boolean undef_weak_ref
;
3854 r_type
= ELFNN_R_TYPE (rel
->r_info
);
3855 if (r_type
> R_IA64_MAX_RELOC_CODE
)
3857 /* xgettext:c-format */
3858 _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
3859 input_bfd
, (int) r_type
);
3860 bfd_set_error (bfd_error_bad_value
);
3865 howto
= ia64_elf_lookup_howto (r_type
);
3872 r_symndx
= ELFNN_R_SYM (rel
->r_info
);
3876 undef_weak_ref
= FALSE
;
3878 if (r_symndx
< symtab_hdr
->sh_info
)
3880 /* Reloc against local symbol. */
3882 sym
= local_syms
+ r_symndx
;
3883 sym_sec
= local_sections
[r_symndx
];
3885 value
= _bfd_elf_rela_local_sym (output_bfd
, sym
, &msec
, rel
);
3886 if (!bfd_link_relocatable (info
)
3887 && (sym_sec
->flags
& SEC_MERGE
) != 0
3888 && ELF_ST_TYPE (sym
->st_info
) == STT_SECTION
3889 && sym_sec
->sec_info_type
== SEC_INFO_TYPE_MERGE
)
3891 struct elfNN_ia64_local_hash_entry
*loc_h
;
3893 loc_h
= get_local_sym_hash (ia64_info
, input_bfd
, rel
, FALSE
);
3894 if (loc_h
&& ! loc_h
->sec_merge_done
)
3896 struct elfNN_ia64_dyn_sym_info
*dynent
;
3899 for (count
= loc_h
->count
, dynent
= loc_h
->info
;
3905 _bfd_merged_section_offset (output_bfd
, &msec
,
3906 elf_section_data (msec
)->
3910 dynent
->addend
-= sym
->st_value
;
3911 dynent
->addend
+= msec
->output_section
->vma
3912 + msec
->output_offset
3913 - sym_sec
->output_section
->vma
3914 - sym_sec
->output_offset
;
3917 /* We may have introduced duplicated entries. We need
3918 to remove them properly. */
3919 count
= sort_dyn_sym_info (loc_h
->info
, loc_h
->count
);
3920 if (count
!= loc_h
->count
)
3922 loc_h
->count
= count
;
3923 loc_h
->sorted_count
= count
;
3926 loc_h
->sec_merge_done
= 1;
3932 bfd_boolean unresolved_reloc
;
3933 bfd_boolean warned
, ignored
;
3934 struct elf_link_hash_entry
**sym_hashes
= elf_sym_hashes (input_bfd
);
3936 RELOC_FOR_GLOBAL_SYMBOL (info
, input_bfd
, input_section
, rel
,
3937 r_symndx
, symtab_hdr
, sym_hashes
,
3939 unresolved_reloc
, warned
, ignored
);
3941 if (h
->root
.type
== bfd_link_hash_undefweak
)
3942 undef_weak_ref
= TRUE
;
3943 else if (warned
|| (ignored
&& bfd_link_executable (info
)))
3947 if (sym_sec
!= NULL
&& discarded_section (sym_sec
))
3948 RELOC_AGAINST_DISCARDED_SECTION (info
, input_bfd
, input_section
,
3949 rel
, 1, relend
, howto
, 0, contents
);
3951 if (bfd_link_relocatable (info
))
3954 hit_addr
= contents
+ rel
->r_offset
;
3955 value
+= rel
->r_addend
;
3956 dynamic_symbol_p
= elfNN_ia64_dynamic_symbol_p (h
, info
, r_type
);
3967 case R_IA64_DIR32MSB
:
3968 case R_IA64_DIR32LSB
:
3969 case R_IA64_DIR64MSB
:
3970 case R_IA64_DIR64LSB
:
3971 /* Install a dynamic relocation for this reloc. */
3972 if ((dynamic_symbol_p
|| bfd_link_pic (info
))
3973 && !(h
&& UNDEFWEAK_NO_DYNAMIC_RELOC (info
, h
))
3974 && r_symndx
!= STN_UNDEF
3975 && (input_section
->flags
& SEC_ALLOC
) != 0)
3977 unsigned int dyn_r_type
;
3981 BFD_ASSERT (srel
!= NULL
);
3988 /* ??? People shouldn't be doing non-pic code in
3989 shared libraries nor dynamic executables. */
3991 /* xgettext:c-format */
3992 (_("%pB: non-pic code with imm relocation against dynamic symbol `%s'"),
3994 h
? h
->root
.root
.string
3995 : bfd_elf_sym_name (input_bfd
, symtab_hdr
, sym
,
4004 /* If we don't need dynamic symbol lookup, find a
4005 matching RELATIVE relocation. */
4006 dyn_r_type
= r_type
;
4007 if (dynamic_symbol_p
)
4009 dynindx
= h
->dynindx
;
4010 addend
= rel
->r_addend
;
4017 case R_IA64_DIR32MSB
:
4018 dyn_r_type
= R_IA64_REL32MSB
;
4020 case R_IA64_DIR32LSB
:
4021 dyn_r_type
= R_IA64_REL32LSB
;
4023 case R_IA64_DIR64MSB
:
4024 dyn_r_type
= R_IA64_REL64MSB
;
4026 case R_IA64_DIR64LSB
:
4027 dyn_r_type
= R_IA64_REL64LSB
;
4037 elfNN_ia64_install_dyn_reloc (output_bfd
, info
, input_section
,
4038 srel
, rel
->r_offset
, dyn_r_type
,
4043 case R_IA64_LTV32MSB
:
4044 case R_IA64_LTV32LSB
:
4045 case R_IA64_LTV64MSB
:
4046 case R_IA64_LTV64LSB
:
4047 r
= ia64_elf_install_value (hit_addr
, value
, r_type
);
4050 case R_IA64_GPREL22
:
4051 case R_IA64_GPREL64I
:
4052 case R_IA64_GPREL32MSB
:
4053 case R_IA64_GPREL32LSB
:
4054 case R_IA64_GPREL64MSB
:
4055 case R_IA64_GPREL64LSB
:
4056 if (dynamic_symbol_p
)
4059 /* xgettext:c-format */
4060 (_("%pB: @gprel relocation against dynamic symbol %s"),
4062 h
? h
->root
.root
.string
4063 : bfd_elf_sym_name (input_bfd
, symtab_hdr
, sym
,
4069 r
= ia64_elf_install_value (hit_addr
, value
, r_type
);
4072 case R_IA64_LTOFF22
:
4073 case R_IA64_LTOFF22X
:
4074 case R_IA64_LTOFF64I
:
4075 dyn_i
= get_dyn_sym_info (ia64_info
, h
, input_bfd
, rel
, FALSE
);
4076 value
= set_got_entry (input_bfd
, info
, dyn_i
, (h
? h
->dynindx
: -1),
4077 rel
->r_addend
, value
, R_IA64_DIRNNLSB
);
4079 r
= ia64_elf_install_value (hit_addr
, value
, r_type
);
4082 case R_IA64_PLTOFF22
:
4083 case R_IA64_PLTOFF64I
:
4084 case R_IA64_PLTOFF64MSB
:
4085 case R_IA64_PLTOFF64LSB
:
4086 dyn_i
= get_dyn_sym_info (ia64_info
, h
, input_bfd
, rel
, FALSE
);
4087 value
= set_pltoff_entry (output_bfd
, info
, dyn_i
, value
, FALSE
);
4089 r
= ia64_elf_install_value (hit_addr
, value
, r_type
);
4092 case R_IA64_FPTR64I
:
4093 case R_IA64_FPTR32MSB
:
4094 case R_IA64_FPTR32LSB
:
4095 case R_IA64_FPTR64MSB
:
4096 case R_IA64_FPTR64LSB
:
4097 dyn_i
= get_dyn_sym_info (ia64_info
, h
, input_bfd
, rel
, FALSE
);
4098 if (dyn_i
->want_fptr
)
4100 if (!undef_weak_ref
)
4101 value
= set_fptr_entry (output_bfd
, info
, dyn_i
, value
);
4103 if (!dyn_i
->want_fptr
|| bfd_link_pie (info
))
4106 unsigned int dyn_r_type
= r_type
;
4107 bfd_vma addend
= rel
->r_addend
;
4109 /* Otherwise, we expect the dynamic linker to create
4112 if (dyn_i
->want_fptr
)
4114 if (r_type
== R_IA64_FPTR64I
)
4116 /* We can't represent this without a dynamic symbol.
4117 Adjust the relocation to be against an output
4118 section symbol, which are always present in the
4119 dynamic symbol table. */
4120 /* ??? People shouldn't be doing non-pic code in
4121 shared libraries. Hork. */
4123 (_("%pB: linking non-pic code in a position independent executable"),
4130 dyn_r_type
= r_type
+ R_IA64_RELNNLSB
- R_IA64_FPTRNNLSB
;
4134 if (h
->dynindx
!= -1)
4135 dynindx
= h
->dynindx
;
4137 dynindx
= (_bfd_elf_link_lookup_local_dynindx
4138 (info
, h
->root
.u
.def
.section
->owner
,
4139 global_sym_index (h
)));
4144 dynindx
= (_bfd_elf_link_lookup_local_dynindx
4145 (info
, input_bfd
, (long) r_symndx
));
4149 elfNN_ia64_install_dyn_reloc (output_bfd
, info
, input_section
,
4150 srel
, rel
->r_offset
, dyn_r_type
,
4154 r
= ia64_elf_install_value (hit_addr
, value
, r_type
);
4157 case R_IA64_LTOFF_FPTR22
:
4158 case R_IA64_LTOFF_FPTR64I
:
4159 case R_IA64_LTOFF_FPTR32MSB
:
4160 case R_IA64_LTOFF_FPTR32LSB
:
4161 case R_IA64_LTOFF_FPTR64MSB
:
4162 case R_IA64_LTOFF_FPTR64LSB
:
4166 dyn_i
= get_dyn_sym_info (ia64_info
, h
, input_bfd
, rel
, FALSE
);
4167 if (dyn_i
->want_fptr
)
4169 BFD_ASSERT (h
== NULL
|| h
->dynindx
== -1);
4170 if (!undef_weak_ref
)
4171 value
= set_fptr_entry (output_bfd
, info
, dyn_i
, value
);
4176 /* Otherwise, we expect the dynamic linker to create
4180 if (h
->dynindx
!= -1)
4181 dynindx
= h
->dynindx
;
4183 dynindx
= (_bfd_elf_link_lookup_local_dynindx
4184 (info
, h
->root
.u
.def
.section
->owner
,
4185 global_sym_index (h
)));
4188 dynindx
= (_bfd_elf_link_lookup_local_dynindx
4189 (info
, input_bfd
, (long) r_symndx
));
4193 value
= set_got_entry (output_bfd
, info
, dyn_i
, dynindx
,
4194 rel
->r_addend
, value
, R_IA64_FPTRNNLSB
);
4196 r
= ia64_elf_install_value (hit_addr
, value
, r_type
);
4200 case R_IA64_PCREL32MSB
:
4201 case R_IA64_PCREL32LSB
:
4202 case R_IA64_PCREL64MSB
:
4203 case R_IA64_PCREL64LSB
:
4204 /* Install a dynamic relocation for this reloc. */
4205 if (dynamic_symbol_p
&& r_symndx
!= STN_UNDEF
)
4207 BFD_ASSERT (srel
!= NULL
);
4209 elfNN_ia64_install_dyn_reloc (output_bfd
, info
, input_section
,
4210 srel
, rel
->r_offset
, r_type
,
4211 h
->dynindx
, rel
->r_addend
);
4215 case R_IA64_PCREL21B
:
4216 case R_IA64_PCREL60B
:
4217 /* We should have created a PLT entry for any dynamic symbol. */
4220 dyn_i
= get_dyn_sym_info (ia64_info
, h
, NULL
, NULL
, FALSE
);
4222 if (dyn_i
&& dyn_i
->want_plt2
)
4224 /* Should have caught this earlier. */
4225 BFD_ASSERT (rel
->r_addend
== 0);
4227 value
= (ia64_info
->root
.splt
->output_section
->vma
4228 + ia64_info
->root
.splt
->output_offset
4229 + dyn_i
->plt2_offset
);
4233 /* Since there's no PLT entry, Validate that this is
4235 BFD_ASSERT (undef_weak_ref
|| sym_sec
->output_section
!= NULL
);
4237 /* If the symbol is undef_weak, we shouldn't be trying
4238 to call it. There's every chance that we'd wind up
4239 with an out-of-range fixup here. Don't bother setting
4240 any value at all. */
4246 case R_IA64_PCREL21BI
:
4247 case R_IA64_PCREL21F
:
4248 case R_IA64_PCREL21M
:
4249 case R_IA64_PCREL22
:
4250 case R_IA64_PCREL64I
:
4251 /* The PCREL21BI reloc is specifically not intended for use with
4252 dynamic relocs. PCREL21F and PCREL21M are used for speculation
4253 fixup code, and thus probably ought not be dynamic. The
4254 PCREL22 and PCREL64I relocs aren't emitted as dynamic relocs. */
4255 if (dynamic_symbol_p
)
4259 if (r_type
== R_IA64_PCREL21BI
)
4260 /* xgettext:c-format */
4261 msg
= _("%pB: @internal branch to dynamic symbol %s");
4262 else if (r_type
== R_IA64_PCREL21F
|| r_type
== R_IA64_PCREL21M
)
4263 /* xgettext:c-format */
4264 msg
= _("%pB: speculation fixup to dynamic symbol %s");
4266 /* xgettext:c-format */
4267 msg
= _("%pB: @pcrel relocation against dynamic symbol %s");
4268 _bfd_error_handler (msg
, input_bfd
,
4269 h
? h
->root
.root
.string
4270 : bfd_elf_sym_name (input_bfd
,
4280 /* Make pc-relative. */
4281 value
-= (input_section
->output_section
->vma
4282 + input_section
->output_offset
4283 + rel
->r_offset
) & ~ (bfd_vma
) 0x3;
4284 r
= ia64_elf_install_value (hit_addr
, value
, r_type
);
4287 case R_IA64_SEGREL32MSB
:
4288 case R_IA64_SEGREL32LSB
:
4289 case R_IA64_SEGREL64MSB
:
4290 case R_IA64_SEGREL64LSB
:
4292 /* Find the segment that contains the output_section. */
4293 Elf_Internal_Phdr
*p
= _bfd_elf_find_segment_containing_section
4294 (output_bfd
, input_section
->output_section
);
4298 r
= bfd_reloc_notsupported
;
4302 /* The VMA of the segment is the vaddr of the associated
4304 if (value
> p
->p_vaddr
)
4305 value
-= p
->p_vaddr
;
4308 r
= ia64_elf_install_value (hit_addr
, value
, r_type
);
4313 case R_IA64_SECREL32MSB
:
4314 case R_IA64_SECREL32LSB
:
4315 case R_IA64_SECREL64MSB
:
4316 case R_IA64_SECREL64LSB
:
4317 /* Make output-section relative to section where the symbol
4318 is defined. PR 475 */
4320 value
-= sym_sec
->output_section
->vma
;
4321 r
= ia64_elf_install_value (hit_addr
, value
, r_type
);
4324 case R_IA64_IPLTMSB
:
4325 case R_IA64_IPLTLSB
:
4326 /* Install a dynamic relocation for this reloc. */
4327 if ((dynamic_symbol_p
|| bfd_link_pic (info
))
4328 && (input_section
->flags
& SEC_ALLOC
) != 0)
4330 BFD_ASSERT (srel
!= NULL
);
4332 /* If we don't need dynamic symbol lookup, install two
4333 RELATIVE relocations. */
4334 if (!dynamic_symbol_p
)
4336 unsigned int dyn_r_type
;
4338 if (r_type
== R_IA64_IPLTMSB
)
4339 dyn_r_type
= R_IA64_REL64MSB
;
4341 dyn_r_type
= R_IA64_REL64LSB
;
4343 elfNN_ia64_install_dyn_reloc (output_bfd
, info
,
4345 srel
, rel
->r_offset
,
4346 dyn_r_type
, 0, value
);
4347 elfNN_ia64_install_dyn_reloc (output_bfd
, info
,
4349 srel
, rel
->r_offset
+ 8,
4350 dyn_r_type
, 0, gp_val
);
4353 elfNN_ia64_install_dyn_reloc (output_bfd
, info
, input_section
,
4354 srel
, rel
->r_offset
, r_type
,
4355 h
->dynindx
, rel
->r_addend
);
4358 if (r_type
== R_IA64_IPLTMSB
)
4359 r_type
= R_IA64_DIR64MSB
;
4361 r_type
= R_IA64_DIR64LSB
;
4362 ia64_elf_install_value (hit_addr
, value
, r_type
);
4363 r
= ia64_elf_install_value (hit_addr
+ 8, gp_val
, r_type
);
4366 case R_IA64_TPREL14
:
4367 case R_IA64_TPREL22
:
4368 case R_IA64_TPREL64I
:
4369 if (elf_hash_table (info
)->tls_sec
== NULL
)
4370 goto missing_tls_sec
;
4371 value
-= elfNN_ia64_tprel_base (info
);
4372 r
= ia64_elf_install_value (hit_addr
, value
, r_type
);
4375 case R_IA64_DTPREL14
:
4376 case R_IA64_DTPREL22
:
4377 case R_IA64_DTPREL64I
:
4378 case R_IA64_DTPREL32LSB
:
4379 case R_IA64_DTPREL32MSB
:
4380 case R_IA64_DTPREL64LSB
:
4381 case R_IA64_DTPREL64MSB
:
4382 if (elf_hash_table (info
)->tls_sec
== NULL
)
4383 goto missing_tls_sec
;
4384 value
-= elfNN_ia64_dtprel_base (info
);
4385 r
= ia64_elf_install_value (hit_addr
, value
, r_type
);
4388 case R_IA64_LTOFF_TPREL22
:
4389 case R_IA64_LTOFF_DTPMOD22
:
4390 case R_IA64_LTOFF_DTPREL22
:
4393 long dynindx
= h
? h
->dynindx
: -1;
4394 bfd_vma r_addend
= rel
->r_addend
;
4399 case R_IA64_LTOFF_TPREL22
:
4400 if (!dynamic_symbol_p
)
4402 if (elf_hash_table (info
)->tls_sec
== NULL
)
4403 goto missing_tls_sec
;
4404 if (!bfd_link_pic (info
))
4405 value
-= elfNN_ia64_tprel_base (info
);
4408 r_addend
+= value
- elfNN_ia64_dtprel_base (info
);
4412 got_r_type
= R_IA64_TPREL64LSB
;
4414 case R_IA64_LTOFF_DTPMOD22
:
4415 if (!dynamic_symbol_p
&& !bfd_link_pic (info
))
4417 got_r_type
= R_IA64_DTPMOD64LSB
;
4419 case R_IA64_LTOFF_DTPREL22
:
4420 if (!dynamic_symbol_p
)
4422 if (elf_hash_table (info
)->tls_sec
== NULL
)
4423 goto missing_tls_sec
;
4424 value
-= elfNN_ia64_dtprel_base (info
);
4426 got_r_type
= R_IA64_DTPRELNNLSB
;
4429 dyn_i
= get_dyn_sym_info (ia64_info
, h
, input_bfd
, rel
, FALSE
);
4430 value
= set_got_entry (input_bfd
, info
, dyn_i
, dynindx
, r_addend
,
4433 r
= ia64_elf_install_value (hit_addr
, value
, r_type
);
4438 r
= bfd_reloc_notsupported
;
4447 case bfd_reloc_undefined
:
4448 /* This can happen for global table relative relocs if
4449 __gp is undefined. This is a panic situation so we
4450 don't try to continue. */
4451 (*info
->callbacks
->undefined_symbol
)
4452 (info
, "__gp", input_bfd
, input_section
, rel
->r_offset
, 1);
4455 case bfd_reloc_notsupported
:
4460 name
= h
->root
.root
.string
;
4462 name
= bfd_elf_sym_name (input_bfd
, symtab_hdr
, sym
,
4464 (*info
->callbacks
->warning
) (info
, _("unsupported reloc"),
4466 input_section
, rel
->r_offset
);
4471 case bfd_reloc_dangerous
:
4472 case bfd_reloc_outofrange
:
4473 case bfd_reloc_overflow
:
4480 name
= h
->root
.root
.string
;
4482 name
= bfd_elf_sym_name (input_bfd
, symtab_hdr
, sym
,
4487 case R_IA64_TPREL14
:
4488 case R_IA64_TPREL22
:
4489 case R_IA64_TPREL64I
:
4490 case R_IA64_DTPREL14
:
4491 case R_IA64_DTPREL22
:
4492 case R_IA64_DTPREL64I
:
4493 case R_IA64_DTPREL32LSB
:
4494 case R_IA64_DTPREL32MSB
:
4495 case R_IA64_DTPREL64LSB
:
4496 case R_IA64_DTPREL64MSB
:
4497 case R_IA64_LTOFF_TPREL22
:
4498 case R_IA64_LTOFF_DTPMOD22
:
4499 case R_IA64_LTOFF_DTPREL22
:
4501 /* xgettext:c-format */
4502 (_("%pB: missing TLS section for relocation %s against `%s'"
4503 " at %#" PRIx64
" in section `%pA'."),
4504 input_bfd
, howto
->name
, name
,
4505 (uint64_t) rel
->r_offset
, input_section
);
4508 case R_IA64_PCREL21B
:
4509 case R_IA64_PCREL21BI
:
4510 case R_IA64_PCREL21M
:
4511 case R_IA64_PCREL21F
:
4512 if (is_elf_hash_table (info
->hash
))
4514 /* Relaxtion is always performed for ELF output.
4515 Overflow failures for those relocations mean
4516 that the section is too big to relax. */
4518 /* xgettext:c-format */
4519 (_("%pB: Can't relax br (%s) to `%s' at %#" PRIx64
4520 " in section `%pA' with size %#" PRIx64
4522 input_bfd
, howto
->name
, name
, (uint64_t) rel
->r_offset
,
4523 input_section
, (uint64_t) input_section
->size
);
4528 (*info
->callbacks
->reloc_overflow
) (info
,
4549 elfNN_ia64_finish_dynamic_symbol (bfd
*output_bfd
,
4550 struct bfd_link_info
*info
,
4551 struct elf_link_hash_entry
*h
,
4552 Elf_Internal_Sym
*sym
)
4554 struct elfNN_ia64_link_hash_table
*ia64_info
;
4555 struct elfNN_ia64_dyn_sym_info
*dyn_i
;
4557 ia64_info
= elfNN_ia64_hash_table (info
);
4558 if (ia64_info
== NULL
)
4561 dyn_i
= get_dyn_sym_info (ia64_info
, h
, NULL
, NULL
, FALSE
);
4563 /* Fill in the PLT data, if required. */
4564 if (dyn_i
&& dyn_i
->want_plt
)
4566 Elf_Internal_Rela outrel
;
4569 bfd_vma plt_addr
, pltoff_addr
, gp_val
, plt_index
;
4571 gp_val
= _bfd_get_gp_value (output_bfd
);
4573 /* Initialize the minimal PLT entry. */
4575 plt_index
= (dyn_i
->plt_offset
- PLT_HEADER_SIZE
) / PLT_MIN_ENTRY_SIZE
;
4576 plt_sec
= ia64_info
->root
.splt
;
4577 loc
= plt_sec
->contents
+ dyn_i
->plt_offset
;
4579 memcpy (loc
, plt_min_entry
, PLT_MIN_ENTRY_SIZE
);
4580 ia64_elf_install_value (loc
, plt_index
, R_IA64_IMM22
);
4581 ia64_elf_install_value (loc
+2, -dyn_i
->plt_offset
, R_IA64_PCREL21B
);
4583 plt_addr
= (plt_sec
->output_section
->vma
4584 + plt_sec
->output_offset
4585 + dyn_i
->plt_offset
);
4586 pltoff_addr
= set_pltoff_entry (output_bfd
, info
, dyn_i
, plt_addr
, TRUE
);
4588 /* Initialize the FULL PLT entry, if needed. */
4589 if (dyn_i
->want_plt2
)
4591 loc
= plt_sec
->contents
+ dyn_i
->plt2_offset
;
4593 memcpy (loc
, plt_full_entry
, PLT_FULL_ENTRY_SIZE
);
4594 ia64_elf_install_value (loc
, pltoff_addr
- gp_val
, R_IA64_IMM22
);
4596 /* Mark the symbol as undefined, rather than as defined in the
4597 plt section. Leave the value alone. */
4598 /* ??? We didn't redefine it in adjust_dynamic_symbol in the
4599 first place. But perhaps elflink.c did some for us. */
4600 if (!h
->def_regular
)
4601 sym
->st_shndx
= SHN_UNDEF
;
4604 /* Create the dynamic relocation. */
4605 outrel
.r_offset
= pltoff_addr
;
4606 if (bfd_little_endian (output_bfd
))
4607 outrel
.r_info
= ELFNN_R_INFO (h
->dynindx
, R_IA64_IPLTLSB
);
4609 outrel
.r_info
= ELFNN_R_INFO (h
->dynindx
, R_IA64_IPLTMSB
);
4610 outrel
.r_addend
= 0;
4612 /* This is fun. In the .IA_64.pltoff section, we've got entries
4613 that correspond both to real PLT entries, and those that
4614 happened to resolve to local symbols but need to be created
4615 to satisfy @pltoff relocations. The .rela.IA_64.pltoff
4616 relocations for the real PLT should come at the end of the
4617 section, so that they can be indexed by plt entry at runtime.
4619 We emitted all of the relocations for the non-PLT @pltoff
4620 entries during relocate_section. So we can consider the
4621 existing sec->reloc_count to be the base of the array of
4624 loc
= ia64_info
->rel_pltoff_sec
->contents
;
4625 loc
+= ((ia64_info
->rel_pltoff_sec
->reloc_count
+ plt_index
)
4626 * sizeof (ElfNN_External_Rela
));
4627 bfd_elfNN_swap_reloca_out (output_bfd
, &outrel
, loc
);
4630 /* Mark some specially defined symbols as absolute. */
4631 if (h
== ia64_info
->root
.hdynamic
4632 || h
== ia64_info
->root
.hgot
4633 || h
== ia64_info
->root
.hplt
)
4634 sym
->st_shndx
= SHN_ABS
;
4640 elfNN_ia64_finish_dynamic_sections (bfd
*abfd
,
4641 struct bfd_link_info
*info
)
4643 struct elfNN_ia64_link_hash_table
*ia64_info
;
4646 ia64_info
= elfNN_ia64_hash_table (info
);
4647 if (ia64_info
== NULL
)
4650 dynobj
= ia64_info
->root
.dynobj
;
4652 if (ia64_info
->root
.dynamic_sections_created
)
4654 ElfNN_External_Dyn
*dyncon
, *dynconend
;
4655 asection
*sdyn
, *sgotplt
;
4658 sdyn
= bfd_get_linker_section (dynobj
, ".dynamic");
4659 sgotplt
= ia64_info
->root
.sgotplt
;
4660 BFD_ASSERT (sdyn
!= NULL
);
4661 dyncon
= (ElfNN_External_Dyn
*) sdyn
->contents
;
4662 dynconend
= (ElfNN_External_Dyn
*) (sdyn
->contents
+ sdyn
->size
);
4664 gp_val
= _bfd_get_gp_value (abfd
);
4666 for (; dyncon
< dynconend
; dyncon
++)
4668 Elf_Internal_Dyn dyn
;
4670 bfd_elfNN_swap_dyn_in (dynobj
, dyncon
, &dyn
);
4675 dyn
.d_un
.d_ptr
= gp_val
;
4679 dyn
.d_un
.d_val
= (ia64_info
->minplt_entries
4680 * sizeof (ElfNN_External_Rela
));
4684 /* See the comment above in finish_dynamic_symbol. */
4685 dyn
.d_un
.d_ptr
= (ia64_info
->rel_pltoff_sec
->output_section
->vma
4686 + ia64_info
->rel_pltoff_sec
->output_offset
4687 + (ia64_info
->rel_pltoff_sec
->reloc_count
4688 * sizeof (ElfNN_External_Rela
)));
4691 case DT_IA_64_PLT_RESERVE
:
4692 dyn
.d_un
.d_ptr
= (sgotplt
->output_section
->vma
4693 + sgotplt
->output_offset
);
4697 bfd_elfNN_swap_dyn_out (abfd
, &dyn
, dyncon
);
4700 /* Initialize the PLT0 entry. */
4701 if (ia64_info
->root
.splt
)
4703 bfd_byte
*loc
= ia64_info
->root
.splt
->contents
;
4706 memcpy (loc
, plt_header
, PLT_HEADER_SIZE
);
4708 pltres
= (sgotplt
->output_section
->vma
4709 + sgotplt
->output_offset
4712 ia64_elf_install_value (loc
+1, pltres
, R_IA64_GPREL22
);
4719 /* ELF file flag handling: */
4721 /* Function to keep IA-64 specific file flags. */
4723 elfNN_ia64_set_private_flags (bfd
*abfd
, flagword flags
)
4725 BFD_ASSERT (!elf_flags_init (abfd
)
4726 || elf_elfheader (abfd
)->e_flags
== flags
);
4728 elf_elfheader (abfd
)->e_flags
= flags
;
4729 elf_flags_init (abfd
) = TRUE
;
4733 /* Merge backend specific data from an object file to the output
4734 object file when linking. */
4736 elfNN_ia64_merge_private_bfd_data (bfd
*ibfd
, struct bfd_link_info
*info
)
4738 bfd
*obfd
= info
->output_bfd
;
4741 bfd_boolean ok
= TRUE
;
4743 /* Don't even pretend to support mixed-format linking. */
4744 if (bfd_get_flavour (ibfd
) != bfd_target_elf_flavour
4745 || bfd_get_flavour (obfd
) != bfd_target_elf_flavour
)
4748 in_flags
= elf_elfheader (ibfd
)->e_flags
;
4749 out_flags
= elf_elfheader (obfd
)->e_flags
;
4751 if (! elf_flags_init (obfd
))
4753 elf_flags_init (obfd
) = TRUE
;
4754 elf_elfheader (obfd
)->e_flags
= in_flags
;
4756 if (bfd_get_arch (obfd
) == bfd_get_arch (ibfd
)
4757 && bfd_get_arch_info (obfd
)->the_default
)
4759 return bfd_set_arch_mach (obfd
, bfd_get_arch (ibfd
),
4760 bfd_get_mach (ibfd
));
4766 /* Check flag compatibility. */
4767 if (in_flags
== out_flags
)
4770 /* Output has EF_IA_64_REDUCEDFP set only if all inputs have it set. */
4771 if (!(in_flags
& EF_IA_64_REDUCEDFP
) && (out_flags
& EF_IA_64_REDUCEDFP
))
4772 elf_elfheader (obfd
)->e_flags
&= ~EF_IA_64_REDUCEDFP
;
4774 if ((in_flags
& EF_IA_64_TRAPNIL
) != (out_flags
& EF_IA_64_TRAPNIL
))
4777 (_("%pB: linking trap-on-NULL-dereference with non-trapping files"),
4780 bfd_set_error (bfd_error_bad_value
);
4783 if ((in_flags
& EF_IA_64_BE
) != (out_flags
& EF_IA_64_BE
))
4786 (_("%pB: linking big-endian files with little-endian files"),
4789 bfd_set_error (bfd_error_bad_value
);
4792 if ((in_flags
& EF_IA_64_ABI64
) != (out_flags
& EF_IA_64_ABI64
))
4795 (_("%pB: linking 64-bit files with 32-bit files"),
4798 bfd_set_error (bfd_error_bad_value
);
4801 if ((in_flags
& EF_IA_64_CONS_GP
) != (out_flags
& EF_IA_64_CONS_GP
))
4804 (_("%pB: linking constant-gp files with non-constant-gp files"),
4807 bfd_set_error (bfd_error_bad_value
);
4810 if ((in_flags
& EF_IA_64_NOFUNCDESC_CONS_GP
)
4811 != (out_flags
& EF_IA_64_NOFUNCDESC_CONS_GP
))
4814 (_("%pB: linking auto-pic files with non-auto-pic files"),
4817 bfd_set_error (bfd_error_bad_value
);
4825 elfNN_ia64_print_private_bfd_data (bfd
*abfd
, void * ptr
)
4827 FILE *file
= (FILE *) ptr
;
4828 flagword flags
= elf_elfheader (abfd
)->e_flags
;
4830 BFD_ASSERT (abfd
!= NULL
&& ptr
!= NULL
);
4832 fprintf (file
, "private flags = %s%s%s%s%s%s%s%s\n",
4833 (flags
& EF_IA_64_TRAPNIL
) ? "TRAPNIL, " : "",
4834 (flags
& EF_IA_64_EXT
) ? "EXT, " : "",
4835 (flags
& EF_IA_64_BE
) ? "BE, " : "LE, ",
4836 (flags
& EF_IA_64_REDUCEDFP
) ? "REDUCEDFP, " : "",
4837 (flags
& EF_IA_64_CONS_GP
) ? "CONS_GP, " : "",
4838 (flags
& EF_IA_64_NOFUNCDESC_CONS_GP
) ? "NOFUNCDESC_CONS_GP, " : "",
4839 (flags
& EF_IA_64_ABSOLUTE
) ? "ABSOLUTE, " : "",
4840 (flags
& EF_IA_64_ABI64
) ? "ABI64" : "ABI32");
4842 _bfd_elf_print_private_bfd_data (abfd
, ptr
);
4846 static enum elf_reloc_type_class
4847 elfNN_ia64_reloc_type_class (const struct bfd_link_info
*info ATTRIBUTE_UNUSED
,
4848 const asection
*rel_sec ATTRIBUTE_UNUSED
,
4849 const Elf_Internal_Rela
*rela
)
4851 switch ((int) ELFNN_R_TYPE (rela
->r_info
))
4853 case R_IA64_REL32MSB
:
4854 case R_IA64_REL32LSB
:
4855 case R_IA64_REL64MSB
:
4856 case R_IA64_REL64LSB
:
4857 return reloc_class_relative
;
4858 case R_IA64_IPLTMSB
:
4859 case R_IA64_IPLTLSB
:
4860 return reloc_class_plt
;
4862 return reloc_class_copy
;
4864 return reloc_class_normal
;
4868 static const struct bfd_elf_special_section elfNN_ia64_special_sections
[] =
4870 { STRING_COMMA_LEN (".sbss"), -1, SHT_NOBITS
, SHF_ALLOC
+ SHF_WRITE
+ SHF_IA_64_SHORT
},
4871 { STRING_COMMA_LEN (".sdata"), -1, SHT_PROGBITS
, SHF_ALLOC
+ SHF_WRITE
+ SHF_IA_64_SHORT
},
4872 { NULL
, 0, 0, 0, 0 }
4876 elfNN_ia64_object_p (bfd
*abfd
)
4879 asection
*group
, *unwi
, *unw
;
4882 char *unwi_name
, *unw_name
;
4885 if (abfd
->flags
& DYNAMIC
)
4888 /* Flags for fake group section. */
4889 flags
= (SEC_LINKER_CREATED
| SEC_GROUP
| SEC_LINK_ONCE
4892 /* We add a fake section group for each .gnu.linkonce.t.* section,
4893 which isn't in a section group, and its unwind sections. */
4894 for (sec
= abfd
->sections
; sec
!= NULL
; sec
= sec
->next
)
4896 if (elf_sec_group (sec
) == NULL
4897 && ((sec
->flags
& (SEC_LINK_ONCE
| SEC_CODE
| SEC_GROUP
))
4898 == (SEC_LINK_ONCE
| SEC_CODE
))
4899 && CONST_STRNEQ (sec
->name
, ".gnu.linkonce.t."))
4901 name
= sec
->name
+ 16;
4903 amt
= strlen (name
) + sizeof (".gnu.linkonce.ia64unwi.");
4904 unwi_name
= bfd_alloc (abfd
, amt
);
4908 strcpy (stpcpy (unwi_name
, ".gnu.linkonce.ia64unwi."), name
);
4909 unwi
= bfd_get_section_by_name (abfd
, unwi_name
);
4911 amt
= strlen (name
) + sizeof (".gnu.linkonce.ia64unw.");
4912 unw_name
= bfd_alloc (abfd
, amt
);
4916 strcpy (stpcpy (unw_name
, ".gnu.linkonce.ia64unw."), name
);
4917 unw
= bfd_get_section_by_name (abfd
, unw_name
);
4919 /* We need to create a fake group section for it and its
4921 group
= bfd_make_section_anyway_with_flags (abfd
, name
,
4926 /* Move the fake group section to the beginning. */
4927 bfd_section_list_remove (abfd
, group
);
4928 bfd_section_list_prepend (abfd
, group
);
4930 elf_next_in_group (group
) = sec
;
4932 elf_group_name (sec
) = name
;
4933 elf_next_in_group (sec
) = sec
;
4934 elf_sec_group (sec
) = group
;
4938 elf_group_name (unwi
) = name
;
4939 elf_next_in_group (unwi
) = sec
;
4940 elf_next_in_group (sec
) = unwi
;
4941 elf_sec_group (unwi
) = group
;
4946 elf_group_name (unw
) = name
;
4949 elf_next_in_group (unw
) = elf_next_in_group (unwi
);
4950 elf_next_in_group (unwi
) = unw
;
4954 elf_next_in_group (unw
) = sec
;
4955 elf_next_in_group (sec
) = unw
;
4957 elf_sec_group (unw
) = group
;
4960 /* Fake SHT_GROUP section header. */
4961 elf_section_data (group
)->this_hdr
.bfd_section
= group
;
4962 elf_section_data (group
)->this_hdr
.sh_type
= SHT_GROUP
;
4969 elfNN_ia64_hpux_vec (const bfd_target
*vec
)
4971 extern const bfd_target ia64_elfNN_hpux_be_vec
;
4972 return (vec
== &ia64_elfNN_hpux_be_vec
);
4976 elfNN_hpux_init_file_header (bfd
*abfd
, struct bfd_link_info
*info
)
4978 Elf_Internal_Ehdr
*i_ehdrp
;
4980 if (!_bfd_elf_init_file_header (abfd
, info
))
4983 i_ehdrp
= elf_elfheader (abfd
);
4984 i_ehdrp
->e_ident
[EI_OSABI
] = get_elf_backend_data (abfd
)->elf_osabi
;
4985 i_ehdrp
->e_ident
[EI_ABIVERSION
] = 1;
4990 elfNN_hpux_backend_section_from_bfd_section (bfd
*abfd ATTRIBUTE_UNUSED
,
4991 asection
*sec
, int *retval
)
4993 if (bfd_is_com_section (sec
))
4995 *retval
= SHN_IA_64_ANSI_COMMON
;
5002 elfNN_hpux_backend_symbol_processing (bfd
*abfd ATTRIBUTE_UNUSED
,
5005 elf_symbol_type
*elfsym
= (elf_symbol_type
*) asym
;
5007 switch (elfsym
->internal_elf_sym
.st_shndx
)
5009 case SHN_IA_64_ANSI_COMMON
:
5010 asym
->section
= bfd_com_section_ptr
;
5011 asym
->value
= elfsym
->internal_elf_sym
.st_size
;
5012 asym
->flags
&= ~BSF_GLOBAL
;
5017 #define TARGET_LITTLE_SYM ia64_elfNN_le_vec
5018 #define TARGET_LITTLE_NAME "elfNN-ia64-little"
5019 #define TARGET_BIG_SYM ia64_elfNN_be_vec
5020 #define TARGET_BIG_NAME "elfNN-ia64-big"
5021 #define ELF_ARCH bfd_arch_ia64
5022 #define ELF_TARGET_ID IA64_ELF_DATA
5023 #define ELF_MACHINE_CODE EM_IA_64
5024 #define ELF_MACHINE_ALT1 1999 /* EAS2.3 */
5025 #define ELF_MACHINE_ALT2 1998 /* EAS2.2 */
5026 #define ELF_MAXPAGESIZE 0x10000 /* 64KB */
5027 #define ELF_COMMONPAGESIZE 0x4000 /* 16KB */
5029 #define elf_backend_section_from_shdr \
5030 elfNN_ia64_section_from_shdr
5031 #define elf_backend_section_flags \
5032 elfNN_ia64_section_flags
5033 #define elf_backend_fake_sections \
5034 elfNN_ia64_fake_sections
5035 #define elf_backend_final_write_processing \
5036 elfNN_ia64_final_write_processing
5037 #define elf_backend_add_symbol_hook \
5038 elfNN_ia64_add_symbol_hook
5039 #define elf_backend_additional_program_headers \
5040 elfNN_ia64_additional_program_headers
5041 #define elf_backend_modify_segment_map \
5042 elfNN_ia64_modify_segment_map
5043 #define elf_backend_modify_headers \
5044 elfNN_ia64_modify_headers
5045 #define elf_info_to_howto \
5046 elfNN_ia64_info_to_howto
5048 #define bfd_elfNN_bfd_reloc_type_lookup \
5049 ia64_elf_reloc_type_lookup
5050 #define bfd_elfNN_bfd_reloc_name_lookup \
5051 ia64_elf_reloc_name_lookup
5052 #define bfd_elfNN_bfd_is_local_label_name \
5053 elfNN_ia64_is_local_label_name
5054 #define bfd_elfNN_bfd_relax_section \
5055 elfNN_ia64_relax_section
5057 #define elf_backend_object_p \
5060 /* Stuff for the BFD linker: */
5061 #define bfd_elfNN_bfd_link_hash_table_create \
5062 elfNN_ia64_hash_table_create
5063 #define elf_backend_create_dynamic_sections \
5064 elfNN_ia64_create_dynamic_sections
5065 #define elf_backend_check_relocs \
5066 elfNN_ia64_check_relocs
5067 #define elf_backend_adjust_dynamic_symbol \
5068 elfNN_ia64_adjust_dynamic_symbol
5069 #define elf_backend_size_dynamic_sections \
5070 elfNN_ia64_size_dynamic_sections
5071 #define elf_backend_omit_section_dynsym \
5072 _bfd_elf_omit_section_dynsym_all
5073 #define elf_backend_relocate_section \
5074 elfNN_ia64_relocate_section
5075 #define elf_backend_finish_dynamic_symbol \
5076 elfNN_ia64_finish_dynamic_symbol
5077 #define elf_backend_finish_dynamic_sections \
5078 elfNN_ia64_finish_dynamic_sections
5079 #define bfd_elfNN_bfd_final_link \
5080 elfNN_ia64_final_link
5082 #define bfd_elfNN_bfd_merge_private_bfd_data \
5083 elfNN_ia64_merge_private_bfd_data
5084 #define bfd_elfNN_bfd_set_private_flags \
5085 elfNN_ia64_set_private_flags
5086 #define bfd_elfNN_bfd_print_private_bfd_data \
5087 elfNN_ia64_print_private_bfd_data
5089 #define elf_backend_plt_readonly 1
5090 #define elf_backend_can_gc_sections 1
5091 #define elf_backend_want_plt_sym 0
5092 #define elf_backend_plt_alignment 5
5093 #define elf_backend_got_header_size 0
5094 #define elf_backend_want_got_plt 1
5095 #define elf_backend_may_use_rel_p 1
5096 #define elf_backend_may_use_rela_p 1
5097 #define elf_backend_default_use_rela_p 1
5098 #define elf_backend_want_dynbss 0
5099 #define elf_backend_copy_indirect_symbol elfNN_ia64_hash_copy_indirect
5100 #define elf_backend_hide_symbol elfNN_ia64_hash_hide_symbol
5101 #define elf_backend_fixup_symbol _bfd_elf_link_hash_fixup_symbol
5102 #define elf_backend_reloc_type_class elfNN_ia64_reloc_type_class
5103 #define elf_backend_rela_normal 1
5104 #define elf_backend_dtrel_excludes_plt 1
5105 #define elf_backend_special_sections elfNN_ia64_special_sections
5106 #define elf_backend_default_execstack 0
5108 /* FIXME: PR 290: The Intel C compiler generates SHT_IA_64_UNWIND with
5109 SHF_LINK_ORDER. But it doesn't set the sh_link or sh_info fields.
5110 We don't want to flood users with so many error messages. We turn
5111 off the warning for now. It will be turned on later when the Intel
5112 compiler is fixed. */
5113 #define elf_backend_link_order_error_handler NULL
5115 #include "elfNN-target.h"
5117 /* HPUX-specific vectors. */
5119 #undef TARGET_LITTLE_SYM
5120 #undef TARGET_LITTLE_NAME
5121 #undef TARGET_BIG_SYM
5122 #define TARGET_BIG_SYM ia64_elfNN_hpux_be_vec
5123 #undef TARGET_BIG_NAME
5124 #define TARGET_BIG_NAME "elfNN-ia64-hpux-big"
5126 /* These are HP-UX specific functions. */
5128 #undef elf_backend_init_file_header
5129 #define elf_backend_init_file_header elfNN_hpux_init_file_header
5131 #undef elf_backend_section_from_bfd_section
5132 #define elf_backend_section_from_bfd_section elfNN_hpux_backend_section_from_bfd_section
5134 #undef elf_backend_symbol_processing
5135 #define elf_backend_symbol_processing elfNN_hpux_backend_symbol_processing
5137 #undef elf_backend_want_p_paddr_set_to_zero
5138 #define elf_backend_want_p_paddr_set_to_zero 1
5140 #undef ELF_COMMONPAGESIZE
5142 #define ELF_OSABI ELFOSABI_HPUX
5145 #define elfNN_bed elfNN_ia64_hpux_bed
5147 #include "elfNN-target.h"