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