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