- name = bfd_get_section_name (abfd, sec);
-
- if (is_unwind_section_name (abfd, name))
- {
- /* We don't have the sections numbered at this point, so sh_info
- is set later, in elfNN_ia64_final_write_processing. */
- hdr->sh_type = SHT_IA_64_UNWIND;
- hdr->sh_flags |= SHF_LINK_ORDER;
- }
- else if (strcmp (name, ELF_STRING_ia64_archext) == 0)
- hdr->sh_type = SHT_IA_64_EXT;
- else if (strcmp (name, ".HP.opt_annot") == 0)
- hdr->sh_type = SHT_IA_64_HP_OPT_ANOT;
- else if (strcmp (name, ".reloc") == 0)
- /* This is an ugly, but unfortunately necessary hack that is
- needed when producing EFI binaries on IA-64. It tells
- elf.c:elf_fake_sections() not to consider ".reloc" as a section
- containing ELF relocation info. We need this hack in order to
- be able to generate ELF binaries that can be translated into
- EFI applications (which are essentially COFF objects). Those
- files contain a COFF ".reloc" section inside an ELFNN object,
- which would normally cause BFD to segfault because it would
- attempt to interpret this section as containing relocation
- entries for section "oc". With this hack enabled, ".reloc"
- will be treated as a normal data section, which will avoid the
- segfault. However, you won't be able to create an ELFNN binary
- with a section named "oc" that needs relocations, but that's
- the kind of ugly side-effects you get when detecting section
- types based on their names... In practice, this limitation is
- unlikely to bite. */
- hdr->sh_type = SHT_PROGBITS;
-
- if (sec->flags & SEC_SMALL_DATA)
- hdr->sh_flags |= SHF_IA_64_SHORT;
-
- return TRUE;
-}
-
-/* The final processing done just before writing out an IA-64 ELF
- object file. */
-
-static void
-elfNN_ia64_final_write_processing (abfd, linker)
- bfd *abfd;
- bfd_boolean linker ATTRIBUTE_UNUSED;
-{
- Elf_Internal_Shdr *hdr;
- const char *sname;
- asection *text_sect, *s;
- size_t len;
-
- for (s = abfd->sections; s; s = s->next)
- {
- hdr = &elf_section_data (s)->this_hdr;
- switch (hdr->sh_type)
- {
- case SHT_IA_64_UNWIND:
- /* See comments in gas/config/tc-ia64.c:dot_endp on why we
- have to do this. */
- sname = bfd_get_section_name (abfd, s);
- len = sizeof (ELF_STRING_ia64_unwind) - 1;
- if (sname && strncmp (sname, ELF_STRING_ia64_unwind, len) == 0)
- {
- sname += len;
-
- if (sname[0] == '\0')
- /* .IA_64.unwind -> .text */
- text_sect = bfd_get_section_by_name (abfd, ".text");
- else
- /* .IA_64.unwindFOO -> FOO */
- text_sect = bfd_get_section_by_name (abfd, sname);
- }
- else if (sname
- && (len = sizeof (ELF_STRING_ia64_unwind_once) - 1,
- strncmp (sname, ELF_STRING_ia64_unwind_once, len)) == 0)
- {
- /* .gnu.linkonce.ia64unw.FOO -> .gnu.linkonce.t.FOO */
- size_t len2 = sizeof (".gnu.linkonce.t.") - 1;
- char *once_name = bfd_malloc (len2 + strlen (sname + len) + 1);
-
- if (once_name != NULL)
- {
- memcpy (once_name, ".gnu.linkonce.t.", len2);
- strcpy (once_name + len2, sname + len);
- text_sect = bfd_get_section_by_name (abfd, once_name);
- free (once_name);
- }
- else
- /* Should only happen if we run out of memory, in
- which case we're probably toast anyway. Try to
- cope by finding the section the slow way. */
- for (text_sect = abfd->sections;
- text_sect != NULL;
- text_sect = text_sect->next)
- {
- if (strncmp (bfd_section_name (abfd, text_sect),
- ".gnu.linkonce.t.", len2) == 0
- && strcmp (bfd_section_name (abfd, text_sect) + len2,
- sname + len) == 0)
- break;
- }
- }
- else
- /* last resort: fall back on .text */
- text_sect = bfd_get_section_by_name (abfd, ".text");
-
- if (text_sect)
- {
- /* The IA-64 processor-specific ABI requires setting
- sh_link to the unwind section, whereas HP-UX requires
- sh_info to do so. For maximum compatibility, we'll
- set both for now... */
- hdr->sh_link = elf_section_data (text_sect)->this_idx;
- hdr->sh_info = elf_section_data (text_sect)->this_idx;
- }
- break;
- }
- }
-
- if (! elf_flags_init (abfd))
- {
- unsigned long flags = 0;
-
- if (abfd->xvec->byteorder == BFD_ENDIAN_BIG)
- flags |= EF_IA_64_BE;
- if (bfd_get_mach (abfd) == bfd_mach_ia64_elf64)
- flags |= EF_IA_64_ABI64;
-
- elf_elfheader(abfd)->e_flags = flags;
- elf_flags_init (abfd) = TRUE;
- }
-}
-
-/* Hook called by the linker routine which adds symbols from an object
- file. We use it to put .comm items in .sbss, and not .bss. */
-
-static bfd_boolean
-elfNN_ia64_add_symbol_hook (abfd, info, sym, namep, flagsp, secp, valp)
- bfd *abfd;
- struct bfd_link_info *info;
- const Elf_Internal_Sym *sym;
- const char **namep ATTRIBUTE_UNUSED;
- flagword *flagsp ATTRIBUTE_UNUSED;
- asection **secp;
- bfd_vma *valp;
-{
- if (sym->st_shndx == SHN_COMMON
- && !info->relocatable
- && sym->st_size <= elf_gp_size (abfd))
- {
- /* Common symbols less than or equal to -G nn bytes are
- automatically put into .sbss. */
-
- asection *scomm = bfd_get_section_by_name (abfd, ".scommon");
-
- if (scomm == NULL)
- {
- scomm = bfd_make_section (abfd, ".scommon");
- if (scomm == NULL
- || !bfd_set_section_flags (abfd, scomm, (SEC_ALLOC
- | SEC_IS_COMMON
- | SEC_LINKER_CREATED)))
- return FALSE;
- }
-
- *secp = scomm;
- *valp = sym->st_size;
- }
-
- return TRUE;
-}
-
-/* Return the number of additional phdrs we will need. */
-
-static int
-elfNN_ia64_additional_program_headers (abfd)
- bfd *abfd;
-{
- asection *s;
- int ret = 0;
-
- /* See if we need a PT_IA_64_ARCHEXT segment. */
- s = bfd_get_section_by_name (abfd, ELF_STRING_ia64_archext);
- if (s && (s->flags & SEC_LOAD))
- ++ret;
-
- /* Count how many PT_IA_64_UNWIND segments we need. */
- for (s = abfd->sections; s; s = s->next)
- if (is_unwind_section_name (abfd, s->name) && (s->flags & SEC_LOAD))
- ++ret;
-
- return ret;
-}
-
-static bfd_boolean
-elfNN_ia64_modify_segment_map (abfd)
- bfd *abfd;
-{
- struct elf_segment_map *m, **pm;
- Elf_Internal_Shdr *hdr;
- asection *s;
-
- /* If we need a PT_IA_64_ARCHEXT segment, it must come before
- all PT_LOAD segments. */
- s = bfd_get_section_by_name (abfd, ELF_STRING_ia64_archext);
- if (s && (s->flags & SEC_LOAD))
- {
- for (m = elf_tdata (abfd)->segment_map; m != NULL; m = m->next)
- if (m->p_type == PT_IA_64_ARCHEXT)
- break;
- if (m == NULL)
- {
- m = ((struct elf_segment_map *)
- bfd_zalloc (abfd, (bfd_size_type) sizeof *m));
- if (m == NULL)
- return FALSE;
-
- m->p_type = PT_IA_64_ARCHEXT;
- m->count = 1;
- m->sections[0] = s;
-
- /* We want to put it after the PHDR and INTERP segments. */
- pm = &elf_tdata (abfd)->segment_map;
- while (*pm != NULL
- && ((*pm)->p_type == PT_PHDR
- || (*pm)->p_type == PT_INTERP))
- pm = &(*pm)->next;
-
- m->next = *pm;
- *pm = m;
- }
- }
-
- /* Install PT_IA_64_UNWIND segments, if needed. */
- for (s = abfd->sections; s; s = s->next)
- {
- hdr = &elf_section_data (s)->this_hdr;
- if (hdr->sh_type != SHT_IA_64_UNWIND)
- continue;
-
- if (s && (s->flags & SEC_LOAD))
- {
- for (m = elf_tdata (abfd)->segment_map; m != NULL; m = m->next)
- if (m->p_type == PT_IA_64_UNWIND)
- {
- int i;
-
- /* Look through all sections in the unwind segment
- for a match since there may be multiple sections
- to a segment. */
- for (i = m->count - 1; i >= 0; --i)
- if (m->sections[i] == s)
- break;
-
- if (i >= 0)
- break;
- }
-
- if (m == NULL)
- {
- m = ((struct elf_segment_map *)
- bfd_zalloc (abfd, (bfd_size_type) sizeof *m));
- if (m == NULL)
- return FALSE;
-
- m->p_type = PT_IA_64_UNWIND;
- m->count = 1;
- m->sections[0] = s;
- m->next = NULL;
-
- /* We want to put it last. */
- pm = &elf_tdata (abfd)->segment_map;
- while (*pm != NULL)
- pm = &(*pm)->next;
- *pm = m;
- }
- }
- }
-
- /* Turn on PF_IA_64_NORECOV if needed. This involves traversing all of
- the input sections for each output section in the segment and testing
- for SHF_IA_64_NORECOV on each. */
- for (m = elf_tdata (abfd)->segment_map; m != NULL; m = m->next)
- if (m->p_type == PT_LOAD)
- {
- int i;
- for (i = m->count - 1; i >= 0; --i)
- {
- struct bfd_link_order *order = m->sections[i]->link_order_head;
- while (order)
- {
- if (order->type == bfd_indirect_link_order)
- {
- asection *is = order->u.indirect.section;
- bfd_vma flags = elf_section_data(is)->this_hdr.sh_flags;
- if (flags & SHF_IA_64_NORECOV)
- {
- m->p_flags |= PF_IA_64_NORECOV;
- goto found;
- }
- }
- order = order->next;
- }
- }
- found:;
- }
-
- return TRUE;
-}
-
-/* According to the Tahoe assembler spec, all labels starting with a
- '.' are local. */
-
-static bfd_boolean
-elfNN_ia64_is_local_label_name (abfd, name)
- bfd *abfd ATTRIBUTE_UNUSED;
- const char *name;
-{
- return name[0] == '.';
-}
-
-/* Should we do dynamic things to this symbol? */
-
-static bfd_boolean
-elfNN_ia64_dynamic_symbol_p (h, info, r_type)
- struct elf_link_hash_entry *h;
- struct bfd_link_info *info;
- int r_type;
-{
- bfd_boolean ignore_protected
- = ((r_type & 0xf8) == 0x40 /* FPTR relocs */
- || (r_type & 0xf8) == 0x50); /* LTOFF_FPTR relocs */
-
- return _bfd_elf_dynamic_symbol_p (h, info, ignore_protected);
-}
-\f
-static bfd_boolean
-elfNN_ia64_local_hash_table_init (ht, abfd, new)
- struct elfNN_ia64_local_hash_table *ht;
- bfd *abfd ATTRIBUTE_UNUSED;
- new_hash_entry_func new;
-{
- memset (ht, 0, sizeof (*ht));
- return bfd_hash_table_init (&ht->root, new);
-}
-
-static struct bfd_hash_entry*
-elfNN_ia64_new_loc_hash_entry (entry, table, string)
- struct bfd_hash_entry *entry;
- struct bfd_hash_table *table;
- const char *string;
-{
- struct elfNN_ia64_local_hash_entry *ret;
- ret = (struct elfNN_ia64_local_hash_entry *) entry;
-
- /* Allocate the structure if it has not already been allocated by a
- subclass. */
- if (!ret)
- ret = bfd_hash_allocate (table, sizeof (*ret));
-
- if (!ret)
- return 0;
-
- /* Initialize our local data. All zeros, and definitely easier
- than setting a handful of bit fields. */
- memset (ret, 0, sizeof (*ret));
-
- /* Call the allocation method of the superclass. */
- ret = ((struct elfNN_ia64_local_hash_entry *)
- bfd_hash_newfunc ((struct bfd_hash_entry *) ret, table, string));
-
- return (struct bfd_hash_entry *) ret;
-}
-
-static struct bfd_hash_entry*
-elfNN_ia64_new_elf_hash_entry (entry, table, string)
- struct bfd_hash_entry *entry;
- struct bfd_hash_table *table;
- const char *string;
-{
- struct elfNN_ia64_link_hash_entry *ret;
- ret = (struct elfNN_ia64_link_hash_entry *) entry;
-
- /* Allocate the structure if it has not already been allocated by a
- subclass. */
- if (!ret)
- ret = bfd_hash_allocate (table, sizeof (*ret));
-
- if (!ret)
- return 0;
-
- /* Initialize our local data. All zeros, and definitely easier
- than setting a handful of bit fields. */
- memset (ret, 0, sizeof (*ret));
-
- /* Call the allocation method of the superclass. */
- ret = ((struct elfNN_ia64_link_hash_entry *)
- _bfd_elf_link_hash_newfunc ((struct bfd_hash_entry *) ret,
- table, string));
-
- return (struct bfd_hash_entry *) ret;
-}
-
-static void
-elfNN_ia64_hash_copy_indirect (bed, xdir, xind)
- struct elf_backend_data *bed ATTRIBUTE_UNUSED;
- struct elf_link_hash_entry *xdir, *xind;
-{
- struct elfNN_ia64_link_hash_entry *dir, *ind;
-
- dir = (struct elfNN_ia64_link_hash_entry *) xdir;
- ind = (struct elfNN_ia64_link_hash_entry *) xind;
-
- /* Copy down any references that we may have already seen to the
- symbol which just became indirect. */
-
- dir->root.elf_link_hash_flags |=
- (ind->root.elf_link_hash_flags
- & (ELF_LINK_HASH_REF_DYNAMIC
- | ELF_LINK_HASH_REF_REGULAR
- | ELF_LINK_HASH_REF_REGULAR_NONWEAK));
-
- if (ind->root.root.type != bfd_link_hash_indirect)
- return;
-
- /* Copy over the got and plt data. This would have been done
- by check_relocs. */
-
- if (dir->info == NULL)
- {
- struct elfNN_ia64_dyn_sym_info *dyn_i;
-
- dir->info = dyn_i = ind->info;
- ind->info = NULL;
-
- /* Fix up the dyn_sym_info pointers to the global symbol. */
- for (; dyn_i; dyn_i = dyn_i->next)
- dyn_i->h = &dir->root;
- }
- BFD_ASSERT (ind->info == NULL);
-
- /* Copy over the dynindx. */
-
- if (dir->root.dynindx == -1)
- {
- dir->root.dynindx = ind->root.dynindx;
- dir->root.dynstr_index = ind->root.dynstr_index;
- ind->root.dynindx = -1;
- ind->root.dynstr_index = 0;
- }
- BFD_ASSERT (ind->root.dynindx == -1);
-}
-
-static void
-elfNN_ia64_hash_hide_symbol (info, xh, force_local)
- struct bfd_link_info *info;
- struct elf_link_hash_entry *xh;
- bfd_boolean force_local;
-{
- struct elfNN_ia64_link_hash_entry *h;
- struct elfNN_ia64_dyn_sym_info *dyn_i;
-
- h = (struct elfNN_ia64_link_hash_entry *)xh;
-
- _bfd_elf_link_hash_hide_symbol (info, &h->root, force_local);
-
- for (dyn_i = h->info; dyn_i; dyn_i = dyn_i->next)
- {
- dyn_i->want_plt2 = 0;
- dyn_i->want_plt = 0;
- }
-}
-
-/* Create the derived linker hash table. The IA-64 ELF port uses this
- derived hash table to keep information specific to the IA-64 ElF
- linker (without using static variables). */
-
-static struct bfd_link_hash_table*
-elfNN_ia64_hash_table_create (abfd)
- bfd *abfd;
-{
- struct elfNN_ia64_link_hash_table *ret;
-
- ret = bfd_zmalloc ((bfd_size_type) sizeof (*ret));
- if (!ret)
- return 0;
-
- if (!_bfd_elf_link_hash_table_init (&ret->root, abfd,
- elfNN_ia64_new_elf_hash_entry))
- {
- free (ret);
- return 0;
- }
-
- if (!elfNN_ia64_local_hash_table_init (&ret->loc_hash_table, abfd,
- elfNN_ia64_new_loc_hash_entry))
- {
- free (ret);
- return 0;
- }
-
- return &ret->root.root;
-}
-
-/* Look up an entry in a Alpha ELF linker hash table. */
-
-static INLINE struct elfNN_ia64_local_hash_entry *
-elfNN_ia64_local_hash_lookup(table, string, create, copy)
- struct elfNN_ia64_local_hash_table *table;
- const char *string;
- bfd_boolean create, copy;
-{
- return ((struct elfNN_ia64_local_hash_entry *)
- bfd_hash_lookup (&table->root, string, create, copy));
-}
-
-/* Traverse both local and global hash tables. */
-
-struct elfNN_ia64_dyn_sym_traverse_data
-{
- bfd_boolean (*func) PARAMS ((struct elfNN_ia64_dyn_sym_info *, PTR));
- PTR data;
-};
-
-static bfd_boolean
-elfNN_ia64_global_dyn_sym_thunk (xentry, xdata)
- struct bfd_hash_entry *xentry;
- PTR xdata;
-{
- struct elfNN_ia64_link_hash_entry *entry
- = (struct elfNN_ia64_link_hash_entry *) xentry;
- struct elfNN_ia64_dyn_sym_traverse_data *data
- = (struct elfNN_ia64_dyn_sym_traverse_data *) xdata;
- struct elfNN_ia64_dyn_sym_info *dyn_i;
-
- if (entry->root.root.type == bfd_link_hash_warning)
- entry = (struct elfNN_ia64_link_hash_entry *) entry->root.root.u.i.link;
-
- for (dyn_i = entry->info; dyn_i; dyn_i = dyn_i->next)
- if (! (*data->func) (dyn_i, data->data))
- return FALSE;
- return TRUE;
-}
-
-static bfd_boolean
-elfNN_ia64_local_dyn_sym_thunk (xentry, xdata)
- struct bfd_hash_entry *xentry;
- PTR xdata;
-{
- struct elfNN_ia64_local_hash_entry *entry
- = (struct elfNN_ia64_local_hash_entry *) xentry;
- struct elfNN_ia64_dyn_sym_traverse_data *data
- = (struct elfNN_ia64_dyn_sym_traverse_data *) xdata;
- struct elfNN_ia64_dyn_sym_info *dyn_i;
-
- for (dyn_i = entry->info; dyn_i; dyn_i = dyn_i->next)
- if (! (*data->func) (dyn_i, data->data))
- return FALSE;
- return TRUE;
-}
-
-static void
-elfNN_ia64_dyn_sym_traverse (ia64_info, func, data)
- struct elfNN_ia64_link_hash_table *ia64_info;
- bfd_boolean (*func) PARAMS ((struct elfNN_ia64_dyn_sym_info *, PTR));
- PTR data;
-{
- struct elfNN_ia64_dyn_sym_traverse_data xdata;
-
- xdata.func = func;
- xdata.data = data;
-
- elf_link_hash_traverse (&ia64_info->root,
- elfNN_ia64_global_dyn_sym_thunk, &xdata);
- bfd_hash_traverse (&ia64_info->loc_hash_table.root,
- elfNN_ia64_local_dyn_sym_thunk, &xdata);
-}
-\f
-static bfd_boolean
-elfNN_ia64_create_dynamic_sections (abfd, info)
- bfd *abfd;
- struct bfd_link_info *info;
-{
- struct elfNN_ia64_link_hash_table *ia64_info;
- asection *s;
-
- if (! _bfd_elf_create_dynamic_sections (abfd, info))
- return FALSE;
-
- ia64_info = elfNN_ia64_hash_table (info);
-
- ia64_info->plt_sec = bfd_get_section_by_name (abfd, ".plt");
- ia64_info->got_sec = bfd_get_section_by_name (abfd, ".got");
-
- {
- flagword flags = bfd_get_section_flags (abfd, ia64_info->got_sec);
- bfd_set_section_flags (abfd, ia64_info->got_sec, SEC_SMALL_DATA | flags);
- }
-
- if (!get_pltoff (abfd, info, ia64_info))
- return FALSE;
-
- s = bfd_make_section(abfd, ".rela.IA_64.pltoff");
- if (s == NULL
- || !bfd_set_section_flags (abfd, s, (SEC_ALLOC | SEC_LOAD
- | SEC_HAS_CONTENTS
- | SEC_IN_MEMORY
- | SEC_LINKER_CREATED
- | SEC_READONLY))
- || !bfd_set_section_alignment (abfd, s, 3))
- return FALSE;
- ia64_info->rel_pltoff_sec = s;
-
- s = bfd_make_section(abfd, ".rela.got");
- if (s == NULL
- || !bfd_set_section_flags (abfd, s, (SEC_ALLOC | SEC_LOAD
- | SEC_HAS_CONTENTS
- | SEC_IN_MEMORY
- | SEC_LINKER_CREATED
- | SEC_READONLY))
- || !bfd_set_section_alignment (abfd, s, 3))
- return FALSE;
- ia64_info->rel_got_sec = s;
-
- return TRUE;
-}
-
-/* Find and/or create a hash entry for local symbol. */
-static struct elfNN_ia64_local_hash_entry *
-get_local_sym_hash (ia64_info, abfd, rel, create)
- struct elfNN_ia64_link_hash_table *ia64_info;
- bfd *abfd;
- const Elf_Internal_Rela *rel;
- bfd_boolean create;
-{
- struct elfNN_ia64_local_hash_entry *ret;
- asection *sec = abfd->sections;
- char addr_name [34];
-
- BFD_ASSERT ((sizeof (sec->id)*2 + 1 + sizeof (unsigned long)*2 + 1) <= 34);
- BFD_ASSERT (sec);
-
- /* Construct a string for use in the elfNN_ia64_local_hash_table.
- name describes what was once anonymous memory. */
-
- sprintf (addr_name, "%x:%lx",
- sec->id, (unsigned long) ELFNN_R_SYM (rel->r_info));
-
- /* Collect the canonical entry data for this address. */
- ret = elfNN_ia64_local_hash_lookup (&ia64_info->loc_hash_table,
- addr_name, create, create);
- return ret;
-}
-
-/* Find and/or create a descriptor for dynamic symbol info. This will
- vary based on global or local symbol, and the addend to the reloc. */
-
-static struct elfNN_ia64_dyn_sym_info *
-get_dyn_sym_info (ia64_info, h, abfd, rel, create)
- struct elfNN_ia64_link_hash_table *ia64_info;
- struct elf_link_hash_entry *h;
- bfd *abfd;
- const Elf_Internal_Rela *rel;
- bfd_boolean create;
-{
- struct elfNN_ia64_dyn_sym_info **pp;
- struct elfNN_ia64_dyn_sym_info *dyn_i;
- bfd_vma addend = rel ? rel->r_addend : 0;
-
- if (h)
- pp = &((struct elfNN_ia64_link_hash_entry *)h)->info;
- else
- {
- struct elfNN_ia64_local_hash_entry *loc_h;
-
- loc_h = get_local_sym_hash (ia64_info, abfd, rel, create);
- if (!loc_h)
- {
- BFD_ASSERT (!create);
- return NULL;
- }
-
- pp = &loc_h->info;
- }
-
- for (dyn_i = *pp; dyn_i && dyn_i->addend != addend; dyn_i = *pp)
- pp = &dyn_i->next;
-
- if (dyn_i == NULL && create)
- {
- dyn_i = ((struct elfNN_ia64_dyn_sym_info *)
- bfd_zalloc (abfd, (bfd_size_type) sizeof *dyn_i));
- *pp = dyn_i;
- dyn_i->addend = addend;
- }
-
- return dyn_i;
-}
-
-static asection *
-get_got (abfd, info, ia64_info)
- bfd *abfd;
- struct bfd_link_info *info;
- struct elfNN_ia64_link_hash_table *ia64_info;
-{
- asection *got;
- bfd *dynobj;
-
- got = ia64_info->got_sec;
- if (!got)
- {
- flagword flags;
-
- dynobj = ia64_info->root.dynobj;
- if (!dynobj)
- ia64_info->root.dynobj = dynobj = abfd;
- if (!_bfd_elf_create_got_section (dynobj, info))
- return 0;
-
- got = bfd_get_section_by_name (dynobj, ".got");
- BFD_ASSERT (got);
- ia64_info->got_sec = got;
-
- flags = bfd_get_section_flags (abfd, got);
- bfd_set_section_flags (abfd, got, SEC_SMALL_DATA | flags);
- }
-
- return got;
-}
-
-/* Create function descriptor section (.opd). This section is called .opd
- because it contains "official prodecure descriptors". The "official"
- refers to the fact that these descriptors are used when taking the address
- of a procedure, thus ensuring a unique address for each procedure. */
-
-static asection *
-get_fptr (abfd, info, ia64_info)
- bfd *abfd;
- struct bfd_link_info *info;
- struct elfNN_ia64_link_hash_table *ia64_info;
-{
- asection *fptr;
- bfd *dynobj;
-
- fptr = ia64_info->fptr_sec;
- if (!fptr)
- {
- dynobj = ia64_info->root.dynobj;
- if (!dynobj)
- ia64_info->root.dynobj = dynobj = abfd;
-
- fptr = bfd_make_section (dynobj, ".opd");
- if (!fptr
- || !bfd_set_section_flags (dynobj, fptr,
- (SEC_ALLOC
- | SEC_LOAD
- | SEC_HAS_CONTENTS
- | SEC_IN_MEMORY
- | (info->pie ? 0 : SEC_READONLY)
- | SEC_LINKER_CREATED))
- || !bfd_set_section_alignment (abfd, fptr, 4))
- {
- BFD_ASSERT (0);
- return NULL;
- }
-
- ia64_info->fptr_sec = fptr;
-
- if (info->pie)
- {
- asection *fptr_rel;
- fptr_rel = bfd_make_section(abfd, ".rela.opd");
- if (fptr_rel == NULL
- || !bfd_set_section_flags (abfd, fptr_rel,
- (SEC_ALLOC | SEC_LOAD
- | SEC_HAS_CONTENTS
- | SEC_IN_MEMORY
- | SEC_LINKER_CREATED
- | SEC_READONLY))
- || !bfd_set_section_alignment (abfd, fptr_rel, 3))
- {
- BFD_ASSERT (0);
- return NULL;
- }
-
- ia64_info->rel_fptr_sec = fptr_rel;
- }
- }
-
- return fptr;
-}
-
-static asection *
-get_pltoff (abfd, info, ia64_info)
- bfd *abfd;
- struct bfd_link_info *info ATTRIBUTE_UNUSED;
- struct elfNN_ia64_link_hash_table *ia64_info;
-{
- asection *pltoff;
- bfd *dynobj;
-
- pltoff = ia64_info->pltoff_sec;
- if (!pltoff)
- {
- dynobj = ia64_info->root.dynobj;
- if (!dynobj)
- ia64_info->root.dynobj = dynobj = abfd;
-
- pltoff = bfd_make_section (dynobj, ELF_STRING_ia64_pltoff);
- if (!pltoff
- || !bfd_set_section_flags (dynobj, pltoff,
- (SEC_ALLOC
- | SEC_LOAD
- | SEC_HAS_CONTENTS
- | SEC_IN_MEMORY
- | SEC_SMALL_DATA
- | SEC_LINKER_CREATED))
- || !bfd_set_section_alignment (abfd, pltoff, 4))
- {
- BFD_ASSERT (0);
- return NULL;
- }
-
- ia64_info->pltoff_sec = pltoff;
- }
-
- return pltoff;
-}
-
-static asection *
-get_reloc_section (abfd, ia64_info, sec, create)
- bfd *abfd;
- struct elfNN_ia64_link_hash_table *ia64_info;
- asection *sec;
- bfd_boolean create;
-{
- const char *srel_name;
- asection *srel;
- bfd *dynobj;
-
- srel_name = (bfd_elf_string_from_elf_section
- (abfd, elf_elfheader(abfd)->e_shstrndx,
- elf_section_data(sec)->rel_hdr.sh_name));
- if (srel_name == NULL)
- return NULL;
-
- BFD_ASSERT ((strncmp (srel_name, ".rela", 5) == 0
- && strcmp (bfd_get_section_name (abfd, sec),
- srel_name+5) == 0)
- || (strncmp (srel_name, ".rel", 4) == 0
- && strcmp (bfd_get_section_name (abfd, sec),
- srel_name+4) == 0));
-
- dynobj = ia64_info->root.dynobj;
- if (!dynobj)
- ia64_info->root.dynobj = dynobj = abfd;
-
- srel = bfd_get_section_by_name (dynobj, srel_name);
- if (srel == NULL && create)
- {
- srel = bfd_make_section (dynobj, srel_name);
- if (srel == NULL
- || !bfd_set_section_flags (dynobj, srel,
- (SEC_ALLOC
- | SEC_LOAD
- | SEC_HAS_CONTENTS
- | SEC_IN_MEMORY
- | SEC_LINKER_CREATED
- | SEC_READONLY))
- || !bfd_set_section_alignment (dynobj, srel, 3))
- return NULL;
- }
-
- if (sec->flags & SEC_READONLY)
- ia64_info->reltext = 1;
-
- return srel;
-}
-
-static bfd_boolean
-count_dyn_reloc (abfd, dyn_i, srel, type)
- bfd *abfd;
- struct elfNN_ia64_dyn_sym_info *dyn_i;
- asection *srel;
- int type;
-{
- struct elfNN_ia64_dyn_reloc_entry *rent;
-
- for (rent = dyn_i->reloc_entries; rent; rent = rent->next)
- if (rent->srel == srel && rent->type == type)
- break;
-
- if (!rent)
- {
- rent = ((struct elfNN_ia64_dyn_reloc_entry *)
- bfd_alloc (abfd, (bfd_size_type) sizeof (*rent)));
- if (!rent)
- return FALSE;
-
- rent->next = dyn_i->reloc_entries;
- rent->srel = srel;
- rent->type = type;
- rent->count = 0;
- dyn_i->reloc_entries = rent;
- }
- rent->count++;
-
- return TRUE;
-}
-
-static bfd_boolean
-elfNN_ia64_check_relocs (abfd, info, sec, relocs)
- bfd *abfd;
- struct bfd_link_info *info;
- asection *sec;
- const Elf_Internal_Rela *relocs;
-{
- struct elfNN_ia64_link_hash_table *ia64_info;
- const Elf_Internal_Rela *relend;
- Elf_Internal_Shdr *symtab_hdr;
- const Elf_Internal_Rela *rel;
- asection *got, *fptr, *srel;
-
- if (info->relocatable)
- return TRUE;
-
- symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
- ia64_info = elfNN_ia64_hash_table (info);
-
- got = fptr = srel = NULL;
-
- relend = relocs + sec->reloc_count;
- for (rel = relocs; rel < relend; ++rel)
- {
- enum {
- NEED_GOT = 1,
- NEED_GOTX = 2,
- NEED_FPTR = 4,
- NEED_PLTOFF = 8,
- NEED_MIN_PLT = 16,
- NEED_FULL_PLT = 32,
- NEED_DYNREL = 64,
- NEED_LTOFF_FPTR = 128,
- NEED_TPREL = 256,
- NEED_DTPMOD = 512,
- NEED_DTPREL = 1024
- };
-
- struct elf_link_hash_entry *h = NULL;
- unsigned long r_symndx = ELFNN_R_SYM (rel->r_info);
- struct elfNN_ia64_dyn_sym_info *dyn_i;
- int need_entry;
- bfd_boolean maybe_dynamic;
- int dynrel_type = R_IA64_NONE;
-
- if (r_symndx >= symtab_hdr->sh_info)
- {
- /* We're dealing with a global symbol -- find its hash entry
- and mark it as being referenced. */
- long indx = r_symndx - symtab_hdr->sh_info;
- h = elf_sym_hashes (abfd)[indx];
- while (h->root.type == bfd_link_hash_indirect
- || h->root.type == bfd_link_hash_warning)
- h = (struct elf_link_hash_entry *) h->root.u.i.link;
-
- h->elf_link_hash_flags |= ELF_LINK_HASH_REF_REGULAR;
- }
-
- /* We can only get preliminary data on whether a symbol is
- locally or externally defined, as not all of the input files
- have yet been processed. Do something with what we know, as
- this may help reduce memory usage and processing time later. */
- maybe_dynamic = FALSE;
- if (h && ((!info->executable
- && (!info->symbolic || info->allow_shlib_undefined))
- || ! (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR)
- || h->root.type == bfd_link_hash_defweak))
- maybe_dynamic = TRUE;
-
- need_entry = 0;
- switch (ELFNN_R_TYPE (rel->r_info))
- {
- case R_IA64_TPREL64MSB:
- case R_IA64_TPREL64LSB:
- if (info->shared || maybe_dynamic)
- need_entry = NEED_DYNREL;
- dynrel_type = R_IA64_TPREL64LSB;
- if (info->shared)
- info->flags |= DF_STATIC_TLS;
- break;
-
- case R_IA64_LTOFF_TPREL22:
- need_entry = NEED_TPREL;
- if (info->shared)
- info->flags |= DF_STATIC_TLS;
- break;
-
- case R_IA64_DTPREL64MSB:
- case R_IA64_DTPREL64LSB:
- if (info->shared || maybe_dynamic)
- need_entry = NEED_DYNREL;
- dynrel_type = R_IA64_DTPREL64LSB;
- break;
-
- case R_IA64_LTOFF_DTPREL22:
- need_entry = NEED_DTPREL;
- break;
-
- case R_IA64_DTPMOD64MSB:
- case R_IA64_DTPMOD64LSB:
- if (info->shared || maybe_dynamic)
- need_entry = NEED_DYNREL;
- dynrel_type = R_IA64_DTPMOD64LSB;
- break;
-
- case R_IA64_LTOFF_DTPMOD22:
- need_entry = NEED_DTPMOD;
- break;
-
- case R_IA64_LTOFF_FPTR22:
- case R_IA64_LTOFF_FPTR64I:
- case R_IA64_LTOFF_FPTR32MSB:
- case R_IA64_LTOFF_FPTR32LSB:
- case R_IA64_LTOFF_FPTR64MSB:
- case R_IA64_LTOFF_FPTR64LSB:
- need_entry = NEED_FPTR | NEED_GOT | NEED_LTOFF_FPTR;
- break;
-
- case R_IA64_FPTR64I:
- case R_IA64_FPTR32MSB:
- case R_IA64_FPTR32LSB:
- case R_IA64_FPTR64MSB:
- case R_IA64_FPTR64LSB:
- if (info->shared || h)
- need_entry = NEED_FPTR | NEED_DYNREL;
- else
- need_entry = NEED_FPTR;
- dynrel_type = R_IA64_FPTR64LSB;
- break;
-
- case R_IA64_LTOFF22:
- case R_IA64_LTOFF64I:
- need_entry = NEED_GOT;
- break;
-
- case R_IA64_LTOFF22X:
- need_entry = NEED_GOTX;
- break;
-
- case R_IA64_PLTOFF22:
- case R_IA64_PLTOFF64I:
- case R_IA64_PLTOFF64MSB:
- case R_IA64_PLTOFF64LSB:
- need_entry = NEED_PLTOFF;
- if (h)
- {
- if (maybe_dynamic)
- need_entry |= NEED_MIN_PLT;
- }
- else
- {
- (*info->callbacks->warning)
- (info, _("@pltoff reloc against local symbol"), 0,
- abfd, 0, (bfd_vma) 0);
- }
- break;
-
- case R_IA64_PCREL21B:
- case R_IA64_PCREL60B:
- /* Depending on where this symbol is defined, we may or may not
- need a full plt entry. Only skip if we know we'll not need
- the entry -- static or symbolic, and the symbol definition
- has already been seen. */
- if (maybe_dynamic && rel->r_addend == 0)
- need_entry = NEED_FULL_PLT;
- break;
-
- case R_IA64_IMM14:
- case R_IA64_IMM22:
- case R_IA64_IMM64:
- case R_IA64_DIR32MSB:
- case R_IA64_DIR32LSB:
- case R_IA64_DIR64MSB:
- case R_IA64_DIR64LSB:
- /* Shared objects will always need at least a REL relocation. */
- if (info->shared || maybe_dynamic)
- need_entry = NEED_DYNREL;
- dynrel_type = R_IA64_DIR64LSB;
- break;
-
- case R_IA64_IPLTMSB:
- case R_IA64_IPLTLSB:
- /* Shared objects will always need at least a REL relocation. */
- if (info->shared || maybe_dynamic)
- need_entry = NEED_DYNREL;
- dynrel_type = R_IA64_IPLTLSB;
- break;
-
- case R_IA64_PCREL22:
- case R_IA64_PCREL64I:
- case R_IA64_PCREL32MSB:
- case R_IA64_PCREL32LSB:
- case R_IA64_PCREL64MSB:
- case R_IA64_PCREL64LSB:
- if (maybe_dynamic)
- need_entry = NEED_DYNREL;
- dynrel_type = R_IA64_PCREL64LSB;
- break;
- }
-
- if (!need_entry)
- continue;
-
- if ((need_entry & NEED_FPTR) != 0
- && rel->r_addend)
- {
- (*info->callbacks->warning)
- (info, _("non-zero addend in @fptr reloc"), 0,
- abfd, 0, (bfd_vma) 0);
- }
-
- dyn_i = get_dyn_sym_info (ia64_info, h, abfd, rel, TRUE);
-
- /* Record whether or not this is a local symbol. */
- dyn_i->h = h;
-
- /* Create what's needed. */
- if (need_entry & (NEED_GOT | NEED_GOTX | NEED_TPREL
- | NEED_DTPMOD | NEED_DTPREL))
- {
- if (!got)
- {
- got = get_got (abfd, info, ia64_info);
- if (!got)
- return FALSE;
- }
- if (need_entry & NEED_GOT)
- dyn_i->want_got = 1;
- if (need_entry & NEED_GOTX)
- dyn_i->want_gotx = 1;
- if (need_entry & NEED_TPREL)
- dyn_i->want_tprel = 1;
- if (need_entry & NEED_DTPMOD)
- dyn_i->want_dtpmod = 1;
- if (need_entry & NEED_DTPREL)
- dyn_i->want_dtprel = 1;
- }
- if (need_entry & NEED_FPTR)
- {
- if (!fptr)
- {
- fptr = get_fptr (abfd, info, ia64_info);
- if (!fptr)
- return FALSE;
- }
-
- /* FPTRs for shared libraries are allocated by the dynamic
- linker. Make sure this local symbol will appear in the
- dynamic symbol table. */
- if (!h && info->shared)
- {
- if (! (_bfd_elfNN_link_record_local_dynamic_symbol
- (info, abfd, (long) r_symndx)))
- return FALSE;
- }
-
- dyn_i->want_fptr = 1;
- }
- if (need_entry & NEED_LTOFF_FPTR)
- dyn_i->want_ltoff_fptr = 1;
- if (need_entry & (NEED_MIN_PLT | NEED_FULL_PLT))
- {
- if (!ia64_info->root.dynobj)
- ia64_info->root.dynobj = abfd;
- h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_PLT;
- dyn_i->want_plt = 1;
- }
- if (need_entry & NEED_FULL_PLT)
- dyn_i->want_plt2 = 1;
- if (need_entry & NEED_PLTOFF)
- dyn_i->want_pltoff = 1;
- if ((need_entry & NEED_DYNREL) && (sec->flags & SEC_ALLOC))
- {
- if (!srel)
- {
- srel = get_reloc_section (abfd, ia64_info, sec, TRUE);
- if (!srel)
- return FALSE;
- }
- if (!count_dyn_reloc (abfd, dyn_i, srel, dynrel_type))
- return FALSE;
- }
- }
-
- return TRUE;
-}
-
-/* For cleanliness, and potentially faster dynamic loading, allocate
- external GOT entries first. */
-
-static bfd_boolean
-allocate_global_data_got (dyn_i, data)
- struct elfNN_ia64_dyn_sym_info *dyn_i;
- PTR data;
-{
- struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
-
- if ((dyn_i->want_got || dyn_i->want_gotx)
- && ! dyn_i->want_fptr
- && elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, 0))
- {
- dyn_i->got_offset = x->ofs;
- x->ofs += 8;
- }
- if (dyn_i->want_tprel)
- {
- dyn_i->tprel_offset = x->ofs;
- x->ofs += 8;
- }
- if (dyn_i->want_dtpmod)
- {
- if (elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, 0))
- {
- dyn_i->dtpmod_offset = x->ofs;
- x->ofs += 8;
- }
- else
- {
- struct elfNN_ia64_link_hash_table *ia64_info;
-
- ia64_info = elfNN_ia64_hash_table (x->info);
- if (ia64_info->self_dtpmod_offset == (bfd_vma) -1)
- {
- ia64_info->self_dtpmod_offset = x->ofs;
- x->ofs += 8;
- }
- dyn_i->dtpmod_offset = ia64_info->self_dtpmod_offset;
- }
- }
- if (dyn_i->want_dtprel)
- {
- dyn_i->dtprel_offset = x->ofs;
- x->ofs += 8;
- }
- return TRUE;
-}
-
-/* Next, allocate all the GOT entries used by LTOFF_FPTR relocs. */
-
-static bfd_boolean
-allocate_global_fptr_got (dyn_i, data)
- struct elfNN_ia64_dyn_sym_info *dyn_i;
- PTR data;
-{
- struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
-
- if (dyn_i->want_got
- && dyn_i->want_fptr
- && elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, R_IA64_FPTR64LSB))
- {
- dyn_i->got_offset = x->ofs;
- x->ofs += 8;
- }
- return TRUE;
-}
-
-/* Lastly, allocate all the GOT entries for local data. */
-
-static bfd_boolean
-allocate_local_got (dyn_i, data)
- struct elfNN_ia64_dyn_sym_info *dyn_i;
- PTR data;
-{
- struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
-
- if ((dyn_i->want_got || dyn_i->want_gotx)
- && !elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, 0))
- {
- dyn_i->got_offset = x->ofs;
- x->ofs += 8;
- }
- return TRUE;
-}
-
-/* Search for the index of a global symbol in it's defining object file. */
-
-static long
-global_sym_index (h)
- struct elf_link_hash_entry *h;
-{
- struct elf_link_hash_entry **p;
- bfd *obj;
-
- BFD_ASSERT (h->root.type == bfd_link_hash_defined
- || h->root.type == bfd_link_hash_defweak);
-
- obj = h->root.u.def.section->owner;
- for (p = elf_sym_hashes (obj); *p != h; ++p)
- continue;
-
- return p - elf_sym_hashes (obj) + elf_tdata (obj)->symtab_hdr.sh_info;
-}
-
-/* Allocate function descriptors. We can do these for every function
- in a main executable that is not exported. */
-
-static bfd_boolean
-allocate_fptr (dyn_i, data)
- struct elfNN_ia64_dyn_sym_info *dyn_i;
- PTR data;
-{
- struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
-
- if (dyn_i->want_fptr)
- {
- struct elf_link_hash_entry *h = dyn_i->h;
-
- if (h)
- while (h->root.type == bfd_link_hash_indirect
- || h->root.type == bfd_link_hash_warning)
- h = (struct elf_link_hash_entry *) h->root.u.i.link;
-
- if (!x->info->executable
- && (!h
- || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
- || h->root.type != bfd_link_hash_undefweak))
- {
- if (h && h->dynindx == -1)
- {
- BFD_ASSERT ((h->root.type == bfd_link_hash_defined)
- || (h->root.type == bfd_link_hash_defweak));
-
- if (!_bfd_elfNN_link_record_local_dynamic_symbol
- (x->info, h->root.u.def.section->owner,
- global_sym_index (h)))
- return FALSE;
- }
-
- dyn_i->want_fptr = 0;
- }
- else if (h == NULL || h->dynindx == -1)
- {
- dyn_i->fptr_offset = x->ofs;
- x->ofs += 16;
- }
- else
- dyn_i->want_fptr = 0;
- }
- return TRUE;
-}
-
-/* Allocate all the minimal PLT entries. */
-
-static bfd_boolean
-allocate_plt_entries (dyn_i, data)
- struct elfNN_ia64_dyn_sym_info *dyn_i;
- PTR data;
-{
- struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
-
- if (dyn_i->want_plt)
- {
- struct elf_link_hash_entry *h = dyn_i->h;
-
- if (h)
- while (h->root.type == bfd_link_hash_indirect
- || h->root.type == bfd_link_hash_warning)
- h = (struct elf_link_hash_entry *) h->root.u.i.link;
-
- /* ??? Versioned symbols seem to lose ELF_LINK_HASH_NEEDS_PLT. */
- if (elfNN_ia64_dynamic_symbol_p (h, x->info, 0))
- {
- bfd_size_type offset = x->ofs;
- if (offset == 0)
- offset = PLT_HEADER_SIZE;
- dyn_i->plt_offset = offset;
- x->ofs = offset + PLT_MIN_ENTRY_SIZE;
-
- dyn_i->want_pltoff = 1;
- }
- else
- {
- dyn_i->want_plt = 0;
- dyn_i->want_plt2 = 0;
- }
- }
- return TRUE;
-}
-
-/* Allocate all the full PLT entries. */
-
-static bfd_boolean
-allocate_plt2_entries (dyn_i, data)
- struct elfNN_ia64_dyn_sym_info *dyn_i;
- PTR data;
-{
- struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
-
- if (dyn_i->want_plt2)
- {
- struct elf_link_hash_entry *h = dyn_i->h;
- bfd_size_type ofs = x->ofs;
-
- dyn_i->plt2_offset = ofs;
- x->ofs = ofs + PLT_FULL_ENTRY_SIZE;
-
- while (h->root.type == bfd_link_hash_indirect
- || h->root.type == bfd_link_hash_warning)
- h = (struct elf_link_hash_entry *) h->root.u.i.link;
- dyn_i->h->plt.offset = ofs;
- }
- return TRUE;
-}
-
-/* Allocate all the PLTOFF entries requested by relocations and
- plt entries. We can't share space with allocated FPTR entries,
- because the latter are not necessarily addressable by the GP.
- ??? Relaxation might be able to determine that they are. */
-
-static bfd_boolean
-allocate_pltoff_entries (dyn_i, data)
- struct elfNN_ia64_dyn_sym_info *dyn_i;
- PTR data;
-{
- struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
-
- if (dyn_i->want_pltoff)
- {
- dyn_i->pltoff_offset = x->ofs;
- x->ofs += 16;
- }
- return TRUE;
-}
-
-/* Allocate dynamic relocations for those symbols that turned out
- to be dynamic. */
-
-static bfd_boolean
-allocate_dynrel_entries (dyn_i, data)
- struct elfNN_ia64_dyn_sym_info *dyn_i;
- PTR data;
-{
- struct elfNN_ia64_allocate_data *x = (struct elfNN_ia64_allocate_data *)data;
- struct elfNN_ia64_link_hash_table *ia64_info;
- struct elfNN_ia64_dyn_reloc_entry *rent;
- bfd_boolean dynamic_symbol, shared, resolved_zero;
-
- ia64_info = elfNN_ia64_hash_table (x->info);
-
- /* Note that this can't be used in relation to FPTR relocs below. */
- dynamic_symbol = elfNN_ia64_dynamic_symbol_p (dyn_i->h, x->info, 0);
-
- shared = x->info->shared;
- resolved_zero = (dyn_i->h
- && ELF_ST_VISIBILITY (dyn_i->h->other)
- && dyn_i->h->root.type == bfd_link_hash_undefweak);
-
- /* Take care of the normal data relocations. */
-
- for (rent = dyn_i->reloc_entries; rent; rent = rent->next)
- {
- int count = rent->count;
-
- switch (rent->type)
- {
- case R_IA64_FPTR64LSB:
- /* Allocate one iff !want_fptr and not PIE, which by this point
- will be true only if we're actually allocating one statically
- in the main executable. Position independent executables
- need a relative reloc. */
- if (dyn_i->want_fptr && !x->info->pie)
- continue;
- break;
- case R_IA64_PCREL64LSB:
- if (!dynamic_symbol)
- continue;
- break;
- case R_IA64_DIR64LSB:
- if (!dynamic_symbol && !shared)
- continue;
- break;
- case R_IA64_IPLTLSB:
- if (!dynamic_symbol && !shared)
- continue;
- /* Use two REL relocations for IPLT relocations
- against local symbols. */
- if (!dynamic_symbol)
- count *= 2;
- break;
- case R_IA64_TPREL64LSB:
- case R_IA64_DTPREL64LSB:
- case R_IA64_DTPMOD64LSB:
- break;
- default:
- abort ();
- }
- rent->srel->_raw_size += sizeof (ElfNN_External_Rela) * count;
- }
-
- /* Take care of the GOT and PLT relocations. */
-
- if ((!resolved_zero
- && (dynamic_symbol || shared)
- && (dyn_i->want_got || dyn_i->want_gotx))
- || (dyn_i->want_ltoff_fptr
- && dyn_i->h
- && dyn_i->h->dynindx != -1))
- {
- if (!dyn_i->want_ltoff_fptr
- || !x->info->pie
- || dyn_i->h == NULL
- || dyn_i->h->root.type != bfd_link_hash_undefweak)
- ia64_info->rel_got_sec->_raw_size += sizeof (ElfNN_External_Rela);
- }
- if ((dynamic_symbol || shared) && dyn_i->want_tprel)
- ia64_info->rel_got_sec->_raw_size += sizeof (ElfNN_External_Rela);
- if (dynamic_symbol && dyn_i->want_dtpmod)
- ia64_info->rel_got_sec->_raw_size += sizeof (ElfNN_External_Rela);
- if (dynamic_symbol && dyn_i->want_dtprel)
- ia64_info->rel_got_sec->_raw_size += sizeof (ElfNN_External_Rela);
- if (ia64_info->rel_fptr_sec && dyn_i->want_fptr)
- {
- if (dyn_i->h == NULL || dyn_i->h->root.type != bfd_link_hash_undefweak)
- ia64_info->rel_fptr_sec->_raw_size += sizeof (ElfNN_External_Rela);
- }
-
- if (!resolved_zero && dyn_i->want_pltoff)
- {
- bfd_size_type t = 0;
-
- /* Dynamic symbols get one IPLT relocation. Local symbols in
- shared libraries get two REL relocations. Local symbols in
- main applications get nothing. */
- if (dynamic_symbol)
- t = sizeof (ElfNN_External_Rela);
- else if (shared)
- t = 2 * sizeof (ElfNN_External_Rela);
-
- ia64_info->rel_pltoff_sec->_raw_size += t;
- }
-
- return TRUE;
-}
-
-static bfd_boolean
-elfNN_ia64_adjust_dynamic_symbol (info, h)
- struct bfd_link_info *info ATTRIBUTE_UNUSED;
- struct elf_link_hash_entry *h;
-{
- /* ??? Undefined symbols with PLT entries should be re-defined
- to be the PLT entry. */
-
- /* If this is a weak symbol, and there is a real definition, the
- processor independent code will have arranged for us to see the
- real definition first, and we can just use the same value. */
- if (h->weakdef != NULL)
- {
- BFD_ASSERT (h->weakdef->root.type == bfd_link_hash_defined
- || h->weakdef->root.type == bfd_link_hash_defweak);
- h->root.u.def.section = h->weakdef->root.u.def.section;
- h->root.u.def.value = h->weakdef->root.u.def.value;
- return TRUE;
- }
-
- /* If this is a reference to a symbol defined by a dynamic object which
- is not a function, we might allocate the symbol in our .dynbss section
- and allocate a COPY dynamic relocation.
-
- But IA-64 code is canonically PIC, so as a rule we can avoid this sort
- of hackery. */
-
- return TRUE;
-}
-
-static bfd_boolean
-elfNN_ia64_size_dynamic_sections (output_bfd, info)
- bfd *output_bfd;
- struct bfd_link_info *info;
-{
- struct elfNN_ia64_allocate_data data;
- struct elfNN_ia64_link_hash_table *ia64_info;
- asection *sec;
- bfd *dynobj;
- bfd_boolean relplt = FALSE;
-
- dynobj = elf_hash_table(info)->dynobj;
- ia64_info = elfNN_ia64_hash_table (info);
- ia64_info->self_dtpmod_offset = (bfd_vma) -1;
- BFD_ASSERT(dynobj != NULL);
- data.info = info;
-
- /* Set the contents of the .interp section to the interpreter. */
- if (ia64_info->root.dynamic_sections_created
- && info->executable)
- {
- sec = bfd_get_section_by_name (dynobj, ".interp");
- BFD_ASSERT (sec != NULL);
- sec->contents = (bfd_byte *) ELF_DYNAMIC_INTERPRETER;
- sec->_raw_size = strlen (ELF_DYNAMIC_INTERPRETER) + 1;
- }
-
- /* Allocate the GOT entries. */
-
- if (ia64_info->got_sec)
- {
- data.ofs = 0;
- elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_global_data_got, &data);
- elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_global_fptr_got, &data);
- elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_local_got, &data);
- ia64_info->got_sec->_raw_size = data.ofs;
- }
-
- /* Allocate the FPTR entries. */
-
- if (ia64_info->fptr_sec)
- {
- data.ofs = 0;
- elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_fptr, &data);
- ia64_info->fptr_sec->_raw_size = data.ofs;
- }
-
- /* Now that we've seen all of the input files, we can decide which
- symbols need plt entries. Allocate the minimal PLT entries first.
- We do this even though dynamic_sections_created may be FALSE, because
- this has the side-effect of clearing want_plt and want_plt2. */
-
- data.ofs = 0;
- elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_plt_entries, &data);
-
- ia64_info->minplt_entries = 0;
- if (data.ofs)
- {
- ia64_info->minplt_entries
- = (data.ofs - PLT_HEADER_SIZE) / PLT_MIN_ENTRY_SIZE;
- }
-
- /* Align the pointer for the plt2 entries. */
- data.ofs = (data.ofs + 31) & (bfd_vma) -32;
-
- elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_plt2_entries, &data);
- if (data.ofs != 0)
- {
- BFD_ASSERT (ia64_info->root.dynamic_sections_created);
-
- ia64_info->plt_sec->_raw_size = data.ofs;
-
- /* If we've got a .plt, we need some extra memory for the dynamic
- linker. We stuff these in .got.plt. */
- sec = bfd_get_section_by_name (dynobj, ".got.plt");
- sec->_raw_size = 8 * PLT_RESERVED_WORDS;
- }
-
- /* Allocate the PLTOFF entries. */
-
- if (ia64_info->pltoff_sec)
- {
- data.ofs = 0;
- elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_pltoff_entries, &data);
- ia64_info->pltoff_sec->_raw_size = data.ofs;
- }
-
- if (ia64_info->root.dynamic_sections_created)
- {
- /* Allocate space for the dynamic relocations that turned out to be
- required. */
-
- if (info->shared && ia64_info->self_dtpmod_offset != (bfd_vma) -1)
- ia64_info->rel_got_sec->_raw_size += sizeof (ElfNN_External_Rela);
- elfNN_ia64_dyn_sym_traverse (ia64_info, allocate_dynrel_entries, &data);
- }
-
- /* We have now determined the sizes of the various dynamic sections.
- Allocate memory for them. */
- for (sec = dynobj->sections; sec != NULL; sec = sec->next)
- {
- bfd_boolean strip;
-
- if (!(sec->flags & SEC_LINKER_CREATED))
- continue;
-
- /* If we don't need this section, strip it from the output file.
- There were several sections primarily related to dynamic
- linking that must be create before the linker maps input
- sections to output sections. The linker does that before
- bfd_elf_size_dynamic_sections is called, and it is that
- function which decides whether anything needs to go into
- these sections. */
-
- strip = (sec->_raw_size == 0);
-
- if (sec == ia64_info->got_sec)
- strip = FALSE;
- else if (sec == ia64_info->rel_got_sec)
- {
- if (strip)
- ia64_info->rel_got_sec = NULL;
- else
- /* We use the reloc_count field as a counter if we need to
- copy relocs into the output file. */
- sec->reloc_count = 0;
- }
- else if (sec == ia64_info->fptr_sec)
- {
- if (strip)
- ia64_info->fptr_sec = NULL;
- }
- else if (sec == ia64_info->plt_sec)
- {
- if (strip)
- ia64_info->plt_sec = NULL;
- }
- else if (sec == ia64_info->pltoff_sec)
- {
- if (strip)
- ia64_info->pltoff_sec = NULL;
- }
- else if (sec == ia64_info->rel_pltoff_sec)
- {
- if (strip)
- ia64_info->rel_pltoff_sec = NULL;
- else
- {
- relplt = TRUE;
- /* We use the reloc_count field as a counter if we need to
- copy relocs into the output file. */
- sec->reloc_count = 0;
- }
- }
- else
- {
- const char *name;
-
- /* It's OK to base decisions on the section name, because none
- of the dynobj section names depend upon the input files. */
- name = bfd_get_section_name (dynobj, sec);
-
- if (strcmp (name, ".got.plt") == 0)
- strip = FALSE;
- else if (strncmp (name, ".rel", 4) == 0)
- {
- if (!strip)
- {
- /* We use the reloc_count field as a counter if we need to
- copy relocs into the output file. */
- sec->reloc_count = 0;
- }
- }
- else
- continue;
- }
-
- if (strip)
- _bfd_strip_section_from_output (info, sec);
- else
- {
- /* Allocate memory for the section contents. */
- sec->contents = (bfd_byte *) bfd_zalloc (dynobj, sec->_raw_size);
- if (sec->contents == NULL && sec->_raw_size != 0)
- return FALSE;
- }
- }
-
- if (elf_hash_table (info)->dynamic_sections_created)
- {
- /* Add some entries to the .dynamic section. We fill in the values
- later (in finish_dynamic_sections) but we must add the entries now
- so that we get the correct size for the .dynamic section. */
-
- if (info->executable)
- {
- /* The DT_DEBUG entry is filled in by the dynamic linker and used
- by the debugger. */
-#define add_dynamic_entry(TAG, VAL) \
- bfd_elfNN_add_dynamic_entry (info, (bfd_vma) (TAG), (bfd_vma) (VAL))
-
- if (!add_dynamic_entry (DT_DEBUG, 0))
- return FALSE;
- }
-
- if (!add_dynamic_entry (DT_IA_64_PLT_RESERVE, 0))
- return FALSE;
- if (!add_dynamic_entry (DT_PLTGOT, 0))
- return FALSE;
-
- if (relplt)
- {
- if (!add_dynamic_entry (DT_PLTRELSZ, 0)
- || !add_dynamic_entry (DT_PLTREL, DT_RELA)
- || !add_dynamic_entry (DT_JMPREL, 0))
- return FALSE;
- }
-
- if (!add_dynamic_entry (DT_RELA, 0)
- || !add_dynamic_entry (DT_RELASZ, 0)
- || !add_dynamic_entry (DT_RELAENT, sizeof (ElfNN_External_Rela)))
- return FALSE;
-
- if (ia64_info->reltext)
- {
- if (!add_dynamic_entry (DT_TEXTREL, 0))
- return FALSE;
- info->flags |= DF_TEXTREL;
- }
- }
-
- /* ??? Perhaps force __gp local. */
-
- return TRUE;
-}
-
-static bfd_reloc_status_type
-elfNN_ia64_install_value (abfd, hit_addr, v, r_type)
- bfd *abfd;
- bfd_byte *hit_addr;
- bfd_vma v;
- unsigned int r_type;
-{
- const struct ia64_operand *op;
- int bigendian = 0, shift = 0;
- bfd_vma t0, t1, insn, dword;
- enum ia64_opnd opnd;
- const char *err;
- size_t size = 8;
-#ifdef BFD_HOST_U_64_BIT
- BFD_HOST_U_64_BIT val = (BFD_HOST_U_64_BIT) v;
-#else
- bfd_vma val = v;
-#endif
-
- opnd = IA64_OPND_NIL;
- switch (r_type)
- {
- case R_IA64_NONE:
- case R_IA64_LDXMOV:
- return bfd_reloc_ok;
-
- /* Instruction relocations. */
-
- case R_IA64_IMM14:
- case R_IA64_TPREL14:
- case R_IA64_DTPREL14:
- opnd = IA64_OPND_IMM14;
- break;
-
- case R_IA64_PCREL21F: opnd = IA64_OPND_TGT25; break;
- case R_IA64_PCREL21M: opnd = IA64_OPND_TGT25b; break;
- case R_IA64_PCREL60B: opnd = IA64_OPND_TGT64; break;
- case R_IA64_PCREL21B:
- case R_IA64_PCREL21BI:
- opnd = IA64_OPND_TGT25c;
- break;
-
- case R_IA64_IMM22:
- case R_IA64_GPREL22:
- case R_IA64_LTOFF22:
- case R_IA64_LTOFF22X:
- case R_IA64_PLTOFF22:
- case R_IA64_PCREL22:
- case R_IA64_LTOFF_FPTR22:
- case R_IA64_TPREL22:
- case R_IA64_DTPREL22:
- case R_IA64_LTOFF_TPREL22:
- case R_IA64_LTOFF_DTPMOD22:
- case R_IA64_LTOFF_DTPREL22:
- opnd = IA64_OPND_IMM22;
- break;
-
- case R_IA64_IMM64:
- case R_IA64_GPREL64I:
- case R_IA64_LTOFF64I:
- case R_IA64_PLTOFF64I:
- case R_IA64_PCREL64I:
- case R_IA64_FPTR64I:
- case R_IA64_LTOFF_FPTR64I:
- case R_IA64_TPREL64I:
- case R_IA64_DTPREL64I:
- opnd = IA64_OPND_IMMU64;
- break;
-
- /* Data relocations. */
-
- case R_IA64_DIR32MSB:
- case R_IA64_GPREL32MSB:
- case R_IA64_FPTR32MSB:
- case R_IA64_PCREL32MSB:
- case R_IA64_LTOFF_FPTR32MSB:
- case R_IA64_SEGREL32MSB:
- case R_IA64_SECREL32MSB:
- case R_IA64_LTV32MSB:
- case R_IA64_DTPREL32MSB:
- size = 4; bigendian = 1;
- break;
-
- case R_IA64_DIR32LSB:
- case R_IA64_GPREL32LSB:
- case R_IA64_FPTR32LSB:
- case R_IA64_PCREL32LSB:
- case R_IA64_LTOFF_FPTR32LSB:
- case R_IA64_SEGREL32LSB:
- case R_IA64_SECREL32LSB:
- case R_IA64_LTV32LSB:
- case R_IA64_DTPREL32LSB:
- size = 4; bigendian = 0;
- break;
-
- case R_IA64_DIR64MSB:
- case R_IA64_GPREL64MSB:
- case R_IA64_PLTOFF64MSB:
- case R_IA64_FPTR64MSB:
- case R_IA64_PCREL64MSB:
- case R_IA64_LTOFF_FPTR64MSB:
- case R_IA64_SEGREL64MSB:
- case R_IA64_SECREL64MSB:
- case R_IA64_LTV64MSB:
- case R_IA64_TPREL64MSB:
- case R_IA64_DTPMOD64MSB:
- case R_IA64_DTPREL64MSB:
- size = 8; bigendian = 1;
- break;