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