bfd/elfxx-ia64.c

   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>
   5
   6    This file is part of BFD, the Binary File Descriptor library.
   7
   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.
  12
  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.
  17
  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.  */
  21
  22 #include "bfd.h"
  23 #include "sysdep.h"
  24 #include "libbfd.h"
  25 #include "elf-bfd.h"
  26 #include "opcode/ia64.h"
  27 #include "elf/ia64.h"
  28 #include "objalloc.h"
  29 #include "hashtab.h"
  30
  31 #define ARCH_SIZE       NN
  32
  33 #if ARCH_SIZE == 64
  34 #define LOG_SECTION_ALIGN       3
  35 #endif
  36
  37 #if ARCH_SIZE == 32
  38 #define LOG_SECTION_ALIGN       2
  39 #endif
  40
  41 /* THE RULES for all the stuff the linker creates --
  42
  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.
  47
  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.
  54
  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.
  58
  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.
  65
  66   MIN_PLT       Created by PLTOFF entries against dynamic symbols.  This
  67                 does not require dynamic relocations.  */
  68
  69 #define NELEMS(a)       ((int) (sizeof (a) / sizeof ((a)[0])))
  70
  71 typedef struct bfd_hash_entry *(*new_hash_entry_func)
  72   PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *));
  73
  74 /* In dynamically (linker-) created sections, we generally need to keep track
  75    of the place a symbol or expression got allocated to. This is done via hash
  76    tables that store entries of the following type.  */
  77
  78 struct elfNN_ia64_dyn_sym_info
  79 {
  80   /* The addend for which this entry is relevant.  */
  81   bfd_vma addend;
  82
  83   /* Next addend in the list.  */
  84   struct elfNN_ia64_dyn_sym_info *next;
  85
  86   bfd_vma got_offset;
  87   bfd_vma fptr_offset;
  88   bfd_vma pltoff_offset;
  89   bfd_vma plt_offset;
  90   bfd_vma plt2_offset;
  91   bfd_vma tprel_offset;
  92   bfd_vma dtpmod_offset;
  93   bfd_vma dtprel_offset;
  94
  95   /* The symbol table entry, if any, that this was derived from.  */
  96   struct elf_link_hash_entry *h;
  97
  98   /* Used to count non-got, non-plt relocations for delayed sizing
  99      of relocation sections.  */
 100   struct elfNN_ia64_dyn_reloc_entry
 101   {
 102     struct elfNN_ia64_dyn_reloc_entry *next;
 103     asection *srel;
 104     int type;
 105     int count;
 106
 107     /* Is this reloc against readonly section? */
 108     bfd_boolean reltext;
 109   } *reloc_entries;
 110
 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;
 118
 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;
 130 };
 131
 132 struct elfNN_ia64_local_hash_entry
 133 {
 134   int id;
 135   unsigned int r_sym;
 136   struct elfNN_ia64_dyn_sym_info *info;
 137
 138   /* TRUE if this hash entry's addends was translated for
 139      SHF_MERGE optimization.  */
 140   unsigned sec_merge_done : 1;
 141 };
 142
 143 struct elfNN_ia64_link_hash_entry
 144 {
 145   struct elf_link_hash_entry root;
 146   struct elfNN_ia64_dyn_sym_info *info;
 147 };
 148
 149 struct elfNN_ia64_link_hash_table
 150 {
 151   /* The main hash table.  */
 152   struct elf_link_hash_table root;
 153
 154   asection *got_sec;            /* the linkage table section (or NULL) */
 155   asection *rel_got_sec;        /* dynamic relocation section for same */
 156   asection *fptr_sec;           /* function descriptor table (or NULL) */
 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 */
 161
 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 */
 166
 167   htab_t loc_hash_table;
 168   void *loc_hash_memory;
 169 };
 170
 171 struct elfNN_ia64_allocate_data
 172 {
 173   struct bfd_link_info *info;
 174   bfd_size_type ofs;
 175   bfd_boolean only_got;
 176 };
 177
 178 #define elfNN_ia64_hash_table(p) \
 179   ((struct elfNN_ia64_link_hash_table *) ((p)->hash))
 180
 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));
 336 \f
 337 /* ia64-specific relocation.  */
 338
 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;
 351 {
 352   if (output_bfd)
 353     {
 354       reloc->address += input_section->output_offset;
 355       return bfd_reloc_ok;
 356     }
 357
 358   if (input_section->flags & SEC_DEBUGGING)
 359     return bfd_reloc_continue;
 360
 361   *error_message = "Unsupported call to elfNN_ia64_reloc";
 362   return bfd_reloc_notsupported;
 363 }
 364
 365 #define IA64_HOWTO(TYPE, NAME, SIZE, PCREL, IN)                 \
 366   HOWTO (TYPE, 0, SIZE, 0, PCREL, 0, complain_overflow_signed,  \
 367          elfNN_ia64_reloc, NAME, FALSE, 0, -1, IN)
 368
 369 /* This table has to be sorted according to increasing number of the
 370    TYPE field.  */
 371 static reloc_howto_type ia64_howto_table[] =
 372   {
 373     IA64_HOWTO (R_IA64_NONE,        "NONE",        0, FALSE, TRUE),
 374
 375     IA64_HOWTO (R_IA64_IMM14,       "IMM14",       0, FALSE, TRUE),
 376     IA64_HOWTO (R_IA64_IMM22,       "IMM22",       0, FALSE, TRUE),
 377     IA64_HOWTO (R_IA64_IMM64,       "IMM64",       0, FALSE, TRUE),
 378     IA64_HOWTO (R_IA64_DIR32MSB,    "DIR32MSB",    2, FALSE, TRUE),
 379     IA64_HOWTO (R_IA64_DIR32LSB,    "DIR32LSB",    2, FALSE, TRUE),
 380     IA64_HOWTO (R_IA64_DIR64MSB,    "DIR64MSB",    4, FALSE, TRUE),
 381     IA64_HOWTO (R_IA64_DIR64LSB,    "DIR64LSB",    4, FALSE, TRUE),
 382
 383     IA64_HOWTO (R_IA64_GPREL22,     "GPREL22",     0, FALSE, TRUE),
 384     IA64_HOWTO (R_IA64_GPREL64I,    "GPREL64I",    0, FALSE, TRUE),
 385     IA64_HOWTO (R_IA64_GPREL32MSB,  "GPREL32MSB",  2, FALSE, TRUE),
 386     IA64_HOWTO (R_IA64_GPREL32LSB,  "GPREL32LSB",  2, FALSE, TRUE),
 387     IA64_HOWTO (R_IA64_GPREL64MSB,  "GPREL64MSB",  4, FALSE, TRUE),
 388     IA64_HOWTO (R_IA64_GPREL64LSB,  "GPREL64LSB",  4, FALSE, TRUE),
 389
 390     IA64_HOWTO (R_IA64_LTOFF22,     "LTOFF22",     0, FALSE, TRUE),
 391     IA64_HOWTO (R_IA64_LTOFF64I,    "LTOFF64I",    0, FALSE, TRUE),
 392
 393     IA64_HOWTO (R_IA64_PLTOFF22,    "PLTOFF22",    0, FALSE, TRUE),
 394     IA64_HOWTO (R_IA64_PLTOFF64I,   "PLTOFF64I",   0, FALSE, TRUE),
 395     IA64_HOWTO (R_IA64_PLTOFF64MSB, "PLTOFF64MSB", 4, FALSE, TRUE),
 396     IA64_HOWTO (R_IA64_PLTOFF64LSB, "PLTOFF64LSB", 4, FALSE, TRUE),
 397
 398     IA64_HOWTO (R_IA64_FPTR64I,     "FPTR64I",     0, FALSE, TRUE),
 399     IA64_HOWTO (R_IA64_FPTR32MSB,   "FPTR32MSB",   2, FALSE, TRUE),
 400     IA64_HOWTO (R_IA64_FPTR32LSB,   "FPTR32LSB",   2, FALSE, TRUE),
 401     IA64_HOWTO (R_IA64_FPTR64MSB,   "FPTR64MSB",   4, FALSE, TRUE),
 402     IA64_HOWTO (R_IA64_FPTR64LSB,   "FPTR64LSB",   4, FALSE, TRUE),
 403
 404     IA64_HOWTO (R_IA64_PCREL60B,    "PCREL60B",    0, TRUE, TRUE),
 405     IA64_HOWTO (R_IA64_PCREL21B,    "PCREL21B",    0, TRUE, TRUE),
 406     IA64_HOWTO (R_IA64_PCREL21M,    "PCREL21M",    0, TRUE, TRUE),
 407     IA64_HOWTO (R_IA64_PCREL21F,    "PCREL21F",    0, TRUE, TRUE),
 408     IA64_HOWTO (R_IA64_PCREL32MSB,  "PCREL32MSB",  2, TRUE, TRUE),
 409     IA64_HOWTO (R_IA64_PCREL32LSB,  "PCREL32LSB",  2, TRUE, TRUE),
 410     IA64_HOWTO (R_IA64_PCREL64MSB,  "PCREL64MSB",  4, TRUE, TRUE),
 411     IA64_HOWTO (R_IA64_PCREL64LSB,  "PCREL64LSB",  4, TRUE, TRUE),
 412
 413     IA64_HOWTO (R_IA64_LTOFF_FPTR22, "LTOFF_FPTR22", 0, FALSE, TRUE),
 414     IA64_HOWTO (R_IA64_LTOFF_FPTR64I, "LTOFF_FPTR64I", 0, FALSE, TRUE),
 415     IA64_HOWTO (R_IA64_LTOFF_FPTR32MSB, "LTOFF_FPTR32MSB", 2, FALSE, TRUE),
 416     IA64_HOWTO (R_IA64_LTOFF_FPTR32LSB, "LTOFF_FPTR32LSB", 2, FALSE, TRUE),
 417     IA64_HOWTO (R_IA64_LTOFF_FPTR64MSB, "LTOFF_FPTR64MSB", 4, FALSE, TRUE),
 418     IA64_HOWTO (R_IA64_LTOFF_FPTR64LSB, "LTOFF_FPTR64LSB", 4, FALSE, TRUE),
 419
 420     IA64_HOWTO (R_IA64_SEGREL32MSB, "SEGREL32MSB", 2, FALSE, TRUE),
 421     IA64_HOWTO (R_IA64_SEGREL32LSB, "SEGREL32LSB", 2, FALSE, TRUE),
 422     IA64_HOWTO (R_IA64_SEGREL64MSB, "SEGREL64MSB", 4, FALSE, TRUE),
 423     IA64_HOWTO (R_IA64_SEGREL64LSB, "SEGREL64LSB", 4, FALSE, TRUE),
 424
 425     IA64_HOWTO (R_IA64_SECREL32MSB, "SECREL32MSB", 2, FALSE, TRUE),
 426     IA64_HOWTO (R_IA64_SECREL32LSB, "SECREL32LSB", 2, FALSE, TRUE),
 427     IA64_HOWTO (R_IA64_SECREL64MSB, "SECREL64MSB", 4, FALSE, TRUE),
 428     IA64_HOWTO (R_IA64_SECREL64LSB, "SECREL64LSB", 4, FALSE, TRUE),
 429
 430     IA64_HOWTO (R_IA64_REL32MSB,    "REL32MSB",    2, FALSE, TRUE),
 431     IA64_HOWTO (R_IA64_REL32LSB,    "REL32LSB",    2, FALSE, TRUE),
 432     IA64_HOWTO (R_IA64_REL64MSB,    "REL64MSB",    4, FALSE, TRUE),
 433     IA64_HOWTO (R_IA64_REL64LSB,    "REL64LSB",    4, FALSE, TRUE),
 434
 435     IA64_HOWTO (R_IA64_LTV32MSB,    "LTV32MSB",    2, FALSE, TRUE),
 436     IA64_HOWTO (R_IA64_LTV32LSB,    "LTV32LSB",    2, FALSE, TRUE),
 437     IA64_HOWTO (R_IA64_LTV64MSB,    "LTV64MSB",    4, FALSE, TRUE),
 438     IA64_HOWTO (R_IA64_LTV64LSB,    "LTV64LSB",    4, FALSE, TRUE),
 439
 440     IA64_HOWTO (R_IA64_PCREL21BI,   "PCREL21BI",   0, TRUE, TRUE),
 441     IA64_HOWTO (R_IA64_PCREL22,     "PCREL22",     0, TRUE, TRUE),
 442     IA64_HOWTO (R_IA64_PCREL64I,    "PCREL64I",    0, TRUE, TRUE),
 443
 444     IA64_HOWTO (R_IA64_IPLTMSB,     "IPLTMSB",     4, FALSE, TRUE),
 445     IA64_HOWTO (R_IA64_IPLTLSB,     "IPLTLSB",     4, FALSE, TRUE),
 446     IA64_HOWTO (R_IA64_COPY,        "COPY",        4, FALSE, TRUE),
 447     IA64_HOWTO (R_IA64_LTOFF22X,    "LTOFF22X",    0, FALSE, TRUE),
 448     IA64_HOWTO (R_IA64_LDXMOV,      "LDXMOV",      0, FALSE, TRUE),
 449
 450     IA64_HOWTO (R_IA64_TPREL14,     "TPREL14",     0, FALSE, FALSE),
 451     IA64_HOWTO (R_IA64_TPREL22,     "TPREL22",     0, FALSE, FALSE),
 452     IA64_HOWTO (R_IA64_TPREL64I,    "TPREL64I",    0, FALSE, FALSE),
 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),
 456
 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),
 460
 461     IA64_HOWTO (R_IA64_DTPREL14,    "DTPREL14",    0, FALSE, FALSE),
 462     IA64_HOWTO (R_IA64_DTPREL22,    "DTPREL22",    0, FALSE, FALSE),
 463     IA64_HOWTO (R_IA64_DTPREL64I,   "DTPREL64I",   0, FALSE, FALSE),
 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),
 469   };
 470
 471 static unsigned char elf_code_to_howto_index[R_IA64_MAX_RELOC_CODE + 1];
 472
 473 /* Given a BFD reloc type, return the matching HOWTO structure.  */
 474
 475 static reloc_howto_type *
 476 lookup_howto (rtype)
 477      unsigned int rtype;
 478 {
 479   static int inited = 0;
 480   int i;
 481
 482   if (!inited)
 483     {
 484       inited = 1;
 485
 486       memset (elf_code_to_howto_index, 0xff, sizeof (elf_code_to_howto_index));
 487       for (i = 0; i < NELEMS (ia64_howto_table); ++i)
 488         elf_code_to_howto_index[ia64_howto_table[i].type] = i;
 489     }
 490
 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;
 497 }
 498
 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;
 503 {
 504   unsigned int rtype;
 505
 506   switch (bfd_code)
 507     {
 508     case BFD_RELOC_NONE:                rtype = R_IA64_NONE; break;
 509
 510     case BFD_RELOC_IA64_IMM14:          rtype = R_IA64_IMM14; break;
 511     case BFD_RELOC_IA64_IMM22:          rtype = R_IA64_IMM22; break;
 512     case BFD_RELOC_IA64_IMM64:          rtype = R_IA64_IMM64; break;
 513
 514     case BFD_RELOC_IA64_DIR32MSB:       rtype = R_IA64_DIR32MSB; break;
 515     case BFD_RELOC_IA64_DIR32LSB:       rtype = R_IA64_DIR32LSB; break;
 516     case BFD_RELOC_IA64_DIR64MSB:       rtype = R_IA64_DIR64MSB; break;
 517     case BFD_RELOC_IA64_DIR64LSB:       rtype = R_IA64_DIR64LSB; break;
 518
 519     case BFD_RELOC_IA64_GPREL22:        rtype = R_IA64_GPREL22; break;
 520     case BFD_RELOC_IA64_GPREL64I:       rtype = R_IA64_GPREL64I; break;
 521     case BFD_RELOC_IA64_GPREL32MSB:     rtype = R_IA64_GPREL32MSB; break;
 522     case BFD_RELOC_IA64_GPREL32LSB:     rtype = R_IA64_GPREL32LSB; break;
 523     case BFD_RELOC_IA64_GPREL64MSB:     rtype = R_IA64_GPREL64MSB; break;
 524     case BFD_RELOC_IA64_GPREL64LSB:     rtype = R_IA64_GPREL64LSB; break;
 525
 526     case BFD_RELOC_IA64_LTOFF22:        rtype = R_IA64_LTOFF22; break;
 527     case BFD_RELOC_IA64_LTOFF64I:       rtype = R_IA64_LTOFF64I; break;
 528
 529     case BFD_RELOC_IA64_PLTOFF22:       rtype = R_IA64_PLTOFF22; break;
 530     case BFD_RELOC_IA64_PLTOFF64I:      rtype = R_IA64_PLTOFF64I; break;
 531     case BFD_RELOC_IA64_PLTOFF64MSB:    rtype = R_IA64_PLTOFF64MSB; break;
 532     case BFD_RELOC_IA64_PLTOFF64LSB:    rtype = R_IA64_PLTOFF64LSB; break;
 533     case BFD_RELOC_IA64_FPTR64I:        rtype = R_IA64_FPTR64I; break;
 534     case BFD_RELOC_IA64_FPTR32MSB:      rtype = R_IA64_FPTR32MSB; break;
 535     case BFD_RELOC_IA64_FPTR32LSB:      rtype = R_IA64_FPTR32LSB; break;
 536     case BFD_RELOC_IA64_FPTR64MSB:      rtype = R_IA64_FPTR64MSB; break;
 537     case BFD_RELOC_IA64_FPTR64LSB:      rtype = R_IA64_FPTR64LSB; break;
 538
 539     case BFD_RELOC_IA64_PCREL21B:       rtype = R_IA64_PCREL21B; break;
 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;
 550
 551     case BFD_RELOC_IA64_LTOFF_FPTR22:   rtype = R_IA64_LTOFF_FPTR22; break;
 552     case BFD_RELOC_IA64_LTOFF_FPTR64I:  rtype = R_IA64_LTOFF_FPTR64I; break;
 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;
 557
 558     case BFD_RELOC_IA64_SEGREL32MSB:    rtype = R_IA64_SEGREL32MSB; break;
 559     case BFD_RELOC_IA64_SEGREL32LSB:    rtype = R_IA64_SEGREL32LSB; break;
 560     case BFD_RELOC_IA64_SEGREL64MSB:    rtype = R_IA64_SEGREL64MSB; break;
 561     case BFD_RELOC_IA64_SEGREL64LSB:    rtype = R_IA64_SEGREL64LSB; break;
 562
 563     case BFD_RELOC_IA64_SECREL32MSB:    rtype = R_IA64_SECREL32MSB; break;
 564     case BFD_RELOC_IA64_SECREL32LSB:    rtype = R_IA64_SECREL32LSB; break;
 565     case BFD_RELOC_IA64_SECREL64MSB:    rtype = R_IA64_SECREL64MSB; break;
 566     case BFD_RELOC_IA64_SECREL64LSB:    rtype = R_IA64_SECREL64LSB; break;
 567
 568     case BFD_RELOC_IA64_REL32MSB:       rtype = R_IA64_REL32MSB; break;
 569     case BFD_RELOC_IA64_REL32LSB:       rtype = R_IA64_REL32LSB; break;
 570     case BFD_RELOC_IA64_REL64MSB:       rtype = R_IA64_REL64MSB; break;
 571     case BFD_RELOC_IA64_REL64LSB:       rtype = R_IA64_REL64LSB; break;
 572
 573     case BFD_RELOC_IA64_LTV32MSB:       rtype = R_IA64_LTV32MSB; break;
 574     case BFD_RELOC_IA64_LTV32LSB:       rtype = R_IA64_LTV32LSB; break;
 575     case BFD_RELOC_IA64_LTV64MSB:       rtype = R_IA64_LTV64MSB; break;
 576     case BFD_RELOC_IA64_LTV64LSB:       rtype = R_IA64_LTV64LSB; break;
 577
 578     case BFD_RELOC_IA64_IPLTMSB:        rtype = R_IA64_IPLTMSB; break;
 579     case BFD_RELOC_IA64_IPLTLSB:        rtype = R_IA64_IPLTLSB; break;
 580     case BFD_RELOC_IA64_COPY:           rtype = R_IA64_COPY; break;
 581     case BFD_RELOC_IA64_LTOFF22X:       rtype = R_IA64_LTOFF22X; break;
 582     case BFD_RELOC_IA64_LDXMOV:         rtype = R_IA64_LDXMOV; break;
 583
 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;
 590
 591     case BFD_RELOC_IA64_DTPMOD64MSB:    rtype = R_IA64_DTPMOD64MSB; break;
 592     case BFD_RELOC_IA64_DTPMOD64LSB:    rtype = R_IA64_DTPMOD64LSB; break;
 593     case BFD_RELOC_IA64_LTOFF_DTPMOD22: rtype = R_IA64_LTOFF_DTPMOD22; break;
 594
 595     case BFD_RELOC_IA64_DTPREL14:       rtype = R_IA64_DTPREL14; break;
 596     case BFD_RELOC_IA64_DTPREL22:       rtype = R_IA64_DTPREL22; break;
 597     case BFD_RELOC_IA64_DTPREL64I:      rtype = R_IA64_DTPREL64I; break;
 598     case BFD_RELOC_IA64_DTPREL32MSB:    rtype = R_IA64_DTPREL32MSB; break;
 599     case BFD_RELOC_IA64_DTPREL32LSB:    rtype = R_IA64_DTPREL32LSB; break;
 600     case BFD_RELOC_IA64_DTPREL64MSB:    rtype = R_IA64_DTPREL64MSB; break;
 601     case BFD_RELOC_IA64_DTPREL64LSB:    rtype = R_IA64_DTPREL64LSB; break;
 602     case BFD_RELOC_IA64_LTOFF_DTPREL22: rtype = R_IA64_LTOFF_DTPREL22; break;
 603
 604     default: return 0;
 605     }
 606   return lookup_howto (rtype);
 607 }
 608
 609 /* Given a ELF reloc, return the matching HOWTO structure.  */
 610
 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;
 616 {
 617   bfd_reloc->howto
 618     = lookup_howto ((unsigned int) ELFNN_R_TYPE (elf_reloc->r_info));
 619 }
 620 \f
 621 #define PLT_HEADER_SIZE         (3 * 16)
 622 #define PLT_MIN_ENTRY_SIZE      (1 * 16)
 623 #define PLT_FULL_ENTRY_SIZE     (2 * 16)
 624 #define PLT_RESERVED_WORDS      3
 625
 626 static const bfd_byte plt_header[PLT_HEADER_SIZE] =
 627 {
 628   0x0b, 0x10, 0x00, 0x1c, 0x00, 0x21,  /*   [MMI]       mov r2=r14;;       */
 629   0xe0, 0x00, 0x08, 0x00, 0x48, 0x00,  /*               addl r14=0,r2      */
 630   0x00, 0x00, 0x04, 0x00,              /*               nop.i 0x0;;        */
 631   0x0b, 0x80, 0x20, 0x1c, 0x18, 0x14,  /*   [MMI]       ld8 r16=[r14],8;;  */
 632   0x10, 0x41, 0x38, 0x30, 0x28, 0x00,  /*               ld8 r17=[r14],8    */
 633   0x00, 0x00, 0x04, 0x00,              /*               nop.i 0x0;;        */
 634   0x11, 0x08, 0x00, 0x1c, 0x18, 0x10,  /*   [MIB]       ld8 r1=[r14]       */
 635   0x60, 0x88, 0x04, 0x80, 0x03, 0x00,  /*               mov b6=r17         */
 636   0x60, 0x00, 0x80, 0x00               /*               br.few b6;;        */
 637 };
 638
 639 static const bfd_byte plt_min_entry[PLT_MIN_ENTRY_SIZE] =
 640 {
 641   0x11, 0x78, 0x00, 0x00, 0x00, 0x24,  /*   [MIB]       mov r15=0          */
 642   0x00, 0x00, 0x00, 0x02, 0x00, 0x00,  /*               nop.i 0x0          */
 643   0x00, 0x00, 0x00, 0x40               /*               br.few 0 <PLT0>;;  */
 644 };
 645
 646 static const bfd_byte plt_full_entry[PLT_FULL_ENTRY_SIZE] =
 647 {
 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;;        */
 654 };
 655
 656 #define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
 657
 658 static const bfd_byte oor_brl[16] =
 659 {
 660   0x05, 0x00, 0x00, 0x00, 0x01, 0x00,  /*  [MLX]        nop.m 0            */
 661   0x00, 0x00, 0x00, 0x00, 0x00, 0x00,  /*               brl.sptk.few tgt;; */
 662   0x00, 0x00, 0x00, 0xc0
 663 };
 664
 665 static const bfd_byte oor_ip[48] =
 666 {
 667   0x04, 0x00, 0x00, 0x00, 0x01, 0x00,  /*  [MLX]        nop.m 0            */
 668   0x00, 0x00, 0x00, 0x00, 0x00, 0xe0,  /*               movl r15=0         */
 669   0x01, 0x00, 0x00, 0x60,
 670   0x03, 0x00, 0x00, 0x00, 0x01, 0x00,  /*  [MII]        nop.m 0            */
 671   0x00, 0x01, 0x00, 0x60, 0x00, 0x00,  /*               mov r16=ip;;       */
 672   0xf2, 0x80, 0x00, 0x80,              /*               add r16=r15,r16;;  */
 673   0x11, 0x00, 0x00, 0x00, 0x01, 0x00,  /*  [MIB]        nop.m 0            */
 674   0x60, 0x80, 0x04, 0x80, 0x03, 0x00,  /*               mov b6=r16         */
 675   0x60, 0x00, 0x80, 0x00               /*               br b6;;            */
 676 };
 677
 678 static size_t oor_branch_size = sizeof (oor_brl);
 679
 680 void
 681 bfd_elfNN_ia64_after_parse (int itanium)
 682 {
 683   oor_branch_size = itanium ? sizeof (oor_ip) : sizeof (oor_brl);
 684 }
 685
 686 #define BTYPE_SHIFT     6
 687 #define Y_SHIFT         26
 688 #define X6_SHIFT        27
 689 #define X4_SHIFT        27
 690 #define X3_SHIFT        33
 691 #define X2_SHIFT        31
 692 #define X_SHIFT         33
 693 #define OPCODE_SHIFT    37
 694
 695 #define OPCODE_BITS     (0xfLL << OPCODE_SHIFT)
 696 #define X6_BITS         (0x3fLL << X6_SHIFT)
 697 #define X4_BITS         (0xfLL << X4_SHIFT)
 698 #define X3_BITS         (0x7LL << X3_SHIFT)
 699 #define X2_BITS         (0x3LL << X2_SHIFT)
 700 #define X_BITS          (0x1LL << X_SHIFT)
 701 #define Y_BITS          (0x1LL << Y_SHIFT)
 702 #define BTYPE_BITS      (0x7LL << BTYPE_SHIFT)
 703 #define PREDICATE_BITS  (0x3fLL)
 704
 705 #define IS_NOP_B(i) \
 706   (((i) & (OPCODE_BITS | X6_BITS)) == (2LL << OPCODE_SHIFT))
 707 #define IS_NOP_F(i) \
 708   (((i) & (OPCODE_BITS | X_BITS | X6_BITS | Y_BITS)) \
 709    == (0x1LL << X6_SHIFT))
 710 #define IS_NOP_I(i) \
 711   (((i) & (OPCODE_BITS | X3_BITS | X6_BITS | Y_BITS)) \
 712    == (0x1LL << X6_SHIFT))
 713 #define IS_NOP_M(i) \
 714   (((i) & (OPCODE_BITS | X3_BITS | X2_BITS | X4_BITS | Y_BITS)) \
 715    == (0x1LL << X4_SHIFT))
 716 #define IS_BR_COND(i) \
 717   (((i) & (OPCODE_BITS | BTYPE_BITS)) == (0x4LL << OPCODE_SHIFT))
 718 #define IS_BR_CALL(i) \
 719   (((i) & OPCODE_BITS) == (0x5LL << OPCODE_SHIFT))
 720
 721 static bfd_boolean
 722 elfNN_ia64_relax_br (bfd_byte *contents, bfd_vma off)
 723 {
 724   unsigned int template, mlx;
 725   bfd_vma t0, t1, s0, s1, s2, br_code;
 726   long br_slot;
 727   bfd_byte *hit_addr;
 728
 729   hit_addr = (bfd_byte *) (contents + off);
 730   br_slot = (long) hit_addr & 0x3;
 731   hit_addr -= br_slot;
 732   t0 = bfd_getl64 (hit_addr + 0);
 733   t1 = bfd_getl64 (hit_addr + 8);
 734
 735   /* Check if we can turn br into brl.  A label is always at the start
 736      of the bundle.  Even if there are predicates on NOPs, we still
 737      perform this optimization.  */
 738   template = t0 & 0x1e;
 739   s0 = (t0 >> 5) & 0x1ffffffffffLL;
 740   s1 = ((t0 >> 46) | (t1 << 18)) & 0x1ffffffffffLL;
 741   s2 = (t1 >> 23) & 0x1ffffffffffLL;
 742   switch (br_slot)
 743     {
 744     case 0:
 745       /* Check if slot 1 and slot 2 are NOPs. Possible template is
 746          BBB.  We only need to check nop.b.  */
 747       if (!(IS_NOP_B (s1) && IS_NOP_B (s2)))
 748         return FALSE;
 749       br_code = s0;
 750       break;
 751     case 1:
 752       /* Check if slot 2 is NOP. Possible templates are MBB and BBB.
 753          For BBB, slot 0 also has to be nop.b.  */
 754       if (!((template == 0x12                           /* MBB */
 755              && IS_NOP_B (s2))
 756             || (template == 0x16                        /* BBB */
 757                 && IS_NOP_B (s0)
 758                 && IS_NOP_B (s2))))
 759         return FALSE;
 760       br_code = s1;
 761       break;
 762     case 2:
 763       /* Check if slot 1 is NOP. Possible templates are MIB, MBB, BBB,
 764          MMB and MFB. For BBB, slot 0 also has to be nop.b.  */
 765       if (!((template == 0x10                           /* MIB */
 766              && IS_NOP_I (s1))
 767             || (template == 0x12                        /* MBB */
 768                 && IS_NOP_B (s1))
 769             || (template == 0x16                        /* BBB */
 770                 && IS_NOP_B (s0)
 771                 && IS_NOP_B (s1))
 772             || (template == 0x18                        /* MMB */
 773                 && IS_NOP_M (s1))
 774             || (template == 0x1c                        /* MFB */
 775                 && IS_NOP_F (s1))))
 776         return FALSE;
 777       br_code = s2;
 778       break;
 779     default:
 780       /* It should never happen.  */
 781       abort ();
 782     }
 783
 784   /* We can turn br.cond/br.call into brl.cond/brl.call.  */
 785   if (!(IS_BR_COND (br_code) || IS_BR_CALL (br_code)))
 786     return FALSE;
 787
 788   /* Turn br into brl by setting bit 40.  */
 789   br_code |= 0x1LL << 40;
 790
 791   /* Turn the old bundle into a MLX bundle with the same stop-bit
 792      variety.  */
 793   if (t0 & 0x1)
 794     mlx = 0x5;
 795   else
 796     mlx = 0x4;
 797
 798   if (template == 0x16)
 799     {
 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);
 807     }
 808   else
 809     {
 810       /* Keep the original instruction in slot 0.  */
 811       t0 &= 0x1ffffffffffLL << 5;
 812     }
 813
 814   t0 |= mlx;
 815
 816   /* Put brl in slot 1.  */
 817   t1 = br_code << 23;
 818
 819   bfd_putl64 (t0, hit_addr);
 820   bfd_putl64 (t1, hit_addr + 8);
 821   return TRUE;
 822 }
 823
 824 static void
 825 elfNN_ia64_relax_brl (bfd_byte *contents, bfd_vma off)
 826 {
 827   int template;
 828   bfd_byte *hit_addr;
 829   bfd_vma t0, t1, i0, i1, i2;
 830
 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);
 835
 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;
 842
 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);
 851
 852   bfd_putl64 (t0, hit_addr);
 853   bfd_putl64 (t1, hit_addr + 8);
 854 }
 855 \f
 856 /* These functions do relaxation for IA-64 ELF.  */
 857
 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;
 864 {
 865   struct one_fixup
 866     {
 867       struct one_fixup *next;
 868       asection *tsec;
 869       bfd_vma toff;
 870       bfd_vma trampoff;
 871     };
 872
 873   Elf_Internal_Shdr *symtab_hdr;
 874   Elf_Internal_Rela *internal_relocs;
 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;
 884
 885   /* Assume we're not going to change any sizes, and we'll only need
 886      one pass.  */
 887   *again = FALSE;
 888
 889   /* Don't even try to relax for non-ELF outputs.  */
 890   if (!is_elf_hash_table (link_info->hash))
 891     return FALSE;
 892
 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;
 900
 901   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
 902
 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;
 909
 910   ia64_info = elfNN_ia64_hash_table (link_info);
 911   irelend = internal_relocs + sec->reloc_count;
 912
 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
 917     {
 918       if (!bfd_malloc_and_get_section (abfd, sec, &contents))
 919         goto error_return;
 920     }
 921
 922   for (irel = internal_relocs; irel < irelend; irel++)
 923     {
 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;
 932
 933       switch (r_type)
 934         {
 935         case R_IA64_PCREL21B:
 936         case R_IA64_PCREL21BI:
 937         case R_IA64_PCREL21M:
 938         case R_IA64_PCREL21F:
 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;
 945
 946         case R_IA64_PCREL60B:
 947           /* We can't optimize brl to br before the finalize pass since
 948              br relaxations will increase the code size. Defer it to
 949              the finalize pass.  */
 950           if (link_info->need_relax_finalize)
 951             {
 952               sec->need_finalize_relax = 1;
 953               continue;
 954             }
 955           is_branch = TRUE;
 956           break;
 957
 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)
 964             {
 965               sec->need_finalize_relax = 1;
 966               continue;
 967             }
 968           is_branch = FALSE;
 969           break;
 970
 971         default:
 972           continue;
 973         }
 974
 975       /* Get the value of the symbol referred to by the reloc.  */
 976       if (ELFNN_R_SYM (irel->r_info) < symtab_hdr->sh_info)
 977         {
 978           /* A local symbol.  */
 979           Elf_Internal_Sym *isym;
 980
 981           /* Read this BFD's local symbols.  */
 982           if (isymbuf == NULL)
 983             {
 984               isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
 985               if (isymbuf == NULL)
 986                 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
 987                                                 symtab_hdr->sh_info, 0,
 988                                                 NULL, NULL, NULL);
 989               if (isymbuf == 0)
 990                 goto error_return;
 991             }
 992
 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);
1004
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);
1008         }
1009       else
1010         {
1011           unsigned long indx;
1012           struct elf_link_hash_entry *h;
1013
1014           indx = ELFNN_R_SYM (irel->r_info) - symtab_hdr->sh_info;
1015           h = elf_sym_hashes (abfd)[indx];
1016           BFD_ASSERT (h != NULL);
1017
1018           while (h->root.type == bfd_link_hash_indirect
1019                  || h->root.type == bfd_link_hash_warning)
1020             h = (struct elf_link_hash_entry *) h->root.u.i.link;
1021
1022           dyn_i = get_dyn_sym_info (ia64_info, h, abfd, irel, FALSE);
1023
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)
1027             {
1028               /* Internal branches shouldn't be sent to the PLT.
1029                  Leave this for now and we'll give an error later.  */
1030               if (r_type != R_IA64_PCREL21B)
1031                 continue;
1032
1033               tsec = ia64_info->plt_sec;
1034               toff = dyn_i->plt2_offset;
1035               BFD_ASSERT (irel->r_addend == 0);
1036             }
1037
1038           /* Can't do anything else with dynamic symbols.  */
1039           else if (elfNN_ia64_dynamic_symbol_p (h, link_info, r_type))
1040             continue;
1041
1042           else
1043             {
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;
1048
1049               tsec = h->root.u.def.section;
1050               toff = h->root.u.def.value;
1051             }
1052
1053           symtype = h->type;
1054         }
1055
1056       if (tsec->sec_info_type == ELF_INFO_TYPE_MERGE)
1057         {
1058           /* At this stage in linking, no SEC_MERGE symbol has been
1059              adjusted, so all references to such symbols need to be
1060              passed through _bfd_merged_section_offset.  (Later, in
1061              relocate_section, all SEC_MERGE symbols *except* for
1062              section symbols have been adjusted.)
1063
1064              gas may reduce relocations against symbols in SEC_MERGE
1065              sections to a relocation against the section symbol when
1066              the original addend was zero.  When the reloc is against
1067              a section symbol we should include the addend in the
1068              offset passed to _bfd_merged_section_offset, since the
1069              location of interest is the original symbol.  On the
1070              other hand, an access to "sym+addend" where "sym" is not
1071              a section symbol should not include the addend;  Such an
1072              access is presumed to be an offset from "sym";  The
1073              location of interest is just "sym".  */
1074            if (symtype == STT_SECTION)
1075              toff += irel->r_addend;
1076
1077            toff = _bfd_merged_section_offset (abfd, &tsec,
1078                                               elf_section_data (tsec)->sec_info,
1079                                               toff);
1080
1081            if (symtype != STT_SECTION)
1082              toff += irel->r_addend;
1083         }
1084       else
1085         toff += irel->r_addend;
1086
1087       symaddr = tsec->output_section->vma + tsec->output_offset + toff;
1088
1089       roff = irel->r_offset;
1090
1091       if (is_branch)
1092         {
1093           bfd_signed_vma offset;
1094
1095           reladdr = (sec->output_section->vma
1096                      + sec->output_offset
1097                      + roff) & (bfd_vma) -4;
1098
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)
1102             {
1103               /* If the 60-bit branch is in 21-bit range, optimize it. */
1104               if (r_type == R_IA64_PCREL60B)
1105                 {
1106                   elfNN_ia64_relax_brl (contents, roff);
1107
1108                   irel->r_info
1109                     = ELFNN_R_INFO (ELFNN_R_SYM (irel->r_info),
1110                                     R_IA64_PCREL21B);
1111
1112                   /* If the original relocation offset points to slot
1113                      1, change it to slot 2.  */
1114                   if ((irel->r_offset & 3) == 1)
1115                     irel->r_offset += 1;
1116                 }
1117
1118               continue;
1119             }
1120           else if (r_type == R_IA64_PCREL60B)
1121             continue;
1122           else if (elfNN_ia64_relax_br (contents, roff))
1123             {
1124               irel->r_info
1125                 = ELFNN_R_INFO (ELFNN_R_SYM (irel->r_info),
1126                                 R_IA64_PCREL60B);
1127
1128               /* Make the relocation offset point to slot 1.  */
1129               irel->r_offset = (irel->r_offset & ~((bfd_vma) 0x3)) + 1;
1130               continue;
1131             }
1132
1133           /* We can't put a trampoline in a .init/.fini section. Issue
1134              an error.  */
1135           if (strcmp (sec->output_section->name, ".init") == 0
1136               || strcmp (sec->output_section->name, ".fini") == 0)
1137             {
1138               (*_bfd_error_handler)
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;
1143             }
1144
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;
1151
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;
1156
1157           if (f == NULL)
1158             {
1159               /* Two alternatives: If it's a branch to a PLT entry, we can
1160                  make a copy of the FULL_PLT entry.  Otherwise, we'll have
1161                  to use a `brl' insn to get where we're going.  */
1162
1163               size_t size;
1164
1165               if (tsec == ia64_info->plt_sec)
1166                 size = sizeof (plt_full_entry);
1167               else
1168                 size = oor_branch_size;
1169
1170               /* Resize the current section to make room for the new branch. */
1171               trampoff = (sec->size + 15) & (bfd_vma) -16;
1172
1173               /* If trampoline is out of range, there is nothing we
1174                  can do.  */
1175               offset = trampoff - (roff & (bfd_vma) -4);
1176               if (offset < -0x1000000 || offset > 0x0FFFFF0)
1177                 continue;
1178
1179               amt = trampoff + size;
1180               contents = (bfd_byte *) bfd_realloc (contents, amt);
1181               if (contents == NULL)
1182                 goto error_return;
1183               sec->size = amt;
1184
1185               if (tsec == ia64_info->plt_sec)
1186                 {
1187                   memcpy (contents + trampoff, plt_full_entry, size);
1188
1189                   /* Hijack the old relocation for use as the PLTOFF reloc.  */
1190                   irel->r_info = ELFNN_R_INFO (ELFNN_R_SYM (irel->r_info),
1191                                                R_IA64_PLTOFF22);
1192                   irel->r_offset = trampoff;
1193                 }
1194               else
1195                 {
1196                   if (size == sizeof (oor_ip))
1197                     {
1198                       memcpy (contents + trampoff, oor_ip, size);
1199                       irel->r_info = ELFNN_R_INFO (ELFNN_R_SYM (irel->r_info),
1200                                                    R_IA64_PCREL64I);
1201                       irel->r_addend -= 16;
1202                       irel->r_offset = trampoff + 2;
1203                     }
1204                   else
1205                     {
1206                       memcpy (contents + trampoff, oor_brl, size);
1207                       irel->r_info = ELFNN_R_INFO (ELFNN_R_SYM (irel->r_info),
1208                                                    R_IA64_PCREL60B);
1209                       irel->r_offset = trampoff + 2;
1210                     }
1211
1212                 }
1213
1214               /* Record the fixup so we don't do it again this section.  */
1215               f = (struct one_fixup *)
1216                 bfd_malloc ((bfd_size_type) sizeof (*f));
1217               f->next = fixups;
1218               f->tsec = tsec;
1219               f->toff = toff;
1220               f->trampoff = trampoff;
1221               fixups = f;
1222             }
1223           else
1224             {
1225               /* If trampoline is out of range, there is nothing we
1226                  can do.  */
1227               offset = f->trampoff - (roff & (bfd_vma) -4);
1228               if (offset < -0x1000000 || offset > 0x0FFFFF0)
1229                 continue;
1230
1231               /* Nop out the reloc, since we're finalizing things here.  */
1232               irel->r_info = ELFNN_R_INFO (0, R_IA64_NONE);
1233             }
1234
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;
1239
1240           changed_contents = TRUE;
1241           changed_relocs = TRUE;
1242         }
1243       else
1244         {
1245           /* Fetch the gp.  */
1246           if (gp == 0)
1247             {
1248               bfd *obfd = sec->output_section->owner;
1249               gp = _bfd_get_gp_value (obfd);
1250               if (gp == 0)
1251                 {
1252                   if (!elfNN_ia64_choose_gp (obfd, link_info))
1253                     goto error_return;
1254                   gp = _bfd_get_gp_value (obfd);
1255                 }
1256             }
1257
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;
1262
1263           if (r_type == R_IA64_LTOFF22X)
1264             {
1265               irel->r_info = ELFNN_R_INFO (ELFNN_R_SYM (irel->r_info),
1266                                            R_IA64_GPREL22);
1267               changed_relocs = TRUE;
1268               if (dyn_i->want_gotx)
1269                 {
1270                   dyn_i->want_gotx = 0;
1271                   changed_got |= !dyn_i->want_got;
1272                 }
1273             }
1274           else
1275             {
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;
1280             }
1281         }
1282     }
1283
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.  */
1288
1289   /* Clean up and go home.  */
1290   while (fixups)
1291     {
1292       struct one_fixup *f = fixups;
1293       fixups = fixups->next;
1294       free (f);
1295     }
1296
1297   if (isymbuf != NULL
1298       && symtab_hdr->contents != (unsigned char *) isymbuf)
1299     {
1300       if (! link_info->keep_memory)
1301         free (isymbuf);
1302       else
1303         {
1304           /* Cache the symbols for elf_link_input_bfd.  */
1305           symtab_hdr->contents = (unsigned char *) isymbuf;
1306         }
1307     }
1308
1309   if (contents != NULL
1310       && elf_section_data (sec)->this_hdr.contents != contents)
1311     {
1312       if (!changed_contents && !link_info->keep_memory)
1313         free (contents);
1314       else
1315         {
1316           /* Cache the section contents for elf_link_input_bfd.  */
1317           elf_section_data (sec)->this_hdr.contents = contents;
1318         }
1319     }
1320
1321   if (elf_section_data (sec)->relocs != internal_relocs)
1322     {
1323       if (!changed_relocs)
1324         free (internal_relocs);
1325       else
1326         elf_section_data (sec)->relocs = internal_relocs;
1327     }
1328
1329   if (changed_got)
1330     {
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;
1335
1336       elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_global_data_got, &data);
1337       elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_global_fptr_got, &data);
1338       elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_local_got, &data);
1339       ia64_info->got_sec->size = data.ofs;
1340
1341       if (ia64_info->root.dynamic_sections_created
1342           && ia64_info->rel_got_sec != NULL)
1343         {
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);
1352         }
1353     }
1354
1355   if (!link_info->need_relax_finalize)
1356     sec->need_finalize_relax = 0;
1357
1358   *again = changed_contents || changed_relocs;
1359   return TRUE;
1360
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;
1371 }
1372
1373 static void
1374 elfNN_ia64_relax_ldxmov (contents, off)
1375      bfd_byte *contents;
1376      bfd_vma off;
1377 {
1378   int shift, r1, r3;
1379   bfd_vma dword, insn;
1380
1381   switch ((int)off & 0x3)
1382     {
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 ();
1388     }
1389
1390   dword = bfd_getl64 (contents + off);
1391   insn = (dword >> shift) & 0x1ffffffffffLL;
1392
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 */
1399
1400   dword &= ~(0x1ffffffffffLL << shift);
1401   dword |= (insn << shift);
1402   bfd_putl64 (dword, contents + off);
1403 }
1404 \f
1405 /* Return TRUE if NAME is an unwind table section name.  */
1406
1407 static inline bfd_boolean
1408 is_unwind_section_name (abfd, name)
1409         bfd *abfd;
1410         const char *name;
1411 {
1412   size_t len1, len2, len3;
1413
1414   if (elfNN_ia64_hpux_vec (abfd->xvec)
1415       && !strcmp (name, ELF_STRING_ia64_unwind_hdr))
1416     return FALSE;
1417
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);
1424 }
1425
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.  */
1429
1430 static bfd_boolean
1431 elfNN_ia64_section_from_shdr (bfd *abfd,
1432                               Elf_Internal_Shdr *hdr,
1433                               const char *name,
1434                               int shindex)
1435 {
1436   asection *newsect;
1437
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)
1444     {
1445     case SHT_IA_64_UNWIND:
1446     case SHT_IA_64_HP_OPT_ANOT:
1447       break;
1448
1449     case SHT_IA_64_EXT:
1450       if (strcmp (name, ELF_STRING_ia64_archext) != 0)
1451         return FALSE;
1452       break;
1453
1454     default:
1455       return FALSE;
1456     }
1457
1458   if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name, shindex))
1459     return FALSE;
1460   newsect = hdr->bfd_section;
1461
1462   return TRUE;
1463 }
1464
1465 /* Convert IA-64 specific section flags to bfd internal section flags.  */
1466
1467 /* ??? There is no bfd internal flag equivalent to the SHF_IA_64_NORECOV
1468    flag.  */
1469
1470 static bfd_boolean
1471 elfNN_ia64_section_flags (flags, hdr)
1472      flagword *flags;
1473      const Elf_Internal_Shdr *hdr;
1474 {
1475   if (hdr->sh_flags & SHF_IA_64_SHORT)
1476     *flags |= SEC_SMALL_DATA;
1477
1478   return TRUE;
1479 }
1480
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.  */
1483
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;
1489 {
1490   register const char *name;
1491
1492   name = bfd_get_section_name (abfd, sec);
1493
1494   if (is_unwind_section_name (abfd, name))
1495     {
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;
1500     }
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;
1523
1524   if (sec->flags & SEC_SMALL_DATA)
1525     hdr->sh_flags |= SHF_IA_64_SHORT;
1526
1527   return TRUE;
1528 }
1529
1530 /* The final processing done just before writing out an IA-64 ELF
1531    object file.  */
1532
1533 static void
1534 elfNN_ia64_final_write_processing (abfd, linker)
1535      bfd *abfd;
1536      bfd_boolean linker ATTRIBUTE_UNUSED;
1537 {
1538   Elf_Internal_Shdr *hdr;
1539   asection *s;
1540
1541   for (s = abfd->sections; s; s = s->next)
1542     {
1543       hdr = &elf_section_data (s)->this_hdr;
1544       switch (hdr->sh_type)
1545         {
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;
1553         }
1554     }
1555
1556   if (! elf_flags_init (abfd))
1557     {
1558       unsigned long flags = 0;
1559
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;
1564
1565       elf_elfheader(abfd)->e_flags = flags;
1566       elf_flags_init (abfd) = TRUE;
1567     }
1568 }
1569
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.  */
1572
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;
1582 {
1583   if (sym->st_shndx == SHN_COMMON
1584       && !info->relocatable
1585       && sym->st_size <= elf_gp_size (abfd))
1586     {
1587       /* Common symbols less than or equal to -G nn bytes are
1588          automatically put into .sbss.  */
1589
1590       asection *scomm = bfd_get_section_by_name (abfd, ".scommon");
1591
1592       if (scomm == NULL)
1593         {
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;
1600         }
1601
1602       *secp = scomm;
1603       *valp = sym->st_size;
1604     }
1605
1606   return TRUE;
1607 }
1608
1609 /* Return the number of additional phdrs we will need.  */
1610
1611 static int
1612 elfNN_ia64_additional_program_headers (abfd)
1613      bfd *abfd;
1614 {
1615   asection *s;
1616   int ret = 0;
1617
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;
1622
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;
1627
1628   return ret;
1629 }
1630
1631 static bfd_boolean
1632 elfNN_ia64_modify_segment_map (abfd, info)
1633      bfd *abfd;
1634      struct bfd_link_info *info ATTRIBUTE_UNUSED;
1635 {
1636   struct elf_segment_map *m, **pm;
1637   Elf_Internal_Shdr *hdr;
1638   asection *s;
1639
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))
1644     {
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)
1649         {
1650           m = ((struct elf_segment_map *)
1651                bfd_zalloc (abfd, (bfd_size_type) sizeof *m));
1652           if (m == NULL)
1653             return FALSE;
1654
1655           m->p_type = PT_IA_64_ARCHEXT;
1656           m->count = 1;
1657           m->sections[0] = s;
1658
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;
1665
1666           m->next = *pm;
1667           *pm = m;
1668         }
1669     }
1670
1671   /* Install PT_IA_64_UNWIND segments, if needed.  */
1672   for (s = abfd->sections; s; s = s->next)
1673     {
1674       hdr = &elf_section_data (s)->this_hdr;
1675       if (hdr->sh_type != SHT_IA_64_UNWIND)
1676         continue;
1677
1678       if (s && (s->flags & SEC_LOAD))
1679         {
1680           for (m = elf_tdata (abfd)->segment_map; m != NULL; m = m->next)
1681             if (m->p_type == PT_IA_64_UNWIND)
1682               {
1683                 int i;
1684
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;
1691
1692                 if (i >= 0)
1693                   break;
1694               }
1695
1696           if (m == NULL)
1697             {
1698               m = ((struct elf_segment_map *)
1699                    bfd_zalloc (abfd, (bfd_size_type) sizeof *m));
1700               if (m == NULL)
1701                 return FALSE;
1702
1703               m->p_type = PT_IA_64_UNWIND;
1704               m->count = 1;
1705               m->sections[0] = s;
1706               m->next = NULL;
1707
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;
1713             }
1714         }
1715     }
1716
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)
1722       {
1723         int i;
1724         for (i = m->count - 1; i >= 0; --i)
1725           {
1726             struct bfd_link_order *order = m->sections[i]->map_head.link_order;
1727             while (order)
1728               {
1729                 if (order->type == bfd_indirect_link_order)
1730                   {
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)
1734                       {
1735                         m->p_flags |= PF_IA_64_NORECOV;
1736                         goto found;
1737                       }
1738                   }
1739                 order = order->next;
1740               }
1741           }
1742       found:;
1743       }
1744
1745   return TRUE;
1746 }
1747
1748 /* According to the Tahoe assembler spec, all labels starting with a
1749    '.' are local.  */
1750
1751 static bfd_boolean
1752 elfNN_ia64_is_local_label_name (abfd, name)
1753      bfd *abfd ATTRIBUTE_UNUSED;
1754      const char *name;
1755 {
1756   return name[0] == '.';
1757 }
1758
1759 /* Should we do dynamic things to this symbol?  */
1760
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;
1766 {
1767   bfd_boolean ignore_protected
1768     = ((r_type & 0xf8) == 0x40          /* FPTR relocs */
1769        || (r_type & 0xf8) == 0x50);     /* LTOFF_FPTR relocs */
1770
1771   return _bfd_elf_dynamic_symbol_p (h, info, ignore_protected);
1772 }
1773 \f
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;
1779 {
1780   struct elfNN_ia64_link_hash_entry *ret;
1781   ret = (struct elfNN_ia64_link_hash_entry *) entry;
1782
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));
1787
1788   if (!ret)
1789     return 0;
1790
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));
1795
1796   ret->info = NULL;
1797   return (struct bfd_hash_entry *) ret;
1798 }
1799
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;
1804 {
1805   struct elfNN_ia64_link_hash_entry *dir, *ind;
1806
1807   dir = (struct elfNN_ia64_link_hash_entry *) xdir;
1808   ind = (struct elfNN_ia64_link_hash_entry *) xind;
1809
1810   /* Copy down any references that we may have already seen to the
1811      symbol which just became indirect.  */
1812
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;
1817
1818   if (ind->root.root.type != bfd_link_hash_indirect)
1819     return;
1820
1821   /* Copy over the got and plt data.  This would have been done
1822      by check_relocs.  */
1823
1824   if (dir->info == NULL)
1825     {
1826       struct elfNN_ia64_dyn_sym_info *dyn_i;
1827
1828       dir->info = dyn_i = ind->info;
1829       ind->info = NULL;
1830
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;
1834     }
1835   BFD_ASSERT (ind->info == NULL);
1836
1837   /* Copy over the dynindx.  */
1838
1839   if (dir->root.dynindx == -1)
1840     {
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;
1845     }
1846   BFD_ASSERT (ind->root.dynindx == -1);
1847 }
1848
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;
1854 {
1855   struct elfNN_ia64_link_hash_entry *h;
1856   struct elfNN_ia64_dyn_sym_info *dyn_i;
1857
1858   h = (struct elfNN_ia64_link_hash_entry *)xh;
1859
1860   _bfd_elf_link_hash_hide_symbol (info, &h->root, force_local);
1861
1862   for (dyn_i = h->info; dyn_i; dyn_i = dyn_i->next)
1863     {
1864       dyn_i->want_plt2 = 0;
1865       dyn_i->want_plt = 0;
1866     }
1867 }
1868
1869 /* Compute a hash of a local hash entry.  */
1870
1871 static hashval_t
1872 elfNN_ia64_local_htab_hash (ptr)
1873      const void *ptr;
1874 {
1875   struct elfNN_ia64_local_hash_entry *entry
1876     = (struct elfNN_ia64_local_hash_entry *) ptr;
1877
1878   return (((entry->id & 0xff) << 24) | ((entry->id & 0xff00) << 8))
1879           ^ entry->r_sym ^ (entry->id >> 16);
1880 }
1881
1882 /* Compare local hash entries.  */
1883
1884 static int
1885 elfNN_ia64_local_htab_eq (ptr1, ptr2)
1886      const void *ptr1, *ptr2;
1887 {
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;
1892
1893   return entry1->id == entry2->id && entry1->r_sym == entry2->r_sym;
1894 }
1895
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).  */
1899
1900 static struct bfd_link_hash_table*
1901 elfNN_ia64_hash_table_create (abfd)
1902      bfd *abfd;
1903 {
1904   struct elfNN_ia64_link_hash_table *ret;
1905
1906   ret = bfd_zmalloc ((bfd_size_type) sizeof (*ret));
1907   if (!ret)
1908     return 0;
1909
1910   if (!_bfd_elf_link_hash_table_init (&ret->root, abfd,
1911                                       elfNN_ia64_new_elf_hash_entry))
1912     {
1913       free (ret);
1914       return 0;
1915     }
1916
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)
1921     {
1922       free (ret);
1923       return 0;
1924     }
1925
1926   return &ret->root.root;
1927 }
1928
1929 /* Destroy IA-64 linker hash table.  */
1930
1931 static void
1932 elfNN_ia64_hash_table_free (hash)
1933      struct bfd_link_hash_table *hash;
1934 {
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);
1942 }
1943
1944 /* Traverse both local and global hash tables.  */
1945
1946 struct elfNN_ia64_dyn_sym_traverse_data
1947 {
1948   bfd_boolean (*func) PARAMS ((struct elfNN_ia64_dyn_sym_info *, PTR));
1949   PTR data;
1950 };
1951
1952 static bfd_boolean
1953 elfNN_ia64_global_dyn_sym_thunk (xentry, xdata)
1954      struct bfd_hash_entry *xentry;
1955      PTR xdata;
1956 {
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;
1962
1963   if (entry->root.root.type == bfd_link_hash_warning)
1964     entry = (struct elfNN_ia64_link_hash_entry *) entry->root.root.u.i.link;
1965
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;
1970 }
1971
1972 static bfd_boolean
1973 elfNN_ia64_local_dyn_sym_thunk (slot, xdata)
1974      void **slot;
1975      PTR xdata;
1976 {
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;
1982
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;
1987 }
1988
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;
1994 {
1995   struct elfNN_ia64_dyn_sym_traverse_data xdata;
1996
1997   xdata.func = func;
1998   xdata.data = data;
1999
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);
2004 }
2005 \f
2006 static bfd_boolean
2007 elfNN_ia64_create_dynamic_sections (abfd, info)
2008      bfd *abfd;
2009      struct bfd_link_info *info;
2010 {
2011   struct elfNN_ia64_link_hash_table *ia64_info;
2012   asection *s;
2013
2014   if (! _bfd_elf_create_dynamic_sections (abfd, info))
2015     return FALSE;
2016
2017   ia64_info = elfNN_ia64_hash_table (info);
2018
2019   ia64_info->plt_sec = bfd_get_section_by_name (abfd, ".plt");
2020   ia64_info->got_sec = bfd_get_section_by_name (abfd, ".got");
2021
2022   {
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);
2027   }
2028
2029   if (!get_pltoff (abfd, info, ia64_info))
2030     return FALSE;
2031
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;
2042
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;
2053
2054   return TRUE;
2055 }
2056
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;
2064 {
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;
2070
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);
2075
2076   if (!slot)
2077     return NULL;
2078
2079   if (*slot)
2080     return (struct elfNN_ia64_local_hash_entry *) *slot;
2081
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)
2086     {
2087       memset (ret, 0, sizeof (*ret));
2088       ret->id = sec->id;
2089       ret->r_sym = ELFNN_R_SYM (rel->r_info);
2090       *slot = ret;
2091     }
2092   return ret;
2093 }
2094
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.  */
2097
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;
2105 {
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;
2109
2110   if (h)
2111     pp = &((struct elfNN_ia64_link_hash_entry *)h)->info;
2112   else
2113     {
2114       struct elfNN_ia64_local_hash_entry *loc_h;
2115
2116       loc_h = get_local_sym_hash (ia64_info, abfd, rel, create);
2117       if (!loc_h)
2118         {
2119           BFD_ASSERT (!create);
2120           return NULL;
2121         }
2122
2123       pp = &loc_h->info;
2124     }
2125
2126   for (dyn_i = *pp; dyn_i && dyn_i->addend != addend; dyn_i = *pp)
2127     pp = &dyn_i->next;
2128
2129   if (dyn_i == NULL && create)
2130     {
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;
2135     }
2136
2137   return dyn_i;
2138 }
2139
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;
2145 {
2146   asection *got;
2147   bfd *dynobj;
2148
2149   got = ia64_info->got_sec;
2150   if (!got)
2151     {
2152       flagword flags;
2153
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;
2159
2160       got = bfd_get_section_by_name (dynobj, ".got");
2161       BFD_ASSERT (got);
2162       ia64_info->got_sec = got;
2163
2164       /* The .got section is always aligned at 8 bytes.  */
2165       if (!bfd_set_section_alignment (abfd, got, 3))
2166         return 0;
2167
2168       flags = bfd_get_section_flags (abfd, got);
2169       bfd_set_section_flags (abfd, got, SEC_SMALL_DATA | flags);
2170     }
2171
2172   return got;
2173 }
2174
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.  */
2179
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;
2185 {
2186   asection *fptr;
2187   bfd *dynobj;
2188
2189   fptr = ia64_info->fptr_sec;
2190   if (!fptr)
2191     {
2192       dynobj = ia64_info->root.dynobj;
2193       if (!dynobj)
2194         ia64_info->root.dynobj = dynobj = abfd;
2195
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))
2205         {
2206           BFD_ASSERT (0);
2207           return NULL;
2208         }
2209
2210       ia64_info->fptr_sec = fptr;
2211
2212       if (info->pie)
2213         {
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))
2224             {
2225               BFD_ASSERT (0);
2226               return NULL;
2227             }
2228
2229           ia64_info->rel_fptr_sec = fptr_rel;
2230         }
2231     }
2232
2233   return fptr;
2234 }
2235
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;
2241 {
2242   asection *pltoff;
2243   bfd *dynobj;
2244
2245   pltoff = ia64_info->pltoff_sec;
2246   if (!pltoff)
2247     {
2248       dynobj = ia64_info->root.dynobj;
2249       if (!dynobj)
2250         ia64_info->root.dynobj = dynobj = abfd;
2251
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))
2262         {
2263           BFD_ASSERT (0);
2264           return NULL;
2265         }
2266
2267       ia64_info->pltoff_sec = pltoff;
2268     }
2269
2270   return pltoff;
2271 }
2272
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;
2279 {
2280   const char *srel_name;
2281   asection *srel;
2282   bfd *dynobj;
2283
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;
2289
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));
2296
2297   dynobj = ia64_info->root.dynobj;
2298   if (!dynobj)
2299     ia64_info->root.dynobj = dynobj = abfd;
2300
2301   srel = bfd_get_section_by_name (dynobj, srel_name);
2302   if (srel == NULL && create)
2303     {
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;
2314     }
2315
2316   return srel;
2317 }
2318
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)
2322 {
2323   struct elfNN_ia64_dyn_reloc_entry *rent;
2324
2325   for (rent = dyn_i->reloc_entries; rent; rent = rent->next)
2326     if (rent->srel == srel && rent->type == type)
2327       break;
2328
2329   if (!rent)
2330     {
2331       rent = ((struct elfNN_ia64_dyn_reloc_entry *)
2332               bfd_alloc (abfd, (bfd_size_type) sizeof (*rent)));
2333       if (!rent)
2334         return FALSE;
2335
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;
2341     }
2342   rent->reltext = reltext;
2343   rent->count++;
2344
2345   return TRUE;
2346 }
2347
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;
2354 {
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;
2360
2361   if (info->relocatable)
2362     return TRUE;
2363
2364   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2365   ia64_info = elfNN_ia64_hash_table (info);
2366
2367   got = fptr = srel = pltoff = NULL;
2368
2369   relend = relocs + sec->reloc_count;
2370   for (rel = relocs; rel < relend; ++rel)
2371     {
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
2384       };
2385
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;
2392
2393       if (r_symndx >= symtab_hdr->sh_info)
2394         {
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;
2402
2403           h->ref_regular = 1;
2404         }
2405
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;
2417
2418       need_entry = 0;
2419       switch (ELFNN_R_TYPE (rel->r_info))
2420         {
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;
2429
2430         case R_IA64_LTOFF_TPREL22:
2431           need_entry = NEED_TPREL;
2432           if (info->shared)
2433             info->flags |= DF_STATIC_TLS;
2434           break;
2435
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;
2444
2445         case R_IA64_LTOFF_DTPREL22:
2446           need_entry = NEED_DTPREL;
2447           break;
2448
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;
2455
2456         case R_IA64_LTOFF_DTPMOD22:
2457           need_entry = NEED_DTPMOD;
2458           break;
2459
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;
2468
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;
2480
2481         case R_IA64_LTOFF22:
2482         case R_IA64_LTOFF64I:
2483           need_entry = NEED_GOT;
2484           break;
2485
2486         case R_IA64_LTOFF22X:
2487           need_entry = NEED_GOTX;
2488           break;
2489
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)
2496             {
2497               if (maybe_dynamic)
2498                 need_entry |= NEED_MIN_PLT;
2499             }
2500           else
2501             {
2502               (*info->callbacks->warning)
2503                 (info, _("@pltoff reloc against local symbol"), 0,
2504                  abfd, 0, (bfd_vma) 0);
2505             }
2506           break;
2507
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;
2517
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;
2530
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;
2538
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;
2549         }
2550
2551       if (!need_entry)
2552         continue;
2553
2554       if ((need_entry & NEED_FPTR) != 0
2555           && rel->r_addend)
2556         {
2557           (*info->callbacks->warning)
2558             (info, _("non-zero addend in @fptr reloc"), 0,
2559              abfd, 0, (bfd_vma) 0);
2560         }
2561
2562       dyn_i = get_dyn_sym_info (ia64_info, h, abfd, rel, TRUE);
2563
2564       /* Record whether or not this is a local symbol.  */
2565       dyn_i->h = h;
2566
2567       /* Create what's needed.  */
2568       if (need_entry & (NEED_GOT | NEED_GOTX | NEED_TPREL
2569                         | NEED_DTPMOD | NEED_DTPREL))
2570         {
2571           if (!got)
2572             {
2573               got = get_got (abfd, info, ia64_info);
2574               if (!got)
2575                 return FALSE;
2576             }
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;
2587         }
2588       if (need_entry & NEED_FPTR)
2589         {
2590           if (!fptr)
2591             {
2592               fptr = get_fptr (abfd, info, ia64_info);
2593               if (!fptr)
2594                 return FALSE;
2595             }
2596
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)
2601             {
2602               if (! (bfd_elf_link_record_local_dynamic_symbol
2603                      (info, abfd, (long) r_symndx)))
2604                 return FALSE;
2605             }
2606
2607           dyn_i->want_fptr = 1;
2608         }
2609       if (need_entry & NEED_LTOFF_FPTR)
2610         dyn_i->want_ltoff_fptr = 1;
2611       if (need_entry & (NEED_MIN_PLT | NEED_FULL_PLT))
2612         {
2613           if (!ia64_info->root.dynobj)
2614             ia64_info->root.dynobj = abfd;
2615           h->needs_plt = 1;
2616           dyn_i->want_plt = 1;
2617         }
2618       if (need_entry & NEED_FULL_PLT)
2619         dyn_i->want_plt2 = 1;
2620       if (need_entry & NEED_PLTOFF)
2621         {
2622           /* This is needed here, in case @pltoff is used in a non-shared
2623              link.  */
2624           if (!pltoff)
2625             {
2626               pltoff = get_pltoff (abfd, info, ia64_info);
2627               if (!pltoff)
2628                 return FALSE;
2629             }
2630
2631           dyn_i->want_pltoff = 1;
2632         }
2633       if ((need_entry & NEED_DYNREL) && (sec->flags & SEC_ALLOC))
2634         {
2635           if (!srel)
2636             {
2637               srel = get_reloc_section (abfd, ia64_info, sec, TRUE);
2638               if (!srel)
2639                 return FALSE;
2640             }
2641           if (!count_dyn_reloc (abfd, dyn_i, srel, dynrel_type,
2642                                 (sec->flags & SEC_READONLY) != 0))
2643             return FALSE;
2644         }
2645     }
2646
2647   return TRUE;
2648 }
2649
2650 /* For cleanliness, and potentially faster dynamic loading, allocate
2651    external GOT entries first.  */
2652
2653 static bfd_boolean
2654 allocate_global_data_got (dyn_i, data)
2655      struct elfNN_ia64_dyn_sym_info *dyn_i;
2656      PTR data;
2657 {
2658   struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2659
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))
2663      {
2664        dyn_i->got_offset = x->ofs;
2665        x->ofs += 8;
2666      }
2667   if (dyn_i->want_tprel)
2668     {
2669       dyn_i->tprel_offset = x->ofs;
2670       x->ofs += 8;
2671     }
2672   if (dyn_i->want_dtpmod)
2673     {
2674       if (elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, 0))
2675         {
2676           dyn_i->dtpmod_offset = x->ofs;
2677           x->ofs += 8;
2678         }
2679       else
2680         {
2681           struct elfNN_ia64_link_hash_table *ia64_info;
2682
2683           ia64_info = elfNN_ia64_hash_table (x->info);
2684           if (ia64_info->self_dtpmod_offset == (bfd_vma) -1)
2685             {
2686               ia64_info->self_dtpmod_offset = x->ofs;
2687               x->ofs += 8;
2688             }
2689           dyn_i->dtpmod_offset = ia64_info->self_dtpmod_offset;
2690         }
2691     }
2692   if (dyn_i->want_dtprel)
2693     {
2694       dyn_i->dtprel_offset = x->ofs;
2695       x->ofs += 8;
2696     }
2697   return TRUE;
2698 }
2699
2700 /* Next, allocate all the GOT entries used by LTOFF_FPTR relocs.  */
2701
2702 static bfd_boolean
2703 allocate_global_fptr_got (dyn_i, data)
2704      struct elfNN_ia64_dyn_sym_info *dyn_i;
2705      PTR data;
2706 {
2707   struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2708
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))
2712     {
2713       dyn_i->got_offset = x->ofs;
2714       x->ofs += 8;
2715     }
2716   return TRUE;
2717 }
2718
2719 /* Lastly, allocate all the GOT entries for local data.  */
2720
2721 static bfd_boolean
2722 allocate_local_got (dyn_i, data)
2723      struct elfNN_ia64_dyn_sym_info *dyn_i;
2724      PTR data;
2725 {
2726   struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2727
2728   if ((dyn_i->want_got || dyn_i->want_gotx)
2729       && !elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, 0))
2730     {
2731       dyn_i->got_offset = x->ofs;
2732       x->ofs += 8;
2733     }
2734   return TRUE;
2735 }
2736
2737 /* Search for the index of a global symbol in it's defining object file.  */
2738
2739 static long
2740 global_sym_index (h)
2741      struct elf_link_hash_entry *h;
2742 {
2743   struct elf_link_hash_entry **p;
2744   bfd *obj;
2745
2746   BFD_ASSERT (h->root.type == bfd_link_hash_defined
2747               || h->root.type == bfd_link_hash_defweak);
2748
2749   obj = h->root.u.def.section->owner;
2750   for (p = elf_sym_hashes (obj); *p != h; ++p)
2751     continue;
2752
2753   return p - elf_sym_hashes (obj) + elf_tdata (obj)->symtab_hdr.sh_info;
2754 }
2755
2756 /* Allocate function descriptors.  We can do these for every function
2757    in a main executable that is not exported.  */
2758
2759 static bfd_boolean
2760 allocate_fptr (dyn_i, data)
2761      struct elfNN_ia64_dyn_sym_info *dyn_i;
2762      PTR data;
2763 {
2764   struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2765
2766   if (dyn_i->want_fptr)
2767     {
2768       struct elf_link_hash_entry *h = dyn_i->h;
2769
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;
2774
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)))
2780         {
2781           if (h && h->dynindx == -1)
2782             {
2783               BFD_ASSERT ((h->root.type == bfd_link_hash_defined)
2784                           || (h->root.type == bfd_link_hash_defweak));
2785
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;
2790             }
2791
2792           dyn_i->want_fptr = 0;
2793         }
2794       else if (h == NULL || h->dynindx == -1)
2795         {
2796           dyn_i->fptr_offset = x->ofs;
2797           x->ofs += 16;
2798         }
2799       else
2800         dyn_i->want_fptr = 0;
2801     }
2802   return TRUE;
2803 }
2804
2805 /* Allocate all the minimal PLT entries.  */
2806
2807 static bfd_boolean
2808 allocate_plt_entries (dyn_i, data)
2809      struct elfNN_ia64_dyn_sym_info *dyn_i;
2810      PTR data;
2811 {
2812   struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2813
2814   if (dyn_i->want_plt)
2815     {
2816       struct elf_link_hash_entry *h = dyn_i->h;
2817
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;
2822
2823       /* ??? Versioned symbols seem to lose NEEDS_PLT.  */
2824       if (elfNN_ia64_dynamic_symbol_p (h, x->info, 0))
2825         {
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;
2831
2832           dyn_i->want_pltoff = 1;
2833         }
2834       else
2835         {
2836           dyn_i->want_plt = 0;
2837           dyn_i->want_plt2 = 0;
2838         }
2839     }
2840   return TRUE;
2841 }
2842
2843 /* Allocate all the full PLT entries.  */
2844
2845 static bfd_boolean
2846 allocate_plt2_entries (dyn_i, data)
2847      struct elfNN_ia64_dyn_sym_info *dyn_i;
2848      PTR data;
2849 {
2850   struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2851
2852   if (dyn_i->want_plt2)
2853     {
2854       struct elf_link_hash_entry *h = dyn_i->h;
2855       bfd_size_type ofs = x->ofs;
2856
2857       dyn_i->plt2_offset = ofs;
2858       x->ofs = ofs + PLT_FULL_ENTRY_SIZE;
2859
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;
2864     }
2865   return TRUE;
2866 }
2867
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.  */
2872
2873 static bfd_boolean
2874 allocate_pltoff_entries (dyn_i, data)
2875      struct elfNN_ia64_dyn_sym_info *dyn_i;
2876      PTR data;
2877 {
2878   struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
2879
2880   if (dyn_i->want_pltoff)
2881     {
2882       dyn_i->pltoff_offset = x->ofs;
2883       x->ofs += 16;
2884     }
2885   return TRUE;
2886 }
2887
2888 /* Allocate dynamic relocations for those symbols that turned out
2889    to be dynamic.  */
2890
2891 static bfd_boolean
2892 allocate_dynrel_entries (dyn_i, data)
2893      struct elfNN_ia64_dyn_sym_info *dyn_i;
2894      PTR data;
2895 {
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;
2900
2901   ia64_info = elfNN_ia64_hash_table (x->info);
2902
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);
2905
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);
2910
2911   /* Take care of the GOT and PLT relocations.  */
2912
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))
2919     {
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);
2925     }
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);
2932
2933   if (x->only_got)
2934     return TRUE;
2935
2936   if (ia64_info->rel_fptr_sec && dyn_i->want_fptr)
2937     {
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);
2940     }
2941
2942   if (!resolved_zero && dyn_i->want_pltoff)
2943     {
2944       bfd_size_type t = 0;
2945
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);
2953
2954       ia64_info->rel_pltoff_sec->size += t;
2955     }
2956
2957   /* Take care of the normal data relocations.  */
2958
2959   for (rent = dyn_i->reloc_entries; rent; rent = rent->next)
2960     {
2961       int count = rent->count;
2962
2963       switch (rent->type)
2964         {
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 ();
2999         }
3000       if (rent->reltext)
3001         ia64_info->reltext = 1;
3002       rent->srel->size += sizeof (ElfNN_External_Rela) * count;
3003     }
3004
3005   return TRUE;
3006 }
3007
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;
3012 {
3013   /* ??? Undefined symbols with PLT entries should be re-defined
3014      to be the PLT entry.  */
3015
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)
3020     {
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;
3026     }
3027
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.
3031
3032      But IA-64 code is canonically PIC, so as a rule we can avoid this sort
3033      of hackery.  */
3034
3035   return TRUE;
3036 }
3037
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;
3042 {
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;
3048
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;
3054
3055   /* Set the contents of the .interp section to the interpreter.  */
3056   if (ia64_info->root.dynamic_sections_created
3057       && info->executable)
3058     {
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;
3063     }
3064
3065   /* Allocate the GOT entries.  */
3066
3067   if (ia64_info->got_sec)
3068     {
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;
3074     }
3075
3076   /* Allocate the FPTR entries.  */
3077
3078   if (ia64_info->fptr_sec)
3079     {
3080       data.ofs = 0;
3081       elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_fptr, &data);
3082       ia64_info->fptr_sec->size = data.ofs;
3083     }
3084
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.  */
3089
3090   data.ofs = 0;
3091   elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_plt_entries, &data);
3092
3093   ia64_info->minplt_entries = 0;
3094   if (data.ofs)
3095     {
3096       ia64_info->minplt_entries
3097         = (data.ofs - PLT_HEADER_SIZE) / PLT_MIN_ENTRY_SIZE;
3098     }
3099
3100   /* Align the pointer for the plt2 entries.  */
3101   data.ofs = (data.ofs + 31) & (bfd_vma) -32;
3102
3103   elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_plt2_entries, &data);
3104   if (data.ofs != 0 || ia64_info->root.dynamic_sections_created)
3105     {
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.  */
3109
3110       BFD_ASSERT (ia64_info->root.dynamic_sections_created);
3111
3112       ia64_info->plt_sec->size = data.ofs;
3113
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;
3118     }
3119
3120   /* Allocate the PLTOFF entries.  */
3121
3122   if (ia64_info->pltoff_sec)
3123     {
3124       data.ofs = 0;
3125       elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_pltoff_entries, &data);
3126       ia64_info->pltoff_sec->size = data.ofs;
3127     }
3128
3129   if (ia64_info->root.dynamic_sections_created)
3130     {
3131       /* Allocate space for the dynamic relocations that turned out to be
3132          required.  */
3133
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);
3138     }
3139
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)
3143     {
3144       bfd_boolean strip;
3145
3146       if (!(sec->flags & SEC_LINKER_CREATED))
3147         continue;
3148
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.  */
3156
3157       strip = (sec->size == 0);
3158
3159       if (sec == ia64_info->got_sec)
3160         strip = FALSE;
3161       else if (sec == ia64_info->rel_got_sec)
3162         {
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;
3169         }
3170       else if (sec == ia64_info->fptr_sec)
3171         {
3172           if (strip)
3173             ia64_info->fptr_sec = NULL;
3174         }
3175       else if (sec == ia64_info->rel_fptr_sec)
3176         {
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;
3183         }
3184       else if (sec == ia64_info->plt_sec)
3185         {
3186           if (strip)
3187             ia64_info->plt_sec = NULL;
3188         }
3189       else if (sec == ia64_info->pltoff_sec)
3190         {
3191           if (strip)
3192             ia64_info->pltoff_sec = NULL;
3193         }
3194       else if (sec == ia64_info->rel_pltoff_sec)
3195         {
3196           if (strip)
3197             ia64_info->rel_pltoff_sec = NULL;
3198           else
3199             {
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;
3204             }
3205         }
3206       else
3207         {
3208           const char *name;
3209
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);
3213
3214           if (strcmp (name, ".got.plt") == 0)
3215             strip = FALSE;
3216           else if (strncmp (name, ".rel", 4) == 0)
3217             {
3218               if (!strip)
3219                 {
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;
3223                 }
3224             }
3225           else
3226             continue;
3227         }
3228
3229       if (strip)
3230         sec->flags |= SEC_EXCLUDE;
3231       else
3232         {
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;
3237         }
3238     }
3239
3240   if (elf_hash_table (info)->dynamic_sections_created)
3241     {
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.  */
3245
3246       if (info->executable)
3247         {
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)
3252
3253           if (!add_dynamic_entry (DT_DEBUG, 0))
3254             return FALSE;
3255         }
3256
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;
3261
3262       if (relplt)
3263         {
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;
3268         }
3269
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;
3274
3275       if (ia64_info->reltext)
3276         {
3277           if (!add_dynamic_entry (DT_TEXTREL, 0))
3278             return FALSE;
3279           info->flags |= DF_TEXTREL;
3280         }
3281     }
3282
3283   /* ??? Perhaps force __gp local.  */
3284
3285   return TRUE;
3286 }
3287
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;
3293 {
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
3306
3307   opnd = IA64_OPND_NIL;
3308   switch (r_type)
3309     {
3310     case R_IA64_NONE:
3311     case R_IA64_LDXMOV:
3312       return bfd_reloc_ok;
3313
3314       /* Instruction relocations.  */
3315
3316     case R_IA64_IMM14:
3317     case R_IA64_TPREL14:
3318     case R_IA64_DTPREL14:
3319       opnd = IA64_OPND_IMM14;
3320       break;
3321
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;
3329
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;
3344
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;
3356
3357       /* Data relocations.  */
3358
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;
3370
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;
3382
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;
3397
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;
3412
3413       /* Unsupported / Dynamic relocations.  */
3414     default:
3415       return bfd_reloc_notsupported;
3416     }
3417
3418   switch (opnd)
3419     {
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);
3424
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 */
3429
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));
3436
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 */
3444
3445       bfd_putl64 (t0, hit_addr);
3446       bfd_putl64 (t1, hit_addr + 8);
3447       break;
3448
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);
3453
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 */
3458
3459       /* First, clear the bits that form the 64 bit constant.  */
3460       t0 &= ~(0x3ffffLL << 46);
3461       t1 &= ~(0x7fffffLL
3462               | ((1LL << 36 | 0xfffffLL << 13) << 23));
3463
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 */
3469
3470       bfd_putl64 (t0, hit_addr);
3471       bfd_putl64 (t1, hit_addr + 8);
3472       break;
3473
3474     default:
3475       switch ((long) hit_addr & 0x3)
3476         {
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...  */
3481         }
3482       dword = bfd_getl64 (hit_addr);
3483       insn = (dword >> shift) & 0x1ffffffffffLL;
3484
3485       op = elf64_ia64_operands + opnd;
3486       err = (*op->insert) (op, val, &insn);
3487       if (err)
3488         return bfd_reloc_overflow;
3489
3490       dword &= ~(0x1ffffffffffLL << shift);
3491       dword |= (insn << shift);
3492       bfd_putl64 (dword, hit_addr);
3493       break;
3494
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;
3508     }
3509
3510   return bfd_reloc_ok;
3511 }
3512
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;
3524 {
3525   Elf_Internal_Rela outrel;
3526   bfd_byte *loc;
3527
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)
3533     {
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;
3539     }
3540   else
3541     outrel.r_offset += sec->output_section->vma + sec->output_offset;
3542
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);
3547 }
3548
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.  */
3551
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;
3561 {
3562   struct elfNN_ia64_link_hash_table *ia64_info;
3563   asection *got_sec;
3564   bfd_boolean done;
3565   bfd_vma got_offset;
3566
3567   ia64_info = elfNN_ia64_hash_table (info);
3568   got_sec = ia64_info->got_sec;
3569
3570   switch (dyn_r_type)
3571     {
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)
3579         {
3580           done = dyn_i->dtpmod_done;
3581           dyn_i->dtpmod_done = TRUE;
3582         }
3583       else
3584         {
3585           done = ia64_info->self_dtpmod_done;
3586           ia64_info->self_dtpmod_done = TRUE;
3587           dynindx = 0;
3588         }
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;
3602     }
3603
3604   BFD_ASSERT ((got_offset & 7) == 0);
3605
3606   if (! done)
3607     {
3608       /* Store the target address in the linkage table entry.  */
3609       bfd_put_64 (abfd, value, got_sec->contents + got_offset);
3610
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))
3626         {
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)
3632             {
3633               dyn_r_type = R_IA64_RELNNLSB;
3634               dynindx = 0;
3635               addend = value;
3636             }
3637
3638           if (bfd_big_endian (abfd))
3639             {
3640               switch (dyn_r_type)
3641                 {
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;
3675                 }
3676             }
3677
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);
3682         }
3683     }
3684
3685   /* Return the address of the linkage table entry.  */
3686   value = (got_sec->output_section->vma
3687            + got_sec->output_offset
3688            + got_offset);
3689
3690   return value;
3691 }
3692
3693 /* Fill in a function descriptor consisting of the function's code
3694    address and its global pointer.  Return the descriptor's address.  */
3695
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;
3702 {
3703   struct elfNN_ia64_link_hash_table *ia64_info;
3704   asection *fptr_sec;
3705
3706   ia64_info = elfNN_ia64_hash_table (info);
3707   fptr_sec = ia64_info->fptr_sec;
3708
3709   if (!dyn_i->fptr_done)
3710     {
3711       dyn_i->fptr_done = 1;
3712
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)
3718         {
3719           Elf_Internal_Rela outrel;
3720           bfd_byte *loc;
3721
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);
3734         }
3735     }
3736
3737   /* Return the descriptor's address.  */
3738   value = (fptr_sec->output_section->vma
3739            + fptr_sec->output_offset
3740            + dyn_i->fptr_offset);
3741
3742   return value;
3743 }
3744
3745 /* Fill in a PLTOFF entry consisting of the function's code address
3746    and its global pointer.  Return the descriptor's address.  */
3747
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;
3755 {
3756   struct elfNN_ia64_link_hash_table *ia64_info;
3757   asection *pltoff_sec;
3758
3759   ia64_info = elfNN_ia64_hash_table (info);
3760   pltoff_sec = ia64_info->pltoff_sec;
3761
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)
3766     {
3767       bfd_vma gp = _bfd_get_gp_value (abfd);
3768
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);
3772
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))
3779         {
3780           unsigned int dyn_r_type;
3781
3782           if (bfd_big_endian (abfd))
3783             dyn_r_type = R_IA64_RELNNMSB;
3784           else
3785             dyn_r_type = R_IA64_RELNNLSB;
3786
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);
3795         }
3796
3797       dyn_i->pltoff_done = 1;
3798     }
3799
3800   /* Return the descriptor's address.  */
3801   value = (pltoff_sec->output_section->vma
3802            + pltoff_sec->output_offset
3803            + dyn_i->pltoff_offset);
3804
3805   return value;
3806 }
3807
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).  */
3812
3813 static bfd_vma
3814 elfNN_ia64_tprel_base (info)
3815      struct bfd_link_info *info;
3816 {
3817   asection *tls_sec = elf_hash_table (info)->tls_sec;
3818
3819   BFD_ASSERT (tls_sec != NULL);
3820   return tls_sec->vma - align_power ((bfd_vma) ARCH_SIZE / 4,
3821                                      tls_sec->alignment_power);
3822 }
3823
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.  */
3827
3828 static bfd_vma
3829 elfNN_ia64_dtprel_base (info)
3830      struct bfd_link_info *info;
3831 {
3832   BFD_ASSERT (elf_hash_table (info)->tls_sec != NULL);
3833   return elf_hash_table (info)->tls_sec->vma;
3834 }
3835
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.  */
3839
3840 static bfd *elfNN_ia64_unwind_entry_compare_bfd;
3841
3842 static int
3843 elfNN_ia64_unwind_entry_compare (a, b)
3844      const PTR a;
3845      const PTR b;
3846 {
3847   bfd_vma av, bv;
3848
3849   av = bfd_get_64 (elfNN_ia64_unwind_entry_compare_bfd, a);
3850   bv = bfd_get_64 (elfNN_ia64_unwind_entry_compare_bfd, b);
3851
3852   return (av < bv ? -1 : av > bv ? 1 : 0);
3853 }
3854
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;
3860 {
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;
3867
3868   ia64_info = elfNN_ia64_hash_table (info);
3869
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)
3873     {
3874       bfd_vma lo, hi;
3875
3876       if ((os->flags & SEC_ALLOC) == 0)
3877         continue;
3878
3879       lo = os->vma;
3880       hi = os->vma + os->size;
3881       if (hi < lo)
3882         hi = (bfd_vma) -1;
3883
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)
3889         {
3890           if (min_short_vma > lo)
3891             min_short_vma = lo;
3892           if (max_short_vma < hi)
3893             max_short_vma = hi;
3894         }
3895     }
3896
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);
3900
3901   if (gp
3902       && (gp->root.type == bfd_link_hash_defined
3903           || gp->root.type == bfd_link_hash_defweak))
3904     {
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);
3909     }
3910   else
3911     {
3912       /* Pick a sensible value.  */
3913
3914       asection *got_sec = ia64_info->got_sec;
3915
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;
3923
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)
3931         {
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;
3935
3936           /* If we're addressing stuff past the end, adjust back.  */
3937           if (gp_val > max_vma)
3938             gp_val = max_vma - 0x200000 + 8;
3939         }
3940     }
3941
3942   /* Validate whether all SHF_IA_64_SHORT sections are within
3943      range of the chosen GP.  */
3944
3945   if (max_short_vma != 0)
3946     {
3947       if (max_short_vma - min_short_vma >= 0x400000)
3948         {
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;
3954         }
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))
3959         {
3960           (*_bfd_error_handler)
3961             (_("%s: __gp does not cover short data segment"),
3962              bfd_get_filename (abfd));
3963           return FALSE;
3964         }
3965     }
3966
3967   _bfd_set_gp_value (abfd, gp_val);
3968
3969   return TRUE;
3970 }
3971
3972 static bfd_boolean
3973 elfNN_ia64_final_link (abfd, info)
3974      bfd *abfd;
3975      struct bfd_link_info *info;
3976 {
3977   struct elfNN_ia64_link_hash_table *ia64_info;
3978   asection *unwind_output_sec;
3979
3980   ia64_info = elfNN_ia64_hash_table (info);
3981
3982   /* Make sure we've got ourselves a nice fat __gp value.  */
3983   if (!info->relocatable)
3984     {
3985       bfd_vma gp_val;
3986       struct elf_link_hash_entry *gp;
3987
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);
3994
3995       gp = elf_link_hash_lookup (elf_hash_table (info), "__gp", FALSE,
3996                                  FALSE, FALSE);
3997       if (gp)
3998         {
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;
4002         }
4003     }
4004
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)
4010     {
4011       asection *s = bfd_get_section_by_name (abfd, ELF_STRING_ia64_unwind);
4012       if (s)
4013         {
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;
4019         }
4020     }
4021
4022   /* Invoke the regular ELF backend linker to do all the work.  */
4023   if (!bfd_elf_final_link (abfd, info))
4024     return FALSE;
4025
4026   if (unwind_output_sec)
4027     {
4028       elfNN_ia64_unwind_entry_compare_bfd = abfd;
4029       qsort (unwind_output_sec->contents,
4030              (size_t) (unwind_output_sec->size / 24),
4031              24,
4032              elfNN_ia64_unwind_entry_compare);
4033
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;
4038     }
4039
4040   return TRUE;
4041 }
4042
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;
4054 {
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;
4062
4063   symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
4064   ia64_info = elfNN_ia64_hash_table (info);
4065
4066   /* Infect various flags from the input section to the output section.  */
4067   if (info->relocatable)
4068     {
4069       bfd_vma flags;
4070
4071       flags = elf_section_data(input_section)->this_hdr.sh_flags;
4072       flags &= SHF_IA_64_NORECOV;
4073
4074       elf_section_data(input_section->output_section)
4075         ->this_hdr.sh_flags |= flags;
4076       return TRUE;
4077     }
4078
4079   gp_val = _bfd_get_gp_value (output_bfd);
4080   srel = get_reloc_section (input_bfd, ia64_info, input_section, FALSE);
4081
4082   rel = relocs;
4083   relend = relocs + input_section->reloc_count;
4084   for (; rel < relend; ++rel)
4085     {
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;
4098
4099       r_type = ELFNN_R_TYPE (rel->r_info);
4100       if (r_type > R_IA64_MAX_RELOC_CODE)
4101         {
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;
4108         }
4109
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;
4116
4117       if (r_symndx < symtab_hdr->sh_info)
4118         {
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)
4128             {
4129               struct elfNN_ia64_local_hash_entry *loc_h;
4130
4131               loc_h = get_local_sym_hash (ia64_info, input_bfd, rel, FALSE);
4132               if (loc_h && ! loc_h->sec_merge_done)
4133                 {
4134                   struct elfNN_ia64_dyn_sym_info *dynent;
4135
4136                   for (dynent = loc_h->info; dynent; dynent = dynent->next)
4137                     {
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;
4150                     }
4151                   loc_h->sec_merge_done = 1;
4152                 }
4153             }
4154         }
4155       else
4156         {
4157           bfd_boolean unresolved_reloc;
4158           bfd_boolean warned;
4159           struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (input_bfd);
4160
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);
4165
4166           if (h->root.type == bfd_link_hash_undefweak)
4167             undef_weak_ref = TRUE;
4168           else if (warned)
4169             continue;
4170         }
4171
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);
4175
4176       switch (r_type)
4177         {
4178         case R_IA64_NONE:
4179         case R_IA64_LDXMOV:
4180           continue;
4181
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)
4193             {
4194               unsigned int dyn_r_type;
4195               long dynindx;
4196               bfd_vma addend;
4197
4198               BFD_ASSERT (srel != NULL);
4199
4200               switch (r_type)
4201                 {
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;
4215
4216                 default:
4217                   break;
4218                 }
4219
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)
4224                 {
4225                   dynindx = h->dynindx;
4226                   addend = rel->r_addend;
4227                   value = 0;
4228                 }
4229               else
4230                 {
4231                   switch (r_type)
4232                     {
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;
4245
4246                     default:
4247                       break;
4248                     }
4249                   dynindx = 0;
4250                   addend = value;
4251                 }
4252
4253               elfNN_ia64_install_dyn_reloc (output_bfd, info, input_section,
4254                                             srel, rel->r_offset, dyn_r_type,
4255                                             dynindx, addend);
4256             }
4257           /* Fall through.  */
4258
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;
4265
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)
4273             {
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;
4282             }
4283           value -= gp_val;
4284           r = elfNN_ia64_install_value (hit_addr, value, r_type);
4285           break;
4286
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;
4296
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;
4306
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)
4314             {
4315               if (!undef_weak_ref)
4316                 value = set_fptr_entry (output_bfd, info, dyn_i, value);
4317             }
4318           if (!dyn_i->want_fptr || info->pie)
4319             {
4320               long dynindx;
4321               unsigned int dyn_r_type = r_type;
4322               bfd_vma addend = rel->r_addend;
4323
4324               /* Otherwise, we expect the dynamic linker to create
4325                  the entry.  */
4326
4327               if (dyn_i->want_fptr)
4328                 {
4329                   if (r_type == R_IA64_FPTR64I)
4330                     {
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;
4342                     }
4343                   dynindx = 0;
4344                   addend = value;
4345                   dyn_r_type = r_type + R_IA64_RELNNLSB - R_IA64_FPTRNNLSB;
4346                 }
4347               else if (h)
4348                 {
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;
4356                 }
4357               else
4358                 {
4359                   dynindx = (_bfd_elf_link_lookup_local_dynindx
4360                              (info, input_bfd, (long) r_symndx));
4361                   value = 0;
4362                 }
4363
4364               elfNN_ia64_install_dyn_reloc (output_bfd, info, input_section,
4365                                             srel, rel->r_offset, dyn_r_type,
4366                                             dynindx, addend);
4367             }
4368
4369           r = elfNN_ia64_install_value (hit_addr, value, r_type);
4370           break;
4371
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:
4378           {
4379             long dynindx;
4380
4381             dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
4382             if (dyn_i->want_fptr)
4383               {
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;
4388               }
4389             else
4390               {
4391                 /* Otherwise, we expect the dynamic linker to create
4392                    the entry.  */
4393                 if (h)
4394                   {
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)));
4401                   }
4402                 else
4403                   dynindx = (_bfd_elf_link_lookup_local_dynindx
4404                              (info, input_bfd, (long) r_symndx));
4405                 value = 0;
4406               }
4407
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);
4412           }
4413           break;
4414
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)
4421             {
4422               BFD_ASSERT (srel != NULL);
4423
4424               elfNN_ia64_install_dyn_reloc (output_bfd, info, input_section,
4425                                             srel, rel->r_offset, r_type,
4426                                             h->dynindx, rel->r_addend);
4427             }
4428           goto finish_pcrel;
4429
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);
4436
4437           if (dyn_i && dyn_i->want_plt2)
4438             {
4439               /* Should have caught this earlier.  */
4440               BFD_ASSERT (rel->r_addend == 0);
4441
4442               value = (ia64_info->plt_sec->output_section->vma
4443                        + ia64_info->plt_sec->output_offset
4444                        + dyn_i->plt2_offset);
4445             }
4446           else
4447             {
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);
4451
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;
4458             }
4459           goto finish_pcrel;
4460
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)
4471             {
4472               const char *msg;
4473
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;
4488             }
4489           goto finish_pcrel;
4490
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;
4498
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)
4504             {
4505               /* If the input section was discarded from the output, then
4506                  do nothing.  */
4507               r = bfd_reloc_ok;
4508             }
4509           else
4510             {
4511               struct elf_segment_map *m;
4512               Elf_Internal_Phdr *p;
4513
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++)
4519                 {
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;
4526                 }
4527
4528               if (m == NULL)
4529                 {
4530                   r = bfd_reloc_notsupported;
4531                 }
4532               else
4533                 {
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);
4541                 }
4542               break;
4543             }
4544
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;
4555
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)
4561             {
4562               BFD_ASSERT (srel != NULL);
4563
4564               /* If we don't need dynamic symbol lookup, install two
4565                  RELATIVE relocations.  */
4566               if (!dynamic_symbol_p)
4567                 {
4568                   unsigned int dyn_r_type;
4569
4570                   if (r_type == R_IA64_IPLTMSB)
4571                     dyn_r_type = R_IA64_REL64MSB;
4572                   else
4573                     dyn_r_type = R_IA64_REL64LSB;
4574
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);
4583                 }
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);
4588             }
4589
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;
4597
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;
4604
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;
4615
4616         case R_IA64_LTOFF_TPREL22:
4617         case R_IA64_LTOFF_DTPMOD22:
4618         case R_IA64_LTOFF_DTPREL22:
4619           {
4620             int got_r_type;
4621             long dynindx = h ? h->dynindx : -1;
4622             bfd_vma r_addend = rel->r_addend;
4623
4624             switch (r_type)
4625               {
4626               default:
4627               case R_IA64_LTOFF_TPREL22:
4628                 if (!dynamic_symbol_p)
4629                   {
4630                     if (!info->shared)
4631                       value -= elfNN_ia64_tprel_base (info);
4632                     else
4633                       {
4634                         r_addend += value - elfNN_ia64_dtprel_base (info);
4635                         dynindx = 0;
4636                       }
4637                   }
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;
4650               }
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);
4656           }
4657           break;
4658
4659         default:
4660           r = bfd_reloc_notsupported;
4661           break;
4662         }
4663
4664       switch (r)
4665         {
4666         case bfd_reloc_ok:
4667           break;
4668
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;
4676
4677         case bfd_reloc_notsupported:
4678           {
4679             const char *name;
4680
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;
4691           }
4692           break;
4693
4694         case bfd_reloc_dangerous:
4695         case bfd_reloc_outofrange:
4696         case bfd_reloc_overflow:
4697         default:
4698           {
4699             const char *name;
4700
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);
4706
4707             switch (r_type)
4708               {
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))
4714                   {
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;
4723                   }
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;
4735               }
4736
4737             ret_val = FALSE;
4738           }
4739           break;
4740         }
4741     }
4742
4743   return ret_val;
4744 }
4745
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;
4752 {
4753   struct elfNN_ia64_link_hash_table *ia64_info;
4754   struct elfNN_ia64_dyn_sym_info *dyn_i;
4755
4756   ia64_info = elfNN_ia64_hash_table (info);
4757   dyn_i = get_dyn_sym_info (ia64_info, h, NULL, NULL, FALSE);
4758
4759   /* Fill in the PLT data, if required.  */
4760   if (dyn_i && dyn_i->want_plt)
4761     {
4762       Elf_Internal_Rela outrel;
4763       bfd_byte *loc;
4764       asection *plt_sec;
4765       bfd_vma plt_addr, pltoff_addr, gp_val, index;
4766
4767       gp_val = _bfd_get_gp_value (output_bfd);
4768
4769       /* Initialize the minimal PLT entry.  */
4770
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;
4774
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);
4778
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);
4783
4784       /* Initialize the FULL PLT entry, if needed.  */
4785       if (dyn_i->want_plt2)
4786         {
4787           loc = plt_sec->contents + dyn_i->plt2_offset;
4788
4789           memcpy (loc, plt_full_entry, PLT_FULL_ENTRY_SIZE);
4790           elfNN_ia64_install_value (loc, pltoff_addr - gp_val, R_IA64_IMM22);
4791
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;
4798         }
4799
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;
4807
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.
4814
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.  */
4819
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);
4824     }
4825
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;
4831
4832   return TRUE;
4833 }
4834
4835 static bfd_boolean
4836 elfNN_ia64_finish_dynamic_sections (abfd, info)
4837      bfd *abfd;
4838      struct bfd_link_info *info;
4839 {
4840   struct elfNN_ia64_link_hash_table *ia64_info;
4841   bfd *dynobj;
4842
4843   ia64_info = elfNN_ia64_hash_table (info);
4844   dynobj = ia64_info->root.dynobj;
4845
4846   if (elf_hash_table (info)->dynamic_sections_created)
4847     {
4848       ElfNN_External_Dyn *dyncon, *dynconend;
4849       asection *sdyn, *sgotplt;
4850       bfd_vma gp_val;
4851
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);
4857
4858       gp_val = _bfd_get_gp_value (abfd);
4859
4860       for (; dyncon < dynconend; dyncon++)
4861         {
4862           Elf_Internal_Dyn dyn;
4863
4864           bfd_elfNN_swap_dyn_in (dynobj, dyncon, &dyn);
4865
4866           switch (dyn.d_tag)
4867             {
4868             case DT_PLTGOT:
4869               dyn.d_un.d_ptr = gp_val;
4870               break;
4871
4872             case DT_PLTRELSZ:
4873               dyn.d_un.d_val = (ia64_info->minplt_entries
4874                                 * sizeof (ElfNN_External_Rela));
4875               break;
4876
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;
4884
4885             case DT_IA_64_PLT_RESERVE:
4886               dyn.d_un.d_ptr = (sgotplt->output_section->vma
4887                                 + sgotplt->output_offset);
4888               break;
4889
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;
4896             }
4897
4898           bfd_elfNN_swap_dyn_out (abfd, &dyn, dyncon);
4899         }
4900
4901       /* Initialize the PLT0 entry.  */
4902       if (ia64_info->plt_sec)
4903         {
4904           bfd_byte *loc = ia64_info->plt_sec->contents;
4905           bfd_vma pltres;
4906
4907           memcpy (loc, plt_header, PLT_HEADER_SIZE);
4908
4909           pltres = (sgotplt->output_section->vma
4910                     + sgotplt->output_offset
4911                     - gp_val);
4912
4913           elfNN_ia64_install_value (loc+1, pltres, R_IA64_GPREL22);
4914         }
4915     }
4916
4917   return TRUE;
4918 }
4919 \f
4920 /* ELF file flag handling:  */
4921
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;
4927 {
4928   BFD_ASSERT (!elf_flags_init (abfd)
4929               || elf_elfheader (abfd)->e_flags == flags);
4930
4931   elf_elfheader (abfd)->e_flags = flags;
4932   elf_flags_init (abfd) = TRUE;
4933   return TRUE;
4934 }
4935
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;
4941 {
4942   flagword out_flags;
4943   flagword in_flags;
4944   bfd_boolean ok = TRUE;
4945
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;
4950
4951   in_flags  = elf_elfheader (ibfd)->e_flags;
4952   out_flags = elf_elfheader (obfd)->e_flags;
4953
4954   if (! elf_flags_init (obfd))
4955     {
4956       elf_flags_init (obfd) = TRUE;
4957       elf_elfheader (obfd)->e_flags = in_flags;
4958
4959       if (bfd_get_arch (obfd) == bfd_get_arch (ibfd)
4960           && bfd_get_arch_info (obfd)->the_default)
4961         {
4962           return bfd_set_arch_mach (obfd, bfd_get_arch (ibfd),
4963                                     bfd_get_mach (ibfd));
4964         }
4965
4966       return TRUE;
4967     }
4968
4969   /* Check flag compatibility.  */
4970   if (in_flags == out_flags)
4971     return TRUE;
4972
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;
4976
4977   if ((in_flags & EF_IA_64_TRAPNIL) != (out_flags & EF_IA_64_TRAPNIL))
4978     {
4979       (*_bfd_error_handler)
4980         (_("%B: linking trap-on-NULL-dereference with non-trapping files"),
4981          ibfd);
4982
4983       bfd_set_error (bfd_error_bad_value);
4984       ok = FALSE;
4985     }
4986   if ((in_flags & EF_IA_64_BE) != (out_flags & EF_IA_64_BE))
4987     {
4988       (*_bfd_error_handler)
4989         (_("%B: linking big-endian files with little-endian files"),
4990          ibfd);
4991
4992       bfd_set_error (bfd_error_bad_value);
4993       ok = FALSE;
4994     }
4995   if ((in_flags & EF_IA_64_ABI64) != (out_flags & EF_IA_64_ABI64))
4996     {
4997       (*_bfd_error_handler)
4998         (_("%B: linking 64-bit files with 32-bit files"),
4999          ibfd);
5000
5001       bfd_set_error (bfd_error_bad_value);
5002       ok = FALSE;
5003     }
5004   if ((in_flags & EF_IA_64_CONS_GP) != (out_flags & EF_IA_64_CONS_GP))
5005     {
5006       (*_bfd_error_handler)
5007         (_("%B: linking constant-gp files with non-constant-gp files"),
5008          ibfd);
5009
5010       bfd_set_error (bfd_error_bad_value);
5011       ok = FALSE;
5012     }
5013   if ((in_flags & EF_IA_64_NOFUNCDESC_CONS_GP)
5014       != (out_flags & EF_IA_64_NOFUNCDESC_CONS_GP))
5015     {
5016       (*_bfd_error_handler)
5017         (_("%B: linking auto-pic files with non-auto-pic files"),
5018          ibfd);
5019
5020       bfd_set_error (bfd_error_bad_value);
5021       ok = FALSE;
5022     }
5023
5024   return ok;
5025 }
5026
5027 static bfd_boolean
5028 elfNN_ia64_print_private_bfd_data (abfd, ptr)
5029      bfd *abfd;
5030      PTR ptr;
5031 {
5032   FILE *file = (FILE *) ptr;
5033   flagword flags = elf_elfheader (abfd)->e_flags;
5034
5035   BFD_ASSERT (abfd != NULL && ptr != NULL);
5036
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");
5046
5047   _bfd_elf_print_private_bfd_data (abfd, ptr);
5048   return TRUE;
5049 }
5050
5051 static enum elf_reloc_type_class
5052 elfNN_ia64_reloc_type_class (rela)
5053      const Elf_Internal_Rela *rela;
5054 {
5055   switch ((int) ELFNN_R_TYPE (rela->r_info))
5056     {
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;
5069     }
5070 }
5071
5072 static const struct bfd_elf_special_section elfNN_ia64_special_sections[] =
5073 {
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 }
5077 };
5078
5079 static bfd_boolean
5080 elfNN_ia64_object_p (bfd *abfd)
5081 {
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;
5088
5089   if (abfd->flags & DYNAMIC)
5090     return TRUE;
5091
5092   /* Flags for fake group section.  */
5093   flags = (SEC_LINKER_CREATED | SEC_GROUP | SEC_LINK_ONCE
5094            | SEC_EXCLUDE);
5095
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)
5099     {
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)
5104         {
5105           name = sec->name + 16;
5106
5107           amt = strlen (name) + sizeof (".gnu.linkonce.ia64unwi.");
5108           unwi_name = bfd_alloc (abfd, amt);
5109           if (!unwi_name)
5110             return FALSE;
5111
5112           strcpy (stpcpy (unwi_name, ".gnu.linkonce.ia64unwi."), name);
5113           unwi = bfd_get_section_by_name (abfd, unwi_name);
5114
5115           amt = strlen (name) + sizeof (".gnu.linkonce.ia64unw.");
5116           unw_name = bfd_alloc (abfd, amt);
5117           if (!unw_name)
5118             return FALSE;
5119
5120           strcpy (stpcpy (unw_name, ".gnu.linkonce.ia64unw."), name);
5121           unw = bfd_get_section_by_name (abfd, unw_name);
5122
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;
5129
5130           /* Move the fake group section to the beginning.  */
5131           bfd_section_list_remove (abfd, group);
5132           bfd_section_list_prepend (abfd, group);
5133
5134           elf_next_in_group (group) = sec;
5135
5136           elf_group_name (sec) = name;
5137           elf_next_in_group (sec) = sec;
5138           elf_sec_group (sec) = group;
5139
5140           if (unwi)
5141             {
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;
5146             }
5147
5148            if (unw)
5149              {
5150                elf_group_name (unw) = name;
5151                if (unwi)
5152                  {
5153                    elf_next_in_group (unw) = elf_next_in_group (unwi);
5154                    elf_next_in_group (unwi) = unw;
5155                  }
5156                else
5157                  {
5158                    elf_next_in_group (unw) = sec;
5159                    elf_next_in_group (sec) = unw;
5160                  }
5161                elf_sec_group (unw) = group;
5162              }
5163
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;
5167         }
5168     }
5169   return TRUE;
5170 }
5171
5172 static bfd_boolean
5173 elfNN_ia64_hpux_vec (const bfd_target *vec)
5174 {
5175   extern const bfd_target bfd_elfNN_ia64_hpux_big_vec;
5176   return (vec == & bfd_elfNN_ia64_hpux_big_vec);
5177 }
5178
5179 static void
5180 elfNN_hpux_post_process_headers (abfd, info)
5181         bfd *abfd;
5182         struct bfd_link_info *info ATTRIBUTE_UNUSED;
5183 {
5184   Elf_Internal_Ehdr *i_ehdrp = elf_elfheader (abfd);
5185
5186   i_ehdrp->e_ident[EI_OSABI] = ELFOSABI_HPUX;
5187   i_ehdrp->e_ident[EI_ABIVERSION] = 1;
5188 }
5189
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;
5195 {
5196   if (bfd_is_com_section (sec))
5197     {
5198       *retval = SHN_IA_64_ANSI_COMMON;
5199       return TRUE;
5200     }
5201   return FALSE;
5202 }
5203
5204 static void
5205 elfNN_hpux_backend_symbol_processing (bfd *abfd ATTRIBUTE_UNUSED,
5206                                       asymbol *asym)
5207 {
5208   elf_symbol_type *elfsym = (elf_symbol_type *) asym;
5209
5210   switch (elfsym->internal_elf_sym.st_shndx)
5211     {
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;
5217     }
5218 }
5219
5220 \f
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 */
5230
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
5247
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
5254
5255 #define elf_backend_object_p \
5256         elfNN_ia64_object_p
5257
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
5279
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
5286
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
5301
5302 /* FIXME: PR 290: The Intel C compiler generates SHT_IA_64_UNWIND with
5303    SHF_LINK_ORDER. But it doesn't set the 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
5308
5309 #include "elfNN-target.h"
5310
5311 /* HPUX-specific vectors.  */
5312
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"
5319
5320 /* These are HP-UX specific functions.  */
5321
5322 #undef  elf_backend_post_process_headers
5323 #define elf_backend_post_process_headers elfNN_hpux_post_process_headers
5324
5325 #undef  elf_backend_section_from_bfd_section
5326 #define elf_backend_section_from_bfd_section elfNN_hpux_backend_section_from_bfd_section
5327
5328 #undef elf_backend_symbol_processing
5329 #define elf_backend_symbol_processing elfNN_hpux_backend_symbol_processing
5330
5331 #undef  elf_backend_want_p_paddr_set_to_zero
5332 #define elf_backend_want_p_paddr_set_to_zero 1
5333
5334 #undef  ELF_MAXPAGESIZE
5335 #define ELF_MAXPAGESIZE                 0x1000  /* 1K */
5336
5337 #undef  elfNN_bed
5338 #define elfNN_bed elfNN_ia64_hpux_bed
5339
5340 #include "elfNN-target.h"
5341
5342 #undef  elf_backend_want_p_paddr_set_to_zero