projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
* elfxx-ia64.c (struct elfNN_ia64_allocate_data): Add only_got.
[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
4a78a1f4
AS		 1341 if (ia64_info->root.dynamic_sections_created)
1342 {
1343 /* Resize .rela.got. */
1344 ia64_info->rel_got_sec->size = 0;
1345 if (link_info->shared
1346 && ia64_info->self_dtpmod_offset != (bfd_vma) -1)
1347 ia64_info->rel_got_sec->size += sizeof (ElfNN_External_Rela);
1348 data.only_got = TRUE;
1349 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_dynrel_entries,
1350 &data);
1351 }
2c4c2bc0
RH		 1352 }
1353
d9c458fc 1354 if (!link_info->need_relax_finalize)
c7996ad6
L		 1355 sec->need_finalize_relax = 0;
1356
748abff6 1357 *again = changed_contents || changed_relocs;
b34976b6 1358 return TRUE;
748abff6
RH		 1359
1360 error_return:
6cdc0ccc
AM		 1361 if (isymbuf != NULL && (unsigned char *) isymbuf != symtab_hdr->contents)
1362 free (isymbuf);
1363 if (contents != NULL
1364 && elf_section_data (sec)->this_hdr.contents != contents)
1365 free (contents);
1366 if (internal_relocs != NULL
1367 && elf_section_data (sec)->relocs != internal_relocs)
1368 free (internal_relocs);
b34976b6 1369 return FALSE;
748abff6 1370}
2c4c2bc0
RH		 1371
1372static void
bbb268c3 1373elfNN_ia64_relax_ldxmov (contents, off)
2c4c2bc0
RH		 1374 bfd_byte *contents;
1375 bfd_vma off;
1376{
1377 int shift, r1, r3;
1378 bfd_vma dword, insn;
1379
1380 switch ((int)off & 0x3)
1381 {
1382 case 0: shift = 5; break;
1383 case 1: shift = 14; off += 3; break;
1384 case 2: shift = 23; off += 6; break;
60d8b524 1385 default:
2c4c2bc0
RH		 1386 abort ();
1387 }
1388
bbb268c3 1389 dword = bfd_getl64 (contents + off);
2c4c2bc0
RH		 1390 insn = (dword >> shift) & 0x1ffffffffffLL;
1391
1392 r1 = (insn >> 6) & 127;
1393 r3 = (insn >> 20) & 127;
1394 if (r1 == r3)
1395 insn = 0x8000000; /* nop */
1396 else
1397 insn = (insn & 0x7f01fff) | 0x10800000000LL; /* (qp) mov r1 = r3 */
1398
1399 dword &= ~(0x1ffffffffffLL << shift);
1400 dword |= (insn << shift);
bbb268c3 1401 bfd_putl64 (dword, contents + off);
2c4c2bc0 1402}
800eeca4 1403\f
b34976b6 1404/* Return TRUE if NAME is an unwind table section name. */
81545d45 1405
b34976b6 1406static inline bfd_boolean
d9cf1b54
AM		 1407is_unwind_section_name (abfd, name)
1408 bfd *abfd;
81545d45
RH		 1409 const char *name;
1410{
579f31ac 1411 size_t len1, len2, len3;
81545d45 1412
d9cf1b54
AM		 1413 if (elfNN_ia64_hpux_vec (abfd->xvec)
1414 && !strcmp (name, ELF_STRING_ia64_unwind_hdr))
b34976b6 1415 return FALSE;
d9cf1b54 1416
81545d45
RH		 1417 len1 = sizeof (ELF_STRING_ia64_unwind) - 1;
1418 len2 = sizeof (ELF_STRING_ia64_unwind_info) - 1;
579f31ac
JJ		 1419 len3 = sizeof (ELF_STRING_ia64_unwind_once) - 1;
1420 return ((strncmp (name, ELF_STRING_ia64_unwind, len1) == 0
1421 && strncmp (name, ELF_STRING_ia64_unwind_info, len2) != 0)
1422 || strncmp (name, ELF_STRING_ia64_unwind_once, len3) == 0);
81545d45
RH		 1423}
1424
800eeca4 1425/* Handle an IA-64 specific section when reading an object file. This
6dc132d9
L		 1426 is called when bfd_section_from_shdr finds a section with an unknown
1427 type. */
800eeca4 1428
b34976b6 1429static bfd_boolean
6dc132d9
L		 1430elfNN_ia64_section_from_shdr (bfd *abfd,
1431 Elf_Internal_Shdr *hdr,
1432 const char *name,
1433 int shindex)
800eeca4
JW		 1434{
1435 asection *newsect;
1436
1437 /* There ought to be a place to keep ELF backend specific flags, but
1438 at the moment there isn't one. We just keep track of the
1439 sections by their name, instead. Fortunately, the ABI gives
1440 suggested names for all the MIPS specific sections, so we will
1441 probably get away with this. */
1442 switch (hdr->sh_type)
1443 {
1444 case SHT_IA_64_UNWIND:
d9cf1b54 1445 case SHT_IA_64_HP_OPT_ANOT:
800eeca4
JW		 1446 break;
1447
1448 case SHT_IA_64_EXT:
1449 if (strcmp (name, ELF_STRING_ia64_archext) != 0)
b34976b6 1450 return FALSE;
800eeca4
JW		 1451 break;
1452
1453 default:
b34976b6 1454 return FALSE;
800eeca4
JW		 1455 }
1456
6dc132d9 1457 if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name, shindex))
b34976b6 1458 return FALSE;
800eeca4
JW		 1459 newsect = hdr->bfd_section;
1460
b34976b6 1461 return TRUE;
fa152c49
JW		 1462}
1463
1464/* Convert IA-64 specific section flags to bfd internal section flags. */
1465
1466/* ??? There is no bfd internal flag equivalent to the SHF_IA_64_NORECOV
1467 flag. */
1468
b34976b6 1469static bfd_boolean
bbe66d08 1470elfNN_ia64_section_flags (flags, hdr)
fa152c49 1471 flagword *flags;
1829f4b2 1472 const Elf_Internal_Shdr *hdr;
fa152c49 1473{
800eeca4 1474 if (hdr->sh_flags & SHF_IA_64_SHORT)
fa152c49 1475 *flags |= SEC_SMALL_DATA;
800eeca4 1476
b34976b6 1477 return TRUE;
800eeca4
JW		 1478}
1479
1480/* Set the correct type for an IA-64 ELF section. We do this by the
1481 section name, which is a hack, but ought to work. */
1482
b34976b6 1483static bfd_boolean
bbe66d08 1484elfNN_ia64_fake_sections (abfd, hdr, sec)
64bf6ae6 1485 bfd *abfd ATTRIBUTE_UNUSED;
947216bf 1486 Elf_Internal_Shdr *hdr;
800eeca4
JW		 1487 asection *sec;
1488{
1489 register const char *name;
1490
1491 name = bfd_get_section_name (abfd, sec);
1492
d9cf1b54 1493 if (is_unwind_section_name (abfd, name))
81545d45
RH		 1494 {
1495 /* We don't have the sections numbered at this point, so sh_info
1496 is set later, in elfNN_ia64_final_write_processing. */
1497 hdr->sh_type = SHT_IA_64_UNWIND;
1498 hdr->sh_flags |= SHF_LINK_ORDER;
1499 }
800eeca4
JW		 1500 else if (strcmp (name, ELF_STRING_ia64_archext) == 0)
1501 hdr->sh_type = SHT_IA_64_EXT;
d9cf1b54
AM		 1502 else if (strcmp (name, ".HP.opt_annot") == 0)
1503 hdr->sh_type = SHT_IA_64_HP_OPT_ANOT;
800eeca4 1504 else if (strcmp (name, ".reloc") == 0)
5e8d7549
NC		 1505 /* This is an ugly, but unfortunately necessary hack that is
1506 needed when producing EFI binaries on IA-64. It tells
1507 elf.c:elf_fake_sections() not to consider ".reloc" as a section
1508 containing ELF relocation info. We need this hack in order to
1509 be able to generate ELF binaries that can be translated into
1510 EFI applications (which are essentially COFF objects). Those
1511 files contain a COFF ".reloc" section inside an ELFNN object,
1512 which would normally cause BFD to segfault because it would
1513 attempt to interpret this section as containing relocation
1514 entries for section "oc". With this hack enabled, ".reloc"
1515 will be treated as a normal data section, which will avoid the
1516 segfault. However, you won't be able to create an ELFNN binary
1517 with a section named "oc" that needs relocations, but that's
1518 the kind of ugly side-effects you get when detecting section
1519 types based on their names... In practice, this limitation is
1520 unlikely to bite. */
800eeca4
JW		 1521 hdr->sh_type = SHT_PROGBITS;
1522
1523 if (sec->flags & SEC_SMALL_DATA)
1524 hdr->sh_flags |= SHF_IA_64_SHORT;
1525
b34976b6 1526 return TRUE;
800eeca4
JW		 1527}
1528
81545d45
RH		 1529/* The final processing done just before writing out an IA-64 ELF
1530 object file. */
1531
1532static void
1533elfNN_ia64_final_write_processing (abfd, linker)
1534 bfd *abfd;
b34976b6 1535 bfd_boolean linker ATTRIBUTE_UNUSED;
81545d45
RH		 1536{
1537 Elf_Internal_Shdr *hdr;
38ce5b11 1538 asection *s;
81545d45
RH		 1539
1540 for (s = abfd->sections; s; s = s->next)
1541 {
1542 hdr = &elf_section_data (s)->this_hdr;
1543 switch (hdr->sh_type)
1544 {
1545 case SHT_IA_64_UNWIND:
38ce5b11
L		 1546 /* The IA-64 processor-specific ABI requires setting sh_link
1547 to the unwind section, whereas HP-UX requires sh_info to
1548 do so. For maximum compatibility, we'll set both for
1549 now... */
1550 hdr->sh_info = hdr->sh_link;
81545d45
RH		 1551 break;
1552 }
1553 }
9d46020e
AM		 1554
1555 if (! elf_flags_init (abfd))
1556 {
1557 unsigned long flags = 0;
1558
1559 if (abfd->xvec->byteorder == BFD_ENDIAN_BIG)
1560 flags |= EF_IA_64_BE;
1561 if (bfd_get_mach (abfd) == bfd_mach_ia64_elf64)
1562 flags |= EF_IA_64_ABI64;
1563
1564 elf_elfheader(abfd)->e_flags = flags;
b34976b6 1565 elf_flags_init (abfd) = TRUE;
9d46020e 1566 }
81545d45
RH		 1567}
1568
800eeca4
JW		 1569/* Hook called by the linker routine which adds symbols from an object
1570 file. We use it to put .comm items in .sbss, and not .bss. */
1571
b34976b6 1572static bfd_boolean
bbe66d08 1573elfNN_ia64_add_symbol_hook (abfd, info, sym, namep, flagsp, secp, valp)
800eeca4
JW		 1574 bfd *abfd;
1575 struct bfd_link_info *info;
555cd476 1576 Elf_Internal_Sym *sym;
64bf6ae6
JW		 1577 const char **namep ATTRIBUTE_UNUSED;
1578 flagword *flagsp ATTRIBUTE_UNUSED;
800eeca4
JW		 1579 asection **secp;
1580 bfd_vma *valp;
1581{
1582 if (sym->st_shndx == SHN_COMMON
1049f94e 1583 && !info->relocatable
c0846b23 1584 && sym->st_size <= elf_gp_size (abfd))
800eeca4
JW		 1585 {
1586 /* Common symbols less than or equal to -G nn bytes are
1587 automatically put into .sbss. */
1588
1589 asection *scomm = bfd_get_section_by_name (abfd, ".scommon");
1590
1591 if (scomm == NULL)
1592 {
3496cb2a
L		 1593 scomm = bfd_make_section_with_flags (abfd, ".scommon",
1594 (SEC_ALLOC
1595 | SEC_IS_COMMON
1596 | SEC_LINKER_CREATED));
1597 if (scomm == NULL)
b34976b6 1598 return FALSE;
800eeca4
JW		 1599 }
1600
1601 *secp = scomm;
1602 *valp = sym->st_size;
1603 }
1604
b34976b6 1605 return TRUE;
800eeca4
JW		 1606}
1607
1608/* Return the number of additional phdrs we will need. */
1609
1610static int
bbe66d08 1611elfNN_ia64_additional_program_headers (abfd)
800eeca4
JW		 1612 bfd *abfd;
1613{
1614 asection *s;
1615 int ret = 0;
1616
1617 /* See if we need a PT_IA_64_ARCHEXT segment. */
1618 s = bfd_get_section_by_name (abfd, ELF_STRING_ia64_archext);
1619 if (s && (s->flags & SEC_LOAD))
1620 ++ret;
1621
81545d45
RH		 1622 /* Count how many PT_IA_64_UNWIND segments we need. */
1623 for (s = abfd->sections; s; s = s->next)
d9cf1b54 1624 if (is_unwind_section_name (abfd, s->name) && (s->flags & SEC_LOAD))
81545d45 1625 ++ret;
800eeca4
JW		 1626
1627 return ret;
1628}
1629
b34976b6 1630static bfd_boolean
c84fca4d 1631elfNN_ia64_modify_segment_map (abfd, info)
800eeca4 1632 bfd *abfd;
c84fca4d 1633 struct bfd_link_info *info ATTRIBUTE_UNUSED;
800eeca4
JW		 1634{
1635 struct elf_segment_map *m, **pm;
81545d45 1636 Elf_Internal_Shdr *hdr;
800eeca4
JW		 1637 asection *s;
1638
1639 /* If we need a PT_IA_64_ARCHEXT segment, it must come before
1640 all PT_LOAD segments. */
1641 s = bfd_get_section_by_name (abfd, ELF_STRING_ia64_archext);
1642 if (s && (s->flags & SEC_LOAD))
1643 {
1644 for (m = elf_tdata (abfd)->segment_map; m != NULL; m = m->next)
1645 if (m->p_type == PT_IA_64_ARCHEXT)
1646 break;
1647 if (m == NULL)
1648 {
dc810e39
AM		 1649 m = ((struct elf_segment_map *)
1650 bfd_zalloc (abfd, (bfd_size_type) sizeof *m));
800eeca4 1651 if (m == NULL)
b34976b6 1652 return FALSE;
800eeca4
JW		 1653
1654 m->p_type = PT_IA_64_ARCHEXT;
1655 m->count = 1;
1656 m->sections[0] = s;
1657
1658 /* We want to put it after the PHDR and INTERP segments. */
1659 pm = &elf_tdata (abfd)->segment_map;
1660 while (*pm != NULL
1661 && ((*pm)->p_type == PT_PHDR
1662 || (*pm)->p_type == PT_INTERP))
1663 pm = &(*pm)->next;
1664
1665 m->next = *pm;
1666 *pm = m;
1667 }
1668 }
1669
81545d45
RH		 1670 /* Install PT_IA_64_UNWIND segments, if needed. */
1671 for (s = abfd->sections; s; s = s->next)
800eeca4 1672 {
81545d45
RH		 1673 hdr = &elf_section_data (s)->this_hdr;
1674 if (hdr->sh_type != SHT_IA_64_UNWIND)
1675 continue;
1676
1677 if (s && (s->flags & SEC_LOAD))
800eeca4 1678 {
81545d45 1679 for (m = elf_tdata (abfd)->segment_map; m != NULL; m = m->next)
d9cf1b54
AM		 1680 if (m->p_type == PT_IA_64_UNWIND)
1681 {
40c97fc6
AM		 1682 int i;
1683
d9cf1b54
AM		 1684 /* Look through all sections in the unwind segment
1685 for a match since there may be multiple sections
1686 to a segment. */
40c97fc6
AM		 1687 for (i = m->count - 1; i >= 0; --i)
1688 if (m->sections[i] == s)
1689 break;
d9cf1b54 1690
40c97fc6 1691 if (i >= 0)
d9cf1b54
AM		 1692 break;
1693 }
81545d45 1694
800eeca4 1695 if (m == NULL)
81545d45 1696 {
dc810e39
AM		 1697 m = ((struct elf_segment_map *)
1698 bfd_zalloc (abfd, (bfd_size_type) sizeof *m));
81545d45 1699 if (m == NULL)
b34976b6 1700 return FALSE;
800eeca4 1701
81545d45
RH		 1702 m->p_type = PT_IA_64_UNWIND;
1703 m->count = 1;
1704 m->sections[0] = s;
1705 m->next = NULL;
800eeca4 1706
81545d45
RH		 1707 /* We want to put it last. */
1708 pm = &elf_tdata (abfd)->segment_map;
1709 while (*pm != NULL)
1710 pm = &(*pm)->next;
1711 *pm = m;
1712 }
800eeca4
JW		 1713 }
1714 }
1715
1716 /* Turn on PF_IA_64_NORECOV if needed. This involves traversing all of
1717 the input sections for each output section in the segment and testing
1718 for SHF_IA_64_NORECOV on each. */
1719 for (m = elf_tdata (abfd)->segment_map; m != NULL; m = m->next)
1720 if (m->p_type == PT_LOAD)
1721 {
1722 int i;
1723 for (i = m->count - 1; i >= 0; --i)
1724 {
8423293d 1725 struct bfd_link_order *order = m->sections[i]->map_head.link_order;
800eeca4
JW		 1726 while (order)
1727 {
1728 if (order->type == bfd_indirect_link_order)
1729 {
1730 asection *is = order->u.indirect.section;
1731 bfd_vma flags = elf_section_data(is)->this_hdr.sh_flags;
1732 if (flags & SHF_IA_64_NORECOV)
1733 {
1734 m->p_flags |= PF_IA_64_NORECOV;
1735 goto found;
1736 }
1737 }
1738 order = order->next;
1739 }
1740 }
1741 found:;
1742 }
1743
b34976b6 1744 return TRUE;
800eeca4
JW		 1745}
1746
800eeca4
JW		 1747/* According to the Tahoe assembler spec, all labels starting with a
1748 '.' are local. */
1749
b34976b6 1750static bfd_boolean
bbe66d08 1751elfNN_ia64_is_local_label_name (abfd, name)
64bf6ae6 1752 bfd *abfd ATTRIBUTE_UNUSED;
800eeca4
JW		 1753 const char *name;
1754{
1755 return name[0] == '.';
1756}
1757
1758/* Should we do dynamic things to this symbol? */
1759
b34976b6 1760static bfd_boolean
986a241f 1761elfNN_ia64_dynamic_symbol_p (h, info, r_type)
800eeca4
JW		 1762 struct elf_link_hash_entry *h;
1763 struct bfd_link_info *info;
986a241f 1764 int r_type;
800eeca4 1765{
986a241f
RH		 1766 bfd_boolean ignore_protected
1767 = ((r_type & 0xf8) == 0x40 /* FPTR relocs */
1768 || (r_type & 0xf8) == 0x50); /* LTOFF_FPTR relocs */
800eeca4 1769
986a241f 1770 return _bfd_elf_dynamic_symbol_p (h, info, ignore_protected);
800eeca4
JW		 1771}
1772\f
800eeca4 1773static struct bfd_hash_entry*
bbe66d08 1774elfNN_ia64_new_elf_hash_entry (entry, table, string)
800eeca4
JW		 1775 struct bfd_hash_entry *entry;
1776 struct bfd_hash_table *table;
1777 const char *string;
1778{
bbe66d08
JW		 1779 struct elfNN_ia64_link_hash_entry *ret;
1780 ret = (struct elfNN_ia64_link_hash_entry *) entry;
800eeca4
JW		 1781
1782 /* Allocate the structure if it has not already been allocated by a
1783 subclass. */
1784 if (!ret)
1785 ret = bfd_hash_allocate (table, sizeof (*ret));
1786
1787 if (!ret)
1788 return 0;
1789
800eeca4 1790 /* Call the allocation method of the superclass. */
bbe66d08 1791 ret = ((struct elfNN_ia64_link_hash_entry *)
800eeca4
JW		 1792 _bfd_elf_link_hash_newfunc ((struct bfd_hash_entry *) ret,
1793 table, string));
1794
4f40114d 1795 ret->info = NULL;
800eeca4
JW		 1796 return (struct bfd_hash_entry *) ret;
1797}
1798
1799static void
b48fa14c 1800elfNN_ia64_hash_copy_indirect (bed, xdir, xind)
9c5bfbb7 1801 const struct elf_backend_data *bed ATTRIBUTE_UNUSED;
800eeca4
JW		 1802 struct elf_link_hash_entry *xdir, *xind;
1803{
bbe66d08 1804 struct elfNN_ia64_link_hash_entry *dir, *ind;
800eeca4 1805
57c7194e
AM		 1806 dir = (struct elfNN_ia64_link_hash_entry *) xdir;
1807 ind = (struct elfNN_ia64_link_hash_entry *) xind;
800eeca4 1808
3e932841 1809 /* Copy down any references that we may have already seen to the
800eeca4
JW		 1810 symbol which just became indirect. */
1811
f5385ebf
AM		 1812 dir->root.ref_dynamic |= ind->root.ref_dynamic;
1813 dir->root.ref_regular |= ind->root.ref_regular;
1814 dir->root.ref_regular_nonweak |= ind->root.ref_regular_nonweak;
1815 dir->root.needs_plt |= ind->root.needs_plt;
800eeca4 1816
1e370bd2 1817 if (ind->root.root.type != bfd_link_hash_indirect)
0a991dfe
AM		 1818 return;
1819
800eeca4
JW		 1820 /* Copy over the got and plt data. This would have been done
1821 by check_relocs. */
1822
1823 if (dir->info == NULL)
1824 {
bbe66d08 1825 struct elfNN_ia64_dyn_sym_info *dyn_i;
800eeca4
JW		 1826
1827 dir->info = dyn_i = ind->info;
1828 ind->info = NULL;
1829
1830 /* Fix up the dyn_sym_info pointers to the global symbol. */
1831 for (; dyn_i; dyn_i = dyn_i->next)
1832 dyn_i->h = &dir->root;
1833 }
1834 BFD_ASSERT (ind->info == NULL);
1835
1836 /* Copy over the dynindx. */
1837
1838 if (dir->root.dynindx == -1)
1839 {
1840 dir->root.dynindx = ind->root.dynindx;
1841 dir->root.dynstr_index = ind->root.dynstr_index;
1842 ind->root.dynindx = -1;
1843 ind->root.dynstr_index = 0;
1844 }
1845 BFD_ASSERT (ind->root.dynindx == -1);
1846}
1847
1848static void
e5094212
AM		 1849elfNN_ia64_hash_hide_symbol (info, xh, force_local)
1850 struct bfd_link_info *info;
800eeca4 1851 struct elf_link_hash_entry *xh;
b34976b6 1852 bfd_boolean force_local;
800eeca4 1853{
bbe66d08
JW		 1854 struct elfNN_ia64_link_hash_entry *h;
1855 struct elfNN_ia64_dyn_sym_info *dyn_i;
800eeca4 1856
bbe66d08 1857 h = (struct elfNN_ia64_link_hash_entry *)xh;
800eeca4 1858
e5094212 1859 _bfd_elf_link_hash_hide_symbol (info, &h->root, force_local);
800eeca4
JW		 1860
1861 for (dyn_i = h->info; dyn_i; dyn_i = dyn_i->next)
6a32c710
L		 1862 {
1863 dyn_i->want_plt2 = 0;
1864 dyn_i->want_plt = 0;
1865 }
800eeca4
JW		 1866}
1867
0aa92b58
JJ		 1868/* Compute a hash of a local hash entry. */
1869
1870static hashval_t
1871elfNN_ia64_local_htab_hash (ptr)
1872 const void *ptr;
1873{
1874 struct elfNN_ia64_local_hash_entry *entry
1875 = (struct elfNN_ia64_local_hash_entry *) ptr;
1876
1877 return (((entry->id & 0xff) << 24) | ((entry->id & 0xff00) << 8))
1878 ^ entry->r_sym ^ (entry->id >> 16);
1879}
1880
1881/* Compare local hash entries. */
1882
1883static int
1884elfNN_ia64_local_htab_eq (ptr1, ptr2)
1885 const void *ptr1, *ptr2;
1886{
1887 struct elfNN_ia64_local_hash_entry *entry1
1888 = (struct elfNN_ia64_local_hash_entry *) ptr1;
1889 struct elfNN_ia64_local_hash_entry *entry2
1890 = (struct elfNN_ia64_local_hash_entry *) ptr2;
1891
1892 return entry1->id == entry2->id && entry1->r_sym == entry2->r_sym;
1893}
1894
800eeca4
JW		 1895/* Create the derived linker hash table. The IA-64 ELF port uses this
1896 derived hash table to keep information specific to the IA-64 ElF
1897 linker (without using static variables). */
1898
1899static struct bfd_link_hash_table*
bbe66d08 1900elfNN_ia64_hash_table_create (abfd)
800eeca4
JW		 1901 bfd *abfd;
1902{
bbe66d08 1903 struct elfNN_ia64_link_hash_table *ret;
800eeca4 1904
6e84a906 1905 ret = bfd_zmalloc ((bfd_size_type) sizeof (*ret));
800eeca4
JW		 1906 if (!ret)
1907 return 0;
6e84a906 1908
800eeca4 1909 if (!_bfd_elf_link_hash_table_init (&ret->root, abfd,
bbe66d08 1910 elfNN_ia64_new_elf_hash_entry))
800eeca4 1911 {
6e84a906 1912 free (ret);
800eeca4
JW		 1913 return 0;
1914 }
1915
0aa92b58
JJ		 1916 ret->loc_hash_table = htab_try_create (1024, elfNN_ia64_local_htab_hash,
1917 elfNN_ia64_local_htab_eq, NULL);
1918 ret->loc_hash_memory = objalloc_create ();
1919 if (!ret->loc_hash_table || !ret->loc_hash_memory)
6e84a906
DJ		 1920 {
1921 free (ret);
1922 return 0;
1923 }
1924
800eeca4
JW		 1925 return &ret->root.root;
1926}
1927
0aa92b58 1928/* Destroy IA-64 linker hash table. */
800eeca4 1929
0aa92b58
JJ		 1930static void
1931elfNN_ia64_hash_table_free (hash)
1932 struct bfd_link_hash_table *hash;
800eeca4 1933{
0aa92b58
JJ		 1934 struct elfNN_ia64_link_hash_table *ia64_info
1935 = (struct elfNN_ia64_link_hash_table *) hash;
1936 if (ia64_info->loc_hash_table)
1937 htab_delete (ia64_info->loc_hash_table);
1938 if (ia64_info->loc_hash_memory)
1939 objalloc_free ((struct objalloc *) ia64_info->loc_hash_memory);
1940 _bfd_generic_link_hash_table_free (hash);
800eeca4
JW		 1941}
1942
1943/* Traverse both local and global hash tables. */
1944
bbe66d08 1945struct elfNN_ia64_dyn_sym_traverse_data
800eeca4 1946{
b34976b6 1947 bfd_boolean (*func) PARAMS ((struct elfNN_ia64_dyn_sym_info *, PTR));
800eeca4
JW		 1948 PTR data;
1949};
1950
b34976b6 1951static bfd_boolean
bbe66d08 1952elfNN_ia64_global_dyn_sym_thunk (xentry, xdata)
800eeca4
JW		 1953 struct bfd_hash_entry *xentry;
1954 PTR xdata;
1955{
bbe66d08
JW		 1956 struct elfNN_ia64_link_hash_entry *entry
1957 = (struct elfNN_ia64_link_hash_entry *) xentry;
1958 struct elfNN_ia64_dyn_sym_traverse_data *data
1959 = (struct elfNN_ia64_dyn_sym_traverse_data *) xdata;
1960 struct elfNN_ia64_dyn_sym_info *dyn_i;
800eeca4 1961
e92d460e
AM		 1962 if (entry->root.root.type == bfd_link_hash_warning)
1963 entry = (struct elfNN_ia64_link_hash_entry *) entry->root.root.u.i.link;
1964
800eeca4
JW		 1965 for (dyn_i = entry->info; dyn_i; dyn_i = dyn_i->next)
1966 if (! (*data->func) (dyn_i, data->data))
b34976b6
AM		 1967 return FALSE;
1968 return TRUE;
800eeca4
JW		 1969}
1970
b34976b6 1971static bfd_boolean
0aa92b58
JJ		 1972elfNN_ia64_local_dyn_sym_thunk (slot, xdata)
1973 void **slot;
800eeca4
JW		 1974 PTR xdata;
1975{
bbe66d08 1976 struct elfNN_ia64_local_hash_entry *entry
0aa92b58 1977 = (struct elfNN_ia64_local_hash_entry *) *slot;
bbe66d08
JW		 1978 struct elfNN_ia64_dyn_sym_traverse_data *data
1979 = (struct elfNN_ia64_dyn_sym_traverse_data *) xdata;
1980 struct elfNN_ia64_dyn_sym_info *dyn_i;
800eeca4
JW		 1981
1982 for (dyn_i = entry->info; dyn_i; dyn_i = dyn_i->next)
1983 if (! (*data->func) (dyn_i, data->data))
0aa92b58
JJ		 1984 return 0;
1985 return 1;
800eeca4
JW		 1986}
1987
1988static void
bbe66d08
JW		 1989elfNN_ia64_dyn_sym_traverse (ia64_info, func, data)
1990 struct elfNN_ia64_link_hash_table *ia64_info;
b34976b6 1991 bfd_boolean (*func) PARAMS ((struct elfNN_ia64_dyn_sym_info *, PTR));
800eeca4
JW		 1992 PTR data;
1993{
bbe66d08 1994 struct elfNN_ia64_dyn_sym_traverse_data xdata;
800eeca4
JW		 1995
1996 xdata.func = func;
1997 xdata.data = data;
1998
1999 elf_link_hash_traverse (&ia64_info->root,
bbe66d08 2000 elfNN_ia64_global_dyn_sym_thunk, &xdata);
0aa92b58
JJ		 2001 htab_traverse (ia64_info->loc_hash_table,
2002 elfNN_ia64_local_dyn_sym_thunk, &xdata);
800eeca4
JW		 2003}
2004\f
b34976b6 2005static bfd_boolean
bbe66d08 2006elfNN_ia64_create_dynamic_sections (abfd, info)
800eeca4
JW		 2007 bfd *abfd;
2008 struct bfd_link_info *info;
2009{
bbe66d08 2010 struct elfNN_ia64_link_hash_table *ia64_info;
800eeca4
JW		 2011 asection *s;
2012
2013 if (! _bfd_elf_create_dynamic_sections (abfd, info))
b34976b6 2014 return FALSE;
800eeca4 2015
bbe66d08 2016 ia64_info = elfNN_ia64_hash_table (info);
800eeca4
JW		 2017
2018 ia64_info->plt_sec = bfd_get_section_by_name (abfd, ".plt");
2019 ia64_info->got_sec = bfd_get_section_by_name (abfd, ".got");
2020
2021 {
2022 flagword flags = bfd_get_section_flags (abfd, ia64_info->got_sec);
2023 bfd_set_section_flags (abfd, ia64_info->got_sec, SEC_SMALL_DATA | flags);
69bbc4c0
L		 2024 /* The .got section is always aligned at 8 bytes. */
2025 bfd_set_section_alignment (abfd, ia64_info->got_sec, 3);
800eeca4
JW		 2026 }
2027
2028 if (!get_pltoff (abfd, info, ia64_info))
b34976b6 2029 return FALSE;
800eeca4 2030
3496cb2a
L		 2031 s = bfd_make_section_with_flags (abfd, ".rela.IA_64.pltoff",
2032 (SEC_ALLOC | SEC_LOAD
2033 | SEC_HAS_CONTENTS
2034 | SEC_IN_MEMORY
2035 | SEC_LINKER_CREATED
2036 | SEC_READONLY));
800eeca4 2037 if (s == NULL
5a260b66 2038 || !bfd_set_section_alignment (abfd, s, LOG_SECTION_ALIGN))
b34976b6 2039 return FALSE;
800eeca4
JW		 2040 ia64_info->rel_pltoff_sec = s;
2041
3496cb2a
L		 2042 s = bfd_make_section_with_flags (abfd, ".rela.got",
2043 (SEC_ALLOC | SEC_LOAD
2044 | SEC_HAS_CONTENTS
2045 | SEC_IN_MEMORY
2046 | SEC_LINKER_CREATED
2047 | SEC_READONLY));
800eeca4 2048 if (s == NULL
5a260b66 2049 || !bfd_set_section_alignment (abfd, s, LOG_SECTION_ALIGN))
b34976b6 2050 return FALSE;
800eeca4
JW		 2051 ia64_info->rel_got_sec = s;
2052
b34976b6 2053 return TRUE;
800eeca4
JW		 2054}
2055
f7460f5f
JJ		 2056/* Find and/or create a hash entry for local symbol. */
2057static struct elfNN_ia64_local_hash_entry *
2058get_local_sym_hash (ia64_info, abfd, rel, create)
2059 struct elfNN_ia64_link_hash_table *ia64_info;
2060 bfd *abfd;
2061 const Elf_Internal_Rela *rel;
b34976b6 2062 bfd_boolean create;
f7460f5f 2063{
0aa92b58 2064 struct elfNN_ia64_local_hash_entry e, *ret;
d48770d4 2065 asection *sec = abfd->sections;
0aa92b58
JJ		 2066 hashval_t h = (((sec->id & 0xff) << 24) | ((sec->id & 0xff00) << 8))
2067 ^ ELFNN_R_SYM (rel->r_info) ^ (sec->id >> 16);
2068 void **slot;
d48770d4 2069
0aa92b58
JJ		 2070 e.id = sec->id;
2071 e.r_sym = ELFNN_R_SYM (rel->r_info);
2072 slot = htab_find_slot_with_hash (ia64_info->loc_hash_table, &e, h,
2073 create ? INSERT : NO_INSERT);
f7460f5f 2074
0aa92b58
JJ		 2075 if (!slot)
2076 return NULL;
f7460f5f 2077
0aa92b58
JJ		 2078 if (*slot)
2079 return (struct elfNN_ia64_local_hash_entry *) *slot;
f7460f5f 2080
0aa92b58
JJ		 2081 ret = (struct elfNN_ia64_local_hash_entry *)
2082 objalloc_alloc ((struct objalloc *) ia64_info->loc_hash_memory,
2083 sizeof (struct elfNN_ia64_local_hash_entry));
2084 if (ret)
2085 {
2086 memset (ret, 0, sizeof (*ret));
2087 ret->id = sec->id;
2088 ret->r_sym = ELFNN_R_SYM (rel->r_info);
2089 *slot = ret;
2090 }
fcf12726 2091 return ret;
f7460f5f
JJ		 2092}
2093
800eeca4
JW		 2094/* Find and/or create a descriptor for dynamic symbol info. This will
2095 vary based on global or local symbol, and the addend to the reloc. */
2096
bbe66d08 2097static struct elfNN_ia64_dyn_sym_info *
800eeca4 2098get_dyn_sym_info (ia64_info, h, abfd, rel, create)
bbe66d08 2099 struct elfNN_ia64_link_hash_table *ia64_info;
800eeca4
JW		 2100 struct elf_link_hash_entry *h;
2101 bfd *abfd;
2102 const Elf_Internal_Rela *rel;
b34976b6 2103 bfd_boolean create;
800eeca4 2104{
bbe66d08
JW		 2105 struct elfNN_ia64_dyn_sym_info **pp;
2106 struct elfNN_ia64_dyn_sym_info *dyn_i;
800eeca4 2107 bfd_vma addend = rel ? rel->r_addend : 0;
3e932841 2108
800eeca4 2109 if (h)
bbe66d08 2110 pp = &((struct elfNN_ia64_link_hash_entry *)h)->info;
800eeca4
JW		 2111 else
2112 {
bbe66d08 2113 struct elfNN_ia64_local_hash_entry *loc_h;
800eeca4 2114
f7460f5f 2115 loc_h = get_local_sym_hash (ia64_info, abfd, rel, create);
f86b235a
RH		 2116 if (!loc_h)
2117 {
2118 BFD_ASSERT (!create);
2119 return NULL;
2120 }
800eeca4
JW		 2121
2122 pp = &loc_h->info;
3e932841 2123 }
800eeca4
JW		 2124
2125 for (dyn_i = *pp; dyn_i && dyn_i->addend != addend; dyn_i = *pp)
2126 pp = &dyn_i->next;
2127
2128 if (dyn_i == NULL && create)
2129 {
dc810e39
AM		 2130 dyn_i = ((struct elfNN_ia64_dyn_sym_info *)
2131 bfd_zalloc (abfd, (bfd_size_type) sizeof *dyn_i));
800eeca4
JW		 2132 *pp = dyn_i;
2133 dyn_i->addend = addend;
2134 }
2135
2136 return dyn_i;
2137}
2138
2139static asection *
2140get_got (abfd, info, ia64_info)
2141 bfd *abfd;
2142 struct bfd_link_info *info;
bbe66d08 2143 struct elfNN_ia64_link_hash_table *ia64_info;
800eeca4 2144{
64bf6ae6 2145 asection *got;
800eeca4
JW		 2146 bfd *dynobj;
2147
2148 got = ia64_info->got_sec;
2149 if (!got)
2150 {
2151 flagword flags;
2152
2153 dynobj = ia64_info->root.dynobj;
2154 if (!dynobj)
2155 ia64_info->root.dynobj = dynobj = abfd;
2156 if (!_bfd_elf_create_got_section (dynobj, info))
2157 return 0;
2158
2159 got = bfd_get_section_by_name (dynobj, ".got");
2160 BFD_ASSERT (got);
2161 ia64_info->got_sec = got;
2162
8651fcf9
L		 2163 /* The .got section is always aligned at 8 bytes. */
2164 if (!bfd_set_section_alignment (abfd, got, 3))
2165 return 0;
2166
800eeca4
JW		 2167 flags = bfd_get_section_flags (abfd, got);
2168 bfd_set_section_flags (abfd, got, SEC_SMALL_DATA | flags);
2169 }
2170
2171 return got;
2172}
2173
2174/* Create function descriptor section (.opd). This section is called .opd
4cc11e76 2175 because it contains "official procedure descriptors". The "official"
800eeca4
JW		 2176 refers to the fact that these descriptors are used when taking the address
2177 of a procedure, thus ensuring a unique address for each procedure. */
2178
2179static asection *
2180get_fptr (abfd, info, ia64_info)
2181 bfd *abfd;
9203ba99 2182 struct bfd_link_info *info;
bbe66d08 2183 struct elfNN_ia64_link_hash_table *ia64_info;
800eeca4
JW		 2184{
2185 asection *fptr;
2186 bfd *dynobj;
2187
2188 fptr = ia64_info->fptr_sec;
2189 if (!fptr)
2190 {
2191 dynobj = ia64_info->root.dynobj;
2192 if (!dynobj)
2193 ia64_info->root.dynobj = dynobj = abfd;
2194
3496cb2a
L		 2195 fptr = bfd_make_section_with_flags (dynobj, ".opd",
2196 (SEC_ALLOC
2197 | SEC_LOAD
2198 | SEC_HAS_CONTENTS
2199 | SEC_IN_MEMORY
2200 | (info->pie ? 0 : SEC_READONLY)
2201 | SEC_LINKER_CREATED));
800eeca4 2202 if (!fptr
800eeca4
JW		 2203 || !bfd_set_section_alignment (abfd, fptr, 4))
2204 {
2205 BFD_ASSERT (0);
2206 return NULL;
2207 }
2208
2209 ia64_info->fptr_sec = fptr;
9203ba99
JJ		 2210
2211 if (info->pie)
2212 {
2213 asection *fptr_rel;
3496cb2a
L		 2214 fptr_rel = bfd_make_section_with_flags (dynobj, ".rela.opd",
2215 (SEC_ALLOC | SEC_LOAD
2216 | SEC_HAS_CONTENTS
2217 | SEC_IN_MEMORY
2218 | SEC_LINKER_CREATED
2219 | SEC_READONLY));
9203ba99 2220 if (fptr_rel == NULL
5a260b66
L		 2221 || !bfd_set_section_alignment (abfd, fptr_rel,
2222 LOG_SECTION_ALIGN))
9203ba99
JJ		 2223 {
2224 BFD_ASSERT (0);
2225 return NULL;
2226 }
2227
2228 ia64_info->rel_fptr_sec = fptr_rel;
2229 }
800eeca4
JW		 2230 }
2231
2232 return fptr;
2233}
2234
2235static asection *
2236get_pltoff (abfd, info, ia64_info)
2237 bfd *abfd;
64bf6ae6 2238 struct bfd_link_info *info ATTRIBUTE_UNUSED;
bbe66d08 2239 struct elfNN_ia64_link_hash_table *ia64_info;
800eeca4
JW		 2240{
2241 asection *pltoff;
2242 bfd *dynobj;
2243
2244 pltoff = ia64_info->pltoff_sec;
2245 if (!pltoff)
2246 {
2247 dynobj = ia64_info->root.dynobj;
2248 if (!dynobj)
2249 ia64_info->root.dynobj = dynobj = abfd;
2250
3496cb2a
L		 2251 pltoff = bfd_make_section_with_flags (dynobj,
2252 ELF_STRING_ia64_pltoff,
2253 (SEC_ALLOC
2254 | SEC_LOAD
2255 | SEC_HAS_CONTENTS
2256 | SEC_IN_MEMORY
2257 | SEC_SMALL_DATA
2258 | SEC_LINKER_CREATED));
800eeca4 2259 if (!pltoff
800eeca4
JW		 2260 || !bfd_set_section_alignment (abfd, pltoff, 4))
2261 {
2262 BFD_ASSERT (0);
2263 return NULL;
2264 }
2265
2266 ia64_info->pltoff_sec = pltoff;
2267 }
2268
2269 return pltoff;
2270}
2271
2272static asection *
2273get_reloc_section (abfd, ia64_info, sec, create)
2274 bfd *abfd;
bbe66d08 2275 struct elfNN_ia64_link_hash_table *ia64_info;
800eeca4 2276 asection *sec;
b34976b6 2277 bfd_boolean create;
800eeca4
JW		 2278{
2279 const char *srel_name;
2280 asection *srel;
2281 bfd *dynobj;
2282
2283 srel_name = (bfd_elf_string_from_elf_section
2284 (abfd, elf_elfheader(abfd)->e_shstrndx,
2285 elf_section_data(sec)->rel_hdr.sh_name));
2286 if (srel_name == NULL)
2287 return NULL;
2288
2289 BFD_ASSERT ((strncmp (srel_name, ".rela", 5) == 0
2290 && strcmp (bfd_get_section_name (abfd, sec),
2291 srel_name+5) == 0)
2292 || (strncmp (srel_name, ".rel", 4) == 0
2293 && strcmp (bfd_get_section_name (abfd, sec),
2294 srel_name+4) == 0));
2295
2296 dynobj = ia64_info->root.dynobj;
2297 if (!dynobj)
2298 ia64_info->root.dynobj = dynobj = abfd;
2299
2300 srel = bfd_get_section_by_name (dynobj, srel_name);
2301 if (srel == NULL && create)
2302 {
3496cb2a
L		 2303 srel = bfd_make_section_with_flags (dynobj, srel_name,
2304 (SEC_ALLOC | SEC_LOAD
2305 | SEC_HAS_CONTENTS
2306 | SEC_IN_MEMORY
2307 | SEC_LINKER_CREATED
2308 | SEC_READONLY));
800eeca4 2309 if (srel == NULL
5a260b66
L		 2310 || !bfd_set_section_alignment (dynobj, srel,
2311 LOG_SECTION_ALIGN))
800eeca4
JW		 2312 return NULL;
2313 }
2314
2315 return srel;
2316}
2317
b34976b6 2318static bfd_boolean
ac33696c
L		 2319count_dyn_reloc (bfd *abfd, struct elfNN_ia64_dyn_sym_info *dyn_i,
2320 asection *srel, int type, bfd_boolean reltext)
800eeca4 2321{
bbe66d08 2322 struct elfNN_ia64_dyn_reloc_entry *rent;
800eeca4
JW		 2323
2324 for (rent = dyn_i->reloc_entries; rent; rent = rent->next)
2325 if (rent->srel == srel && rent->type == type)
2326 break;
2327
2328 if (!rent)
2329 {
dc810e39
AM		 2330 rent = ((struct elfNN_ia64_dyn_reloc_entry *)
2331 bfd_alloc (abfd, (bfd_size_type) sizeof (*rent)));
800eeca4 2332 if (!rent)
b34976b6 2333 return FALSE;
800eeca4
JW		 2334
2335 rent->next = dyn_i->reloc_entries;
2336 rent->srel = srel;
2337 rent->type = type;
2338 rent->count = 0;
2339 dyn_i->reloc_entries = rent;
2340 }
ac33696c 2341 rent->reltext = reltext;
800eeca4
JW		 2342 rent->count++;
2343
b34976b6 2344 return TRUE;
800eeca4
JW		 2345}
2346
b34976b6 2347static bfd_boolean
bbe66d08 2348elfNN_ia64_check_relocs (abfd, info, sec, relocs)
800eeca4
JW		 2349 bfd *abfd;
2350 struct bfd_link_info *info;
2351 asection *sec;
2352 const Elf_Internal_Rela *relocs;
2353{
bbe66d08 2354 struct elfNN_ia64_link_hash_table *ia64_info;
800eeca4
JW		 2355 const Elf_Internal_Rela *relend;
2356 Elf_Internal_Shdr *symtab_hdr;
2357 const Elf_Internal_Rela *rel;
21a8f7fa 2358 asection *got, *fptr, *srel, *pltoff;
800eeca4 2359
1049f94e 2360 if (info->relocatable)
b34976b6 2361 return TRUE;
800eeca4
JW		 2362
2363 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
bbe66d08 2364 ia64_info = elfNN_ia64_hash_table (info);
800eeca4 2365
21a8f7fa 2366 got = fptr = srel = pltoff = NULL;
800eeca4
JW		 2367
2368 relend = relocs + sec->reloc_count;
2369 for (rel = relocs; rel < relend; ++rel)
2370 {
2371 enum {
2372 NEED_GOT = 1,
2c4c2bc0
RH		 2373 NEED_GOTX = 2,
2374 NEED_FPTR = 4,
2375 NEED_PLTOFF = 8,
2376 NEED_MIN_PLT = 16,
2377 NEED_FULL_PLT = 32,
2378 NEED_DYNREL = 64,
2379 NEED_LTOFF_FPTR = 128,
2380 NEED_TPREL = 256,
2381 NEED_DTPMOD = 512,
2382 NEED_DTPREL = 1024
800eeca4
JW		 2383 };
2384
2385 struct elf_link_hash_entry *h = NULL;
bbe66d08
JW		 2386 unsigned long r_symndx = ELFNN_R_SYM (rel->r_info);
2387 struct elfNN_ia64_dyn_sym_info *dyn_i;
800eeca4 2388 int need_entry;
b34976b6 2389 bfd_boolean maybe_dynamic;
64bf6ae6 2390 int dynrel_type = R_IA64_NONE;
800eeca4
JW		 2391
2392 if (r_symndx >= symtab_hdr->sh_info)
2393 {
2394 /* We're dealing with a global symbol -- find its hash entry
2395 and mark it as being referenced. */
2396 long indx = r_symndx - symtab_hdr->sh_info;
2397 h = elf_sym_hashes (abfd)[indx];
2398 while (h->root.type == bfd_link_hash_indirect
2399 || h->root.type == bfd_link_hash_warning)
2400 h = (struct elf_link_hash_entry *) h->root.u.i.link;
2401
f5385ebf 2402 h->ref_regular = 1;
800eeca4
JW		 2403 }
2404
2405 /* We can only get preliminary data on whether a symbol is
2406 locally or externally defined, as not all of the input files
2407 have yet been processed. Do something with what we know, as
2408 this may help reduce memory usage and processing time later. */
b34976b6 2409 maybe_dynamic = FALSE;
9203ba99 2410 if (h && ((!info->executable
f5385ebf
AM		 2411 && (!info->symbolic
2412 || info->unresolved_syms_in_shared_libs == RM_IGNORE))
2413 || !h->def_regular
02e6ad56 2414 || h->root.type == bfd_link_hash_defweak))
b34976b6 2415 maybe_dynamic = TRUE;
800eeca4
JW		 2416
2417 need_entry = 0;
bbe66d08 2418 switch (ELFNN_R_TYPE (rel->r_info))
800eeca4 2419 {
800eeca4
JW		 2420 case R_IA64_TPREL64MSB:
2421 case R_IA64_TPREL64LSB:
13ae64f3
JJ		 2422 if (info->shared || maybe_dynamic)
2423 need_entry = NEED_DYNREL;
2424 dynrel_type = R_IA64_TPREL64LSB;
2425 if (info->shared)
2426 info->flags |= DF_STATIC_TLS;
2427 break;
2428
2429 case R_IA64_LTOFF_TPREL22:
2430 need_entry = NEED_TPREL;
2431 if (info->shared)
2432 info->flags |= DF_STATIC_TLS;
2433 break;
2434
5a260b66
L		 2435 case R_IA64_DTPREL32MSB:
2436 case R_IA64_DTPREL32LSB:
13ae64f3
JJ		 2437 case R_IA64_DTPREL64MSB:
2438 case R_IA64_DTPREL64LSB:
2439 if (info->shared || maybe_dynamic)
2440 need_entry = NEED_DYNREL;
5a260b66 2441 dynrel_type = R_IA64_DTPRELNNLSB;
13ae64f3
JJ		 2442 break;
2443
2444 case R_IA64_LTOFF_DTPREL22:
2445 need_entry = NEED_DTPREL;
2446 break;
2447
2448 case R_IA64_DTPMOD64MSB:
2449 case R_IA64_DTPMOD64LSB:
2450 if (info->shared || maybe_dynamic)
2451 need_entry = NEED_DYNREL;
2452 dynrel_type = R_IA64_DTPMOD64LSB;
2453 break;
2454
2455 case R_IA64_LTOFF_DTPMOD22:
2456 need_entry = NEED_DTPMOD;
2457 break;
800eeca4
JW		 2458
2459 case R_IA64_LTOFF_FPTR22:
2460 case R_IA64_LTOFF_FPTR64I:
a4bd8390
JW		 2461 case R_IA64_LTOFF_FPTR32MSB:
2462 case R_IA64_LTOFF_FPTR32LSB:
800eeca4
JW		 2463 case R_IA64_LTOFF_FPTR64MSB:
2464 case R_IA64_LTOFF_FPTR64LSB:
2465 need_entry = NEED_FPTR | NEED_GOT | NEED_LTOFF_FPTR;
2466 break;
2467
2468 case R_IA64_FPTR64I:
2469 case R_IA64_FPTR32MSB:
2470 case R_IA64_FPTR32LSB:
2471 case R_IA64_FPTR64MSB:
2472 case R_IA64_FPTR64LSB:
02e6ad56 2473 if (info->shared || h)
800eeca4
JW		 2474 need_entry = NEED_FPTR | NEED_DYNREL;
2475 else
2476 need_entry = NEED_FPTR;
5a260b66 2477 dynrel_type = R_IA64_FPTRNNLSB;
800eeca4
JW		 2478 break;
2479
2480 case R_IA64_LTOFF22:
800eeca4
JW		 2481 case R_IA64_LTOFF64I:
2482 need_entry = NEED_GOT;
2483 break;
2484
2c4c2bc0
RH		 2485 case R_IA64_LTOFF22X:
2486 need_entry = NEED_GOTX;
2487 break;
2488
800eeca4
JW		 2489 case R_IA64_PLTOFF22:
2490 case R_IA64_PLTOFF64I:
2491 case R_IA64_PLTOFF64MSB:
2492 case R_IA64_PLTOFF64LSB:
2493 need_entry = NEED_PLTOFF;
2494 if (h)
2495 {
2496 if (maybe_dynamic)
2497 need_entry |= NEED_MIN_PLT;
2498 }
2499 else
2500 {
2501 (*info->callbacks->warning)
2502 (info, _("@pltoff reloc against local symbol"), 0,
dc810e39 2503 abfd, 0, (bfd_vma) 0);
800eeca4
JW		 2504 }
2505 break;
2506
2507 case R_IA64_PCREL21B:
748abff6 2508 case R_IA64_PCREL60B:
800eeca4
JW		 2509 /* Depending on where this symbol is defined, we may or may not
2510 need a full plt entry. Only skip if we know we'll not need
2511 the entry -- static or symbolic, and the symbol definition
2512 has already been seen. */
2513 if (maybe_dynamic && rel->r_addend == 0)
2514 need_entry = NEED_FULL_PLT;
2515 break;
2516
2517 case R_IA64_IMM14:
2518 case R_IA64_IMM22:
2519 case R_IA64_IMM64:
2520 case R_IA64_DIR32MSB:
2521 case R_IA64_DIR32LSB:
2522 case R_IA64_DIR64MSB:
2523 case R_IA64_DIR64LSB:
2524 /* Shared objects will always need at least a REL relocation. */
02e6ad56 2525 if (info->shared || maybe_dynamic)
800eeca4 2526 need_entry = NEED_DYNREL;
5a260b66 2527 dynrel_type = R_IA64_DIRNNLSB;
800eeca4
JW		 2528 break;
2529
18b27f17
RH		 2530 case R_IA64_IPLTMSB:
2531 case R_IA64_IPLTLSB:
2532 /* Shared objects will always need at least a REL relocation. */
2533 if (info->shared || maybe_dynamic)
2534 need_entry = NEED_DYNREL;
2535 dynrel_type = R_IA64_IPLTLSB;
2536 break;
2537
748abff6
RH		 2538 case R_IA64_PCREL22:
2539 case R_IA64_PCREL64I:
800eeca4
JW		 2540 case R_IA64_PCREL32MSB:
2541 case R_IA64_PCREL32LSB:
2542 case R_IA64_PCREL64MSB:
2543 case R_IA64_PCREL64LSB:
2544 if (maybe_dynamic)
2545 need_entry = NEED_DYNREL;
5a260b66 2546 dynrel_type = R_IA64_PCRELNNLSB;
800eeca4
JW		 2547 break;
2548 }
2549
2550 if (!need_entry)
2551 continue;
2552
2553 if ((need_entry & NEED_FPTR) != 0
2554 && rel->r_addend)
2555 {
2556 (*info->callbacks->warning)
2557 (info, _("non-zero addend in @fptr reloc"), 0,
dc810e39 2558 abfd, 0, (bfd_vma) 0);
800eeca4
JW		 2559 }
2560
b34976b6 2561 dyn_i = get_dyn_sym_info (ia64_info, h, abfd, rel, TRUE);
800eeca4
JW		 2562
2563 /* Record whether or not this is a local symbol. */
2564 dyn_i->h = h;
2565
2566 /* Create what's needed. */
2c4c2bc0
RH		 2567 if (need_entry & (NEED_GOT | NEED_GOTX | NEED_TPREL
2568 | NEED_DTPMOD | NEED_DTPREL))
800eeca4
JW		 2569 {
2570 if (!got)
2571 {
2572 got = get_got (abfd, info, ia64_info);
2573 if (!got)
b34976b6 2574 return FALSE;
800eeca4 2575 }
13ae64f3
JJ		 2576 if (need_entry & NEED_GOT)
2577 dyn_i->want_got = 1;
2c4c2bc0
RH		 2578 if (need_entry & NEED_GOTX)
2579 dyn_i->want_gotx = 1;
13ae64f3
JJ		 2580 if (need_entry & NEED_TPREL)
2581 dyn_i->want_tprel = 1;
2582 if (need_entry & NEED_DTPMOD)
2583 dyn_i->want_dtpmod = 1;
2584 if (need_entry & NEED_DTPREL)
2585 dyn_i->want_dtprel = 1;
800eeca4
JW		 2586 }
2587 if (need_entry & NEED_FPTR)
2588 {
2589 if (!fptr)
2590 {
2591 fptr = get_fptr (abfd, info, ia64_info);
2592 if (!fptr)
b34976b6 2593 return FALSE;
800eeca4
JW		 2594 }
2595
2596 /* FPTRs for shared libraries are allocated by the dynamic
2597 linker. Make sure this local symbol will appear in the
2598 dynamic symbol table. */
02e6ad56 2599 if (!h && info->shared)
800eeca4 2600 {
c152c796 2601 if (! (bfd_elf_link_record_local_dynamic_symbol
dc810e39 2602 (info, abfd, (long) r_symndx)))
b34976b6 2603 return FALSE;
800eeca4
JW		 2604 }
2605
2606 dyn_i->want_fptr = 1;
2607 }
2608 if (need_entry & NEED_LTOFF_FPTR)
2609 dyn_i->want_ltoff_fptr = 1;
2610 if (need_entry & (NEED_MIN_PLT | NEED_FULL_PLT))
2611 {
2612 if (!ia64_info->root.dynobj)
2613 ia64_info->root.dynobj = abfd;
f5385ebf 2614 h->needs_plt = 1;
800eeca4
JW		 2615 dyn_i->want_plt = 1;
2616 }
2617 if (need_entry & NEED_FULL_PLT)
2618 dyn_i->want_plt2 = 1;
2619 if (need_entry & NEED_PLTOFF)
21a8f7fa
JW		 2620 {
2621 /* This is needed here, in case @pltoff is used in a non-shared
2622 link. */
2623 if (!pltoff)
2624 {
2625 pltoff = get_pltoff (abfd, info, ia64_info);
2626 if (!pltoff)
2627 return FALSE;
2628 }
f12123c0 2629
21a8f7fa
JW		 2630 dyn_i->want_pltoff = 1;
2631 }
800eeca4
JW		 2632 if ((need_entry & NEED_DYNREL) && (sec->flags & SEC_ALLOC))
2633 {
2634 if (!srel)
2635 {
b34976b6 2636 srel = get_reloc_section (abfd, ia64_info, sec, TRUE);
800eeca4 2637 if (!srel)
b34976b6 2638 return FALSE;
800eeca4 2639 }
ac33696c 2640 if (!count_dyn_reloc (abfd, dyn_i, srel, dynrel_type,
de9811af 2641 (sec->flags & SEC_READONLY) != 0))
b34976b6 2642 return FALSE;
800eeca4
JW		 2643 }
2644 }
2645
b34976b6 2646 return TRUE;
800eeca4
JW		 2647}
2648
800eeca4
JW		 2649/* For cleanliness, and potentially faster dynamic loading, allocate
2650 external GOT entries first. */
2651
b34976b6 2652static bfd_boolean
800eeca4 2653allocate_global_data_got (dyn_i, data)
bbe66d08 2654 struct elfNN_ia64_dyn_sym_info *dyn_i;
800eeca4
JW		 2655 PTR data;
2656{
bbe66d08 2657 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
800eeca4 2658
2c4c2bc0 2659 if ((dyn_i->want_got || dyn_i->want_gotx)
800eeca4 2660 && ! dyn_i->want_fptr
986a241f 2661 && elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, 0))
800eeca4
JW		 2662 {
2663 dyn_i->got_offset = x->ofs;
2664 x->ofs += 8;
2665 }
13ae64f3
JJ		 2666 if (dyn_i->want_tprel)
2667 {
2668 dyn_i->tprel_offset = x->ofs;
2669 x->ofs += 8;
2670 }
2671 if (dyn_i->want_dtpmod)
2672 {
986a241f 2673 if (elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, 0))
b3dfd7fe
JJ		 2674 {
2675 dyn_i->dtpmod_offset = x->ofs;
2676 x->ofs += 8;
2677 }
2678 else
2679 {
2680 struct elfNN_ia64_link_hash_table *ia64_info;
2681
2682 ia64_info = elfNN_ia64_hash_table (x->info);
2683 if (ia64_info->self_dtpmod_offset == (bfd_vma) -1)
2684 {
2685 ia64_info->self_dtpmod_offset = x->ofs;
2686 x->ofs += 8;
2687 }
2688 dyn_i->dtpmod_offset = ia64_info->self_dtpmod_offset;
2689 }
13ae64f3
JJ		 2690 }
2691 if (dyn_i->want_dtprel)
2692 {
2693 dyn_i->dtprel_offset = x->ofs;
2694 x->ofs += 8;
2695 }
b34976b6 2696 return TRUE;
800eeca4
JW		 2697}
2698
2699/* Next, allocate all the GOT entries used by LTOFF_FPTR relocs. */
2700
b34976b6 2701static bfd_boolean
800eeca4 2702allocate_global_fptr_got (dyn_i, data)
bbe66d08 2703 struct elfNN_ia64_dyn_sym_info *dyn_i;
800eeca4
JW		 2704 PTR data;
2705{
bbe66d08 2706 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
800eeca4
JW		 2707
2708 if (dyn_i->want_got
2709 && dyn_i->want_fptr
5a260b66 2710 && elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, R_IA64_FPTRNNLSB))
800eeca4
JW		 2711 {
2712 dyn_i->got_offset = x->ofs;
2713 x->ofs += 8;
2714 }
b34976b6 2715 return TRUE;
800eeca4
JW		 2716}
2717
2718/* Lastly, allocate all the GOT entries for local data. */
2719
b34976b6 2720static bfd_boolean
800eeca4 2721allocate_local_got (dyn_i, data)
bbe66d08 2722 struct elfNN_ia64_dyn_sym_info *dyn_i;
800eeca4
JW		 2723 PTR data;
2724{
bbe66d08 2725 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
800eeca4 2726
2c4c2bc0 2727 if ((dyn_i->want_got || dyn_i->want_gotx)
986a241f 2728 && !elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, 0))
800eeca4
JW		 2729 {
2730 dyn_i->got_offset = x->ofs;
2731 x->ofs += 8;
2732 }
b34976b6 2733 return TRUE;
800eeca4
JW		 2734}
2735
2736/* Search for the index of a global symbol in it's defining object file. */
2737
dc810e39 2738static long
800eeca4
JW		 2739global_sym_index (h)
2740 struct elf_link_hash_entry *h;
2741{
2742 struct elf_link_hash_entry **p;
2743 bfd *obj;
2744
2745 BFD_ASSERT (h->root.type == bfd_link_hash_defined
2746 || h->root.type == bfd_link_hash_defweak);
2747
2748 obj = h->root.u.def.section->owner;
2749 for (p = elf_sym_hashes (obj); *p != h; ++p)
2750 continue;
2751
2752 return p - elf_sym_hashes (obj) + elf_tdata (obj)->symtab_hdr.sh_info;
2753}
2754
2755/* Allocate function descriptors. We can do these for every function
2756 in a main executable that is not exported. */
2757
b34976b6 2758static bfd_boolean
800eeca4 2759allocate_fptr (dyn_i, data)
bbe66d08 2760 struct elfNN_ia64_dyn_sym_info *dyn_i;
800eeca4
JW		 2761 PTR data;
2762{
bbe66d08 2763 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
800eeca4
JW		 2764
2765 if (dyn_i->want_fptr)
2766 {
2767 struct elf_link_hash_entry *h = dyn_i->h;
3e932841 2768
800eeca4
JW		 2769 if (h)
2770 while (h->root.type == bfd_link_hash_indirect
2771 || h->root.type == bfd_link_hash_warning)
2772 h = (struct elf_link_hash_entry *) h->root.u.i.link;
2773
02e6ad56
RH		 2774 if (!x->info->executable
2775 && (!h
2776 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
2777 || h->root.type != bfd_link_hash_undefweak))
800eeca4
JW		 2778 {
2779 if (h && h->dynindx == -1)
2780 {
2781 BFD_ASSERT ((h->root.type == bfd_link_hash_defined)
2782 || (h->root.type == bfd_link_hash_defweak));
2783
c152c796 2784 if (!bfd_elf_link_record_local_dynamic_symbol
800eeca4
JW		 2785 (x->info, h->root.u.def.section->owner,
2786 global_sym_index (h)))
b34976b6 2787 return FALSE;
800eeca4
JW		 2788 }
2789
2790 dyn_i->want_fptr = 0;
2791 }
2792 else if (h == NULL || h->dynindx == -1)
2793 {
2794 dyn_i->fptr_offset = x->ofs;
2795 x->ofs += 16;
2796 }
2797 else
2798 dyn_i->want_fptr = 0;
2799 }
b34976b6 2800 return TRUE;
800eeca4
JW		 2801}
2802
2803/* Allocate all the minimal PLT entries. */
2804
b34976b6 2805static bfd_boolean
800eeca4 2806allocate_plt_entries (dyn_i, data)
bbe66d08 2807 struct elfNN_ia64_dyn_sym_info *dyn_i;
800eeca4
JW		 2808 PTR data;
2809{
bbe66d08 2810 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
800eeca4
JW		 2811
2812 if (dyn_i->want_plt)
2813 {
2814 struct elf_link_hash_entry *h = dyn_i->h;
2815
2816 if (h)
2817 while (h->root.type == bfd_link_hash_indirect
2818 || h->root.type == bfd_link_hash_warning)
2819 h = (struct elf_link_hash_entry *) h->root.u.i.link;
2820
f5385ebf 2821 /* ??? Versioned symbols seem to lose NEEDS_PLT. */
986a241f 2822 if (elfNN_ia64_dynamic_symbol_p (h, x->info, 0))
800eeca4
JW		 2823 {
2824 bfd_size_type offset = x->ofs;
2825 if (offset == 0)
2826 offset = PLT_HEADER_SIZE;
2827 dyn_i->plt_offset = offset;
2828 x->ofs = offset + PLT_MIN_ENTRY_SIZE;
2829
2830 dyn_i->want_pltoff = 1;
2831 }
2832 else
2833 {
2834 dyn_i->want_plt = 0;
2835 dyn_i->want_plt2 = 0;
2836 }
2837 }
b34976b6 2838 return TRUE;
800eeca4
JW		 2839}
2840
2841/* Allocate all the full PLT entries. */
2842
b34976b6 2843static bfd_boolean
800eeca4 2844allocate_plt2_entries (dyn_i, data)
bbe66d08 2845 struct elfNN_ia64_dyn_sym_info *dyn_i;
800eeca4
JW		 2846 PTR data;
2847{
bbe66d08 2848 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
800eeca4
JW		 2849
2850 if (dyn_i->want_plt2)
2851 {
2852 struct elf_link_hash_entry *h = dyn_i->h;
2853 bfd_size_type ofs = x->ofs;
2854
2855 dyn_i->plt2_offset = ofs;
2856 x->ofs = ofs + PLT_FULL_ENTRY_SIZE;
2857
2858 while (h->root.type == bfd_link_hash_indirect
2859 || h->root.type == bfd_link_hash_warning)
2860 h = (struct elf_link_hash_entry *) h->root.u.i.link;
2861 dyn_i->h->plt.offset = ofs;
2862 }
b34976b6 2863 return TRUE;
800eeca4
JW		 2864}
2865
2866/* Allocate all the PLTOFF entries requested by relocations and
2867 plt entries. We can't share space with allocated FPTR entries,
2868 because the latter are not necessarily addressable by the GP.
2869 ??? Relaxation might be able to determine that they are. */
2870
b34976b6 2871static bfd_boolean
800eeca4 2872allocate_pltoff_entries (dyn_i, data)
bbe66d08 2873 struct elfNN_ia64_dyn_sym_info *dyn_i;
800eeca4
JW		 2874 PTR data;
2875{
bbe66d08 2876 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
800eeca4
JW		 2877
2878 if (dyn_i->want_pltoff)
2879 {
2880 dyn_i->pltoff_offset = x->ofs;
2881 x->ofs += 16;
2882 }
b34976b6 2883 return TRUE;
800eeca4
JW		 2884}
2885
2886/* Allocate dynamic relocations for those symbols that turned out
2887 to be dynamic. */
2888
b34976b6 2889static bfd_boolean
800eeca4 2890allocate_dynrel_entries (dyn_i, data)
bbe66d08 2891 struct elfNN_ia64_dyn_sym_info *dyn_i;
800eeca4
JW		 2892 PTR data;
2893{
bbe66d08
JW		 2894 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2895 struct elfNN_ia64_link_hash_table *ia64_info;
2896 struct elfNN_ia64_dyn_reloc_entry *rent;
ef5aade5 2897 bfd_boolean dynamic_symbol, shared, resolved_zero;
800eeca4 2898
bbe66d08 2899 ia64_info = elfNN_ia64_hash_table (x->info);
986a241f
RH		 2900
2901 /* Note that this can't be used in relation to FPTR relocs below. */
2902 dynamic_symbol = elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, 0);
2903
800eeca4 2904 shared = x->info->shared;
ef5aade5
L		 2905 resolved_zero = (dyn_i->h
2906 && ELF_ST_VISIBILITY (dyn_i->h->other)
2907 && dyn_i->h->root.type == bfd_link_hash_undefweak);
800eeca4 2908
4a78a1f4
AS		 2909 /* Take care of the GOT and PLT relocations. */
2910
2911 if ((!resolved_zero
2912 && (dynamic_symbol || shared)
2913 && (dyn_i->want_got || dyn_i->want_gotx))
2914 || (dyn_i->want_ltoff_fptr
2915 && dyn_i->h
2916 && dyn_i->h->dynindx != -1))
2917 {
2918 if (!dyn_i->want_ltoff_fptr
2919 || !x->info->pie
2920 || dyn_i->h == NULL
2921 || dyn_i->h->root.type != bfd_link_hash_undefweak)
2922 ia64_info->rel_got_sec->size += sizeof (ElfNN_External_Rela);
2923 }
2924 if ((dynamic_symbol || shared) && dyn_i->want_tprel)
2925 ia64_info->rel_got_sec->size += sizeof (ElfNN_External_Rela);
2926 if (dynamic_symbol && dyn_i->want_dtpmod)
2927 ia64_info->rel_got_sec->size += sizeof (ElfNN_External_Rela);
2928 if (dynamic_symbol && dyn_i->want_dtprel)
2929 ia64_info->rel_got_sec->size += sizeof (ElfNN_External_Rela);
2930
2931 if (x->only_got)
2932 return TRUE;
2933
2934 if (ia64_info->rel_fptr_sec && dyn_i->want_fptr)
2935 {
2936 if (dyn_i->h == NULL || dyn_i->h->root.type != bfd_link_hash_undefweak)
2937 ia64_info->rel_fptr_sec->size += sizeof (ElfNN_External_Rela);
2938 }
2939
2940 if (!resolved_zero && dyn_i->want_pltoff)
2941 {
2942 bfd_size_type t = 0;
2943
2944 /* Dynamic symbols get one IPLT relocation. Local symbols in
2945 shared libraries get two REL relocations. Local symbols in
2946 main applications get nothing. */
2947 if (dynamic_symbol)
2948 t = sizeof (ElfNN_External_Rela);
2949 else if (shared)
2950 t = 2 * sizeof (ElfNN_External_Rela);
2951
2952 ia64_info->rel_pltoff_sec->size += t;
2953 }
2954
800eeca4
JW		 2955 /* Take care of the normal data relocations. */
2956
2957 for (rent = dyn_i->reloc_entries; rent; rent = rent->next)
2958 {
18b27f17
RH		 2959 int count = rent->count;
2960
800eeca4
JW		 2961 switch (rent->type)
2962 {
5a260b66 2963 case R_IA64_FPTR32LSB:
800eeca4 2964 case R_IA64_FPTR64LSB:
9203ba99
JJ		 2965 /* Allocate one iff !want_fptr and not PIE, which by this point
2966 will be true only if we're actually allocating one statically
2967 in the main executable. Position independent executables
2968 need a relative reloc. */
2969 if (dyn_i->want_fptr && !x->info->pie)
800eeca4
JW		 2970 continue;
2971 break;
5a260b66 2972 case R_IA64_PCREL32LSB:
800eeca4
JW		 2973 case R_IA64_PCREL64LSB:
2974 if (!dynamic_symbol)
2975 continue;
2976 break;
5a260b66 2977 case R_IA64_DIR32LSB:
800eeca4
JW		 2978 case R_IA64_DIR64LSB:
2979 if (!dynamic_symbol && !shared)
2980 continue;
2981 break;
18b27f17
RH		 2982 case R_IA64_IPLTLSB:
2983 if (!dynamic_symbol && !shared)
2984 continue;
2985 /* Use two REL relocations for IPLT relocations
2986 against local symbols. */
2987 if (!dynamic_symbol)
2988 count *= 2;
2989 break;
5a260b66 2990 case R_IA64_DTPREL32LSB:
13ae64f3
JJ		 2991 case R_IA64_TPREL64LSB:
2992 case R_IA64_DTPREL64LSB:
2993 case R_IA64_DTPMOD64LSB:
2994 break;
18b27f17
RH		 2995 default:
2996 abort ();
800eeca4 2997 }
ac33696c
L		 2998 if (rent->reltext)
2999 ia64_info->reltext = 1;
eea6121a 3000 rent->srel->size += sizeof (ElfNN_External_Rela) * count;
800eeca4
JW		 3001 }
3002
b34976b6 3003 return TRUE;
800eeca4
JW		 3004}
3005
b34976b6 3006static bfd_boolean
bbe66d08 3007elfNN_ia64_adjust_dynamic_symbol (info, h)
64bf6ae6 3008 struct bfd_link_info *info ATTRIBUTE_UNUSED;
800eeca4
JW		 3009 struct elf_link_hash_entry *h;
3010{
3011 /* ??? Undefined symbols with PLT entries should be re-defined
3012 to be the PLT entry. */
3013
3014 /* If this is a weak symbol, and there is a real definition, the
3015 processor independent code will have arranged for us to see the
3016 real definition first, and we can just use the same value. */
f6e332e6 3017 if (h->u.weakdef != NULL)
800eeca4 3018 {
f6e332e6
AM		 3019 BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
3020 || h->u.weakdef->root.type == bfd_link_hash_defweak);
3021 h->root.u.def.section = h->u.weakdef->root.u.def.section;
3022 h->root.u.def.value = h->u.weakdef->root.u.def.value;
b34976b6 3023 return TRUE;
800eeca4
JW		 3024 }
3025
3026 /* If this is a reference to a symbol defined by a dynamic object which
3027 is not a function, we might allocate the symbol in our .dynbss section
3028 and allocate a COPY dynamic relocation.
3029
3030 But IA-64 code is canonically PIC, so as a rule we can avoid this sort
3031 of hackery. */
3032
b34976b6 3033 return TRUE;
800eeca4
JW		 3034}
3035
b34976b6 3036static bfd_boolean
bbe66d08 3037elfNN_ia64_size_dynamic_sections (output_bfd, info)
bb32e54f 3038 bfd *output_bfd ATTRIBUTE_UNUSED;
800eeca4
JW		 3039 struct bfd_link_info *info;
3040{
bbe66d08
JW		 3041 struct elfNN_ia64_allocate_data data;
3042 struct elfNN_ia64_link_hash_table *ia64_info;
800eeca4
JW		 3043 asection *sec;
3044 bfd *dynobj;
b34976b6 3045 bfd_boolean relplt = FALSE;
800eeca4
JW		 3046
3047 dynobj = elf_hash_table(info)->dynobj;
bbe66d08 3048 ia64_info = elfNN_ia64_hash_table (info);
b3dfd7fe 3049 ia64_info->self_dtpmod_offset = (bfd_vma) -1;
800eeca4
JW		 3050 BFD_ASSERT(dynobj != NULL);
3051 data.info = info;
3052
3053 /* Set the contents of the .interp section to the interpreter. */
3054 if (ia64_info->root.dynamic_sections_created
36af4a4e 3055 && info->executable)
800eeca4
JW		 3056 {
3057 sec = bfd_get_section_by_name (dynobj, ".interp");
3058 BFD_ASSERT (sec != NULL);
02e6ad56 3059 sec->contents = (bfd_byte *) ELF_DYNAMIC_INTERPRETER;
eea6121a 3060 sec->size = strlen (ELF_DYNAMIC_INTERPRETER) + 1;
800eeca4
JW		 3061 }
3062
800eeca4
JW		 3063 /* Allocate the GOT entries. */
3064
3065 if (ia64_info->got_sec)
3066 {
3067 data.ofs = 0;
bbe66d08
JW		 3068 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_global_data_got, &data);
3069 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_global_fptr_got, &data);
3070 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_local_got, &data);
eea6121a 3071 ia64_info->got_sec->size = data.ofs;
800eeca4
JW		 3072 }
3073
3074 /* Allocate the FPTR entries. */
3075
3076 if (ia64_info->fptr_sec)
3077 {
3078 data.ofs = 0;
bbe66d08 3079 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_fptr, &data);
eea6121a 3080 ia64_info->fptr_sec->size = data.ofs;
800eeca4
JW		 3081 }
3082
3083 /* Now that we've seen all of the input files, we can decide which
3084 symbols need plt entries. Allocate the minimal PLT entries first.
b34976b6 3085 We do this even though dynamic_sections_created may be FALSE, because
800eeca4
JW		 3086 this has the side-effect of clearing want_plt and want_plt2. */
3087
3088 data.ofs = 0;
bbe66d08 3089 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_plt_entries, &data);
800eeca4
JW		 3090
3091 ia64_info->minplt_entries = 0;
3092 if (data.ofs)
3093 {
3094 ia64_info->minplt_entries
3095 = (data.ofs - PLT_HEADER_SIZE) / PLT_MIN_ENTRY_SIZE;
3096 }
3097
3098 /* Align the pointer for the plt2 entries. */
dc810e39 3099 data.ofs = (data.ofs + 31) & (bfd_vma) -32;
800eeca4 3100
bbe66d08 3101 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_plt2_entries, &data);
a5a58ba4 3102 if (data.ofs != 0 || ia64_info->root.dynamic_sections_created)
800eeca4 3103 {
a5a58ba4
L		 3104 /* FIXME: we always reserve the memory for dynamic linker even if
3105 there are no PLT entries since dynamic linker may assume the
3106 reserved memory always exists. */
3107
800eeca4
JW		 3108 BFD_ASSERT (ia64_info->root.dynamic_sections_created);
3109
eea6121a 3110 ia64_info->plt_sec->size = data.ofs;
800eeca4
JW		 3111
3112 /* If we've got a .plt, we need some extra memory for the dynamic
3113 linker. We stuff these in .got.plt. */
3114 sec = bfd_get_section_by_name (dynobj, ".got.plt");
eea6121a 3115 sec->size = 8 * PLT_RESERVED_WORDS;
800eeca4
JW		 3116 }
3117
3118 /* Allocate the PLTOFF entries. */
3119
3120 if (ia64_info->pltoff_sec)
3121 {
3122 data.ofs = 0;
bbe66d08 3123 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_pltoff_entries, &data);
eea6121a 3124 ia64_info->pltoff_sec->size = data.ofs;
800eeca4
JW		 3125 }
3126
3127 if (ia64_info->root.dynamic_sections_created)
3128 {
3129 /* Allocate space for the dynamic relocations that turned out to be
3130 required. */
3131
b3dfd7fe 3132 if (info->shared && ia64_info->self_dtpmod_offset != (bfd_vma) -1)
eea6121a 3133 ia64_info->rel_got_sec->size += sizeof (ElfNN_External_Rela);
4a78a1f4 3134 data.only_got = FALSE;
bbe66d08 3135 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_dynrel_entries, &data);
800eeca4
JW		 3136 }
3137
3138 /* We have now determined the sizes of the various dynamic sections.
3139 Allocate memory for them. */
3140 for (sec = dynobj->sections; sec != NULL; sec = sec->next)
3141 {
b34976b6 3142 bfd_boolean strip;
800eeca4
JW		 3143
3144 if (!(sec->flags & SEC_LINKER_CREATED))
3145 continue;
3146
3147 /* If we don't need this section, strip it from the output file.
3148 There were several sections primarily related to dynamic
3149 linking that must be create before the linker maps input
3150 sections to output sections. The linker does that before
3151 bfd_elf_size_dynamic_sections is called, and it is that
3152 function which decides whether anything needs to go into
3153 these sections. */
3154
eea6121a 3155 strip = (sec->size == 0);
800eeca4
JW		 3156
3157 if (sec == ia64_info->got_sec)
b34976b6 3158 strip = FALSE;
800eeca4
JW		 3159 else if (sec == ia64_info->rel_got_sec)
3160 {
3161 if (strip)
3162 ia64_info->rel_got_sec = NULL;
3163 else
3164 /* We use the reloc_count field as a counter if we need to
3165 copy relocs into the output file. */
3166 sec->reloc_count = 0;
3167 }
3168 else if (sec == ia64_info->fptr_sec)
3169 {
3170 if (strip)
3171 ia64_info->fptr_sec = NULL;
3172 }
55936540
JW		 3173 else if (sec == ia64_info->rel_fptr_sec)
3174 {
3175 if (strip)
3176 ia64_info->rel_fptr_sec = NULL;
3177 else
3178 /* We use the reloc_count field as a counter if we need to
3179 copy relocs into the output file. */
3180 sec->reloc_count = 0;
3181 }
800eeca4
JW		 3182 else if (sec == ia64_info->plt_sec)
3183 {
3184 if (strip)
3185 ia64_info->plt_sec = NULL;
3186 }
3187 else if (sec == ia64_info->pltoff_sec)
3188 {
3189 if (strip)
3190 ia64_info->pltoff_sec = NULL;
3191 }
3192 else if (sec == ia64_info->rel_pltoff_sec)
3193 {
3194 if (strip)
3195 ia64_info->rel_pltoff_sec = NULL;
3196 else
3197 {
b34976b6 3198 relplt = TRUE;
800eeca4
JW		 3199 /* We use the reloc_count field as a counter if we need to
3200 copy relocs into the output file. */
3201 sec->reloc_count = 0;
3202 }
3203 }
3204 else
3205 {
3206 const char *name;
3207
3208 /* It's OK to base decisions on the section name, because none
3209 of the dynobj section names depend upon the input files. */
3210 name = bfd_get_section_name (dynobj, sec);
3211
3212 if (strcmp (name, ".got.plt") == 0)
b34976b6 3213 strip = FALSE;
800eeca4
JW		 3214 else if (strncmp (name, ".rel", 4) == 0)
3215 {
3216 if (!strip)
3217 {
800eeca4
JW		 3218 /* We use the reloc_count field as a counter if we need to
3219 copy relocs into the output file. */
3220 sec->reloc_count = 0;
3221 }
3222 }
3223 else
3224 continue;
3225 }
3226
3227 if (strip)
8423293d 3228 sec->flags |= SEC_EXCLUDE;
800eeca4
JW		 3229 else
3230 {
3231 /* Allocate memory for the section contents. */
eea6121a
AM		 3232 sec->contents = (bfd_byte *) bfd_zalloc (dynobj, sec->size);
3233 if (sec->contents == NULL && sec->size != 0)
b34976b6 3234 return FALSE;
800eeca4
JW		 3235 }
3236 }
3237
3238 if (elf_hash_table (info)->dynamic_sections_created)
3239 {
3240 /* Add some entries to the .dynamic section. We fill in the values
3241 later (in finish_dynamic_sections) but we must add the entries now
3242 so that we get the correct size for the .dynamic section. */
3243
36af4a4e 3244 if (info->executable)
800eeca4
JW		 3245 {
3246 /* The DT_DEBUG entry is filled in by the dynamic linker and used
3247 by the debugger. */
dc810e39 3248#define add_dynamic_entry(TAG, VAL) \
5a580b3a 3249 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
dc810e39
AM		 3250
3251 if (!add_dynamic_entry (DT_DEBUG, 0))
b34976b6 3252 return FALSE;
800eeca4
JW		 3253 }
3254
dc810e39 3255 if (!add_dynamic_entry (DT_IA_64_PLT_RESERVE, 0))
b34976b6 3256 return FALSE;
dc810e39 3257 if (!add_dynamic_entry (DT_PLTGOT, 0))
b34976b6 3258 return FALSE;
800eeca4
JW		 3259
3260 if (relplt)
3261 {
dc810e39
AM		 3262 if (!add_dynamic_entry (DT_PLTRELSZ, 0)
3263 || !add_dynamic_entry (DT_PLTREL, DT_RELA)
3264 || !add_dynamic_entry (DT_JMPREL, 0))
b34976b6 3265 return FALSE;
800eeca4
JW		 3266 }
3267
dc810e39
AM		 3268 if (!add_dynamic_entry (DT_RELA, 0)
3269 || !add_dynamic_entry (DT_RELASZ, 0)
3270 || !add_dynamic_entry (DT_RELAENT, sizeof (ElfNN_External_Rela)))
b34976b6 3271 return FALSE;
800eeca4 3272
db6751f2 3273 if (ia64_info->reltext)
800eeca4 3274 {
dc810e39 3275 if (!add_dynamic_entry (DT_TEXTREL, 0))
b34976b6 3276 return FALSE;
d6cf2879 3277 info->flags |= DF_TEXTREL;
800eeca4
JW		 3278 }
3279 }
3280
3281 /* ??? Perhaps force __gp local. */
3282
b34976b6 3283 return TRUE;
800eeca4
JW		 3284}
3285
3286static bfd_reloc_status_type
bbb268c3 3287elfNN_ia64_install_value (hit_addr, v, r_type)
800eeca4 3288 bfd_byte *hit_addr;
1e738b87 3289 bfd_vma v;
800eeca4
JW		 3290 unsigned int r_type;
3291{
3292 const struct ia64_operand *op;
3293 int bigendian = 0, shift = 0;
b4677f03
AS		 3294 bfd_vma t0, t1, dword;
3295 ia64_insn insn;
800eeca4
JW		 3296 enum ia64_opnd opnd;
3297 const char *err;
3298 size_t size = 8;
1e738b87
NC		 3299#ifdef BFD_HOST_U_64_BIT
3300 BFD_HOST_U_64_BIT val = (BFD_HOST_U_64_BIT) v;
3301#else
3302 bfd_vma val = v;
3303#endif
800eeca4
JW		 3304
3305 opnd = IA64_OPND_NIL;
3306 switch (r_type)
3307 {
3308 case R_IA64_NONE:
3309 case R_IA64_LDXMOV:
3310 return bfd_reloc_ok;
3311
3e932841 3312 /* Instruction relocations. */
800eeca4 3313
13ae64f3
JJ		 3314 case R_IA64_IMM14:
3315 case R_IA64_TPREL14:
3316 case R_IA64_DTPREL14:
3317 opnd = IA64_OPND_IMM14;
3318 break;
748abff6 3319
800eeca4
JW		 3320 case R_IA64_PCREL21F: opnd = IA64_OPND_TGT25; break;
3321 case R_IA64_PCREL21M: opnd = IA64_OPND_TGT25b; break;
748abff6
RH		 3322 case R_IA64_PCREL60B: opnd = IA64_OPND_TGT64; break;
3323 case R_IA64_PCREL21B:
3324 case R_IA64_PCREL21BI:
3325 opnd = IA64_OPND_TGT25c;
3326 break;
800eeca4
JW		 3327
3328 case R_IA64_IMM22:
3329 case R_IA64_GPREL22:
3330 case R_IA64_LTOFF22:
3331 case R_IA64_LTOFF22X:
3332 case R_IA64_PLTOFF22:
748abff6 3333 case R_IA64_PCREL22:
800eeca4 3334 case R_IA64_LTOFF_FPTR22:
13ae64f3
JJ		 3335 case R_IA64_TPREL22:
3336 case R_IA64_DTPREL22:
3337 case R_IA64_LTOFF_TPREL22:
3338 case R_IA64_LTOFF_DTPMOD22:
3339 case R_IA64_LTOFF_DTPREL22:
800eeca4
JW		 3340 opnd = IA64_OPND_IMM22;
3341 break;
3342
3343 case R_IA64_IMM64:
3344 case R_IA64_GPREL64I:
3345 case R_IA64_LTOFF64I:
3346 case R_IA64_PLTOFF64I:
748abff6 3347 case R_IA64_PCREL64I:
800eeca4
JW		 3348 case R_IA64_FPTR64I:
3349 case R_IA64_LTOFF_FPTR64I:
13ae64f3
JJ		 3350 case R_IA64_TPREL64I:
3351 case R_IA64_DTPREL64I:
800eeca4
JW		 3352 opnd = IA64_OPND_IMMU64;
3353 break;
3354
3355 /* Data relocations. */
3356
3357 case R_IA64_DIR32MSB:
3358 case R_IA64_GPREL32MSB:
3359 case R_IA64_FPTR32MSB:
3360 case R_IA64_PCREL32MSB:
a4bd8390 3361 case R_IA64_LTOFF_FPTR32MSB:
800eeca4
JW		 3362 case R_IA64_SEGREL32MSB:
3363 case R_IA64_SECREL32MSB:
3364 case R_IA64_LTV32MSB:
13ae64f3 3365 case R_IA64_DTPREL32MSB:
800eeca4
JW		 3366 size = 4; bigendian = 1;
3367 break;
3368
3369 case R_IA64_DIR32LSB:
3370 case R_IA64_GPREL32LSB:
3371 case R_IA64_FPTR32LSB:
3372 case R_IA64_PCREL32LSB:
a4bd8390 3373 case R_IA64_LTOFF_FPTR32LSB:
800eeca4
JW		 3374 case R_IA64_SEGREL32LSB:
3375 case R_IA64_SECREL32LSB:
3376 case R_IA64_LTV32LSB:
13ae64f3 3377 case R_IA64_DTPREL32LSB:
800eeca4
JW		 3378 size = 4; bigendian = 0;
3379 break;
3380
3381 case R_IA64_DIR64MSB:
3382 case R_IA64_GPREL64MSB:
3383 case R_IA64_PLTOFF64MSB:
3384 case R_IA64_FPTR64MSB:
3385 case R_IA64_PCREL64MSB:
3386 case R_IA64_LTOFF_FPTR64MSB:
3387 case R_IA64_SEGREL64MSB:
3388 case R_IA64_SECREL64MSB:
3389 case R_IA64_LTV64MSB:
13ae64f3
JJ		 3390 case R_IA64_TPREL64MSB:
3391 case R_IA64_DTPMOD64MSB:
3392 case R_IA64_DTPREL64MSB:
800eeca4
JW		 3393 size = 8; bigendian = 1;
3394 break;
3395
3396 case R_IA64_DIR64LSB:
3397 case R_IA64_GPREL64LSB:
3398 case R_IA64_PLTOFF64LSB:
3399 case R_IA64_FPTR64LSB:
3400 case R_IA64_PCREL64LSB:
3401 case R_IA64_LTOFF_FPTR64LSB:
3402 case R_IA64_SEGREL64LSB:
3403 case R_IA64_SECREL64LSB:
3404 case R_IA64_LTV64LSB:
13ae64f3
JJ		 3405 case R_IA64_TPREL64LSB:
3406 case R_IA64_DTPMOD64LSB:
3407 case R_IA64_DTPREL64LSB:
800eeca4
JW		 3408 size = 8; bigendian = 0;
3409 break;
3410
3411 /* Unsupported / Dynamic relocations. */
800eeca4
JW		 3412 default:
3413 return bfd_reloc_notsupported;
3414 }
3415
3416 switch (opnd)
3417 {
3418 case IA64_OPND_IMMU64:
3419 hit_addr -= (long) hit_addr & 0x3;
bbb268c3
JW		 3420 t0 = bfd_getl64 (hit_addr);
3421 t1 = bfd_getl64 (hit_addr + 8);
800eeca4
JW		 3422
3423 /* tmpl/s: bits 0.. 5 in t0
3424 slot 0: bits 5..45 in t0
3425 slot 1: bits 46..63 in t0, bits 0..22 in t1
3426 slot 2: bits 23..63 in t1 */
3427
3428 /* First, clear the bits that form the 64 bit constant. */
3429 t0 &= ~(0x3ffffLL << 46);
3430 t1 &= ~(0x7fffffLL
3431 | (( (0x07fLL << 13) | (0x1ffLL << 27)
3432 | (0x01fLL << 22) | (0x001LL << 21)
3433 | (0x001LL << 36)) << 23));
3434
3435 t0 |= ((val >> 22) & 0x03ffffLL) << 46; /* 18 lsbs of imm41 */
3436 t1 |= ((val >> 40) & 0x7fffffLL) << 0; /* 23 msbs of imm41 */
3437 t1 |= ( (((val >> 0) & 0x07f) << 13) /* imm7b */
3438 | (((val >> 7) & 0x1ff) << 27) /* imm9d */
3439 | (((val >> 16) & 0x01f) << 22) /* imm5c */
3440 | (((val >> 21) & 0x001) << 21) /* ic */
3441 | (((val >> 63) & 0x001) << 36)) << 23; /* i */
3442
bbb268c3
JW		 3443 bfd_putl64 (t0, hit_addr);
3444 bfd_putl64 (t1, hit_addr + 8);
800eeca4
JW		 3445 break;
3446
748abff6
RH		 3447 case IA64_OPND_TGT64:
3448 hit_addr -= (long) hit_addr & 0x3;
bbb268c3
JW		 3449 t0 = bfd_getl64 (hit_addr);
3450 t1 = bfd_getl64 (hit_addr + 8);
748abff6
RH		 3451
3452 /* tmpl/s: bits 0.. 5 in t0
3453 slot 0: bits 5..45 in t0
3454 slot 1: bits 46..63 in t0, bits 0..22 in t1
3455 slot 2: bits 23..63 in t1 */
3456
3457 /* First, clear the bits that form the 64 bit constant. */
3458 t0 &= ~(0x3ffffLL << 46);
3459 t1 &= ~(0x7fffffLL
3460 | ((1LL << 36 | 0xfffffLL << 13) << 23));
3461
3462 val >>= 4;
3463 t0 |= ((val >> 20) & 0xffffLL) << 2 << 46; /* 16 lsbs of imm39 */
3464 t1 |= ((val >> 36) & 0x7fffffLL) << 0; /* 23 msbs of imm39 */
3465 t1 |= ((((val >> 0) & 0xfffffLL) << 13) /* imm20b */
3466 | (((val >> 59) & 0x1LL) << 36)) << 23; /* i */
3467
bbb268c3
JW		 3468 bfd_putl64 (t0, hit_addr);
3469 bfd_putl64 (t1, hit_addr + 8);
748abff6
RH		 3470 break;
3471
800eeca4
JW		 3472 default:
3473 switch ((long) hit_addr & 0x3)
3474 {
3475 case 0: shift = 5; break;
3476 case 1: shift = 14; hit_addr += 3; break;
3477 case 2: shift = 23; hit_addr += 6; break;
3e932841 3478 case 3: return bfd_reloc_notsupported; /* shouldn't happen... */
800eeca4 3479 }
bbb268c3 3480 dword = bfd_getl64 (hit_addr);
800eeca4
JW		 3481 insn = (dword >> shift) & 0x1ffffffffffLL;
3482
3483 op = elf64_ia64_operands + opnd;
b4677f03 3484 err = (*op->insert) (op, val, &insn);
800eeca4
JW		 3485 if (err)
3486 return bfd_reloc_overflow;
3487
3488 dword &= ~(0x1ffffffffffLL << shift);
3489 dword |= (insn << shift);
bbb268c3 3490 bfd_putl64 (dword, hit_addr);
800eeca4
JW		 3491 break;
3492
3493 case IA64_OPND_NIL:
3494 /* A data relocation. */
3495 if (bigendian)
3496 if (size == 4)
3497 bfd_putb32 (val, hit_addr);
3498 else
3499 bfd_putb64 (val, hit_addr);
3500 else
3501 if (size == 4)
3502 bfd_putl32 (val, hit_addr);
3503 else
3504 bfd_putl64 (val, hit_addr);
3505 break;
3506 }
3507
3508 return bfd_reloc_ok;
3509}
3510
3511static void
bbe66d08 3512elfNN_ia64_install_dyn_reloc (abfd, info, sec, srel, offset, type,
800eeca4
JW		 3513 dynindx, addend)
3514 bfd *abfd;
3515 struct bfd_link_info *info;
3516 asection *sec;
3517 asection *srel;
3518 bfd_vma offset;
3519 unsigned int type;
3520 long dynindx;
3521 bfd_vma addend;
3522{
3523 Elf_Internal_Rela outrel;
947216bf 3524 bfd_byte *loc;
800eeca4 3525
800eeca4 3526 BFD_ASSERT (dynindx != -1);
bbe66d08 3527 outrel.r_info = ELFNN_R_INFO (dynindx, type);
800eeca4 3528 outrel.r_addend = addend;
c629eae0 3529 outrel.r_offset = _bfd_elf_section_offset (abfd, info, sec, offset);
99eb2ac8 3530 if (outrel.r_offset >= (bfd_vma) -2)
800eeca4 3531 {
c629eae0
JJ		 3532 /* Run for the hills. We shouldn't be outputting a relocation
3533 for this. So do what everyone else does and output a no-op. */
3534 outrel.r_info = ELFNN_R_INFO (0, R_IA64_NONE);
3535 outrel.r_addend = 0;
3536 outrel.r_offset = 0;
800eeca4 3537 }
99eb2ac8
AM		 3538 else
3539 outrel.r_offset += sec->output_section->vma + sec->output_offset;
800eeca4 3540
947216bf
AM		 3541 loc = srel->contents;
3542 loc += srel->reloc_count++ * sizeof (ElfNN_External_Rela);
3543 bfd_elfNN_swap_reloca_out (abfd, &outrel, loc);
eea6121a 3544 BFD_ASSERT (sizeof (ElfNN_External_Rela) * srel->reloc_count <= srel->size);
800eeca4
JW		 3545}
3546
3547/* Store an entry for target address TARGET_ADDR in the linkage table
3548 and return the gp-relative address of the linkage table entry. */
3549
3550static bfd_vma
3551set_got_entry (abfd, info, dyn_i, dynindx, addend, value, dyn_r_type)
3552 bfd *abfd;
3553 struct bfd_link_info *info;
bbe66d08 3554 struct elfNN_ia64_dyn_sym_info *dyn_i;
800eeca4
JW		 3555 long dynindx;
3556 bfd_vma addend;
3557 bfd_vma value;
3558 unsigned int dyn_r_type;
3559{
bbe66d08 3560 struct elfNN_ia64_link_hash_table *ia64_info;
800eeca4 3561 asection *got_sec;
b34976b6 3562 bfd_boolean done;
13ae64f3 3563 bfd_vma got_offset;
800eeca4 3564
bbe66d08 3565 ia64_info = elfNN_ia64_hash_table (info);
800eeca4
JW		 3566 got_sec = ia64_info->got_sec;
3567
13ae64f3 3568 switch (dyn_r_type)
800eeca4 3569 {
13ae64f3
JJ		 3570 case R_IA64_TPREL64LSB:
3571 done = dyn_i->tprel_done;
b34976b6 3572 dyn_i->tprel_done = TRUE;
13ae64f3
JJ		 3573 got_offset = dyn_i->tprel_offset;
3574 break;
3575 case R_IA64_DTPMOD64LSB:
b3dfd7fe
JJ		 3576 if (dyn_i->dtpmod_offset != ia64_info->self_dtpmod_offset)
3577 {
3578 done = dyn_i->dtpmod_done;
3579 dyn_i->dtpmod_done = TRUE;
3580 }
3581 else
3582 {
3583 done = ia64_info->self_dtpmod_done;
3584 ia64_info->self_dtpmod_done = TRUE;
3585 dynindx = 0;
3586 }
13ae64f3
JJ		 3587 got_offset = dyn_i->dtpmod_offset;
3588 break;
5a260b66 3589 case R_IA64_DTPREL32LSB:
13ae64f3
JJ		 3590 case R_IA64_DTPREL64LSB:
3591 done = dyn_i->dtprel_done;
b34976b6 3592 dyn_i->dtprel_done = TRUE;
13ae64f3
JJ		 3593 got_offset = dyn_i->dtprel_offset;
3594 break;
3595 default:
3596 done = dyn_i->got_done;
b34976b6 3597 dyn_i->got_done = TRUE;
13ae64f3
JJ		 3598 got_offset = dyn_i->got_offset;
3599 break;
3600 }
800eeca4 3601
13ae64f3
JJ		 3602 BFD_ASSERT ((got_offset & 7) == 0);
3603
3604 if (! done)
3605 {
800eeca4 3606 /* Store the target address in the linkage table entry. */
13ae64f3 3607 bfd_put_64 (abfd, value, got_sec->contents + got_offset);
800eeca4
JW		 3608
3609 /* Install a dynamic relocation if needed. */
9203ba99
JJ		 3610 if (((info->shared
3611 && (!dyn_i->h
3612 || ELF_ST_VISIBILITY (dyn_i->h->other) == STV_DEFAULT
3613 || dyn_i->h->root.type != bfd_link_hash_undefweak)
5a260b66 3614 && dyn_r_type != R_IA64_DTPREL32LSB
9203ba99 3615 && dyn_r_type != R_IA64_DTPREL64LSB)
986a241f 3616 || elfNN_ia64_dynamic_symbol_p (dyn_i->h, info, dyn_r_type)
5a260b66
L		 3617 || (dynindx != -1
3618 && (dyn_r_type == R_IA64_FPTR32LSB
3619 || dyn_r_type == R_IA64_FPTR64LSB)))
9203ba99
JJ		 3620 && (!dyn_i->want_ltoff_fptr
3621 || !info->pie
3622 || !dyn_i->h
3623 || dyn_i->h->root.type != bfd_link_hash_undefweak))
800eeca4 3624 {
13ae64f3
JJ		 3625 if (dynindx == -1
3626 && dyn_r_type != R_IA64_TPREL64LSB
3627 && dyn_r_type != R_IA64_DTPMOD64LSB
5a260b66 3628 && dyn_r_type != R_IA64_DTPREL32LSB
13ae64f3 3629 && dyn_r_type != R_IA64_DTPREL64LSB)
800eeca4 3630 {
5a260b66 3631 dyn_r_type = R_IA64_RELNNLSB;
800eeca4
JW		 3632 dynindx = 0;
3633 addend = value;
3634 }
3635
3636 if (bfd_big_endian (abfd))
3637 {
3638 switch (dyn_r_type)
3639 {
5a260b66
L		 3640 case R_IA64_REL32LSB:
3641 dyn_r_type = R_IA64_REL32MSB;
3642 break;
3643 case R_IA64_DIR32LSB:
3644 dyn_r_type = R_IA64_DIR32MSB;
3645 break;
3646 case R_IA64_FPTR32LSB:
3647 dyn_r_type = R_IA64_FPTR32MSB;
3648 break;
3649 case R_IA64_DTPREL32LSB:
3650 dyn_r_type = R_IA64_DTPREL32MSB;
3651 break;
800eeca4
JW		 3652 case R_IA64_REL64LSB:
3653 dyn_r_type = R_IA64_REL64MSB;
3654 break;
3655 case R_IA64_DIR64LSB:
3656 dyn_r_type = R_IA64_DIR64MSB;
3657 break;
3658 case R_IA64_FPTR64LSB:
3659 dyn_r_type = R_IA64_FPTR64MSB;
3660 break;
13ae64f3
JJ		 3661 case R_IA64_TPREL64LSB:
3662 dyn_r_type = R_IA64_TPREL64MSB;
3663 break;
3664 case R_IA64_DTPMOD64LSB:
3665 dyn_r_type = R_IA64_DTPMOD64MSB;
3666 break;
3667 case R_IA64_DTPREL64LSB:
3668 dyn_r_type = R_IA64_DTPREL64MSB;
3669 break;
800eeca4 3670 default:
b34976b6 3671 BFD_ASSERT (FALSE);
800eeca4
JW		 3672 break;
3673 }
3674 }
3675
bbe66d08 3676 elfNN_ia64_install_dyn_reloc (abfd, NULL, got_sec,
800eeca4 3677 ia64_info->rel_got_sec,
13ae64f3 3678 got_offset, dyn_r_type,
800eeca4
JW		 3679 dynindx, addend);
3680 }
3681 }
3682
3683 /* Return the address of the linkage table entry. */
3684 value = (got_sec->output_section->vma
3685 + got_sec->output_offset
13ae64f3 3686 + got_offset);
800eeca4
JW		 3687
3688 return value;
3689}
3690
3691/* Fill in a function descriptor consisting of the function's code
3692 address and its global pointer. Return the descriptor's address. */
3693
3694static bfd_vma
3695set_fptr_entry (abfd, info, dyn_i, value)
3696 bfd *abfd;
3697 struct bfd_link_info *info;
bbe66d08 3698 struct elfNN_ia64_dyn_sym_info *dyn_i;
800eeca4
JW		 3699 bfd_vma value;
3700{
bbe66d08 3701 struct elfNN_ia64_link_hash_table *ia64_info;
800eeca4
JW		 3702 asection *fptr_sec;
3703
bbe66d08 3704 ia64_info = elfNN_ia64_hash_table (info);
800eeca4
JW		 3705 fptr_sec = ia64_info->fptr_sec;
3706
3707 if (!dyn_i->fptr_done)
3708 {
3709 dyn_i->fptr_done = 1;
3710
3711 /* Fill in the function descriptor. */
3712 bfd_put_64 (abfd, value, fptr_sec->contents + dyn_i->fptr_offset);
3713 bfd_put_64 (abfd, _bfd_get_gp_value (abfd),
3714 fptr_sec->contents + dyn_i->fptr_offset + 8);
9203ba99
JJ		 3715 if (ia64_info->rel_fptr_sec)
3716 {
3717 Elf_Internal_Rela outrel;
3718 bfd_byte *loc;
3719
3720 if (bfd_little_endian (abfd))
3721 outrel.r_info = ELFNN_R_INFO (0, R_IA64_IPLTLSB);
3722 else
3723 outrel.r_info = ELFNN_R_INFO (0, R_IA64_IPLTMSB);
3724 outrel.r_addend = value;
3725 outrel.r_offset = (fptr_sec->output_section->vma
3726 + fptr_sec->output_offset
3727 + dyn_i->fptr_offset);
3728 loc = ia64_info->rel_fptr_sec->contents;
3729 loc += ia64_info->rel_fptr_sec->reloc_count++
3730 * sizeof (ElfNN_External_Rela);
3731 bfd_elfNN_swap_reloca_out (abfd, &outrel, loc);
3732 }
800eeca4
JW		 3733 }
3734
3735 /* Return the descriptor's address. */
3736 value = (fptr_sec->output_section->vma
3737 + fptr_sec->output_offset
3738 + dyn_i->fptr_offset);
3739
3740 return value;
3741}
3742
3743/* Fill in a PLTOFF entry consisting of the function's code address
3744 and its global pointer. Return the descriptor's address. */
3745
3746static bfd_vma
3747set_pltoff_entry (abfd, info, dyn_i, value, is_plt)
3748 bfd *abfd;
3749 struct bfd_link_info *info;
bbe66d08 3750 struct elfNN_ia64_dyn_sym_info *dyn_i;
800eeca4 3751 bfd_vma value;
b34976b6 3752 bfd_boolean is_plt;
800eeca4 3753{
bbe66d08 3754 struct elfNN_ia64_link_hash_table *ia64_info;
800eeca4
JW		 3755 asection *pltoff_sec;
3756
bbe66d08 3757 ia64_info = elfNN_ia64_hash_table (info);
800eeca4
JW		 3758 pltoff_sec = ia64_info->pltoff_sec;
3759
3760 /* Don't do anything if this symbol uses a real PLT entry. In
3761 that case, we'll fill this in during finish_dynamic_symbol. */
3762 if ((! dyn_i->want_plt || is_plt)
3763 && !dyn_i->pltoff_done)
3764 {
18b27f17
RH		 3765 bfd_vma gp = _bfd_get_gp_value (abfd);
3766
800eeca4
JW		 3767 /* Fill in the function descriptor. */
3768 bfd_put_64 (abfd, value, pltoff_sec->contents + dyn_i->pltoff_offset);
18b27f17 3769 bfd_put_64 (abfd, gp, pltoff_sec->contents + dyn_i->pltoff_offset + 8);
800eeca4
JW		 3770
3771 /* Install dynamic relocations if needed. */
ef5aade5
L		 3772 if (!is_plt
3773 && info->shared
3774 && (!dyn_i->h
3775 || ELF_ST_VISIBILITY (dyn_i->h->other) == STV_DEFAULT
3776 || dyn_i->h->root.type != bfd_link_hash_undefweak))
800eeca4
JW		 3777 {
3778 unsigned int dyn_r_type;
3779
3780 if (bfd_big_endian (abfd))
5a260b66 3781 dyn_r_type = R_IA64_RELNNMSB;
800eeca4 3782 else
5a260b66 3783 dyn_r_type = R_IA64_RELNNLSB;
800eeca4 3784
bbe66d08 3785 elfNN_ia64_install_dyn_reloc (abfd, NULL, pltoff_sec,
800eeca4
JW		 3786 ia64_info->rel_pltoff_sec,
3787 dyn_i->pltoff_offset,
18b27f17 3788 dyn_r_type, 0, value);
bbe66d08 3789 elfNN_ia64_install_dyn_reloc (abfd, NULL, pltoff_sec,
800eeca4 3790 ia64_info->rel_pltoff_sec,
5a260b66 3791 dyn_i->pltoff_offset + ARCH_SIZE / 8,
18b27f17 3792 dyn_r_type, 0, gp);
800eeca4
JW		 3793 }
3794
3795 dyn_i->pltoff_done = 1;
3796 }
3797
3798 /* Return the descriptor's address. */
3799 value = (pltoff_sec->output_section->vma
3800 + pltoff_sec->output_offset
3801 + dyn_i->pltoff_offset);
3802
3803 return value;
3804}
3805
13ae64f3
JJ		 3806/* Return the base VMA address which should be subtracted from real addresses
3807 when resolving @tprel() relocation.
3808 Main program TLS (whose template starts at PT_TLS p_vaddr)
5a260b66 3809 is assigned offset round(2 * size of pointer, PT_TLS p_align). */
13ae64f3
JJ		 3810
3811static bfd_vma
3812elfNN_ia64_tprel_base (info)
3813 struct bfd_link_info *info;
3814{
e1918d23 3815 asection *tls_sec = elf_hash_table (info)->tls_sec;
13ae64f3 3816
e1918d23 3817 BFD_ASSERT (tls_sec != NULL);
5a260b66
L		 3818 return tls_sec->vma - align_power ((bfd_vma) ARCH_SIZE / 4,
3819 tls_sec->alignment_power);
13ae64f3
JJ		 3820}
3821
3822/* Return the base VMA address which should be subtracted from real addresses
3823 when resolving @dtprel() relocation.
3824 This is PT_TLS segment p_vaddr. */
3825
3826static bfd_vma
3827elfNN_ia64_dtprel_base (info)
3828 struct bfd_link_info *info;
3829{
e1918d23
AM		 3830 BFD_ASSERT (elf_hash_table (info)->tls_sec != NULL);
3831 return elf_hash_table (info)->tls_sec->vma;
13ae64f3
JJ		 3832}
3833
f3b6f7c3 3834/* Called through qsort to sort the .IA_64.unwind section during a
bbe66d08 3835 non-relocatable link. Set elfNN_ia64_unwind_entry_compare_bfd
f3b6f7c3
RH		 3836 to the output bfd so we can do proper endianness frobbing. */
3837
bbe66d08 3838static bfd *elfNN_ia64_unwind_entry_compare_bfd;
f3b6f7c3
RH		 3839
3840static int
bbe66d08 3841elfNN_ia64_unwind_entry_compare (a, b)
cea4409c
AM		 3842 const PTR a;
3843 const PTR b;
f3b6f7c3
RH		 3844{
3845 bfd_vma av, bv;
3846
bbe66d08
JW		 3847 av = bfd_get_64 (elfNN_ia64_unwind_entry_compare_bfd, a);
3848 bv = bfd_get_64 (elfNN_ia64_unwind_entry_compare_bfd, b);
f3b6f7c3
RH		 3849
3850 return (av < bv ? -1 : av > bv ? 1 : 0);
3851}
3852
2c4c2bc0 3853/* Make sure we've got ourselves a nice fat __gp value. */
b34976b6 3854static bfd_boolean
2c4c2bc0 3855elfNN_ia64_choose_gp (abfd, info)
800eeca4
JW		 3856 bfd *abfd;
3857 struct bfd_link_info *info;
3858{
2c4c2bc0
RH		 3859 bfd_vma min_vma = (bfd_vma) -1, max_vma = 0;
3860 bfd_vma min_short_vma = min_vma, max_short_vma = 0;
3861 struct elf_link_hash_entry *gp;
3862 bfd_vma gp_val;
3863 asection *os;
bbe66d08 3864 struct elfNN_ia64_link_hash_table *ia64_info;
9a951beb 3865
bbe66d08 3866 ia64_info = elfNN_ia64_hash_table (info);
800eeca4 3867
2c4c2bc0
RH		 3868 /* Find the min and max vma of all sections marked short. Also collect
3869 min and max vma of any type, for use in selecting a nice gp. */
3870 for (os = abfd->sections; os ; os = os->next)
800eeca4 3871 {
2c4c2bc0 3872 bfd_vma lo, hi;
800eeca4 3873
2c4c2bc0
RH		 3874 if ((os->flags & SEC_ALLOC) == 0)
3875 continue;
3876
3877 lo = os->vma;
eea6121a 3878 hi = os->vma + os->size;
2c4c2bc0
RH		 3879 if (hi < lo)
3880 hi = (bfd_vma) -1;
3881
3882 if (min_vma > lo)
3883 min_vma = lo;
3884 if (max_vma < hi)
3885 max_vma = hi;
3886 if (os->flags & SEC_SMALL_DATA)
800eeca4 3887 {
2c4c2bc0
RH		 3888 if (min_short_vma > lo)
3889 min_short_vma = lo;
3890 if (max_short_vma < hi)
3891 max_short_vma = hi;
3892 }
3893 }
800eeca4 3894
2c4c2bc0
RH		 3895 /* See if the user wants to force a value. */
3896 gp = elf_link_hash_lookup (elf_hash_table (info), "__gp", FALSE,
3897 FALSE, FALSE);
800eeca4 3898
2c4c2bc0
RH		 3899 if (gp
3900 && (gp->root.type == bfd_link_hash_defined
3901 || gp->root.type == bfd_link_hash_defweak))
3902 {
3903 asection *gp_sec = gp->root.u.def.section;
3904 gp_val = (gp->root.u.def.value
3905 + gp_sec->output_section->vma
3906 + gp_sec->output_offset);
3907 }
3908 else
3909 {
3910 /* Pick a sensible value. */
800eeca4 3911
2c4c2bc0
RH		 3912 asection *got_sec = ia64_info->got_sec;
3913
3914 /* Start with just the address of the .got. */
3915 if (got_sec)
3916 gp_val = got_sec->output_section->vma;
3917 else if (max_short_vma != 0)
3918 gp_val = min_short_vma;
3919 else
3920 gp_val = min_vma;
3921
3922 /* If it is possible to address the entire image, but we
3923 don't with the choice above, adjust. */
3924 if (max_vma - min_vma < 0x400000
3925 && max_vma - gp_val <= 0x200000
3926 && gp_val - min_vma > 0x200000)
3927 gp_val = min_vma + 0x200000;
3928 else if (max_short_vma != 0)
3929 {
3930 /* If we don't cover all the short data, adjust. */
3931 if (max_short_vma - gp_val >= 0x200000)
3932 gp_val = min_short_vma + 0x200000;
3933
3934 /* If we're addressing stuff past the end, adjust back. */
3935 if (gp_val > max_vma)
3936 gp_val = max_vma - 0x200000 + 8;
800eeca4 3937 }
2c4c2bc0 3938 }
800eeca4 3939
2c4c2bc0
RH		 3940 /* Validate whether all SHF_IA_64_SHORT sections are within
3941 range of the chosen GP. */
800eeca4 3942
2c4c2bc0
RH		 3943 if (max_short_vma != 0)
3944 {
3945 if (max_short_vma - min_short_vma >= 0x400000)
800eeca4 3946 {
2c4c2bc0
RH		 3947 (*_bfd_error_handler)
3948 (_("%s: short data segment overflowed (0x%lx >= 0x400000)"),
3949 bfd_get_filename (abfd),
3950 (unsigned long) (max_short_vma - min_short_vma));
3951 return FALSE;
800eeca4 3952 }
2c4c2bc0
RH		 3953 else if ((gp_val > min_short_vma
3954 && gp_val - min_short_vma > 0x200000)
3955 || (gp_val < max_short_vma
3956 && max_short_vma - gp_val >= 0x200000))
800eeca4 3957 {
2c4c2bc0
RH		 3958 (*_bfd_error_handler)
3959 (_("%s: __gp does not cover short data segment"),
3960 bfd_get_filename (abfd));
3961 return FALSE;
3962 }
3963 }
800eeca4 3964
2c4c2bc0 3965 _bfd_set_gp_value (abfd, gp_val);
800eeca4 3966
2c4c2bc0
RH		 3967 return TRUE;
3968}
800eeca4 3969
2c4c2bc0
RH		 3970static bfd_boolean
3971elfNN_ia64_final_link (abfd, info)
3972 bfd *abfd;
3973 struct bfd_link_info *info;
3974{
3975 struct elfNN_ia64_link_hash_table *ia64_info;
3976 asection *unwind_output_sec;
800eeca4 3977
2c4c2bc0 3978 ia64_info = elfNN_ia64_hash_table (info);
800eeca4 3979
2c4c2bc0 3980 /* Make sure we've got ourselves a nice fat __gp value. */
1049f94e 3981 if (!info->relocatable)
2c4c2bc0
RH		 3982 {
3983 bfd_vma gp_val = _bfd_get_gp_value (abfd);
3984 struct elf_link_hash_entry *gp;
3985
3986 if (gp_val == 0)
800eeca4 3987 {
2c4c2bc0
RH		 3988 if (! elfNN_ia64_choose_gp (abfd, info))
3989 return FALSE;
3990 gp_val = _bfd_get_gp_value (abfd);
800eeca4
JW		 3991 }
3992
2c4c2bc0
RH		 3993 gp = elf_link_hash_lookup (elf_hash_table (info), "__gp", FALSE,
3994 FALSE, FALSE);
b4adccfd
RH		 3995 if (gp)
3996 {
3997 gp->root.type = bfd_link_hash_defined;
3998 gp->root.u.def.value = gp_val;
3999 gp->root.u.def.section = bfd_abs_section_ptr;
4000 }
800eeca4
JW		 4001 }
4002
f3b6f7c3 4003 /* If we're producing a final executable, we need to sort the contents
9a951beb
RH		 4004 of the .IA_64.unwind section. Force this section to be relocated
4005 into memory rather than written immediately to the output file. */
4006 unwind_output_sec = NULL;
1049f94e 4007 if (!info->relocatable)
f3b6f7c3
RH		 4008 {
4009 asection *s = bfd_get_section_by_name (abfd, ELF_STRING_ia64_unwind);
4010 if (s)
4011 {
9a951beb
RH		 4012 unwind_output_sec = s->output_section;
4013 unwind_output_sec->contents
eea6121a 4014 = bfd_malloc (unwind_output_sec->size);
9a951beb 4015 if (unwind_output_sec->contents == NULL)
b34976b6 4016 return FALSE;
9a951beb
RH		 4017 }
4018 }
f3b6f7c3 4019
9a951beb 4020 /* Invoke the regular ELF backend linker to do all the work. */
c152c796 4021 if (!bfd_elf_final_link (abfd, info))
b34976b6 4022 return FALSE;
f3b6f7c3 4023
9a951beb
RH		 4024 if (unwind_output_sec)
4025 {
4026 elfNN_ia64_unwind_entry_compare_bfd = abfd;
dc810e39 4027 qsort (unwind_output_sec->contents,
eea6121a 4028 (size_t) (unwind_output_sec->size / 24),
dc810e39
AM		 4029 24,
4030 elfNN_ia64_unwind_entry_compare);
9a951beb
RH		 4031
4032 if (! bfd_set_section_contents (abfd, unwind_output_sec,
dc810e39 4033 unwind_output_sec->contents, (bfd_vma) 0,
eea6121a 4034 unwind_output_sec->size))
b34976b6 4035 return FALSE;
f3b6f7c3
RH		 4036 }
4037
b34976b6 4038 return TRUE;
800eeca4
JW		 4039}
4040
b34976b6 4041static bfd_boolean
bbe66d08 4042elfNN_ia64_relocate_section (output_bfd, info, input_bfd, input_section,
800eeca4
JW		 4043 contents, relocs, local_syms, local_sections)
4044 bfd *output_bfd;
4045 struct bfd_link_info *info;
4046 bfd *input_bfd;
4047 asection *input_section;
4048 bfd_byte *contents;
4049 Elf_Internal_Rela *relocs;
4050 Elf_Internal_Sym *local_syms;
4051 asection **local_sections;
4052{
bbe66d08 4053 struct elfNN_ia64_link_hash_table *ia64_info;
800eeca4
JW		 4054 Elf_Internal_Shdr *symtab_hdr;
4055 Elf_Internal_Rela *rel;
4056 Elf_Internal_Rela *relend;
4057 asection *srel;
b34976b6 4058 bfd_boolean ret_val = TRUE; /* for non-fatal errors */
800eeca4
JW		 4059 bfd_vma gp_val;
4060
4061 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
bbe66d08 4062 ia64_info = elfNN_ia64_hash_table (info);
800eeca4
JW		 4063
4064 /* Infect various flags from the input section to the output section. */
1049f94e 4065 if (info->relocatable)
800eeca4
JW		 4066 {
4067 bfd_vma flags;
4068
4069 flags = elf_section_data(input_section)->this_hdr.sh_flags;
4070 flags &= SHF_IA_64_NORECOV;
4071
4072 elf_section_data(input_section->output_section)
4073 ->this_hdr.sh_flags |= flags;
b34976b6 4074 return TRUE;
800eeca4
JW		 4075 }
4076
4077 gp_val = _bfd_get_gp_value (output_bfd);
b34976b6 4078 srel = get_reloc_section (input_bfd, ia64_info, input_section, FALSE);
800eeca4
JW		 4079
4080 rel = relocs;
4081 relend = relocs + input_section->reloc_count;
4082 for (; rel < relend; ++rel)
4083 {
4084 struct elf_link_hash_entry *h;
bbe66d08 4085 struct elfNN_ia64_dyn_sym_info *dyn_i;
800eeca4
JW		 4086 bfd_reloc_status_type r;
4087 reloc_howto_type *howto;
4088 unsigned long r_symndx;
4089 Elf_Internal_Sym *sym;
4090 unsigned int r_type;
4091 bfd_vma value;
4092 asection *sym_sec;
4093 bfd_byte *hit_addr;
b34976b6
AM		 4094 bfd_boolean dynamic_symbol_p;
4095 bfd_boolean undef_weak_ref;
800eeca4 4096
bbe66d08 4097 r_type = ELFNN_R_TYPE (rel->r_info);
800eeca4
JW		 4098 if (r_type > R_IA64_MAX_RELOC_CODE)
4099 {
4100 (*_bfd_error_handler)
d003868e
AM		 4101 (_("%B: unknown relocation type %d"),
4102 input_bfd, (int) r_type);
800eeca4 4103 bfd_set_error (bfd_error_bad_value);
b34976b6 4104 ret_val = FALSE;
800eeca4
JW		 4105 continue;
4106 }
b491616a 4107
800eeca4 4108 howto = lookup_howto (r_type);
bbe66d08 4109 r_symndx = ELFNN_R_SYM (rel->r_info);
800eeca4
JW		 4110 h = NULL;
4111 sym = NULL;
4112 sym_sec = NULL;
b34976b6 4113 undef_weak_ref = FALSE;
800eeca4
JW		 4114
4115 if (r_symndx < symtab_hdr->sh_info)
4116 {
4117 /* Reloc against local symbol. */
8517fae7 4118 asection *msec;
800eeca4
JW		 4119 sym = local_syms + r_symndx;
4120 sym_sec = local_sections[r_symndx];
8517fae7
AM		 4121 msec = sym_sec;
4122 value = _bfd_elf_rela_local_sym (output_bfd, sym, &msec, rel);
f7460f5f
JJ		 4123 if ((sym_sec->flags & SEC_MERGE)
4124 && ELF_ST_TYPE (sym->st_info) == STT_SECTION
68bfbfcc 4125 && sym_sec->sec_info_type == ELF_INFO_TYPE_MERGE)
f7460f5f
JJ		 4126 {
4127 struct elfNN_ia64_local_hash_entry *loc_h;
b34976b6
AM		 4128
4129 loc_h = get_local_sym_hash (ia64_info, input_bfd, rel, FALSE);
f7460f5f
JJ		 4130 if (loc_h && ! loc_h->sec_merge_done)
4131 {
4132 struct elfNN_ia64_dyn_sym_info *dynent;
f7460f5f
JJ		 4133
4134 for (dynent = loc_h->info; dynent; dynent = dynent->next)
4135 {
4136 msec = sym_sec;
4137 dynent->addend =
4138 _bfd_merged_section_offset (output_bfd, &msec,
4139 elf_section_data (msec)->
65765700 4140 sec_info,
f7460f5f 4141 sym->st_value
753731ee 4142 + dynent->addend);
f7460f5f
JJ		 4143 dynent->addend -= sym->st_value;
4144 dynent->addend += msec->output_section->vma
4145 + msec->output_offset
4146 - sym_sec->output_section->vma
4147 - sym_sec->output_offset;
4148 }
4149 loc_h->sec_merge_done = 1;
4150 }
4151 }
800eeca4
JW		 4152 }
4153 else
4154 {
560e09e9
NC		 4155 bfd_boolean unresolved_reloc;
4156 bfd_boolean warned;
b2a8e766 4157 struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (input_bfd);
800eeca4 4158
b2a8e766
AM		 4159 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
4160 r_symndx, symtab_hdr, sym_hashes,
4161 h, sym_sec, value,
4162 unresolved_reloc, warned);
800eeca4 4163
560e09e9 4164 if (h->root.type == bfd_link_hash_undefweak)
b34976b6 4165 undef_weak_ref = TRUE;
560e09e9
NC		 4166 else if (warned)
4167 continue;
800eeca4
JW		 4168 }
4169
4170 hit_addr = contents + rel->r_offset;
4171 value += rel->r_addend;
986a241f 4172 dynamic_symbol_p = elfNN_ia64_dynamic_symbol_p (h, info, r_type);
800eeca4
JW		 4173
4174 switch (r_type)
4175 {
4176 case R_IA64_NONE:
4177 case R_IA64_LDXMOV:
4178 continue;
4179
4180 case R_IA64_IMM14:
4181 case R_IA64_IMM22:
4182 case R_IA64_IMM64:
4183 case R_IA64_DIR32MSB:
4184 case R_IA64_DIR32LSB:
4185 case R_IA64_DIR64MSB:
4186 case R_IA64_DIR64LSB:
4187 /* Install a dynamic relocation for this reloc. */
02e6ad56 4188 if ((dynamic_symbol_p || info->shared)
ec338859 4189 && r_symndx != 0
800eeca4
JW		 4190 && (input_section->flags & SEC_ALLOC) != 0)
4191 {
4192 unsigned int dyn_r_type;
4193 long dynindx;
18b27f17 4194 bfd_vma addend;
800eeca4
JW		 4195
4196 BFD_ASSERT (srel != NULL);
4197
838e70c5
L		 4198 switch (r_type)
4199 {
4200 case R_IA64_IMM14:
4201 case R_IA64_IMM22:
4202 case R_IA64_IMM64:
4203 /* ??? People shouldn't be doing non-pic code in
4204 shared libraries nor dynamic executables. */
4205 (*_bfd_error_handler)
d003868e
AM		 4206 (_("%B: non-pic code with imm relocation against dynamic symbol `%s'"),
4207 input_bfd,
26c61ae5
L		 4208 h ? h->root.root.string
4209 : bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
4210 sym_sec));
838e70c5
L		 4211 ret_val = FALSE;
4212 continue;
4213
4214 default:
4215 break;
4216 }
4217
800eeca4
JW		 4218 /* If we don't need dynamic symbol lookup, find a
4219 matching RELATIVE relocation. */
4220 dyn_r_type = r_type;
986a241f 4221 if (dynamic_symbol_p)
18b27f17
RH		 4222 {
4223 dynindx = h->dynindx;
4224 addend = rel->r_addend;
4225 value = 0;
4226 }
800eeca4
JW		 4227 else
4228 {
4229 switch (r_type)
4230 {
4231 case R_IA64_DIR32MSB:
4232 dyn_r_type = R_IA64_REL32MSB;
4233 break;
4234 case R_IA64_DIR32LSB:
4235 dyn_r_type = R_IA64_REL32LSB;
4236 break;
4237 case R_IA64_DIR64MSB:
4238 dyn_r_type = R_IA64_REL64MSB;
4239 break;
4240 case R_IA64_DIR64LSB:
4241 dyn_r_type = R_IA64_REL64LSB;
4242 break;
4243
4244 default:
838e70c5 4245 break;
800eeca4
JW		 4246 }
4247 dynindx = 0;
18b27f17 4248 addend = value;
800eeca4
JW		 4249 }
4250
bbe66d08 4251 elfNN_ia64_install_dyn_reloc (output_bfd, info, input_section,
800eeca4 4252 srel, rel->r_offset, dyn_r_type,
18b27f17 4253 dynindx, addend);
800eeca4 4254 }
ae9a127f 4255 /* Fall through. */
800eeca4
JW		 4256
4257 case R_IA64_LTV32MSB:
4258 case R_IA64_LTV32LSB:
4259 case R_IA64_LTV64MSB:
4260 case R_IA64_LTV64LSB:
bbb268c3 4261 r = elfNN_ia64_install_value (hit_addr, value, r_type);
800eeca4
JW		 4262 break;
4263
4264 case R_IA64_GPREL22:
4265 case R_IA64_GPREL64I:
4266 case R_IA64_GPREL32MSB:
4267 case R_IA64_GPREL32LSB:
4268 case R_IA64_GPREL64MSB:
4269 case R_IA64_GPREL64LSB:
4270 if (dynamic_symbol_p)
4271 {
4272 (*_bfd_error_handler)
d003868e 4273 (_("%B: @gprel relocation against dynamic symbol %s"),
26c61ae5
L		 4274 input_bfd,
4275 h ? h->root.root.string
4276 : bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
4277 sym_sec));
b34976b6 4278 ret_val = FALSE;
800eeca4
JW		 4279 continue;
4280 }
4281 value -= gp_val;
bbb268c3 4282 r = elfNN_ia64_install_value (hit_addr, value, r_type);
800eeca4
JW		 4283 break;
4284
4285 case R_IA64_LTOFF22:
4286 case R_IA64_LTOFF22X:
4287 case R_IA64_LTOFF64I:
b34976b6 4288 dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
800eeca4 4289 value = set_got_entry (input_bfd, info, dyn_i, (h ? h->dynindx : -1),
5a260b66 4290 rel->r_addend, value, R_IA64_DIRNNLSB);
800eeca4 4291 value -= gp_val;
bbb268c3 4292 r = elfNN_ia64_install_value (hit_addr, value, r_type);
800eeca4
JW		 4293 break;
4294
4295 case R_IA64_PLTOFF22:
4296 case R_IA64_PLTOFF64I:
4297 case R_IA64_PLTOFF64MSB:
4298 case R_IA64_PLTOFF64LSB:
b34976b6
AM		 4299 dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
4300 value = set_pltoff_entry (output_bfd, info, dyn_i, value, FALSE);
800eeca4 4301 value -= gp_val;
bbb268c3 4302 r = elfNN_ia64_install_value (hit_addr, value, r_type);
800eeca4
JW		 4303 break;
4304
4305 case R_IA64_FPTR64I:
4306 case R_IA64_FPTR32MSB:
4307 case R_IA64_FPTR32LSB:
4308 case R_IA64_FPTR64MSB:
4309 case R_IA64_FPTR64LSB:
b34976b6 4310 dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
800eeca4
JW		 4311 if (dyn_i->want_fptr)
4312 {
4313 if (!undef_weak_ref)
4314 value = set_fptr_entry (output_bfd, info, dyn_i, value);
4315 }
9203ba99 4316 if (!dyn_i->want_fptr || info->pie)
800eeca4
JW		 4317 {
4318 long dynindx;
9203ba99
JJ		 4319 unsigned int dyn_r_type = r_type;
4320 bfd_vma addend = rel->r_addend;
800eeca4
JW		 4321
4322 /* Otherwise, we expect the dynamic linker to create
4323 the entry. */
4324
9203ba99
JJ		 4325 if (dyn_i->want_fptr)
4326 {
4327 if (r_type == R_IA64_FPTR64I)
4328 {
4329 /* We can't represent this without a dynamic symbol.
4330 Adjust the relocation to be against an output
4331 section symbol, which are always present in the
4332 dynamic symbol table. */
4333 /* ??? People shouldn't be doing non-pic code in
4334 shared libraries. Hork. */
4335 (*_bfd_error_handler)
d003868e
AM		 4336 (_("%B: linking non-pic code in a position independent executable"),
4337 input_bfd);
9203ba99
JJ		 4338 ret_val = FALSE;
4339 continue;
4340 }
4341 dynindx = 0;
4342 addend = value;
5a260b66 4343 dyn_r_type = r_type + R_IA64_RELNNLSB - R_IA64_FPTRNNLSB;
9203ba99
JJ		 4344 }
4345 else if (h)
800eeca4
JW		 4346 {
4347 if (h->dynindx != -1)
4348 dynindx = h->dynindx;
4349 else
4350 dynindx = (_bfd_elf_link_lookup_local_dynindx
4351 (info, h->root.u.def.section->owner,
4352 global_sym_index (h)));
9203ba99 4353 value = 0;
800eeca4
JW		 4354 }
4355 else
4356 {
4357 dynindx = (_bfd_elf_link_lookup_local_dynindx
dc810e39 4358 (info, input_bfd, (long) r_symndx));
9203ba99 4359 value = 0;
800eeca4
JW		 4360 }
4361
bbe66d08 4362 elfNN_ia64_install_dyn_reloc (output_bfd, info, input_section,
9203ba99
JJ		 4363 srel, rel->r_offset, dyn_r_type,
4364 dynindx, addend);
800eeca4
JW		 4365 }
4366
bbb268c3 4367 r = elfNN_ia64_install_value (hit_addr, value, r_type);
800eeca4
JW		 4368 break;
4369
4370 case R_IA64_LTOFF_FPTR22:
4371 case R_IA64_LTOFF_FPTR64I:
a4bd8390
JW		 4372 case R_IA64_LTOFF_FPTR32MSB:
4373 case R_IA64_LTOFF_FPTR32LSB:
800eeca4
JW		 4374 case R_IA64_LTOFF_FPTR64MSB:
4375 case R_IA64_LTOFF_FPTR64LSB:
4376 {
4377 long dynindx;
4378
b34976b6 4379 dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
800eeca4
JW		 4380 if (dyn_i->want_fptr)
4381 {
f12123c0 4382 BFD_ASSERT (h == NULL || h->dynindx == -1);
800eeca4
JW		 4383 if (!undef_weak_ref)
4384 value = set_fptr_entry (output_bfd, info, dyn_i, value);
4385 dynindx = -1;
4386 }
4387 else
4388 {
4389 /* Otherwise, we expect the dynamic linker to create
4390 the entry. */
4391 if (h)
4392 {
4393 if (h->dynindx != -1)
4394 dynindx = h->dynindx;
4395 else
4396 dynindx = (_bfd_elf_link_lookup_local_dynindx
4397 (info, h->root.u.def.section->owner,
4398 global_sym_index (h)));
4399 }
4400 else
4401 dynindx = (_bfd_elf_link_lookup_local_dynindx
dc810e39 4402 (info, input_bfd, (long) r_symndx));
800eeca4
JW		 4403 value = 0;
4404 }
4405
4406 value = set_got_entry (output_bfd, info, dyn_i, dynindx,
5a260b66 4407 rel->r_addend, value, R_IA64_FPTRNNLSB);
800eeca4 4408 value -= gp_val;
bbb268c3 4409 r = elfNN_ia64_install_value (hit_addr, value, r_type);
800eeca4
JW		 4410 }
4411 break;
4412
4413 case R_IA64_PCREL32MSB:
4414 case R_IA64_PCREL32LSB:
4415 case R_IA64_PCREL64MSB:
4416 case R_IA64_PCREL64LSB:
4417 /* Install a dynamic relocation for this reloc. */
02e6ad56 4418 if (dynamic_symbol_p && r_symndx != 0)
800eeca4
JW		 4419 {
4420 BFD_ASSERT (srel != NULL);
4421
bbe66d08 4422 elfNN_ia64_install_dyn_reloc (output_bfd, info, input_section,
800eeca4
JW		 4423 srel, rel->r_offset, r_type,
4424 h->dynindx, rel->r_addend);
4425 }
4426 goto finish_pcrel;
4427
800eeca4 4428 case R_IA64_PCREL21B:
748abff6 4429 case R_IA64_PCREL60B:
800eeca4 4430 /* We should have created a PLT entry for any dynamic symbol. */
800eeca4
JW		 4431 dyn_i = NULL;
4432 if (h)
b34976b6 4433 dyn_i = get_dyn_sym_info (ia64_info, h, NULL, NULL, FALSE);
800eeca4
JW		 4434
4435 if (dyn_i && dyn_i->want_plt2)
4436 {
4437 /* Should have caught this earlier. */
4438 BFD_ASSERT (rel->r_addend == 0);
4439
4440 value = (ia64_info->plt_sec->output_section->vma
4441 + ia64_info->plt_sec->output_offset
4442 + dyn_i->plt2_offset);
4443 }
4444 else
4445 {
4446 /* Since there's no PLT entry, Validate that this is
4447 locally defined. */
4448 BFD_ASSERT (undef_weak_ref || sym_sec->output_section != NULL);
4449
4450 /* If the symbol is undef_weak, we shouldn't be trying
4451 to call it. There's every chance that we'd wind up
4452 with an out-of-range fixup here. Don't bother setting
4453 any value at all. */
4454 if (undef_weak_ref)
4455 continue;
4456 }
4457 goto finish_pcrel;
4458
2f9bd3f6
RH		 4459 case R_IA64_PCREL21BI:
4460 case R_IA64_PCREL21F:
4461 case R_IA64_PCREL21M:
748abff6
RH		 4462 case R_IA64_PCREL22:
4463 case R_IA64_PCREL64I:
2f9bd3f6
RH		 4464 /* The PCREL21BI reloc is specifically not intended for use with
4465 dynamic relocs. PCREL21F and PCREL21M are used for speculation
f12123c0 4466 fixup code, and thus probably ought not be dynamic. The
2f9bd3f6
RH		 4467 PCREL22 and PCREL64I relocs aren't emitted as dynamic relocs. */
4468 if (dynamic_symbol_p)
4469 {
4470 const char *msg;
4471
4472 if (r_type == R_IA64_PCREL21BI)
d003868e 4473 msg = _("%B: @internal branch to dynamic symbol %s");
2f9bd3f6 4474 else if (r_type == R_IA64_PCREL21F || r_type == R_IA64_PCREL21M)
d003868e 4475 msg = _("%B: speculation fixup to dynamic symbol %s");
2f9bd3f6 4476 else
d003868e 4477 msg = _("%B: @pcrel relocation against dynamic symbol %s");
26c61ae5
L		 4478 (*_bfd_error_handler) (msg, input_bfd,
4479 h ? h->root.root.string
4480 : bfd_elf_sym_name (input_bfd,
4481 symtab_hdr,
4482 sym,
4483 sym_sec));
2f9bd3f6
RH		 4484 ret_val = FALSE;
4485 continue;
4486 }
4487 goto finish_pcrel;
4488
800eeca4
JW		 4489 finish_pcrel:
4490 /* Make pc-relative. */
4491 value -= (input_section->output_section->vma
4492 + input_section->output_offset
4493 + rel->r_offset) & ~ (bfd_vma) 0x3;
bbb268c3 4494 r = elfNN_ia64_install_value (hit_addr, value, r_type);
800eeca4
JW		 4495 break;
4496
4497 case R_IA64_SEGREL32MSB:
4498 case R_IA64_SEGREL32LSB:
4499 case R_IA64_SEGREL64MSB:
4500 case R_IA64_SEGREL64LSB:
d7458677
AM		 4501 if (r_symndx == 0)
4502 {
4503 /* If the input section was discarded from the output, then
4504 do nothing. */
4505 r = bfd_reloc_ok;
4506 }
4507 else
4508 {
4509 struct elf_segment_map *m;
4510 Elf_Internal_Phdr *p;
4511
4512 /* Find the segment that contains the output_section. */
4513 for (m = elf_tdata (output_bfd)->segment_map,
4514 p = elf_tdata (output_bfd)->phdr;
4515 m != NULL;
4516 m = m->next, p++)
4517 {
4518 int i;
4519 for (i = m->count - 1; i >= 0; i--)
9f1c3a0a 4520 if (m->sections[i] == input_section->output_section)
d7458677
AM		 4521 break;
4522 if (i >= 0)
800eeca4 4523 break;
d7458677 4524 }
800eeca4 4525
d7458677
AM		 4526 if (m == NULL)
4527 {
800eeca4 4528 r = bfd_reloc_notsupported;
d7458677
AM		 4529 }
4530 else
4531 {
4532 /* The VMA of the segment is the vaddr of the associated
4533 program header. */
4534 if (value > p->p_vaddr)
4535 value -= p->p_vaddr;
4536 else
4537 value = 0;
bbb268c3 4538 r = elfNN_ia64_install_value (hit_addr, value, r_type);
d7458677
AM		 4539 }
4540 break;
4541 }
800eeca4
JW		 4542
4543 case R_IA64_SECREL32MSB:
4544 case R_IA64_SECREL32LSB:
4545 case R_IA64_SECREL64MSB:
4546 case R_IA64_SECREL64LSB:
97ecf322
L		 4547 /* Make output-section relative to section where the symbol
4548 is defined. PR 475 */
bf718458
L		 4549 if (sym_sec)
4550 value -= sym_sec->output_section->vma;
bbb268c3 4551 r = elfNN_ia64_install_value (hit_addr, value, r_type);
800eeca4
JW		 4552 break;
4553
800eeca4
JW		 4554 case R_IA64_IPLTMSB:
4555 case R_IA64_IPLTLSB:
18b27f17
RH		 4556 /* Install a dynamic relocation for this reloc. */
4557 if ((dynamic_symbol_p || info->shared)
4558 && (input_section->flags & SEC_ALLOC) != 0)
4559 {
18b27f17
RH		 4560 BFD_ASSERT (srel != NULL);
4561
4562 /* If we don't need dynamic symbol lookup, install two
4563 RELATIVE relocations. */
986a241f 4564 if (!dynamic_symbol_p)
18b27f17
RH		 4565 {
4566 unsigned int dyn_r_type;
3e932841 4567
18b27f17
RH		 4568 if (r_type == R_IA64_IPLTMSB)
4569 dyn_r_type = R_IA64_REL64MSB;
4570 else
4571 dyn_r_type = R_IA64_REL64LSB;
4572
4573 elfNN_ia64_install_dyn_reloc (output_bfd, info,
4574 input_section,
4575 srel, rel->r_offset,
4576 dyn_r_type, 0, value);
4577 elfNN_ia64_install_dyn_reloc (output_bfd, info,
4578 input_section,
4579 srel, rel->r_offset + 8,
4580 dyn_r_type, 0, gp_val);
4581 }
4582 else
4583 elfNN_ia64_install_dyn_reloc (output_bfd, info, input_section,
4584 srel, rel->r_offset, r_type,
4585 h->dynindx, rel->r_addend);
4586 }
4587
4588 if (r_type == R_IA64_IPLTMSB)
4589 r_type = R_IA64_DIR64MSB;
4590 else
4591 r_type = R_IA64_DIR64LSB;
bbb268c3
JW		 4592 elfNN_ia64_install_value (hit_addr, value, r_type);
4593 r = elfNN_ia64_install_value (hit_addr + 8, gp_val, r_type);
18b27f17 4594 break;
800eeca4 4595
13ae64f3
JJ		 4596 case R_IA64_TPREL14:
4597 case R_IA64_TPREL22:
4598 case R_IA64_TPREL64I:
4599 value -= elfNN_ia64_tprel_base (info);
bbb268c3 4600 r = elfNN_ia64_install_value (hit_addr, value, r_type);
13ae64f3
JJ		 4601 break;
4602
4603 case R_IA64_DTPREL14:
4604 case R_IA64_DTPREL22:
4605 case R_IA64_DTPREL64I:
5a260b66
L		 4606 case R_IA64_DTPREL32LSB:
4607 case R_IA64_DTPREL32MSB:
b3dfd7fe
JJ		 4608 case R_IA64_DTPREL64LSB:
4609 case R_IA64_DTPREL64MSB:
13ae64f3 4610 value -= elfNN_ia64_dtprel_base (info);
bbb268c3 4611 r = elfNN_ia64_install_value (hit_addr, value, r_type);
13ae64f3
JJ		 4612 break;
4613
4614 case R_IA64_LTOFF_TPREL22:
4615 case R_IA64_LTOFF_DTPMOD22:
4616 case R_IA64_LTOFF_DTPREL22:
4617 {
4618 int got_r_type;
a823975a
JJ		 4619 long dynindx = h ? h->dynindx : -1;
4620 bfd_vma r_addend = rel->r_addend;
13ae64f3
JJ		 4621
4622 switch (r_type)
4623 {
4624 default:
4625 case R_IA64_LTOFF_TPREL22:
a823975a
JJ		 4626 if (!dynamic_symbol_p)
4627 {
4628 if (!info->shared)
4629 value -= elfNN_ia64_tprel_base (info);
4630 else
4631 {
4632 r_addend += value - elfNN_ia64_dtprel_base (info);
4633 dynindx = 0;
4634 }
4635 }
13ae64f3
JJ		 4636 got_r_type = R_IA64_TPREL64LSB;
4637 break;
4638 case R_IA64_LTOFF_DTPMOD22:
4639 if (!dynamic_symbol_p && !info->shared)
4640 value = 1;
4641 got_r_type = R_IA64_DTPMOD64LSB;
4642 break;
4643 case R_IA64_LTOFF_DTPREL22:
4644 if (!dynamic_symbol_p)
4645 value -= elfNN_ia64_dtprel_base (info);
5a260b66 4646 got_r_type = R_IA64_DTPRELNNLSB;
13ae64f3
JJ		 4647 break;
4648 }
b34976b6 4649 dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
a823975a 4650 value = set_got_entry (input_bfd, info, dyn_i, dynindx, r_addend,
13ae64f3
JJ		 4651 value, got_r_type);
4652 value -= gp_val;
bbb268c3 4653 r = elfNN_ia64_install_value (hit_addr, value, r_type);
13ae64f3
JJ		 4654 }
4655 break;
4656
800eeca4
JW		 4657 default:
4658 r = bfd_reloc_notsupported;
4659 break;
4660 }
4661
4662 switch (r)
4663 {
4664 case bfd_reloc_ok:
4665 break;
4666
4667 case bfd_reloc_undefined:
4668 /* This can happen for global table relative relocs if
4669 __gp is undefined. This is a panic situation so we
4670 don't try to continue. */
4671 (*info->callbacks->undefined_symbol)
4672 (info, "__gp", input_bfd, input_section, rel->r_offset, 1);
b34976b6 4673 return FALSE;
800eeca4
JW		 4674
4675 case bfd_reloc_notsupported:
4676 {
4677 const char *name;
4678
4679 if (h)
4680 name = h->root.root.string;
4681 else
26c61ae5
L		 4682 name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
4683 sym_sec);
800eeca4
JW		 4684 if (!(*info->callbacks->warning) (info, _("unsupported reloc"),
4685 name, input_bfd,
4686 input_section, rel->r_offset))
b34976b6
AM		 4687 return FALSE;
4688 ret_val = FALSE;
800eeca4
JW		 4689 }
4690 break;
4691
4692 case bfd_reloc_dangerous:
4693 case bfd_reloc_outofrange:
4694 case bfd_reloc_overflow:
4695 default:
4696 {
4697 const char *name;
4698
4699 if (h)
f0581930 4700 name = h->root.root.string;
800eeca4 4701 else
26c61ae5
L		 4702 name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
4703 sym_sec);
c5509b92
L		 4704
4705 switch (r_type)
4706 {
4707 case R_IA64_PCREL21B:
4708 case R_IA64_PCREL21BI:
4709 case R_IA64_PCREL21M:
4710 case R_IA64_PCREL21F:
4711 if (is_elf_hash_table (info->hash))
4712 {
4713 /* Relaxtion is always performed for ELF output.
4714 Overflow failures for those relocations mean
4715 that the section is too big to relax. */
4716 (*_bfd_error_handler)
4717 (_("%B: Can't relax br (%s) to `%s' at 0x%lx in section `%A' with size 0x%lx (> 0x1000000)."),
4718 input_bfd, input_section, howto->name, name,
4719 rel->r_offset, input_section->size);
4720 break;
4721 }
4722 default:
4723 if (!(*info->callbacks->reloc_overflow) (info,
4724 &h->root,
4725 name,
4726 howto->name,
4727 (bfd_vma) 0,
4728 input_bfd,
4729 input_section,
4730 rel->r_offset))
4731 return FALSE;
4732 break;
4733 }
4734
b34976b6 4735 ret_val = FALSE;
800eeca4
JW		 4736 }
4737 break;
4738 }
4739 }
4740
4741 return ret_val;
4742}
4743
b34976b6 4744static bfd_boolean
bbe66d08 4745elfNN_ia64_finish_dynamic_symbol (output_bfd, info, h, sym)
800eeca4
JW		 4746 bfd *output_bfd;
4747 struct bfd_link_info *info;
4748 struct elf_link_hash_entry *h;
4749 Elf_Internal_Sym *sym;
4750{
bbe66d08
JW		 4751 struct elfNN_ia64_link_hash_table *ia64_info;
4752 struct elfNN_ia64_dyn_sym_info *dyn_i;
800eeca4 4753
bbe66d08 4754 ia64_info = elfNN_ia64_hash_table (info);
b34976b6 4755 dyn_i = get_dyn_sym_info (ia64_info, h, NULL, NULL, FALSE);
800eeca4
JW		 4756
4757 /* Fill in the PLT data, if required. */
4758 if (dyn_i && dyn_i->want_plt)
4759 {
4760 Elf_Internal_Rela outrel;
4761 bfd_byte *loc;
4762 asection *plt_sec;
4763 bfd_vma plt_addr, pltoff_addr, gp_val, index;
800eeca4
JW		 4764
4765 gp_val = _bfd_get_gp_value (output_bfd);
4766
4767 /* Initialize the minimal PLT entry. */
4768
4769 index = (dyn_i->plt_offset - PLT_HEADER_SIZE) / PLT_MIN_ENTRY_SIZE;
4770 plt_sec = ia64_info->plt_sec;
4771 loc = plt_sec->contents + dyn_i->plt_offset;
4772
4773 memcpy (loc, plt_min_entry, PLT_MIN_ENTRY_SIZE);
bbb268c3
JW		 4774 elfNN_ia64_install_value (loc, index, R_IA64_IMM22);
4775 elfNN_ia64_install_value (loc+2, -dyn_i->plt_offset, R_IA64_PCREL21B);
800eeca4
JW		 4776
4777 plt_addr = (plt_sec->output_section->vma
4778 + plt_sec->output_offset
4779 + dyn_i->plt_offset);
b34976b6 4780 pltoff_addr = set_pltoff_entry (output_bfd, info, dyn_i, plt_addr, TRUE);
800eeca4
JW		 4781
4782 /* Initialize the FULL PLT entry, if needed. */
4783 if (dyn_i->want_plt2)
4784 {
4785 loc = plt_sec->contents + dyn_i->plt2_offset;
4786
4787 memcpy (loc, plt_full_entry, PLT_FULL_ENTRY_SIZE);
bbb268c3 4788 elfNN_ia64_install_value (loc, pltoff_addr - gp_val, R_IA64_IMM22);
800eeca4
JW		 4789
4790 /* Mark the symbol as undefined, rather than as defined in the
4791 plt section. Leave the value alone. */
4792 /* ??? We didn't redefine it in adjust_dynamic_symbol in the
c152c796 4793 first place. But perhaps elflink.c did some for us. */
f5385ebf 4794 if (!h->def_regular)
800eeca4
JW		 4795 sym->st_shndx = SHN_UNDEF;
4796 }
4797
4798 /* Create the dynamic relocation. */
4799 outrel.r_offset = pltoff_addr;
4800 if (bfd_little_endian (output_bfd))
bbe66d08 4801 outrel.r_info = ELFNN_R_INFO (h->dynindx, R_IA64_IPLTLSB);
800eeca4 4802 else
bbe66d08 4803 outrel.r_info = ELFNN_R_INFO (h->dynindx, R_IA64_IPLTMSB);
800eeca4
JW		 4804 outrel.r_addend = 0;
4805
4806 /* This is fun. In the .IA_64.pltoff section, we've got entries
4807 that correspond both to real PLT entries, and those that
4808 happened to resolve to local symbols but need to be created
4809 to satisfy @pltoff relocations. The .rela.IA_64.pltoff
4810 relocations for the real PLT should come at the end of the
4811 section, so that they can be indexed by plt entry at runtime.
4812
4813 We emitted all of the relocations for the non-PLT @pltoff
4814 entries during relocate_section. So we can consider the
4815 existing sec->reloc_count to be the base of the array of
4816 PLT relocations. */
4817
947216bf
AM		 4818 loc = ia64_info->rel_pltoff_sec->contents;
4819 loc += ((ia64_info->rel_pltoff_sec->reloc_count + index)
37cd2629 4820 * sizeof (ElfNN_External_Rela));
947216bf 4821 bfd_elfNN_swap_reloca_out (output_bfd, &outrel, loc);
800eeca4
JW		 4822 }
4823
4824 /* Mark some specially defined symbols as absolute. */
4825 if (strcmp (h->root.root.string, "_DYNAMIC") == 0
4826 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0
4827 || strcmp (h->root.root.string, "_PROCEDURE_LINKAGE_TABLE_") == 0)
4828 sym->st_shndx = SHN_ABS;
4829
b34976b6 4830 return TRUE;
800eeca4
JW		 4831}
4832
b34976b6 4833static bfd_boolean
bbe66d08 4834elfNN_ia64_finish_dynamic_sections (abfd, info)
800eeca4
JW		 4835 bfd *abfd;
4836 struct bfd_link_info *info;
4837{
bbe66d08 4838 struct elfNN_ia64_link_hash_table *ia64_info;
800eeca4
JW		 4839 bfd *dynobj;
4840
bbe66d08 4841 ia64_info = elfNN_ia64_hash_table (info);
800eeca4
JW		 4842 dynobj = ia64_info->root.dynobj;
4843
4844 if (elf_hash_table (info)->dynamic_sections_created)
4845 {
bbe66d08 4846 ElfNN_External_Dyn *dyncon, *dynconend;
800eeca4
JW		 4847 asection *sdyn, *sgotplt;
4848 bfd_vma gp_val;
4849
4850 sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
4851 sgotplt = bfd_get_section_by_name (dynobj, ".got.plt");
4852 BFD_ASSERT (sdyn != NULL);
bbe66d08 4853 dyncon = (ElfNN_External_Dyn *) sdyn->contents;
eea6121a 4854 dynconend = (ElfNN_External_Dyn *) (sdyn->contents + sdyn->size);
800eeca4
JW		 4855
4856 gp_val = _bfd_get_gp_value (abfd);
4857
4858 for (; dyncon < dynconend; dyncon++)
4859 {
4860 Elf_Internal_Dyn dyn;
800eeca4 4861
bbe66d08 4862 bfd_elfNN_swap_dyn_in (dynobj, dyncon, &dyn);
800eeca4
JW		 4863
4864 switch (dyn.d_tag)
4865 {
4866 case DT_PLTGOT:
4867 dyn.d_un.d_ptr = gp_val;
4868 break;
4869
4870 case DT_PLTRELSZ:
4871 dyn.d_un.d_val = (ia64_info->minplt_entries
bbe66d08 4872 * sizeof (ElfNN_External_Rela));
800eeca4
JW		 4873 break;
4874
4875 case DT_JMPREL:
4876 /* See the comment above in finish_dynamic_symbol. */
4877 dyn.d_un.d_ptr = (ia64_info->rel_pltoff_sec->output_section->vma
4878 + ia64_info->rel_pltoff_sec->output_offset
4879 + (ia64_info->rel_pltoff_sec->reloc_count
bbe66d08 4880 * sizeof (ElfNN_External_Rela)));
800eeca4
JW		 4881 break;
4882
4883 case DT_IA_64_PLT_RESERVE:
4884 dyn.d_un.d_ptr = (sgotplt->output_section->vma
4885 + sgotplt->output_offset);
4886 break;
4887
4888 case DT_RELASZ:
4889 /* Do not have RELASZ include JMPREL. This makes things
3e932841 4890 easier on ld.so. This is not what the rest of BFD set up. */
800eeca4 4891 dyn.d_un.d_val -= (ia64_info->minplt_entries
bbe66d08 4892 * sizeof (ElfNN_External_Rela));
800eeca4 4893 break;
800eeca4
JW		 4894 }
4895
bbe66d08 4896 bfd_elfNN_swap_dyn_out (abfd, &dyn, dyncon);
800eeca4
JW		 4897 }
4898
ae9a127f 4899 /* Initialize the PLT0 entry. */
800eeca4
JW		 4900 if (ia64_info->plt_sec)
4901 {
4902 bfd_byte *loc = ia64_info->plt_sec->contents;
4903 bfd_vma pltres;
4904
4905 memcpy (loc, plt_header, PLT_HEADER_SIZE);
4906
4907 pltres = (sgotplt->output_section->vma
4908 + sgotplt->output_offset
4909 - gp_val);
4910
bbb268c3 4911 elfNN_ia64_install_value (loc+1, pltres, R_IA64_GPREL22);
800eeca4
JW		 4912 }
4913 }
4914
b34976b6 4915 return TRUE;
800eeca4
JW		 4916}
4917\f
ae9a127f 4918/* ELF file flag handling: */
800eeca4 4919
3e932841 4920/* Function to keep IA-64 specific file flags. */
b34976b6 4921static bfd_boolean
bbe66d08 4922elfNN_ia64_set_private_flags (abfd, flags)
800eeca4
JW		 4923 bfd *abfd;
4924 flagword flags;
4925{
4926 BFD_ASSERT (!elf_flags_init (abfd)
4927 || elf_elfheader (abfd)->e_flags == flags);
4928
4929 elf_elfheader (abfd)->e_flags = flags;
b34976b6
AM		 4930 elf_flags_init (abfd) = TRUE;
4931 return TRUE;
800eeca4
JW		 4932}
4933
800eeca4
JW		 4934/* Merge backend specific data from an object file to the output
4935 object file when linking. */
b34976b6 4936static bfd_boolean
bbe66d08 4937elfNN_ia64_merge_private_bfd_data (ibfd, obfd)
800eeca4
JW		 4938 bfd *ibfd, *obfd;
4939{
4940 flagword out_flags;
4941 flagword in_flags;
b34976b6 4942 bfd_boolean ok = TRUE;
800eeca4
JW		 4943
4944 /* Don't even pretend to support mixed-format linking. */
4945 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
4946 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
b34976b6 4947 return FALSE;
800eeca4
JW		 4948
4949 in_flags = elf_elfheader (ibfd)->e_flags;
4950 out_flags = elf_elfheader (obfd)->e_flags;
4951
4952 if (! elf_flags_init (obfd))
4953 {
b34976b6 4954 elf_flags_init (obfd) = TRUE;
800eeca4
JW		 4955 elf_elfheader (obfd)->e_flags = in_flags;
4956
4957 if (bfd_get_arch (obfd) == bfd_get_arch (ibfd)
4958 && bfd_get_arch_info (obfd)->the_default)
4959 {
4960 return bfd_set_arch_mach (obfd, bfd_get_arch (ibfd),
4961 bfd_get_mach (ibfd));
4962 }
4963
b34976b6 4964 return TRUE;
800eeca4
JW		 4965 }
4966
4967 /* Check flag compatibility. */
4968 if (in_flags == out_flags)
b34976b6 4969 return TRUE;
800eeca4 4970
c43c2cc5
JW		 4971 /* Output has EF_IA_64_REDUCEDFP set only if all inputs have it set. */
4972 if (!(in_flags & EF_IA_64_REDUCEDFP) && (out_flags & EF_IA_64_REDUCEDFP))
4973 elf_elfheader (obfd)->e_flags &= ~EF_IA_64_REDUCEDFP;
4974
800eeca4
JW		 4975 if ((in_flags & EF_IA_64_TRAPNIL) != (out_flags & EF_IA_64_TRAPNIL))
4976 {
4977 (*_bfd_error_handler)
d003868e
AM		 4978 (_("%B: linking trap-on-NULL-dereference with non-trapping files"),
4979 ibfd);
800eeca4
JW		 4980
4981 bfd_set_error (bfd_error_bad_value);
b34976b6 4982 ok = FALSE;
800eeca4
JW		 4983 }
4984 if ((in_flags & EF_IA_64_BE) != (out_flags & EF_IA_64_BE))
4985 {
4986 (*_bfd_error_handler)
d003868e
AM		 4987 (_("%B: linking big-endian files with little-endian files"),
4988 ibfd);
800eeca4
JW		 4989
4990 bfd_set_error (bfd_error_bad_value);
b34976b6 4991 ok = FALSE;
800eeca4
JW		 4992 }
4993 if ((in_flags & EF_IA_64_ABI64) != (out_flags & EF_IA_64_ABI64))
4994 {
4995 (*_bfd_error_handler)
d003868e
AM		 4996 (_("%B: linking 64-bit files with 32-bit files"),
4997 ibfd);
800eeca4
JW		 4998
4999 bfd_set_error (bfd_error_bad_value);
b34976b6 5000 ok = FALSE;
800eeca4 5001 }
c43c2cc5
JW		 5002 if ((in_flags & EF_IA_64_CONS_GP) != (out_flags & EF_IA_64_CONS_GP))
5003 {
5004 (*_bfd_error_handler)
d003868e
AM		 5005 (_("%B: linking constant-gp files with non-constant-gp files"),
5006 ibfd);
c43c2cc5
JW		 5007
5008 bfd_set_error (bfd_error_bad_value);
b34976b6 5009 ok = FALSE;
c43c2cc5
JW		 5010 }
5011 if ((in_flags & EF_IA_64_NOFUNCDESC_CONS_GP)
5012 != (out_flags & EF_IA_64_NOFUNCDESC_CONS_GP))
5013 {
5014 (*_bfd_error_handler)
d003868e
AM		 5015 (_("%B: linking auto-pic files with non-auto-pic files"),
5016 ibfd);
c43c2cc5
JW		 5017
5018 bfd_set_error (bfd_error_bad_value);
b34976b6 5019 ok = FALSE;
c43c2cc5 5020 }
800eeca4
JW		 5021
5022 return ok;
5023}
5024
b34976b6 5025static bfd_boolean
bbe66d08 5026elfNN_ia64_print_private_bfd_data (abfd, ptr)
800eeca4
JW		 5027 bfd *abfd;
5028 PTR ptr;
5029{
5030 FILE *file = (FILE *) ptr;
5031 flagword flags = elf_elfheader (abfd)->e_flags;
5032
5033 BFD_ASSERT (abfd != NULL && ptr != NULL);
5034
c43c2cc5 5035 fprintf (file, "private flags = %s%s%s%s%s%s%s%s\n",
800eeca4
JW		 5036 (flags & EF_IA_64_TRAPNIL) ? "TRAPNIL, " : "",
5037 (flags & EF_IA_64_EXT) ? "EXT, " : "",
5038 (flags & EF_IA_64_BE) ? "BE, " : "LE, ",
c43c2cc5
JW		 5039 (flags & EF_IA_64_REDUCEDFP) ? "REDUCEDFP, " : "",
5040 (flags & EF_IA_64_CONS_GP) ? "CONS_GP, " : "",
5041 (flags & EF_IA_64_NOFUNCDESC_CONS_GP) ? "NOFUNCDESC_CONS_GP, " : "",
5042 (flags & EF_IA_64_ABSOLUTE) ? "ABSOLUTE, " : "",
800eeca4 5043 (flags & EF_IA_64_ABI64) ? "ABI64" : "ABI32");
3e932841 5044
800eeca4 5045 _bfd_elf_print_private_bfd_data (abfd, ptr);
b34976b6 5046 return TRUE;
800eeca4 5047}
db6751f2
JJ		 5048
5049static enum elf_reloc_type_class
f51e552e
AM		 5050elfNN_ia64_reloc_type_class (rela)
5051 const Elf_Internal_Rela *rela;
db6751f2 5052{
f51e552e 5053 switch ((int) ELFNN_R_TYPE (rela->r_info))
db6751f2
JJ		 5054 {
5055 case R_IA64_REL32MSB:
5056 case R_IA64_REL32LSB:
5057 case R_IA64_REL64MSB:
5058 case R_IA64_REL64LSB:
5059 return reloc_class_relative;
5060 case R_IA64_IPLTMSB:
5061 case R_IA64_IPLTLSB:
5062 return reloc_class_plt;
5063 case R_IA64_COPY:
5064 return reloc_class_copy;
5065 default:
5066 return reloc_class_normal;
5067 }
5068}
fcf12726 5069
b35d266b 5070static const struct bfd_elf_special_section elfNN_ia64_special_sections[] =
2f89ff8d 5071{
7dcb9820
AM		 5072 { ".sbss", 5, -1, SHT_NOBITS, SHF_ALLOC + SHF_WRITE + SHF_IA_64_SHORT },
5073 { ".sdata", 6, -1, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE + SHF_IA_64_SHORT },
7f4d3958
L		 5074 { NULL, 0, 0, 0, 0 }
5075};
5076
da9f89d4
L		 5077static bfd_boolean
5078elfNN_ia64_object_p (bfd *abfd)
5079{
5080 asection *sec;
da9f89d4
L		 5081 asection *group, *unwi, *unw;
5082 flagword flags;
5083 const char *name;
5084 char *unwi_name, *unw_name;
5085 bfd_size_type amt;
5086
5087 if (abfd->flags & DYNAMIC)
5088 return TRUE;
5089
5090 /* Flags for fake group section. */
5091 flags = (SEC_LINKER_CREATED | SEC_GROUP | SEC_LINK_ONCE
5092 | SEC_EXCLUDE);
5093
5094 /* We add a fake section group for each .gnu.linkonce.t.* section,
5095 which isn't in a section group, and its unwind sections. */
5096 for (sec = abfd->sections; sec != NULL; sec = sec->next)
5097 {
5098 if (elf_sec_group (sec) == NULL
5099 && ((sec->flags & (SEC_LINK_ONCE | SEC_CODE | SEC_GROUP))
5100 == (SEC_LINK_ONCE | SEC_CODE))
5101 && strncmp (sec->name, ".gnu.linkonce.t.", 16) == 0)
5102 {
5103 name = sec->name + 16;
5104
5105 amt = strlen (name) + sizeof (".gnu.linkonce.ia64unwi.");
5106 unwi_name = bfd_alloc (abfd, amt);
5107 if (!unwi_name)
5108 return FALSE;
5109
5110 strcpy (stpcpy (unwi_name, ".gnu.linkonce.ia64unwi."), name);
5111 unwi = bfd_get_section_by_name (abfd, unwi_name);
5112
5113 amt = strlen (name) + sizeof (".gnu.linkonce.ia64unw.");
5114 unw_name = bfd_alloc (abfd, amt);
5115 if (!unw_name)
5116 return FALSE;
5117
5118 strcpy (stpcpy (unw_name, ".gnu.linkonce.ia64unw."), name);
5119 unw = bfd_get_section_by_name (abfd, unw_name);
5120
da9f89d4
L		 5121 /* We need to create a fake group section for it and its
5122 unwind sections. */
3496cb2a
L		 5123 group = bfd_make_section_anyway_with_flags (abfd, name,
5124 flags);
5125 if (group == NULL)
da9f89d4
L		 5126 return FALSE;
5127
5128 /* Move the fake group section to the beginning. */
5daa8fe7 5129 bfd_section_list_remove (abfd, group);
04dd1667 5130 bfd_section_list_prepend (abfd, group);
da9f89d4
L		 5131
5132 elf_next_in_group (group) = sec;
5133
5134 elf_group_name (sec) = name;
5135 elf_next_in_group (sec) = sec;
5136 elf_sec_group (sec) = group;
5137
5138 if (unwi)
5139 {
5140 elf_group_name (unwi) = name;
5141 elf_next_in_group (unwi) = sec;
5142 elf_next_in_group (sec) = unwi;
5143 elf_sec_group (unwi) = group;
5144 }
5145
5146 if (unw)
5147 {
5148 elf_group_name (unw) = name;
5149 if (unwi)
5150 {
5151 elf_next_in_group (unw) = elf_next_in_group (unwi);
5152 elf_next_in_group (unwi) = unw;
5153 }
5154 else
5155 {
5156 elf_next_in_group (unw) = sec;
5157 elf_next_in_group (sec) = unw;
5158 }
5159 elf_sec_group (unw) = group;
5160 }
5161
5162 /* Fake SHT_GROUP section header. */
5163 elf_section_data (group)->this_hdr.bfd_section = group;
5164 elf_section_data (group)->this_hdr.sh_type = SHT_GROUP;
5165 }
5166 }
5167 return TRUE;
5168}
5169
b34976b6 5170static bfd_boolean
d9cf1b54
AM		 5171elfNN_ia64_hpux_vec (const bfd_target *vec)
5172{
5173 extern const bfd_target bfd_elfNN_ia64_hpux_big_vec;
5174 return (vec == & bfd_elfNN_ia64_hpux_big_vec);
5175}
5176
fcf12726
AM		 5177static void
5178elfNN_hpux_post_process_headers (abfd, info)
5179 bfd *abfd;
5180 struct bfd_link_info *info ATTRIBUTE_UNUSED;
5181{
5182 Elf_Internal_Ehdr *i_ehdrp = elf_elfheader (abfd);
5183
5184 i_ehdrp->e_ident[EI_OSABI] = ELFOSABI_HPUX;
5185 i_ehdrp->e_ident[EI_ABIVERSION] = 1;
5186}
d9cf1b54 5187
b34976b6 5188bfd_boolean
af746e92 5189elfNN_hpux_backend_section_from_bfd_section (abfd, sec, retval)
d9cf1b54 5190 bfd *abfd ATTRIBUTE_UNUSED;
d9cf1b54
AM		 5191 asection *sec;
5192 int *retval;
5193{
5194 if (bfd_is_com_section (sec))
5195 {
5196 *retval = SHN_IA_64_ANSI_COMMON;
b34976b6 5197 return TRUE;
d9cf1b54 5198 }
b34976b6 5199 return FALSE;
d9cf1b54 5200}
b59dd4a5
L		 5201
5202static void
5203elfNN_hpux_backend_symbol_processing (bfd *abfd ATTRIBUTE_UNUSED,
5204 asymbol *asym)
5205{
5f1cb353 5206 elf_symbol_type *elfsym = (elf_symbol_type *) asym;
b59dd4a5
L		 5207
5208 switch (elfsym->internal_elf_sym.st_shndx)
5209 {
5210 case SHN_IA_64_ANSI_COMMON:
5211 asym->section = bfd_com_section_ptr;
5212 asym->value = elfsym->internal_elf_sym.st_size;
5213 asym->flags &= ~BSF_GLOBAL;
5214 break;
5215 }
5216}
5217
800eeca4 5218\f
bbe66d08
JW		 5219#define TARGET_LITTLE_SYM bfd_elfNN_ia64_little_vec
5220#define TARGET_LITTLE_NAME "elfNN-ia64-little"
5221#define TARGET_BIG_SYM bfd_elfNN_ia64_big_vec
5222#define TARGET_BIG_NAME "elfNN-ia64-big"
800eeca4
JW		 5223#define ELF_ARCH bfd_arch_ia64
5224#define ELF_MACHINE_CODE EM_IA_64
5225#define ELF_MACHINE_ALT1 1999 /* EAS2.3 */
5226#define ELF_MACHINE_ALT2 1998 /* EAS2.2 */
5227#define ELF_MAXPAGESIZE 0x10000 /* 64KB */
5228
5229#define elf_backend_section_from_shdr \
bbe66d08 5230 elfNN_ia64_section_from_shdr
fa152c49 5231#define elf_backend_section_flags \
bbe66d08 5232 elfNN_ia64_section_flags
800eeca4 5233#define elf_backend_fake_sections \
bbe66d08 5234 elfNN_ia64_fake_sections
81545d45
RH		 5235#define elf_backend_final_write_processing \
5236 elfNN_ia64_final_write_processing
800eeca4 5237#define elf_backend_add_symbol_hook \
bbe66d08 5238 elfNN_ia64_add_symbol_hook
800eeca4 5239#define elf_backend_additional_program_headers \
bbe66d08 5240 elfNN_ia64_additional_program_headers
800eeca4 5241#define elf_backend_modify_segment_map \
bbe66d08 5242 elfNN_ia64_modify_segment_map
800eeca4 5243#define elf_info_to_howto \
bbe66d08 5244 elfNN_ia64_info_to_howto
800eeca4 5245
bbe66d08
JW		 5246#define bfd_elfNN_bfd_reloc_type_lookup \
5247 elfNN_ia64_reloc_type_lookup
5248#define bfd_elfNN_bfd_is_local_label_name \
5249 elfNN_ia64_is_local_label_name
5250#define bfd_elfNN_bfd_relax_section \
5251 elfNN_ia64_relax_section
800eeca4 5252
da9f89d4
L		 5253#define elf_backend_object_p \
5254 elfNN_ia64_object_p
5255
800eeca4 5256/* Stuff for the BFD linker: */
bbe66d08
JW		 5257#define bfd_elfNN_bfd_link_hash_table_create \
5258 elfNN_ia64_hash_table_create
0aa92b58
JJ		 5259#define bfd_elfNN_bfd_link_hash_table_free \
5260 elfNN_ia64_hash_table_free
800eeca4 5261#define elf_backend_create_dynamic_sections \
bbe66d08 5262 elfNN_ia64_create_dynamic_sections
800eeca4 5263#define elf_backend_check_relocs \
bbe66d08 5264 elfNN_ia64_check_relocs
800eeca4 5265#define elf_backend_adjust_dynamic_symbol \
bbe66d08 5266 elfNN_ia64_adjust_dynamic_symbol
800eeca4 5267#define elf_backend_size_dynamic_sections \
bbe66d08 5268 elfNN_ia64_size_dynamic_sections
800eeca4 5269#define elf_backend_relocate_section \
bbe66d08 5270 elfNN_ia64_relocate_section
800eeca4 5271#define elf_backend_finish_dynamic_symbol \
bbe66d08 5272 elfNN_ia64_finish_dynamic_symbol
800eeca4 5273#define elf_backend_finish_dynamic_sections \
bbe66d08
JW		 5274 elfNN_ia64_finish_dynamic_sections
5275#define bfd_elfNN_bfd_final_link \
5276 elfNN_ia64_final_link
5277
bbe66d08
JW		 5278#define bfd_elfNN_bfd_merge_private_bfd_data \
5279 elfNN_ia64_merge_private_bfd_data
5280#define bfd_elfNN_bfd_set_private_flags \
5281 elfNN_ia64_set_private_flags
5282#define bfd_elfNN_bfd_print_private_bfd_data \
5283 elfNN_ia64_print_private_bfd_data
800eeca4
JW		 5284
5285#define elf_backend_plt_readonly 1
5286#define elf_backend_want_plt_sym 0
5287#define elf_backend_plt_alignment 5
5288#define elf_backend_got_header_size 0
800eeca4
JW		 5289#define elf_backend_want_got_plt 1
5290#define elf_backend_may_use_rel_p 1
5291#define elf_backend_may_use_rela_p 1
5292#define elf_backend_default_use_rela_p 1
5293#define elf_backend_want_dynbss 0
bbe66d08
JW		 5294#define elf_backend_copy_indirect_symbol elfNN_ia64_hash_copy_indirect
5295#define elf_backend_hide_symbol elfNN_ia64_hash_hide_symbol
db6751f2 5296#define elf_backend_reloc_type_class elfNN_ia64_reloc_type_class
b491616a 5297#define elf_backend_rela_normal 1
29ef7005 5298#define elf_backend_special_sections elfNN_ia64_special_sections
800eeca4 5299
185d09ad
L		 5300/* FIXME: PR 290: The Intel C compiler generates SHT_IA_64_UNWIND with
5301 SHF_LINK_ORDER. But it doesn't set theh sh_link or sh_info fields.
5302 We don't want to flood users with so many error messages. We turn
5303 off the warning for now. It will be turned on later when the Intel
5304 compiler is fixed. */
5305#define elf_backend_link_order_error_handler NULL
5306
bbe66d08 5307#include "elfNN-target.h"
7b6dab7f 5308
fcf12726
AM		 5309/* HPUX-specific vectors. */
5310
5311#undef TARGET_LITTLE_SYM
5312#undef TARGET_LITTLE_NAME
5313#undef TARGET_BIG_SYM
5314#define TARGET_BIG_SYM bfd_elfNN_ia64_hpux_big_vec
5315#undef TARGET_BIG_NAME
5316#define TARGET_BIG_NAME "elfNN-ia64-hpux-big"
5317
254ed743
NC		 5318/* These are HP-UX specific functions. */
5319
fcf12726
AM		 5320#undef elf_backend_post_process_headers
5321#define elf_backend_post_process_headers elfNN_hpux_post_process_headers
5322
d9cf1b54
AM		 5323#undef elf_backend_section_from_bfd_section
5324#define elf_backend_section_from_bfd_section elfNN_hpux_backend_section_from_bfd_section
5325
b59dd4a5
L		 5326#undef elf_backend_symbol_processing
5327#define elf_backend_symbol_processing elfNN_hpux_backend_symbol_processing
5328
5e8d7549
NC		 5329#undef elf_backend_want_p_paddr_set_to_zero
5330#define elf_backend_want_p_paddr_set_to_zero 1
5331
fcf12726
AM		 5332#undef ELF_MAXPAGESIZE
5333#define ELF_MAXPAGESIZE 0x1000 /* 1K */
5334
5335#undef elfNN_bed
5336#define elfNN_bed elfNN_ia64_hpux_bed
5337
5338#include "elfNN-target.h"
5e8d7549
NC		 5339
5340#undef elf_backend_want_p_paddr_set_to_zero
GDB Binutils - Deliverables
This page took 0.645007 seconds and 4 git commands to generate.