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