projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Fix erroroneous use of '%zu' in elfcore_grok_win32pstatus
[deliverable/binutils-gdb.git] / bfd / elfnn-ia64.c
CommitLineData
cbe79dfe 1/* IA-64 support for 64-bit ELF
b3adc24a 2 Copyright (C) 1998-2020 Free Software Foundation, Inc.
cbe79dfe
TG		 3 Contributed by David Mosberger-Tang <davidm@hpl.hp.com>
4
5 This file is part of BFD, the Binary File Descriptor library.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
20 MA 02110-1301, USA. */
21
22#include "sysdep.h"
23#include "bfd.h"
24#include "libbfd.h"
25#include "elf-bfd.h"
26#include "opcode/ia64.h"
27#include "elf/ia64.h"
28#include "objalloc.h"
29#include "hashtab.h"
cbe79dfe
TG		 30#include "elfxx-ia64.h"
31
32#define ARCH_SIZE NN
33
34#if ARCH_SIZE == 64
35#define LOG_SECTION_ALIGN 3
36#endif
37
38#if ARCH_SIZE == 32
39#define LOG_SECTION_ALIGN 2
40#endif
41
b26a3d58
ST		 42#define is_ia64_elf(bfd) \
43 (bfd_get_flavour (bfd) == bfd_target_elf_flavour \
44 && elf_object_id (bfd) == IA64_ELF_DATA)
45
cbe79dfe
TG		 46typedef struct bfd_hash_entry *(*new_hash_entry_func)
47 (struct bfd_hash_entry *, struct bfd_hash_table *, const char *);
48
49/* In dynamically (linker-) created sections, we generally need to keep track
50 of the place a symbol or expression got allocated to. This is done via hash
51 tables that store entries of the following type. */
52
53struct elfNN_ia64_dyn_sym_info
54{
55 /* The addend for which this entry is relevant. */
56 bfd_vma addend;
57
58 bfd_vma got_offset;
59 bfd_vma fptr_offset;
60 bfd_vma pltoff_offset;
61 bfd_vma plt_offset;
62 bfd_vma plt2_offset;
63 bfd_vma tprel_offset;
64 bfd_vma dtpmod_offset;
65 bfd_vma dtprel_offset;
66
67 /* The symbol table entry, if any, that this was derived from. */
68 struct elf_link_hash_entry *h;
69
70 /* Used to count non-got, non-plt relocations for delayed sizing
71 of relocation sections. */
72 struct elfNN_ia64_dyn_reloc_entry
73 {
74 struct elfNN_ia64_dyn_reloc_entry *next;
75 asection *srel;
76 int type;
77 int count;
78
79 /* Is this reloc against readonly section? */
80 bfd_boolean reltext;
81 } *reloc_entries;
82
83 /* TRUE when the section contents have been updated. */
84 unsigned got_done : 1;
85 unsigned fptr_done : 1;
86 unsigned pltoff_done : 1;
87 unsigned tprel_done : 1;
88 unsigned dtpmod_done : 1;
89 unsigned dtprel_done : 1;
90
91 /* TRUE for the different kinds of linker data we want created. */
92 unsigned want_got : 1;
93 unsigned want_gotx : 1;
94 unsigned want_fptr : 1;
95 unsigned want_ltoff_fptr : 1;
96 unsigned want_plt : 1;
97 unsigned want_plt2 : 1;
98 unsigned want_pltoff : 1;
99 unsigned want_tprel : 1;
100 unsigned want_dtpmod : 1;
101 unsigned want_dtprel : 1;
102};
103
104struct elfNN_ia64_local_hash_entry
105{
106 int id;
107 unsigned int r_sym;
108 /* The number of elements in elfNN_ia64_dyn_sym_info array. */
109 unsigned int count;
110 /* The number of sorted elements in elfNN_ia64_dyn_sym_info array. */
111 unsigned int sorted_count;
112 /* The size of elfNN_ia64_dyn_sym_info array. */
113 unsigned int size;
114 /* The array of elfNN_ia64_dyn_sym_info. */
115 struct elfNN_ia64_dyn_sym_info *info;
116
117 /* TRUE if this hash entry's addends was translated for
118 SHF_MERGE optimization. */
119 unsigned sec_merge_done : 1;
120};
121
122struct elfNN_ia64_link_hash_entry
123{
124 struct elf_link_hash_entry root;
125 /* The number of elements in elfNN_ia64_dyn_sym_info array. */
126 unsigned int count;
127 /* The number of sorted elements in elfNN_ia64_dyn_sym_info array. */
128 unsigned int sorted_count;
129 /* The size of elfNN_ia64_dyn_sym_info array. */
130 unsigned int size;
131 /* The array of elfNN_ia64_dyn_sym_info. */
132 struct elfNN_ia64_dyn_sym_info *info;
133};
134
135struct elfNN_ia64_link_hash_table
136{
137 /* The main hash table. */
138 struct elf_link_hash_table root;
139
140 asection *fptr_sec; /* Function descriptor table (or NULL). */
141 asection *rel_fptr_sec; /* Dynamic relocation section for same. */
142 asection *pltoff_sec; /* Private descriptors for plt (or NULL). */
143 asection *rel_pltoff_sec; /* Dynamic relocation section for same. */
144
145 bfd_size_type minplt_entries; /* Number of minplt entries. */
cbe79dfe
TG		 146 unsigned self_dtpmod_done : 1;/* Has self DTPMOD entry been finished? */
147 bfd_vma self_dtpmod_offset; /* .got offset to self DTPMOD entry. */
148 /* There are maybe R_IA64_GPREL22 relocations, including those
149 optimized from R_IA64_LTOFF22X, against non-SHF_IA_64_SHORT
150 sections. We need to record those sections so that we can choose
151 a proper GP to cover all R_IA64_GPREL22 relocations. */
152 asection *max_short_sec; /* Maximum short output section. */
153 bfd_vma max_short_offset; /* Maximum short offset. */
154 asection *min_short_sec; /* Minimum short output section. */
155 bfd_vma min_short_offset; /* Minimum short offset. */
156
157 htab_t loc_hash_table;
158 void *loc_hash_memory;
159};
160
161struct elfNN_ia64_allocate_data
162{
163 struct bfd_link_info *info;
164 bfd_size_type ofs;
165 bfd_boolean only_got;
166};
167
168#define elfNN_ia64_hash_table(p) \
169 (elf_hash_table_id ((struct elf_link_hash_table *) ((p)->hash)) \
170 == IA64_ELF_DATA ? ((struct elfNN_ia64_link_hash_table *) ((p)->hash)) : NULL)
171
172static struct elfNN_ia64_dyn_sym_info * get_dyn_sym_info
173 (struct elfNN_ia64_link_hash_table *ia64_info,
174 struct elf_link_hash_entry *h,
175 bfd *abfd, const Elf_Internal_Rela *rel, bfd_boolean create);
176static bfd_boolean elfNN_ia64_dynamic_symbol_p
177 (struct elf_link_hash_entry *h, struct bfd_link_info *info, int);
178static bfd_boolean elfNN_ia64_choose_gp
179 (bfd *abfd, struct bfd_link_info *info, bfd_boolean final);
180static void elfNN_ia64_dyn_sym_traverse
181 (struct elfNN_ia64_link_hash_table *ia64_info,
2c3fc389
NC		 182 bfd_boolean (*func) (struct elfNN_ia64_dyn_sym_info *, void *),
183 void * info);
cbe79dfe 184static bfd_boolean allocate_global_data_got
2c3fc389 185 (struct elfNN_ia64_dyn_sym_info *dyn_i, void * data);
cbe79dfe 186static bfd_boolean allocate_global_fptr_got
2c3fc389 187 (struct elfNN_ia64_dyn_sym_info *dyn_i, void * data);
cbe79dfe 188static bfd_boolean allocate_local_got
2c3fc389 189 (struct elfNN_ia64_dyn_sym_info *dyn_i, void * data);
cbe79dfe
TG		 190static bfd_boolean elfNN_ia64_hpux_vec
191 (const bfd_target *vec);
192static bfd_boolean allocate_dynrel_entries
2c3fc389 193 (struct elfNN_ia64_dyn_sym_info *dyn_i, void * data);
cbe79dfe
TG		 194static asection *get_pltoff
195 (bfd *abfd, struct bfd_link_info *info,
196 struct elfNN_ia64_link_hash_table *ia64_info);
197\f
198/* ia64-specific relocation. */
199
200/* Given a ELF reloc, return the matching HOWTO structure. */
201
f3185997 202static bfd_boolean
cbe79dfe
TG		 203elfNN_ia64_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
204 arelent *bfd_reloc,
205 Elf_Internal_Rela *elf_reloc)
206{
f3185997
NC		 207 unsigned int r_type = ELF32_R_TYPE (elf_reloc->r_info);
208
209 bfd_reloc->howto = ia64_elf_lookup_howto (r_type);
210 if (bfd_reloc->howto == NULL)
211 {
212 /* xgettext:c-format */
213 _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
214 abfd, r_type);
215 bfd_set_error (bfd_error_bad_value);
216 return FALSE;
217 }
218
219 return TRUE;
cbe79dfe
TG		 220}
221\f
222#define PLT_HEADER_SIZE (3 * 16)
223#define PLT_MIN_ENTRY_SIZE (1 * 16)
224#define PLT_FULL_ENTRY_SIZE (2 * 16)
225#define PLT_RESERVED_WORDS 3
226
227static const bfd_byte plt_header[PLT_HEADER_SIZE] =
228{
07d6d2b8
AM		 229 0x0b, 0x10, 0x00, 0x1c, 0x00, 0x21, /* [MMI] mov r2=r14;; */
230 0xe0, 0x00, 0x08, 0x00, 0x48, 0x00, /* addl r14=0,r2 */
231 0x00, 0x00, 0x04, 0x00, /* nop.i 0x0;; */
232 0x0b, 0x80, 0x20, 0x1c, 0x18, 0x14, /* [MMI] ld8 r16=[r14],8;; */
233 0x10, 0x41, 0x38, 0x30, 0x28, 0x00, /* ld8 r17=[r14],8 */
234 0x00, 0x00, 0x04, 0x00, /* nop.i 0x0;; */
235 0x11, 0x08, 0x00, 0x1c, 0x18, 0x10, /* [MIB] ld8 r1=[r14] */
236 0x60, 0x88, 0x04, 0x80, 0x03, 0x00, /* mov b6=r17 */
237 0x60, 0x00, 0x80, 0x00 /* br.few b6;; */
cbe79dfe
TG		 238};
239
240static const bfd_byte plt_min_entry[PLT_MIN_ENTRY_SIZE] =
241{
07d6d2b8
AM		 242 0x11, 0x78, 0x00, 0x00, 0x00, 0x24, /* [MIB] mov r15=0 */
243 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, /* nop.i 0x0 */
244 0x00, 0x00, 0x00, 0x40 /* br.few 0 <PLT0>;; */
cbe79dfe
TG		 245};
246
247static const bfd_byte plt_full_entry[PLT_FULL_ENTRY_SIZE] =
248{
07d6d2b8
AM		 249 0x0b, 0x78, 0x00, 0x02, 0x00, 0x24, /* [MMI] addl r15=0,r1;; */
250 0x00, 0x41, 0x3c, 0x70, 0x29, 0xc0, /* ld8.acq r16=[r15],8*/
251 0x01, 0x08, 0x00, 0x84, /* mov r14=r1;; */
252 0x11, 0x08, 0x00, 0x1e, 0x18, 0x10, /* [MIB] ld8 r1=[r15] */
253 0x60, 0x80, 0x04, 0x80, 0x03, 0x00, /* mov b6=r16 */
254 0x60, 0x00, 0x80, 0x00 /* br.few b6;; */
cbe79dfe
TG		 255};
256
257#define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
258
259static const bfd_byte oor_brl[16] =
260{
07d6d2b8
AM		 261 0x05, 0x00, 0x00, 0x00, 0x01, 0x00, /* [MLX] nop.m 0 */
262 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* brl.sptk.few tgt;; */
cbe79dfe
TG		 263 0x00, 0x00, 0x00, 0xc0
264};
265
266static const bfd_byte oor_ip[48] =
267{
07d6d2b8
AM		 268 0x04, 0x00, 0x00, 0x00, 0x01, 0x00, /* [MLX] nop.m 0 */
269 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, /* movl r15=0 */
cbe79dfe 270 0x01, 0x00, 0x00, 0x60,
07d6d2b8
AM		 271 0x03, 0x00, 0x00, 0x00, 0x01, 0x00, /* [MII] nop.m 0 */
272 0x00, 0x01, 0x00, 0x60, 0x00, 0x00, /* mov r16=ip;; */
273 0xf2, 0x80, 0x00, 0x80, /* add r16=r15,r16;; */
274 0x11, 0x00, 0x00, 0x00, 0x01, 0x00, /* [MIB] nop.m 0 */
275 0x60, 0x80, 0x04, 0x80, 0x03, 0x00, /* mov b6=r16 */
276 0x60, 0x00, 0x80, 0x00 /* br b6;; */
cbe79dfe
TG		 277};
278
279static size_t oor_branch_size = sizeof (oor_brl);
280
281void
282bfd_elfNN_ia64_after_parse (int itanium)
283{
284 oor_branch_size = itanium ? sizeof (oor_ip) : sizeof (oor_brl);
285}
286\f
287
288/* Rename some of the generic section flags to better document how they
289 are used here. */
290#define skip_relax_pass_0 sec_flg0
291#define skip_relax_pass_1 sec_flg1
292
293/* These functions do relaxation for IA-64 ELF. */
294
295static void
296elfNN_ia64_update_short_info (asection *sec, bfd_vma offset,
297 struct elfNN_ia64_link_hash_table *ia64_info)
298{
299 /* Skip ABS and SHF_IA_64_SHORT sections. */
300 if (sec == bfd_abs_section_ptr
301 || (sec->flags & SEC_SMALL_DATA) != 0)
302 return;
303
304 if (!ia64_info->min_short_sec)
305 {
306 ia64_info->max_short_sec = sec;
307 ia64_info->max_short_offset = offset;
308 ia64_info->min_short_sec = sec;
309 ia64_info->min_short_offset = offset;
310 }
311 else if (sec == ia64_info->max_short_sec
312 && offset > ia64_info->max_short_offset)
313 ia64_info->max_short_offset = offset;
314 else if (sec == ia64_info->min_short_sec
315 && offset < ia64_info->min_short_offset)
316 ia64_info->min_short_offset = offset;
317 else if (sec->output_section->vma
318 > ia64_info->max_short_sec->vma)
319 {
320 ia64_info->max_short_sec = sec;
321 ia64_info->max_short_offset = offset;
322 }
323 else if (sec->output_section->vma
324 < ia64_info->min_short_sec->vma)
325 {
326 ia64_info->min_short_sec = sec;
327 ia64_info->min_short_offset = offset;
328 }
329}
330
331static bfd_boolean
332elfNN_ia64_relax_section (bfd *abfd, asection *sec,
333 struct bfd_link_info *link_info,
334 bfd_boolean *again)
335{
336 struct one_fixup
337 {
338 struct one_fixup *next;
339 asection *tsec;
340 bfd_vma toff;
341 bfd_vma trampoff;
342 };
343
344 Elf_Internal_Shdr *symtab_hdr;
345 Elf_Internal_Rela *internal_relocs;
346 Elf_Internal_Rela *irel, *irelend;
347 bfd_byte *contents;
348 Elf_Internal_Sym *isymbuf = NULL;
349 struct elfNN_ia64_link_hash_table *ia64_info;
350 struct one_fixup *fixups = NULL;
351 bfd_boolean changed_contents = FALSE;
352 bfd_boolean changed_relocs = FALSE;
353 bfd_boolean changed_got = FALSE;
354 bfd_boolean skip_relax_pass_0 = TRUE;
355 bfd_boolean skip_relax_pass_1 = TRUE;
356 bfd_vma gp = 0;
357
358 /* Assume we're not going to change any sizes, and we'll only need
359 one pass. */
360 *again = FALSE;
361
0e1862bb 362 if (bfd_link_relocatable (link_info))
cbe79dfe
TG		 363 (*link_info->callbacks->einfo)
364 (_("%P%F: --relax and -r may not be used together\n"));
365
366 /* Don't even try to relax for non-ELF outputs. */
367 if (!is_elf_hash_table (link_info->hash))
368 return FALSE;
369
370 /* Nothing to do if there are no relocations or there is no need for
371 the current pass. */
372 if ((sec->flags & SEC_RELOC) == 0
373 || sec->reloc_count == 0
374 || (link_info->relax_pass == 0 && sec->skip_relax_pass_0)
375 || (link_info->relax_pass == 1 && sec->skip_relax_pass_1))
376 return TRUE;
377
378 ia64_info = elfNN_ia64_hash_table (link_info);
379 if (ia64_info == NULL)
380 return FALSE;
381
382 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
383
384 /* Load the relocations for this section. */
385 internal_relocs = (_bfd_elf_link_read_relocs
386 (abfd, sec, NULL, (Elf_Internal_Rela *) NULL,
387 link_info->keep_memory));
388 if (internal_relocs == NULL)
389 return FALSE;
390
391 irelend = internal_relocs + sec->reloc_count;
392
393 /* Get the section contents. */
394 if (elf_section_data (sec)->this_hdr.contents != NULL)
395 contents = elf_section_data (sec)->this_hdr.contents;
396 else
397 {
398 if (!bfd_malloc_and_get_section (abfd, sec, &contents))
399 goto error_return;
400 }
401
402 for (irel = internal_relocs; irel < irelend; irel++)
403 {
404 unsigned long r_type = ELFNN_R_TYPE (irel->r_info);
405 bfd_vma symaddr, reladdr, trampoff, toff, roff;
406 asection *tsec;
407 struct one_fixup *f;
408 bfd_size_type amt;
409 bfd_boolean is_branch;
410 struct elfNN_ia64_dyn_sym_info *dyn_i;
411 char symtype;
412
413 switch (r_type)
414 {
415 case R_IA64_PCREL21B:
416 case R_IA64_PCREL21BI:
417 case R_IA64_PCREL21M:
418 case R_IA64_PCREL21F:
419 /* In pass 1, all br relaxations are done. We can skip it. */
420 if (link_info->relax_pass == 1)
421 continue;
422 skip_relax_pass_0 = FALSE;
423 is_branch = TRUE;
424 break;
425
426 case R_IA64_PCREL60B:
427 /* We can't optimize brl to br in pass 0 since br relaxations
428 will increase the code size. Defer it to pass 1. */
429 if (link_info->relax_pass == 0)
430 {
431 skip_relax_pass_1 = FALSE;
432 continue;
433 }
434 is_branch = TRUE;
435 break;
436
437 case R_IA64_GPREL22:
438 /* Update max_short_sec/min_short_sec. */
439
440 case R_IA64_LTOFF22X:
441 case R_IA64_LDXMOV:
442 /* We can't relax ldx/mov in pass 0 since br relaxations will
443 increase the code size. Defer it to pass 1. */
444 if (link_info->relax_pass == 0)
445 {
446 skip_relax_pass_1 = FALSE;
447 continue;
448 }
449 is_branch = FALSE;
450 break;
451
452 default:
453 continue;
454 }
455
456 /* Get the value of the symbol referred to by the reloc. */
457 if (ELFNN_R_SYM (irel->r_info) < symtab_hdr->sh_info)
458 {
459 /* A local symbol. */
460 Elf_Internal_Sym *isym;
461
462 /* Read this BFD's local symbols. */
463 if (isymbuf == NULL)
464 {
465 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
466 if (isymbuf == NULL)
467 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
468 symtab_hdr->sh_info, 0,
469 NULL, NULL, NULL);
470 if (isymbuf == 0)
471 goto error_return;
472 }
473
474 isym = isymbuf + ELFNN_R_SYM (irel->r_info);
475 if (isym->st_shndx == SHN_UNDEF)
476 continue; /* We can't do anything with undefined symbols. */
477 else if (isym->st_shndx == SHN_ABS)
478 tsec = bfd_abs_section_ptr;
479 else if (isym->st_shndx == SHN_COMMON)
480 tsec = bfd_com_section_ptr;
481 else if (isym->st_shndx == SHN_IA_64_ANSI_COMMON)
482 tsec = bfd_com_section_ptr;
483 else
484 tsec = bfd_section_from_elf_index (abfd, isym->st_shndx);
485
486 toff = isym->st_value;
487 dyn_i = get_dyn_sym_info (ia64_info, NULL, abfd, irel, FALSE);
488 symtype = ELF_ST_TYPE (isym->st_info);
489 }
490 else
491 {
492 unsigned long indx;
493 struct elf_link_hash_entry *h;
494
495 indx = ELFNN_R_SYM (irel->r_info) - symtab_hdr->sh_info;
496 h = elf_sym_hashes (abfd)[indx];
497 BFD_ASSERT (h != NULL);
498
499 while (h->root.type == bfd_link_hash_indirect
500 || h->root.type == bfd_link_hash_warning)
501 h = (struct elf_link_hash_entry *) h->root.u.i.link;
502
503 dyn_i = get_dyn_sym_info (ia64_info, h, abfd, irel, FALSE);
504
505 /* For branches to dynamic symbols, we're interested instead
506 in a branch to the PLT entry. */
507 if (is_branch && dyn_i && dyn_i->want_plt2)
508 {
509 /* Internal branches shouldn't be sent to the PLT.
510 Leave this for now and we'll give an error later. */
511 if (r_type != R_IA64_PCREL21B)
512 continue;
513
514 tsec = ia64_info->root.splt;
515 toff = dyn_i->plt2_offset;
516 BFD_ASSERT (irel->r_addend == 0);
517 }
518
519 /* Can't do anything else with dynamic symbols. */
520 else if (elfNN_ia64_dynamic_symbol_p (h, link_info, r_type))
521 continue;
522
523 else
524 {
525 /* We can't do anything with undefined symbols. */
526 if (h->root.type == bfd_link_hash_undefined
527 || h->root.type == bfd_link_hash_undefweak)
528 continue;
529
530 tsec = h->root.u.def.section;
531 toff = h->root.u.def.value;
532 }
533
534 symtype = h->type;
535 }
536
dbaa2011 537 if (tsec->sec_info_type == SEC_INFO_TYPE_MERGE)
cbe79dfe
TG		 538 {
539 /* At this stage in linking, no SEC_MERGE symbol has been
540 adjusted, so all references to such symbols need to be
541 passed through _bfd_merged_section_offset. (Later, in
542 relocate_section, all SEC_MERGE symbols *except* for
543 section symbols have been adjusted.)
544
545 gas may reduce relocations against symbols in SEC_MERGE
546 sections to a relocation against the section symbol when
547 the original addend was zero. When the reloc is against
548 a section symbol we should include the addend in the
549 offset passed to _bfd_merged_section_offset, since the
550 location of interest is the original symbol. On the
551 other hand, an access to "sym+addend" where "sym" is not
552 a section symbol should not include the addend; Such an
553 access is presumed to be an offset from "sym"; The
554 location of interest is just "sym". */
555 if (symtype == STT_SECTION)
556 toff += irel->r_addend;
557
558 toff = _bfd_merged_section_offset (abfd, &tsec,
559 elf_section_data (tsec)->sec_info,
560 toff);
561
562 if (symtype != STT_SECTION)
563 toff += irel->r_addend;
564 }
565 else
566 toff += irel->r_addend;
567
568 symaddr = tsec->output_section->vma + tsec->output_offset + toff;
569
570 roff = irel->r_offset;
571
572 if (is_branch)
573 {
574 bfd_signed_vma offset;
575
576 reladdr = (sec->output_section->vma
577 + sec->output_offset
578 + roff) & (bfd_vma) -4;
579
580 /* The .plt section is aligned at 32byte and the .text section
581 is aligned at 64byte. The .text section is right after the
582 .plt section. After the first relaxation pass, linker may
583 increase the gap between the .plt and .text sections up
584 to 32byte. We assume linker will always insert 32byte
a8685210 585 between the .plt and .text sections after the first
cbe79dfe
TG		 586 relaxation pass. */
587 if (tsec == ia64_info->root.splt)
588 offset = -0x1000000 + 32;
589 else
590 offset = -0x1000000;
591
592 /* If the branch is in range, no need to do anything. */
d17fe7b7 593 if ((bfd_signed_vma) (symaddr - reladdr) >= offset
cbe79dfe
TG		 594 && (bfd_signed_vma) (symaddr - reladdr) <= 0x0FFFFF0)
595 {
596 /* If the 60-bit branch is in 21-bit range, optimize it. */
597 if (r_type == R_IA64_PCREL60B)
598 {
599 ia64_elf_relax_brl (contents, roff);
600
601 irel->r_info
602 = ELFNN_R_INFO (ELFNN_R_SYM (irel->r_info),
603 R_IA64_PCREL21B);
604
605 /* If the original relocation offset points to slot
606 1, change it to slot 2. */
607 if ((irel->r_offset & 3) == 1)
608 irel->r_offset += 1;
6f6372fa
JW		 609
610 changed_contents = TRUE;
611 changed_relocs = TRUE;
cbe79dfe
TG		 612 }
613
614 continue;
615 }
616 else if (r_type == R_IA64_PCREL60B)
617 continue;
618 else if (ia64_elf_relax_br (contents, roff))
619 {
620 irel->r_info
621 = ELFNN_R_INFO (ELFNN_R_SYM (irel->r_info),
622 R_IA64_PCREL60B);
623
624 /* Make the relocation offset point to slot 1. */
625 irel->r_offset = (irel->r_offset & ~((bfd_vma) 0x3)) + 1;
6f6372fa
JW		 626
627 changed_contents = TRUE;
628 changed_relocs = TRUE;
cbe79dfe
TG		 629 continue;
630 }
631
632 /* We can't put a trampoline in a .init/.fini section. Issue
633 an error. */
634 if (strcmp (sec->output_section->name, ".init") == 0
635 || strcmp (sec->output_section->name, ".fini") == 0)
636 {
4eca0228 637 _bfd_error_handler
695344c0 638 /* xgettext:c-format */
38f14ab8
AM		 639 (_("%pB: can't relax br at %#" PRIx64 " in section `%pA';"
640 " please use brl or indirect branch"),
2dcf00ce 641 sec->owner, (uint64_t) roff, sec);
cbe79dfe
TG		 642 bfd_set_error (bfd_error_bad_value);
643 goto error_return;
644 }
645
646 /* If the branch and target are in the same section, you've
647 got one honking big section and we can't help you unless
648 you are branching backwards. You'll get an error message
649 later. */
650 if (tsec == sec && toff > roff)
651 continue;
652
653 /* Look for an existing fixup to this address. */
654 for (f = fixups; f ; f = f->next)
655 if (f->tsec == tsec && f->toff == toff)
656 break;
657
658 if (f == NULL)
659 {
660 /* Two alternatives: If it's a branch to a PLT entry, we can
661 make a copy of the FULL_PLT entry. Otherwise, we'll have
662 to use a `brl' insn to get where we're going. */
663
664 size_t size;
665
666 if (tsec == ia64_info->root.splt)
667 size = sizeof (plt_full_entry);
668 else
669 size = oor_branch_size;
670
671 /* Resize the current section to make room for the new branch. */
672 trampoff = (sec->size + 15) & (bfd_vma) -16;
673
674 /* If trampoline is out of range, there is nothing we
675 can do. */
676 offset = trampoff - (roff & (bfd_vma) -4);
677 if (offset < -0x1000000 || offset > 0x0FFFFF0)
678 continue;
679
680 amt = trampoff + size;
681 contents = (bfd_byte *) bfd_realloc (contents, amt);
682 if (contents == NULL)
683 goto error_return;
684 sec->size = amt;
685
686 if (tsec == ia64_info->root.splt)
687 {
688 memcpy (contents + trampoff, plt_full_entry, size);
689
690 /* Hijack the old relocation for use as the PLTOFF reloc. */
691 irel->r_info = ELFNN_R_INFO (ELFNN_R_SYM (irel->r_info),
692 R_IA64_PLTOFF22);
693 irel->r_offset = trampoff;
694 }
695 else
696 {
697 if (size == sizeof (oor_ip))
698 {
699 memcpy (contents + trampoff, oor_ip, size);
700 irel->r_info = ELFNN_R_INFO (ELFNN_R_SYM (irel->r_info),
701 R_IA64_PCREL64I);
702 irel->r_addend -= 16;
703 irel->r_offset = trampoff + 2;
704 }
705 else
706 {
707 memcpy (contents + trampoff, oor_brl, size);
708 irel->r_info = ELFNN_R_INFO (ELFNN_R_SYM (irel->r_info),
709 R_IA64_PCREL60B);
710 irel->r_offset = trampoff + 2;
711 }
712
713 }
714
715 /* Record the fixup so we don't do it again this section. */
716 f = (struct one_fixup *)
717 bfd_malloc ((bfd_size_type) sizeof (*f));
718 f->next = fixups;
719 f->tsec = tsec;
720 f->toff = toff;
721 f->trampoff = trampoff;
722 fixups = f;
723 }
724 else
725 {
726 /* If trampoline is out of range, there is nothing we
727 can do. */
728 offset = f->trampoff - (roff & (bfd_vma) -4);
729 if (offset < -0x1000000 || offset > 0x0FFFFF0)
730 continue;
731
732 /* Nop out the reloc, since we're finalizing things here. */
733 irel->r_info = ELFNN_R_INFO (0, R_IA64_NONE);
734 }
735
736 /* Fix up the existing branch to hit the trampoline. */
737 if (ia64_elf_install_value (contents + roff, offset, r_type)
738 != bfd_reloc_ok)
739 goto error_return;
740
741 changed_contents = TRUE;
742 changed_relocs = TRUE;
743 }
744 else
745 {
746 /* Fetch the gp. */
747 if (gp == 0)
748 {
749 bfd *obfd = sec->output_section->owner;
750 gp = _bfd_get_gp_value (obfd);
751 if (gp == 0)
752 {
753 if (!elfNN_ia64_choose_gp (obfd, link_info, FALSE))
754 goto error_return;
755 gp = _bfd_get_gp_value (obfd);
756 }
757 }
758
759 /* If the data is out of range, do nothing. */
760 if ((bfd_signed_vma) (symaddr - gp) >= 0x200000
761 ||(bfd_signed_vma) (symaddr - gp) < -0x200000)
762 continue;
763
764 if (r_type == R_IA64_GPREL22)
765 elfNN_ia64_update_short_info (tsec->output_section,
766 tsec->output_offset + toff,
767 ia64_info);
768 else if (r_type == R_IA64_LTOFF22X)
769 {
770 irel->r_info = ELFNN_R_INFO (ELFNN_R_SYM (irel->r_info),
771 R_IA64_GPREL22);
772 changed_relocs = TRUE;
773 if (dyn_i->want_gotx)
774 {
775 dyn_i->want_gotx = 0;
776 changed_got |= !dyn_i->want_got;
777 }
778
779 elfNN_ia64_update_short_info (tsec->output_section,
780 tsec->output_offset + toff,
781 ia64_info);
782 }
783 else
784 {
785 ia64_elf_relax_ldxmov (contents, roff);
786 irel->r_info = ELFNN_R_INFO (0, R_IA64_NONE);
787 changed_contents = TRUE;
788 changed_relocs = TRUE;
789 }
790 }
791 }
792
793 /* ??? If we created fixups, this may push the code segment large
794 enough that the data segment moves, which will change the GP.
795 Reset the GP so that we re-calculate next round. We need to
796 do this at the _beginning_ of the next round; now will not do. */
797
798 /* Clean up and go home. */
799 while (fixups)
800 {
801 struct one_fixup *f = fixups;
802 fixups = fixups->next;
803 free (f);
804 }
805
806 if (isymbuf != NULL
807 && symtab_hdr->contents != (unsigned char *) isymbuf)
808 {
809 if (! link_info->keep_memory)
810 free (isymbuf);
811 else
812 {
813 /* Cache the symbols for elf_link_input_bfd. */
814 symtab_hdr->contents = (unsigned char *) isymbuf;
815 }
816 }
817
818 if (contents != NULL
819 && elf_section_data (sec)->this_hdr.contents != contents)
820 {
821 if (!changed_contents && !link_info->keep_memory)
822 free (contents);
823 else
824 {
825 /* Cache the section contents for elf_link_input_bfd. */
826 elf_section_data (sec)->this_hdr.contents = contents;
827 }
828 }
829
830 if (elf_section_data (sec)->relocs != internal_relocs)
831 {
832 if (!changed_relocs)
833 free (internal_relocs);
834 else
835 elf_section_data (sec)->relocs = internal_relocs;
836 }
837
838 if (changed_got)
839 {
840 struct elfNN_ia64_allocate_data data;
841 data.info = link_info;
842 data.ofs = 0;
843 ia64_info->self_dtpmod_offset = (bfd_vma) -1;
844
845 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_global_data_got, &data);
846 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_global_fptr_got, &data);
847 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_local_got, &data);
848 ia64_info->root.sgot->size = data.ofs;
849
850 if (ia64_info->root.dynamic_sections_created
851 && ia64_info->root.srelgot != NULL)
852 {
853 /* Resize .rela.got. */
854 ia64_info->root.srelgot->size = 0;
0e1862bb 855 if (bfd_link_pic (link_info)
cbe79dfe
TG		 856 && ia64_info->self_dtpmod_offset != (bfd_vma) -1)
857 ia64_info->root.srelgot->size += sizeof (ElfNN_External_Rela);
858 data.only_got = TRUE;
859 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_dynrel_entries,
860 &data);
861 }
862 }
863
864 if (link_info->relax_pass == 0)
865 {
866 /* Pass 0 is only needed to relax br. */
867 sec->skip_relax_pass_0 = skip_relax_pass_0;
868 sec->skip_relax_pass_1 = skip_relax_pass_1;
869 }
870
871 *again = changed_contents || changed_relocs;
872 return TRUE;
873
874 error_return:
c9594989 875 if ((unsigned char *) isymbuf != symtab_hdr->contents)
cbe79dfe 876 free (isymbuf);
c9594989 877 if (elf_section_data (sec)->this_hdr.contents != contents)
cbe79dfe 878 free (contents);
c9594989 879 if (elf_section_data (sec)->relocs != internal_relocs)
cbe79dfe
TG		 880 free (internal_relocs);
881 return FALSE;
882}
883#undef skip_relax_pass_0
884#undef skip_relax_pass_1
885\f
886/* Return TRUE if NAME is an unwind table section name. */
887
888static inline bfd_boolean
889is_unwind_section_name (bfd *abfd, const char *name)
890{
891 if (elfNN_ia64_hpux_vec (abfd->xvec)
892 && !strcmp (name, ELF_STRING_ia64_unwind_hdr))
893 return FALSE;
894
895 return ((CONST_STRNEQ (name, ELF_STRING_ia64_unwind)
896 && ! CONST_STRNEQ (name, ELF_STRING_ia64_unwind_info))
897 || CONST_STRNEQ (name, ELF_STRING_ia64_unwind_once));
898}
899
900/* Handle an IA-64 specific section when reading an object file. This
901 is called when bfd_section_from_shdr finds a section with an unknown
902 type. */
903
904static bfd_boolean
905elfNN_ia64_section_from_shdr (bfd *abfd,
906 Elf_Internal_Shdr *hdr,
907 const char *name,
908 int shindex)
909{
910 /* There ought to be a place to keep ELF backend specific flags, but
911 at the moment there isn't one. We just keep track of the
912 sections by their name, instead. Fortunately, the ABI gives
913 suggested names for all the MIPS specific sections, so we will
914 probably get away with this. */
915 switch (hdr->sh_type)
916 {
917 case SHT_IA_64_UNWIND:
918 case SHT_IA_64_HP_OPT_ANOT:
919 break;
920
921 case SHT_IA_64_EXT:
922 if (strcmp (name, ELF_STRING_ia64_archext) != 0)
923 return FALSE;
924 break;
925
926 default:
927 return FALSE;
928 }
929
930 if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name, shindex))
931 return FALSE;
932
933 return TRUE;
934}
935
936/* Convert IA-64 specific section flags to bfd internal section flags. */
937
938/* ??? There is no bfd internal flag equivalent to the SHF_IA_64_NORECOV
939 flag. */
940
941static bfd_boolean
8c803a2d 942elfNN_ia64_section_flags (const Elf_Internal_Shdr *hdr)
cbe79dfe
TG		 943{
944 if (hdr->sh_flags & SHF_IA_64_SHORT)
8c803a2d 945 hdr->bfd_section->flags |= SEC_SMALL_DATA;
cbe79dfe
TG		 946
947 return TRUE;
948}
949
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. */
952
953static bfd_boolean
954elfNN_ia64_fake_sections (bfd *abfd, Elf_Internal_Shdr *hdr,
955 asection *sec)
956{
957 const char *name;
958
fd361982 959 name = bfd_section_name (sec);
cbe79dfe
TG		 960
961 if (is_unwind_section_name (abfd, name))
962 {
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;
967 }
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
988 unlikely to bite. */
989 hdr->sh_type = SHT_PROGBITS;
990
991 if (sec->flags & SEC_SMALL_DATA)
992 hdr->sh_flags |= SHF_IA_64_SHORT;
993
994 /* Some HP linkers look for the SHF_IA_64_HP_TLS flag instead of SHF_TLS. */
995
996 if (elfNN_ia64_hpux_vec (abfd->xvec) && (sec->flags & SHF_TLS))
997 hdr->sh_flags |= SHF_IA_64_HP_TLS;
998
999 return TRUE;
1000}
1001
1002/* The final processing done just before writing out an IA-64 ELF
1003 object file. */
1004
cc364be6
AM		 1005static bfd_boolean
1006elfNN_ia64_final_write_processing (bfd *abfd)
cbe79dfe
TG		 1007{
1008 Elf_Internal_Shdr *hdr;
1009 asection *s;
1010
1011 for (s = abfd->sections; s; s = s->next)
1012 {
1013 hdr = &elf_section_data (s)->this_hdr;
1014 switch (hdr->sh_type)
1015 {
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
1020 now... */
1021 hdr->sh_info = hdr->sh_link;
1022 break;
1023 }
1024 }
1025
1026 if (! elf_flags_init (abfd))
1027 {
1028 unsigned long flags = 0;
1029
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;
1034
1035 elf_elfheader(abfd)->e_flags = flags;
1036 elf_flags_init (abfd) = TRUE;
1037 }
cc364be6 1038 return _bfd_elf_final_write_processing (abfd);
cbe79dfe
TG		 1039}
1040
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. */
1043
1044static bfd_boolean
1045elfNN_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,
1050 asection **secp,
1051 bfd_vma *valp)
1052{
1053 if (sym->st_shndx == SHN_COMMON
0e1862bb 1054 && !bfd_link_relocatable (info)
cbe79dfe
TG		 1055 && sym->st_size <= elf_gp_size (abfd))
1056 {
1057 /* Common symbols less than or equal to -G nn bytes are
1058 automatically put into .sbss. */
1059
1060 asection *scomm = bfd_get_section_by_name (abfd, ".scommon");
1061
1062 if (scomm == NULL)
1063 {
1064 scomm = bfd_make_section_with_flags (abfd, ".scommon",
1065 (SEC_ALLOC
1066 | SEC_IS_COMMON
10885e24 1067 | SEC_SMALL_DATA
cbe79dfe
TG		 1068 | SEC_LINKER_CREATED));
1069 if (scomm == NULL)
1070 return FALSE;
1071 }
1072
1073 *secp = scomm;
1074 *valp = sym->st_size;
1075 }
1076
1077 return TRUE;
1078}
1079
1080/* Return the number of additional phdrs we will need. */
1081
1082static int
1083elfNN_ia64_additional_program_headers (bfd *abfd,
1084 struct bfd_link_info *info ATTRIBUTE_UNUSED)
1085{
1086 asection *s;
1087 int ret = 0;
1088
1089 /* See if we need a PT_IA_64_ARCHEXT segment. */
1090 s = bfd_get_section_by_name (abfd, ELF_STRING_ia64_archext);
1091 if (s && (s->flags & SEC_LOAD))
1092 ++ret;
1093
1094 /* Count how many PT_IA_64_UNWIND segments we need. */
1095 for (s = abfd->sections; s; s = s->next)
1096 if (is_unwind_section_name (abfd, s->name) && (s->flags & SEC_LOAD))
1097 ++ret;
1098
1099 return ret;
1100}
1101
1102static bfd_boolean
1103elfNN_ia64_modify_segment_map (bfd *abfd,
1104 struct bfd_link_info *info ATTRIBUTE_UNUSED)
1105{
1106 struct elf_segment_map *m, **pm;
1107 Elf_Internal_Shdr *hdr;
1108 asection *s;
1109
1110 /* If we need a PT_IA_64_ARCHEXT segment, it must come before
1111 all PT_LOAD segments. */
1112 s = bfd_get_section_by_name (abfd, ELF_STRING_ia64_archext);
1113 if (s && (s->flags & SEC_LOAD))
1114 {
12bd6957 1115 for (m = elf_seg_map (abfd); m != NULL; m = m->next)
cbe79dfe
TG		 1116 if (m->p_type == PT_IA_64_ARCHEXT)
1117 break;
1118 if (m == NULL)
1119 {
1120 m = ((struct elf_segment_map *)
1121 bfd_zalloc (abfd, (bfd_size_type) sizeof *m));
1122 if (m == NULL)
1123 return FALSE;
1124
1125 m->p_type = PT_IA_64_ARCHEXT;
1126 m->count = 1;
1127 m->sections[0] = s;
1128
1129 /* We want to put it after the PHDR and INTERP segments. */
12bd6957 1130 pm = &elf_seg_map (abfd);
cbe79dfe
TG		 1131 while (*pm != NULL
1132 && ((*pm)->p_type == PT_PHDR
1133 || (*pm)->p_type == PT_INTERP))
1134 pm = &(*pm)->next;
1135
1136 m->next = *pm;
1137 *pm = m;
1138 }
1139 }
1140
1141 /* Install PT_IA_64_UNWIND segments, if needed. */
1142 for (s = abfd->sections; s; s = s->next)
1143 {
1144 hdr = &elf_section_data (s)->this_hdr;
1145 if (hdr->sh_type != SHT_IA_64_UNWIND)
1146 continue;
1147
1148 if (s && (s->flags & SEC_LOAD))
1149 {
12bd6957 1150 for (m = elf_seg_map (abfd); m != NULL; m = m->next)
cbe79dfe
TG		 1151 if (m->p_type == PT_IA_64_UNWIND)
1152 {
1153 int i;
1154
1155 /* Look through all sections in the unwind segment
1156 for a match since there may be multiple sections
1157 to a segment. */
1158 for (i = m->count - 1; i >= 0; --i)
1159 if (m->sections[i] == s)
1160 break;
1161
1162 if (i >= 0)
1163 break;
1164 }
1165
1166 if (m == NULL)
1167 {
1168 m = ((struct elf_segment_map *)
1169 bfd_zalloc (abfd, (bfd_size_type) sizeof *m));
1170 if (m == NULL)
1171 return FALSE;
1172
1173 m->p_type = PT_IA_64_UNWIND;
1174 m->count = 1;
1175 m->sections[0] = s;
1176 m->next = NULL;
1177
1178 /* We want to put it last. */
12bd6957 1179 pm = &elf_seg_map (abfd);
cbe79dfe
TG		 1180 while (*pm != NULL)
1181 pm = &(*pm)->next;
1182 *pm = m;
1183 }
1184 }
1185 }
1186
1187 return TRUE;
1188}
1189
1190/* Turn on PF_IA_64_NORECOV if needed. This involves traversing all of
1191 the input sections for each output section in the segment and testing
1192 for SHF_IA_64_NORECOV on each. */
1193
1194static bfd_boolean
6d6c25c8 1195elfNN_ia64_modify_headers (bfd *abfd, struct bfd_link_info *info)
cbe79dfe
TG		 1196{
1197 struct elf_obj_tdata *tdata = elf_tdata (abfd);
1198 struct elf_segment_map *m;
1199 Elf_Internal_Phdr *p;
1200
12bd6957 1201 for (p = tdata->phdr, m = elf_seg_map (abfd); m != NULL; m = m->next, p++)
cbe79dfe
TG		 1202 if (m->p_type == PT_LOAD)
1203 {
1204 int i;
1205 for (i = m->count - 1; i >= 0; --i)
1206 {
1207 struct bfd_link_order *order = m->sections[i]->map_head.link_order;
1208
1209 while (order != NULL)
1210 {
1211 if (order->type == bfd_indirect_link_order)
1212 {
1213 asection *is = order->u.indirect.section;
1214 bfd_vma flags = elf_section_data(is)->this_hdr.sh_flags;
1215 if (flags & SHF_IA_64_NORECOV)
1216 {
1217 p->p_flags |= PF_IA_64_NORECOV;
1218 goto found;
1219 }
1220 }
1221 order = order->next;
1222 }
1223 }
1224 found:;
1225 }
1226
6d6c25c8 1227 return _bfd_elf_modify_headers (abfd, info);
cbe79dfe
TG		 1228}
1229
1230/* According to the Tahoe assembler spec, all labels starting with a
1231 '.' are local. */
1232
1233static bfd_boolean
1234elfNN_ia64_is_local_label_name (bfd *abfd ATTRIBUTE_UNUSED,
1235 const char *name)
1236{
1237 return name[0] == '.';
1238}
1239
1240/* Should we do dynamic things to this symbol? */
1241
1242static bfd_boolean
1243elfNN_ia64_dynamic_symbol_p (struct elf_link_hash_entry *h,
1244 struct bfd_link_info *info, int r_type)
1245{
1246 bfd_boolean ignore_protected
1247 = ((r_type & 0xf8) == 0x40 /* FPTR relocs */
1248 || (r_type & 0xf8) == 0x50); /* LTOFF_FPTR relocs */
1249
1250 return _bfd_elf_dynamic_symbol_p (h, info, ignore_protected);
1251}
1252\f
1253static struct bfd_hash_entry*
1254elfNN_ia64_new_elf_hash_entry (struct bfd_hash_entry *entry,
1255 struct bfd_hash_table *table,
1256 const char *string)
1257{
1258 struct elfNN_ia64_link_hash_entry *ret;
1259 ret = (struct elfNN_ia64_link_hash_entry *) entry;
1260
1261 /* Allocate the structure if it has not already been allocated by a
1262 subclass. */
1263 if (!ret)
1264 ret = bfd_hash_allocate (table, sizeof (*ret));
1265
1266 if (!ret)
1267 return 0;
1268
1269 /* Call the allocation method of the superclass. */
1270 ret = ((struct elfNN_ia64_link_hash_entry *)
1271 _bfd_elf_link_hash_newfunc ((struct bfd_hash_entry *) ret,
1272 table, string));
1273
1274 ret->info = NULL;
1275 ret->count = 0;
1276 ret->sorted_count = 0;
1277 ret->size = 0;
1278 return (struct bfd_hash_entry *) ret;
1279}
1280
1281static void
1282elfNN_ia64_hash_copy_indirect (struct bfd_link_info *info,
1283 struct elf_link_hash_entry *xdir,
1284 struct elf_link_hash_entry *xind)
1285{
1286 struct elfNN_ia64_link_hash_entry *dir, *ind;
1287
1288 dir = (struct elfNN_ia64_link_hash_entry *) xdir;
1289 ind = (struct elfNN_ia64_link_hash_entry *) xind;
1290
1291 /* Copy down any references that we may have already seen to the
1292 symbol which just became indirect. */
1293
e81830c5
AM		 1294 if (dir->root.versioned != versioned_hidden)
1295 dir->root.ref_dynamic |= ind->root.ref_dynamic;
cbe79dfe
TG		 1296 dir->root.ref_regular |= ind->root.ref_regular;
1297 dir->root.ref_regular_nonweak |= ind->root.ref_regular_nonweak;
1298 dir->root.needs_plt |= ind->root.needs_plt;
1299
1300 if (ind->root.root.type != bfd_link_hash_indirect)
1301 return;
1302
1303 /* Copy over the got and plt data. This would have been done
1304 by check_relocs. */
1305
1306 if (ind->info != NULL)
1307 {
1308 struct elfNN_ia64_dyn_sym_info *dyn_i;
1309 unsigned int count;
1310
c9594989 1311 free (dir->info);
cbe79dfe
TG		 1312
1313 dir->info = ind->info;
1314 dir->count = ind->count;
1315 dir->sorted_count = ind->sorted_count;
1316 dir->size = ind->size;
1317
1318 ind->info = NULL;
1319 ind->count = 0;
1320 ind->sorted_count = 0;
1321 ind->size = 0;
1322
1323 /* Fix up the dyn_sym_info pointers to the global symbol. */
1324 for (count = dir->count, dyn_i = dir->info;
1325 count != 0;
1326 count--, dyn_i++)
1327 dyn_i->h = &dir->root;
1328 }
1329
1330 /* Copy over the dynindx. */
1331
1332 if (ind->root.dynindx != -1)
1333 {
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;
1341 }
1342}
1343
1344static void
1345elfNN_ia64_hash_hide_symbol (struct bfd_link_info *info,
1346 struct elf_link_hash_entry *xh,
1347 bfd_boolean force_local)
1348{
1349 struct elfNN_ia64_link_hash_entry *h;
1350 struct elfNN_ia64_dyn_sym_info *dyn_i;
1351 unsigned int count;
1352
1353 h = (struct elfNN_ia64_link_hash_entry *)xh;
1354
1355 _bfd_elf_link_hash_hide_symbol (info, &h->root, force_local);
1356
1357 for (count = h->count, dyn_i = h->info;
1358 count != 0;
1359 count--, dyn_i++)
1360 {
1361 dyn_i->want_plt2 = 0;
1362 dyn_i->want_plt = 0;
1363 }
1364}
1365
1366/* Compute a hash of a local hash entry. */
1367
1368static hashval_t
1369elfNN_ia64_local_htab_hash (const void *ptr)
1370{
1371 struct elfNN_ia64_local_hash_entry *entry
1372 = (struct elfNN_ia64_local_hash_entry *) ptr;
1373
1374 return ELF_LOCAL_SYMBOL_HASH (entry->id, entry->r_sym);
1375}
1376
1377/* Compare local hash entries. */
1378
1379static int
1380elfNN_ia64_local_htab_eq (const void *ptr1, const void *ptr2)
1381{
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;
1386
1387 return entry1->id == entry2->id && entry1->r_sym == entry2->r_sym;
1388}
1389
cbe79dfe
TG		 1390/* Free the global elfNN_ia64_dyn_sym_info array. */
1391
1392static bfd_boolean
1393elfNN_ia64_global_dyn_info_free (void **xentry,
2c3fc389 1394 void * unused ATTRIBUTE_UNUSED)
cbe79dfe
TG		 1395{
1396 struct elfNN_ia64_link_hash_entry *entry
1397 = (struct elfNN_ia64_link_hash_entry *) xentry;
1398
c9594989
AM		 1399 free (entry->info);
1400 entry->info = NULL;
1401 entry->count = 0;
1402 entry->sorted_count = 0;
1403 entry->size = 0;
cbe79dfe
TG		 1404
1405 return TRUE;
1406}
1407
1408/* Free the local elfNN_ia64_dyn_sym_info array. */
1409
1410static bfd_boolean
1411elfNN_ia64_local_dyn_info_free (void **slot,
2c3fc389 1412 void * unused ATTRIBUTE_UNUSED)
cbe79dfe
TG		 1413{
1414 struct elfNN_ia64_local_hash_entry *entry
1415 = (struct elfNN_ia64_local_hash_entry *) *slot;
1416
c9594989
AM		 1417 free (entry->info);
1418 entry->info = NULL;
1419 entry->count = 0;
1420 entry->sorted_count = 0;
1421 entry->size = 0;
cbe79dfe
TG		 1422
1423 return TRUE;
1424}
1425
1426/* Destroy IA-64 linker hash table. */
1427
1428static void
d495ab0d 1429elfNN_ia64_link_hash_table_free (bfd *obfd)
cbe79dfe
TG		 1430{
1431 struct elfNN_ia64_link_hash_table *ia64_info
d495ab0d 1432 = (struct elfNN_ia64_link_hash_table *) obfd->link.hash;
cbe79dfe
TG		 1433 if (ia64_info->loc_hash_table)
1434 {
1435 htab_traverse (ia64_info->loc_hash_table,
1436 elfNN_ia64_local_dyn_info_free, NULL);
1437 htab_delete (ia64_info->loc_hash_table);
1438 }
1439 if (ia64_info->loc_hash_memory)
1440 objalloc_free ((struct objalloc *) ia64_info->loc_hash_memory);
1441 elf_link_hash_traverse (&ia64_info->root,
1442 elfNN_ia64_global_dyn_info_free, NULL);
d495ab0d 1443 _bfd_elf_link_hash_table_free (obfd);
cbe79dfe
TG		 1444}
1445
68faa637
AM		 1446/* Create the derived linker hash table. The IA-64 ELF port uses this
1447 derived hash table to keep information specific to the IA-64 ElF
1448 linker (without using static variables). */
1449
1450static struct bfd_link_hash_table *
1451elfNN_ia64_hash_table_create (bfd *abfd)
1452{
1453 struct elfNN_ia64_link_hash_table *ret;
1454
1455 ret = bfd_zmalloc ((bfd_size_type) sizeof (*ret));
1456 if (!ret)
1457 return NULL;
1458
1459 if (!_bfd_elf_link_hash_table_init (&ret->root, abfd,
1460 elfNN_ia64_new_elf_hash_entry,
1461 sizeof (struct elfNN_ia64_link_hash_entry),
1462 IA64_ELF_DATA))
1463 {
1464 free (ret);
1465 return NULL;
1466 }
1467
1468 ret->loc_hash_table = htab_try_create (1024, elfNN_ia64_local_htab_hash,
1469 elfNN_ia64_local_htab_eq, NULL);
1470 ret->loc_hash_memory = objalloc_create ();
1471 if (!ret->loc_hash_table || !ret->loc_hash_memory)
1472 {
d495ab0d 1473 elfNN_ia64_link_hash_table_free (abfd);
68faa637
AM		 1474 return NULL;
1475 }
d495ab0d 1476 ret->root.root.hash_table_free = elfNN_ia64_link_hash_table_free;
3084d7a2 1477 ret->root.dt_pltgot_required = TRUE;
68faa637
AM		 1478
1479 return &ret->root.root;
1480}
1481
cbe79dfe
TG		 1482/* Traverse both local and global hash tables. */
1483
1484struct elfNN_ia64_dyn_sym_traverse_data
1485{
2c3fc389
NC		 1486 bfd_boolean (*func) (struct elfNN_ia64_dyn_sym_info *, void *);
1487 void * data;
cbe79dfe
TG		 1488};
1489
1490static bfd_boolean
1491elfNN_ia64_global_dyn_sym_thunk (struct bfd_hash_entry *xentry,
2c3fc389 1492 void * xdata)
cbe79dfe
TG		 1493{
1494 struct elfNN_ia64_link_hash_entry *entry
1495 = (struct elfNN_ia64_link_hash_entry *) xentry;
1496 struct elfNN_ia64_dyn_sym_traverse_data *data
1497 = (struct elfNN_ia64_dyn_sym_traverse_data *) xdata;
1498 struct elfNN_ia64_dyn_sym_info *dyn_i;
1499 unsigned int count;
1500
cbe79dfe
TG		 1501 for (count = entry->count, dyn_i = entry->info;
1502 count != 0;
1503 count--, dyn_i++)
1504 if (! (*data->func) (dyn_i, data->data))
1505 return FALSE;
1506 return TRUE;
1507}
1508
1509static bfd_boolean
2c3fc389 1510elfNN_ia64_local_dyn_sym_thunk (void **slot, void * xdata)
cbe79dfe
TG		 1511{
1512 struct elfNN_ia64_local_hash_entry *entry
1513 = (struct elfNN_ia64_local_hash_entry *) *slot;
1514 struct elfNN_ia64_dyn_sym_traverse_data *data
1515 = (struct elfNN_ia64_dyn_sym_traverse_data *) xdata;
1516 struct elfNN_ia64_dyn_sym_info *dyn_i;
1517 unsigned int count;
1518
1519 for (count = entry->count, dyn_i = entry->info;
1520 count != 0;
1521 count--, dyn_i++)
1522 if (! (*data->func) (dyn_i, data->data))
1523 return FALSE;
1524 return TRUE;
1525}
1526
1527static void
1528elfNN_ia64_dyn_sym_traverse (struct elfNN_ia64_link_hash_table *ia64_info,
2c3fc389
NC		 1529 bfd_boolean (*func) (struct elfNN_ia64_dyn_sym_info *, void *),
1530 void * data)
cbe79dfe
TG		 1531{
1532 struct elfNN_ia64_dyn_sym_traverse_data xdata;
1533
1534 xdata.func = func;
1535 xdata.data = data;
1536
1537 elf_link_hash_traverse (&ia64_info->root,
1538 elfNN_ia64_global_dyn_sym_thunk, &xdata);
1539 htab_traverse (ia64_info->loc_hash_table,
1540 elfNN_ia64_local_dyn_sym_thunk, &xdata);
1541}
1542\f
1543static bfd_boolean
1544elfNN_ia64_create_dynamic_sections (bfd *abfd,
1545 struct bfd_link_info *info)
1546{
1547 struct elfNN_ia64_link_hash_table *ia64_info;
1548 asection *s;
1549
1550 if (! _bfd_elf_create_dynamic_sections (abfd, info))
1551 return FALSE;
1552
1553 ia64_info = elfNN_ia64_hash_table (info);
1554 if (ia64_info == NULL)
1555 return FALSE;
1556
1557 {
fd361982
AM		 1558 flagword flags = bfd_section_flags (ia64_info->root.sgot);
1559 bfd_set_section_flags (ia64_info->root.sgot, SEC_SMALL_DATA | flags);
cbe79dfe 1560 /* The .got section is always aligned at 8 bytes. */
fd361982 1561 if (!bfd_set_section_alignment (ia64_info->root.sgot, 3))
a253d456 1562 return FALSE;
cbe79dfe
TG		 1563 }
1564
1565 if (!get_pltoff (abfd, info, ia64_info))
1566 return FALSE;
1567
3d4d4302
AM		 1568 s = bfd_make_section_anyway_with_flags (abfd, ".rela.IA_64.pltoff",
1569 (SEC_ALLOC | SEC_LOAD
1570 | SEC_HAS_CONTENTS
1571 | SEC_IN_MEMORY
1572 | SEC_LINKER_CREATED
1573 | SEC_READONLY));
cbe79dfe 1574 if (s == NULL
fd361982 1575 || !bfd_set_section_alignment (s, LOG_SECTION_ALIGN))
cbe79dfe
TG		 1576 return FALSE;
1577 ia64_info->rel_pltoff_sec = s;
1578
1579 return TRUE;
1580}
1581
1582/* Find and/or create a hash entry for local symbol. */
1583static struct elfNN_ia64_local_hash_entry *
1584get_local_sym_hash (struct elfNN_ia64_link_hash_table *ia64_info,
1585 bfd *abfd, const Elf_Internal_Rela *rel,
1586 bfd_boolean create)
1587{
1588 struct elfNN_ia64_local_hash_entry e, *ret;
1589 asection *sec = abfd->sections;
1590 hashval_t h = ELF_LOCAL_SYMBOL_HASH (sec->id,
1591 ELFNN_R_SYM (rel->r_info));
1592 void **slot;
1593
1594 e.id = sec->id;
1595 e.r_sym = ELFNN_R_SYM (rel->r_info);
1596 slot = htab_find_slot_with_hash (ia64_info->loc_hash_table, &e, h,
1597 create ? INSERT : NO_INSERT);
1598
1599 if (!slot)
1600 return NULL;
1601
1602 if (*slot)
1603 return (struct elfNN_ia64_local_hash_entry *) *slot;
1604
1605 ret = (struct elfNN_ia64_local_hash_entry *)
1606 objalloc_alloc ((struct objalloc *) ia64_info->loc_hash_memory,
1607 sizeof (struct elfNN_ia64_local_hash_entry));
1608 if (ret)
1609 {
1610 memset (ret, 0, sizeof (*ret));
1611 ret->id = sec->id;
1612 ret->r_sym = ELFNN_R_SYM (rel->r_info);
1613 *slot = ret;
1614 }
1615 return ret;
1616}
1617
1618/* Used to sort elfNN_ia64_dyn_sym_info array. */
1619
1620static int
1621addend_compare (const void *xp, const void *yp)
1622{
1623 const struct elfNN_ia64_dyn_sym_info *x
1624 = (const struct elfNN_ia64_dyn_sym_info *) xp;
1625 const struct elfNN_ia64_dyn_sym_info *y
1626 = (const struct elfNN_ia64_dyn_sym_info *) yp;
1627
1628 return x->addend < y->addend ? -1 : x->addend > y->addend ? 1 : 0;
1629}
1630
1631/* Sort elfNN_ia64_dyn_sym_info array and remove duplicates. */
1632
1633static unsigned int
1634sort_dyn_sym_info (struct elfNN_ia64_dyn_sym_info *info,
1635 unsigned int count)
1636{
1637 bfd_vma curr, prev, got_offset;
1638 unsigned int i, kept, dupes, diff, dest, src, len;
1639
1640 qsort (info, count, sizeof (*info), addend_compare);
1641
1642 /* Find the first duplicate. */
1643 prev = info [0].addend;
1644 got_offset = info [0].got_offset;
1645 for (i = 1; i < count; i++)
1646 {
1647 curr = info [i].addend;
1648 if (curr == prev)
1649 {
1650 /* For duplicates, make sure that GOT_OFFSET is valid. */
1651 if (got_offset == (bfd_vma) -1)
1652 got_offset = info [i].got_offset;
1653 break;
1654 }
1655 got_offset = info [i].got_offset;
1656 prev = curr;
1657 }
1658
1659 /* We may move a block of elements to here. */
1660 dest = i++;
1661
1662 /* Remove duplicates. */
1663 if (i < count)
1664 {
1665 while (i < count)
1666 {
1667 /* For duplicates, make sure that the kept one has a valid
1668 got_offset. */
1669 kept = dest - 1;
1670 if (got_offset != (bfd_vma) -1)
1671 info [kept].got_offset = got_offset;
1672
1673 curr = info [i].addend;
1674 got_offset = info [i].got_offset;
1675
1676 /* Move a block of elements whose first one is different from
1677 the previous. */
1678 if (curr == prev)
1679 {
1680 for (src = i + 1; src < count; src++)
1681 {
1682 if (info [src].addend != curr)
1683 break;
1684 /* For duplicates, make sure that GOT_OFFSET is
1685 valid. */
1686 if (got_offset == (bfd_vma) -1)
1687 got_offset = info [src].got_offset;
1688 }
1689
1690 /* Make sure that the kept one has a valid got_offset. */
1691 if (got_offset != (bfd_vma) -1)
1692 info [kept].got_offset = got_offset;
1693 }
1694 else
1695 src = i;
1696
1697 if (src >= count)
1698 break;
1699
1700 /* Find the next duplicate. SRC will be kept. */
1701 prev = info [src].addend;
1702 got_offset = info [src].got_offset;
1703 for (dupes = src + 1; dupes < count; dupes ++)
1704 {
1705 curr = info [dupes].addend;
1706 if (curr == prev)
1707 {
1708 /* Make sure that got_offset is valid. */
1709 if (got_offset == (bfd_vma) -1)
1710 got_offset = info [dupes].got_offset;
1711
1712 /* For duplicates, make sure that the kept one has
1713 a valid got_offset. */
1714 if (got_offset != (bfd_vma) -1)
1715 info [dupes - 1].got_offset = got_offset;
1716 break;
1717 }
1718 got_offset = info [dupes].got_offset;
1719 prev = curr;
1720 }
1721
1722 /* How much to move. */
1723 len = dupes - src;
1724 i = dupes + 1;
1725
1726 if (len == 1 && dupes < count)
1727 {
1728 /* If we only move 1 element, we combine it with the next
1729 one. There must be at least a duplicate. Find the
1730 next different one. */
1731 for (diff = dupes + 1, src++; diff < count; diff++, src++)
1732 {
1733 if (info [diff].addend != curr)
1734 break;
1735 /* Make sure that got_offset is valid. */
1736 if (got_offset == (bfd_vma) -1)
1737 got_offset = info [diff].got_offset;
1738 }
1739
1740 /* Makre sure that the last duplicated one has an valid
1741 offset. */
1742 BFD_ASSERT (curr == prev);
1743 if (got_offset != (bfd_vma) -1)
1744 info [diff - 1].got_offset = got_offset;
1745
1746 if (diff < count)
1747 {
1748 /* Find the next duplicate. Track the current valid
1749 offset. */
1750 prev = info [diff].addend;
1751 got_offset = info [diff].got_offset;
1752 for (dupes = diff + 1; dupes < count; dupes ++)
1753 {
1754 curr = info [dupes].addend;
1755 if (curr == prev)
1756 {
1757 /* For duplicates, make sure that GOT_OFFSET
1758 is valid. */
1759 if (got_offset == (bfd_vma) -1)
1760 got_offset = info [dupes].got_offset;
1761 break;
1762 }
1763 got_offset = info [dupes].got_offset;
1764 prev = curr;
1765 diff++;
1766 }
1767
1768 len = diff - src + 1;
1769 i = diff + 1;
1770 }
1771 }
1772
1773 memmove (&info [dest], &info [src], len * sizeof (*info));
1774
1775 dest += len;
1776 }
1777
1778 count = dest;
1779 }
1780 else
1781 {
1782 /* When we get here, either there is no duplicate at all or
1783 the only duplicate is the last element. */
1784 if (dest < count)
1785 {
1786 /* If the last element is a duplicate, make sure that the
1787 kept one has a valid got_offset. We also update count. */
1788 if (got_offset != (bfd_vma) -1)
1789 info [dest - 1].got_offset = got_offset;
1790 count = dest;
1791 }
1792 }
1793
1794 return count;
1795}
1796
1797/* Find and/or create a descriptor for dynamic symbol info. This will
1798 vary based on global or local symbol, and the addend to the reloc.
1799
1800 We don't sort when inserting. Also, we sort and eliminate
1801 duplicates if there is an unsorted section. Typically, this will
1802 only happen once, because we do all insertions before lookups. We
1803 then use bsearch to do a lookup. This also allows lookups to be
1804 fast. So we have fast insertion (O(log N) due to duplicate check),
1805 fast lookup (O(log N)) and one sort (O(N log N) expected time).
1806 Previously, all lookups were O(N) because of the use of the linked
1807 list and also all insertions were O(N) because of the check for
1808 duplicates. There are some complications here because the array
1809 size grows occasionally, which may add an O(N) factor, but this
1810 should be rare. Also, we free the excess array allocation, which
1811 requires a copy which is O(N), but this only happens once. */
1812
1813static struct elfNN_ia64_dyn_sym_info *
1814get_dyn_sym_info (struct elfNN_ia64_link_hash_table *ia64_info,
1815 struct elf_link_hash_entry *h, bfd *abfd,
1816 const Elf_Internal_Rela *rel, bfd_boolean create)
1817{
1818 struct elfNN_ia64_dyn_sym_info **info_p, *info, *dyn_i, key;
1819 unsigned int *count_p, *sorted_count_p, *size_p;
1820 unsigned int count, sorted_count, size;
1821 bfd_vma addend = rel ? rel->r_addend : 0;
1822 bfd_size_type amt;
1823
1824 if (h)
1825 {
1826 struct elfNN_ia64_link_hash_entry *global_h;
1827
1828 global_h = (struct elfNN_ia64_link_hash_entry *) h;
1829 info_p = &global_h->info;
1830 count_p = &global_h->count;
1831 sorted_count_p = &global_h->sorted_count;
1832 size_p = &global_h->size;
1833 }
1834 else
1835 {
1836 struct elfNN_ia64_local_hash_entry *loc_h;
1837
1838 loc_h = get_local_sym_hash (ia64_info, abfd, rel, create);
1839 if (!loc_h)
1840 {
1841 BFD_ASSERT (!create);
1842 return NULL;
1843 }
1844
1845 info_p = &loc_h->info;
1846 count_p = &loc_h->count;
1847 sorted_count_p = &loc_h->sorted_count;
1848 size_p = &loc_h->size;
1849 }
1850
1851 count = *count_p;
1852 sorted_count = *sorted_count_p;
1853 size = *size_p;
1854 info = *info_p;
1855 if (create)
1856 {
1857 /* When we create the array, we don't check for duplicates,
07d6d2b8 1858 except in the previously sorted section if one exists, and
cbe79dfe
TG		 1859 against the last inserted entry. This allows insertions to
1860 be fast. */
1861 if (info)
1862 {
1863 if (sorted_count)
1864 {
1865 /* Try bsearch first on the sorted section. */
1866 key.addend = addend;
1867 dyn_i = bsearch (&key, info, sorted_count,
1868 sizeof (*info), addend_compare);
1869
1870 if (dyn_i)
1871 {
1872 return dyn_i;
1873 }
1874 }
1875
1876 /* Do a quick check for the last inserted entry. */
1877 dyn_i = info + count - 1;
1878 if (dyn_i->addend == addend)
1879 {
1880 return dyn_i;
1881 }
1882 }
1883
1884 if (size == 0)
1885 {
1886 /* It is the very first element. We create the array of size
1887 1. */
1888 size = 1;
1889 amt = size * sizeof (*info);
1890 info = bfd_malloc (amt);
1891 }
1892 else if (size <= count)
1893 {
1894 /* We double the array size every time when we reach the
1895 size limit. */
1896 size += size;
1897 amt = size * sizeof (*info);
1898 info = bfd_realloc (info, amt);
1899 }
1900 else
1901 goto has_space;
1902
1903 if (info == NULL)
1904 return NULL;
1905 *size_p = size;
1906 *info_p = info;
1907
dc1e8a47 1908 has_space:
cbe79dfe
TG		 1909 /* Append the new one to the array. */
1910 dyn_i = info + count;
1911 memset (dyn_i, 0, sizeof (*dyn_i));
1912 dyn_i->got_offset = (bfd_vma) -1;
1913 dyn_i->addend = addend;
1914
1915 /* We increment count only since the new ones are unsorted and
1916 may have duplicate. */
1917 (*count_p)++;
1918 }
1919 else
1920 {
1921 /* It is a lookup without insertion. Sort array if part of the
1922 array isn't sorted. */
1923 if (count != sorted_count)
1924 {
1925 count = sort_dyn_sym_info (info, count);
1926 *count_p = count;
1927 *sorted_count_p = count;
1928 }
1929
1930 /* Free unused memory. */
1931 if (size != count)
1932 {
1933 amt = count * sizeof (*info);
1934 info = bfd_malloc (amt);
1935 if (info != NULL)
1936 {
1937 memcpy (info, *info_p, amt);
1938 free (*info_p);
1939 *size_p = count;
1940 *info_p = info;
1941 }
1942 }
1943
1944 key.addend = addend;
1945 dyn_i = bsearch (&key, info, count,
1946 sizeof (*info), addend_compare);
1947 }
1948
1949 return dyn_i;
1950}
1951
1952static asection *
1953get_got (bfd *abfd, struct bfd_link_info *info,
1954 struct elfNN_ia64_link_hash_table *ia64_info)
1955{
1956 asection *got;
1957 bfd *dynobj;
1958
1959 got = ia64_info->root.sgot;
1960 if (!got)
1961 {
1962 flagword flags;
1963
1964 dynobj = ia64_info->root.dynobj;
1965 if (!dynobj)
1966 ia64_info->root.dynobj = dynobj = abfd;
1967 if (!_bfd_elf_create_got_section (dynobj, info))
a253d456 1968 return NULL;
cbe79dfe
TG		 1969
1970 got = ia64_info->root.sgot;
1971
1972 /* The .got section is always aligned at 8 bytes. */
fd361982 1973 if (!bfd_set_section_alignment (got, 3))
a253d456 1974 return NULL;
cbe79dfe 1975
fd361982
AM		 1976 flags = bfd_section_flags (got);
1977 if (!bfd_set_section_flags (got, SEC_SMALL_DATA | flags))
a253d456 1978 return NULL;
cbe79dfe
TG		 1979 }
1980
1981 return got;
1982}
1983
1984/* Create function descriptor section (.opd). This section is called .opd
1985 because it contains "official procedure descriptors". The "official"
1986 refers to the fact that these descriptors are used when taking the address
1987 of a procedure, thus ensuring a unique address for each procedure. */
1988
1989static asection *
1990get_fptr (bfd *abfd, struct bfd_link_info *info,
1991 struct elfNN_ia64_link_hash_table *ia64_info)
1992{
1993 asection *fptr;
1994 bfd *dynobj;
1995
1996 fptr = ia64_info->fptr_sec;
1997 if (!fptr)
1998 {
1999 dynobj = ia64_info->root.dynobj;
2000 if (!dynobj)
2001 ia64_info->root.dynobj = dynobj = abfd;
2002
3d4d4302
AM		 2003 fptr = bfd_make_section_anyway_with_flags (dynobj, ".opd",
2004 (SEC_ALLOC
2005 | SEC_LOAD
2006 | SEC_HAS_CONTENTS
2007 | SEC_IN_MEMORY
0e1862bb
L		 2008 | (bfd_link_pie (info)
2009 ? 0 : SEC_READONLY)
3d4d4302 2010 | SEC_LINKER_CREATED));
cbe79dfe 2011 if (!fptr
fd361982 2012 || !bfd_set_section_alignment (fptr, 4))
cbe79dfe
TG		 2013 {
2014 BFD_ASSERT (0);
2015 return NULL;
2016 }
2017
2018 ia64_info->fptr_sec = fptr;
2019
0e1862bb 2020 if (bfd_link_pie (info))
cbe79dfe
TG		 2021 {
2022 asection *fptr_rel;
3d4d4302
AM		 2023 fptr_rel = bfd_make_section_anyway_with_flags (dynobj, ".rela.opd",
2024 (SEC_ALLOC | SEC_LOAD
2025 | SEC_HAS_CONTENTS
2026 | SEC_IN_MEMORY
2027 | SEC_LINKER_CREATED
2028 | SEC_READONLY));
cbe79dfe 2029 if (fptr_rel == NULL
fd361982 2030 || !bfd_set_section_alignment (fptr_rel, LOG_SECTION_ALIGN))
cbe79dfe
TG		 2031 {
2032 BFD_ASSERT (0);
2033 return NULL;
2034 }
2035
2036 ia64_info->rel_fptr_sec = fptr_rel;
2037 }
2038 }
2039
2040 return fptr;
2041}
2042
2043static asection *
2044get_pltoff (bfd *abfd, struct bfd_link_info *info ATTRIBUTE_UNUSED,
2045 struct elfNN_ia64_link_hash_table *ia64_info)
2046{
2047 asection *pltoff;
2048 bfd *dynobj;
2049
2050 pltoff = ia64_info->pltoff_sec;
2051 if (!pltoff)
2052 {
2053 dynobj = ia64_info->root.dynobj;
2054 if (!dynobj)
2055 ia64_info->root.dynobj = dynobj = abfd;
2056
3d4d4302
AM		 2057 pltoff = bfd_make_section_anyway_with_flags (dynobj,
2058 ELF_STRING_ia64_pltoff,
2059 (SEC_ALLOC
2060 | SEC_LOAD
2061 | SEC_HAS_CONTENTS
2062 | SEC_IN_MEMORY
2063 | SEC_SMALL_DATA
2064 | SEC_LINKER_CREATED));
cbe79dfe 2065 if (!pltoff
fd361982 2066 || !bfd_set_section_alignment (pltoff, 4))
cbe79dfe
TG		 2067 {
2068 BFD_ASSERT (0);
2069 return NULL;
2070 }
2071
2072 ia64_info->pltoff_sec = pltoff;
2073 }
2074
2075 return pltoff;
2076}
2077
2078static asection *
2079get_reloc_section (bfd *abfd,
2080 struct elfNN_ia64_link_hash_table *ia64_info,
2081 asection *sec, bfd_boolean create)
2082{
2083 const char *srel_name;
2084 asection *srel;
2085 bfd *dynobj;
2086
2087 srel_name = (bfd_elf_string_from_elf_section
2088 (abfd, elf_elfheader(abfd)->e_shstrndx,
2089 _bfd_elf_single_rel_hdr (sec)->sh_name));
2090 if (srel_name == NULL)
2091 return NULL;
2092
2093 dynobj = ia64_info->root.dynobj;
2094 if (!dynobj)
2095 ia64_info->root.dynobj = dynobj = abfd;
2096
3d4d4302 2097 srel = bfd_get_linker_section (dynobj, srel_name);
cbe79dfe
TG		 2098 if (srel == NULL && create)
2099 {
3d4d4302
AM		 2100 srel = bfd_make_section_anyway_with_flags (dynobj, srel_name,
2101 (SEC_ALLOC | SEC_LOAD
2102 | SEC_HAS_CONTENTS
2103 | SEC_IN_MEMORY
2104 | SEC_LINKER_CREATED
2105 | SEC_READONLY));
cbe79dfe 2106 if (srel == NULL
fd361982 2107 || !bfd_set_section_alignment (srel, LOG_SECTION_ALIGN))
cbe79dfe
TG		 2108 return NULL;
2109 }
2110
2111 return srel;
2112}
2113
2114static bfd_boolean
2115count_dyn_reloc (bfd *abfd, struct elfNN_ia64_dyn_sym_info *dyn_i,
2116 asection *srel, int type, bfd_boolean reltext)
2117{
2118 struct elfNN_ia64_dyn_reloc_entry *rent;
2119
2120 for (rent = dyn_i->reloc_entries; rent; rent = rent->next)
2121 if (rent->srel == srel && rent->type == type)
2122 break;
2123
2124 if (!rent)
2125 {
2126 rent = ((struct elfNN_ia64_dyn_reloc_entry *)
2127 bfd_alloc (abfd, (bfd_size_type) sizeof (*rent)));
2128 if (!rent)
2129 return FALSE;
2130
2131 rent->next = dyn_i->reloc_entries;
2132 rent->srel = srel;
2133 rent->type = type;
2134 rent->count = 0;
2135 dyn_i->reloc_entries = rent;
2136 }
23ebcd30 2137 rent->reltext = reltext;
cbe79dfe
TG		 2138 rent->count++;
2139
2140 return TRUE;
2141}
2142
2143static bfd_boolean
2144elfNN_ia64_check_relocs (bfd *abfd, struct bfd_link_info *info,
2145 asection *sec,
2146 const Elf_Internal_Rela *relocs)
2147{
2148 struct elfNN_ia64_link_hash_table *ia64_info;
2149 const Elf_Internal_Rela *relend;
2150 Elf_Internal_Shdr *symtab_hdr;
2151 const Elf_Internal_Rela *rel;
2152 asection *got, *fptr, *srel, *pltoff;
2153 enum {
2154 NEED_GOT = 1,
2155 NEED_GOTX = 2,
2156 NEED_FPTR = 4,
2157 NEED_PLTOFF = 8,
2158 NEED_MIN_PLT = 16,
2159 NEED_FULL_PLT = 32,
2160 NEED_DYNREL = 64,
2161 NEED_LTOFF_FPTR = 128,
2162 NEED_TPREL = 256,
2163 NEED_DTPMOD = 512,
2164 NEED_DTPREL = 1024
2165 };
2166 int need_entry;
2167 struct elf_link_hash_entry *h;
2168 unsigned long r_symndx;
2169 bfd_boolean maybe_dynamic;
2170
0e1862bb 2171 if (bfd_link_relocatable (info))
cbe79dfe
TG		 2172 return TRUE;
2173
2174 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2175 ia64_info = elfNN_ia64_hash_table (info);
2176 if (ia64_info == NULL)
2177 return FALSE;
2178
2179 got = fptr = srel = pltoff = NULL;
2180
2181 relend = relocs + sec->reloc_count;
2182
2183 /* We scan relocations first to create dynamic relocation arrays. We
2184 modified get_dyn_sym_info to allow fast insertion and support fast
2185 lookup in the next loop. */
2186 for (rel = relocs; rel < relend; ++rel)
2187 {
2188 r_symndx = ELFNN_R_SYM (rel->r_info);
2189 if (r_symndx >= symtab_hdr->sh_info)
2190 {
2191 long indx = r_symndx - symtab_hdr->sh_info;
2192 h = elf_sym_hashes (abfd)[indx];
2193 while (h->root.type == bfd_link_hash_indirect
2194 || h->root.type == bfd_link_hash_warning)
2195 h = (struct elf_link_hash_entry *) h->root.u.i.link;
2196 }
2197 else
2198 h = NULL;
2199
db41f6eb
L		 2200 if (h && UNDEFWEAK_NO_DYNAMIC_RELOC (info, h))
2201 continue;
2202
cbe79dfe
TG		 2203 /* We can only get preliminary data on whether a symbol is
2204 locally or externally defined, as not all of the input files
2205 have yet been processed. Do something with what we know, as
2206 this may help reduce memory usage and processing time later. */
0e1862bb 2207 maybe_dynamic = (h && ((!bfd_link_executable (info)
cbe79dfe
TG		 2208 && (!SYMBOLIC_BIND (info, h)
2209 || info->unresolved_syms_in_shared_libs == RM_IGNORE))
2210 || !h->def_regular
2211 || h->root.type == bfd_link_hash_defweak));
2212
2213 need_entry = 0;
2214 switch (ELFNN_R_TYPE (rel->r_info))
2215 {
2216 case R_IA64_TPREL64MSB:
2217 case R_IA64_TPREL64LSB:
0e1862bb 2218 if (bfd_link_pic (info) || maybe_dynamic)
cbe79dfe
TG		 2219 need_entry = NEED_DYNREL;
2220 break;
2221
2222 case R_IA64_LTOFF_TPREL22:
2223 need_entry = NEED_TPREL;
0e1862bb 2224 if (bfd_link_pic (info))
cbe79dfe
TG		 2225 info->flags |= DF_STATIC_TLS;
2226 break;
2227
2228 case R_IA64_DTPREL32MSB:
2229 case R_IA64_DTPREL32LSB:
2230 case R_IA64_DTPREL64MSB:
2231 case R_IA64_DTPREL64LSB:
0e1862bb 2232 if (bfd_link_pic (info) || maybe_dynamic)
cbe79dfe
TG		 2233 need_entry = NEED_DYNREL;
2234 break;
2235
2236 case R_IA64_LTOFF_DTPREL22:
2237 need_entry = NEED_DTPREL;
2238 break;
2239
2240 case R_IA64_DTPMOD64MSB:
2241 case R_IA64_DTPMOD64LSB:
0e1862bb 2242 if (bfd_link_pic (info) || maybe_dynamic)
cbe79dfe
TG		 2243 need_entry = NEED_DYNREL;
2244 break;
2245
2246 case R_IA64_LTOFF_DTPMOD22:
2247 need_entry = NEED_DTPMOD;
2248 break;
2249
2250 case R_IA64_LTOFF_FPTR22:
2251 case R_IA64_LTOFF_FPTR64I:
2252 case R_IA64_LTOFF_FPTR32MSB:
2253 case R_IA64_LTOFF_FPTR32LSB:
2254 case R_IA64_LTOFF_FPTR64MSB:
2255 case R_IA64_LTOFF_FPTR64LSB:
2256 need_entry = NEED_FPTR | NEED_GOT | NEED_LTOFF_FPTR;
2257 break;
2258
2259 case R_IA64_FPTR64I:
2260 case R_IA64_FPTR32MSB:
2261 case R_IA64_FPTR32LSB:
2262 case R_IA64_FPTR64MSB:
2263 case R_IA64_FPTR64LSB:
0e1862bb 2264 if (bfd_link_pic (info) || h)
cbe79dfe
TG		 2265 need_entry = NEED_FPTR | NEED_DYNREL;
2266 else
2267 need_entry = NEED_FPTR;
2268 break;
2269
2270 case R_IA64_LTOFF22:
2271 case R_IA64_LTOFF64I:
2272 need_entry = NEED_GOT;
2273 break;
2274
2275 case R_IA64_LTOFF22X:
2276 need_entry = NEED_GOTX;
2277 break;
2278
2279 case R_IA64_PLTOFF22:
2280 case R_IA64_PLTOFF64I:
2281 case R_IA64_PLTOFF64MSB:
2282 case R_IA64_PLTOFF64LSB:
2283 need_entry = NEED_PLTOFF;
2284 if (h)
2285 {
2286 if (maybe_dynamic)
2287 need_entry |= NEED_MIN_PLT;
2288 }
2289 else
2290 {
2291 (*info->callbacks->warning)
2292 (info, _("@pltoff reloc against local symbol"), 0,
2293 abfd, 0, (bfd_vma) 0);
2294 }
2295 break;
2296
2297 case R_IA64_PCREL21B:
07d6d2b8 2298 case R_IA64_PCREL60B:
cbe79dfe
TG		 2299 /* Depending on where this symbol is defined, we may or may not
2300 need a full plt entry. Only skip if we know we'll not need
2301 the entry -- static or symbolic, and the symbol definition
2302 has already been seen. */
2303 if (maybe_dynamic && rel->r_addend == 0)
2304 need_entry = NEED_FULL_PLT;
2305 break;
2306
2307 case R_IA64_IMM14:
2308 case R_IA64_IMM22:
2309 case R_IA64_IMM64:
2310 case R_IA64_DIR32MSB:
2311 case R_IA64_DIR32LSB:
2312 case R_IA64_DIR64MSB:
2313 case R_IA64_DIR64LSB:
2314 /* Shared objects will always need at least a REL relocation. */
0e1862bb 2315 if (bfd_link_pic (info) || maybe_dynamic)
cbe79dfe
TG		 2316 need_entry = NEED_DYNREL;
2317 break;
2318
2319 case R_IA64_IPLTMSB:
2320 case R_IA64_IPLTLSB:
2321 /* Shared objects will always need at least a REL relocation. */
0e1862bb 2322 if (bfd_link_pic (info) || maybe_dynamic)
cbe79dfe
TG		 2323 need_entry = NEED_DYNREL;
2324 break;
2325
2326 case R_IA64_PCREL22:
2327 case R_IA64_PCREL64I:
2328 case R_IA64_PCREL32MSB:
2329 case R_IA64_PCREL32LSB:
2330 case R_IA64_PCREL64MSB:
2331 case R_IA64_PCREL64LSB:
2332 if (maybe_dynamic)
2333 need_entry = NEED_DYNREL;
2334 break;
2335 }
2336
2337 if (!need_entry)
2338 continue;
2339
2340 if ((need_entry & NEED_FPTR) != 0
2341 && rel->r_addend)
2342 {
2343 (*info->callbacks->warning)
2344 (info, _("non-zero addend in @fptr reloc"), 0,
2345 abfd, 0, (bfd_vma) 0);
2346 }
2347
2348 if (get_dyn_sym_info (ia64_info, h, abfd, rel, TRUE) == NULL)
2349 return FALSE;
2350 }
2351
2352 /* Now, we only do lookup without insertion, which is very fast
2353 with the modified get_dyn_sym_info. */
2354 for (rel = relocs; rel < relend; ++rel)
2355 {
2356 struct elfNN_ia64_dyn_sym_info *dyn_i;
2357 int dynrel_type = R_IA64_NONE;
2358
2359 r_symndx = ELFNN_R_SYM (rel->r_info);
2360 if (r_symndx >= symtab_hdr->sh_info)
2361 {
2362 /* We're dealing with a global symbol -- find its hash entry
2363 and mark it as being referenced. */
2364 long indx = r_symndx - symtab_hdr->sh_info;
2365 h = elf_sym_hashes (abfd)[indx];
2366 while (h->root.type == bfd_link_hash_indirect
2367 || h->root.type == bfd_link_hash_warning)
2368 h = (struct elf_link_hash_entry *) h->root.u.i.link;
2369
81fbe831
AM		 2370 /* PR15323, ref flags aren't set for references in the same
2371 object. */
cbe79dfe
TG		 2372 h->ref_regular = 1;
2373 }
2374 else
2375 h = NULL;
2376
db41f6eb
L		 2377 if (h && UNDEFWEAK_NO_DYNAMIC_RELOC (info, h))
2378 continue;
2379
cbe79dfe
TG		 2380 /* We can only get preliminary data on whether a symbol is
2381 locally or externally defined, as not all of the input files
2382 have yet been processed. Do something with what we know, as
2383 this may help reduce memory usage and processing time later. */
0e1862bb 2384 maybe_dynamic = (h && ((!bfd_link_executable (info)
cbe79dfe
TG		 2385 && (!SYMBOLIC_BIND (info, h)
2386 || info->unresolved_syms_in_shared_libs == RM_IGNORE))
2387 || !h->def_regular
2388 || h->root.type == bfd_link_hash_defweak));
2389
2390 need_entry = 0;
2391 switch (ELFNN_R_TYPE (rel->r_info))
2392 {
2393 case R_IA64_TPREL64MSB:
2394 case R_IA64_TPREL64LSB:
0e1862bb 2395 if (bfd_link_pic (info) || maybe_dynamic)
cbe79dfe
TG		 2396 need_entry = NEED_DYNREL;
2397 dynrel_type = R_IA64_TPREL64LSB;
0e1862bb 2398 if (bfd_link_pic (info))
cbe79dfe
TG		 2399 info->flags |= DF_STATIC_TLS;
2400 break;
2401
2402 case R_IA64_LTOFF_TPREL22:
2403 need_entry = NEED_TPREL;
0e1862bb 2404 if (bfd_link_pic (info))
cbe79dfe
TG		 2405 info->flags |= DF_STATIC_TLS;
2406 break;
2407
2408 case R_IA64_DTPREL32MSB:
2409 case R_IA64_DTPREL32LSB:
2410 case R_IA64_DTPREL64MSB:
2411 case R_IA64_DTPREL64LSB:
0e1862bb 2412 if (bfd_link_pic (info) || maybe_dynamic)
cbe79dfe
TG		 2413 need_entry = NEED_DYNREL;
2414 dynrel_type = R_IA64_DTPRELNNLSB;
2415 break;
2416
2417 case R_IA64_LTOFF_DTPREL22:
2418 need_entry = NEED_DTPREL;
2419 break;
2420
2421 case R_IA64_DTPMOD64MSB:
2422 case R_IA64_DTPMOD64LSB:
0e1862bb 2423 if (bfd_link_pic (info) || maybe_dynamic)
cbe79dfe
TG		 2424 need_entry = NEED_DYNREL;
2425 dynrel_type = R_IA64_DTPMOD64LSB;
2426 break;
2427
2428 case R_IA64_LTOFF_DTPMOD22:
2429 need_entry = NEED_DTPMOD;
2430 break;
2431
2432 case R_IA64_LTOFF_FPTR22:
2433 case R_IA64_LTOFF_FPTR64I:
2434 case R_IA64_LTOFF_FPTR32MSB:
2435 case R_IA64_LTOFF_FPTR32LSB:
2436 case R_IA64_LTOFF_FPTR64MSB:
2437 case R_IA64_LTOFF_FPTR64LSB:
2438 need_entry = NEED_FPTR | NEED_GOT | NEED_LTOFF_FPTR;
2439 break;
2440
2441 case R_IA64_FPTR64I:
2442 case R_IA64_FPTR32MSB:
2443 case R_IA64_FPTR32LSB:
2444 case R_IA64_FPTR64MSB:
2445 case R_IA64_FPTR64LSB:
0e1862bb 2446 if (bfd_link_pic (info) || h)
cbe79dfe
TG		 2447 need_entry = NEED_FPTR | NEED_DYNREL;
2448 else
2449 need_entry = NEED_FPTR;
2450 dynrel_type = R_IA64_FPTRNNLSB;
2451 break;
2452
2453 case R_IA64_LTOFF22:
2454 case R_IA64_LTOFF64I:
2455 need_entry = NEED_GOT;
2456 break;
2457
2458 case R_IA64_LTOFF22X:
2459 need_entry = NEED_GOTX;
2460 break;
2461
2462 case R_IA64_PLTOFF22:
2463 case R_IA64_PLTOFF64I:
2464 case R_IA64_PLTOFF64MSB:
2465 case R_IA64_PLTOFF64LSB:
2466 need_entry = NEED_PLTOFF;
2467 if (h)
2468 {
2469 if (maybe_dynamic)
2470 need_entry |= NEED_MIN_PLT;
2471 }
2472 break;
2473
2474 case R_IA64_PCREL21B:
07d6d2b8 2475 case R_IA64_PCREL60B:
cbe79dfe
TG		 2476 /* Depending on where this symbol is defined, we may or may not
2477 need a full plt entry. Only skip if we know we'll not need
2478 the entry -- static or symbolic, and the symbol definition
2479 has already been seen. */
2480 if (maybe_dynamic && rel->r_addend == 0)
2481 need_entry = NEED_FULL_PLT;
2482 break;
2483
2484 case R_IA64_IMM14:
2485 case R_IA64_IMM22:
2486 case R_IA64_IMM64:
2487 case R_IA64_DIR32MSB:
2488 case R_IA64_DIR32LSB:
2489 case R_IA64_DIR64MSB:
2490 case R_IA64_DIR64LSB:
2491 /* Shared objects will always need at least a REL relocation. */
0e1862bb 2492 if (bfd_link_pic (info) || maybe_dynamic)
cbe79dfe
TG		 2493 need_entry = NEED_DYNREL;
2494 dynrel_type = R_IA64_DIRNNLSB;
2495 break;
2496
2497 case R_IA64_IPLTMSB:
2498 case R_IA64_IPLTLSB:
2499 /* Shared objects will always need at least a REL relocation. */
0e1862bb 2500 if (bfd_link_pic (info) || maybe_dynamic)
cbe79dfe
TG		 2501 need_entry = NEED_DYNREL;
2502 dynrel_type = R_IA64_IPLTLSB;
2503 break;
2504
2505 case R_IA64_PCREL22:
2506 case R_IA64_PCREL64I:
2507 case R_IA64_PCREL32MSB:
2508 case R_IA64_PCREL32LSB:
2509 case R_IA64_PCREL64MSB:
2510 case R_IA64_PCREL64LSB:
2511 if (maybe_dynamic)
2512 need_entry = NEED_DYNREL;
2513 dynrel_type = R_IA64_PCRELNNLSB;
2514 break;
2515 }
2516
2517 if (!need_entry)
2518 continue;
2519
2520 dyn_i = get_dyn_sym_info (ia64_info, h, abfd, rel, FALSE);
2521
2522 /* Record whether or not this is a local symbol. */
2523 dyn_i->h = h;
2524
2525 /* Create what's needed. */
2526 if (need_entry & (NEED_GOT | NEED_GOTX | NEED_TPREL
2527 | NEED_DTPMOD | NEED_DTPREL))
2528 {
2529 if (!got)
2530 {
2531 got = get_got (abfd, info, ia64_info);
2532 if (!got)
2533 return FALSE;
2534 }
2535 if (need_entry & NEED_GOT)
2536 dyn_i->want_got = 1;
2537 if (need_entry & NEED_GOTX)
2538 dyn_i->want_gotx = 1;
2539 if (need_entry & NEED_TPREL)
2540 dyn_i->want_tprel = 1;
2541 if (need_entry & NEED_DTPMOD)
2542 dyn_i->want_dtpmod = 1;
2543 if (need_entry & NEED_DTPREL)
2544 dyn_i->want_dtprel = 1;
2545 }
2546 if (need_entry & NEED_FPTR)
2547 {
2548 if (!fptr)
2549 {
2550 fptr = get_fptr (abfd, info, ia64_info);
2551 if (!fptr)
2552 return FALSE;
2553 }
2554
2555 /* FPTRs for shared libraries are allocated by the dynamic
2556 linker. Make sure this local symbol will appear in the
2557 dynamic symbol table. */
0e1862bb 2558 if (!h && bfd_link_pic (info))
cbe79dfe
TG		 2559 {
2560 if (! (bfd_elf_link_record_local_dynamic_symbol
2561 (info, abfd, (long) r_symndx)))
2562 return FALSE;
2563 }
2564
2565 dyn_i->want_fptr = 1;
2566 }
2567 if (need_entry & NEED_LTOFF_FPTR)
2568 dyn_i->want_ltoff_fptr = 1;
2569 if (need_entry & (NEED_MIN_PLT | NEED_FULL_PLT))
2570 {
07d6d2b8 2571 if (!ia64_info->root.dynobj)
cbe79dfe
TG		 2572 ia64_info->root.dynobj = abfd;
2573 h->needs_plt = 1;
2574 dyn_i->want_plt = 1;
2575 }
2576 if (need_entry & NEED_FULL_PLT)
2577 dyn_i->want_plt2 = 1;
2578 if (need_entry & NEED_PLTOFF)
2579 {
2580 /* This is needed here, in case @pltoff is used in a non-shared
2581 link. */
2582 if (!pltoff)
2583 {
2584 pltoff = get_pltoff (abfd, info, ia64_info);
2585 if (!pltoff)
2586 return FALSE;
2587 }
2588
2589 dyn_i->want_pltoff = 1;
2590 }
2591 if ((need_entry & NEED_DYNREL) && (sec->flags & SEC_ALLOC))
2592 {
2593 if (!srel)
2594 {
2595 srel = get_reloc_section (abfd, ia64_info, sec, TRUE);
2596 if (!srel)
2597 return FALSE;
2598 }
2599 if (!count_dyn_reloc (abfd, dyn_i, srel, dynrel_type,
2600 (sec->flags & SEC_READONLY) != 0))
2601 return FALSE;
2602 }
2603 }
2604
2605 return TRUE;
2606}
2607
2608/* For cleanliness, and potentially faster dynamic loading, allocate
2609 external GOT entries first. */
2610
2611static bfd_boolean
2612allocate_global_data_got (struct elfNN_ia64_dyn_sym_info *dyn_i,
2613 void * data)
2614{
2615 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2616
2617 if ((dyn_i->want_got || dyn_i->want_gotx)
2618 && ! dyn_i->want_fptr
2619 && elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, 0))
2620 {
2621 dyn_i->got_offset = x->ofs;
2622 x->ofs += 8;
2623 }
2624 if (dyn_i->want_tprel)
2625 {
2626 dyn_i->tprel_offset = x->ofs;
2627 x->ofs += 8;
2628 }
2629 if (dyn_i->want_dtpmod)
2630 {
2631 if (elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, 0))
2632 {
2633 dyn_i->dtpmod_offset = x->ofs;
2634 x->ofs += 8;
2635 }
2636 else
2637 {
2638 struct elfNN_ia64_link_hash_table *ia64_info;
2639
2640 ia64_info = elfNN_ia64_hash_table (x->info);
2641 if (ia64_info == NULL)
2642 return FALSE;
2643
2644 if (ia64_info->self_dtpmod_offset == (bfd_vma) -1)
2645 {
2646 ia64_info->self_dtpmod_offset = x->ofs;
2647 x->ofs += 8;
2648 }
2649 dyn_i->dtpmod_offset = ia64_info->self_dtpmod_offset;
2650 }
2651 }
2652 if (dyn_i->want_dtprel)
2653 {
2654 dyn_i->dtprel_offset = x->ofs;
2655 x->ofs += 8;
2656 }
2657 return TRUE;
2658}
2659
2660/* Next, allocate all the GOT entries used by LTOFF_FPTR relocs. */
2661
2662static bfd_boolean
2663allocate_global_fptr_got (struct elfNN_ia64_dyn_sym_info *dyn_i,
2664 void * data)
2665{
2666 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2667
2668 if (dyn_i->want_got
2669 && dyn_i->want_fptr
2670 && elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, R_IA64_FPTRNNLSB))
2671 {
2672 dyn_i->got_offset = x->ofs;
2673 x->ofs += 8;
2674 }
2675 return TRUE;
2676}
2677
2678/* Lastly, allocate all the GOT entries for local data. */
2679
2680static bfd_boolean
2681allocate_local_got (struct elfNN_ia64_dyn_sym_info *dyn_i,
2c3fc389 2682 void * data)
cbe79dfe
TG		 2683{
2684 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2685
2686 if ((dyn_i->want_got || dyn_i->want_gotx)
2687 && !elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, 0))
2688 {
2689 dyn_i->got_offset = x->ofs;
2690 x->ofs += 8;
2691 }
2692 return TRUE;
2693}
2694
2695/* Search for the index of a global symbol in it's defining object file. */
2696
2697static long
2698global_sym_index (struct elf_link_hash_entry *h)
2699{
2700 struct elf_link_hash_entry **p;
2701 bfd *obj;
2702
2703 BFD_ASSERT (h->root.type == bfd_link_hash_defined
2704 || h->root.type == bfd_link_hash_defweak);
2705
2706 obj = h->root.u.def.section->owner;
2707 for (p = elf_sym_hashes (obj); *p != h; ++p)
2708 continue;
2709
2710 return p - elf_sym_hashes (obj) + elf_tdata (obj)->symtab_hdr.sh_info;
2711}
2712
2713/* Allocate function descriptors. We can do these for every function
2714 in a main executable that is not exported. */
2715
2716static bfd_boolean
2c3fc389 2717allocate_fptr (struct elfNN_ia64_dyn_sym_info *dyn_i, void * data)
cbe79dfe
TG		 2718{
2719 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2720
2721 if (dyn_i->want_fptr)
2722 {
2723 struct elf_link_hash_entry *h = dyn_i->h;
2724
2725 if (h)
2726 while (h->root.type == bfd_link_hash_indirect
2727 || h->root.type == bfd_link_hash_warning)
2728 h = (struct elf_link_hash_entry *) h->root.u.i.link;
2729
0e1862bb 2730 if (!bfd_link_executable (x->info)
cbe79dfe 2731 && (!h
db41f6eb
L		 2732 || (ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
2733 && !UNDEFWEAK_NO_DYNAMIC_RELOC (x->info, h))
cbe79dfe
TG		 2734 || (h->root.type != bfd_link_hash_undefweak
2735 && h->root.type != bfd_link_hash_undefined)))
2736 {
2737 if (h && h->dynindx == -1)
2738 {
2739 BFD_ASSERT ((h->root.type == bfd_link_hash_defined)
2740 || (h->root.type == bfd_link_hash_defweak));
2741
2742 if (!bfd_elf_link_record_local_dynamic_symbol
2743 (x->info, h->root.u.def.section->owner,
2744 global_sym_index (h)))
2745 return FALSE;
2746 }
2747
2748 dyn_i->want_fptr = 0;
2749 }
2750 else if (h == NULL || h->dynindx == -1)
2751 {
2752 dyn_i->fptr_offset = x->ofs;
2753 x->ofs += 16;
2754 }
2755 else
2756 dyn_i->want_fptr = 0;
2757 }
2758 return TRUE;
2759}
2760
2761/* Allocate all the minimal PLT entries. */
2762
2763static bfd_boolean
2764allocate_plt_entries (struct elfNN_ia64_dyn_sym_info *dyn_i,
2c3fc389 2765 void * data)
cbe79dfe
TG		 2766{
2767 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2768
2769 if (dyn_i->want_plt)
2770 {
2771 struct elf_link_hash_entry *h = dyn_i->h;
2772
2773 if (h)
2774 while (h->root.type == bfd_link_hash_indirect
2775 || h->root.type == bfd_link_hash_warning)
2776 h = (struct elf_link_hash_entry *) h->root.u.i.link;
2777
2778 /* ??? Versioned symbols seem to lose NEEDS_PLT. */
2779 if (elfNN_ia64_dynamic_symbol_p (h, x->info, 0))
2780 {
2781 bfd_size_type offset = x->ofs;
2782 if (offset == 0)
2783 offset = PLT_HEADER_SIZE;
2784 dyn_i->plt_offset = offset;
2785 x->ofs = offset + PLT_MIN_ENTRY_SIZE;
2786
2787 dyn_i->want_pltoff = 1;
2788 }
2789 else
2790 {
2791 dyn_i->want_plt = 0;
2792 dyn_i->want_plt2 = 0;
2793 }
2794 }
2795 return TRUE;
2796}
2797
2798/* Allocate all the full PLT entries. */
2799
2800static bfd_boolean
2801allocate_plt2_entries (struct elfNN_ia64_dyn_sym_info *dyn_i,
2c3fc389 2802 void * data)
cbe79dfe
TG		 2803{
2804 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2805
2806 if (dyn_i->want_plt2)
2807 {
2808 struct elf_link_hash_entry *h = dyn_i->h;
2809 bfd_size_type ofs = x->ofs;
2810
2811 dyn_i->plt2_offset = ofs;
2812 x->ofs = ofs + PLT_FULL_ENTRY_SIZE;
2813
2814 while (h->root.type == bfd_link_hash_indirect
2815 || h->root.type == bfd_link_hash_warning)
2816 h = (struct elf_link_hash_entry *) h->root.u.i.link;
2817 dyn_i->h->plt.offset = ofs;
2818 }
2819 return TRUE;
2820}
2821
2822/* Allocate all the PLTOFF entries requested by relocations and
2823 plt entries. We can't share space with allocated FPTR entries,
2824 because the latter are not necessarily addressable by the GP.
2825 ??? Relaxation might be able to determine that they are. */
2826
2827static bfd_boolean
2828allocate_pltoff_entries (struct elfNN_ia64_dyn_sym_info *dyn_i,
2c3fc389 2829 void * data)
cbe79dfe
TG		 2830{
2831 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2832
2833 if (dyn_i->want_pltoff)
2834 {
2835 dyn_i->pltoff_offset = x->ofs;
2836 x->ofs += 16;
2837 }
2838 return TRUE;
2839}
2840
2841/* Allocate dynamic relocations for those symbols that turned out
2842 to be dynamic. */
2843
2844static bfd_boolean
2845allocate_dynrel_entries (struct elfNN_ia64_dyn_sym_info *dyn_i,
2c3fc389 2846 void * data)
cbe79dfe
TG		 2847{
2848 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2849 struct elfNN_ia64_link_hash_table *ia64_info;
2850 struct elfNN_ia64_dyn_reloc_entry *rent;
2851 bfd_boolean dynamic_symbol, shared, resolved_zero;
2852
2853 ia64_info = elfNN_ia64_hash_table (x->info);
2854 if (ia64_info == NULL)
2855 return FALSE;
2856
2857 /* Note that this can't be used in relation to FPTR relocs below. */
2858 dynamic_symbol = elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, 0);
2859
0e1862bb 2860 shared = bfd_link_pic (x->info);
cbe79dfe 2861 resolved_zero = (dyn_i->h
db41f6eb
L		 2862 && UNDEFWEAK_NO_DYNAMIC_RELOC (x->info,
2863 dyn_i->h));
cbe79dfe
TG		 2864
2865 /* Take care of the GOT and PLT relocations. */
2866
2867 if ((!resolved_zero
2868 && (dynamic_symbol || shared)
2869 && (dyn_i->want_got || dyn_i->want_gotx))
2870 || (dyn_i->want_ltoff_fptr
2871 && dyn_i->h
2872 && dyn_i->h->dynindx != -1))
2873 {
2874 if (!dyn_i->want_ltoff_fptr
0e1862bb 2875 || !bfd_link_pie (x->info)
cbe79dfe
TG		 2876 || dyn_i->h == NULL
2877 || dyn_i->h->root.type != bfd_link_hash_undefweak)
2878 ia64_info->root.srelgot->size += sizeof (ElfNN_External_Rela);
2879 }
2880 if ((dynamic_symbol || shared) && dyn_i->want_tprel)
2881 ia64_info->root.srelgot->size += sizeof (ElfNN_External_Rela);
2882 if (dynamic_symbol && dyn_i->want_dtpmod)
2883 ia64_info->root.srelgot->size += sizeof (ElfNN_External_Rela);
2884 if (dynamic_symbol && dyn_i->want_dtprel)
2885 ia64_info->root.srelgot->size += sizeof (ElfNN_External_Rela);
2886
2887 if (x->only_got)
2888 return TRUE;
2889
2890 if (ia64_info->rel_fptr_sec && dyn_i->want_fptr)
2891 {
2892 if (dyn_i->h == NULL || dyn_i->h->root.type != bfd_link_hash_undefweak)
2893 ia64_info->rel_fptr_sec->size += sizeof (ElfNN_External_Rela);
2894 }
2895
2896 if (!resolved_zero && dyn_i->want_pltoff)
2897 {
2898 bfd_size_type t = 0;
2899
2900 /* Dynamic symbols get one IPLT relocation. Local symbols in
2901 shared libraries get two REL relocations. Local symbols in
2902 main applications get nothing. */
2903 if (dynamic_symbol)
2904 t = sizeof (ElfNN_External_Rela);
2905 else if (shared)
2906 t = 2 * sizeof (ElfNN_External_Rela);
2907
2908 ia64_info->rel_pltoff_sec->size += t;
2909 }
2910
2911 /* Take care of the normal data relocations. */
2912
2913 for (rent = dyn_i->reloc_entries; rent; rent = rent->next)
2914 {
2915 int count = rent->count;
2916
2917 switch (rent->type)
2918 {
2919 case R_IA64_FPTR32LSB:
2920 case R_IA64_FPTR64LSB:
2921 /* Allocate one iff !want_fptr and not PIE, which by this point
2922 will be true only if we're actually allocating one statically
2923 in the main executable. Position independent executables
2924 need a relative reloc. */
0e1862bb 2925 if (dyn_i->want_fptr && !bfd_link_pie (x->info))
cbe79dfe
TG		 2926 continue;
2927 break;
2928 case R_IA64_PCREL32LSB:
2929 case R_IA64_PCREL64LSB:
2930 if (!dynamic_symbol)
2931 continue;
2932 break;
2933 case R_IA64_DIR32LSB:
2934 case R_IA64_DIR64LSB:
2935 if (!dynamic_symbol && !shared)
2936 continue;
2937 break;
2938 case R_IA64_IPLTLSB:
2939 if (!dynamic_symbol && !shared)
2940 continue;
2941 /* Use two REL relocations for IPLT relocations
2942 against local symbols. */
2943 if (!dynamic_symbol)
2944 count *= 2;
2945 break;
2946 case R_IA64_DTPREL32LSB:
2947 case R_IA64_TPREL64LSB:
2948 case R_IA64_DTPREL64LSB:
2949 case R_IA64_DTPMOD64LSB:
2950 break;
2951 default:
2952 abort ();
2953 }
2954 if (rent->reltext)
447f6d86 2955 x->info->flags |= DF_TEXTREL;
cbe79dfe
TG		 2956 rent->srel->size += sizeof (ElfNN_External_Rela) * count;
2957 }
2958
2959 return TRUE;
2960}
2961
2962static bfd_boolean
2963elfNN_ia64_adjust_dynamic_symbol (struct bfd_link_info *info ATTRIBUTE_UNUSED,
2964 struct elf_link_hash_entry *h)
2965{
2966 /* ??? Undefined symbols with PLT entries should be re-defined
2967 to be the PLT entry. */
2968
2969 /* If this is a weak symbol, and there is a real definition, the
2970 processor independent code will have arranged for us to see the
2971 real definition first, and we can just use the same value. */
60d67dc8 2972 if (h->is_weakalias)
cbe79dfe 2973 {
60d67dc8
AM		 2974 struct elf_link_hash_entry *def = weakdef (h);
2975 BFD_ASSERT (def->root.type == bfd_link_hash_defined);
2976 h->root.u.def.section = def->root.u.def.section;
2977 h->root.u.def.value = def->root.u.def.value;
cbe79dfe
TG		 2978 return TRUE;
2979 }
2980
2981 /* If this is a reference to a symbol defined by a dynamic object which
2982 is not a function, we might allocate the symbol in our .dynbss section
2983 and allocate a COPY dynamic relocation.
2984
2985 But IA-64 code is canonically PIC, so as a rule we can avoid this sort
2986 of hackery. */
2987
2988 return TRUE;
2989}
2990
2991static bfd_boolean
2992elfNN_ia64_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
2993 struct bfd_link_info *info)
2994{
2995 struct elfNN_ia64_allocate_data data;
2996 struct elfNN_ia64_link_hash_table *ia64_info;
2997 asection *sec;
2998 bfd *dynobj;
cbe79dfe 2999
cbe79dfe
TG		 3000 ia64_info = elfNN_ia64_hash_table (info);
3001 if (ia64_info == NULL)
3002 return FALSE;
ce558b89 3003 dynobj = ia64_info->root.dynobj;
cbe79dfe
TG		 3004 ia64_info->self_dtpmod_offset = (bfd_vma) -1;
3005 BFD_ASSERT(dynobj != NULL);
3006 data.info = info;
3007
3008 /* Set the contents of the .interp section to the interpreter. */
3009 if (ia64_info->root.dynamic_sections_created
9b8b325a 3010 && bfd_link_executable (info) && !info->nointerp)
cbe79dfe 3011 {
3d4d4302 3012 sec = bfd_get_linker_section (dynobj, ".interp");
cbe79dfe
TG		 3013 BFD_ASSERT (sec != NULL);
3014 sec->contents = (bfd_byte *) ELF_DYNAMIC_INTERPRETER;
3015 sec->size = strlen (ELF_DYNAMIC_INTERPRETER) + 1;
3016 }
3017
3018 /* Allocate the GOT entries. */
3019
3020 if (ia64_info->root.sgot)
3021 {
3022 data.ofs = 0;
3023 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_global_data_got, &data);
3024 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_global_fptr_got, &data);
3025 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_local_got, &data);
3026 ia64_info->root.sgot->size = data.ofs;
3027 }
3028
3029 /* Allocate the FPTR entries. */
3030
3031 if (ia64_info->fptr_sec)
3032 {
3033 data.ofs = 0;
3034 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_fptr, &data);
3035 ia64_info->fptr_sec->size = data.ofs;
3036 }
3037
3038 /* Now that we've seen all of the input files, we can decide which
3039 symbols need plt entries. Allocate the minimal PLT entries first.
3040 We do this even though dynamic_sections_created may be FALSE, because
3041 this has the side-effect of clearing want_plt and want_plt2. */
3042
3043 data.ofs = 0;
3044 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_plt_entries, &data);
3045
3046 ia64_info->minplt_entries = 0;
3047 if (data.ofs)
3048 {
3049 ia64_info->minplt_entries
3050 = (data.ofs - PLT_HEADER_SIZE) / PLT_MIN_ENTRY_SIZE;
3051 }
3052
3053 /* Align the pointer for the plt2 entries. */
3054 data.ofs = (data.ofs + 31) & (bfd_vma) -32;
3055
3056 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_plt2_entries, &data);
3057 if (data.ofs != 0 || ia64_info->root.dynamic_sections_created)
3058 {
3059 /* FIXME: we always reserve the memory for dynamic linker even if
3060 there are no PLT entries since dynamic linker may assume the
3061 reserved memory always exists. */
3062
3063 BFD_ASSERT (ia64_info->root.dynamic_sections_created);
3064
3065 ia64_info->root.splt->size = data.ofs;
3066
3067 /* If we've got a .plt, we need some extra memory for the dynamic
3068 linker. We stuff these in .got.plt. */
ce558b89 3069 ia64_info->root.sgotplt->size = 8 * PLT_RESERVED_WORDS;
cbe79dfe
TG		 3070 }
3071
3072 /* Allocate the PLTOFF entries. */
3073
3074 if (ia64_info->pltoff_sec)
3075 {
3076 data.ofs = 0;
3077 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_pltoff_entries, &data);
3078 ia64_info->pltoff_sec->size = data.ofs;
3079 }
3080
3081 if (ia64_info->root.dynamic_sections_created)
3082 {
3083 /* Allocate space for the dynamic relocations that turned out to be
3084 required. */
3085
0e1862bb 3086 if (bfd_link_pic (info) && ia64_info->self_dtpmod_offset != (bfd_vma) -1)
cbe79dfe
TG		 3087 ia64_info->root.srelgot->size += sizeof (ElfNN_External_Rela);
3088 data.only_got = FALSE;
3089 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_dynrel_entries, &data);
3090 }
3091
3092 /* We have now determined the sizes of the various dynamic sections.
3093 Allocate memory for them. */
3094 for (sec = dynobj->sections; sec != NULL; sec = sec->next)
3095 {
3096 bfd_boolean strip;
3097
3098 if (!(sec->flags & SEC_LINKER_CREATED))
3099 continue;
3100
3101 /* If we don't need this section, strip it from the output file.
3102 There were several sections primarily related to dynamic
3103 linking that must be create before the linker maps input
3104 sections to output sections. The linker does that before
3105 bfd_elf_size_dynamic_sections is called, and it is that
3106 function which decides whether anything needs to go into
3107 these sections. */
3108
3109 strip = (sec->size == 0);
3110
3111 if (sec == ia64_info->root.sgot)
3112 strip = FALSE;
3113 else if (sec == ia64_info->root.srelgot)
3114 {
3115 if (strip)
3116 ia64_info->root.srelgot = NULL;
3117 else
3118 /* We use the reloc_count field as a counter if we need to
3119 copy relocs into the output file. */
3120 sec->reloc_count = 0;
3121 }
3122 else if (sec == ia64_info->fptr_sec)
3123 {
3124 if (strip)
3125 ia64_info->fptr_sec = NULL;
3126 }
3127 else if (sec == ia64_info->rel_fptr_sec)
3128 {
3129 if (strip)
3130 ia64_info->rel_fptr_sec = NULL;
3131 else
3132 /* We use the reloc_count field as a counter if we need to
3133 copy relocs into the output file. */
3134 sec->reloc_count = 0;
3135 }
3136 else if (sec == ia64_info->root.splt)
3137 {
3138 if (strip)
3139 ia64_info->root.splt = NULL;
3140 }
3141 else if (sec == ia64_info->pltoff_sec)
3142 {
3143 if (strip)
3144 ia64_info->pltoff_sec = NULL;
3145 }
3146 else if (sec == ia64_info->rel_pltoff_sec)
3147 {
3148 if (strip)
3149 ia64_info->rel_pltoff_sec = NULL;
3150 else
3151 {
3084d7a2 3152 ia64_info->root.dt_jmprel_required = TRUE;
cbe79dfe
TG		 3153 /* We use the reloc_count field as a counter if we need to
3154 copy relocs into the output file. */
3155 sec->reloc_count = 0;
3156 }
3157 }
3158 else
3159 {
3160 const char *name;
3161
3162 /* It's OK to base decisions on the section name, because none
3163 of the dynobj section names depend upon the input files. */
fd361982 3164 name = bfd_section_name (sec);
cbe79dfe
TG		 3165
3166 if (strcmp (name, ".got.plt") == 0)
3167 strip = FALSE;
3168 else if (CONST_STRNEQ (name, ".rel"))
3169 {
3170 if (!strip)
3171 {
3172 /* We use the reloc_count field as a counter if we need to
3173 copy relocs into the output file. */
3174 sec->reloc_count = 0;
3175 }
3176 }
3177 else
3178 continue;
3179 }
3180
3181 if (strip)
3182 sec->flags |= SEC_EXCLUDE;
3183 else
3184 {
3185 /* Allocate memory for the section contents. */
3186 sec->contents = (bfd_byte *) bfd_zalloc (dynobj, sec->size);
3187 if (sec->contents == NULL && sec->size != 0)
3188 return FALSE;
3189 }
3190 }
3191
ce558b89 3192 if (ia64_info->root.dynamic_sections_created)
cbe79dfe
TG		 3193 {
3194 /* Add some entries to the .dynamic section. We fill in the values
3195 later (in finish_dynamic_sections) but we must add the entries now
3196 so that we get the correct size for the .dynamic section. */
3197
cbe79dfe
TG		 3198#define add_dynamic_entry(TAG, VAL) \
3199 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
3200
3084d7a2 3201 if (!_bfd_elf_add_dynamic_tags (output_bfd, info, TRUE))
cbe79dfe
TG		 3202 return FALSE;
3203
3084d7a2 3204 if (!add_dynamic_entry (DT_IA_64_PLT_RESERVE, 0))
cbe79dfe 3205 return FALSE;
cbe79dfe
TG		 3206 }
3207
3208 /* ??? Perhaps force __gp local. */
3209
3210 return TRUE;
3211}
3212
3213static void
3214elfNN_ia64_install_dyn_reloc (bfd *abfd, struct bfd_link_info *info,
3215 asection *sec, asection *srel,
3216 bfd_vma offset, unsigned int type,
3217 long dynindx, bfd_vma addend)
3218{
3219 Elf_Internal_Rela outrel;
3220 bfd_byte *loc;
3221
3222 BFD_ASSERT (dynindx != -1);
3223 outrel.r_info = ELFNN_R_INFO (dynindx, type);
3224 outrel.r_addend = addend;
3225 outrel.r_offset = _bfd_elf_section_offset (abfd, info, sec, offset);
3226 if (outrel.r_offset >= (bfd_vma) -2)
3227 {
3228 /* Run for the hills. We shouldn't be outputting a relocation
3229 for this. So do what everyone else does and output a no-op. */
3230 outrel.r_info = ELFNN_R_INFO (0, R_IA64_NONE);
3231 outrel.r_addend = 0;
3232 outrel.r_offset = 0;
3233 }
3234 else
3235 outrel.r_offset += sec->output_section->vma + sec->output_offset;
3236
3237 loc = srel->contents;
3238 loc += srel->reloc_count++ * sizeof (ElfNN_External_Rela);
3239 bfd_elfNN_swap_reloca_out (abfd, &outrel, loc);
3240 BFD_ASSERT (sizeof (ElfNN_External_Rela) * srel->reloc_count <= srel->size);
3241}
3242
3243/* Store an entry for target address TARGET_ADDR in the linkage table
3244 and return the gp-relative address of the linkage table entry. */
3245
3246static bfd_vma
3247set_got_entry (bfd *abfd, struct bfd_link_info *info,
3248 struct elfNN_ia64_dyn_sym_info *dyn_i,
3249 long dynindx, bfd_vma addend, bfd_vma value,
3250 unsigned int dyn_r_type)
3251{
3252 struct elfNN_ia64_link_hash_table *ia64_info;
3253 asection *got_sec;
3254 bfd_boolean done;
3255 bfd_vma got_offset;
3256
3257 ia64_info = elfNN_ia64_hash_table (info);
3258 if (ia64_info == NULL)
3259 return 0;
3260
3261 got_sec = ia64_info->root.sgot;
3262
3263 switch (dyn_r_type)
3264 {
3265 case R_IA64_TPREL64LSB:
3266 done = dyn_i->tprel_done;
3267 dyn_i->tprel_done = TRUE;
3268 got_offset = dyn_i->tprel_offset;
3269 break;
3270 case R_IA64_DTPMOD64LSB:
3271 if (dyn_i->dtpmod_offset != ia64_info->self_dtpmod_offset)
3272 {
3273 done = dyn_i->dtpmod_done;
3274 dyn_i->dtpmod_done = TRUE;
3275 }
3276 else
3277 {
3278 done = ia64_info->self_dtpmod_done;
3279 ia64_info->self_dtpmod_done = TRUE;
3280 dynindx = 0;
3281 }
3282 got_offset = dyn_i->dtpmod_offset;
3283 break;
3284 case R_IA64_DTPREL32LSB:
3285 case R_IA64_DTPREL64LSB:
3286 done = dyn_i->dtprel_done;
3287 dyn_i->dtprel_done = TRUE;
3288 got_offset = dyn_i->dtprel_offset;
3289 break;
3290 default:
3291 done = dyn_i->got_done;
3292 dyn_i->got_done = TRUE;
3293 got_offset = dyn_i->got_offset;
3294 break;
3295 }
3296
3297 BFD_ASSERT ((got_offset & 7) == 0);
3298
3299 if (! done)
3300 {
3301 /* Store the target address in the linkage table entry. */
3302 bfd_put_64 (abfd, value, got_sec->contents + got_offset);
3303
3304 /* Install a dynamic relocation if needed. */
0e1862bb 3305 if (((bfd_link_pic (info)
cbe79dfe 3306 && (!dyn_i->h
db41f6eb
L		 3307 || (ELF_ST_VISIBILITY (dyn_i->h->other) == STV_DEFAULT
3308 && !UNDEFWEAK_NO_DYNAMIC_RELOC (info, dyn_i->h))
cbe79dfe
TG		 3309 || dyn_i->h->root.type != bfd_link_hash_undefweak)
3310 && dyn_r_type != R_IA64_DTPREL32LSB
3311 && dyn_r_type != R_IA64_DTPREL64LSB)
07d6d2b8 3312 || elfNN_ia64_dynamic_symbol_p (dyn_i->h, info, dyn_r_type)
cbe79dfe
TG		 3313 || (dynindx != -1
3314 && (dyn_r_type == R_IA64_FPTR32LSB
3315 || dyn_r_type == R_IA64_FPTR64LSB)))
3316 && (!dyn_i->want_ltoff_fptr
0e1862bb 3317 || !bfd_link_pie (info)
cbe79dfe
TG		 3318 || !dyn_i->h
3319 || dyn_i->h->root.type != bfd_link_hash_undefweak))
3320 {
3321 if (dynindx == -1
3322 && dyn_r_type != R_IA64_TPREL64LSB
3323 && dyn_r_type != R_IA64_DTPMOD64LSB
3324 && dyn_r_type != R_IA64_DTPREL32LSB
3325 && dyn_r_type != R_IA64_DTPREL64LSB)
3326 {
3327 dyn_r_type = R_IA64_RELNNLSB;
3328 dynindx = 0;
3329 addend = value;
3330 }
3331
3332 if (bfd_big_endian (abfd))
3333 {
3334 switch (dyn_r_type)
3335 {
3336 case R_IA64_REL32LSB:
3337 dyn_r_type = R_IA64_REL32MSB;
3338 break;
3339 case R_IA64_DIR32LSB:
3340 dyn_r_type = R_IA64_DIR32MSB;
3341 break;
3342 case R_IA64_FPTR32LSB:
3343 dyn_r_type = R_IA64_FPTR32MSB;
3344 break;
3345 case R_IA64_DTPREL32LSB:
3346 dyn_r_type = R_IA64_DTPREL32MSB;
3347 break;
3348 case R_IA64_REL64LSB:
3349 dyn_r_type = R_IA64_REL64MSB;
3350 break;
3351 case R_IA64_DIR64LSB:
3352 dyn_r_type = R_IA64_DIR64MSB;
3353 break;
3354 case R_IA64_FPTR64LSB:
3355 dyn_r_type = R_IA64_FPTR64MSB;
3356 break;
3357 case R_IA64_TPREL64LSB:
3358 dyn_r_type = R_IA64_TPREL64MSB;
3359 break;
3360 case R_IA64_DTPMOD64LSB:
3361 dyn_r_type = R_IA64_DTPMOD64MSB;
3362 break;
3363 case R_IA64_DTPREL64LSB:
3364 dyn_r_type = R_IA64_DTPREL64MSB;
3365 break;
3366 default:
3367 BFD_ASSERT (FALSE);
3368 break;
3369 }
3370 }
3371
3372 elfNN_ia64_install_dyn_reloc (abfd, NULL, got_sec,
3373 ia64_info->root.srelgot,
3374 got_offset, dyn_r_type,
3375 dynindx, addend);
3376 }
3377 }
3378
3379 /* Return the address of the linkage table entry. */
3380 value = (got_sec->output_section->vma
3381 + got_sec->output_offset
3382 + got_offset);
3383
3384 return value;
3385}
3386
3387/* Fill in a function descriptor consisting of the function's code
3388 address and its global pointer. Return the descriptor's address. */
3389
3390static bfd_vma
3391set_fptr_entry (bfd *abfd, struct bfd_link_info *info,
3392 struct elfNN_ia64_dyn_sym_info *dyn_i,
3393 bfd_vma value)
3394{
3395 struct elfNN_ia64_link_hash_table *ia64_info;
3396 asection *fptr_sec;
3397
3398 ia64_info = elfNN_ia64_hash_table (info);
3399 if (ia64_info == NULL)
3400 return 0;
3401
3402 fptr_sec = ia64_info->fptr_sec;
3403
3404 if (!dyn_i->fptr_done)
3405 {
3406 dyn_i->fptr_done = 1;
3407
3408 /* Fill in the function descriptor. */
3409 bfd_put_64 (abfd, value, fptr_sec->contents + dyn_i->fptr_offset);
3410 bfd_put_64 (abfd, _bfd_get_gp_value (abfd),
3411 fptr_sec->contents + dyn_i->fptr_offset + 8);
3412 if (ia64_info->rel_fptr_sec)
3413 {
3414 Elf_Internal_Rela outrel;
3415 bfd_byte *loc;
3416
3417 if (bfd_little_endian (abfd))
3418 outrel.r_info = ELFNN_R_INFO (0, R_IA64_IPLTLSB);
3419 else
3420 outrel.r_info = ELFNN_R_INFO (0, R_IA64_IPLTMSB);
3421 outrel.r_addend = value;
3422 outrel.r_offset = (fptr_sec->output_section->vma
3423 + fptr_sec->output_offset
3424 + dyn_i->fptr_offset);
3425 loc = ia64_info->rel_fptr_sec->contents;
3426 loc += ia64_info->rel_fptr_sec->reloc_count++
3427 * sizeof (ElfNN_External_Rela);
3428 bfd_elfNN_swap_reloca_out (abfd, &outrel, loc);
3429 }
3430 }
3431
3432 /* Return the descriptor's address. */
3433 value = (fptr_sec->output_section->vma
3434 + fptr_sec->output_offset
3435 + dyn_i->fptr_offset);
3436
3437 return value;
3438}
3439
3440/* Fill in a PLTOFF entry consisting of the function's code address
3441 and its global pointer. Return the descriptor's address. */
3442
3443static bfd_vma
3444set_pltoff_entry (bfd *abfd, struct bfd_link_info *info,
3445 struct elfNN_ia64_dyn_sym_info *dyn_i,
3446 bfd_vma value, bfd_boolean is_plt)
3447{
3448 struct elfNN_ia64_link_hash_table *ia64_info;
3449 asection *pltoff_sec;
3450
3451 ia64_info = elfNN_ia64_hash_table (info);
3452 if (ia64_info == NULL)
3453 return 0;
3454
3455 pltoff_sec = ia64_info->pltoff_sec;
3456
3457 /* Don't do anything if this symbol uses a real PLT entry. In
3458 that case, we'll fill this in during finish_dynamic_symbol. */
3459 if ((! dyn_i->want_plt || is_plt)
3460 && !dyn_i->pltoff_done)
3461 {
3462 bfd_vma gp = _bfd_get_gp_value (abfd);
3463
3464 /* Fill in the function descriptor. */
3465 bfd_put_64 (abfd, value, pltoff_sec->contents + dyn_i->pltoff_offset);
3466 bfd_put_64 (abfd, gp, pltoff_sec->contents + dyn_i->pltoff_offset + 8);
3467
3468 /* Install dynamic relocations if needed. */
3469 if (!is_plt
0e1862bb 3470 && bfd_link_pic (info)
cbe79dfe 3471 && (!dyn_i->h
db41f6eb
L		 3472 || (ELF_ST_VISIBILITY (dyn_i->h->other) == STV_DEFAULT
3473 && !UNDEFWEAK_NO_DYNAMIC_RELOC (info, dyn_i->h))
cbe79dfe
TG		 3474 || dyn_i->h->root.type != bfd_link_hash_undefweak))
3475 {
3476 unsigned int dyn_r_type;
3477
3478 if (bfd_big_endian (abfd))
3479 dyn_r_type = R_IA64_RELNNMSB;
3480 else
3481 dyn_r_type = R_IA64_RELNNLSB;
3482
3483 elfNN_ia64_install_dyn_reloc (abfd, NULL, pltoff_sec,
3484 ia64_info->rel_pltoff_sec,
3485 dyn_i->pltoff_offset,
3486 dyn_r_type, 0, value);
3487 elfNN_ia64_install_dyn_reloc (abfd, NULL, pltoff_sec,
3488 ia64_info->rel_pltoff_sec,
3489 dyn_i->pltoff_offset + ARCH_SIZE / 8,
3490 dyn_r_type, 0, gp);
3491 }
3492
3493 dyn_i->pltoff_done = 1;
3494 }
3495
3496 /* Return the descriptor's address. */
3497 value = (pltoff_sec->output_section->vma
3498 + pltoff_sec->output_offset
3499 + dyn_i->pltoff_offset);
3500
3501 return value;
3502}
3503
3504/* Return the base VMA address which should be subtracted from real addresses
3505 when resolving @tprel() relocation.
3506 Main program TLS (whose template starts at PT_TLS p_vaddr)
3507 is assigned offset round(2 * size of pointer, PT_TLS p_align). */
3508
3509static bfd_vma
3510elfNN_ia64_tprel_base (struct bfd_link_info *info)
3511{
3512 asection *tls_sec = elf_hash_table (info)->tls_sec;
3513 return tls_sec->vma - align_power ((bfd_vma) ARCH_SIZE / 4,
3514 tls_sec->alignment_power);
3515}
3516
3517/* Return the base VMA address which should be subtracted from real addresses
3518 when resolving @dtprel() relocation.
3519 This is PT_TLS segment p_vaddr. */
3520
3521static bfd_vma
3522elfNN_ia64_dtprel_base (struct bfd_link_info *info)
3523{
3524 return elf_hash_table (info)->tls_sec->vma;
3525}
3526
3527/* Called through qsort to sort the .IA_64.unwind section during a
3528 non-relocatable link. Set elfNN_ia64_unwind_entry_compare_bfd
3529 to the output bfd so we can do proper endianness frobbing. */
3530
3531static bfd *elfNN_ia64_unwind_entry_compare_bfd;
3532
3533static int
2c3fc389 3534elfNN_ia64_unwind_entry_compare (const void * a, const void * b)
cbe79dfe
TG		 3535{
3536 bfd_vma av, bv;
3537
3538 av = bfd_get_64 (elfNN_ia64_unwind_entry_compare_bfd, a);
3539 bv = bfd_get_64 (elfNN_ia64_unwind_entry_compare_bfd, b);
3540
3541 return (av < bv ? -1 : av > bv ? 1 : 0);
3542}
3543
3544/* Make sure we've got ourselves a nice fat __gp value. */
3545static bfd_boolean
3546elfNN_ia64_choose_gp (bfd *abfd, struct bfd_link_info *info, bfd_boolean final)
3547{
3548 bfd_vma min_vma = (bfd_vma) -1, max_vma = 0;
3549 bfd_vma min_short_vma = min_vma, max_short_vma = 0;
3550 struct elf_link_hash_entry *gp;
3551 bfd_vma gp_val;
3552 asection *os;
3553 struct elfNN_ia64_link_hash_table *ia64_info;
3554
3555 ia64_info = elfNN_ia64_hash_table (info);
3556 if (ia64_info == NULL)
3557 return FALSE;
3558
3559 /* Find the min and max vma of all sections marked short. Also collect
3560 min and max vma of any type, for use in selecting a nice gp. */
3561 for (os = abfd->sections; os ; os = os->next)
3562 {
3563 bfd_vma lo, hi;
3564
3565 if ((os->flags & SEC_ALLOC) == 0)
3566 continue;
3567
3568 lo = os->vma;
3569 /* When this function is called from elfNN_ia64_final_link
3570 the correct value to use is os->size. When called from
3571 elfNN_ia64_relax_section we are in the middle of section
3572 sizing; some sections will already have os->size set, others
3573 will have os->size zero and os->rawsize the previous size. */
3574 hi = os->vma + (!final && os->rawsize ? os->rawsize : os->size);
3575 if (hi < lo)
3576 hi = (bfd_vma) -1;
3577
3578 if (min_vma > lo)
3579 min_vma = lo;
3580 if (max_vma < hi)
3581 max_vma = hi;
3582 if (os->flags & SEC_SMALL_DATA)
3583 {
3584 if (min_short_vma > lo)
3585 min_short_vma = lo;
3586 if (max_short_vma < hi)
3587 max_short_vma = hi;
3588 }
3589 }
3590
3591 if (ia64_info->min_short_sec)
3592 {
d17fe7b7 3593 if (min_short_vma
cbe79dfe
TG		 3594 > (ia64_info->min_short_sec->vma
3595 + ia64_info->min_short_offset))
3596 min_short_vma = (ia64_info->min_short_sec->vma
3597 + ia64_info->min_short_offset);
3598 if (max_short_vma
3599 < (ia64_info->max_short_sec->vma
3600 + ia64_info->max_short_offset))
3601 max_short_vma = (ia64_info->max_short_sec->vma
3602 + ia64_info->max_short_offset);
3603 }
3604
3605 /* See if the user wants to force a value. */
3606 gp = elf_link_hash_lookup (elf_hash_table (info), "__gp", FALSE,
3607 FALSE, FALSE);
3608
3609 if (gp
3610 && (gp->root.type == bfd_link_hash_defined
3611 || gp->root.type == bfd_link_hash_defweak))
3612 {
3613 asection *gp_sec = gp->root.u.def.section;
3614 gp_val = (gp->root.u.def.value
3615 + gp_sec->output_section->vma
3616 + gp_sec->output_offset);
3617 }
3618 else
3619 {
3620 /* Pick a sensible value. */
3621
3622 if (ia64_info->min_short_sec)
3623 {
3624 bfd_vma short_range = max_short_vma - min_short_vma;
3625
3626 /* If min_short_sec is set, pick one in the middle bewteen
3627 min_short_vma and max_short_vma. */
3628 if (short_range >= 0x400000)
3629 goto overflow;
3630 gp_val = min_short_vma + short_range / 2;
3631 }
3632 else
3633 {
3634 asection *got_sec = ia64_info->root.sgot;
3635
3636 /* Start with just the address of the .got. */
3637 if (got_sec)
3638 gp_val = got_sec->output_section->vma;
3639 else if (max_short_vma != 0)
3640 gp_val = min_short_vma;
3641 else if (max_vma - min_vma < 0x200000)
3642 gp_val = min_vma;
3643 else
3644 gp_val = max_vma - 0x200000 + 8;
3645 }
3646
3647 /* If it is possible to address the entire image, but we
3648 don't with the choice above, adjust. */
3649 if (max_vma - min_vma < 0x400000
3650 && (max_vma - gp_val >= 0x200000
3651 || gp_val - min_vma > 0x200000))
3652 gp_val = min_vma + 0x200000;
3653 else if (max_short_vma != 0)
3654 {
3655 /* If we don't cover all the short data, adjust. */
3656 if (max_short_vma - gp_val >= 0x200000)
3657 gp_val = min_short_vma + 0x200000;
3658
3659 /* If we're addressing stuff past the end, adjust back. */
3660 if (gp_val > max_vma)
3661 gp_val = max_vma - 0x200000 + 8;
3662 }
3663 }
3664
3665 /* Validate whether all SHF_IA_64_SHORT sections are within
3666 range of the chosen GP. */
3667
3668 if (max_short_vma != 0)
3669 {
3670 if (max_short_vma - min_short_vma >= 0x400000)
3671 {
dc1e8a47 3672 overflow:
4eca0228 3673 _bfd_error_handler
695344c0 3674 /* xgettext:c-format */
2dcf00ce
AM		 3675 (_("%pB: short data segment overflowed (%#" PRIx64 " >= 0x400000)"),
3676 abfd, (uint64_t) (max_short_vma - min_short_vma));
cbe79dfe
TG		 3677 return FALSE;
3678 }
3679 else if ((gp_val > min_short_vma
3680 && gp_val - min_short_vma > 0x200000)
3681 || (gp_val < max_short_vma
3682 && max_short_vma - gp_val >= 0x200000))
3683 {
4eca0228 3684 _bfd_error_handler
871b3ab2 3685 (_("%pB: __gp does not cover short data segment"), abfd);
cbe79dfe
TG		 3686 return FALSE;
3687 }
3688 }
3689
3690 _bfd_set_gp_value (abfd, gp_val);
3691
3692 return TRUE;
3693}
3694
3695static bfd_boolean
3696elfNN_ia64_final_link (bfd *abfd, struct bfd_link_info *info)
3697{
3698 struct elfNN_ia64_link_hash_table *ia64_info;
3699 asection *unwind_output_sec;
3700
3701 ia64_info = elfNN_ia64_hash_table (info);
3702 if (ia64_info == NULL)
3703 return FALSE;
3704
3705 /* Make sure we've got ourselves a nice fat __gp value. */
0e1862bb 3706 if (!bfd_link_relocatable (info))
cbe79dfe
TG		 3707 {
3708 bfd_vma gp_val;
3709 struct elf_link_hash_entry *gp;
3710
3711 /* We assume after gp is set, section size will only decrease. We
3712 need to adjust gp for it. */
3713 _bfd_set_gp_value (abfd, 0);
3714 if (! elfNN_ia64_choose_gp (abfd, info, TRUE))
3715 return FALSE;
3716 gp_val = _bfd_get_gp_value (abfd);
3717
3718 gp = elf_link_hash_lookup (elf_hash_table (info), "__gp", FALSE,
07d6d2b8 3719 FALSE, FALSE);
cbe79dfe
TG		 3720 if (gp)
3721 {
3722 gp->root.type = bfd_link_hash_defined;
3723 gp->root.u.def.value = gp_val;
3724 gp->root.u.def.section = bfd_abs_section_ptr;
3725 }
3726 }
3727
3728 /* If we're producing a final executable, we need to sort the contents
3729 of the .IA_64.unwind section. Force this section to be relocated
3730 into memory rather than written immediately to the output file. */
3731 unwind_output_sec = NULL;
0e1862bb 3732 if (!bfd_link_relocatable (info))
cbe79dfe
TG		 3733 {
3734 asection *s = bfd_get_section_by_name (abfd, ELF_STRING_ia64_unwind);
3735 if (s)
3736 {
3737 unwind_output_sec = s->output_section;
3738 unwind_output_sec->contents
3739 = bfd_malloc (unwind_output_sec->size);
3740 if (unwind_output_sec->contents == NULL)
3741 return FALSE;
3742 }
3743 }
3744
3745 /* Invoke the regular ELF backend linker to do all the work. */
3746 if (!bfd_elf_final_link (abfd, info))
3747 return FALSE;
3748
3749 if (unwind_output_sec)
3750 {
3751 elfNN_ia64_unwind_entry_compare_bfd = abfd;
3752 qsort (unwind_output_sec->contents,
3753 (size_t) (unwind_output_sec->size / 24),
3754 24,
3755 elfNN_ia64_unwind_entry_compare);
3756
3757 if (! bfd_set_section_contents (abfd, unwind_output_sec,
3758 unwind_output_sec->contents, (bfd_vma) 0,
3759 unwind_output_sec->size))
3760 return FALSE;
3761 }
3762
3763 return TRUE;
3764}
3765
3766static bfd_boolean
3767elfNN_ia64_relocate_section (bfd *output_bfd,
3768 struct bfd_link_info *info,
3769 bfd *input_bfd,
3770 asection *input_section,
3771 bfd_byte *contents,
3772 Elf_Internal_Rela *relocs,
3773 Elf_Internal_Sym *local_syms,
3774 asection **local_sections)
3775{
3776 struct elfNN_ia64_link_hash_table *ia64_info;
3777 Elf_Internal_Shdr *symtab_hdr;
3778 Elf_Internal_Rela *rel;
3779 Elf_Internal_Rela *relend;
3780 asection *srel;
3781 bfd_boolean ret_val = TRUE; /* for non-fatal errors */
3782 bfd_vma gp_val;
3783
3784 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
3785 ia64_info = elfNN_ia64_hash_table (info);
3786 if (ia64_info == NULL)
3787 return FALSE;
3788
3789 /* Infect various flags from the input section to the output section. */
0e1862bb 3790 if (bfd_link_relocatable (info))
cbe79dfe
TG		 3791 {
3792 bfd_vma flags;
3793
3794 flags = elf_section_data(input_section)->this_hdr.sh_flags;
3795 flags &= SHF_IA_64_NORECOV;
3796
3797 elf_section_data(input_section->output_section)
3798 ->this_hdr.sh_flags |= flags;
3799 }
3800
3801 gp_val = _bfd_get_gp_value (output_bfd);
3802 srel = get_reloc_section (input_bfd, ia64_info, input_section, FALSE);
3803
3804 rel = relocs;
3805 relend = relocs + input_section->reloc_count;
3806 for (; rel < relend; ++rel)
3807 {
3808 struct elf_link_hash_entry *h;
3809 struct elfNN_ia64_dyn_sym_info *dyn_i;
3810 bfd_reloc_status_type r;
3811 reloc_howto_type *howto;
3812 unsigned long r_symndx;
3813 Elf_Internal_Sym *sym;
3814 unsigned int r_type;
3815 bfd_vma value;
3816 asection *sym_sec;
3817 bfd_byte *hit_addr;
3818 bfd_boolean dynamic_symbol_p;
3819 bfd_boolean undef_weak_ref;
3820
3821 r_type = ELFNN_R_TYPE (rel->r_info);
3822 if (r_type > R_IA64_MAX_RELOC_CODE)
3823 {
0aa13fee
AM		 3824 /* xgettext:c-format */
3825 _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
3826 input_bfd, (int) r_type);
cbe79dfe
TG		 3827 bfd_set_error (bfd_error_bad_value);
3828 ret_val = FALSE;
3829 continue;
3830 }
3831
3832 howto = ia64_elf_lookup_howto (r_type);
f3185997
NC		 3833 if (howto == NULL)
3834 {
3835 ret_val = FALSE;
3836 continue;
3837 }
4b24dd1a 3838
cbe79dfe
TG		 3839 r_symndx = ELFNN_R_SYM (rel->r_info);
3840 h = NULL;
3841 sym = NULL;
3842 sym_sec = NULL;
3843 undef_weak_ref = FALSE;
3844
3845 if (r_symndx < symtab_hdr->sh_info)
3846 {
3847 /* Reloc against local symbol. */
3848 asection *msec;
3849 sym = local_syms + r_symndx;
3850 sym_sec = local_sections[r_symndx];
3851 msec = sym_sec;
3852 value = _bfd_elf_rela_local_sym (output_bfd, sym, &msec, rel);
0e1862bb 3853 if (!bfd_link_relocatable (info)
cbe79dfe
TG		 3854 && (sym_sec->flags & SEC_MERGE) != 0
3855 && ELF_ST_TYPE (sym->st_info) == STT_SECTION
dbaa2011 3856 && sym_sec->sec_info_type == SEC_INFO_TYPE_MERGE)
d17fe7b7 3857 {
cbe79dfe
TG		 3858 struct elfNN_ia64_local_hash_entry *loc_h;
3859
3860 loc_h = get_local_sym_hash (ia64_info, input_bfd, rel, FALSE);
3861 if (loc_h && ! loc_h->sec_merge_done)
3862 {
3863 struct elfNN_ia64_dyn_sym_info *dynent;
3864 unsigned int count;
3865
3866 for (count = loc_h->count, dynent = loc_h->info;
3867 count != 0;
3868 count--, dynent++)
3869 {
3870 msec = sym_sec;
3871 dynent->addend =
3872 _bfd_merged_section_offset (output_bfd, &msec,
3873 elf_section_data (msec)->
3874 sec_info,
3875 sym->st_value
3876 + dynent->addend);
3877 dynent->addend -= sym->st_value;
3878 dynent->addend += msec->output_section->vma
3879 + msec->output_offset
3880 - sym_sec->output_section->vma
3881 - sym_sec->output_offset;
3882 }
3883
3884 /* We may have introduced duplicated entries. We need
3885 to remove them properly. */
3886 count = sort_dyn_sym_info (loc_h->info, loc_h->count);
3887 if (count != loc_h->count)
3888 {
3889 loc_h->count = count;
3890 loc_h->sorted_count = count;
3891 }
3892
3893 loc_h->sec_merge_done = 1;
3894 }
3895 }
3896 }
3897 else
3898 {
3899 bfd_boolean unresolved_reloc;
62d887d4 3900 bfd_boolean warned, ignored;
cbe79dfe
TG		 3901 struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (input_bfd);
3902
3903 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
3904 r_symndx, symtab_hdr, sym_hashes,
3905 h, sym_sec, value,
62d887d4 3906 unresolved_reloc, warned, ignored);
cbe79dfe
TG		 3907
3908 if (h->root.type == bfd_link_hash_undefweak)
3909 undef_weak_ref = TRUE;
0e1862bb 3910 else if (warned || (ignored && bfd_link_executable (info)))
cbe79dfe
TG		 3911 continue;
3912 }
3913
dbaa2011 3914 if (sym_sec != NULL && discarded_section (sym_sec))
cbe79dfe 3915 RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
545fd46b 3916 rel, 1, relend, howto, 0, contents);
cbe79dfe 3917
0e1862bb 3918 if (bfd_link_relocatable (info))
cbe79dfe
TG		 3919 continue;
3920
3921 hit_addr = contents + rel->r_offset;
3922 value += rel->r_addend;
3923 dynamic_symbol_p = elfNN_ia64_dynamic_symbol_p (h, info, r_type);
3924
3925 switch (r_type)
3926 {
3927 case R_IA64_NONE:
3928 case R_IA64_LDXMOV:
3929 continue;
3930
3931 case R_IA64_IMM14:
3932 case R_IA64_IMM22:
3933 case R_IA64_IMM64:
3934 case R_IA64_DIR32MSB:
3935 case R_IA64_DIR32LSB:
3936 case R_IA64_DIR64MSB:
3937 case R_IA64_DIR64LSB:
3938 /* Install a dynamic relocation for this reloc. */
0e1862bb 3939 if ((dynamic_symbol_p || bfd_link_pic (info))
db41f6eb 3940 && !(h && UNDEFWEAK_NO_DYNAMIC_RELOC (info, h))
cbe79dfe
TG		 3941 && r_symndx != STN_UNDEF
3942 && (input_section->flags & SEC_ALLOC) != 0)
3943 {
3944 unsigned int dyn_r_type;
3945 long dynindx;
3946 bfd_vma addend;
3947
3948 BFD_ASSERT (srel != NULL);
3949
3950 switch (r_type)
3951 {
3952 case R_IA64_IMM14:
3953 case R_IA64_IMM22:
3954 case R_IA64_IMM64:
3955 /* ??? People shouldn't be doing non-pic code in
3956 shared libraries nor dynamic executables. */
4eca0228 3957 _bfd_error_handler
695344c0 3958 /* xgettext:c-format */
871b3ab2 3959 (_("%pB: non-pic code with imm relocation against dynamic symbol `%s'"),
cbe79dfe
TG		 3960 input_bfd,
3961 h ? h->root.root.string
3962 : bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
3963 sym_sec));
3964 ret_val = FALSE;
3965 continue;
3966
3967 default:
3968 break;
3969 }
3970
3971 /* If we don't need dynamic symbol lookup, find a
3972 matching RELATIVE relocation. */
3973 dyn_r_type = r_type;
3974 if (dynamic_symbol_p)
3975 {
3976 dynindx = h->dynindx;
3977 addend = rel->r_addend;
3978 value = 0;
3979 }
3980 else
3981 {
3982 switch (r_type)
3983 {
3984 case R_IA64_DIR32MSB:
3985 dyn_r_type = R_IA64_REL32MSB;
3986 break;
3987 case R_IA64_DIR32LSB:
3988 dyn_r_type = R_IA64_REL32LSB;
3989 break;
3990 case R_IA64_DIR64MSB:
3991 dyn_r_type = R_IA64_REL64MSB;
3992 break;
3993 case R_IA64_DIR64LSB:
3994 dyn_r_type = R_IA64_REL64LSB;
3995 break;
3996
3997 default:
3998 break;
3999 }
4000 dynindx = 0;
4001 addend = value;
4002 }
4003
4004 elfNN_ia64_install_dyn_reloc (output_bfd, info, input_section,
4005 srel, rel->r_offset, dyn_r_type,
4006 dynindx, addend);
4007 }
4008 /* Fall through. */
4009
4010 case R_IA64_LTV32MSB:
4011 case R_IA64_LTV32LSB:
4012 case R_IA64_LTV64MSB:
4013 case R_IA64_LTV64LSB:
4014 r = ia64_elf_install_value (hit_addr, value, r_type);
4015 break;
4016
4017 case R_IA64_GPREL22:
4018 case R_IA64_GPREL64I:
4019 case R_IA64_GPREL32MSB:
4020 case R_IA64_GPREL32LSB:
4021 case R_IA64_GPREL64MSB:
4022 case R_IA64_GPREL64LSB:
4023 if (dynamic_symbol_p)
4024 {
4eca0228 4025 _bfd_error_handler
695344c0 4026 /* xgettext:c-format */
871b3ab2 4027 (_("%pB: @gprel relocation against dynamic symbol %s"),
cbe79dfe
TG		 4028 input_bfd,
4029 h ? h->root.root.string
4030 : bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
4031 sym_sec));
4032 ret_val = FALSE;
4033 continue;
4034 }
4035 value -= gp_val;
4036 r = ia64_elf_install_value (hit_addr, value, r_type);
4037 break;
4038
4039 case R_IA64_LTOFF22:
4040 case R_IA64_LTOFF22X:
4041 case R_IA64_LTOFF64I:
07d6d2b8 4042 dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
cbe79dfe
TG		 4043 value = set_got_entry (input_bfd, info, dyn_i, (h ? h->dynindx : -1),
4044 rel->r_addend, value, R_IA64_DIRNNLSB);
4045 value -= gp_val;
4046 r = ia64_elf_install_value (hit_addr, value, r_type);
4047 break;
4048
4049 case R_IA64_PLTOFF22:
4050 case R_IA64_PLTOFF64I:
4051 case R_IA64_PLTOFF64MSB:
4052 case R_IA64_PLTOFF64LSB:
07d6d2b8 4053 dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
cbe79dfe
TG		 4054 value = set_pltoff_entry (output_bfd, info, dyn_i, value, FALSE);
4055 value -= gp_val;
4056 r = ia64_elf_install_value (hit_addr, value, r_type);
4057 break;
4058
4059 case R_IA64_FPTR64I:
4060 case R_IA64_FPTR32MSB:
4061 case R_IA64_FPTR32LSB:
4062 case R_IA64_FPTR64MSB:
4063 case R_IA64_FPTR64LSB:
07d6d2b8 4064 dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
cbe79dfe
TG		 4065 if (dyn_i->want_fptr)
4066 {
4067 if (!undef_weak_ref)
4068 value = set_fptr_entry (output_bfd, info, dyn_i, value);
4069 }
0e1862bb 4070 if (!dyn_i->want_fptr || bfd_link_pie (info))
cbe79dfe
TG		 4071 {
4072 long dynindx;
4073 unsigned int dyn_r_type = r_type;
4074 bfd_vma addend = rel->r_addend;
4075
4076 /* Otherwise, we expect the dynamic linker to create
4077 the entry. */
4078
4079 if (dyn_i->want_fptr)
4080 {
4081 if (r_type == R_IA64_FPTR64I)
4082 {
4083 /* We can't represent this without a dynamic symbol.
4084 Adjust the relocation to be against an output
4085 section symbol, which are always present in the
4086 dynamic symbol table. */
4087 /* ??? People shouldn't be doing non-pic code in
4088 shared libraries. Hork. */
4eca0228 4089 _bfd_error_handler
871b3ab2 4090 (_("%pB: linking non-pic code in a position independent executable"),
cbe79dfe
TG		 4091 input_bfd);
4092 ret_val = FALSE;
4093 continue;
4094 }
4095 dynindx = 0;
4096 addend = value;
4097 dyn_r_type = r_type + R_IA64_RELNNLSB - R_IA64_FPTRNNLSB;
4098 }
4099 else if (h)
4100 {
4101 if (h->dynindx != -1)
4102 dynindx = h->dynindx;
4103 else
4104 dynindx = (_bfd_elf_link_lookup_local_dynindx
4105 (info, h->root.u.def.section->owner,
4106 global_sym_index (h)));
4107 value = 0;
4108 }
4109 else
4110 {
4111 dynindx = (_bfd_elf_link_lookup_local_dynindx
4112 (info, input_bfd, (long) r_symndx));
4113 value = 0;
4114 }
4115
4116 elfNN_ia64_install_dyn_reloc (output_bfd, info, input_section,
4117 srel, rel->r_offset, dyn_r_type,
4118 dynindx, addend);
4119 }
4120
4121 r = ia64_elf_install_value (hit_addr, value, r_type);
4122 break;
4123
4124 case R_IA64_LTOFF_FPTR22:
4125 case R_IA64_LTOFF_FPTR64I:
4126 case R_IA64_LTOFF_FPTR32MSB:
4127 case R_IA64_LTOFF_FPTR32LSB:
4128 case R_IA64_LTOFF_FPTR64MSB:
4129 case R_IA64_LTOFF_FPTR64LSB:
4130 {
4131 long dynindx;
4132
4133 dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
4134 if (dyn_i->want_fptr)
4135 {
4136 BFD_ASSERT (h == NULL || h->dynindx == -1);
07d6d2b8
AM		 4137 if (!undef_weak_ref)
4138 value = set_fptr_entry (output_bfd, info, dyn_i, value);
cbe79dfe
TG		 4139 dynindx = -1;
4140 }
4141 else
4142 {
07d6d2b8 4143 /* Otherwise, we expect the dynamic linker to create
cbe79dfe 4144 the entry. */
07d6d2b8 4145 if (h)
cbe79dfe
TG		 4146 {
4147 if (h->dynindx != -1)
4148 dynindx = h->dynindx;
4149 else
4150 dynindx = (_bfd_elf_link_lookup_local_dynindx
4151 (info, h->root.u.def.section->owner,
4152 global_sym_index (h)));
4153 }
4154 else
4155 dynindx = (_bfd_elf_link_lookup_local_dynindx
4156 (info, input_bfd, (long) r_symndx));
4157 value = 0;
4158 }
4159
4160 value = set_got_entry (output_bfd, info, dyn_i, dynindx,
4161 rel->r_addend, value, R_IA64_FPTRNNLSB);
4162 value -= gp_val;
4163 r = ia64_elf_install_value (hit_addr, value, r_type);
4164 }
4165 break;
4166
4167 case R_IA64_PCREL32MSB:
4168 case R_IA64_PCREL32LSB:
4169 case R_IA64_PCREL64MSB:
4170 case R_IA64_PCREL64LSB:
4171 /* Install a dynamic relocation for this reloc. */
4172 if (dynamic_symbol_p && r_symndx != STN_UNDEF)
4173 {
4174 BFD_ASSERT (srel != NULL);
4175
4176 elfNN_ia64_install_dyn_reloc (output_bfd, info, input_section,
4177 srel, rel->r_offset, r_type,
4178 h->dynindx, rel->r_addend);
4179 }
4180 goto finish_pcrel;
4181
4182 case R_IA64_PCREL21B:
4183 case R_IA64_PCREL60B:
4184 /* We should have created a PLT entry for any dynamic symbol. */
4185 dyn_i = NULL;
4186 if (h)
4187 dyn_i = get_dyn_sym_info (ia64_info, h, NULL, NULL, FALSE);
4188
4189 if (dyn_i && dyn_i->want_plt2)
4190 {
4191 /* Should have caught this earlier. */
4192 BFD_ASSERT (rel->r_addend == 0);
4193
4194 value = (ia64_info->root.splt->output_section->vma
4195 + ia64_info->root.splt->output_offset
4196 + dyn_i->plt2_offset);
4197 }
4198 else
4199 {
4200 /* Since there's no PLT entry, Validate that this is
4201 locally defined. */
4202 BFD_ASSERT (undef_weak_ref || sym_sec->output_section != NULL);
4203
4204 /* If the symbol is undef_weak, we shouldn't be trying
4205 to call it. There's every chance that we'd wind up
4206 with an out-of-range fixup here. Don't bother setting
4207 any value at all. */
4208 if (undef_weak_ref)
4209 continue;
4210 }
4211 goto finish_pcrel;
4212
4213 case R_IA64_PCREL21BI:
4214 case R_IA64_PCREL21F:
4215 case R_IA64_PCREL21M:
4216 case R_IA64_PCREL22:
4217 case R_IA64_PCREL64I:
4218 /* The PCREL21BI reloc is specifically not intended for use with
4219 dynamic relocs. PCREL21F and PCREL21M are used for speculation
4220 fixup code, and thus probably ought not be dynamic. The
4221 PCREL22 and PCREL64I relocs aren't emitted as dynamic relocs. */
4222 if (dynamic_symbol_p)
4223 {
4224 const char *msg;
4225
4226 if (r_type == R_IA64_PCREL21BI)
695344c0 4227 /* xgettext:c-format */
871b3ab2 4228 msg = _("%pB: @internal branch to dynamic symbol %s");
cbe79dfe 4229 else if (r_type == R_IA64_PCREL21F || r_type == R_IA64_PCREL21M)
695344c0 4230 /* xgettext:c-format */
871b3ab2 4231 msg = _("%pB: speculation fixup to dynamic symbol %s");
cbe79dfe 4232 else
695344c0 4233 /* xgettext:c-format */
871b3ab2 4234 msg = _("%pB: @pcrel relocation against dynamic symbol %s");
4eca0228
AM		 4235 _bfd_error_handler (msg, input_bfd,
4236 h ? h->root.root.string
4237 : bfd_elf_sym_name (input_bfd,
4238 symtab_hdr,
4239 sym,
4240 sym_sec));
cbe79dfe
TG		 4241 ret_val = FALSE;
4242 continue;
4243 }
4244 goto finish_pcrel;
4245
4246 finish_pcrel:
4247 /* Make pc-relative. */
4248 value -= (input_section->output_section->vma
4249 + input_section->output_offset
4250 + rel->r_offset) & ~ (bfd_vma) 0x3;
4251 r = ia64_elf_install_value (hit_addr, value, r_type);
4252 break;
4253
4254 case R_IA64_SEGREL32MSB:
4255 case R_IA64_SEGREL32LSB:
4256 case R_IA64_SEGREL64MSB:
4257 case R_IA64_SEGREL64LSB:
4258 {
4259 /* Find the segment that contains the output_section. */
4260 Elf_Internal_Phdr *p = _bfd_elf_find_segment_containing_section
4261 (output_bfd, input_section->output_section);
4262
4263 if (p == NULL)
4264 {
4265 r = bfd_reloc_notsupported;
4266 }
4267 else
4268 {
4269 /* The VMA of the segment is the vaddr of the associated
4270 program header. */
4271 if (value > p->p_vaddr)
4272 value -= p->p_vaddr;
4273 else
4274 value = 0;
4275 r = ia64_elf_install_value (hit_addr, value, r_type);
4276 }
4277 break;
4278 }
4279
4280 case R_IA64_SECREL32MSB:
4281 case R_IA64_SECREL32LSB:
4282 case R_IA64_SECREL64MSB:
4283 case R_IA64_SECREL64LSB:
4284 /* Make output-section relative to section where the symbol
4285 is defined. PR 475 */
4286 if (sym_sec)
4287 value -= sym_sec->output_section->vma;
4288 r = ia64_elf_install_value (hit_addr, value, r_type);
4289 break;
4290
4291 case R_IA64_IPLTMSB:
4292 case R_IA64_IPLTLSB:
4293 /* Install a dynamic relocation for this reloc. */
0e1862bb 4294 if ((dynamic_symbol_p || bfd_link_pic (info))
cbe79dfe
TG		 4295 && (input_section->flags & SEC_ALLOC) != 0)
4296 {
4297 BFD_ASSERT (srel != NULL);
4298
4299 /* If we don't need dynamic symbol lookup, install two
4300 RELATIVE relocations. */
4301 if (!dynamic_symbol_p)
4302 {
4303 unsigned int dyn_r_type;
4304
4305 if (r_type == R_IA64_IPLTMSB)
4306 dyn_r_type = R_IA64_REL64MSB;
4307 else
4308 dyn_r_type = R_IA64_REL64LSB;
4309
4310 elfNN_ia64_install_dyn_reloc (output_bfd, info,
4311 input_section,
4312 srel, rel->r_offset,
4313 dyn_r_type, 0, value);
4314 elfNN_ia64_install_dyn_reloc (output_bfd, info,
4315 input_section,
4316 srel, rel->r_offset + 8,
4317 dyn_r_type, 0, gp_val);
4318 }
4319 else
4320 elfNN_ia64_install_dyn_reloc (output_bfd, info, input_section,
4321 srel, rel->r_offset, r_type,
4322 h->dynindx, rel->r_addend);
4323 }
4324
4325 if (r_type == R_IA64_IPLTMSB)
4326 r_type = R_IA64_DIR64MSB;
4327 else
4328 r_type = R_IA64_DIR64LSB;
4329 ia64_elf_install_value (hit_addr, value, r_type);
4330 r = ia64_elf_install_value (hit_addr + 8, gp_val, r_type);
4331 break;
4332
4333 case R_IA64_TPREL14:
4334 case R_IA64_TPREL22:
4335 case R_IA64_TPREL64I:
4336 if (elf_hash_table (info)->tls_sec == NULL)
4337 goto missing_tls_sec;
4338 value -= elfNN_ia64_tprel_base (info);
4339 r = ia64_elf_install_value (hit_addr, value, r_type);
4340 break;
4341
4342 case R_IA64_DTPREL14:
4343 case R_IA64_DTPREL22:
4344 case R_IA64_DTPREL64I:
4345 case R_IA64_DTPREL32LSB:
4346 case R_IA64_DTPREL32MSB:
4347 case R_IA64_DTPREL64LSB:
4348 case R_IA64_DTPREL64MSB:
4349 if (elf_hash_table (info)->tls_sec == NULL)
4350 goto missing_tls_sec;
4351 value -= elfNN_ia64_dtprel_base (info);
4352 r = ia64_elf_install_value (hit_addr, value, r_type);
4353 break;
4354
4355 case R_IA64_LTOFF_TPREL22:
4356 case R_IA64_LTOFF_DTPMOD22:
4357 case R_IA64_LTOFF_DTPREL22:
4358 {
4359 int got_r_type;
4360 long dynindx = h ? h->dynindx : -1;
4361 bfd_vma r_addend = rel->r_addend;
4362
4363 switch (r_type)
4364 {
4365 default:
4366 case R_IA64_LTOFF_TPREL22:
4367 if (!dynamic_symbol_p)
4368 {
4369 if (elf_hash_table (info)->tls_sec == NULL)
4370 goto missing_tls_sec;
0e1862bb 4371 if (!bfd_link_pic (info))
cbe79dfe
TG		 4372 value -= elfNN_ia64_tprel_base (info);
4373 else
4374 {
4375 r_addend += value - elfNN_ia64_dtprel_base (info);
4376 dynindx = 0;
4377 }
4378 }
4379 got_r_type = R_IA64_TPREL64LSB;
4380 break;
4381 case R_IA64_LTOFF_DTPMOD22:
0e1862bb 4382 if (!dynamic_symbol_p && !bfd_link_pic (info))
cbe79dfe
TG		 4383 value = 1;
4384 got_r_type = R_IA64_DTPMOD64LSB;
4385 break;
4386 case R_IA64_LTOFF_DTPREL22:
4387 if (!dynamic_symbol_p)
4388 {
4389 if (elf_hash_table (info)->tls_sec == NULL)
4390 goto missing_tls_sec;
4391 value -= elfNN_ia64_dtprel_base (info);
4392 }
4393 got_r_type = R_IA64_DTPRELNNLSB;
4394 break;
4395 }
4396 dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
4397 value = set_got_entry (input_bfd, info, dyn_i, dynindx, r_addend,
4398 value, got_r_type);
4399 value -= gp_val;
4400 r = ia64_elf_install_value (hit_addr, value, r_type);
4401 }
4402 break;
4403
4404 default:
4405 r = bfd_reloc_notsupported;
4406 break;
4407 }
4408
4409 switch (r)
4410 {
4411 case bfd_reloc_ok:
4412 break;
4413
4414 case bfd_reloc_undefined:
4415 /* This can happen for global table relative relocs if
4416 __gp is undefined. This is a panic situation so we
4417 don't try to continue. */
4418 (*info->callbacks->undefined_symbol)
4419 (info, "__gp", input_bfd, input_section, rel->r_offset, 1);
4420 return FALSE;
4421
4422 case bfd_reloc_notsupported:
4423 {
4424 const char *name;
4425
4426 if (h)
4427 name = h->root.root.string;
4428 else
4429 name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
4430 sym_sec);
1a72702b
AM		 4431 (*info->callbacks->warning) (info, _("unsupported reloc"),
4432 name, input_bfd,
4433 input_section, rel->r_offset);
cbe79dfe
TG		 4434 ret_val = FALSE;
4435 }
4436 break;
4437
4438 case bfd_reloc_dangerous:
4439 case bfd_reloc_outofrange:
4440 case bfd_reloc_overflow:
4441 default:
dc1e8a47 4442 missing_tls_sec:
cbe79dfe
TG		 4443 {
4444 const char *name;
4445
4446 if (h)
4447 name = h->root.root.string;
4448 else
4449 name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
4450 sym_sec);
4451
4452 switch (r_type)
4453 {
4454 case R_IA64_TPREL14:
4455 case R_IA64_TPREL22:
4456 case R_IA64_TPREL64I:
4457 case R_IA64_DTPREL14:
4458 case R_IA64_DTPREL22:
4459 case R_IA64_DTPREL64I:
4460 case R_IA64_DTPREL32LSB:
4461 case R_IA64_DTPREL32MSB:
4462 case R_IA64_DTPREL64LSB:
4463 case R_IA64_DTPREL64MSB:
4464 case R_IA64_LTOFF_TPREL22:
4465 case R_IA64_LTOFF_DTPMOD22:
4466 case R_IA64_LTOFF_DTPREL22:
4eca0228 4467 _bfd_error_handler
695344c0 4468 /* xgettext:c-format */
871b3ab2 4469 (_("%pB: missing TLS section for relocation %s against `%s'"
2dcf00ce 4470 " at %#" PRIx64 " in section `%pA'."),
c08bb8dd 4471 input_bfd, howto->name, name,
2dcf00ce 4472 (uint64_t) rel->r_offset, input_section);
cbe79dfe
TG		 4473 break;
4474
4475 case R_IA64_PCREL21B:
4476 case R_IA64_PCREL21BI:
4477 case R_IA64_PCREL21M:
4478 case R_IA64_PCREL21F:
4479 if (is_elf_hash_table (info->hash))
4480 {
4481 /* Relaxtion is always performed for ELF output.
4482 Overflow failures for those relocations mean
4483 that the section is too big to relax. */
4eca0228 4484 _bfd_error_handler
695344c0 4485 /* xgettext:c-format */
2dcf00ce
AM		 4486 (_("%pB: Can't relax br (%s) to `%s' at %#" PRIx64
4487 " in section `%pA' with size %#" PRIx64
4488 " (> 0x1000000)."),
4489 input_bfd, howto->name, name, (uint64_t) rel->r_offset,
4490 input_section, (uint64_t) input_section->size);
cbe79dfe
TG		 4491 break;
4492 }
1a0670f3 4493 /* Fall through. */
cbe79dfe 4494 default:
1a72702b
AM		 4495 (*info->callbacks->reloc_overflow) (info,
4496 &h->root,
4497 name,
4498 howto->name,
4499 (bfd_vma) 0,
4500 input_bfd,
4501 input_section,
4502 rel->r_offset);
cbe79dfe
TG		 4503 break;
4504 }
4505
4506 ret_val = FALSE;
4507 }
4508 break;
4509 }
4510 }
4511
4512 return ret_val;
4513}
4514
4515static bfd_boolean
4516elfNN_ia64_finish_dynamic_symbol (bfd *output_bfd,
4517 struct bfd_link_info *info,
4518 struct elf_link_hash_entry *h,
4519 Elf_Internal_Sym *sym)
4520{
4521 struct elfNN_ia64_link_hash_table *ia64_info;
4522 struct elfNN_ia64_dyn_sym_info *dyn_i;
4523
4524 ia64_info = elfNN_ia64_hash_table (info);
4525 if (ia64_info == NULL)
4526 return FALSE;
4527
4528 dyn_i = get_dyn_sym_info (ia64_info, h, NULL, NULL, FALSE);
4529
4530 /* Fill in the PLT data, if required. */
4531 if (dyn_i && dyn_i->want_plt)
4532 {
4533 Elf_Internal_Rela outrel;
4534 bfd_byte *loc;
4535 asection *plt_sec;
4536 bfd_vma plt_addr, pltoff_addr, gp_val, plt_index;
4537
4538 gp_val = _bfd_get_gp_value (output_bfd);
4539
4540 /* Initialize the minimal PLT entry. */
4541
4542 plt_index = (dyn_i->plt_offset - PLT_HEADER_SIZE) / PLT_MIN_ENTRY_SIZE;
4543 plt_sec = ia64_info->root.splt;
4544 loc = plt_sec->contents + dyn_i->plt_offset;
4545
4546 memcpy (loc, plt_min_entry, PLT_MIN_ENTRY_SIZE);
4547 ia64_elf_install_value (loc, plt_index, R_IA64_IMM22);
4548 ia64_elf_install_value (loc+2, -dyn_i->plt_offset, R_IA64_PCREL21B);
4549
4550 plt_addr = (plt_sec->output_section->vma
4551 + plt_sec->output_offset
4552 + dyn_i->plt_offset);
4553 pltoff_addr = set_pltoff_entry (output_bfd, info, dyn_i, plt_addr, TRUE);
4554
4555 /* Initialize the FULL PLT entry, if needed. */
4556 if (dyn_i->want_plt2)
4557 {
4558 loc = plt_sec->contents + dyn_i->plt2_offset;
4559
4560 memcpy (loc, plt_full_entry, PLT_FULL_ENTRY_SIZE);
4561 ia64_elf_install_value (loc, pltoff_addr - gp_val, R_IA64_IMM22);
4562
4563 /* Mark the symbol as undefined, rather than as defined in the
4564 plt section. Leave the value alone. */
4565 /* ??? We didn't redefine it in adjust_dynamic_symbol in the
4566 first place. But perhaps elflink.c did some for us. */
4567 if (!h->def_regular)
4568 sym->st_shndx = SHN_UNDEF;
4569 }
4570
4571 /* Create the dynamic relocation. */
4572 outrel.r_offset = pltoff_addr;
4573 if (bfd_little_endian (output_bfd))
4574 outrel.r_info = ELFNN_R_INFO (h->dynindx, R_IA64_IPLTLSB);
4575 else
4576 outrel.r_info = ELFNN_R_INFO (h->dynindx, R_IA64_IPLTMSB);
4577 outrel.r_addend = 0;
4578
4579 /* This is fun. In the .IA_64.pltoff section, we've got entries
4580 that correspond both to real PLT entries, and those that
4581 happened to resolve to local symbols but need to be created
4582 to satisfy @pltoff relocations. The .rela.IA_64.pltoff
4583 relocations for the real PLT should come at the end of the
4584 section, so that they can be indexed by plt entry at runtime.
4585
4586 We emitted all of the relocations for the non-PLT @pltoff
4587 entries during relocate_section. So we can consider the
4588 existing sec->reloc_count to be the base of the array of
4589 PLT relocations. */
4590
4591 loc = ia64_info->rel_pltoff_sec->contents;
4592 loc += ((ia64_info->rel_pltoff_sec->reloc_count + plt_index)
4593 * sizeof (ElfNN_External_Rela));
4594 bfd_elfNN_swap_reloca_out (output_bfd, &outrel, loc);
4595 }
4596
4597 /* Mark some specially defined symbols as absolute. */
9637f6ef 4598 if (h == ia64_info->root.hdynamic
cbe79dfe
TG		 4599 || h == ia64_info->root.hgot
4600 || h == ia64_info->root.hplt)
4601 sym->st_shndx = SHN_ABS;
4602
4603 return TRUE;
4604}
4605
4606static bfd_boolean
4607elfNN_ia64_finish_dynamic_sections (bfd *abfd,
4608 struct bfd_link_info *info)
4609{
4610 struct elfNN_ia64_link_hash_table *ia64_info;
4611 bfd *dynobj;
4612
4613 ia64_info = elfNN_ia64_hash_table (info);
4614 if (ia64_info == NULL)
4615 return FALSE;
4616
4617 dynobj = ia64_info->root.dynobj;
4618
ce558b89 4619 if (ia64_info->root.dynamic_sections_created)
cbe79dfe
TG		 4620 {
4621 ElfNN_External_Dyn *dyncon, *dynconend;
4622 asection *sdyn, *sgotplt;
4623 bfd_vma gp_val;
4624
3d4d4302 4625 sdyn = bfd_get_linker_section (dynobj, ".dynamic");
ce558b89 4626 sgotplt = ia64_info->root.sgotplt;
cbe79dfe
TG		 4627 BFD_ASSERT (sdyn != NULL);
4628 dyncon = (ElfNN_External_Dyn *) sdyn->contents;
4629 dynconend = (ElfNN_External_Dyn *) (sdyn->contents + sdyn->size);
4630
4631 gp_val = _bfd_get_gp_value (abfd);
4632
4633 for (; dyncon < dynconend; dyncon++)
4634 {
4635 Elf_Internal_Dyn dyn;
4636
4637 bfd_elfNN_swap_dyn_in (dynobj, dyncon, &dyn);
4638
4639 switch (dyn.d_tag)
4640 {
4641 case DT_PLTGOT:
4642 dyn.d_un.d_ptr = gp_val;
4643 break;
4644
4645 case DT_PLTRELSZ:
4646 dyn.d_un.d_val = (ia64_info->minplt_entries
4647 * sizeof (ElfNN_External_Rela));
4648 break;
4649
4650 case DT_JMPREL:
4651 /* See the comment above in finish_dynamic_symbol. */
4652 dyn.d_un.d_ptr = (ia64_info->rel_pltoff_sec->output_section->vma
4653 + ia64_info->rel_pltoff_sec->output_offset
4654 + (ia64_info->rel_pltoff_sec->reloc_count
4655 * sizeof (ElfNN_External_Rela)));
4656 break;
4657
4658 case DT_IA_64_PLT_RESERVE:
4659 dyn.d_un.d_ptr = (sgotplt->output_section->vma
4660 + sgotplt->output_offset);
4661 break;
cbe79dfe
TG		 4662 }
4663
4664 bfd_elfNN_swap_dyn_out (abfd, &dyn, dyncon);
4665 }
4666
4667 /* Initialize the PLT0 entry. */
4668 if (ia64_info->root.splt)
4669 {
4670 bfd_byte *loc = ia64_info->root.splt->contents;
4671 bfd_vma pltres;
4672
4673 memcpy (loc, plt_header, PLT_HEADER_SIZE);
4674
4675 pltres = (sgotplt->output_section->vma
4676 + sgotplt->output_offset
4677 - gp_val);
4678
4679 ia64_elf_install_value (loc+1, pltres, R_IA64_GPREL22);
4680 }
4681 }
4682
4683 return TRUE;
4684}
4685\f
4686/* ELF file flag handling: */
4687
4688/* Function to keep IA-64 specific file flags. */
4689static bfd_boolean
4690elfNN_ia64_set_private_flags (bfd *abfd, flagword flags)
4691{
4692 BFD_ASSERT (!elf_flags_init (abfd)
4693 || elf_elfheader (abfd)->e_flags == flags);
4694
4695 elf_elfheader (abfd)->e_flags = flags;
4696 elf_flags_init (abfd) = TRUE;
4697 return TRUE;
4698}
4699
4700/* Merge backend specific data from an object file to the output
4701 object file when linking. */
b26a3d58 4702
cbe79dfe 4703static bfd_boolean
50e03d47 4704elfNN_ia64_merge_private_bfd_data (bfd *ibfd, struct bfd_link_info *info)
cbe79dfe 4705{
50e03d47 4706 bfd *obfd = info->output_bfd;
cbe79dfe
TG		 4707 flagword out_flags;
4708 flagword in_flags;
4709 bfd_boolean ok = TRUE;
4710
6b728d32
AM		 4711 /* FIXME: What should be checked when linking shared libraries? */
4712 if ((ibfd->flags & DYNAMIC) != 0)
4713 return TRUE;
4714
b26a3d58
ST		 4715 if (!is_ia64_elf (ibfd) || !is_ia64_elf (obfd))
4716 return TRUE;
cbe79dfe
TG		 4717
4718 in_flags = elf_elfheader (ibfd)->e_flags;
4719 out_flags = elf_elfheader (obfd)->e_flags;
4720
4721 if (! elf_flags_init (obfd))
4722 {
4723 elf_flags_init (obfd) = TRUE;
4724 elf_elfheader (obfd)->e_flags = in_flags;
4725
4726 if (bfd_get_arch (obfd) == bfd_get_arch (ibfd)
4727 && bfd_get_arch_info (obfd)->the_default)
4728 {
4729 return bfd_set_arch_mach (obfd, bfd_get_arch (ibfd),
4730 bfd_get_mach (ibfd));
4731 }
4732
4733 return TRUE;
4734 }
4735
4736 /* Check flag compatibility. */
4737 if (in_flags == out_flags)
4738 return TRUE;
4739
4740 /* Output has EF_IA_64_REDUCEDFP set only if all inputs have it set. */
4741 if (!(in_flags & EF_IA_64_REDUCEDFP) && (out_flags & EF_IA_64_REDUCEDFP))
4742 elf_elfheader (obfd)->e_flags &= ~EF_IA_64_REDUCEDFP;
4743
4744 if ((in_flags & EF_IA_64_TRAPNIL) != (out_flags & EF_IA_64_TRAPNIL))
4745 {
4eca0228 4746 _bfd_error_handler
871b3ab2 4747 (_("%pB: linking trap-on-NULL-dereference with non-trapping files"),
cbe79dfe
TG		 4748 ibfd);
4749
4750 bfd_set_error (bfd_error_bad_value);
4751 ok = FALSE;
4752 }
4753 if ((in_flags & EF_IA_64_BE) != (out_flags & EF_IA_64_BE))
4754 {
4eca0228 4755 _bfd_error_handler
871b3ab2 4756 (_("%pB: linking big-endian files with little-endian files"),
cbe79dfe
TG		 4757 ibfd);
4758
4759 bfd_set_error (bfd_error_bad_value);
4760 ok = FALSE;
4761 }
4762 if ((in_flags & EF_IA_64_ABI64) != (out_flags & EF_IA_64_ABI64))
4763 {
4eca0228 4764 _bfd_error_handler
871b3ab2 4765 (_("%pB: linking 64-bit files with 32-bit files"),
cbe79dfe
TG		 4766 ibfd);
4767
4768 bfd_set_error (bfd_error_bad_value);
4769 ok = FALSE;
4770 }
4771 if ((in_flags & EF_IA_64_CONS_GP) != (out_flags & EF_IA_64_CONS_GP))
4772 {
4eca0228 4773 _bfd_error_handler
871b3ab2 4774 (_("%pB: linking constant-gp files with non-constant-gp files"),
cbe79dfe
TG		 4775 ibfd);
4776
4777 bfd_set_error (bfd_error_bad_value);
4778 ok = FALSE;
4779 }
4780 if ((in_flags & EF_IA_64_NOFUNCDESC_CONS_GP)
4781 != (out_flags & EF_IA_64_NOFUNCDESC_CONS_GP))
4782 {
4eca0228 4783 _bfd_error_handler
871b3ab2 4784 (_("%pB: linking auto-pic files with non-auto-pic files"),
cbe79dfe
TG		 4785 ibfd);
4786
4787 bfd_set_error (bfd_error_bad_value);
4788 ok = FALSE;
4789 }
4790
4791 return ok;
4792}
4793
4794static bfd_boolean
2c3fc389 4795elfNN_ia64_print_private_bfd_data (bfd *abfd, void * ptr)
cbe79dfe
TG		 4796{
4797 FILE *file = (FILE *) ptr;
4798 flagword flags = elf_elfheader (abfd)->e_flags;
4799
4800 BFD_ASSERT (abfd != NULL && ptr != NULL);
4801
4802 fprintf (file, "private flags = %s%s%s%s%s%s%s%s\n",
4803 (flags & EF_IA_64_TRAPNIL) ? "TRAPNIL, " : "",
4804 (flags & EF_IA_64_EXT) ? "EXT, " : "",
4805 (flags & EF_IA_64_BE) ? "BE, " : "LE, ",
4806 (flags & EF_IA_64_REDUCEDFP) ? "REDUCEDFP, " : "",
4807 (flags & EF_IA_64_CONS_GP) ? "CONS_GP, " : "",
4808 (flags & EF_IA_64_NOFUNCDESC_CONS_GP) ? "NOFUNCDESC_CONS_GP, " : "",
4809 (flags & EF_IA_64_ABSOLUTE) ? "ABSOLUTE, " : "",
4810 (flags & EF_IA_64_ABI64) ? "ABI64" : "ABI32");
4811
4812 _bfd_elf_print_private_bfd_data (abfd, ptr);
4813 return TRUE;
4814}
4815
4816static enum elf_reloc_type_class
7e612e98
AM		 4817elfNN_ia64_reloc_type_class (const struct bfd_link_info *info ATTRIBUTE_UNUSED,
4818 const asection *rel_sec ATTRIBUTE_UNUSED,
4819 const Elf_Internal_Rela *rela)
cbe79dfe
TG		 4820{
4821 switch ((int) ELFNN_R_TYPE (rela->r_info))
4822 {
4823 case R_IA64_REL32MSB:
4824 case R_IA64_REL32LSB:
4825 case R_IA64_REL64MSB:
4826 case R_IA64_REL64LSB:
4827 return reloc_class_relative;
4828 case R_IA64_IPLTMSB:
4829 case R_IA64_IPLTLSB:
4830 return reloc_class_plt;
4831 case R_IA64_COPY:
4832 return reloc_class_copy;
4833 default:
4834 return reloc_class_normal;
4835 }
4836}
4837
4838static const struct bfd_elf_special_section elfNN_ia64_special_sections[] =
4839{
07d6d2b8 4840 { STRING_COMMA_LEN (".sbss"), -1, SHT_NOBITS, SHF_ALLOC + SHF_WRITE + SHF_IA_64_SHORT },
cbe79dfe 4841 { STRING_COMMA_LEN (".sdata"), -1, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE + SHF_IA_64_SHORT },
07d6d2b8 4842 { NULL, 0, 0, 0, 0 }
cbe79dfe
TG		 4843};
4844
4845static bfd_boolean
4846elfNN_ia64_object_p (bfd *abfd)
4847{
4848 asection *sec;
4849 asection *group, *unwi, *unw;
4850 flagword flags;
4851 const char *name;
4852 char *unwi_name, *unw_name;
986f0783 4853 size_t amt;
cbe79dfe
TG		 4854
4855 if (abfd->flags & DYNAMIC)
4856 return TRUE;
4857
4858 /* Flags for fake group section. */
4859 flags = (SEC_LINKER_CREATED | SEC_GROUP | SEC_LINK_ONCE
4860 | SEC_EXCLUDE);
4861
4862 /* We add a fake section group for each .gnu.linkonce.t.* section,
4863 which isn't in a section group, and its unwind sections. */
4864 for (sec = abfd->sections; sec != NULL; sec = sec->next)
4865 {
4866 if (elf_sec_group (sec) == NULL
4867 && ((sec->flags & (SEC_LINK_ONCE | SEC_CODE | SEC_GROUP))
4868 == (SEC_LINK_ONCE | SEC_CODE))
4869 && CONST_STRNEQ (sec->name, ".gnu.linkonce.t."))
4870 {
4871 name = sec->name + 16;
4872
4873 amt = strlen (name) + sizeof (".gnu.linkonce.ia64unwi.");
4874 unwi_name = bfd_alloc (abfd, amt);
4875 if (!unwi_name)
4876 return FALSE;
4877
4878 strcpy (stpcpy (unwi_name, ".gnu.linkonce.ia64unwi."), name);
4879 unwi = bfd_get_section_by_name (abfd, unwi_name);
4880
4881 amt = strlen (name) + sizeof (".gnu.linkonce.ia64unw.");
4882 unw_name = bfd_alloc (abfd, amt);
4883 if (!unw_name)
4884 return FALSE;
4885
4886 strcpy (stpcpy (unw_name, ".gnu.linkonce.ia64unw."), name);
4887 unw = bfd_get_section_by_name (abfd, unw_name);
4888
4889 /* We need to create a fake group section for it and its
4890 unwind sections. */
4891 group = bfd_make_section_anyway_with_flags (abfd, name,
4892 flags);
4893 if (group == NULL)
4894 return FALSE;
4895
4896 /* Move the fake group section to the beginning. */
4897 bfd_section_list_remove (abfd, group);
4898 bfd_section_list_prepend (abfd, group);
4899
4900 elf_next_in_group (group) = sec;
4901
4902 elf_group_name (sec) = name;
4903 elf_next_in_group (sec) = sec;
4904 elf_sec_group (sec) = group;
4905
4906 if (unwi)
4907 {
4908 elf_group_name (unwi) = name;
4909 elf_next_in_group (unwi) = sec;
4910 elf_next_in_group (sec) = unwi;
4911 elf_sec_group (unwi) = group;
4912 }
4913
4914 if (unw)
4915 {
4916 elf_group_name (unw) = name;
4917 if (unwi)
4918 {
4919 elf_next_in_group (unw) = elf_next_in_group (unwi);
4920 elf_next_in_group (unwi) = unw;
4921 }
4922 else
4923 {
4924 elf_next_in_group (unw) = sec;
4925 elf_next_in_group (sec) = unw;
4926 }
4927 elf_sec_group (unw) = group;
4928 }
4929
4930 /* Fake SHT_GROUP section header. */
4931 elf_section_data (group)->this_hdr.bfd_section = group;
4932 elf_section_data (group)->this_hdr.sh_type = SHT_GROUP;
4933 }
4934 }
4935 return TRUE;
4936}
4937
4938static bfd_boolean
4939elfNN_ia64_hpux_vec (const bfd_target *vec)
4940{
6d00b590
AM		 4941 extern const bfd_target ia64_elfNN_hpux_be_vec;
4942 return (vec == &ia64_elfNN_hpux_be_vec);
cbe79dfe
TG		 4943}
4944
ed7e9d0b
AM		 4945static bfd_boolean
4946elfNN_hpux_init_file_header (bfd *abfd, struct bfd_link_info *info)
cbe79dfe 4947{
ed7e9d0b 4948 Elf_Internal_Ehdr *i_ehdrp;
cbe79dfe 4949
ed7e9d0b
AM		 4950 if (!_bfd_elf_init_file_header (abfd, info))
4951 return FALSE;
4952
4953 i_ehdrp = elf_elfheader (abfd);
cbe79dfe
TG		 4954 i_ehdrp->e_ident[EI_OSABI] = get_elf_backend_data (abfd)->elf_osabi;
4955 i_ehdrp->e_ident[EI_ABIVERSION] = 1;
ed7e9d0b 4956 return TRUE;
cbe79dfe
TG		 4957}
4958
4959static bfd_boolean
4960elfNN_hpux_backend_section_from_bfd_section (bfd *abfd ATTRIBUTE_UNUSED,
4961 asection *sec, int *retval)
4962{
4963 if (bfd_is_com_section (sec))
4964 {
4965 *retval = SHN_IA_64_ANSI_COMMON;
4966 return TRUE;
4967 }
4968 return FALSE;
4969}
4970
4971static void
4972elfNN_hpux_backend_symbol_processing (bfd *abfd ATTRIBUTE_UNUSED,
4973 asymbol *asym)
4974{
4975 elf_symbol_type *elfsym = (elf_symbol_type *) asym;
4976
4977 switch (elfsym->internal_elf_sym.st_shndx)
4978 {
4979 case SHN_IA_64_ANSI_COMMON:
4980 asym->section = bfd_com_section_ptr;
4981 asym->value = elfsym->internal_elf_sym.st_size;
4982 asym->flags &= ~BSF_GLOBAL;
4983 break;
4984 }
4985}
a859124d
AM		 4986
4987static void
4988ignore_errors (const char *fmt ATTRIBUTE_UNUSED, ...)
4989{
4990}
cbe79dfe 4991\f
6d00b590 4992#define TARGET_LITTLE_SYM ia64_elfNN_le_vec
cbe79dfe 4993#define TARGET_LITTLE_NAME "elfNN-ia64-little"
6d00b590 4994#define TARGET_BIG_SYM ia64_elfNN_be_vec
cbe79dfe
TG		 4995#define TARGET_BIG_NAME "elfNN-ia64-big"
4996#define ELF_ARCH bfd_arch_ia64
4997#define ELF_TARGET_ID IA64_ELF_DATA
4998#define ELF_MACHINE_CODE EM_IA_64
4999#define ELF_MACHINE_ALT1 1999 /* EAS2.3 */
5000#define ELF_MACHINE_ALT2 1998 /* EAS2.2 */
5001#define ELF_MAXPAGESIZE 0x10000 /* 64KB */
5002#define ELF_COMMONPAGESIZE 0x4000 /* 16KB */
5003
5004#define elf_backend_section_from_shdr \
5005 elfNN_ia64_section_from_shdr
5006#define elf_backend_section_flags \
5007 elfNN_ia64_section_flags
5008#define elf_backend_fake_sections \
5009 elfNN_ia64_fake_sections
5010#define elf_backend_final_write_processing \
5011 elfNN_ia64_final_write_processing
5012#define elf_backend_add_symbol_hook \
5013 elfNN_ia64_add_symbol_hook
5014#define elf_backend_additional_program_headers \
5015 elfNN_ia64_additional_program_headers
5016#define elf_backend_modify_segment_map \
5017 elfNN_ia64_modify_segment_map
6d6c25c8
AM		 5018#define elf_backend_modify_headers \
5019 elfNN_ia64_modify_headers
cbe79dfe
TG		 5020#define elf_info_to_howto \
5021 elfNN_ia64_info_to_howto
5022
5023#define bfd_elfNN_bfd_reloc_type_lookup \
5024 ia64_elf_reloc_type_lookup
5025#define bfd_elfNN_bfd_reloc_name_lookup \
5026 ia64_elf_reloc_name_lookup
5027#define bfd_elfNN_bfd_is_local_label_name \
5028 elfNN_ia64_is_local_label_name
5029#define bfd_elfNN_bfd_relax_section \
5030 elfNN_ia64_relax_section
5031
5032#define elf_backend_object_p \
5033 elfNN_ia64_object_p
5034
5035/* Stuff for the BFD linker: */
5036#define bfd_elfNN_bfd_link_hash_table_create \
5037 elfNN_ia64_hash_table_create
cbe79dfe
TG		 5038#define elf_backend_create_dynamic_sections \
5039 elfNN_ia64_create_dynamic_sections
5040#define elf_backend_check_relocs \
5041 elfNN_ia64_check_relocs
5042#define elf_backend_adjust_dynamic_symbol \
5043 elfNN_ia64_adjust_dynamic_symbol
5044#define elf_backend_size_dynamic_sections \
5045 elfNN_ia64_size_dynamic_sections
5046#define elf_backend_omit_section_dynsym \
d00dd7dc 5047 _bfd_elf_omit_section_dynsym_all
cbe79dfe
TG		 5048#define elf_backend_relocate_section \
5049 elfNN_ia64_relocate_section
5050#define elf_backend_finish_dynamic_symbol \
5051 elfNN_ia64_finish_dynamic_symbol
5052#define elf_backend_finish_dynamic_sections \
5053 elfNN_ia64_finish_dynamic_sections
5054#define bfd_elfNN_bfd_final_link \
5055 elfNN_ia64_final_link
5056
5057#define bfd_elfNN_bfd_merge_private_bfd_data \
5058 elfNN_ia64_merge_private_bfd_data
5059#define bfd_elfNN_bfd_set_private_flags \
5060 elfNN_ia64_set_private_flags
5061#define bfd_elfNN_bfd_print_private_bfd_data \
5062 elfNN_ia64_print_private_bfd_data
5063
5064#define elf_backend_plt_readonly 1
6e8d06db 5065#define elf_backend_can_gc_sections 1
cbe79dfe
TG		 5066#define elf_backend_want_plt_sym 0
5067#define elf_backend_plt_alignment 5
5068#define elf_backend_got_header_size 0
5069#define elf_backend_want_got_plt 1
5070#define elf_backend_may_use_rel_p 1
5071#define elf_backend_may_use_rela_p 1
5072#define elf_backend_default_use_rela_p 1
5073#define elf_backend_want_dynbss 0
5074#define elf_backend_copy_indirect_symbol elfNN_ia64_hash_copy_indirect
5075#define elf_backend_hide_symbol elfNN_ia64_hash_hide_symbol
5076#define elf_backend_fixup_symbol _bfd_elf_link_hash_fixup_symbol
5077#define elf_backend_reloc_type_class elfNN_ia64_reloc_type_class
5078#define elf_backend_rela_normal 1
64f52338 5079#define elf_backend_dtrel_excludes_plt 1
cbe79dfe
TG		 5080#define elf_backend_special_sections elfNN_ia64_special_sections
5081#define elf_backend_default_execstack 0
5082
5083/* FIXME: PR 290: The Intel C compiler generates SHT_IA_64_UNWIND with
5084 SHF_LINK_ORDER. But it doesn't set the sh_link or sh_info fields.
5085 We don't want to flood users with so many error messages. We turn
5086 off the warning for now. It will be turned on later when the Intel
5087 compiler is fixed. */
a859124d 5088#define elf_backend_link_order_error_handler ignore_errors
cbe79dfe
TG		 5089
5090#include "elfNN-target.h"
5091
5092/* HPUX-specific vectors. */
5093
5094#undef TARGET_LITTLE_SYM
5095#undef TARGET_LITTLE_NAME
5096#undef TARGET_BIG_SYM
07d6d2b8
AM		 5097#define TARGET_BIG_SYM ia64_elfNN_hpux_be_vec
5098#undef TARGET_BIG_NAME
5099#define TARGET_BIG_NAME "elfNN-ia64-hpux-big"
cbe79dfe
TG		 5100
5101/* These are HP-UX specific functions. */
5102
ed7e9d0b
AM		 5103#undef elf_backend_init_file_header
5104#define elf_backend_init_file_header elfNN_hpux_init_file_header
cbe79dfe
TG		 5105
5106#undef elf_backend_section_from_bfd_section
5107#define elf_backend_section_from_bfd_section elfNN_hpux_backend_section_from_bfd_section
5108
5109#undef elf_backend_symbol_processing
5110#define elf_backend_symbol_processing elfNN_hpux_backend_symbol_processing
5111
5112#undef elf_backend_want_p_paddr_set_to_zero
5113#define elf_backend_want_p_paddr_set_to_zero 1
5114
5115#undef ELF_COMMONPAGESIZE
5116#undef ELF_OSABI
5117#define ELF_OSABI ELFOSABI_HPUX
5118
5119#undef elfNN_bed
5120#define elfNN_bed elfNN_ia64_hpux_bed
5121
5122#include "elfNN-target.h"
GDB Binutils - Deliverables
This page took 0.769207 seconds and 4 git commands to generate.