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