* config/tc-mips.c (append_insn): Correctly handle mips16 case
[binutils.git] / bfd / elfxx-ia64.c
blob6ba5e2de2e0176a227a383163b2982e4bfe3595f
1 /* IA-64 support for 64-bit ELF
2 Copyright 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
3 Free Software Foundation, Inc.
4 Contributed by David Mosberger-Tang <davidm@hpl.hp.com>
6 This file is part of BFD, the Binary File Descriptor library.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
22 #include "bfd.h"
23 #include "sysdep.h"
24 #include "libbfd.h"
25 #include "elf-bfd.h"
26 #include "opcode/ia64.h"
27 #include "elf/ia64.h"
28 #include "objalloc.h"
29 #include "hashtab.h"
31 #define ARCH_SIZE NN
33 #if ARCH_SIZE == 64
34 #define LOG_SECTION_ALIGN 3
35 #endif
37 #if ARCH_SIZE == 32
38 #define LOG_SECTION_ALIGN 2
39 #endif
41 /* THE RULES for all the stuff the linker creates --
43 GOT Entries created in response to LTOFF or LTOFF_FPTR
44 relocations. Dynamic relocs created for dynamic
45 symbols in an application; REL relocs for locals
46 in a shared library.
48 FPTR The canonical function descriptor. Created for local
49 symbols in applications. Descriptors for dynamic symbols
50 and local symbols in shared libraries are created by
51 ld.so. Thus there are no dynamic relocs against these
52 objects. The FPTR relocs for such _are_ passed through
53 to the dynamic relocation tables.
55 FULL_PLT Created for a PCREL21B relocation against a dynamic symbol.
56 Requires the creation of a PLTOFF entry. This does not
57 require any dynamic relocations.
59 PLTOFF Created by PLTOFF relocations. For local symbols, this
60 is an alternate function descriptor, and in shared libraries
61 requires two REL relocations. Note that this cannot be
62 transformed into an FPTR relocation, since it must be in
63 range of the GP. For dynamic symbols, this is a function
64 descriptor for a MIN_PLT entry, and requires one IPLT reloc.
66 MIN_PLT Created by PLTOFF entries against dynamic symbols. This
67 does not require dynamic relocations. */
69 #define NELEMS(a) ((int) (sizeof (a) / sizeof ((a)[0])))
71 typedef struct bfd_hash_entry *(*new_hash_entry_func)
72 PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *));
74 /* In dynamically (linker-) created sections, we generally need to keep track
75 of the place a symbol or expression got allocated to. This is done via hash
76 tables that store entries of the following type. */
78 struct elfNN_ia64_dyn_sym_info
80 /* The addend for which this entry is relevant. */
81 bfd_vma addend;
83 /* Next addend in the list. */
84 struct elfNN_ia64_dyn_sym_info *next;
86 bfd_vma got_offset;
87 bfd_vma fptr_offset;
88 bfd_vma pltoff_offset;
89 bfd_vma plt_offset;
90 bfd_vma plt2_offset;
91 bfd_vma tprel_offset;
92 bfd_vma dtpmod_offset;
93 bfd_vma dtprel_offset;
95 /* The symbol table entry, if any, that this was derived from. */
96 struct elf_link_hash_entry *h;
98 /* Used to count non-got, non-plt relocations for delayed sizing
99 of relocation sections. */
100 struct elfNN_ia64_dyn_reloc_entry
102 struct elfNN_ia64_dyn_reloc_entry *next;
103 asection *srel;
104 int type;
105 int count;
107 /* Is this reloc against readonly section? */
108 bfd_boolean reltext;
109 } *reloc_entries;
111 /* TRUE when the section contents have been updated. */
112 unsigned got_done : 1;
113 unsigned fptr_done : 1;
114 unsigned pltoff_done : 1;
115 unsigned tprel_done : 1;
116 unsigned dtpmod_done : 1;
117 unsigned dtprel_done : 1;
119 /* TRUE for the different kinds of linker data we want created. */
120 unsigned want_got : 1;
121 unsigned want_gotx : 1;
122 unsigned want_fptr : 1;
123 unsigned want_ltoff_fptr : 1;
124 unsigned want_plt : 1;
125 unsigned want_plt2 : 1;
126 unsigned want_pltoff : 1;
127 unsigned want_tprel : 1;
128 unsigned want_dtpmod : 1;
129 unsigned want_dtprel : 1;
132 struct elfNN_ia64_local_hash_entry
134 int id;
135 unsigned int r_sym;
136 struct elfNN_ia64_dyn_sym_info *info;
138 /* TRUE if this hash entry's addends was translated for
139 SHF_MERGE optimization. */
140 unsigned sec_merge_done : 1;
143 struct elfNN_ia64_link_hash_entry
145 struct elf_link_hash_entry root;
146 struct elfNN_ia64_dyn_sym_info *info;
149 struct elfNN_ia64_link_hash_table
151 /* The main hash table. */
152 struct elf_link_hash_table root;
154 asection *got_sec; /* the linkage table section (or NULL) */
155 asection *rel_got_sec; /* dynamic relocation section for same */
156 asection *fptr_sec; /* function descriptor table (or NULL) */
157 asection *rel_fptr_sec; /* dynamic relocation section for same */
158 asection *plt_sec; /* the primary plt section (or NULL) */
159 asection *pltoff_sec; /* private descriptors for plt (or NULL) */
160 asection *rel_pltoff_sec; /* dynamic relocation section for same */
162 bfd_size_type minplt_entries; /* number of minplt entries */
163 unsigned reltext : 1; /* are there relocs against readonly sections? */
164 unsigned self_dtpmod_done : 1;/* has self DTPMOD entry been finished? */
165 bfd_vma self_dtpmod_offset; /* .got offset to self DTPMOD entry */
167 htab_t loc_hash_table;
168 void *loc_hash_memory;
171 struct elfNN_ia64_allocate_data
173 struct bfd_link_info *info;
174 bfd_size_type ofs;
175 bfd_boolean only_got;
178 #define elfNN_ia64_hash_table(p) \
179 ((struct elfNN_ia64_link_hash_table *) ((p)->hash))
181 static bfd_reloc_status_type elfNN_ia64_reloc
182 PARAMS ((bfd *abfd, arelent *reloc, asymbol *sym, PTR data,
183 asection *input_section, bfd *output_bfd, char **error_message));
184 static reloc_howto_type * lookup_howto
185 PARAMS ((unsigned int rtype));
186 static reloc_howto_type *elfNN_ia64_reloc_type_lookup
187 PARAMS ((bfd *abfd, bfd_reloc_code_real_type bfd_code));
188 static void elfNN_ia64_info_to_howto
189 PARAMS ((bfd *abfd, arelent *bfd_reloc, Elf_Internal_Rela *elf_reloc));
190 static bfd_boolean elfNN_ia64_relax_section
191 PARAMS((bfd *abfd, asection *sec, struct bfd_link_info *link_info,
192 bfd_boolean *again));
193 static void elfNN_ia64_relax_ldxmov
194 PARAMS((bfd_byte *contents, bfd_vma off));
195 static bfd_boolean is_unwind_section_name
196 PARAMS ((bfd *abfd, const char *));
197 static bfd_boolean elfNN_ia64_section_flags
198 PARAMS ((flagword *, const Elf_Internal_Shdr *));
199 static bfd_boolean elfNN_ia64_fake_sections
200 PARAMS ((bfd *abfd, Elf_Internal_Shdr *hdr, asection *sec));
201 static void elfNN_ia64_final_write_processing
202 PARAMS ((bfd *abfd, bfd_boolean linker));
203 static bfd_boolean elfNN_ia64_add_symbol_hook
204 PARAMS ((bfd *abfd, struct bfd_link_info *info, Elf_Internal_Sym *sym,
205 const char **namep, flagword *flagsp, asection **secp,
206 bfd_vma *valp));
207 static int elfNN_ia64_additional_program_headers
208 PARAMS ((bfd *abfd));
209 static bfd_boolean elfNN_ia64_modify_segment_map
210 PARAMS ((bfd *, struct bfd_link_info *));
211 static bfd_boolean elfNN_ia64_is_local_label_name
212 PARAMS ((bfd *abfd, const char *name));
213 static bfd_boolean elfNN_ia64_dynamic_symbol_p
214 PARAMS ((struct elf_link_hash_entry *h, struct bfd_link_info *info, int));
215 static struct bfd_hash_entry *elfNN_ia64_new_elf_hash_entry
216 PARAMS ((struct bfd_hash_entry *entry, struct bfd_hash_table *table,
217 const char *string));
218 static void elfNN_ia64_hash_copy_indirect
219 PARAMS ((const struct elf_backend_data *, struct elf_link_hash_entry *,
220 struct elf_link_hash_entry *));
221 static void elfNN_ia64_hash_hide_symbol
222 PARAMS ((struct bfd_link_info *, struct elf_link_hash_entry *, bfd_boolean));
223 static hashval_t elfNN_ia64_local_htab_hash PARAMS ((const void *));
224 static int elfNN_ia64_local_htab_eq PARAMS ((const void *ptr1,
225 const void *ptr2));
226 static struct bfd_link_hash_table *elfNN_ia64_hash_table_create
227 PARAMS ((bfd *abfd));
228 static void elfNN_ia64_hash_table_free
229 PARAMS ((struct bfd_link_hash_table *hash));
230 static bfd_boolean elfNN_ia64_global_dyn_sym_thunk
231 PARAMS ((struct bfd_hash_entry *, PTR));
232 static int elfNN_ia64_local_dyn_sym_thunk
233 PARAMS ((void **, PTR));
234 static void elfNN_ia64_dyn_sym_traverse
235 PARAMS ((struct elfNN_ia64_link_hash_table *ia64_info,
236 bfd_boolean (*func) (struct elfNN_ia64_dyn_sym_info *, PTR),
237 PTR info));
238 static bfd_boolean elfNN_ia64_create_dynamic_sections
239 PARAMS ((bfd *abfd, struct bfd_link_info *info));
240 static struct elfNN_ia64_local_hash_entry * get_local_sym_hash
241 PARAMS ((struct elfNN_ia64_link_hash_table *ia64_info,
242 bfd *abfd, const Elf_Internal_Rela *rel, bfd_boolean create));
243 static struct elfNN_ia64_dyn_sym_info * get_dyn_sym_info
244 PARAMS ((struct elfNN_ia64_link_hash_table *ia64_info,
245 struct elf_link_hash_entry *h,
246 bfd *abfd, const Elf_Internal_Rela *rel, bfd_boolean create));
247 static asection *get_got
248 PARAMS ((bfd *abfd, struct bfd_link_info *info,
249 struct elfNN_ia64_link_hash_table *ia64_info));
250 static asection *get_fptr
251 PARAMS ((bfd *abfd, struct bfd_link_info *info,
252 struct elfNN_ia64_link_hash_table *ia64_info));
253 static asection *get_pltoff
254 PARAMS ((bfd *abfd, struct bfd_link_info *info,
255 struct elfNN_ia64_link_hash_table *ia64_info));
256 static asection *get_reloc_section
257 PARAMS ((bfd *abfd, struct elfNN_ia64_link_hash_table *ia64_info,
258 asection *sec, bfd_boolean create));
259 static bfd_boolean elfNN_ia64_check_relocs
260 PARAMS ((bfd *abfd, struct bfd_link_info *info, asection *sec,
261 const Elf_Internal_Rela *relocs));
262 static bfd_boolean elfNN_ia64_adjust_dynamic_symbol
263 PARAMS ((struct bfd_link_info *info, struct elf_link_hash_entry *h));
264 static long global_sym_index
265 PARAMS ((struct elf_link_hash_entry *h));
266 static bfd_boolean allocate_fptr
267 PARAMS ((struct elfNN_ia64_dyn_sym_info *dyn_i, PTR data));
268 static bfd_boolean allocate_global_data_got
269 PARAMS ((struct elfNN_ia64_dyn_sym_info *dyn_i, PTR data));
270 static bfd_boolean allocate_global_fptr_got
271 PARAMS ((struct elfNN_ia64_dyn_sym_info *dyn_i, PTR data));
272 static bfd_boolean allocate_local_got
273 PARAMS ((struct elfNN_ia64_dyn_sym_info *dyn_i, PTR data));
274 static bfd_boolean allocate_pltoff_entries
275 PARAMS ((struct elfNN_ia64_dyn_sym_info *dyn_i, PTR data));
276 static bfd_boolean allocate_plt_entries
277 PARAMS ((struct elfNN_ia64_dyn_sym_info *dyn_i, PTR data));
278 static bfd_boolean allocate_plt2_entries
279 PARAMS ((struct elfNN_ia64_dyn_sym_info *dyn_i, PTR data));
280 static bfd_boolean allocate_dynrel_entries
281 PARAMS ((struct elfNN_ia64_dyn_sym_info *dyn_i, PTR data));
282 static bfd_boolean elfNN_ia64_size_dynamic_sections
283 PARAMS ((bfd *output_bfd, struct bfd_link_info *info));
284 static bfd_reloc_status_type elfNN_ia64_install_value
285 PARAMS ((bfd_byte *hit_addr, bfd_vma val, unsigned int r_type));
286 static void elfNN_ia64_install_dyn_reloc
287 PARAMS ((bfd *abfd, struct bfd_link_info *info, asection *sec,
288 asection *srel, bfd_vma offset, unsigned int type,
289 long dynindx, bfd_vma addend));
290 static bfd_vma set_got_entry
291 PARAMS ((bfd *abfd, struct bfd_link_info *info,
292 struct elfNN_ia64_dyn_sym_info *dyn_i, long dynindx,
293 bfd_vma addend, bfd_vma value, unsigned int dyn_r_type));
294 static bfd_vma set_fptr_entry
295 PARAMS ((bfd *abfd, struct bfd_link_info *info,
296 struct elfNN_ia64_dyn_sym_info *dyn_i,
297 bfd_vma value));
298 static bfd_vma set_pltoff_entry
299 PARAMS ((bfd *abfd, struct bfd_link_info *info,
300 struct elfNN_ia64_dyn_sym_info *dyn_i,
301 bfd_vma value, bfd_boolean));
302 static bfd_vma elfNN_ia64_tprel_base
303 PARAMS ((struct bfd_link_info *info));
304 static bfd_vma elfNN_ia64_dtprel_base
305 PARAMS ((struct bfd_link_info *info));
306 static int elfNN_ia64_unwind_entry_compare
307 PARAMS ((const PTR, const PTR));
308 static bfd_boolean elfNN_ia64_choose_gp
309 PARAMS ((bfd *abfd, struct bfd_link_info *info));
310 static bfd_boolean elfNN_ia64_final_link
311 PARAMS ((bfd *abfd, struct bfd_link_info *info));
312 static bfd_boolean elfNN_ia64_relocate_section
313 PARAMS ((bfd *output_bfd, struct bfd_link_info *info, bfd *input_bfd,
314 asection *input_section, bfd_byte *contents,
315 Elf_Internal_Rela *relocs, Elf_Internal_Sym *local_syms,
316 asection **local_sections));
317 static bfd_boolean elfNN_ia64_finish_dynamic_symbol
318 PARAMS ((bfd *output_bfd, struct bfd_link_info *info,
319 struct elf_link_hash_entry *h, Elf_Internal_Sym *sym));
320 static bfd_boolean elfNN_ia64_finish_dynamic_sections
321 PARAMS ((bfd *abfd, struct bfd_link_info *info));
322 static bfd_boolean elfNN_ia64_set_private_flags
323 PARAMS ((bfd *abfd, flagword flags));
324 static bfd_boolean elfNN_ia64_merge_private_bfd_data
325 PARAMS ((bfd *ibfd, bfd *obfd));
326 static bfd_boolean elfNN_ia64_print_private_bfd_data
327 PARAMS ((bfd *abfd, PTR ptr));
328 static enum elf_reloc_type_class elfNN_ia64_reloc_type_class
329 PARAMS ((const Elf_Internal_Rela *));
330 static bfd_boolean elfNN_ia64_hpux_vec
331 PARAMS ((const bfd_target *vec));
332 static void elfNN_hpux_post_process_headers
333 PARAMS ((bfd *abfd, struct bfd_link_info *info));
334 bfd_boolean elfNN_hpux_backend_section_from_bfd_section
335 PARAMS ((bfd *abfd, asection *sec, int *retval));
337 /* ia64-specific relocation. */
339 /* Perform a relocation. Not much to do here as all the hard work is
340 done in elfNN_ia64_final_link_relocate. */
341 static bfd_reloc_status_type
342 elfNN_ia64_reloc (abfd, reloc, sym, data, input_section,
343 output_bfd, error_message)
344 bfd *abfd ATTRIBUTE_UNUSED;
345 arelent *reloc;
346 asymbol *sym ATTRIBUTE_UNUSED;
347 PTR data ATTRIBUTE_UNUSED;
348 asection *input_section;
349 bfd *output_bfd;
350 char **error_message;
352 if (output_bfd)
354 reloc->address += input_section->output_offset;
355 return bfd_reloc_ok;
358 if (input_section->flags & SEC_DEBUGGING)
359 return bfd_reloc_continue;
361 *error_message = "Unsupported call to elfNN_ia64_reloc";
362 return bfd_reloc_notsupported;
365 #define IA64_HOWTO(TYPE, NAME, SIZE, PCREL, IN) \
366 HOWTO (TYPE, 0, SIZE, 0, PCREL, 0, complain_overflow_signed, \
367 elfNN_ia64_reloc, NAME, FALSE, 0, -1, IN)
369 /* This table has to be sorted according to increasing number of the
370 TYPE field. */
371 static reloc_howto_type ia64_howto_table[] =
373 IA64_HOWTO (R_IA64_NONE, "NONE", 0, FALSE, TRUE),
375 IA64_HOWTO (R_IA64_IMM14, "IMM14", 0, FALSE, TRUE),
376 IA64_HOWTO (R_IA64_IMM22, "IMM22", 0, FALSE, TRUE),
377 IA64_HOWTO (R_IA64_IMM64, "IMM64", 0, FALSE, TRUE),
378 IA64_HOWTO (R_IA64_DIR32MSB, "DIR32MSB", 2, FALSE, TRUE),
379 IA64_HOWTO (R_IA64_DIR32LSB, "DIR32LSB", 2, FALSE, TRUE),
380 IA64_HOWTO (R_IA64_DIR64MSB, "DIR64MSB", 4, FALSE, TRUE),
381 IA64_HOWTO (R_IA64_DIR64LSB, "DIR64LSB", 4, FALSE, TRUE),
383 IA64_HOWTO (R_IA64_GPREL22, "GPREL22", 0, FALSE, TRUE),
384 IA64_HOWTO (R_IA64_GPREL64I, "GPREL64I", 0, FALSE, TRUE),
385 IA64_HOWTO (R_IA64_GPREL32MSB, "GPREL32MSB", 2, FALSE, TRUE),
386 IA64_HOWTO (R_IA64_GPREL32LSB, "GPREL32LSB", 2, FALSE, TRUE),
387 IA64_HOWTO (R_IA64_GPREL64MSB, "GPREL64MSB", 4, FALSE, TRUE),
388 IA64_HOWTO (R_IA64_GPREL64LSB, "GPREL64LSB", 4, FALSE, TRUE),
390 IA64_HOWTO (R_IA64_LTOFF22, "LTOFF22", 0, FALSE, TRUE),
391 IA64_HOWTO (R_IA64_LTOFF64I, "LTOFF64I", 0, FALSE, TRUE),
393 IA64_HOWTO (R_IA64_PLTOFF22, "PLTOFF22", 0, FALSE, TRUE),
394 IA64_HOWTO (R_IA64_PLTOFF64I, "PLTOFF64I", 0, FALSE, TRUE),
395 IA64_HOWTO (R_IA64_PLTOFF64MSB, "PLTOFF64MSB", 4, FALSE, TRUE),
396 IA64_HOWTO (R_IA64_PLTOFF64LSB, "PLTOFF64LSB", 4, FALSE, TRUE),
398 IA64_HOWTO (R_IA64_FPTR64I, "FPTR64I", 0, FALSE, TRUE),
399 IA64_HOWTO (R_IA64_FPTR32MSB, "FPTR32MSB", 2, FALSE, TRUE),
400 IA64_HOWTO (R_IA64_FPTR32LSB, "FPTR32LSB", 2, FALSE, TRUE),
401 IA64_HOWTO (R_IA64_FPTR64MSB, "FPTR64MSB", 4, FALSE, TRUE),
402 IA64_HOWTO (R_IA64_FPTR64LSB, "FPTR64LSB", 4, FALSE, TRUE),
404 IA64_HOWTO (R_IA64_PCREL60B, "PCREL60B", 0, TRUE, TRUE),
405 IA64_HOWTO (R_IA64_PCREL21B, "PCREL21B", 0, TRUE, TRUE),
406 IA64_HOWTO (R_IA64_PCREL21M, "PCREL21M", 0, TRUE, TRUE),
407 IA64_HOWTO (R_IA64_PCREL21F, "PCREL21F", 0, TRUE, TRUE),
408 IA64_HOWTO (R_IA64_PCREL32MSB, "PCREL32MSB", 2, TRUE, TRUE),
409 IA64_HOWTO (R_IA64_PCREL32LSB, "PCREL32LSB", 2, TRUE, TRUE),
410 IA64_HOWTO (R_IA64_PCREL64MSB, "PCREL64MSB", 4, TRUE, TRUE),
411 IA64_HOWTO (R_IA64_PCREL64LSB, "PCREL64LSB", 4, TRUE, TRUE),
413 IA64_HOWTO (R_IA64_LTOFF_FPTR22, "LTOFF_FPTR22", 0, FALSE, TRUE),
414 IA64_HOWTO (R_IA64_LTOFF_FPTR64I, "LTOFF_FPTR64I", 0, FALSE, TRUE),
415 IA64_HOWTO (R_IA64_LTOFF_FPTR32MSB, "LTOFF_FPTR32MSB", 2, FALSE, TRUE),
416 IA64_HOWTO (R_IA64_LTOFF_FPTR32LSB, "LTOFF_FPTR32LSB", 2, FALSE, TRUE),
417 IA64_HOWTO (R_IA64_LTOFF_FPTR64MSB, "LTOFF_FPTR64MSB", 4, FALSE, TRUE),
418 IA64_HOWTO (R_IA64_LTOFF_FPTR64LSB, "LTOFF_FPTR64LSB", 4, FALSE, TRUE),
420 IA64_HOWTO (R_IA64_SEGREL32MSB, "SEGREL32MSB", 2, FALSE, TRUE),
421 IA64_HOWTO (R_IA64_SEGREL32LSB, "SEGREL32LSB", 2, FALSE, TRUE),
422 IA64_HOWTO (R_IA64_SEGREL64MSB, "SEGREL64MSB", 4, FALSE, TRUE),
423 IA64_HOWTO (R_IA64_SEGREL64LSB, "SEGREL64LSB", 4, FALSE, TRUE),
425 IA64_HOWTO (R_IA64_SECREL32MSB, "SECREL32MSB", 2, FALSE, TRUE),
426 IA64_HOWTO (R_IA64_SECREL32LSB, "SECREL32LSB", 2, FALSE, TRUE),
427 IA64_HOWTO (R_IA64_SECREL64MSB, "SECREL64MSB", 4, FALSE, TRUE),
428 IA64_HOWTO (R_IA64_SECREL64LSB, "SECREL64LSB", 4, FALSE, TRUE),
430 IA64_HOWTO (R_IA64_REL32MSB, "REL32MSB", 2, FALSE, TRUE),
431 IA64_HOWTO (R_IA64_REL32LSB, "REL32LSB", 2, FALSE, TRUE),
432 IA64_HOWTO (R_IA64_REL64MSB, "REL64MSB", 4, FALSE, TRUE),
433 IA64_HOWTO (R_IA64_REL64LSB, "REL64LSB", 4, FALSE, TRUE),
435 IA64_HOWTO (R_IA64_LTV32MSB, "LTV32MSB", 2, FALSE, TRUE),
436 IA64_HOWTO (R_IA64_LTV32LSB, "LTV32LSB", 2, FALSE, TRUE),
437 IA64_HOWTO (R_IA64_LTV64MSB, "LTV64MSB", 4, FALSE, TRUE),
438 IA64_HOWTO (R_IA64_LTV64LSB, "LTV64LSB", 4, FALSE, TRUE),
440 IA64_HOWTO (R_IA64_PCREL21BI, "PCREL21BI", 0, TRUE, TRUE),
441 IA64_HOWTO (R_IA64_PCREL22, "PCREL22", 0, TRUE, TRUE),
442 IA64_HOWTO (R_IA64_PCREL64I, "PCREL64I", 0, TRUE, TRUE),
444 IA64_HOWTO (R_IA64_IPLTMSB, "IPLTMSB", 4, FALSE, TRUE),
445 IA64_HOWTO (R_IA64_IPLTLSB, "IPLTLSB", 4, FALSE, TRUE),
446 IA64_HOWTO (R_IA64_COPY, "COPY", 4, FALSE, TRUE),
447 IA64_HOWTO (R_IA64_LTOFF22X, "LTOFF22X", 0, FALSE, TRUE),
448 IA64_HOWTO (R_IA64_LDXMOV, "LDXMOV", 0, FALSE, TRUE),
450 IA64_HOWTO (R_IA64_TPREL14, "TPREL14", 0, FALSE, FALSE),
451 IA64_HOWTO (R_IA64_TPREL22, "TPREL22", 0, FALSE, FALSE),
452 IA64_HOWTO (R_IA64_TPREL64I, "TPREL64I", 0, FALSE, FALSE),
453 IA64_HOWTO (R_IA64_TPREL64MSB, "TPREL64MSB", 4, FALSE, FALSE),
454 IA64_HOWTO (R_IA64_TPREL64LSB, "TPREL64LSB", 4, FALSE, FALSE),
455 IA64_HOWTO (R_IA64_LTOFF_TPREL22, "LTOFF_TPREL22", 0, FALSE, FALSE),
457 IA64_HOWTO (R_IA64_DTPMOD64MSB, "DTPMOD64MSB", 4, FALSE, FALSE),
458 IA64_HOWTO (R_IA64_DTPMOD64LSB, "DTPMOD64LSB", 4, FALSE, FALSE),
459 IA64_HOWTO (R_IA64_LTOFF_DTPMOD22, "LTOFF_DTPMOD22", 0, FALSE, FALSE),
461 IA64_HOWTO (R_IA64_DTPREL14, "DTPREL14", 0, FALSE, FALSE),
462 IA64_HOWTO (R_IA64_DTPREL22, "DTPREL22", 0, FALSE, FALSE),
463 IA64_HOWTO (R_IA64_DTPREL64I, "DTPREL64I", 0, FALSE, FALSE),
464 IA64_HOWTO (R_IA64_DTPREL32MSB, "DTPREL32MSB", 2, FALSE, FALSE),
465 IA64_HOWTO (R_IA64_DTPREL32LSB, "DTPREL32LSB", 2, FALSE, FALSE),
466 IA64_HOWTO (R_IA64_DTPREL64MSB, "DTPREL64MSB", 4, FALSE, FALSE),
467 IA64_HOWTO (R_IA64_DTPREL64LSB, "DTPREL64LSB", 4, FALSE, FALSE),
468 IA64_HOWTO (R_IA64_LTOFF_DTPREL22, "LTOFF_DTPREL22", 0, FALSE, FALSE),
471 static unsigned char elf_code_to_howto_index[R_IA64_MAX_RELOC_CODE + 1];
473 /* Given a BFD reloc type, return the matching HOWTO structure. */
475 static reloc_howto_type *
476 lookup_howto (rtype)
477 unsigned int rtype;
479 static int inited = 0;
480 int i;
482 if (!inited)
484 inited = 1;
486 memset (elf_code_to_howto_index, 0xff, sizeof (elf_code_to_howto_index));
487 for (i = 0; i < NELEMS (ia64_howto_table); ++i)
488 elf_code_to_howto_index[ia64_howto_table[i].type] = i;
491 if (rtype > R_IA64_MAX_RELOC_CODE)
492 return 0;
493 i = elf_code_to_howto_index[rtype];
494 if (i >= NELEMS (ia64_howto_table))
495 return 0;
496 return ia64_howto_table + i;
499 static reloc_howto_type*
500 elfNN_ia64_reloc_type_lookup (abfd, bfd_code)
501 bfd *abfd ATTRIBUTE_UNUSED;
502 bfd_reloc_code_real_type bfd_code;
504 unsigned int rtype;
506 switch (bfd_code)
508 case BFD_RELOC_NONE: rtype = R_IA64_NONE; break;
510 case BFD_RELOC_IA64_IMM14: rtype = R_IA64_IMM14; break;
511 case BFD_RELOC_IA64_IMM22: rtype = R_IA64_IMM22; break;
512 case BFD_RELOC_IA64_IMM64: rtype = R_IA64_IMM64; break;
514 case BFD_RELOC_IA64_DIR32MSB: rtype = R_IA64_DIR32MSB; break;
515 case BFD_RELOC_IA64_DIR32LSB: rtype = R_IA64_DIR32LSB; break;
516 case BFD_RELOC_IA64_DIR64MSB: rtype = R_IA64_DIR64MSB; break;
517 case BFD_RELOC_IA64_DIR64LSB: rtype = R_IA64_DIR64LSB; break;
519 case BFD_RELOC_IA64_GPREL22: rtype = R_IA64_GPREL22; break;
520 case BFD_RELOC_IA64_GPREL64I: rtype = R_IA64_GPREL64I; break;
521 case BFD_RELOC_IA64_GPREL32MSB: rtype = R_IA64_GPREL32MSB; break;
522 case BFD_RELOC_IA64_GPREL32LSB: rtype = R_IA64_GPREL32LSB; break;
523 case BFD_RELOC_IA64_GPREL64MSB: rtype = R_IA64_GPREL64MSB; break;
524 case BFD_RELOC_IA64_GPREL64LSB: rtype = R_IA64_GPREL64LSB; break;
526 case BFD_RELOC_IA64_LTOFF22: rtype = R_IA64_LTOFF22; break;
527 case BFD_RELOC_IA64_LTOFF64I: rtype = R_IA64_LTOFF64I; break;
529 case BFD_RELOC_IA64_PLTOFF22: rtype = R_IA64_PLTOFF22; break;
530 case BFD_RELOC_IA64_PLTOFF64I: rtype = R_IA64_PLTOFF64I; break;
531 case BFD_RELOC_IA64_PLTOFF64MSB: rtype = R_IA64_PLTOFF64MSB; break;
532 case BFD_RELOC_IA64_PLTOFF64LSB: rtype = R_IA64_PLTOFF64LSB; break;
533 case BFD_RELOC_IA64_FPTR64I: rtype = R_IA64_FPTR64I; break;
534 case BFD_RELOC_IA64_FPTR32MSB: rtype = R_IA64_FPTR32MSB; break;
535 case BFD_RELOC_IA64_FPTR32LSB: rtype = R_IA64_FPTR32LSB; break;
536 case BFD_RELOC_IA64_FPTR64MSB: rtype = R_IA64_FPTR64MSB; break;
537 case BFD_RELOC_IA64_FPTR64LSB: rtype = R_IA64_FPTR64LSB; break;
539 case BFD_RELOC_IA64_PCREL21B: rtype = R_IA64_PCREL21B; break;
540 case BFD_RELOC_IA64_PCREL21BI: rtype = R_IA64_PCREL21BI; break;
541 case BFD_RELOC_IA64_PCREL21M: rtype = R_IA64_PCREL21M; break;
542 case BFD_RELOC_IA64_PCREL21F: rtype = R_IA64_PCREL21F; break;
543 case BFD_RELOC_IA64_PCREL22: rtype = R_IA64_PCREL22; break;
544 case BFD_RELOC_IA64_PCREL60B: rtype = R_IA64_PCREL60B; break;
545 case BFD_RELOC_IA64_PCREL64I: rtype = R_IA64_PCREL64I; break;
546 case BFD_RELOC_IA64_PCREL32MSB: rtype = R_IA64_PCREL32MSB; break;
547 case BFD_RELOC_IA64_PCREL32LSB: rtype = R_IA64_PCREL32LSB; break;
548 case BFD_RELOC_IA64_PCREL64MSB: rtype = R_IA64_PCREL64MSB; break;
549 case BFD_RELOC_IA64_PCREL64LSB: rtype = R_IA64_PCREL64LSB; break;
551 case BFD_RELOC_IA64_LTOFF_FPTR22: rtype = R_IA64_LTOFF_FPTR22; break;
552 case BFD_RELOC_IA64_LTOFF_FPTR64I: rtype = R_IA64_LTOFF_FPTR64I; break;
553 case BFD_RELOC_IA64_LTOFF_FPTR32MSB: rtype = R_IA64_LTOFF_FPTR32MSB; break;
554 case BFD_RELOC_IA64_LTOFF_FPTR32LSB: rtype = R_IA64_LTOFF_FPTR32LSB; break;
555 case BFD_RELOC_IA64_LTOFF_FPTR64MSB: rtype = R_IA64_LTOFF_FPTR64MSB; break;
556 case BFD_RELOC_IA64_LTOFF_FPTR64LSB: rtype = R_IA64_LTOFF_FPTR64LSB; break;
558 case BFD_RELOC_IA64_SEGREL32MSB: rtype = R_IA64_SEGREL32MSB; break;
559 case BFD_RELOC_IA64_SEGREL32LSB: rtype = R_IA64_SEGREL32LSB; break;
560 case BFD_RELOC_IA64_SEGREL64MSB: rtype = R_IA64_SEGREL64MSB; break;
561 case BFD_RELOC_IA64_SEGREL64LSB: rtype = R_IA64_SEGREL64LSB; break;
563 case BFD_RELOC_IA64_SECREL32MSB: rtype = R_IA64_SECREL32MSB; break;
564 case BFD_RELOC_IA64_SECREL32LSB: rtype = R_IA64_SECREL32LSB; break;
565 case BFD_RELOC_IA64_SECREL64MSB: rtype = R_IA64_SECREL64MSB; break;
566 case BFD_RELOC_IA64_SECREL64LSB: rtype = R_IA64_SECREL64LSB; break;
568 case BFD_RELOC_IA64_REL32MSB: rtype = R_IA64_REL32MSB; break;
569 case BFD_RELOC_IA64_REL32LSB: rtype = R_IA64_REL32LSB; break;
570 case BFD_RELOC_IA64_REL64MSB: rtype = R_IA64_REL64MSB; break;
571 case BFD_RELOC_IA64_REL64LSB: rtype = R_IA64_REL64LSB; break;
573 case BFD_RELOC_IA64_LTV32MSB: rtype = R_IA64_LTV32MSB; break;
574 case BFD_RELOC_IA64_LTV32LSB: rtype = R_IA64_LTV32LSB; break;
575 case BFD_RELOC_IA64_LTV64MSB: rtype = R_IA64_LTV64MSB; break;
576 case BFD_RELOC_IA64_LTV64LSB: rtype = R_IA64_LTV64LSB; break;
578 case BFD_RELOC_IA64_IPLTMSB: rtype = R_IA64_IPLTMSB; break;
579 case BFD_RELOC_IA64_IPLTLSB: rtype = R_IA64_IPLTLSB; break;
580 case BFD_RELOC_IA64_COPY: rtype = R_IA64_COPY; break;
581 case BFD_RELOC_IA64_LTOFF22X: rtype = R_IA64_LTOFF22X; break;
582 case BFD_RELOC_IA64_LDXMOV: rtype = R_IA64_LDXMOV; break;
584 case BFD_RELOC_IA64_TPREL14: rtype = R_IA64_TPREL14; break;
585 case BFD_RELOC_IA64_TPREL22: rtype = R_IA64_TPREL22; break;
586 case BFD_RELOC_IA64_TPREL64I: rtype = R_IA64_TPREL64I; break;
587 case BFD_RELOC_IA64_TPREL64MSB: rtype = R_IA64_TPREL64MSB; break;
588 case BFD_RELOC_IA64_TPREL64LSB: rtype = R_IA64_TPREL64LSB; break;
589 case BFD_RELOC_IA64_LTOFF_TPREL22: rtype = R_IA64_LTOFF_TPREL22; break;
591 case BFD_RELOC_IA64_DTPMOD64MSB: rtype = R_IA64_DTPMOD64MSB; break;
592 case BFD_RELOC_IA64_DTPMOD64LSB: rtype = R_IA64_DTPMOD64LSB; break;
593 case BFD_RELOC_IA64_LTOFF_DTPMOD22: rtype = R_IA64_LTOFF_DTPMOD22; break;
595 case BFD_RELOC_IA64_DTPREL14: rtype = R_IA64_DTPREL14; break;
596 case BFD_RELOC_IA64_DTPREL22: rtype = R_IA64_DTPREL22; break;
597 case BFD_RELOC_IA64_DTPREL64I: rtype = R_IA64_DTPREL64I; break;
598 case BFD_RELOC_IA64_DTPREL32MSB: rtype = R_IA64_DTPREL32MSB; break;
599 case BFD_RELOC_IA64_DTPREL32LSB: rtype = R_IA64_DTPREL32LSB; break;
600 case BFD_RELOC_IA64_DTPREL64MSB: rtype = R_IA64_DTPREL64MSB; break;
601 case BFD_RELOC_IA64_DTPREL64LSB: rtype = R_IA64_DTPREL64LSB; break;
602 case BFD_RELOC_IA64_LTOFF_DTPREL22: rtype = R_IA64_LTOFF_DTPREL22; break;
604 default: return 0;
606 return lookup_howto (rtype);
609 /* Given a ELF reloc, return the matching HOWTO structure. */
611 static void
612 elfNN_ia64_info_to_howto (abfd, bfd_reloc, elf_reloc)
613 bfd *abfd ATTRIBUTE_UNUSED;
614 arelent *bfd_reloc;
615 Elf_Internal_Rela *elf_reloc;
617 bfd_reloc->howto
618 = lookup_howto ((unsigned int) ELFNN_R_TYPE (elf_reloc->r_info));
621 #define PLT_HEADER_SIZE (3 * 16)
622 #define PLT_MIN_ENTRY_SIZE (1 * 16)
623 #define PLT_FULL_ENTRY_SIZE (2 * 16)
624 #define PLT_RESERVED_WORDS 3
626 static const bfd_byte plt_header[PLT_HEADER_SIZE] =
628 0x0b, 0x10, 0x00, 0x1c, 0x00, 0x21, /* [MMI] mov r2=r14;; */
629 0xe0, 0x00, 0x08, 0x00, 0x48, 0x00, /* addl r14=0,r2 */
630 0x00, 0x00, 0x04, 0x00, /* nop.i 0x0;; */
631 0x0b, 0x80, 0x20, 0x1c, 0x18, 0x14, /* [MMI] ld8 r16=[r14],8;; */
632 0x10, 0x41, 0x38, 0x30, 0x28, 0x00, /* ld8 r17=[r14],8 */
633 0x00, 0x00, 0x04, 0x00, /* nop.i 0x0;; */
634 0x11, 0x08, 0x00, 0x1c, 0x18, 0x10, /* [MIB] ld8 r1=[r14] */
635 0x60, 0x88, 0x04, 0x80, 0x03, 0x00, /* mov b6=r17 */
636 0x60, 0x00, 0x80, 0x00 /* br.few b6;; */
639 static const bfd_byte plt_min_entry[PLT_MIN_ENTRY_SIZE] =
641 0x11, 0x78, 0x00, 0x00, 0x00, 0x24, /* [MIB] mov r15=0 */
642 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, /* nop.i 0x0 */
643 0x00, 0x00, 0x00, 0x40 /* br.few 0 <PLT0>;; */
646 static const bfd_byte plt_full_entry[PLT_FULL_ENTRY_SIZE] =
648 0x0b, 0x78, 0x00, 0x02, 0x00, 0x24, /* [MMI] addl r15=0,r1;; */
649 0x00, 0x41, 0x3c, 0x70, 0x29, 0xc0, /* ld8.acq r16=[r15],8*/
650 0x01, 0x08, 0x00, 0x84, /* mov r14=r1;; */
651 0x11, 0x08, 0x00, 0x1e, 0x18, 0x10, /* [MIB] ld8 r1=[r15] */
652 0x60, 0x80, 0x04, 0x80, 0x03, 0x00, /* mov b6=r16 */
653 0x60, 0x00, 0x80, 0x00 /* br.few b6;; */
656 #define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
658 static const bfd_byte oor_brl[16] =
660 0x05, 0x00, 0x00, 0x00, 0x01, 0x00, /* [MLX] nop.m 0 */
661 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* brl.sptk.few tgt;; */
662 0x00, 0x00, 0x00, 0xc0
665 static const bfd_byte oor_ip[48] =
667 0x04, 0x00, 0x00, 0x00, 0x01, 0x00, /* [MLX] nop.m 0 */
668 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, /* movl r15=0 */
669 0x01, 0x00, 0x00, 0x60,
670 0x03, 0x00, 0x00, 0x00, 0x01, 0x00, /* [MII] nop.m 0 */
671 0x00, 0x01, 0x00, 0x60, 0x00, 0x00, /* mov r16=ip;; */
672 0xf2, 0x80, 0x00, 0x80, /* add r16=r15,r16;; */
673 0x11, 0x00, 0x00, 0x00, 0x01, 0x00, /* [MIB] nop.m 0 */
674 0x60, 0x80, 0x04, 0x80, 0x03, 0x00, /* mov b6=r16 */
675 0x60, 0x00, 0x80, 0x00 /* br b6;; */
678 static size_t oor_branch_size = sizeof (oor_brl);
680 void
681 bfd_elfNN_ia64_after_parse (int itanium)
683 oor_branch_size = itanium ? sizeof (oor_ip) : sizeof (oor_brl);
686 #define BTYPE_SHIFT 6
687 #define Y_SHIFT 26
688 #define X6_SHIFT 27
689 #define X4_SHIFT 27
690 #define X3_SHIFT 33
691 #define X2_SHIFT 31
692 #define X_SHIFT 33
693 #define OPCODE_SHIFT 37
695 #define OPCODE_BITS (0xfLL << OPCODE_SHIFT)
696 #define X6_BITS (0x3fLL << X6_SHIFT)
697 #define X4_BITS (0xfLL << X4_SHIFT)
698 #define X3_BITS (0x7LL << X3_SHIFT)
699 #define X2_BITS (0x3LL << X2_SHIFT)
700 #define X_BITS (0x1LL << X_SHIFT)
701 #define Y_BITS (0x1LL << Y_SHIFT)
702 #define BTYPE_BITS (0x7LL << BTYPE_SHIFT)
703 #define PREDICATE_BITS (0x3fLL)
705 #define IS_NOP_B(i) \
706 (((i) & (OPCODE_BITS | X6_BITS)) == (2LL << OPCODE_SHIFT))
707 #define IS_NOP_F(i) \
708 (((i) & (OPCODE_BITS | X_BITS | X6_BITS | Y_BITS)) \
709 == (0x1LL << X6_SHIFT))
710 #define IS_NOP_I(i) \
711 (((i) & (OPCODE_BITS | X3_BITS | X6_BITS | Y_BITS)) \
712 == (0x1LL << X6_SHIFT))
713 #define IS_NOP_M(i) \
714 (((i) & (OPCODE_BITS | X3_BITS | X2_BITS | X4_BITS | Y_BITS)) \
715 == (0x1LL << X4_SHIFT))
716 #define IS_BR_COND(i) \
717 (((i) & (OPCODE_BITS | BTYPE_BITS)) == (0x4LL << OPCODE_SHIFT))
718 #define IS_BR_CALL(i) \
719 (((i) & OPCODE_BITS) == (0x5LL << OPCODE_SHIFT))
721 static bfd_boolean
722 elfNN_ia64_relax_br (bfd_byte *contents, bfd_vma off)
724 unsigned int template, mlx;
725 bfd_vma t0, t1, s0, s1, s2, br_code;
726 long br_slot;
727 bfd_byte *hit_addr;
729 hit_addr = (bfd_byte *) (contents + off);
730 br_slot = (long) hit_addr & 0x3;
731 hit_addr -= br_slot;
732 t0 = bfd_getl64 (hit_addr + 0);
733 t1 = bfd_getl64 (hit_addr + 8);
735 /* Check if we can turn br into brl. A label is always at the start
736 of the bundle. Even if there are predicates on NOPs, we still
737 perform this optimization. */
738 template = t0 & 0x1e;
739 s0 = (t0 >> 5) & 0x1ffffffffffLL;
740 s1 = ((t0 >> 46) | (t1 << 18)) & 0x1ffffffffffLL;
741 s2 = (t1 >> 23) & 0x1ffffffffffLL;
742 switch (br_slot)
744 case 0:
745 /* Check if slot 1 and slot 2 are NOPs. Possible template is
746 BBB. We only need to check nop.b. */
747 if (!(IS_NOP_B (s1) && IS_NOP_B (s2)))
748 return FALSE;
749 br_code = s0;
750 break;
751 case 1:
752 /* Check if slot 2 is NOP. Possible templates are MBB and BBB.
753 For BBB, slot 0 also has to be nop.b. */
754 if (!((template == 0x12 /* MBB */
755 && IS_NOP_B (s2))
756 || (template == 0x16 /* BBB */
757 && IS_NOP_B (s0)
758 && IS_NOP_B (s2))))
759 return FALSE;
760 br_code = s1;
761 break;
762 case 2:
763 /* Check if slot 1 is NOP. Possible templates are MIB, MBB, BBB,
764 MMB and MFB. For BBB, slot 0 also has to be nop.b. */
765 if (!((template == 0x10 /* MIB */
766 && IS_NOP_I (s1))
767 || (template == 0x12 /* MBB */
768 && IS_NOP_B (s1))
769 || (template == 0x16 /* BBB */
770 && IS_NOP_B (s0)
771 && IS_NOP_B (s1))
772 || (template == 0x18 /* MMB */
773 && IS_NOP_M (s1))
774 || (template == 0x1c /* MFB */
775 && IS_NOP_F (s1))))
776 return FALSE;
777 br_code = s2;
778 break;
779 default:
780 /* It should never happen. */
781 abort ();
784 /* We can turn br.cond/br.call into brl.cond/brl.call. */
785 if (!(IS_BR_COND (br_code) || IS_BR_CALL (br_code)))
786 return FALSE;
788 /* Turn br into brl by setting bit 40. */
789 br_code |= 0x1LL << 40;
791 /* Turn the old bundle into a MLX bundle with the same stop-bit
792 variety. */
793 if (t0 & 0x1)
794 mlx = 0x5;
795 else
796 mlx = 0x4;
798 if (template == 0x16)
800 /* For BBB, we need to put nop.m in slot 0. We keep the original
801 predicate only if slot 0 isn't br. */
802 if (br_slot == 0)
803 t0 = 0LL;
804 else
805 t0 &= PREDICATE_BITS << 5;
806 t0 |= 0x1LL << (X4_SHIFT + 5);
808 else
810 /* Keep the original instruction in slot 0. */
811 t0 &= 0x1ffffffffffLL << 5;
814 t0 |= mlx;
816 /* Put brl in slot 1. */
817 t1 = br_code << 23;
819 bfd_putl64 (t0, hit_addr);
820 bfd_putl64 (t1, hit_addr + 8);
821 return TRUE;
824 static void
825 elfNN_ia64_relax_brl (bfd_byte *contents, bfd_vma off)
827 int template;
828 bfd_byte *hit_addr;
829 bfd_vma t0, t1, i0, i1, i2;
831 hit_addr = (bfd_byte *) (contents + off);
832 hit_addr -= (long) hit_addr & 0x3;
833 t0 = bfd_getl64 (hit_addr);
834 t1 = bfd_getl64 (hit_addr + 8);
836 /* Keep the instruction in slot 0. */
837 i0 = (t0 >> 5) & 0x1ffffffffffLL;
838 /* Use nop.b for slot 1. */
839 i1 = 0x4000000000LL;
840 /* For slot 2, turn brl into br by masking out bit 40. */
841 i2 = (t1 >> 23) & 0x0ffffffffffLL;
843 /* Turn a MLX bundle into a MBB bundle with the same stop-bit
844 variety. */
845 if (t0 & 0x1)
846 template = 0x13;
847 else
848 template = 0x12;
849 t0 = (i1 << 46) | (i0 << 5) | template;
850 t1 = (i2 << 23) | (i1 >> 18);
852 bfd_putl64 (t0, hit_addr);
853 bfd_putl64 (t1, hit_addr + 8);
856 /* These functions do relaxation for IA-64 ELF. */
858 static bfd_boolean
859 elfNN_ia64_relax_section (abfd, sec, link_info, again)
860 bfd *abfd;
861 asection *sec;
862 struct bfd_link_info *link_info;
863 bfd_boolean *again;
865 struct one_fixup
867 struct one_fixup *next;
868 asection *tsec;
869 bfd_vma toff;
870 bfd_vma trampoff;
873 Elf_Internal_Shdr *symtab_hdr;
874 Elf_Internal_Rela *internal_relocs;
875 Elf_Internal_Rela *irel, *irelend;
876 bfd_byte *contents;
877 Elf_Internal_Sym *isymbuf = NULL;
878 struct elfNN_ia64_link_hash_table *ia64_info;
879 struct one_fixup *fixups = NULL;
880 bfd_boolean changed_contents = FALSE;
881 bfd_boolean changed_relocs = FALSE;
882 bfd_boolean changed_got = FALSE;
883 bfd_vma gp = 0;
885 /* Assume we're not going to change any sizes, and we'll only need
886 one pass. */
887 *again = FALSE;
889 /* Don't even try to relax for non-ELF outputs. */
890 if (!is_elf_hash_table (link_info->hash))
891 return FALSE;
893 /* Nothing to do if there are no relocations or there is no need for
894 the relax finalize pass. */
895 if ((sec->flags & SEC_RELOC) == 0
896 || sec->reloc_count == 0
897 || (!link_info->need_relax_finalize
898 && sec->need_finalize_relax == 0))
899 return TRUE;
901 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
903 /* Load the relocations for this section. */
904 internal_relocs = (_bfd_elf_link_read_relocs
905 (abfd, sec, (PTR) NULL, (Elf_Internal_Rela *) NULL,
906 link_info->keep_memory));
907 if (internal_relocs == NULL)
908 return FALSE;
910 ia64_info = elfNN_ia64_hash_table (link_info);
911 irelend = internal_relocs + sec->reloc_count;
913 /* Get the section contents. */
914 if (elf_section_data (sec)->this_hdr.contents != NULL)
915 contents = elf_section_data (sec)->this_hdr.contents;
916 else
918 if (!bfd_malloc_and_get_section (abfd, sec, &contents))
919 goto error_return;
922 for (irel = internal_relocs; irel < irelend; irel++)
924 unsigned long r_type = ELFNN_R_TYPE (irel->r_info);
925 bfd_vma symaddr, reladdr, trampoff, toff, roff;
926 asection *tsec;
927 struct one_fixup *f;
928 bfd_size_type amt;
929 bfd_boolean is_branch;
930 struct elfNN_ia64_dyn_sym_info *dyn_i;
931 char symtype;
933 switch (r_type)
935 case R_IA64_PCREL21B:
936 case R_IA64_PCREL21BI:
937 case R_IA64_PCREL21M:
938 case R_IA64_PCREL21F:
939 /* In the finalize pass, all br relaxations are done. We can
940 skip it. */
941 if (!link_info->need_relax_finalize)
942 continue;
943 is_branch = TRUE;
944 break;
946 case R_IA64_PCREL60B:
947 /* We can't optimize brl to br before the finalize pass since
948 br relaxations will increase the code size. Defer it to
949 the finalize pass. */
950 if (link_info->need_relax_finalize)
952 sec->need_finalize_relax = 1;
953 continue;
955 is_branch = TRUE;
956 break;
958 case R_IA64_LTOFF22X:
959 case R_IA64_LDXMOV:
960 /* We can't relax ldx/mov before the finalize pass since
961 br relaxations will increase the code size. Defer it to
962 the finalize pass. */
963 if (link_info->need_relax_finalize)
965 sec->need_finalize_relax = 1;
966 continue;
968 is_branch = FALSE;
969 break;
971 default:
972 continue;
975 /* Get the value of the symbol referred to by the reloc. */
976 if (ELFNN_R_SYM (irel->r_info) < symtab_hdr->sh_info)
978 /* A local symbol. */
979 Elf_Internal_Sym *isym;
981 /* Read this BFD's local symbols. */
982 if (isymbuf == NULL)
984 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
985 if (isymbuf == NULL)
986 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
987 symtab_hdr->sh_info, 0,
988 NULL, NULL, NULL);
989 if (isymbuf == 0)
990 goto error_return;
993 isym = isymbuf + ELFNN_R_SYM (irel->r_info);
994 if (isym->st_shndx == SHN_UNDEF)
995 continue; /* We can't do anything with undefined symbols. */
996 else if (isym->st_shndx == SHN_ABS)
997 tsec = bfd_abs_section_ptr;
998 else if (isym->st_shndx == SHN_COMMON)
999 tsec = bfd_com_section_ptr;
1000 else if (isym->st_shndx == SHN_IA_64_ANSI_COMMON)
1001 tsec = bfd_com_section_ptr;
1002 else
1003 tsec = bfd_section_from_elf_index (abfd, isym->st_shndx);
1005 toff = isym->st_value;
1006 dyn_i = get_dyn_sym_info (ia64_info, NULL, abfd, irel, FALSE);
1007 symtype = ELF_ST_TYPE (isym->st_info);
1009 else
1011 unsigned long indx;
1012 struct elf_link_hash_entry *h;
1014 indx = ELFNN_R_SYM (irel->r_info) - symtab_hdr->sh_info;
1015 h = elf_sym_hashes (abfd)[indx];
1016 BFD_ASSERT (h != NULL);
1018 while (h->root.type == bfd_link_hash_indirect
1019 || h->root.type == bfd_link_hash_warning)
1020 h = (struct elf_link_hash_entry *) h->root.u.i.link;
1022 dyn_i = get_dyn_sym_info (ia64_info, h, abfd, irel, FALSE);
1024 /* For branches to dynamic symbols, we're interested instead
1025 in a branch to the PLT entry. */
1026 if (is_branch && dyn_i && dyn_i->want_plt2)
1028 /* Internal branches shouldn't be sent to the PLT.
1029 Leave this for now and we'll give an error later. */
1030 if (r_type != R_IA64_PCREL21B)
1031 continue;
1033 tsec = ia64_info->plt_sec;
1034 toff = dyn_i->plt2_offset;
1035 BFD_ASSERT (irel->r_addend == 0);
1038 /* Can't do anything else with dynamic symbols. */
1039 else if (elfNN_ia64_dynamic_symbol_p (h, link_info, r_type))
1040 continue;
1042 else
1044 /* We can't do anything with undefined symbols. */
1045 if (h->root.type == bfd_link_hash_undefined
1046 || h->root.type == bfd_link_hash_undefweak)
1047 continue;
1049 tsec = h->root.u.def.section;
1050 toff = h->root.u.def.value;
1053 symtype = h->type;
1056 if (tsec->sec_info_type == ELF_INFO_TYPE_MERGE)
1058 /* At this stage in linking, no SEC_MERGE symbol has been
1059 adjusted, so all references to such symbols need to be
1060 passed through _bfd_merged_section_offset. (Later, in
1061 relocate_section, all SEC_MERGE symbols *except* for
1062 section symbols have been adjusted.)
1064 gas may reduce relocations against symbols in SEC_MERGE
1065 sections to a relocation against the section symbol when
1066 the original addend was zero. When the reloc is against
1067 a section symbol we should include the addend in the
1068 offset passed to _bfd_merged_section_offset, since the
1069 location of interest is the original symbol. On the
1070 other hand, an access to "sym+addend" where "sym" is not
1071 a section symbol should not include the addend; Such an
1072 access is presumed to be an offset from "sym"; The
1073 location of interest is just "sym". */
1074 if (symtype == STT_SECTION)
1075 toff += irel->r_addend;
1077 toff = _bfd_merged_section_offset (abfd, &tsec,
1078 elf_section_data (tsec)->sec_info,
1079 toff);
1081 if (symtype != STT_SECTION)
1082 toff += irel->r_addend;
1084 else
1085 toff += irel->r_addend;
1087 symaddr = tsec->output_section->vma + tsec->output_offset + toff;
1089 roff = irel->r_offset;
1091 if (is_branch)
1093 bfd_signed_vma offset;
1095 reladdr = (sec->output_section->vma
1096 + sec->output_offset
1097 + roff) & (bfd_vma) -4;
1099 /* If the branch is in range, no need to do anything. */
1100 if ((bfd_signed_vma) (symaddr - reladdr) >= -0x1000000
1101 && (bfd_signed_vma) (symaddr - reladdr) <= 0x0FFFFF0)
1103 /* If the 60-bit branch is in 21-bit range, optimize it. */
1104 if (r_type == R_IA64_PCREL60B)
1106 elfNN_ia64_relax_brl (contents, roff);
1108 irel->r_info
1109 = ELFNN_R_INFO (ELFNN_R_SYM (irel->r_info),
1110 R_IA64_PCREL21B);
1112 /* If the original relocation offset points to slot
1113 1, change it to slot 2. */
1114 if ((irel->r_offset & 3) == 1)
1115 irel->r_offset += 1;
1118 continue;
1120 else if (r_type == R_IA64_PCREL60B)
1121 continue;
1122 else if (elfNN_ia64_relax_br (contents, roff))
1124 irel->r_info
1125 = ELFNN_R_INFO (ELFNN_R_SYM (irel->r_info),
1126 R_IA64_PCREL60B);
1128 /* Make the relocation offset point to slot 1. */
1129 irel->r_offset = (irel->r_offset & ~((bfd_vma) 0x3)) + 1;
1130 continue;
1133 /* We can't put a trampoline in a .init/.fini section. Issue
1134 an error. */
1135 if (strcmp (sec->output_section->name, ".init") == 0
1136 || strcmp (sec->output_section->name, ".fini") == 0)
1138 (*_bfd_error_handler)
1139 (_("%B: Can't relax br at 0x%lx in section `%A'. Please use brl or indirect branch."),
1140 sec->owner, sec, (unsigned long) roff);
1141 bfd_set_error (bfd_error_bad_value);
1142 goto error_return;
1145 /* If the branch and target are in the same section, you've
1146 got one honking big section and we can't help you unless
1147 you are branching backwards. You'll get an error message
1148 later. */
1149 if (tsec == sec && toff > roff)
1150 continue;
1152 /* Look for an existing fixup to this address. */
1153 for (f = fixups; f ; f = f->next)
1154 if (f->tsec == tsec && f->toff == toff)
1155 break;
1157 if (f == NULL)
1159 /* Two alternatives: If it's a branch to a PLT entry, we can
1160 make a copy of the FULL_PLT entry. Otherwise, we'll have
1161 to use a `brl' insn to get where we're going. */
1163 size_t size;
1165 if (tsec == ia64_info->plt_sec)
1166 size = sizeof (plt_full_entry);
1167 else
1168 size = oor_branch_size;
1170 /* Resize the current section to make room for the new branch. */
1171 trampoff = (sec->size + 15) & (bfd_vma) -16;
1173 /* If trampoline is out of range, there is nothing we
1174 can do. */
1175 offset = trampoff - (roff & (bfd_vma) -4);
1176 if (offset < -0x1000000 || offset > 0x0FFFFF0)
1177 continue;
1179 amt = trampoff + size;
1180 contents = (bfd_byte *) bfd_realloc (contents, amt);
1181 if (contents == NULL)
1182 goto error_return;
1183 sec->size = amt;
1185 if (tsec == ia64_info->plt_sec)
1187 memcpy (contents + trampoff, plt_full_entry, size);
1189 /* Hijack the old relocation for use as the PLTOFF reloc. */
1190 irel->r_info = ELFNN_R_INFO (ELFNN_R_SYM (irel->r_info),
1191 R_IA64_PLTOFF22);
1192 irel->r_offset = trampoff;
1194 else
1196 if (size == sizeof (oor_ip))
1198 memcpy (contents + trampoff, oor_ip, size);
1199 irel->r_info = ELFNN_R_INFO (ELFNN_R_SYM (irel->r_info),
1200 R_IA64_PCREL64I);
1201 irel->r_addend -= 16;
1202 irel->r_offset = trampoff + 2;
1204 else
1206 memcpy (contents + trampoff, oor_brl, size);
1207 irel->r_info = ELFNN_R_INFO (ELFNN_R_SYM (irel->r_info),
1208 R_IA64_PCREL60B);
1209 irel->r_offset = trampoff + 2;
1214 /* Record the fixup so we don't do it again this section. */
1215 f = (struct one_fixup *)
1216 bfd_malloc ((bfd_size_type) sizeof (*f));
1217 f->next = fixups;
1218 f->tsec = tsec;
1219 f->toff = toff;
1220 f->trampoff = trampoff;
1221 fixups = f;
1223 else
1225 /* If trampoline is out of range, there is nothing we
1226 can do. */
1227 offset = f->trampoff - (roff & (bfd_vma) -4);
1228 if (offset < -0x1000000 || offset > 0x0FFFFF0)
1229 continue;
1231 /* Nop out the reloc, since we're finalizing things here. */
1232 irel->r_info = ELFNN_R_INFO (0, R_IA64_NONE);
1235 /* Fix up the existing branch to hit the trampoline. */
1236 if (elfNN_ia64_install_value (contents + roff, offset, r_type)
1237 != bfd_reloc_ok)
1238 goto error_return;
1240 changed_contents = TRUE;
1241 changed_relocs = TRUE;
1243 else
1245 /* Fetch the gp. */
1246 if (gp == 0)
1248 bfd *obfd = sec->output_section->owner;
1249 gp = _bfd_get_gp_value (obfd);
1250 if (gp == 0)
1252 if (!elfNN_ia64_choose_gp (obfd, link_info))
1253 goto error_return;
1254 gp = _bfd_get_gp_value (obfd);
1258 /* If the data is out of range, do nothing. */
1259 if ((bfd_signed_vma) (symaddr - gp) >= 0x200000
1260 ||(bfd_signed_vma) (symaddr - gp) < -0x200000)
1261 continue;
1263 if (r_type == R_IA64_LTOFF22X)
1265 irel->r_info = ELFNN_R_INFO (ELFNN_R_SYM (irel->r_info),
1266 R_IA64_GPREL22);
1267 changed_relocs = TRUE;
1268 if (dyn_i->want_gotx)
1270 dyn_i->want_gotx = 0;
1271 changed_got |= !dyn_i->want_got;
1274 else
1276 elfNN_ia64_relax_ldxmov (contents, roff);
1277 irel->r_info = ELFNN_R_INFO (0, R_IA64_NONE);
1278 changed_contents = TRUE;
1279 changed_relocs = TRUE;
1284 /* ??? If we created fixups, this may push the code segment large
1285 enough that the data segment moves, which will change the GP.
1286 Reset the GP so that we re-calculate next round. We need to
1287 do this at the _beginning_ of the next round; now will not do. */
1289 /* Clean up and go home. */
1290 while (fixups)
1292 struct one_fixup *f = fixups;
1293 fixups = fixups->next;
1294 free (f);
1297 if (isymbuf != NULL
1298 && symtab_hdr->contents != (unsigned char *) isymbuf)
1300 if (! link_info->keep_memory)
1301 free (isymbuf);
1302 else
1304 /* Cache the symbols for elf_link_input_bfd. */
1305 symtab_hdr->contents = (unsigned char *) isymbuf;
1309 if (contents != NULL
1310 && elf_section_data (sec)->this_hdr.contents != contents)
1312 if (!changed_contents && !link_info->keep_memory)
1313 free (contents);
1314 else
1316 /* Cache the section contents for elf_link_input_bfd. */
1317 elf_section_data (sec)->this_hdr.contents = contents;
1321 if (elf_section_data (sec)->relocs != internal_relocs)
1323 if (!changed_relocs)
1324 free (internal_relocs);
1325 else
1326 elf_section_data (sec)->relocs = internal_relocs;
1329 if (changed_got)
1331 struct elfNN_ia64_allocate_data data;
1332 data.info = link_info;
1333 data.ofs = 0;
1334 ia64_info->self_dtpmod_offset = (bfd_vma) -1;
1336 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_global_data_got, &data);
1337 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_global_fptr_got, &data);
1338 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_local_got, &data);
1339 ia64_info->got_sec->size = data.ofs;
1341 if (ia64_info->root.dynamic_sections_created
1342 && ia64_info->rel_got_sec != NULL)
1344 /* Resize .rela.got. */
1345 ia64_info->rel_got_sec->size = 0;
1346 if (link_info->shared
1347 && ia64_info->self_dtpmod_offset != (bfd_vma) -1)
1348 ia64_info->rel_got_sec->size += sizeof (ElfNN_External_Rela);
1349 data.only_got = TRUE;
1350 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_dynrel_entries,
1351 &data);
1355 if (!link_info->need_relax_finalize)
1356 sec->need_finalize_relax = 0;
1358 *again = changed_contents || changed_relocs;
1359 return TRUE;
1361 error_return:
1362 if (isymbuf != NULL && (unsigned char *) isymbuf != symtab_hdr->contents)
1363 free (isymbuf);
1364 if (contents != NULL
1365 && elf_section_data (sec)->this_hdr.contents != contents)
1366 free (contents);
1367 if (internal_relocs != NULL
1368 && elf_section_data (sec)->relocs != internal_relocs)
1369 free (internal_relocs);
1370 return FALSE;
1373 static void
1374 elfNN_ia64_relax_ldxmov (contents, off)
1375 bfd_byte *contents;
1376 bfd_vma off;
1378 int shift, r1, r3;
1379 bfd_vma dword, insn;
1381 switch ((int)off & 0x3)
1383 case 0: shift = 5; break;
1384 case 1: shift = 14; off += 3; break;
1385 case 2: shift = 23; off += 6; break;
1386 default:
1387 abort ();
1390 dword = bfd_getl64 (contents + off);
1391 insn = (dword >> shift) & 0x1ffffffffffLL;
1393 r1 = (insn >> 6) & 127;
1394 r3 = (insn >> 20) & 127;
1395 if (r1 == r3)
1396 insn = 0x8000000; /* nop */
1397 else
1398 insn = (insn & 0x7f01fff) | 0x10800000000LL; /* (qp) mov r1 = r3 */
1400 dword &= ~(0x1ffffffffffLL << shift);
1401 dword |= (insn << shift);
1402 bfd_putl64 (dword, contents + off);
1405 /* Return TRUE if NAME is an unwind table section name. */
1407 static inline bfd_boolean
1408 is_unwind_section_name (abfd, name)
1409 bfd *abfd;
1410 const char *name;
1412 size_t len1, len2, len3;
1414 if (elfNN_ia64_hpux_vec (abfd->xvec)
1415 && !strcmp (name, ELF_STRING_ia64_unwind_hdr))
1416 return FALSE;
1418 len1 = sizeof (ELF_STRING_ia64_unwind) - 1;
1419 len2 = sizeof (ELF_STRING_ia64_unwind_info) - 1;
1420 len3 = sizeof (ELF_STRING_ia64_unwind_once) - 1;
1421 return ((strncmp (name, ELF_STRING_ia64_unwind, len1) == 0
1422 && strncmp (name, ELF_STRING_ia64_unwind_info, len2) != 0)
1423 || strncmp (name, ELF_STRING_ia64_unwind_once, len3) == 0);
1426 /* Handle an IA-64 specific section when reading an object file. This
1427 is called when bfd_section_from_shdr finds a section with an unknown
1428 type. */
1430 static bfd_boolean
1431 elfNN_ia64_section_from_shdr (bfd *abfd,
1432 Elf_Internal_Shdr *hdr,
1433 const char *name,
1434 int shindex)
1436 asection *newsect;
1438 /* There ought to be a place to keep ELF backend specific flags, but
1439 at the moment there isn't one. We just keep track of the
1440 sections by their name, instead. Fortunately, the ABI gives
1441 suggested names for all the MIPS specific sections, so we will
1442 probably get away with this. */
1443 switch (hdr->sh_type)
1445 case SHT_IA_64_UNWIND:
1446 case SHT_IA_64_HP_OPT_ANOT:
1447 break;
1449 case SHT_IA_64_EXT:
1450 if (strcmp (name, ELF_STRING_ia64_archext) != 0)
1451 return FALSE;
1452 break;
1454 default:
1455 return FALSE;
1458 if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name, shindex))
1459 return FALSE;
1460 newsect = hdr->bfd_section;
1462 return TRUE;
1465 /* Convert IA-64 specific section flags to bfd internal section flags. */
1467 /* ??? There is no bfd internal flag equivalent to the SHF_IA_64_NORECOV
1468 flag. */
1470 static bfd_boolean
1471 elfNN_ia64_section_flags (flags, hdr)
1472 flagword *flags;
1473 const Elf_Internal_Shdr *hdr;
1475 if (hdr->sh_flags & SHF_IA_64_SHORT)
1476 *flags |= SEC_SMALL_DATA;
1478 return TRUE;
1481 /* Set the correct type for an IA-64 ELF section. We do this by the
1482 section name, which is a hack, but ought to work. */
1484 static bfd_boolean
1485 elfNN_ia64_fake_sections (abfd, hdr, sec)
1486 bfd *abfd ATTRIBUTE_UNUSED;
1487 Elf_Internal_Shdr *hdr;
1488 asection *sec;
1490 register const char *name;
1492 name = bfd_get_section_name (abfd, sec);
1494 if (is_unwind_section_name (abfd, name))
1496 /* We don't have the sections numbered at this point, so sh_info
1497 is set later, in elfNN_ia64_final_write_processing. */
1498 hdr->sh_type = SHT_IA_64_UNWIND;
1499 hdr->sh_flags |= SHF_LINK_ORDER;
1501 else if (strcmp (name, ELF_STRING_ia64_archext) == 0)
1502 hdr->sh_type = SHT_IA_64_EXT;
1503 else if (strcmp (name, ".HP.opt_annot") == 0)
1504 hdr->sh_type = SHT_IA_64_HP_OPT_ANOT;
1505 else if (strcmp (name, ".reloc") == 0)
1506 /* This is an ugly, but unfortunately necessary hack that is
1507 needed when producing EFI binaries on IA-64. It tells
1508 elf.c:elf_fake_sections() not to consider ".reloc" as a section
1509 containing ELF relocation info. We need this hack in order to
1510 be able to generate ELF binaries that can be translated into
1511 EFI applications (which are essentially COFF objects). Those
1512 files contain a COFF ".reloc" section inside an ELFNN object,
1513 which would normally cause BFD to segfault because it would
1514 attempt to interpret this section as containing relocation
1515 entries for section "oc". With this hack enabled, ".reloc"
1516 will be treated as a normal data section, which will avoid the
1517 segfault. However, you won't be able to create an ELFNN binary
1518 with a section named "oc" that needs relocations, but that's
1519 the kind of ugly side-effects you get when detecting section
1520 types based on their names... In practice, this limitation is
1521 unlikely to bite. */
1522 hdr->sh_type = SHT_PROGBITS;
1524 if (sec->flags & SEC_SMALL_DATA)
1525 hdr->sh_flags |= SHF_IA_64_SHORT;
1527 return TRUE;
1530 /* The final processing done just before writing out an IA-64 ELF
1531 object file. */
1533 static void
1534 elfNN_ia64_final_write_processing (abfd, linker)
1535 bfd *abfd;
1536 bfd_boolean linker ATTRIBUTE_UNUSED;
1538 Elf_Internal_Shdr *hdr;
1539 asection *s;
1541 for (s = abfd->sections; s; s = s->next)
1543 hdr = &elf_section_data (s)->this_hdr;
1544 switch (hdr->sh_type)
1546 case SHT_IA_64_UNWIND:
1547 /* The IA-64 processor-specific ABI requires setting sh_link
1548 to the unwind section, whereas HP-UX requires sh_info to
1549 do so. For maximum compatibility, we'll set both for
1550 now... */
1551 hdr->sh_info = hdr->sh_link;
1552 break;
1556 if (! elf_flags_init (abfd))
1558 unsigned long flags = 0;
1560 if (abfd->xvec->byteorder == BFD_ENDIAN_BIG)
1561 flags |= EF_IA_64_BE;
1562 if (bfd_get_mach (abfd) == bfd_mach_ia64_elf64)
1563 flags |= EF_IA_64_ABI64;
1565 elf_elfheader(abfd)->e_flags = flags;
1566 elf_flags_init (abfd) = TRUE;
1570 /* Hook called by the linker routine which adds symbols from an object
1571 file. We use it to put .comm items in .sbss, and not .bss. */
1573 static bfd_boolean
1574 elfNN_ia64_add_symbol_hook (abfd, info, sym, namep, flagsp, secp, valp)
1575 bfd *abfd;
1576 struct bfd_link_info *info;
1577 Elf_Internal_Sym *sym;
1578 const char **namep ATTRIBUTE_UNUSED;
1579 flagword *flagsp ATTRIBUTE_UNUSED;
1580 asection **secp;
1581 bfd_vma *valp;
1583 if (sym->st_shndx == SHN_COMMON
1584 && !info->relocatable
1585 && sym->st_size <= elf_gp_size (abfd))
1587 /* Common symbols less than or equal to -G nn bytes are
1588 automatically put into .sbss. */
1590 asection *scomm = bfd_get_section_by_name (abfd, ".scommon");
1592 if (scomm == NULL)
1594 scomm = bfd_make_section_with_flags (abfd, ".scommon",
1595 (SEC_ALLOC
1596 | SEC_IS_COMMON
1597 | SEC_LINKER_CREATED));
1598 if (scomm == NULL)
1599 return FALSE;
1602 *secp = scomm;
1603 *valp = sym->st_size;
1606 return TRUE;
1609 /* Return the number of additional phdrs we will need. */
1611 static int
1612 elfNN_ia64_additional_program_headers (abfd)
1613 bfd *abfd;
1615 asection *s;
1616 int ret = 0;
1618 /* See if we need a PT_IA_64_ARCHEXT segment. */
1619 s = bfd_get_section_by_name (abfd, ELF_STRING_ia64_archext);
1620 if (s && (s->flags & SEC_LOAD))
1621 ++ret;
1623 /* Count how many PT_IA_64_UNWIND segments we need. */
1624 for (s = abfd->sections; s; s = s->next)
1625 if (is_unwind_section_name (abfd, s->name) && (s->flags & SEC_LOAD))
1626 ++ret;
1628 return ret;
1631 static bfd_boolean
1632 elfNN_ia64_modify_segment_map (abfd, info)
1633 bfd *abfd;
1634 struct bfd_link_info *info ATTRIBUTE_UNUSED;
1636 struct elf_segment_map *m, **pm;
1637 Elf_Internal_Shdr *hdr;
1638 asection *s;
1640 /* If we need a PT_IA_64_ARCHEXT segment, it must come before
1641 all PT_LOAD segments. */
1642 s = bfd_get_section_by_name (abfd, ELF_STRING_ia64_archext);
1643 if (s && (s->flags & SEC_LOAD))
1645 for (m = elf_tdata (abfd)->segment_map; m != NULL; m = m->next)
1646 if (m->p_type == PT_IA_64_ARCHEXT)
1647 break;
1648 if (m == NULL)
1650 m = ((struct elf_segment_map *)
1651 bfd_zalloc (abfd, (bfd_size_type) sizeof *m));
1652 if (m == NULL)
1653 return FALSE;
1655 m->p_type = PT_IA_64_ARCHEXT;
1656 m->count = 1;
1657 m->sections[0] = s;
1659 /* We want to put it after the PHDR and INTERP segments. */
1660 pm = &elf_tdata (abfd)->segment_map;
1661 while (*pm != NULL
1662 && ((*pm)->p_type == PT_PHDR
1663 || (*pm)->p_type == PT_INTERP))
1664 pm = &(*pm)->next;
1666 m->next = *pm;
1667 *pm = m;
1671 /* Install PT_IA_64_UNWIND segments, if needed. */
1672 for (s = abfd->sections; s; s = s->next)
1674 hdr = &elf_section_data (s)->this_hdr;
1675 if (hdr->sh_type != SHT_IA_64_UNWIND)
1676 continue;
1678 if (s && (s->flags & SEC_LOAD))
1680 for (m = elf_tdata (abfd)->segment_map; m != NULL; m = m->next)
1681 if (m->p_type == PT_IA_64_UNWIND)
1683 int i;
1685 /* Look through all sections in the unwind segment
1686 for a match since there may be multiple sections
1687 to a segment. */
1688 for (i = m->count - 1; i >= 0; --i)
1689 if (m->sections[i] == s)
1690 break;
1692 if (i >= 0)
1693 break;
1696 if (m == NULL)
1698 m = ((struct elf_segment_map *)
1699 bfd_zalloc (abfd, (bfd_size_type) sizeof *m));
1700 if (m == NULL)
1701 return FALSE;
1703 m->p_type = PT_IA_64_UNWIND;
1704 m->count = 1;
1705 m->sections[0] = s;
1706 m->next = NULL;
1708 /* We want to put it last. */
1709 pm = &elf_tdata (abfd)->segment_map;
1710 while (*pm != NULL)
1711 pm = &(*pm)->next;
1712 *pm = m;
1717 /* Turn on PF_IA_64_NORECOV if needed. This involves traversing all of
1718 the input sections for each output section in the segment and testing
1719 for SHF_IA_64_NORECOV on each. */
1720 for (m = elf_tdata (abfd)->segment_map; m != NULL; m = m->next)
1721 if (m->p_type == PT_LOAD)
1723 int i;
1724 for (i = m->count - 1; i >= 0; --i)
1726 struct bfd_link_order *order = m->sections[i]->map_head.link_order;
1727 while (order)
1729 if (order->type == bfd_indirect_link_order)
1731 asection *is = order->u.indirect.section;
1732 bfd_vma flags = elf_section_data(is)->this_hdr.sh_flags;
1733 if (flags & SHF_IA_64_NORECOV)
1735 m->p_flags |= PF_IA_64_NORECOV;
1736 goto found;
1739 order = order->next;
1742 found:;
1745 return TRUE;
1748 /* According to the Tahoe assembler spec, all labels starting with a
1749 '.' are local. */
1751 static bfd_boolean
1752 elfNN_ia64_is_local_label_name (abfd, name)
1753 bfd *abfd ATTRIBUTE_UNUSED;
1754 const char *name;
1756 return name[0] == '.';
1759 /* Should we do dynamic things to this symbol? */
1761 static bfd_boolean
1762 elfNN_ia64_dynamic_symbol_p (h, info, r_type)
1763 struct elf_link_hash_entry *h;
1764 struct bfd_link_info *info;
1765 int r_type;
1767 bfd_boolean ignore_protected
1768 = ((r_type & 0xf8) == 0x40 /* FPTR relocs */
1769 || (r_type & 0xf8) == 0x50); /* LTOFF_FPTR relocs */
1771 return _bfd_elf_dynamic_symbol_p (h, info, ignore_protected);
1774 static struct bfd_hash_entry*
1775 elfNN_ia64_new_elf_hash_entry (entry, table, string)
1776 struct bfd_hash_entry *entry;
1777 struct bfd_hash_table *table;
1778 const char *string;
1780 struct elfNN_ia64_link_hash_entry *ret;
1781 ret = (struct elfNN_ia64_link_hash_entry *) entry;
1783 /* Allocate the structure if it has not already been allocated by a
1784 subclass. */
1785 if (!ret)
1786 ret = bfd_hash_allocate (table, sizeof (*ret));
1788 if (!ret)
1789 return 0;
1791 /* Call the allocation method of the superclass. */
1792 ret = ((struct elfNN_ia64_link_hash_entry *)
1793 _bfd_elf_link_hash_newfunc ((struct bfd_hash_entry *) ret,
1794 table, string));
1796 ret->info = NULL;
1797 return (struct bfd_hash_entry *) ret;
1800 static void
1801 elfNN_ia64_hash_copy_indirect (bed, xdir, xind)
1802 const struct elf_backend_data *bed ATTRIBUTE_UNUSED;
1803 struct elf_link_hash_entry *xdir, *xind;
1805 struct elfNN_ia64_link_hash_entry *dir, *ind;
1807 dir = (struct elfNN_ia64_link_hash_entry *) xdir;
1808 ind = (struct elfNN_ia64_link_hash_entry *) xind;
1810 /* Copy down any references that we may have already seen to the
1811 symbol which just became indirect. */
1813 dir->root.ref_dynamic |= ind->root.ref_dynamic;
1814 dir->root.ref_regular |= ind->root.ref_regular;
1815 dir->root.ref_regular_nonweak |= ind->root.ref_regular_nonweak;
1816 dir->root.needs_plt |= ind->root.needs_plt;
1818 if (ind->root.root.type != bfd_link_hash_indirect)
1819 return;
1821 /* Copy over the got and plt data. This would have been done
1822 by check_relocs. */
1824 if (dir->info == NULL)
1826 struct elfNN_ia64_dyn_sym_info *dyn_i;
1828 dir->info = dyn_i = ind->info;
1829 ind->info = NULL;
1831 /* Fix up the dyn_sym_info pointers to the global symbol. */
1832 for (; dyn_i; dyn_i = dyn_i->next)
1833 dyn_i->h = &dir->root;
1835 BFD_ASSERT (ind->info == NULL);
1837 /* Copy over the dynindx. */
1839 if (dir->root.dynindx == -1)
1841 dir->root.dynindx = ind->root.dynindx;
1842 dir->root.dynstr_index = ind->root.dynstr_index;
1843 ind->root.dynindx = -1;
1844 ind->root.dynstr_index = 0;
1846 BFD_ASSERT (ind->root.dynindx == -1);
1849 static void
1850 elfNN_ia64_hash_hide_symbol (info, xh, force_local)
1851 struct bfd_link_info *info;
1852 struct elf_link_hash_entry *xh;
1853 bfd_boolean force_local;
1855 struct elfNN_ia64_link_hash_entry *h;
1856 struct elfNN_ia64_dyn_sym_info *dyn_i;
1858 h = (struct elfNN_ia64_link_hash_entry *)xh;
1860 _bfd_elf_link_hash_hide_symbol (info, &h->root, force_local);
1862 for (dyn_i = h->info; dyn_i; dyn_i = dyn_i->next)
1864 dyn_i->want_plt2 = 0;
1865 dyn_i->want_plt = 0;
1869 /* Compute a hash of a local hash entry. */
1871 static hashval_t
1872 elfNN_ia64_local_htab_hash (ptr)
1873 const void *ptr;
1875 struct elfNN_ia64_local_hash_entry *entry
1876 = (struct elfNN_ia64_local_hash_entry *) ptr;
1878 return (((entry->id & 0xff) << 24) | ((entry->id & 0xff00) << 8))
1879 ^ entry->r_sym ^ (entry->id >> 16);
1882 /* Compare local hash entries. */
1884 static int
1885 elfNN_ia64_local_htab_eq (ptr1, ptr2)
1886 const void *ptr1, *ptr2;
1888 struct elfNN_ia64_local_hash_entry *entry1
1889 = (struct elfNN_ia64_local_hash_entry *) ptr1;
1890 struct elfNN_ia64_local_hash_entry *entry2
1891 = (struct elfNN_ia64_local_hash_entry *) ptr2;
1893 return entry1->id == entry2->id && entry1->r_sym == entry2->r_sym;
1896 /* Create the derived linker hash table. The IA-64 ELF port uses this
1897 derived hash table to keep information specific to the IA-64 ElF
1898 linker (without using static variables). */
1900 static struct bfd_link_hash_table*
1901 elfNN_ia64_hash_table_create (abfd)
1902 bfd *abfd;
1904 struct elfNN_ia64_link_hash_table *ret;
1906 ret = bfd_zmalloc ((bfd_size_type) sizeof (*ret));
1907 if (!ret)
1908 return 0;
1910 if (!_bfd_elf_link_hash_table_init (&ret->root, abfd,
1911 elfNN_ia64_new_elf_hash_entry))
1913 free (ret);
1914 return 0;
1917 ret->loc_hash_table = htab_try_create (1024, elfNN_ia64_local_htab_hash,
1918 elfNN_ia64_local_htab_eq, NULL);
1919 ret->loc_hash_memory = objalloc_create ();
1920 if (!ret->loc_hash_table || !ret->loc_hash_memory)
1922 free (ret);
1923 return 0;
1926 return &ret->root.root;
1929 /* Destroy IA-64 linker hash table. */
1931 static void
1932 elfNN_ia64_hash_table_free (hash)
1933 struct bfd_link_hash_table *hash;
1935 struct elfNN_ia64_link_hash_table *ia64_info
1936 = (struct elfNN_ia64_link_hash_table *) hash;
1937 if (ia64_info->loc_hash_table)
1938 htab_delete (ia64_info->loc_hash_table);
1939 if (ia64_info->loc_hash_memory)
1940 objalloc_free ((struct objalloc *) ia64_info->loc_hash_memory);
1941 _bfd_generic_link_hash_table_free (hash);
1944 /* Traverse both local and global hash tables. */
1946 struct elfNN_ia64_dyn_sym_traverse_data
1948 bfd_boolean (*func) PARAMS ((struct elfNN_ia64_dyn_sym_info *, PTR));
1949 PTR data;
1952 static bfd_boolean
1953 elfNN_ia64_global_dyn_sym_thunk (xentry, xdata)
1954 struct bfd_hash_entry *xentry;
1955 PTR xdata;
1957 struct elfNN_ia64_link_hash_entry *entry
1958 = (struct elfNN_ia64_link_hash_entry *) xentry;
1959 struct elfNN_ia64_dyn_sym_traverse_data *data
1960 = (struct elfNN_ia64_dyn_sym_traverse_data *) xdata;
1961 struct elfNN_ia64_dyn_sym_info *dyn_i;
1963 if (entry->root.root.type == bfd_link_hash_warning)
1964 entry = (struct elfNN_ia64_link_hash_entry *) entry->root.root.u.i.link;
1966 for (dyn_i = entry->info; dyn_i; dyn_i = dyn_i->next)
1967 if (! (*data->func) (dyn_i, data->data))
1968 return FALSE;
1969 return TRUE;
1972 static bfd_boolean
1973 elfNN_ia64_local_dyn_sym_thunk (slot, xdata)
1974 void **slot;
1975 PTR xdata;
1977 struct elfNN_ia64_local_hash_entry *entry
1978 = (struct elfNN_ia64_local_hash_entry *) *slot;
1979 struct elfNN_ia64_dyn_sym_traverse_data *data
1980 = (struct elfNN_ia64_dyn_sym_traverse_data *) xdata;
1981 struct elfNN_ia64_dyn_sym_info *dyn_i;
1983 for (dyn_i = entry->info; dyn_i; dyn_i = dyn_i->next)
1984 if (! (*data->func) (dyn_i, data->data))
1985 return 0;
1986 return 1;
1989 static void
1990 elfNN_ia64_dyn_sym_traverse (ia64_info, func, data)
1991 struct elfNN_ia64_link_hash_table *ia64_info;
1992 bfd_boolean (*func) PARAMS ((struct elfNN_ia64_dyn_sym_info *, PTR));
1993 PTR data;
1995 struct elfNN_ia64_dyn_sym_traverse_data xdata;
1997 xdata.func = func;
1998 xdata.data = data;
2000 elf_link_hash_traverse (&ia64_info->root,
2001 elfNN_ia64_global_dyn_sym_thunk, &xdata);
2002 htab_traverse (ia64_info->loc_hash_table,
2003 elfNN_ia64_local_dyn_sym_thunk, &xdata);
2006 static bfd_boolean
2007 elfNN_ia64_create_dynamic_sections (abfd, info)
2008 bfd *abfd;
2009 struct bfd_link_info *info;
2011 struct elfNN_ia64_link_hash_table *ia64_info;
2012 asection *s;
2014 if (! _bfd_elf_create_dynamic_sections (abfd, info))
2015 return FALSE;
2017 ia64_info = elfNN_ia64_hash_table (info);
2019 ia64_info->plt_sec = bfd_get_section_by_name (abfd, ".plt");
2020 ia64_info->got_sec = bfd_get_section_by_name (abfd, ".got");
2023 flagword flags = bfd_get_section_flags (abfd, ia64_info->got_sec);
2024 bfd_set_section_flags (abfd, ia64_info->got_sec, SEC_SMALL_DATA | flags);
2025 /* The .got section is always aligned at 8 bytes. */
2026 bfd_set_section_alignment (abfd, ia64_info->got_sec, 3);
2029 if (!get_pltoff (abfd, info, ia64_info))
2030 return FALSE;
2032 s = bfd_make_section_with_flags (abfd, ".rela.IA_64.pltoff",
2033 (SEC_ALLOC | SEC_LOAD
2034 | SEC_HAS_CONTENTS
2035 | SEC_IN_MEMORY
2036 | SEC_LINKER_CREATED
2037 | SEC_READONLY));
2038 if (s == NULL
2039 || !bfd_set_section_alignment (abfd, s, LOG_SECTION_ALIGN))
2040 return FALSE;
2041 ia64_info->rel_pltoff_sec = s;
2043 s = bfd_make_section_with_flags (abfd, ".rela.got",
2044 (SEC_ALLOC | SEC_LOAD
2045 | SEC_HAS_CONTENTS
2046 | SEC_IN_MEMORY
2047 | SEC_LINKER_CREATED
2048 | SEC_READONLY));
2049 if (s == NULL
2050 || !bfd_set_section_alignment (abfd, s, LOG_SECTION_ALIGN))
2051 return FALSE;
2052 ia64_info->rel_got_sec = s;
2054 return TRUE;
2057 /* Find and/or create a hash entry for local symbol. */
2058 static struct elfNN_ia64_local_hash_entry *
2059 get_local_sym_hash (ia64_info, abfd, rel, create)
2060 struct elfNN_ia64_link_hash_table *ia64_info;
2061 bfd *abfd;
2062 const Elf_Internal_Rela *rel;
2063 bfd_boolean create;
2065 struct elfNN_ia64_local_hash_entry e, *ret;
2066 asection *sec = abfd->sections;
2067 hashval_t h = (((sec->id & 0xff) << 24) | ((sec->id & 0xff00) << 8))
2068 ^ ELFNN_R_SYM (rel->r_info) ^ (sec->id >> 16);
2069 void **slot;
2071 e.id = sec->id;
2072 e.r_sym = ELFNN_R_SYM (rel->r_info);
2073 slot = htab_find_slot_with_hash (ia64_info->loc_hash_table, &e, h,
2074 create ? INSERT : NO_INSERT);
2076 if (!slot)
2077 return NULL;
2079 if (*slot)
2080 return (struct elfNN_ia64_local_hash_entry *) *slot;
2082 ret = (struct elfNN_ia64_local_hash_entry *)
2083 objalloc_alloc ((struct objalloc *) ia64_info->loc_hash_memory,
2084 sizeof (struct elfNN_ia64_local_hash_entry));
2085 if (ret)
2087 memset (ret, 0, sizeof (*ret));
2088 ret->id = sec->id;
2089 ret->r_sym = ELFNN_R_SYM (rel->r_info);
2090 *slot = ret;
2092 return ret;
2095 /* Find and/or create a descriptor for dynamic symbol info. This will
2096 vary based on global or local symbol, and the addend to the reloc. */
2098 static struct elfNN_ia64_dyn_sym_info *
2099 get_dyn_sym_info (ia64_info, h, abfd, rel, create)
2100 struct elfNN_ia64_link_hash_table *ia64_info;
2101 struct elf_link_hash_entry *h;
2102 bfd *abfd;
2103 const Elf_Internal_Rela *rel;
2104 bfd_boolean create;
2106 struct elfNN_ia64_dyn_sym_info **pp;
2107 struct elfNN_ia64_dyn_sym_info *dyn_i;
2108 bfd_vma addend = rel ? rel->r_addend : 0;
2110 if (h)
2111 pp = &((struct elfNN_ia64_link_hash_entry *)h)->info;
2112 else
2114 struct elfNN_ia64_local_hash_entry *loc_h;
2116 loc_h = get_local_sym_hash (ia64_info, abfd, rel, create);
2117 if (!loc_h)
2119 BFD_ASSERT (!create);
2120 return NULL;
2123 pp = &loc_h->info;
2126 for (dyn_i = *pp; dyn_i && dyn_i->addend != addend; dyn_i = *pp)
2127 pp = &dyn_i->next;
2129 if (dyn_i == NULL && create)
2131 dyn_i = ((struct elfNN_ia64_dyn_sym_info *)
2132 bfd_zalloc (abfd, (bfd_size_type) sizeof *dyn_i));
2133 *pp = dyn_i;
2134 dyn_i->addend = addend;
2137 return dyn_i;
2140 static asection *
2141 get_got (abfd, info, ia64_info)
2142 bfd *abfd;
2143 struct bfd_link_info *info;
2144 struct elfNN_ia64_link_hash_table *ia64_info;
2146 asection *got;
2147 bfd *dynobj;
2149 got = ia64_info->got_sec;
2150 if (!got)
2152 flagword flags;
2154 dynobj = ia64_info->root.dynobj;
2155 if (!dynobj)
2156 ia64_info->root.dynobj = dynobj = abfd;
2157 if (!_bfd_elf_create_got_section (dynobj, info))
2158 return 0;
2160 got = bfd_get_section_by_name (dynobj, ".got");
2161 BFD_ASSERT (got);
2162 ia64_info->got_sec = got;
2164 /* The .got section is always aligned at 8 bytes. */
2165 if (!bfd_set_section_alignment (abfd, got, 3))
2166 return 0;
2168 flags = bfd_get_section_flags (abfd, got);
2169 bfd_set_section_flags (abfd, got, SEC_SMALL_DATA | flags);
2172 return got;
2175 /* Create function descriptor section (.opd). This section is called .opd
2176 because it contains "official procedure descriptors". The "official"
2177 refers to the fact that these descriptors are used when taking the address
2178 of a procedure, thus ensuring a unique address for each procedure. */
2180 static asection *
2181 get_fptr (abfd, info, ia64_info)
2182 bfd *abfd;
2183 struct bfd_link_info *info;
2184 struct elfNN_ia64_link_hash_table *ia64_info;
2186 asection *fptr;
2187 bfd *dynobj;
2189 fptr = ia64_info->fptr_sec;
2190 if (!fptr)
2192 dynobj = ia64_info->root.dynobj;
2193 if (!dynobj)
2194 ia64_info->root.dynobj = dynobj = abfd;
2196 fptr = bfd_make_section_with_flags (dynobj, ".opd",
2197 (SEC_ALLOC
2198 | SEC_LOAD
2199 | SEC_HAS_CONTENTS
2200 | SEC_IN_MEMORY
2201 | (info->pie ? 0 : SEC_READONLY)
2202 | SEC_LINKER_CREATED));
2203 if (!fptr
2204 || !bfd_set_section_alignment (abfd, fptr, 4))
2206 BFD_ASSERT (0);
2207 return NULL;
2210 ia64_info->fptr_sec = fptr;
2212 if (info->pie)
2214 asection *fptr_rel;
2215 fptr_rel = bfd_make_section_with_flags (dynobj, ".rela.opd",
2216 (SEC_ALLOC | SEC_LOAD
2217 | SEC_HAS_CONTENTS
2218 | SEC_IN_MEMORY
2219 | SEC_LINKER_CREATED
2220 | SEC_READONLY));
2221 if (fptr_rel == NULL
2222 || !bfd_set_section_alignment (abfd, fptr_rel,
2223 LOG_SECTION_ALIGN))
2225 BFD_ASSERT (0);
2226 return NULL;
2229 ia64_info->rel_fptr_sec = fptr_rel;
2233 return fptr;
2236 static asection *
2237 get_pltoff (abfd, info, ia64_info)
2238 bfd *abfd;
2239 struct bfd_link_info *info ATTRIBUTE_UNUSED;
2240 struct elfNN_ia64_link_hash_table *ia64_info;
2242 asection *pltoff;
2243 bfd *dynobj;
2245 pltoff = ia64_info->pltoff_sec;
2246 if (!pltoff)
2248 dynobj = ia64_info->root.dynobj;
2249 if (!dynobj)
2250 ia64_info->root.dynobj = dynobj = abfd;
2252 pltoff = bfd_make_section_with_flags (dynobj,
2253 ELF_STRING_ia64_pltoff,
2254 (SEC_ALLOC
2255 | SEC_LOAD
2256 | SEC_HAS_CONTENTS
2257 | SEC_IN_MEMORY
2258 | SEC_SMALL_DATA
2259 | SEC_LINKER_CREATED));
2260 if (!pltoff
2261 || !bfd_set_section_alignment (abfd, pltoff, 4))
2263 BFD_ASSERT (0);
2264 return NULL;
2267 ia64_info->pltoff_sec = pltoff;
2270 return pltoff;
2273 static asection *
2274 get_reloc_section (abfd, ia64_info, sec, create)
2275 bfd *abfd;
2276 struct elfNN_ia64_link_hash_table *ia64_info;
2277 asection *sec;
2278 bfd_boolean create;
2280 const char *srel_name;
2281 asection *srel;
2282 bfd *dynobj;
2284 srel_name = (bfd_elf_string_from_elf_section
2285 (abfd, elf_elfheader(abfd)->e_shstrndx,
2286 elf_section_data(sec)->rel_hdr.sh_name));
2287 if (srel_name == NULL)
2288 return NULL;
2290 BFD_ASSERT ((strncmp (srel_name, ".rela", 5) == 0
2291 && strcmp (bfd_get_section_name (abfd, sec),
2292 srel_name+5) == 0)
2293 || (strncmp (srel_name, ".rel", 4) == 0
2294 && strcmp (bfd_get_section_name (abfd, sec),
2295 srel_name+4) == 0));
2297 dynobj = ia64_info->root.dynobj;
2298 if (!dynobj)
2299 ia64_info->root.dynobj = dynobj = abfd;
2301 srel = bfd_get_section_by_name (dynobj, srel_name);
2302 if (srel == NULL && create)
2304 srel = bfd_make_section_with_flags (dynobj, srel_name,
2305 (SEC_ALLOC | SEC_LOAD
2306 | SEC_HAS_CONTENTS
2307 | SEC_IN_MEMORY
2308 | SEC_LINKER_CREATED
2309 | SEC_READONLY));
2310 if (srel == NULL
2311 || !bfd_set_section_alignment (dynobj, srel,
2312 LOG_SECTION_ALIGN))
2313 return NULL;
2316 return srel;
2319 static bfd_boolean
2320 count_dyn_reloc (bfd *abfd, struct elfNN_ia64_dyn_sym_info *dyn_i,
2321 asection *srel, int type, bfd_boolean reltext)
2323 struct elfNN_ia64_dyn_reloc_entry *rent;
2325 for (rent = dyn_i->reloc_entries; rent; rent = rent->next)
2326 if (rent->srel == srel && rent->type == type)
2327 break;
2329 if (!rent)
2331 rent = ((struct elfNN_ia64_dyn_reloc_entry *)
2332 bfd_alloc (abfd, (bfd_size_type) sizeof (*rent)));
2333 if (!rent)
2334 return FALSE;
2336 rent->next = dyn_i->reloc_entries;
2337 rent->srel = srel;
2338 rent->type = type;
2339 rent->count = 0;
2340 dyn_i->reloc_entries = rent;
2342 rent->reltext = reltext;
2343 rent->count++;
2345 return TRUE;
2348 static bfd_boolean
2349 elfNN_ia64_check_relocs (abfd, info, sec, relocs)
2350 bfd *abfd;
2351 struct bfd_link_info *info;
2352 asection *sec;
2353 const Elf_Internal_Rela *relocs;
2355 struct elfNN_ia64_link_hash_table *ia64_info;
2356 const Elf_Internal_Rela *relend;
2357 Elf_Internal_Shdr *symtab_hdr;
2358 const Elf_Internal_Rela *rel;
2359 asection *got, *fptr, *srel, *pltoff;
2361 if (info->relocatable)
2362 return TRUE;
2364 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2365 ia64_info = elfNN_ia64_hash_table (info);
2367 got = fptr = srel = pltoff = NULL;
2369 relend = relocs + sec->reloc_count;
2370 for (rel = relocs; rel < relend; ++rel)
2372 enum {
2373 NEED_GOT = 1,
2374 NEED_GOTX = 2,
2375 NEED_FPTR = 4,
2376 NEED_PLTOFF = 8,
2377 NEED_MIN_PLT = 16,
2378 NEED_FULL_PLT = 32,
2379 NEED_DYNREL = 64,
2380 NEED_LTOFF_FPTR = 128,
2381 NEED_TPREL = 256,
2382 NEED_DTPMOD = 512,
2383 NEED_DTPREL = 1024
2386 struct elf_link_hash_entry *h = NULL;
2387 unsigned long r_symndx = ELFNN_R_SYM (rel->r_info);
2388 struct elfNN_ia64_dyn_sym_info *dyn_i;
2389 int need_entry;
2390 bfd_boolean maybe_dynamic;
2391 int dynrel_type = R_IA64_NONE;
2393 if (r_symndx >= symtab_hdr->sh_info)
2395 /* We're dealing with a global symbol -- find its hash entry
2396 and mark it as being referenced. */
2397 long indx = r_symndx - symtab_hdr->sh_info;
2398 h = elf_sym_hashes (abfd)[indx];
2399 while (h->root.type == bfd_link_hash_indirect
2400 || h->root.type == bfd_link_hash_warning)
2401 h = (struct elf_link_hash_entry *) h->root.u.i.link;
2403 h->ref_regular = 1;
2406 /* We can only get preliminary data on whether a symbol is
2407 locally or externally defined, as not all of the input files
2408 have yet been processed. Do something with what we know, as
2409 this may help reduce memory usage and processing time later. */
2410 maybe_dynamic = FALSE;
2411 if (h && ((!info->executable
2412 && (!info->symbolic
2413 || info->unresolved_syms_in_shared_libs == RM_IGNORE))
2414 || !h->def_regular
2415 || h->root.type == bfd_link_hash_defweak))
2416 maybe_dynamic = TRUE;
2418 need_entry = 0;
2419 switch (ELFNN_R_TYPE (rel->r_info))
2421 case R_IA64_TPREL64MSB:
2422 case R_IA64_TPREL64LSB:
2423 if (info->shared || maybe_dynamic)
2424 need_entry = NEED_DYNREL;
2425 dynrel_type = R_IA64_TPREL64LSB;
2426 if (info->shared)
2427 info->flags |= DF_STATIC_TLS;
2428 break;
2430 case R_IA64_LTOFF_TPREL22:
2431 need_entry = NEED_TPREL;
2432 if (info->shared)
2433 info->flags |= DF_STATIC_TLS;
2434 break;
2436 case R_IA64_DTPREL32MSB:
2437 case R_IA64_DTPREL32LSB:
2438 case R_IA64_DTPREL64MSB:
2439 case R_IA64_DTPREL64LSB:
2440 if (info->shared || maybe_dynamic)
2441 need_entry = NEED_DYNREL;
2442 dynrel_type = R_IA64_DTPRELNNLSB;
2443 break;
2445 case R_IA64_LTOFF_DTPREL22:
2446 need_entry = NEED_DTPREL;
2447 break;
2449 case R_IA64_DTPMOD64MSB:
2450 case R_IA64_DTPMOD64LSB:
2451 if (info->shared || maybe_dynamic)
2452 need_entry = NEED_DYNREL;
2453 dynrel_type = R_IA64_DTPMOD64LSB;
2454 break;
2456 case R_IA64_LTOFF_DTPMOD22:
2457 need_entry = NEED_DTPMOD;
2458 break;
2460 case R_IA64_LTOFF_FPTR22:
2461 case R_IA64_LTOFF_FPTR64I:
2462 case R_IA64_LTOFF_FPTR32MSB:
2463 case R_IA64_LTOFF_FPTR32LSB:
2464 case R_IA64_LTOFF_FPTR64MSB:
2465 case R_IA64_LTOFF_FPTR64LSB:
2466 need_entry = NEED_FPTR | NEED_GOT | NEED_LTOFF_FPTR;
2467 break;
2469 case R_IA64_FPTR64I:
2470 case R_IA64_FPTR32MSB:
2471 case R_IA64_FPTR32LSB:
2472 case R_IA64_FPTR64MSB:
2473 case R_IA64_FPTR64LSB:
2474 if (info->shared || h)
2475 need_entry = NEED_FPTR | NEED_DYNREL;
2476 else
2477 need_entry = NEED_FPTR;
2478 dynrel_type = R_IA64_FPTRNNLSB;
2479 break;
2481 case R_IA64_LTOFF22:
2482 case R_IA64_LTOFF64I:
2483 need_entry = NEED_GOT;
2484 break;
2486 case R_IA64_LTOFF22X:
2487 need_entry = NEED_GOTX;
2488 break;
2490 case R_IA64_PLTOFF22:
2491 case R_IA64_PLTOFF64I:
2492 case R_IA64_PLTOFF64MSB:
2493 case R_IA64_PLTOFF64LSB:
2494 need_entry = NEED_PLTOFF;
2495 if (h)
2497 if (maybe_dynamic)
2498 need_entry |= NEED_MIN_PLT;
2500 else
2502 (*info->callbacks->warning)
2503 (info, _("@pltoff reloc against local symbol"), 0,
2504 abfd, 0, (bfd_vma) 0);
2506 break;
2508 case R_IA64_PCREL21B:
2509 case R_IA64_PCREL60B:
2510 /* Depending on where this symbol is defined, we may or may not
2511 need a full plt entry. Only skip if we know we'll not need
2512 the entry -- static or symbolic, and the symbol definition
2513 has already been seen. */
2514 if (maybe_dynamic && rel->r_addend == 0)
2515 need_entry = NEED_FULL_PLT;
2516 break;
2518 case R_IA64_IMM14:
2519 case R_IA64_IMM22:
2520 case R_IA64_IMM64:
2521 case R_IA64_DIR32MSB:
2522 case R_IA64_DIR32LSB:
2523 case R_IA64_DIR64MSB:
2524 case R_IA64_DIR64LSB:
2525 /* Shared objects will always need at least a REL relocation. */
2526 if (info->shared || maybe_dynamic)
2527 need_entry = NEED_DYNREL;
2528 dynrel_type = R_IA64_DIRNNLSB;
2529 break;
2531 case R_IA64_IPLTMSB:
2532 case R_IA64_IPLTLSB:
2533 /* Shared objects will always need at least a REL relocation. */
2534 if (info->shared || maybe_dynamic)
2535 need_entry = NEED_DYNREL;
2536 dynrel_type = R_IA64_IPLTLSB;
2537 break;
2539 case R_IA64_PCREL22:
2540 case R_IA64_PCREL64I:
2541 case R_IA64_PCREL32MSB:
2542 case R_IA64_PCREL32LSB:
2543 case R_IA64_PCREL64MSB:
2544 case R_IA64_PCREL64LSB:
2545 if (maybe_dynamic)
2546 need_entry = NEED_DYNREL;
2547 dynrel_type = R_IA64_PCRELNNLSB;
2548 break;
2551 if (!need_entry)
2552 continue;
2554 if ((need_entry & NEED_FPTR) != 0
2555 && rel->r_addend)
2557 (*info->callbacks->warning)
2558 (info, _("non-zero addend in @fptr reloc"), 0,
2559 abfd, 0, (bfd_vma) 0);
2562 dyn_i = get_dyn_sym_info (ia64_info, h, abfd, rel, TRUE);
2564 /* Record whether or not this is a local symbol. */
2565 dyn_i->h = h;
2567 /* Create what's needed. */
2568 if (need_entry & (NEED_GOT | NEED_GOTX | NEED_TPREL
2569 | NEED_DTPMOD | NEED_DTPREL))
2571 if (!got)
2573 got = get_got (abfd, info, ia64_info);
2574 if (!got)
2575 return FALSE;
2577 if (need_entry & NEED_GOT)
2578 dyn_i->want_got = 1;
2579 if (need_entry & NEED_GOTX)
2580 dyn_i->want_gotx = 1;
2581 if (need_entry & NEED_TPREL)
2582 dyn_i->want_tprel = 1;
2583 if (need_entry & NEED_DTPMOD)
2584 dyn_i->want_dtpmod = 1;
2585 if (need_entry & NEED_DTPREL)
2586 dyn_i->want_dtprel = 1;
2588 if (need_entry & NEED_FPTR)
2590 if (!fptr)
2592 fptr = get_fptr (abfd, info, ia64_info);
2593 if (!fptr)
2594 return FALSE;
2597 /* FPTRs for shared libraries are allocated by the dynamic
2598 linker. Make sure this local symbol will appear in the
2599 dynamic symbol table. */
2600 if (!h && info->shared)
2602 if (! (bfd_elf_link_record_local_dynamic_symbol
2603 (info, abfd, (long) r_symndx)))
2604 return FALSE;
2607 dyn_i->want_fptr = 1;
2609 if (need_entry & NEED_LTOFF_FPTR)
2610 dyn_i->want_ltoff_fptr = 1;
2611 if (need_entry & (NEED_MIN_PLT | NEED_FULL_PLT))
2613 if (!ia64_info->root.dynobj)
2614 ia64_info->root.dynobj = abfd;
2615 h->needs_plt = 1;
2616 dyn_i->want_plt = 1;
2618 if (need_entry & NEED_FULL_PLT)
2619 dyn_i->want_plt2 = 1;
2620 if (need_entry & NEED_PLTOFF)
2622 /* This is needed here, in case @pltoff is used in a non-shared
2623 link. */
2624 if (!pltoff)
2626 pltoff = get_pltoff (abfd, info, ia64_info);
2627 if (!pltoff)
2628 return FALSE;
2631 dyn_i->want_pltoff = 1;
2633 if ((need_entry & NEED_DYNREL) && (sec->flags & SEC_ALLOC))
2635 if (!srel)
2637 srel = get_reloc_section (abfd, ia64_info, sec, TRUE);
2638 if (!srel)
2639 return FALSE;
2641 if (!count_dyn_reloc (abfd, dyn_i, srel, dynrel_type,
2642 (sec->flags & SEC_READONLY) != 0))
2643 return FALSE;
2647 return TRUE;
2650 /* For cleanliness, and potentially faster dynamic loading, allocate
2651 external GOT entries first. */
2653 static bfd_boolean
2654 allocate_global_data_got (dyn_i, data)
2655 struct elfNN_ia64_dyn_sym_info *dyn_i;
2656 PTR data;
2658 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2660 if ((dyn_i->want_got || dyn_i->want_gotx)
2661 && ! dyn_i->want_fptr
2662 && elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, 0))
2664 dyn_i->got_offset = x->ofs;
2665 x->ofs += 8;
2667 if (dyn_i->want_tprel)
2669 dyn_i->tprel_offset = x->ofs;
2670 x->ofs += 8;
2672 if (dyn_i->want_dtpmod)
2674 if (elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, 0))
2676 dyn_i->dtpmod_offset = x->ofs;
2677 x->ofs += 8;
2679 else
2681 struct elfNN_ia64_link_hash_table *ia64_info;
2683 ia64_info = elfNN_ia64_hash_table (x->info);
2684 if (ia64_info->self_dtpmod_offset == (bfd_vma) -1)
2686 ia64_info->self_dtpmod_offset = x->ofs;
2687 x->ofs += 8;
2689 dyn_i->dtpmod_offset = ia64_info->self_dtpmod_offset;
2692 if (dyn_i->want_dtprel)
2694 dyn_i->dtprel_offset = x->ofs;
2695 x->ofs += 8;
2697 return TRUE;
2700 /* Next, allocate all the GOT entries used by LTOFF_FPTR relocs. */
2702 static bfd_boolean
2703 allocate_global_fptr_got (dyn_i, data)
2704 struct elfNN_ia64_dyn_sym_info *dyn_i;
2705 PTR data;
2707 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2709 if (dyn_i->want_got
2710 && dyn_i->want_fptr
2711 && elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, R_IA64_FPTRNNLSB))
2713 dyn_i->got_offset = x->ofs;
2714 x->ofs += 8;
2716 return TRUE;
2719 /* Lastly, allocate all the GOT entries for local data. */
2721 static bfd_boolean
2722 allocate_local_got (dyn_i, data)
2723 struct elfNN_ia64_dyn_sym_info *dyn_i;
2724 PTR data;
2726 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2728 if ((dyn_i->want_got || dyn_i->want_gotx)
2729 && !elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, 0))
2731 dyn_i->got_offset = x->ofs;
2732 x->ofs += 8;
2734 return TRUE;
2737 /* Search for the index of a global symbol in it's defining object file. */
2739 static long
2740 global_sym_index (h)
2741 struct elf_link_hash_entry *h;
2743 struct elf_link_hash_entry **p;
2744 bfd *obj;
2746 BFD_ASSERT (h->root.type == bfd_link_hash_defined
2747 || h->root.type == bfd_link_hash_defweak);
2749 obj = h->root.u.def.section->owner;
2750 for (p = elf_sym_hashes (obj); *p != h; ++p)
2751 continue;
2753 return p - elf_sym_hashes (obj) + elf_tdata (obj)->symtab_hdr.sh_info;
2756 /* Allocate function descriptors. We can do these for every function
2757 in a main executable that is not exported. */
2759 static bfd_boolean
2760 allocate_fptr (dyn_i, data)
2761 struct elfNN_ia64_dyn_sym_info *dyn_i;
2762 PTR data;
2764 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2766 if (dyn_i->want_fptr)
2768 struct elf_link_hash_entry *h = dyn_i->h;
2770 if (h)
2771 while (h->root.type == bfd_link_hash_indirect
2772 || h->root.type == bfd_link_hash_warning)
2773 h = (struct elf_link_hash_entry *) h->root.u.i.link;
2775 if (!x->info->executable
2776 && (!h
2777 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
2778 || (h->root.type != bfd_link_hash_undefweak
2779 && h->root.type != bfd_link_hash_undefined)))
2781 if (h && h->dynindx == -1)
2783 BFD_ASSERT ((h->root.type == bfd_link_hash_defined)
2784 || (h->root.type == bfd_link_hash_defweak));
2786 if (!bfd_elf_link_record_local_dynamic_symbol
2787 (x->info, h->root.u.def.section->owner,
2788 global_sym_index (h)))
2789 return FALSE;
2792 dyn_i->want_fptr = 0;
2794 else if (h == NULL || h->dynindx == -1)
2796 dyn_i->fptr_offset = x->ofs;
2797 x->ofs += 16;
2799 else
2800 dyn_i->want_fptr = 0;
2802 return TRUE;
2805 /* Allocate all the minimal PLT entries. */
2807 static bfd_boolean
2808 allocate_plt_entries (dyn_i, data)
2809 struct elfNN_ia64_dyn_sym_info *dyn_i;
2810 PTR data;
2812 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2814 if (dyn_i->want_plt)
2816 struct elf_link_hash_entry *h = dyn_i->h;
2818 if (h)
2819 while (h->root.type == bfd_link_hash_indirect
2820 || h->root.type == bfd_link_hash_warning)
2821 h = (struct elf_link_hash_entry *) h->root.u.i.link;
2823 /* ??? Versioned symbols seem to lose NEEDS_PLT. */
2824 if (elfNN_ia64_dynamic_symbol_p (h, x->info, 0))
2826 bfd_size_type offset = x->ofs;
2827 if (offset == 0)
2828 offset = PLT_HEADER_SIZE;
2829 dyn_i->plt_offset = offset;
2830 x->ofs = offset + PLT_MIN_ENTRY_SIZE;
2832 dyn_i->want_pltoff = 1;
2834 else
2836 dyn_i->want_plt = 0;
2837 dyn_i->want_plt2 = 0;
2840 return TRUE;
2843 /* Allocate all the full PLT entries. */
2845 static bfd_boolean
2846 allocate_plt2_entries (dyn_i, data)
2847 struct elfNN_ia64_dyn_sym_info *dyn_i;
2848 PTR data;
2850 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2852 if (dyn_i->want_plt2)
2854 struct elf_link_hash_entry *h = dyn_i->h;
2855 bfd_size_type ofs = x->ofs;
2857 dyn_i->plt2_offset = ofs;
2858 x->ofs = ofs + PLT_FULL_ENTRY_SIZE;
2860 while (h->root.type == bfd_link_hash_indirect
2861 || h->root.type == bfd_link_hash_warning)
2862 h = (struct elf_link_hash_entry *) h->root.u.i.link;
2863 dyn_i->h->plt.offset = ofs;
2865 return TRUE;
2868 /* Allocate all the PLTOFF entries requested by relocations and
2869 plt entries. We can't share space with allocated FPTR entries,
2870 because the latter are not necessarily addressable by the GP.
2871 ??? Relaxation might be able to determine that they are. */
2873 static bfd_boolean
2874 allocate_pltoff_entries (dyn_i, data)
2875 struct elfNN_ia64_dyn_sym_info *dyn_i;
2876 PTR data;
2878 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2880 if (dyn_i->want_pltoff)
2882 dyn_i->pltoff_offset = x->ofs;
2883 x->ofs += 16;
2885 return TRUE;
2888 /* Allocate dynamic relocations for those symbols that turned out
2889 to be dynamic. */
2891 static bfd_boolean
2892 allocate_dynrel_entries (dyn_i, data)
2893 struct elfNN_ia64_dyn_sym_info *dyn_i;
2894 PTR data;
2896 struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2897 struct elfNN_ia64_link_hash_table *ia64_info;
2898 struct elfNN_ia64_dyn_reloc_entry *rent;
2899 bfd_boolean dynamic_symbol, shared, resolved_zero;
2901 ia64_info = elfNN_ia64_hash_table (x->info);
2903 /* Note that this can't be used in relation to FPTR relocs below. */
2904 dynamic_symbol = elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, 0);
2906 shared = x->info->shared;
2907 resolved_zero = (dyn_i->h
2908 && ELF_ST_VISIBILITY (dyn_i->h->other)
2909 && dyn_i->h->root.type == bfd_link_hash_undefweak);
2911 /* Take care of the GOT and PLT relocations. */
2913 if ((!resolved_zero
2914 && (dynamic_symbol || shared)
2915 && (dyn_i->want_got || dyn_i->want_gotx))
2916 || (dyn_i->want_ltoff_fptr
2917 && dyn_i->h
2918 && dyn_i->h->dynindx != -1))
2920 if (!dyn_i->want_ltoff_fptr
2921 || !x->info->pie
2922 || dyn_i->h == NULL
2923 || dyn_i->h->root.type != bfd_link_hash_undefweak)
2924 ia64_info->rel_got_sec->size += sizeof (ElfNN_External_Rela);
2926 if ((dynamic_symbol || shared) && dyn_i->want_tprel)
2927 ia64_info->rel_got_sec->size += sizeof (ElfNN_External_Rela);
2928 if (dynamic_symbol && dyn_i->want_dtpmod)
2929 ia64_info->rel_got_sec->size += sizeof (ElfNN_External_Rela);
2930 if (dynamic_symbol && dyn_i->want_dtprel)
2931 ia64_info->rel_got_sec->size += sizeof (ElfNN_External_Rela);
2933 if (x->only_got)
2934 return TRUE;
2936 if (ia64_info->rel_fptr_sec && dyn_i->want_fptr)
2938 if (dyn_i->h == NULL || dyn_i->h->root.type != bfd_link_hash_undefweak)
2939 ia64_info->rel_fptr_sec->size += sizeof (ElfNN_External_Rela);
2942 if (!resolved_zero && dyn_i->want_pltoff)
2944 bfd_size_type t = 0;
2946 /* Dynamic symbols get one IPLT relocation. Local symbols in
2947 shared libraries get two REL relocations. Local symbols in
2948 main applications get nothing. */
2949 if (dynamic_symbol)
2950 t = sizeof (ElfNN_External_Rela);
2951 else if (shared)
2952 t = 2 * sizeof (ElfNN_External_Rela);
2954 ia64_info->rel_pltoff_sec->size += t;
2957 /* Take care of the normal data relocations. */
2959 for (rent = dyn_i->reloc_entries; rent; rent = rent->next)
2961 int count = rent->count;
2963 switch (rent->type)
2965 case R_IA64_FPTR32LSB:
2966 case R_IA64_FPTR64LSB:
2967 /* Allocate one iff !want_fptr and not PIE, which by this point
2968 will be true only if we're actually allocating one statically
2969 in the main executable. Position independent executables
2970 need a relative reloc. */
2971 if (dyn_i->want_fptr && !x->info->pie)
2972 continue;
2973 break;
2974 case R_IA64_PCREL32LSB:
2975 case R_IA64_PCREL64LSB:
2976 if (!dynamic_symbol)
2977 continue;
2978 break;
2979 case R_IA64_DIR32LSB:
2980 case R_IA64_DIR64LSB:
2981 if (!dynamic_symbol && !shared)
2982 continue;
2983 break;
2984 case R_IA64_IPLTLSB:
2985 if (!dynamic_symbol && !shared)
2986 continue;
2987 /* Use two REL relocations for IPLT relocations
2988 against local symbols. */
2989 if (!dynamic_symbol)
2990 count *= 2;
2991 break;
2992 case R_IA64_DTPREL32LSB:
2993 case R_IA64_TPREL64LSB:
2994 case R_IA64_DTPREL64LSB:
2995 case R_IA64_DTPMOD64LSB:
2996 break;
2997 default:
2998 abort ();
3000 if (rent->reltext)
3001 ia64_info->reltext = 1;
3002 rent->srel->size += sizeof (ElfNN_External_Rela) * count;
3005 return TRUE;
3008 static bfd_boolean
3009 elfNN_ia64_adjust_dynamic_symbol (info, h)
3010 struct bfd_link_info *info ATTRIBUTE_UNUSED;
3011 struct elf_link_hash_entry *h;
3013 /* ??? Undefined symbols with PLT entries should be re-defined
3014 to be the PLT entry. */
3016 /* If this is a weak symbol, and there is a real definition, the
3017 processor independent code will have arranged for us to see the
3018 real definition first, and we can just use the same value. */
3019 if (h->u.weakdef != NULL)
3021 BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
3022 || h->u.weakdef->root.type == bfd_link_hash_defweak);
3023 h->root.u.def.section = h->u.weakdef->root.u.def.section;
3024 h->root.u.def.value = h->u.weakdef->root.u.def.value;
3025 return TRUE;
3028 /* If this is a reference to a symbol defined by a dynamic object which
3029 is not a function, we might allocate the symbol in our .dynbss section
3030 and allocate a COPY dynamic relocation.
3032 But IA-64 code is canonically PIC, so as a rule we can avoid this sort
3033 of hackery. */
3035 return TRUE;
3038 static bfd_boolean
3039 elfNN_ia64_size_dynamic_sections (output_bfd, info)
3040 bfd *output_bfd ATTRIBUTE_UNUSED;
3041 struct bfd_link_info *info;
3043 struct elfNN_ia64_allocate_data data;
3044 struct elfNN_ia64_link_hash_table *ia64_info;
3045 asection *sec;
3046 bfd *dynobj;
3047 bfd_boolean relplt = FALSE;
3049 dynobj = elf_hash_table(info)->dynobj;
3050 ia64_info = elfNN_ia64_hash_table (info);
3051 ia64_info->self_dtpmod_offset = (bfd_vma) -1;
3052 BFD_ASSERT(dynobj != NULL);
3053 data.info = info;
3055 /* Set the contents of the .interp section to the interpreter. */
3056 if (ia64_info->root.dynamic_sections_created
3057 && info->executable)
3059 sec = bfd_get_section_by_name (dynobj, ".interp");
3060 BFD_ASSERT (sec != NULL);
3061 sec->contents = (bfd_byte *) ELF_DYNAMIC_INTERPRETER;
3062 sec->size = strlen (ELF_DYNAMIC_INTERPRETER) + 1;
3065 /* Allocate the GOT entries. */
3067 if (ia64_info->got_sec)
3069 data.ofs = 0;
3070 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_global_data_got, &data);
3071 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_global_fptr_got, &data);
3072 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_local_got, &data);
3073 ia64_info->got_sec->size = data.ofs;
3076 /* Allocate the FPTR entries. */
3078 if (ia64_info->fptr_sec)
3080 data.ofs = 0;
3081 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_fptr, &data);
3082 ia64_info->fptr_sec->size = data.ofs;
3085 /* Now that we've seen all of the input files, we can decide which
3086 symbols need plt entries. Allocate the minimal PLT entries first.
3087 We do this even though dynamic_sections_created may be FALSE, because
3088 this has the side-effect of clearing want_plt and want_plt2. */
3090 data.ofs = 0;
3091 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_plt_entries, &data);
3093 ia64_info->minplt_entries = 0;
3094 if (data.ofs)
3096 ia64_info->minplt_entries
3097 = (data.ofs - PLT_HEADER_SIZE) / PLT_MIN_ENTRY_SIZE;
3100 /* Align the pointer for the plt2 entries. */
3101 data.ofs = (data.ofs + 31) & (bfd_vma) -32;
3103 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_plt2_entries, &data);
3104 if (data.ofs != 0 || ia64_info->root.dynamic_sections_created)
3106 /* FIXME: we always reserve the memory for dynamic linker even if
3107 there are no PLT entries since dynamic linker may assume the
3108 reserved memory always exists. */
3110 BFD_ASSERT (ia64_info->root.dynamic_sections_created);
3112 ia64_info->plt_sec->size = data.ofs;
3114 /* If we've got a .plt, we need some extra memory for the dynamic
3115 linker. We stuff these in .got.plt. */
3116 sec = bfd_get_section_by_name (dynobj, ".got.plt");
3117 sec->size = 8 * PLT_RESERVED_WORDS;
3120 /* Allocate the PLTOFF entries. */
3122 if (ia64_info->pltoff_sec)
3124 data.ofs = 0;
3125 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_pltoff_entries, &data);
3126 ia64_info->pltoff_sec->size = data.ofs;
3129 if (ia64_info->root.dynamic_sections_created)
3131 /* Allocate space for the dynamic relocations that turned out to be
3132 required. */
3134 if (info->shared && ia64_info->self_dtpmod_offset != (bfd_vma) -1)
3135 ia64_info->rel_got_sec->size += sizeof (ElfNN_External_Rela);
3136 data.only_got = FALSE;
3137 elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_dynrel_entries, &data);
3140 /* We have now determined the sizes of the various dynamic sections.
3141 Allocate memory for them. */
3142 for (sec = dynobj->sections; sec != NULL; sec = sec->next)
3144 bfd_boolean strip;
3146 if (!(sec->flags & SEC_LINKER_CREATED))
3147 continue;
3149 /* If we don't need this section, strip it from the output file.
3150 There were several sections primarily related to dynamic
3151 linking that must be create before the linker maps input
3152 sections to output sections. The linker does that before
3153 bfd_elf_size_dynamic_sections is called, and it is that
3154 function which decides whether anything needs to go into
3155 these sections. */
3157 strip = (sec->size == 0);
3159 if (sec == ia64_info->got_sec)
3160 strip = FALSE;
3161 else if (sec == ia64_info->rel_got_sec)
3163 if (strip)
3164 ia64_info->rel_got_sec = NULL;
3165 else
3166 /* We use the reloc_count field as a counter if we need to
3167 copy relocs into the output file. */
3168 sec->reloc_count = 0;
3170 else if (sec == ia64_info->fptr_sec)
3172 if (strip)
3173 ia64_info->fptr_sec = NULL;
3175 else if (sec == ia64_info->rel_fptr_sec)
3177 if (strip)
3178 ia64_info->rel_fptr_sec = NULL;
3179 else
3180 /* We use the reloc_count field as a counter if we need to
3181 copy relocs into the output file. */
3182 sec->reloc_count = 0;
3184 else if (sec == ia64_info->plt_sec)
3186 if (strip)
3187 ia64_info->plt_sec = NULL;
3189 else if (sec == ia64_info->pltoff_sec)
3191 if (strip)
3192 ia64_info->pltoff_sec = NULL;
3194 else if (sec == ia64_info->rel_pltoff_sec)
3196 if (strip)
3197 ia64_info->rel_pltoff_sec = NULL;
3198 else
3200 relplt = TRUE;
3201 /* We use the reloc_count field as a counter if we need to
3202 copy relocs into the output file. */
3203 sec->reloc_count = 0;
3206 else
3208 const char *name;
3210 /* It's OK to base decisions on the section name, because none
3211 of the dynobj section names depend upon the input files. */
3212 name = bfd_get_section_name (dynobj, sec);
3214 if (strcmp (name, ".got.plt") == 0)
3215 strip = FALSE;
3216 else if (strncmp (name, ".rel", 4) == 0)
3218 if (!strip)
3220 /* We use the reloc_count field as a counter if we need to
3221 copy relocs into the output file. */
3222 sec->reloc_count = 0;
3225 else
3226 continue;
3229 if (strip)
3230 sec->flags |= SEC_EXCLUDE;
3231 else
3233 /* Allocate memory for the section contents. */
3234 sec->contents = (bfd_byte *) bfd_zalloc (dynobj, sec->size);
3235 if (sec->contents == NULL && sec->size != 0)
3236 return FALSE;
3240 if (elf_hash_table (info)->dynamic_sections_created)
3242 /* Add some entries to the .dynamic section. We fill in the values
3243 later (in finish_dynamic_sections) but we must add the entries now
3244 so that we get the correct size for the .dynamic section. */
3246 if (info->executable)
3248 /* The DT_DEBUG entry is filled in by the dynamic linker and used
3249 by the debugger. */
3250 #define add_dynamic_entry(TAG, VAL) \
3251 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
3253 if (!add_dynamic_entry (DT_DEBUG, 0))
3254 return FALSE;
3257 if (!add_dynamic_entry (DT_IA_64_PLT_RESERVE, 0))
3258 return FALSE;
3259 if (!add_dynamic_entry (DT_PLTGOT, 0))
3260 return FALSE;
3262 if (relplt)
3264 if (!add_dynamic_entry (DT_PLTRELSZ, 0)
3265 || !add_dynamic_entry (DT_PLTREL, DT_RELA)
3266 || !add_dynamic_entry (DT_JMPREL, 0))
3267 return FALSE;
3270 if (!add_dynamic_entry (DT_RELA, 0)
3271 || !add_dynamic_entry (DT_RELASZ, 0)
3272 || !add_dynamic_entry (DT_RELAENT, sizeof (ElfNN_External_Rela)))
3273 return FALSE;
3275 if (ia64_info->reltext)
3277 if (!add_dynamic_entry (DT_TEXTREL, 0))
3278 return FALSE;
3279 info->flags |= DF_TEXTREL;
3283 /* ??? Perhaps force __gp local. */
3285 return TRUE;
3288 static bfd_reloc_status_type
3289 elfNN_ia64_install_value (hit_addr, v, r_type)
3290 bfd_byte *hit_addr;
3291 bfd_vma v;
3292 unsigned int r_type;
3294 const struct ia64_operand *op;
3295 int bigendian = 0, shift = 0;
3296 bfd_vma t0, t1, dword;
3297 ia64_insn insn;
3298 enum ia64_opnd opnd;
3299 const char *err;
3300 size_t size = 8;
3301 #ifdef BFD_HOST_U_64_BIT
3302 BFD_HOST_U_64_BIT val = (BFD_HOST_U_64_BIT) v;
3303 #else
3304 bfd_vma val = v;
3305 #endif
3307 opnd = IA64_OPND_NIL;
3308 switch (r_type)
3310 case R_IA64_NONE:
3311 case R_IA64_LDXMOV:
3312 return bfd_reloc_ok;
3314 /* Instruction relocations. */
3316 case R_IA64_IMM14:
3317 case R_IA64_TPREL14:
3318 case R_IA64_DTPREL14:
3319 opnd = IA64_OPND_IMM14;
3320 break;
3322 case R_IA64_PCREL21F: opnd = IA64_OPND_TGT25; break;
3323 case R_IA64_PCREL21M: opnd = IA64_OPND_TGT25b; break;
3324 case R_IA64_PCREL60B: opnd = IA64_OPND_TGT64; break;
3325 case R_IA64_PCREL21B:
3326 case R_IA64_PCREL21BI:
3327 opnd = IA64_OPND_TGT25c;
3328 break;
3330 case R_IA64_IMM22:
3331 case R_IA64_GPREL22:
3332 case R_IA64_LTOFF22:
3333 case R_IA64_LTOFF22X:
3334 case R_IA64_PLTOFF22:
3335 case R_IA64_PCREL22:
3336 case R_IA64_LTOFF_FPTR22:
3337 case R_IA64_TPREL22:
3338 case R_IA64_DTPREL22:
3339 case R_IA64_LTOFF_TPREL22:
3340 case R_IA64_LTOFF_DTPMOD22:
3341 case R_IA64_LTOFF_DTPREL22:
3342 opnd = IA64_OPND_IMM22;
3343 break;
3345 case R_IA64_IMM64:
3346 case R_IA64_GPREL64I:
3347 case R_IA64_LTOFF64I:
3348 case R_IA64_PLTOFF64I:
3349 case R_IA64_PCREL64I:
3350 case R_IA64_FPTR64I:
3351 case R_IA64_LTOFF_FPTR64I:
3352 case R_IA64_TPREL64I:
3353 case R_IA64_DTPREL64I:
3354 opnd = IA64_OPND_IMMU64;
3355 break;
3357 /* Data relocations. */
3359 case R_IA64_DIR32MSB:
3360 case R_IA64_GPREL32MSB:
3361 case R_IA64_FPTR32MSB:
3362 case R_IA64_PCREL32MSB:
3363 case R_IA64_LTOFF_FPTR32MSB:
3364 case R_IA64_SEGREL32MSB:
3365 case R_IA64_SECREL32MSB:
3366 case R_IA64_LTV32MSB:
3367 case R_IA64_DTPREL32MSB:
3368 size = 4; bigendian = 1;
3369 break;
3371 case R_IA64_DIR32LSB:
3372 case R_IA64_GPREL32LSB:
3373 case R_IA64_FPTR32LSB:
3374 case R_IA64_PCREL32LSB:
3375 case R_IA64_LTOFF_FPTR32LSB:
3376 case R_IA64_SEGREL32LSB:
3377 case R_IA64_SECREL32LSB:
3378 case R_IA64_LTV32LSB:
3379 case R_IA64_DTPREL32LSB:
3380 size = 4; bigendian = 0;
3381 break;
3383 case R_IA64_DIR64MSB:
3384 case R_IA64_GPREL64MSB:
3385 case R_IA64_PLTOFF64MSB:
3386 case R_IA64_FPTR64MSB:
3387 case R_IA64_PCREL64MSB:
3388 case R_IA64_LTOFF_FPTR64MSB:
3389 case R_IA64_SEGREL64MSB:
3390 case R_IA64_SECREL64MSB:
3391 case R_IA64_LTV64MSB:
3392 case R_IA64_TPREL64MSB:
3393 case R_IA64_DTPMOD64MSB:
3394 case R_IA64_DTPREL64MSB:
3395 size = 8; bigendian = 1;
3396 break;
3398 case R_IA64_DIR64LSB:
3399 case R_IA64_GPREL64LSB:
3400 case R_IA64_PLTOFF64LSB:
3401 case R_IA64_FPTR64LSB:
3402 case R_IA64_PCREL64LSB:
3403 case R_IA64_LTOFF_FPTR64LSB:
3404 case R_IA64_SEGREL64LSB:
3405 case R_IA64_SECREL64LSB:
3406 case R_IA64_LTV64LSB:
3407 case R_IA64_TPREL64LSB:
3408 case R_IA64_DTPMOD64LSB:
3409 case R_IA64_DTPREL64LSB:
3410 size = 8; bigendian = 0;
3411 break;
3413 /* Unsupported / Dynamic relocations. */
3414 default:
3415 return bfd_reloc_notsupported;
3418 switch (opnd)
3420 case IA64_OPND_IMMU64:
3421 hit_addr -= (long) hit_addr & 0x3;
3422 t0 = bfd_getl64 (hit_addr);
3423 t1 = bfd_getl64 (hit_addr + 8);
3425 /* tmpl/s: bits 0.. 5 in t0
3426 slot 0: bits 5..45 in t0
3427 slot 1: bits 46..63 in t0, bits 0..22 in t1
3428 slot 2: bits 23..63 in t1 */
3430 /* First, clear the bits that form the 64 bit constant. */
3431 t0 &= ~(0x3ffffLL << 46);
3432 t1 &= ~(0x7fffffLL
3433 | (( (0x07fLL << 13) | (0x1ffLL << 27)
3434 | (0x01fLL << 22) | (0x001LL << 21)
3435 | (0x001LL << 36)) << 23));
3437 t0 |= ((val >> 22) & 0x03ffffLL) << 46; /* 18 lsbs of imm41 */
3438 t1 |= ((val >> 40) & 0x7fffffLL) << 0; /* 23 msbs of imm41 */
3439 t1 |= ( (((val >> 0) & 0x07f) << 13) /* imm7b */
3440 | (((val >> 7) & 0x1ff) << 27) /* imm9d */
3441 | (((val >> 16) & 0x01f) << 22) /* imm5c */
3442 | (((val >> 21) & 0x001) << 21) /* ic */
3443 | (((val >> 63) & 0x001) << 36)) << 23; /* i */
3445 bfd_putl64 (t0, hit_addr);
3446 bfd_putl64 (t1, hit_addr + 8);
3447 break;
3449 case IA64_OPND_TGT64:
3450 hit_addr -= (long) hit_addr & 0x3;
3451 t0 = bfd_getl64 (hit_addr);
3452 t1 = bfd_getl64 (hit_addr + 8);
3454 /* tmpl/s: bits 0.. 5 in t0
3455 slot 0: bits 5..45 in t0
3456 slot 1: bits 46..63 in t0, bits 0..22 in t1
3457 slot 2: bits 23..63 in t1 */
3459 /* First, clear the bits that form the 64 bit constant. */
3460 t0 &= ~(0x3ffffLL << 46);
3461 t1 &= ~(0x7fffffLL
3462 | ((1LL << 36 | 0xfffffLL << 13) << 23));
3464 val >>= 4;
3465 t0 |= ((val >> 20) & 0xffffLL) << 2 << 46; /* 16 lsbs of imm39 */
3466 t1 |= ((val >> 36) & 0x7fffffLL) << 0; /* 23 msbs of imm39 */
3467 t1 |= ((((val >> 0) & 0xfffffLL) << 13) /* imm20b */
3468 | (((val >> 59) & 0x1LL) << 36)) << 23; /* i */
3470 bfd_putl64 (t0, hit_addr);
3471 bfd_putl64 (t1, hit_addr + 8);
3472 break;
3474 default:
3475 switch ((long) hit_addr & 0x3)
3477 case 0: shift = 5; break;
3478 case 1: shift = 14; hit_addr += 3; break;
3479 case 2: shift = 23; hit_addr += 6; break;
3480 case 3: return bfd_reloc_notsupported; /* shouldn't happen... */
3482 dword = bfd_getl64 (hit_addr);
3483 insn = (dword >> shift) & 0x1ffffffffffLL;
3485 op = elf64_ia64_operands + opnd;
3486 err = (*op->insert) (op, val, &insn);
3487 if (err)
3488 return bfd_reloc_overflow;
3490 dword &= ~(0x1ffffffffffLL << shift);
3491 dword |= (insn << shift);
3492 bfd_putl64 (dword, hit_addr);
3493 break;
3495 case IA64_OPND_NIL:
3496 /* A data relocation. */
3497 if (bigendian)
3498 if (size == 4)
3499 bfd_putb32 (val, hit_addr);
3500 else
3501 bfd_putb64 (val, hit_addr);
3502 else
3503 if (size == 4)
3504 bfd_putl32 (val, hit_addr);
3505 else
3506 bfd_putl64 (val, hit_addr);
3507 break;
3510 return bfd_reloc_ok;
3513 static void
3514 elfNN_ia64_install_dyn_reloc (abfd, info, sec, srel, offset, type,
3515 dynindx, addend)
3516 bfd *abfd;
3517 struct bfd_link_info *info;
3518 asection *sec;
3519 asection *srel;
3520 bfd_vma offset;
3521 unsigned int type;
3522 long dynindx;
3523 bfd_vma addend;
3525 Elf_Internal_Rela outrel;
3526 bfd_byte *loc;
3528 BFD_ASSERT (dynindx != -1);
3529 outrel.r_info = ELFNN_R_INFO (dynindx, type);
3530 outrel.r_addend = addend;
3531 outrel.r_offset = _bfd_elf_section_offset (abfd, info, sec, offset);
3532 if (outrel.r_offset >= (bfd_vma) -2)
3534 /* Run for the hills. We shouldn't be outputting a relocation
3535 for this. So do what everyone else does and output a no-op. */
3536 outrel.r_info = ELFNN_R_INFO (0, R_IA64_NONE);
3537 outrel.r_addend = 0;
3538 outrel.r_offset = 0;
3540 else
3541 outrel.r_offset += sec->output_section->vma + sec->output_offset;
3543 loc = srel->contents;
3544 loc += srel->reloc_count++ * sizeof (ElfNN_External_Rela);
3545 bfd_elfNN_swap_reloca_out (abfd, &outrel, loc);
3546 BFD_ASSERT (sizeof (ElfNN_External_Rela) * srel->reloc_count <= srel->size);
3549 /* Store an entry for target address TARGET_ADDR in the linkage table
3550 and return the gp-relative address of the linkage table entry. */
3552 static bfd_vma
3553 set_got_entry (abfd, info, dyn_i, dynindx, addend, value, dyn_r_type)
3554 bfd *abfd;
3555 struct bfd_link_info *info;
3556 struct elfNN_ia64_dyn_sym_info *dyn_i;
3557 long dynindx;
3558 bfd_vma addend;
3559 bfd_vma value;
3560 unsigned int dyn_r_type;
3562 struct elfNN_ia64_link_hash_table *ia64_info;
3563 asection *got_sec;
3564 bfd_boolean done;
3565 bfd_vma got_offset;
3567 ia64_info = elfNN_ia64_hash_table (info);
3568 got_sec = ia64_info->got_sec;
3570 switch (dyn_r_type)
3572 case R_IA64_TPREL64LSB:
3573 done = dyn_i->tprel_done;
3574 dyn_i->tprel_done = TRUE;
3575 got_offset = dyn_i->tprel_offset;
3576 break;
3577 case R_IA64_DTPMOD64LSB:
3578 if (dyn_i->dtpmod_offset != ia64_info->self_dtpmod_offset)
3580 done = dyn_i->dtpmod_done;
3581 dyn_i->dtpmod_done = TRUE;
3583 else
3585 done = ia64_info->self_dtpmod_done;
3586 ia64_info->self_dtpmod_done = TRUE;
3587 dynindx = 0;
3589 got_offset = dyn_i->dtpmod_offset;
3590 break;
3591 case R_IA64_DTPREL32LSB:
3592 case R_IA64_DTPREL64LSB:
3593 done = dyn_i->dtprel_done;
3594 dyn_i->dtprel_done = TRUE;
3595 got_offset = dyn_i->dtprel_offset;
3596 break;
3597 default:
3598 done = dyn_i->got_done;
3599 dyn_i->got_done = TRUE;
3600 got_offset = dyn_i->got_offset;
3601 break;
3604 BFD_ASSERT ((got_offset & 7) == 0);
3606 if (! done)
3608 /* Store the target address in the linkage table entry. */
3609 bfd_put_64 (abfd, value, got_sec->contents + got_offset);
3611 /* Install a dynamic relocation if needed. */
3612 if (((info->shared
3613 && (!dyn_i->h
3614 || ELF_ST_VISIBILITY (dyn_i->h->other) == STV_DEFAULT
3615 || dyn_i->h->root.type != bfd_link_hash_undefweak)
3616 && dyn_r_type != R_IA64_DTPREL32LSB
3617 && dyn_r_type != R_IA64_DTPREL64LSB)
3618 || elfNN_ia64_dynamic_symbol_p (dyn_i->h, info, dyn_r_type)
3619 || (dynindx != -1
3620 && (dyn_r_type == R_IA64_FPTR32LSB
3621 || dyn_r_type == R_IA64_FPTR64LSB)))
3622 && (!dyn_i->want_ltoff_fptr
3623 || !info->pie
3624 || !dyn_i->h
3625 || dyn_i->h->root.type != bfd_link_hash_undefweak))
3627 if (dynindx == -1
3628 && dyn_r_type != R_IA64_TPREL64LSB
3629 && dyn_r_type != R_IA64_DTPMOD64LSB
3630 && dyn_r_type != R_IA64_DTPREL32LSB
3631 && dyn_r_type != R_IA64_DTPREL64LSB)
3633 dyn_r_type = R_IA64_RELNNLSB;
3634 dynindx = 0;
3635 addend = value;
3638 if (bfd_big_endian (abfd))
3640 switch (dyn_r_type)
3642 case R_IA64_REL32LSB:
3643 dyn_r_type = R_IA64_REL32MSB;
3644 break;
3645 case R_IA64_DIR32LSB:
3646 dyn_r_type = R_IA64_DIR32MSB;
3647 break;
3648 case R_IA64_FPTR32LSB:
3649 dyn_r_type = R_IA64_FPTR32MSB;
3650 break;
3651 case R_IA64_DTPREL32LSB:
3652 dyn_r_type = R_IA64_DTPREL32MSB;
3653 break;
3654 case R_IA64_REL64LSB:
3655 dyn_r_type = R_IA64_REL64MSB;
3656 break;
3657 case R_IA64_DIR64LSB:
3658 dyn_r_type = R_IA64_DIR64MSB;
3659 break;
3660 case R_IA64_FPTR64LSB:
3661 dyn_r_type = R_IA64_FPTR64MSB;
3662 break;
3663 case R_IA64_TPREL64LSB:
3664 dyn_r_type = R_IA64_TPREL64MSB;
3665 break;
3666 case R_IA64_DTPMOD64LSB:
3667 dyn_r_type = R_IA64_DTPMOD64MSB;
3668 break;
3669 case R_IA64_DTPREL64LSB:
3670 dyn_r_type = R_IA64_DTPREL64MSB;
3671 break;
3672 default:
3673 BFD_ASSERT (FALSE);
3674 break;
3678 elfNN_ia64_install_dyn_reloc (abfd, NULL, got_sec,
3679 ia64_info->rel_got_sec,
3680 got_offset, dyn_r_type,
3681 dynindx, addend);
3685 /* Return the address of the linkage table entry. */
3686 value = (got_sec->output_section->vma
3687 + got_sec->output_offset
3688 + got_offset);
3690 return value;
3693 /* Fill in a function descriptor consisting of the function's code
3694 address and its global pointer. Return the descriptor's address. */
3696 static bfd_vma
3697 set_fptr_entry (abfd, info, dyn_i, value)
3698 bfd *abfd;
3699 struct bfd_link_info *info;
3700 struct elfNN_ia64_dyn_sym_info *dyn_i;
3701 bfd_vma value;
3703 struct elfNN_ia64_link_hash_table *ia64_info;
3704 asection *fptr_sec;
3706 ia64_info = elfNN_ia64_hash_table (info);
3707 fptr_sec = ia64_info->fptr_sec;
3709 if (!dyn_i->fptr_done)
3711 dyn_i->fptr_done = 1;
3713 /* Fill in the function descriptor. */
3714 bfd_put_64 (abfd, value, fptr_sec->contents + dyn_i->fptr_offset);
3715 bfd_put_64 (abfd, _bfd_get_gp_value (abfd),
3716 fptr_sec->contents + dyn_i->fptr_offset + 8);
3717 if (ia64_info->rel_fptr_sec)
3719 Elf_Internal_Rela outrel;
3720 bfd_byte *loc;
3722 if (bfd_little_endian (abfd))
3723 outrel.r_info = ELFNN_R_INFO (0, R_IA64_IPLTLSB);
3724 else
3725 outrel.r_info = ELFNN_R_INFO (0, R_IA64_IPLTMSB);
3726 outrel.r_addend = value;
3727 outrel.r_offset = (fptr_sec->output_section->vma
3728 + fptr_sec->output_offset
3729 + dyn_i->fptr_offset);
3730 loc = ia64_info->rel_fptr_sec->contents;
3731 loc += ia64_info->rel_fptr_sec->reloc_count++
3732 * sizeof (ElfNN_External_Rela);
3733 bfd_elfNN_swap_reloca_out (abfd, &outrel, loc);
3737 /* Return the descriptor's address. */
3738 value = (fptr_sec->output_section->vma
3739 + fptr_sec->output_offset
3740 + dyn_i->fptr_offset);
3742 return value;
3745 /* Fill in a PLTOFF entry consisting of the function's code address
3746 and its global pointer. Return the descriptor's address. */
3748 static bfd_vma
3749 set_pltoff_entry (abfd, info, dyn_i, value, is_plt)
3750 bfd *abfd;
3751 struct bfd_link_info *info;
3752 struct elfNN_ia64_dyn_sym_info *dyn_i;
3753 bfd_vma value;
3754 bfd_boolean is_plt;
3756 struct elfNN_ia64_link_hash_table *ia64_info;
3757 asection *pltoff_sec;
3759 ia64_info = elfNN_ia64_hash_table (info);
3760 pltoff_sec = ia64_info->pltoff_sec;
3762 /* Don't do anything if this symbol uses a real PLT entry. In
3763 that case, we'll fill this in during finish_dynamic_symbol. */
3764 if ((! dyn_i->want_plt || is_plt)
3765 && !dyn_i->pltoff_done)
3767 bfd_vma gp = _bfd_get_gp_value (abfd);
3769 /* Fill in the function descriptor. */
3770 bfd_put_64 (abfd, value, pltoff_sec->contents + dyn_i->pltoff_offset);
3771 bfd_put_64 (abfd, gp, pltoff_sec->contents + dyn_i->pltoff_offset + 8);
3773 /* Install dynamic relocations if needed. */
3774 if (!is_plt
3775 && info->shared
3776 && (!dyn_i->h
3777 || ELF_ST_VISIBILITY (dyn_i->h->other) == STV_DEFAULT
3778 || dyn_i->h->root.type != bfd_link_hash_undefweak))
3780 unsigned int dyn_r_type;
3782 if (bfd_big_endian (abfd))
3783 dyn_r_type = R_IA64_RELNNMSB;
3784 else
3785 dyn_r_type = R_IA64_RELNNLSB;
3787 elfNN_ia64_install_dyn_reloc (abfd, NULL, pltoff_sec,
3788 ia64_info->rel_pltoff_sec,
3789 dyn_i->pltoff_offset,
3790 dyn_r_type, 0, value);
3791 elfNN_ia64_install_dyn_reloc (abfd, NULL, pltoff_sec,
3792 ia64_info->rel_pltoff_sec,
3793 dyn_i->pltoff_offset + ARCH_SIZE / 8,
3794 dyn_r_type, 0, gp);
3797 dyn_i->pltoff_done = 1;
3800 /* Return the descriptor's address. */
3801 value = (pltoff_sec->output_section->vma
3802 + pltoff_sec->output_offset
3803 + dyn_i->pltoff_offset);
3805 return value;
3808 /* Return the base VMA address which should be subtracted from real addresses
3809 when resolving @tprel() relocation.
3810 Main program TLS (whose template starts at PT_TLS p_vaddr)
3811 is assigned offset round(2 * size of pointer, PT_TLS p_align). */
3813 static bfd_vma
3814 elfNN_ia64_tprel_base (info)
3815 struct bfd_link_info *info;
3817 asection *tls_sec = elf_hash_table (info)->tls_sec;
3819 BFD_ASSERT (tls_sec != NULL);
3820 return tls_sec->vma - align_power ((bfd_vma) ARCH_SIZE / 4,
3821 tls_sec->alignment_power);
3824 /* Return the base VMA address which should be subtracted from real addresses
3825 when resolving @dtprel() relocation.
3826 This is PT_TLS segment p_vaddr. */
3828 static bfd_vma
3829 elfNN_ia64_dtprel_base (info)
3830 struct bfd_link_info *info;
3832 BFD_ASSERT (elf_hash_table (info)->tls_sec != NULL);
3833 return elf_hash_table (info)->tls_sec->vma;
3836 /* Called through qsort to sort the .IA_64.unwind section during a
3837 non-relocatable link. Set elfNN_ia64_unwind_entry_compare_bfd
3838 to the output bfd so we can do proper endianness frobbing. */
3840 static bfd *elfNN_ia64_unwind_entry_compare_bfd;
3842 static int
3843 elfNN_ia64_unwind_entry_compare (a, b)
3844 const PTR a;
3845 const PTR b;
3847 bfd_vma av, bv;
3849 av = bfd_get_64 (elfNN_ia64_unwind_entry_compare_bfd, a);
3850 bv = bfd_get_64 (elfNN_ia64_unwind_entry_compare_bfd, b);
3852 return (av < bv ? -1 : av > bv ? 1 : 0);
3855 /* Make sure we've got ourselves a nice fat __gp value. */
3856 static bfd_boolean
3857 elfNN_ia64_choose_gp (abfd, info)
3858 bfd *abfd;
3859 struct bfd_link_info *info;
3861 bfd_vma min_vma = (bfd_vma) -1, max_vma = 0;
3862 bfd_vma min_short_vma = min_vma, max_short_vma = 0;
3863 struct elf_link_hash_entry *gp;
3864 bfd_vma gp_val;
3865 asection *os;
3866 struct elfNN_ia64_link_hash_table *ia64_info;
3868 ia64_info = elfNN_ia64_hash_table (info);
3870 /* Find the min and max vma of all sections marked short. Also collect
3871 min and max vma of any type, for use in selecting a nice gp. */
3872 for (os = abfd->sections; os ; os = os->next)
3874 bfd_vma lo, hi;
3876 if ((os->flags & SEC_ALLOC) == 0)
3877 continue;
3879 lo = os->vma;
3880 hi = os->vma + os->size;
3881 if (hi < lo)
3882 hi = (bfd_vma) -1;
3884 if (min_vma > lo)
3885 min_vma = lo;
3886 if (max_vma < hi)
3887 max_vma = hi;
3888 if (os->flags & SEC_SMALL_DATA)
3890 if (min_short_vma > lo)
3891 min_short_vma = lo;
3892 if (max_short_vma < hi)
3893 max_short_vma = hi;
3897 /* See if the user wants to force a value. */
3898 gp = elf_link_hash_lookup (elf_hash_table (info), "__gp", FALSE,
3899 FALSE, FALSE);
3901 if (gp
3902 && (gp->root.type == bfd_link_hash_defined
3903 || gp->root.type == bfd_link_hash_defweak))
3905 asection *gp_sec = gp->root.u.def.section;
3906 gp_val = (gp->root.u.def.value
3907 + gp_sec->output_section->vma
3908 + gp_sec->output_offset);
3910 else
3912 /* Pick a sensible value. */
3914 asection *got_sec = ia64_info->got_sec;
3916 /* Start with just the address of the .got. */
3917 if (got_sec)
3918 gp_val = got_sec->output_section->vma;
3919 else if (max_short_vma != 0)
3920 gp_val = min_short_vma;
3921 else
3922 gp_val = min_vma;
3924 /* If it is possible to address the entire image, but we
3925 don't with the choice above, adjust. */
3926 if (max_vma - min_vma < 0x400000
3927 && max_vma - gp_val <= 0x200000
3928 && gp_val - min_vma > 0x200000)
3929 gp_val = min_vma + 0x200000;
3930 else if (max_short_vma != 0)
3932 /* If we don't cover all the short data, adjust. */
3933 if (max_short_vma - gp_val >= 0x200000)
3934 gp_val = min_short_vma + 0x200000;
3936 /* If we're addressing stuff past the end, adjust back. */
3937 if (gp_val > max_vma)
3938 gp_val = max_vma - 0x200000 + 8;
3942 /* Validate whether all SHF_IA_64_SHORT sections are within
3943 range of the chosen GP. */
3945 if (max_short_vma != 0)
3947 if (max_short_vma - min_short_vma >= 0x400000)
3949 (*_bfd_error_handler)
3950 (_("%s: short data segment overflowed (0x%lx >= 0x400000)"),
3951 bfd_get_filename (abfd),
3952 (unsigned long) (max_short_vma - min_short_vma));
3953 return FALSE;
3955 else if ((gp_val > min_short_vma
3956 && gp_val - min_short_vma > 0x200000)
3957 || (gp_val < max_short_vma
3958 && max_short_vma - gp_val >= 0x200000))
3960 (*_bfd_error_handler)
3961 (_("%s: __gp does not cover short data segment"),
3962 bfd_get_filename (abfd));
3963 return FALSE;
3967 _bfd_set_gp_value (abfd, gp_val);
3969 return TRUE;
3972 static bfd_boolean
3973 elfNN_ia64_final_link (abfd, info)
3974 bfd *abfd;
3975 struct bfd_link_info *info;
3977 struct elfNN_ia64_link_hash_table *ia64_info;
3978 asection *unwind_output_sec;
3980 ia64_info = elfNN_ia64_hash_table (info);
3982 /* Make sure we've got ourselves a nice fat __gp value. */
3983 if (!info->relocatable)
3985 bfd_vma gp_val;
3986 struct elf_link_hash_entry *gp;
3988 /* We assume after gp is set, section size will only decrease. We
3989 need to adjust gp for it. */
3990 _bfd_set_gp_value (abfd, 0);
3991 if (! elfNN_ia64_choose_gp (abfd, info))
3992 return FALSE;
3993 gp_val = _bfd_get_gp_value (abfd);
3995 gp = elf_link_hash_lookup (elf_hash_table (info), "__gp", FALSE,
3996 FALSE, FALSE);
3997 if (gp)
3999 gp->root.type = bfd_link_hash_defined;
4000 gp->root.u.def.value = gp_val;
4001 gp->root.u.def.section = bfd_abs_section_ptr;
4005 /* If we're producing a final executable, we need to sort the contents
4006 of the .IA_64.unwind section. Force this section to be relocated
4007 into memory rather than written immediately to the output file. */
4008 unwind_output_sec = NULL;
4009 if (!info->relocatable)
4011 asection *s = bfd_get_section_by_name (abfd, ELF_STRING_ia64_unwind);
4012 if (s)
4014 unwind_output_sec = s->output_section;
4015 unwind_output_sec->contents
4016 = bfd_malloc (unwind_output_sec->size);
4017 if (unwind_output_sec->contents == NULL)
4018 return FALSE;
4022 /* Invoke the regular ELF backend linker to do all the work. */
4023 if (!bfd_elf_final_link (abfd, info))
4024 return FALSE;
4026 if (unwind_output_sec)
4028 elfNN_ia64_unwind_entry_compare_bfd = abfd;
4029 qsort (unwind_output_sec->contents,
4030 (size_t) (unwind_output_sec->size / 24),
4032 elfNN_ia64_unwind_entry_compare);
4034 if (! bfd_set_section_contents (abfd, unwind_output_sec,
4035 unwind_output_sec->contents, (bfd_vma) 0,
4036 unwind_output_sec->size))
4037 return FALSE;
4040 return TRUE;
4043 static bfd_boolean
4044 elfNN_ia64_relocate_section (output_bfd, info, input_bfd, input_section,
4045 contents, relocs, local_syms, local_sections)
4046 bfd *output_bfd;
4047 struct bfd_link_info *info;
4048 bfd *input_bfd;
4049 asection *input_section;
4050 bfd_byte *contents;
4051 Elf_Internal_Rela *relocs;
4052 Elf_Internal_Sym *local_syms;
4053 asection **local_sections;
4055 struct elfNN_ia64_link_hash_table *ia64_info;
4056 Elf_Internal_Shdr *symtab_hdr;
4057 Elf_Internal_Rela *rel;
4058 Elf_Internal_Rela *relend;
4059 asection *srel;
4060 bfd_boolean ret_val = TRUE; /* for non-fatal errors */
4061 bfd_vma gp_val;
4063 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
4064 ia64_info = elfNN_ia64_hash_table (info);
4066 /* Infect various flags from the input section to the output section. */
4067 if (info->relocatable)
4069 bfd_vma flags;
4071 flags = elf_section_data(input_section)->this_hdr.sh_flags;
4072 flags &= SHF_IA_64_NORECOV;
4074 elf_section_data(input_section->output_section)
4075 ->this_hdr.sh_flags |= flags;
4076 return TRUE;
4079 gp_val = _bfd_get_gp_value (output_bfd);
4080 srel = get_reloc_section (input_bfd, ia64_info, input_section, FALSE);
4082 rel = relocs;
4083 relend = relocs + input_section->reloc_count;
4084 for (; rel < relend; ++rel)
4086 struct elf_link_hash_entry *h;
4087 struct elfNN_ia64_dyn_sym_info *dyn_i;
4088 bfd_reloc_status_type r;
4089 reloc_howto_type *howto;
4090 unsigned long r_symndx;
4091 Elf_Internal_Sym *sym;
4092 unsigned int r_type;
4093 bfd_vma value;
4094 asection *sym_sec;
4095 bfd_byte *hit_addr;
4096 bfd_boolean dynamic_symbol_p;
4097 bfd_boolean undef_weak_ref;
4099 r_type = ELFNN_R_TYPE (rel->r_info);
4100 if (r_type > R_IA64_MAX_RELOC_CODE)
4102 (*_bfd_error_handler)
4103 (_("%B: unknown relocation type %d"),
4104 input_bfd, (int) r_type);
4105 bfd_set_error (bfd_error_bad_value);
4106 ret_val = FALSE;
4107 continue;
4110 howto = lookup_howto (r_type);
4111 r_symndx = ELFNN_R_SYM (rel->r_info);
4112 h = NULL;
4113 sym = NULL;
4114 sym_sec = NULL;
4115 undef_weak_ref = FALSE;
4117 if (r_symndx < symtab_hdr->sh_info)
4119 /* Reloc against local symbol. */
4120 asection *msec;
4121 sym = local_syms + r_symndx;
4122 sym_sec = local_sections[r_symndx];
4123 msec = sym_sec;
4124 value = _bfd_elf_rela_local_sym (output_bfd, sym, &msec, rel);
4125 if ((sym_sec->flags & SEC_MERGE)
4126 && ELF_ST_TYPE (sym->st_info) == STT_SECTION
4127 && sym_sec->sec_info_type == ELF_INFO_TYPE_MERGE)
4129 struct elfNN_ia64_local_hash_entry *loc_h;
4131 loc_h = get_local_sym_hash (ia64_info, input_bfd, rel, FALSE);
4132 if (loc_h && ! loc_h->sec_merge_done)
4134 struct elfNN_ia64_dyn_sym_info *dynent;
4136 for (dynent = loc_h->info; dynent; dynent = dynent->next)
4138 msec = sym_sec;
4139 dynent->addend =
4140 _bfd_merged_section_offset (output_bfd, &msec,
4141 elf_section_data (msec)->
4142 sec_info,
4143 sym->st_value
4144 + dynent->addend);
4145 dynent->addend -= sym->st_value;
4146 dynent->addend += msec->output_section->vma
4147 + msec->output_offset
4148 - sym_sec->output_section->vma
4149 - sym_sec->output_offset;
4151 loc_h->sec_merge_done = 1;
4155 else
4157 bfd_boolean unresolved_reloc;
4158 bfd_boolean warned;
4159 struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (input_bfd);
4161 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
4162 r_symndx, symtab_hdr, sym_hashes,
4163 h, sym_sec, value,
4164 unresolved_reloc, warned);
4166 if (h->root.type == bfd_link_hash_undefweak)
4167 undef_weak_ref = TRUE;
4168 else if (warned)
4169 continue;
4172 hit_addr = contents + rel->r_offset;
4173 value += rel->r_addend;
4174 dynamic_symbol_p = elfNN_ia64_dynamic_symbol_p (h, info, r_type);
4176 switch (r_type)
4178 case R_IA64_NONE:
4179 case R_IA64_LDXMOV:
4180 continue;
4182 case R_IA64_IMM14:
4183 case R_IA64_IMM22:
4184 case R_IA64_IMM64:
4185 case R_IA64_DIR32MSB:
4186 case R_IA64_DIR32LSB:
4187 case R_IA64_DIR64MSB:
4188 case R_IA64_DIR64LSB:
4189 /* Install a dynamic relocation for this reloc. */
4190 if ((dynamic_symbol_p || info->shared)
4191 && r_symndx != 0
4192 && (input_section->flags & SEC_ALLOC) != 0)
4194 unsigned int dyn_r_type;
4195 long dynindx;
4196 bfd_vma addend;
4198 BFD_ASSERT (srel != NULL);
4200 switch (r_type)
4202 case R_IA64_IMM14:
4203 case R_IA64_IMM22:
4204 case R_IA64_IMM64:
4205 /* ??? People shouldn't be doing non-pic code in
4206 shared libraries nor dynamic executables. */
4207 (*_bfd_error_handler)
4208 (_("%B: non-pic code with imm relocation against dynamic symbol `%s'"),
4209 input_bfd,
4210 h ? h->root.root.string
4211 : bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
4212 sym_sec));
4213 ret_val = FALSE;
4214 continue;
4216 default:
4217 break;
4220 /* If we don't need dynamic symbol lookup, find a
4221 matching RELATIVE relocation. */
4222 dyn_r_type = r_type;
4223 if (dynamic_symbol_p)
4225 dynindx = h->dynindx;
4226 addend = rel->r_addend;
4227 value = 0;
4229 else
4231 switch (r_type)
4233 case R_IA64_DIR32MSB:
4234 dyn_r_type = R_IA64_REL32MSB;
4235 break;
4236 case R_IA64_DIR32LSB:
4237 dyn_r_type = R_IA64_REL32LSB;
4238 break;
4239 case R_IA64_DIR64MSB:
4240 dyn_r_type = R_IA64_REL64MSB;
4241 break;
4242 case R_IA64_DIR64LSB:
4243 dyn_r_type = R_IA64_REL64LSB;
4244 break;
4246 default:
4247 break;
4249 dynindx = 0;
4250 addend = value;
4253 elfNN_ia64_install_dyn_reloc (output_bfd, info, input_section,
4254 srel, rel->r_offset, dyn_r_type,
4255 dynindx, addend);
4257 /* Fall through. */
4259 case R_IA64_LTV32MSB:
4260 case R_IA64_LTV32LSB:
4261 case R_IA64_LTV64MSB:
4262 case R_IA64_LTV64LSB:
4263 r = elfNN_ia64_install_value (hit_addr, value, r_type);
4264 break;
4266 case R_IA64_GPREL22:
4267 case R_IA64_GPREL64I:
4268 case R_IA64_GPREL32MSB:
4269 case R_IA64_GPREL32LSB:
4270 case R_IA64_GPREL64MSB:
4271 case R_IA64_GPREL64LSB:
4272 if (dynamic_symbol_p)
4274 (*_bfd_error_handler)
4275 (_("%B: @gprel relocation against dynamic symbol %s"),
4276 input_bfd,
4277 h ? h->root.root.string
4278 : bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
4279 sym_sec));
4280 ret_val = FALSE;
4281 continue;
4283 value -= gp_val;
4284 r = elfNN_ia64_install_value (hit_addr, value, r_type);
4285 break;
4287 case R_IA64_LTOFF22:
4288 case R_IA64_LTOFF22X:
4289 case R_IA64_LTOFF64I:
4290 dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
4291 value = set_got_entry (input_bfd, info, dyn_i, (h ? h->dynindx : -1),
4292 rel->r_addend, value, R_IA64_DIRNNLSB);
4293 value -= gp_val;
4294 r = elfNN_ia64_install_value (hit_addr, value, r_type);
4295 break;
4297 case R_IA64_PLTOFF22:
4298 case R_IA64_PLTOFF64I:
4299 case R_IA64_PLTOFF64MSB:
4300 case R_IA64_PLTOFF64LSB:
4301 dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
4302 value = set_pltoff_entry (output_bfd, info, dyn_i, value, FALSE);
4303 value -= gp_val;
4304 r = elfNN_ia64_install_value (hit_addr, value, r_type);
4305 break;
4307 case R_IA64_FPTR64I:
4308 case R_IA64_FPTR32MSB:
4309 case R_IA64_FPTR32LSB:
4310 case R_IA64_FPTR64MSB:
4311 case R_IA64_FPTR64LSB:
4312 dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
4313 if (dyn_i->want_fptr)
4315 if (!undef_weak_ref)
4316 value = set_fptr_entry (output_bfd, info, dyn_i, value);
4318 if (!dyn_i->want_fptr || info->pie)
4320 long dynindx;
4321 unsigned int dyn_r_type = r_type;
4322 bfd_vma addend = rel->r_addend;
4324 /* Otherwise, we expect the dynamic linker to create
4325 the entry. */
4327 if (dyn_i->want_fptr)
4329 if (r_type == R_IA64_FPTR64I)
4331 /* We can't represent this without a dynamic symbol.
4332 Adjust the relocation to be against an output
4333 section symbol, which are always present in the
4334 dynamic symbol table. */
4335 /* ??? People shouldn't be doing non-pic code in
4336 shared libraries. Hork. */
4337 (*_bfd_error_handler)
4338 (_("%B: linking non-pic code in a position independent executable"),
4339 input_bfd);
4340 ret_val = FALSE;
4341 continue;
4343 dynindx = 0;
4344 addend = value;
4345 dyn_r_type = r_type + R_IA64_RELNNLSB - R_IA64_FPTRNNLSB;
4347 else if (h)
4349 if (h->dynindx != -1)
4350 dynindx = h->dynindx;
4351 else
4352 dynindx = (_bfd_elf_link_lookup_local_dynindx
4353 (info, h->root.u.def.section->owner,
4354 global_sym_index (h)));
4355 value = 0;
4357 else
4359 dynindx = (_bfd_elf_link_lookup_local_dynindx
4360 (info, input_bfd, (long) r_symndx));
4361 value = 0;
4364 elfNN_ia64_install_dyn_reloc (output_bfd, info, input_section,
4365 srel, rel->r_offset, dyn_r_type,
4366 dynindx, addend);
4369 r = elfNN_ia64_install_value (hit_addr, value, r_type);
4370 break;
4372 case R_IA64_LTOFF_FPTR22:
4373 case R_IA64_LTOFF_FPTR64I:
4374 case R_IA64_LTOFF_FPTR32MSB:
4375 case R_IA64_LTOFF_FPTR32LSB:
4376 case R_IA64_LTOFF_FPTR64MSB:
4377 case R_IA64_LTOFF_FPTR64LSB:
4379 long dynindx;
4381 dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
4382 if (dyn_i->want_fptr)
4384 BFD_ASSERT (h == NULL || h->dynindx == -1);
4385 if (!undef_weak_ref)
4386 value = set_fptr_entry (output_bfd, info, dyn_i, value);
4387 dynindx = -1;
4389 else
4391 /* Otherwise, we expect the dynamic linker to create
4392 the entry. */
4393 if (h)
4395 if (h->dynindx != -1)
4396 dynindx = h->dynindx;
4397 else
4398 dynindx = (_bfd_elf_link_lookup_local_dynindx
4399 (info, h->root.u.def.section->owner,
4400 global_sym_index (h)));
4402 else
4403 dynindx = (_bfd_elf_link_lookup_local_dynindx
4404 (info, input_bfd, (long) r_symndx));
4405 value = 0;
4408 value = set_got_entry (output_bfd, info, dyn_i, dynindx,
4409 rel->r_addend, value, R_IA64_FPTRNNLSB);
4410 value -= gp_val;
4411 r = elfNN_ia64_install_value (hit_addr, value, r_type);
4413 break;
4415 case R_IA64_PCREL32MSB:
4416 case R_IA64_PCREL32LSB:
4417 case R_IA64_PCREL64MSB:
4418 case R_IA64_PCREL64LSB:
4419 /* Install a dynamic relocation for this reloc. */
4420 if (dynamic_symbol_p && r_symndx != 0)
4422 BFD_ASSERT (srel != NULL);
4424 elfNN_ia64_install_dyn_reloc (output_bfd, info, input_section,
4425 srel, rel->r_offset, r_type,
4426 h->dynindx, rel->r_addend);
4428 goto finish_pcrel;
4430 case R_IA64_PCREL21B:
4431 case R_IA64_PCREL60B:
4432 /* We should have created a PLT entry for any dynamic symbol. */
4433 dyn_i = NULL;
4434 if (h)
4435 dyn_i = get_dyn_sym_info (ia64_info, h, NULL, NULL, FALSE);
4437 if (dyn_i && dyn_i->want_plt2)
4439 /* Should have caught this earlier. */
4440 BFD_ASSERT (rel->r_addend == 0);
4442 value = (ia64_info->plt_sec->output_section->vma
4443 + ia64_info->plt_sec->output_offset
4444 + dyn_i->plt2_offset);
4446 else
4448 /* Since there's no PLT entry, Validate that this is
4449 locally defined. */
4450 BFD_ASSERT (undef_weak_ref || sym_sec->output_section != NULL);
4452 /* If the symbol is undef_weak, we shouldn't be trying
4453 to call it. There's every chance that we'd wind up
4454 with an out-of-range fixup here. Don't bother setting
4455 any value at all. */
4456 if (undef_weak_ref)
4457 continue;
4459 goto finish_pcrel;
4461 case R_IA64_PCREL21BI:
4462 case R_IA64_PCREL21F:
4463 case R_IA64_PCREL21M:
4464 case R_IA64_PCREL22:
4465 case R_IA64_PCREL64I:
4466 /* The PCREL21BI reloc is specifically not intended for use with
4467 dynamic relocs. PCREL21F and PCREL21M are used for speculation
4468 fixup code, and thus probably ought not be dynamic. The
4469 PCREL22 and PCREL64I relocs aren't emitted as dynamic relocs. */
4470 if (dynamic_symbol_p)
4472 const char *msg;
4474 if (r_type == R_IA64_PCREL21BI)
4475 msg = _("%B: @internal branch to dynamic symbol %s");
4476 else if (r_type == R_IA64_PCREL21F || r_type == R_IA64_PCREL21M)
4477 msg = _("%B: speculation fixup to dynamic symbol %s");
4478 else
4479 msg = _("%B: @pcrel relocation against dynamic symbol %s");
4480 (*_bfd_error_handler) (msg, input_bfd,
4481 h ? h->root.root.string
4482 : bfd_elf_sym_name (input_bfd,
4483 symtab_hdr,
4484 sym,
4485 sym_sec));
4486 ret_val = FALSE;
4487 continue;
4489 goto finish_pcrel;
4491 finish_pcrel:
4492 /* Make pc-relative. */
4493 value -= (input_section->output_section->vma
4494 + input_section->output_offset
4495 + rel->r_offset) & ~ (bfd_vma) 0x3;
4496 r = elfNN_ia64_install_value (hit_addr, value, r_type);
4497 break;
4499 case R_IA64_SEGREL32MSB:
4500 case R_IA64_SEGREL32LSB:
4501 case R_IA64_SEGREL64MSB:
4502 case R_IA64_SEGREL64LSB:
4503 if (r_symndx == 0)
4505 /* If the input section was discarded from the output, then
4506 do nothing. */
4507 r = bfd_reloc_ok;
4509 else
4511 struct elf_segment_map *m;
4512 Elf_Internal_Phdr *p;
4514 /* Find the segment that contains the output_section. */
4515 for (m = elf_tdata (output_bfd)->segment_map,
4516 p = elf_tdata (output_bfd)->phdr;
4517 m != NULL;
4518 m = m->next, p++)
4520 int i;
4521 for (i = m->count - 1; i >= 0; i--)
4522 if (m->sections[i] == input_section->output_section)
4523 break;
4524 if (i >= 0)
4525 break;
4528 if (m == NULL)
4530 r = bfd_reloc_notsupported;
4532 else
4534 /* The VMA of the segment is the vaddr of the associated
4535 program header. */
4536 if (value > p->p_vaddr)
4537 value -= p->p_vaddr;
4538 else
4539 value = 0;
4540 r = elfNN_ia64_install_value (hit_addr, value, r_type);
4542 break;
4545 case R_IA64_SECREL32MSB:
4546 case R_IA64_SECREL32LSB:
4547 case R_IA64_SECREL64MSB:
4548 case R_IA64_SECREL64LSB:
4549 /* Make output-section relative to section where the symbol
4550 is defined. PR 475 */
4551 if (sym_sec)
4552 value -= sym_sec->output_section->vma;
4553 r = elfNN_ia64_install_value (hit_addr, value, r_type);
4554 break;
4556 case R_IA64_IPLTMSB:
4557 case R_IA64_IPLTLSB:
4558 /* Install a dynamic relocation for this reloc. */
4559 if ((dynamic_symbol_p || info->shared)
4560 && (input_section->flags & SEC_ALLOC) != 0)
4562 BFD_ASSERT (srel != NULL);
4564 /* If we don't need dynamic symbol lookup, install two
4565 RELATIVE relocations. */
4566 if (!dynamic_symbol_p)
4568 unsigned int dyn_r_type;
4570 if (r_type == R_IA64_IPLTMSB)
4571 dyn_r_type = R_IA64_REL64MSB;
4572 else
4573 dyn_r_type = R_IA64_REL64LSB;
4575 elfNN_ia64_install_dyn_reloc (output_bfd, info,
4576 input_section,
4577 srel, rel->r_offset,
4578 dyn_r_type, 0, value);
4579 elfNN_ia64_install_dyn_reloc (output_bfd, info,
4580 input_section,
4581 srel, rel->r_offset + 8,
4582 dyn_r_type, 0, gp_val);
4584 else
4585 elfNN_ia64_install_dyn_reloc (output_bfd, info, input_section,
4586 srel, rel->r_offset, r_type,
4587 h->dynindx, rel->r_addend);
4590 if (r_type == R_IA64_IPLTMSB)
4591 r_type = R_IA64_DIR64MSB;
4592 else
4593 r_type = R_IA64_DIR64LSB;
4594 elfNN_ia64_install_value (hit_addr, value, r_type);
4595 r = elfNN_ia64_install_value (hit_addr + 8, gp_val, r_type);
4596 break;
4598 case R_IA64_TPREL14:
4599 case R_IA64_TPREL22:
4600 case R_IA64_TPREL64I:
4601 value -= elfNN_ia64_tprel_base (info);
4602 r = elfNN_ia64_install_value (hit_addr, value, r_type);
4603 break;
4605 case R_IA64_DTPREL14:
4606 case R_IA64_DTPREL22:
4607 case R_IA64_DTPREL64I:
4608 case R_IA64_DTPREL32LSB:
4609 case R_IA64_DTPREL32MSB:
4610 case R_IA64_DTPREL64LSB:
4611 case R_IA64_DTPREL64MSB:
4612 value -= elfNN_ia64_dtprel_base (info);
4613 r = elfNN_ia64_install_value (hit_addr, value, r_type);
4614 break;
4616 case R_IA64_LTOFF_TPREL22:
4617 case R_IA64_LTOFF_DTPMOD22:
4618 case R_IA64_LTOFF_DTPREL22:
4620 int got_r_type;
4621 long dynindx = h ? h->dynindx : -1;
4622 bfd_vma r_addend = rel->r_addend;
4624 switch (r_type)
4626 default:
4627 case R_IA64_LTOFF_TPREL22:
4628 if (!dynamic_symbol_p)
4630 if (!info->shared)
4631 value -= elfNN_ia64_tprel_base (info);
4632 else
4634 r_addend += value - elfNN_ia64_dtprel_base (info);
4635 dynindx = 0;
4638 got_r_type = R_IA64_TPREL64LSB;
4639 break;
4640 case R_IA64_LTOFF_DTPMOD22:
4641 if (!dynamic_symbol_p && !info->shared)
4642 value = 1;
4643 got_r_type = R_IA64_DTPMOD64LSB;
4644 break;
4645 case R_IA64_LTOFF_DTPREL22:
4646 if (!dynamic_symbol_p)
4647 value -= elfNN_ia64_dtprel_base (info);
4648 got_r_type = R_IA64_DTPRELNNLSB;
4649 break;
4651 dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
4652 value = set_got_entry (input_bfd, info, dyn_i, dynindx, r_addend,
4653 value, got_r_type);
4654 value -= gp_val;
4655 r = elfNN_ia64_install_value (hit_addr, value, r_type);
4657 break;
4659 default:
4660 r = bfd_reloc_notsupported;
4661 break;
4664 switch (r)
4666 case bfd_reloc_ok:
4667 break;
4669 case bfd_reloc_undefined:
4670 /* This can happen for global table relative relocs if
4671 __gp is undefined. This is a panic situation so we
4672 don't try to continue. */
4673 (*info->callbacks->undefined_symbol)
4674 (info, "__gp", input_bfd, input_section, rel->r_offset, 1);
4675 return FALSE;
4677 case bfd_reloc_notsupported:
4679 const char *name;
4681 if (h)
4682 name = h->root.root.string;
4683 else
4684 name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
4685 sym_sec);
4686 if (!(*info->callbacks->warning) (info, _("unsupported reloc"),
4687 name, input_bfd,
4688 input_section, rel->r_offset))
4689 return FALSE;
4690 ret_val = FALSE;
4692 break;
4694 case bfd_reloc_dangerous:
4695 case bfd_reloc_outofrange:
4696 case bfd_reloc_overflow:
4697 default:
4699 const char *name;
4701 if (h)
4702 name = h->root.root.string;
4703 else
4704 name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
4705 sym_sec);
4707 switch (r_type)
4709 case R_IA64_PCREL21B:
4710 case R_IA64_PCREL21BI:
4711 case R_IA64_PCREL21M:
4712 case R_IA64_PCREL21F:
4713 if (is_elf_hash_table (info->hash))
4715 /* Relaxtion is always performed for ELF output.
4716 Overflow failures for those relocations mean
4717 that the section is too big to relax. */
4718 (*_bfd_error_handler)
4719 (_("%B: Can't relax br (%s) to `%s' at 0x%lx in section `%A' with size 0x%lx (> 0x1000000)."),
4720 input_bfd, input_section, howto->name, name,
4721 rel->r_offset, input_section->size);
4722 break;
4724 default:
4725 if (!(*info->callbacks->reloc_overflow) (info,
4726 &h->root,
4727 name,
4728 howto->name,
4729 (bfd_vma) 0,
4730 input_bfd,
4731 input_section,
4732 rel->r_offset))
4733 return FALSE;
4734 break;
4737 ret_val = FALSE;
4739 break;
4743 return ret_val;
4746 static bfd_boolean
4747 elfNN_ia64_finish_dynamic_symbol (output_bfd, info, h, sym)
4748 bfd *output_bfd;
4749 struct bfd_link_info *info;
4750 struct elf_link_hash_entry *h;
4751 Elf_Internal_Sym *sym;
4753 struct elfNN_ia64_link_hash_table *ia64_info;
4754 struct elfNN_ia64_dyn_sym_info *dyn_i;
4756 ia64_info = elfNN_ia64_hash_table (info);
4757 dyn_i = get_dyn_sym_info (ia64_info, h, NULL, NULL, FALSE);
4759 /* Fill in the PLT data, if required. */
4760 if (dyn_i && dyn_i->want_plt)
4762 Elf_Internal_Rela outrel;
4763 bfd_byte *loc;
4764 asection *plt_sec;
4765 bfd_vma plt_addr, pltoff_addr, gp_val, index;
4767 gp_val = _bfd_get_gp_value (output_bfd);
4769 /* Initialize the minimal PLT entry. */
4771 index = (dyn_i->plt_offset - PLT_HEADER_SIZE) / PLT_MIN_ENTRY_SIZE;
4772 plt_sec = ia64_info->plt_sec;
4773 loc = plt_sec->contents + dyn_i->plt_offset;
4775 memcpy (loc, plt_min_entry, PLT_MIN_ENTRY_SIZE);
4776 elfNN_ia64_install_value (loc, index, R_IA64_IMM22);
4777 elfNN_ia64_install_value (loc+2, -dyn_i->plt_offset, R_IA64_PCREL21B);
4779 plt_addr = (plt_sec->output_section->vma
4780 + plt_sec->output_offset
4781 + dyn_i->plt_offset);
4782 pltoff_addr = set_pltoff_entry (output_bfd, info, dyn_i, plt_addr, TRUE);
4784 /* Initialize the FULL PLT entry, if needed. */
4785 if (dyn_i->want_plt2)
4787 loc = plt_sec->contents + dyn_i->plt2_offset;
4789 memcpy (loc, plt_full_entry, PLT_FULL_ENTRY_SIZE);
4790 elfNN_ia64_install_value (loc, pltoff_addr - gp_val, R_IA64_IMM22);
4792 /* Mark the symbol as undefined, rather than as defined in the
4793 plt section. Leave the value alone. */
4794 /* ??? We didn't redefine it in adjust_dynamic_symbol in the
4795 first place. But perhaps elflink.c did some for us. */
4796 if (!h->def_regular)
4797 sym->st_shndx = SHN_UNDEF;
4800 /* Create the dynamic relocation. */
4801 outrel.r_offset = pltoff_addr;
4802 if (bfd_little_endian (output_bfd))
4803 outrel.r_info = ELFNN_R_INFO (h->dynindx, R_IA64_IPLTLSB);
4804 else
4805 outrel.r_info = ELFNN_R_INFO (h->dynindx, R_IA64_IPLTMSB);
4806 outrel.r_addend = 0;
4808 /* This is fun. In the .IA_64.pltoff section, we've got entries
4809 that correspond both to real PLT entries, and those that
4810 happened to resolve to local symbols but need to be created
4811 to satisfy @pltoff relocations. The .rela.IA_64.pltoff
4812 relocations for the real PLT should come at the end of the
4813 section, so that they can be indexed by plt entry at runtime.
4815 We emitted all of the relocations for the non-PLT @pltoff
4816 entries during relocate_section. So we can consider the
4817 existing sec->reloc_count to be the base of the array of
4818 PLT relocations. */
4820 loc = ia64_info->rel_pltoff_sec->contents;
4821 loc += ((ia64_info->rel_pltoff_sec->reloc_count + index)
4822 * sizeof (ElfNN_External_Rela));
4823 bfd_elfNN_swap_reloca_out (output_bfd, &outrel, loc);
4826 /* Mark some specially defined symbols as absolute. */
4827 if (strcmp (h->root.root.string, "_DYNAMIC") == 0
4828 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0
4829 || strcmp (h->root.root.string, "_PROCEDURE_LINKAGE_TABLE_") == 0)
4830 sym->st_shndx = SHN_ABS;
4832 return TRUE;
4835 static bfd_boolean
4836 elfNN_ia64_finish_dynamic_sections (abfd, info)
4837 bfd *abfd;
4838 struct bfd_link_info *info;
4840 struct elfNN_ia64_link_hash_table *ia64_info;
4841 bfd *dynobj;
4843 ia64_info = elfNN_ia64_hash_table (info);
4844 dynobj = ia64_info->root.dynobj;
4846 if (elf_hash_table (info)->dynamic_sections_created)
4848 ElfNN_External_Dyn *dyncon, *dynconend;
4849 asection *sdyn, *sgotplt;
4850 bfd_vma gp_val;
4852 sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
4853 sgotplt = bfd_get_section_by_name (dynobj, ".got.plt");
4854 BFD_ASSERT (sdyn != NULL);
4855 dyncon = (ElfNN_External_Dyn *) sdyn->contents;
4856 dynconend = (ElfNN_External_Dyn *) (sdyn->contents + sdyn->size);
4858 gp_val = _bfd_get_gp_value (abfd);
4860 for (; dyncon < dynconend; dyncon++)
4862 Elf_Internal_Dyn dyn;
4864 bfd_elfNN_swap_dyn_in (dynobj, dyncon, &dyn);
4866 switch (dyn.d_tag)
4868 case DT_PLTGOT:
4869 dyn.d_un.d_ptr = gp_val;
4870 break;
4872 case DT_PLTRELSZ:
4873 dyn.d_un.d_val = (ia64_info->minplt_entries
4874 * sizeof (ElfNN_External_Rela));
4875 break;
4877 case DT_JMPREL:
4878 /* See the comment above in finish_dynamic_symbol. */
4879 dyn.d_un.d_ptr = (ia64_info->rel_pltoff_sec->output_section->vma
4880 + ia64_info->rel_pltoff_sec->output_offset
4881 + (ia64_info->rel_pltoff_sec->reloc_count
4882 * sizeof (ElfNN_External_Rela)));
4883 break;
4885 case DT_IA_64_PLT_RESERVE:
4886 dyn.d_un.d_ptr = (sgotplt->output_section->vma
4887 + sgotplt->output_offset);
4888 break;
4890 case DT_RELASZ:
4891 /* Do not have RELASZ include JMPREL. This makes things
4892 easier on ld.so. This is not what the rest of BFD set up. */
4893 dyn.d_un.d_val -= (ia64_info->minplt_entries
4894 * sizeof (ElfNN_External_Rela));
4895 break;
4898 bfd_elfNN_swap_dyn_out (abfd, &dyn, dyncon);
4901 /* Initialize the PLT0 entry. */
4902 if (ia64_info->plt_sec)
4904 bfd_byte *loc = ia64_info->plt_sec->contents;
4905 bfd_vma pltres;
4907 memcpy (loc, plt_header, PLT_HEADER_SIZE);
4909 pltres = (sgotplt->output_section->vma
4910 + sgotplt->output_offset
4911 - gp_val);
4913 elfNN_ia64_install_value (loc+1, pltres, R_IA64_GPREL22);
4917 return TRUE;
4920 /* ELF file flag handling: */
4922 /* Function to keep IA-64 specific file flags. */
4923 static bfd_boolean
4924 elfNN_ia64_set_private_flags (abfd, flags)
4925 bfd *abfd;
4926 flagword flags;
4928 BFD_ASSERT (!elf_flags_init (abfd)
4929 || elf_elfheader (abfd)->e_flags == flags);
4931 elf_elfheader (abfd)->e_flags = flags;
4932 elf_flags_init (abfd) = TRUE;
4933 return TRUE;
4936 /* Merge backend specific data from an object file to the output
4937 object file when linking. */
4938 static bfd_boolean
4939 elfNN_ia64_merge_private_bfd_data (ibfd, obfd)
4940 bfd *ibfd, *obfd;
4942 flagword out_flags;
4943 flagword in_flags;
4944 bfd_boolean ok = TRUE;
4946 /* Don't even pretend to support mixed-format linking. */
4947 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
4948 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
4949 return FALSE;
4951 in_flags = elf_elfheader (ibfd)->e_flags;
4952 out_flags = elf_elfheader (obfd)->e_flags;
4954 if (! elf_flags_init (obfd))
4956 elf_flags_init (obfd) = TRUE;
4957 elf_elfheader (obfd)->e_flags = in_flags;
4959 if (bfd_get_arch (obfd) == bfd_get_arch (ibfd)
4960 && bfd_get_arch_info (obfd)->the_default)
4962 return bfd_set_arch_mach (obfd, bfd_get_arch (ibfd),
4963 bfd_get_mach (ibfd));
4966 return TRUE;
4969 /* Check flag compatibility. */
4970 if (in_flags == out_flags)
4971 return TRUE;
4973 /* Output has EF_IA_64_REDUCEDFP set only if all inputs have it set. */
4974 if (!(in_flags & EF_IA_64_REDUCEDFP) && (out_flags & EF_IA_64_REDUCEDFP))
4975 elf_elfheader (obfd)->e_flags &= ~EF_IA_64_REDUCEDFP;
4977 if ((in_flags & EF_IA_64_TRAPNIL) != (out_flags & EF_IA_64_TRAPNIL))
4979 (*_bfd_error_handler)
4980 (_("%B: linking trap-on-NULL-dereference with non-trapping files"),
4981 ibfd);
4983 bfd_set_error (bfd_error_bad_value);
4984 ok = FALSE;
4986 if ((in_flags & EF_IA_64_BE) != (out_flags & EF_IA_64_BE))
4988 (*_bfd_error_handler)
4989 (_("%B: linking big-endian files with little-endian files"),
4990 ibfd);
4992 bfd_set_error (bfd_error_bad_value);
4993 ok = FALSE;
4995 if ((in_flags & EF_IA_64_ABI64) != (out_flags & EF_IA_64_ABI64))
4997 (*_bfd_error_handler)
4998 (_("%B: linking 64-bit files with 32-bit files"),
4999 ibfd);
5001 bfd_set_error (bfd_error_bad_value);
5002 ok = FALSE;
5004 if ((in_flags & EF_IA_64_CONS_GP) != (out_flags & EF_IA_64_CONS_GP))
5006 (*_bfd_error_handler)
5007 (_("%B: linking constant-gp files with non-constant-gp files"),
5008 ibfd);
5010 bfd_set_error (bfd_error_bad_value);
5011 ok = FALSE;
5013 if ((in_flags & EF_IA_64_NOFUNCDESC_CONS_GP)
5014 != (out_flags & EF_IA_64_NOFUNCDESC_CONS_GP))
5016 (*_bfd_error_handler)
5017 (_("%B: linking auto-pic files with non-auto-pic files"),
5018 ibfd);
5020 bfd_set_error (bfd_error_bad_value);
5021 ok = FALSE;
5024 return ok;
5027 static bfd_boolean
5028 elfNN_ia64_print_private_bfd_data (abfd, ptr)
5029 bfd *abfd;
5030 PTR ptr;
5032 FILE *file = (FILE *) ptr;
5033 flagword flags = elf_elfheader (abfd)->e_flags;
5035 BFD_ASSERT (abfd != NULL && ptr != NULL);
5037 fprintf (file, "private flags = %s%s%s%s%s%s%s%s\n",
5038 (flags & EF_IA_64_TRAPNIL) ? "TRAPNIL, " : "",
5039 (flags & EF_IA_64_EXT) ? "EXT, " : "",
5040 (flags & EF_IA_64_BE) ? "BE, " : "LE, ",
5041 (flags & EF_IA_64_REDUCEDFP) ? "REDUCEDFP, " : "",
5042 (flags & EF_IA_64_CONS_GP) ? "CONS_GP, " : "",
5043 (flags & EF_IA_64_NOFUNCDESC_CONS_GP) ? "NOFUNCDESC_CONS_GP, " : "",
5044 (flags & EF_IA_64_ABSOLUTE) ? "ABSOLUTE, " : "",
5045 (flags & EF_IA_64_ABI64) ? "ABI64" : "ABI32");
5047 _bfd_elf_print_private_bfd_data (abfd, ptr);
5048 return TRUE;
5051 static enum elf_reloc_type_class
5052 elfNN_ia64_reloc_type_class (rela)
5053 const Elf_Internal_Rela *rela;
5055 switch ((int) ELFNN_R_TYPE (rela->r_info))
5057 case R_IA64_REL32MSB:
5058 case R_IA64_REL32LSB:
5059 case R_IA64_REL64MSB:
5060 case R_IA64_REL64LSB:
5061 return reloc_class_relative;
5062 case R_IA64_IPLTMSB:
5063 case R_IA64_IPLTLSB:
5064 return reloc_class_plt;
5065 case R_IA64_COPY:
5066 return reloc_class_copy;
5067 default:
5068 return reloc_class_normal;
5072 static const struct bfd_elf_special_section elfNN_ia64_special_sections[] =
5074 { ".sbss", 5, -1, SHT_NOBITS, SHF_ALLOC + SHF_WRITE + SHF_IA_64_SHORT },
5075 { ".sdata", 6, -1, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE + SHF_IA_64_SHORT },
5076 { NULL, 0, 0, 0, 0 }
5079 static bfd_boolean
5080 elfNN_ia64_object_p (bfd *abfd)
5082 asection *sec;
5083 asection *group, *unwi, *unw;
5084 flagword flags;
5085 const char *name;
5086 char *unwi_name, *unw_name;
5087 bfd_size_type amt;
5089 if (abfd->flags & DYNAMIC)
5090 return TRUE;
5092 /* Flags for fake group section. */
5093 flags = (SEC_LINKER_CREATED | SEC_GROUP | SEC_LINK_ONCE
5094 | SEC_EXCLUDE);
5096 /* We add a fake section group for each .gnu.linkonce.t.* section,
5097 which isn't in a section group, and its unwind sections. */
5098 for (sec = abfd->sections; sec != NULL; sec = sec->next)
5100 if (elf_sec_group (sec) == NULL
5101 && ((sec->flags & (SEC_LINK_ONCE | SEC_CODE | SEC_GROUP))
5102 == (SEC_LINK_ONCE | SEC_CODE))
5103 && strncmp (sec->name, ".gnu.linkonce.t.", 16) == 0)
5105 name = sec->name + 16;
5107 amt = strlen (name) + sizeof (".gnu.linkonce.ia64unwi.");
5108 unwi_name = bfd_alloc (abfd, amt);
5109 if (!unwi_name)
5110 return FALSE;
5112 strcpy (stpcpy (unwi_name, ".gnu.linkonce.ia64unwi."), name);
5113 unwi = bfd_get_section_by_name (abfd, unwi_name);
5115 amt = strlen (name) + sizeof (".gnu.linkonce.ia64unw.");
5116 unw_name = bfd_alloc (abfd, amt);
5117 if (!unw_name)
5118 return FALSE;
5120 strcpy (stpcpy (unw_name, ".gnu.linkonce.ia64unw."), name);
5121 unw = bfd_get_section_by_name (abfd, unw_name);
5123 /* We need to create a fake group section for it and its
5124 unwind sections. */
5125 group = bfd_make_section_anyway_with_flags (abfd, name,
5126 flags);
5127 if (group == NULL)
5128 return FALSE;
5130 /* Move the fake group section to the beginning. */
5131 bfd_section_list_remove (abfd, group);
5132 bfd_section_list_prepend (abfd, group);
5134 elf_next_in_group (group) = sec;
5136 elf_group_name (sec) = name;
5137 elf_next_in_group (sec) = sec;
5138 elf_sec_group (sec) = group;
5140 if (unwi)
5142 elf_group_name (unwi) = name;
5143 elf_next_in_group (unwi) = sec;
5144 elf_next_in_group (sec) = unwi;
5145 elf_sec_group (unwi) = group;
5148 if (unw)
5150 elf_group_name (unw) = name;
5151 if (unwi)
5153 elf_next_in_group (unw) = elf_next_in_group (unwi);
5154 elf_next_in_group (unwi) = unw;
5156 else
5158 elf_next_in_group (unw) = sec;
5159 elf_next_in_group (sec) = unw;
5161 elf_sec_group (unw) = group;
5164 /* Fake SHT_GROUP section header. */
5165 elf_section_data (group)->this_hdr.bfd_section = group;
5166 elf_section_data (group)->this_hdr.sh_type = SHT_GROUP;
5169 return TRUE;
5172 static bfd_boolean
5173 elfNN_ia64_hpux_vec (const bfd_target *vec)
5175 extern const bfd_target bfd_elfNN_ia64_hpux_big_vec;
5176 return (vec == & bfd_elfNN_ia64_hpux_big_vec);
5179 static void
5180 elfNN_hpux_post_process_headers (abfd, info)
5181 bfd *abfd;
5182 struct bfd_link_info *info ATTRIBUTE_UNUSED;
5184 Elf_Internal_Ehdr *i_ehdrp = elf_elfheader (abfd);
5186 i_ehdrp->e_ident[EI_OSABI] = ELFOSABI_HPUX;
5187 i_ehdrp->e_ident[EI_ABIVERSION] = 1;
5190 bfd_boolean
5191 elfNN_hpux_backend_section_from_bfd_section (abfd, sec, retval)
5192 bfd *abfd ATTRIBUTE_UNUSED;
5193 asection *sec;
5194 int *retval;
5196 if (bfd_is_com_section (sec))
5198 *retval = SHN_IA_64_ANSI_COMMON;
5199 return TRUE;
5201 return FALSE;
5204 static void
5205 elfNN_hpux_backend_symbol_processing (bfd *abfd ATTRIBUTE_UNUSED,
5206 asymbol *asym)
5208 elf_symbol_type *elfsym = (elf_symbol_type *) asym;
5210 switch (elfsym->internal_elf_sym.st_shndx)
5212 case SHN_IA_64_ANSI_COMMON:
5213 asym->section = bfd_com_section_ptr;
5214 asym->value = elfsym->internal_elf_sym.st_size;
5215 asym->flags &= ~BSF_GLOBAL;
5216 break;
5221 #define TARGET_LITTLE_SYM bfd_elfNN_ia64_little_vec
5222 #define TARGET_LITTLE_NAME "elfNN-ia64-little"
5223 #define TARGET_BIG_SYM bfd_elfNN_ia64_big_vec
5224 #define TARGET_BIG_NAME "elfNN-ia64-big"
5225 #define ELF_ARCH bfd_arch_ia64
5226 #define ELF_MACHINE_CODE EM_IA_64
5227 #define ELF_MACHINE_ALT1 1999 /* EAS2.3 */
5228 #define ELF_MACHINE_ALT2 1998 /* EAS2.2 */
5229 #define ELF_MAXPAGESIZE 0x10000 /* 64KB */
5231 #define elf_backend_section_from_shdr \
5232 elfNN_ia64_section_from_shdr
5233 #define elf_backend_section_flags \
5234 elfNN_ia64_section_flags
5235 #define elf_backend_fake_sections \
5236 elfNN_ia64_fake_sections
5237 #define elf_backend_final_write_processing \
5238 elfNN_ia64_final_write_processing
5239 #define elf_backend_add_symbol_hook \
5240 elfNN_ia64_add_symbol_hook
5241 #define elf_backend_additional_program_headers \
5242 elfNN_ia64_additional_program_headers
5243 #define elf_backend_modify_segment_map \
5244 elfNN_ia64_modify_segment_map
5245 #define elf_info_to_howto \
5246 elfNN_ia64_info_to_howto
5248 #define bfd_elfNN_bfd_reloc_type_lookup \
5249 elfNN_ia64_reloc_type_lookup
5250 #define bfd_elfNN_bfd_is_local_label_name \
5251 elfNN_ia64_is_local_label_name
5252 #define bfd_elfNN_bfd_relax_section \
5253 elfNN_ia64_relax_section
5255 #define elf_backend_object_p \
5256 elfNN_ia64_object_p
5258 /* Stuff for the BFD linker: */
5259 #define bfd_elfNN_bfd_link_hash_table_create \
5260 elfNN_ia64_hash_table_create
5261 #define bfd_elfNN_bfd_link_hash_table_free \
5262 elfNN_ia64_hash_table_free
5263 #define elf_backend_create_dynamic_sections \
5264 elfNN_ia64_create_dynamic_sections
5265 #define elf_backend_check_relocs \
5266 elfNN_ia64_check_relocs
5267 #define elf_backend_adjust_dynamic_symbol \
5268 elfNN_ia64_adjust_dynamic_symbol
5269 #define elf_backend_size_dynamic_sections \
5270 elfNN_ia64_size_dynamic_sections
5271 #define elf_backend_relocate_section \
5272 elfNN_ia64_relocate_section
5273 #define elf_backend_finish_dynamic_symbol \
5274 elfNN_ia64_finish_dynamic_symbol
5275 #define elf_backend_finish_dynamic_sections \
5276 elfNN_ia64_finish_dynamic_sections
5277 #define bfd_elfNN_bfd_final_link \
5278 elfNN_ia64_final_link
5280 #define bfd_elfNN_bfd_merge_private_bfd_data \
5281 elfNN_ia64_merge_private_bfd_data
5282 #define bfd_elfNN_bfd_set_private_flags \
5283 elfNN_ia64_set_private_flags
5284 #define bfd_elfNN_bfd_print_private_bfd_data \
5285 elfNN_ia64_print_private_bfd_data
5287 #define elf_backend_plt_readonly 1
5288 #define elf_backend_want_plt_sym 0
5289 #define elf_backend_plt_alignment 5
5290 #define elf_backend_got_header_size 0
5291 #define elf_backend_want_got_plt 1
5292 #define elf_backend_may_use_rel_p 1
5293 #define elf_backend_may_use_rela_p 1
5294 #define elf_backend_default_use_rela_p 1
5295 #define elf_backend_want_dynbss 0
5296 #define elf_backend_copy_indirect_symbol elfNN_ia64_hash_copy_indirect
5297 #define elf_backend_hide_symbol elfNN_ia64_hash_hide_symbol
5298 #define elf_backend_reloc_type_class elfNN_ia64_reloc_type_class
5299 #define elf_backend_rela_normal 1
5300 #define elf_backend_special_sections elfNN_ia64_special_sections
5302 /* FIXME: PR 290: The Intel C compiler generates SHT_IA_64_UNWIND with
5303 SHF_LINK_ORDER. But it doesn't set theh sh_link or sh_info fields.
5304 We don't want to flood users with so many error messages. We turn
5305 off the warning for now. It will be turned on later when the Intel
5306 compiler is fixed. */
5307 #define elf_backend_link_order_error_handler NULL
5309 #include "elfNN-target.h"
5311 /* HPUX-specific vectors. */
5313 #undef TARGET_LITTLE_SYM
5314 #undef TARGET_LITTLE_NAME
5315 #undef TARGET_BIG_SYM
5316 #define TARGET_BIG_SYM bfd_elfNN_ia64_hpux_big_vec
5317 #undef TARGET_BIG_NAME
5318 #define TARGET_BIG_NAME "elfNN-ia64-hpux-big"
5320 /* These are HP-UX specific functions. */
5322 #undef elf_backend_post_process_headers
5323 #define elf_backend_post_process_headers elfNN_hpux_post_process_headers
5325 #undef elf_backend_section_from_bfd_section
5326 #define elf_backend_section_from_bfd_section elfNN_hpux_backend_section_from_bfd_section
5328 #undef elf_backend_symbol_processing
5329 #define elf_backend_symbol_processing elfNN_hpux_backend_symbol_processing
5331 #undef elf_backend_want_p_paddr_set_to_zero
5332 #define elf_backend_want_p_paddr_set_to_zero 1
5334 #undef ELF_MAXPAGESIZE
5335 #define ELF_MAXPAGESIZE 0x1000 /* 1K */
5337 #undef elfNN_bed
5338 #define elfNN_bed elfNN_ia64_hpux_bed
5340 #include "elfNN-target.h"
5342 #undef elf_backend_want_p_paddr_set_to_zero