Automatic date update in version.in
[external/binutils.git] / bfd / elf64-ia64-vms.c
1 /* IA-64 support for OpenVMS
2    Copyright (C) 1998-2019 Free Software Foundation, Inc.
3
4    This file is part of BFD, the Binary File Descriptor library.
5
6    This program is free software; you can redistribute it and/or modify
7    it under the terms of the GNU General Public License as published by
8    the Free Software Foundation; either version 3 of the License, or
9    (at your option) any later version.
10
11    This program is distributed in the hope that it will be useful,
12    but WITHOUT ANY WARRANTY; without even the implied warranty of
13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14    GNU General Public License for more details.
15
16    You should have received a copy of the GNU General Public License
17    along with this program; if not, write to the Free Software
18    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
19    MA 02110-1301, USA.  */
20
21 #include "sysdep.h"
22 #include "bfd.h"
23 #include "libbfd.h"
24 #include "elf-bfd.h"
25 #include "opcode/ia64.h"
26 #include "elf/ia64.h"
27 #include "objalloc.h"
28 #include "hashtab.h"
29 #include "elfxx-ia64.h"
30 #include "vms.h"
31 #include "bfdver.h"
32
33 /* THE RULES for all the stuff the linker creates --
34
35   GOT           Entries created in response to LTOFF or LTOFF_FPTR
36                 relocations.  Dynamic relocs created for dynamic
37                 symbols in an application; REL relocs for locals
38                 in a shared library.
39
40   FPTR          The canonical function descriptor.  Created for local
41                 symbols in applications.  Descriptors for dynamic symbols
42                 and local symbols in shared libraries are created by
43                 ld.so.  Thus there are no dynamic relocs against these
44                 objects.  The FPTR relocs for such _are_ passed through
45                 to the dynamic relocation tables.
46
47   FULL_PLT      Created for a PCREL21B relocation against a dynamic symbol.
48                 Requires the creation of a PLTOFF entry.  This does not
49                 require any dynamic relocations.
50
51   PLTOFF        Created by PLTOFF relocations.  For local symbols, this
52                 is an alternate function descriptor, and in shared libraries
53                 requires two REL relocations.  Note that this cannot be
54                 transformed into an FPTR relocation, since it must be in
55                 range of the GP.  For dynamic symbols, this is a function
56                 descriptor.  */
57
58 typedef struct bfd_hash_entry *(*new_hash_entry_func)
59   (struct bfd_hash_entry *, struct bfd_hash_table *, const char *);
60
61 /* In dynamically (linker-) created sections, we generally need to keep track
62    of the place a symbol or expression got allocated to. This is done via hash
63    tables that store entries of the following type.  */
64
65 struct elf64_ia64_dyn_sym_info
66 {
67   /* The addend for which this entry is relevant.  */
68   bfd_vma addend;
69
70   bfd_vma got_offset;
71   bfd_vma fptr_offset;
72   bfd_vma pltoff_offset;
73   bfd_vma plt_offset;
74   bfd_vma plt2_offset;
75
76   /* The symbol table entry, if any, that this was derived from.  */
77   struct elf_link_hash_entry *h;
78
79   /* Used to count non-got, non-plt relocations for delayed sizing
80      of relocation sections.  */
81   struct elf64_ia64_dyn_reloc_entry
82   {
83     struct elf64_ia64_dyn_reloc_entry *next;
84     asection *srel;
85     int type;
86     int count;
87   } *reloc_entries;
88
89   /* TRUE when the section contents have been updated.  */
90   unsigned got_done : 1;
91   unsigned fptr_done : 1;
92   unsigned pltoff_done : 1;
93
94   /* TRUE for the different kinds of linker data we want created.  */
95   unsigned want_got : 1;
96   unsigned want_gotx : 1;
97   unsigned want_fptr : 1;
98   unsigned want_ltoff_fptr : 1;
99   unsigned want_plt : 1;        /* A MIN_PLT entry.  */
100   unsigned want_plt2 : 1;       /* A FULL_PLT.  */
101   unsigned want_pltoff : 1;
102 };
103
104 struct elf64_ia64_local_hash_entry
105 {
106   int id;
107   unsigned int r_sym;
108   /* The number of elements in elf64_ia64_dyn_sym_info array.  */
109   unsigned int count;
110   /* The number of sorted elements in elf64_ia64_dyn_sym_info array.  */
111   unsigned int sorted_count;
112   /* The size of elf64_ia64_dyn_sym_info array.  */
113   unsigned int size;
114   /* The array of elf64_ia64_dyn_sym_info.  */
115   struct elf64_ia64_dyn_sym_info *info;
116
117   /* TRUE if this hash entry's addends was translated for
118      SHF_MERGE optimization.  */
119   unsigned sec_merge_done : 1;
120 };
121
122 struct elf64_ia64_link_hash_entry
123 {
124   struct elf_link_hash_entry root;
125
126   /* Set if this symbol is defined in a shared library.
127      We can't use root.u.def.section->owner as the symbol is an absolute
128      symbol.  */
129   bfd *shl;
130
131   /* The number of elements in elf64_ia64_dyn_sym_info array.  */
132   unsigned int count;
133   /* The number of sorted elements in elf64_ia64_dyn_sym_info array.  */
134   unsigned int sorted_count;
135   /* The size of elf64_ia64_dyn_sym_info array.  */
136   unsigned int size;
137   /* The array of elf64_ia64_dyn_sym_info.  */
138   struct elf64_ia64_dyn_sym_info *info;
139 };
140
141 struct elf64_ia64_link_hash_table
142 {
143   /* The main hash table.  */
144   struct elf_link_hash_table root;
145
146   asection *fptr_sec;           /* Function descriptor table (or NULL).  */
147   asection *rel_fptr_sec;       /* Dynamic relocation section for same.  */
148   asection *pltoff_sec;         /* Private descriptors for plt (or NULL).  */
149   asection *fixups_sec;         /* Fixups section.  */
150   asection *transfer_sec;       /* Transfer vector section.  */
151   asection *note_sec;           /* .note section.  */
152
153   /* There are maybe R_IA64_GPREL22 relocations, including those
154      optimized from R_IA64_LTOFF22X, against non-SHF_IA_64_SHORT
155      sections.  We need to record those sections so that we can choose
156      a proper GP to cover all R_IA64_GPREL22 relocations.  */
157   asection *max_short_sec;      /* Maximum short output section.  */
158   bfd_vma max_short_offset;     /* Maximum short offset.  */
159   asection *min_short_sec;      /* Minimum short output section.  */
160   bfd_vma min_short_offset;     /* Minimum short offset.  */
161
162   htab_t loc_hash_table;
163   void *loc_hash_memory;
164 };
165
166 struct elf64_ia64_allocate_data
167 {
168   struct bfd_link_info *info;
169   bfd_size_type ofs;
170 };
171
172 #define elf64_ia64_hash_table(p) \
173   (elf_hash_table_id ((struct elf_link_hash_table *) ((p)->hash)) \
174   == IA64_ELF_DATA ? ((struct elf64_ia64_link_hash_table *) ((p)->hash)) : NULL)
175
176 struct elf64_ia64_vms_obj_tdata
177 {
178   struct elf_obj_tdata root;
179
180   /* Ident for shared library.  */
181   bfd_uint64_t ident;
182
183   /* Used only during link: offset in the .fixups section for this bfd.  */
184   bfd_vma fixups_off;
185
186   /* Max number of shared libraries.  */
187   unsigned int needed_count;
188 };
189
190 #define elf_ia64_vms_tdata(abfd) \
191   ((struct elf64_ia64_vms_obj_tdata *)((abfd)->tdata.any))
192 #define elf_ia64_vms_ident(abfd) (elf_ia64_vms_tdata(abfd)->ident)
193
194 struct elf64_vms_transfer
195 {
196   unsigned char size[4];
197   unsigned char spare[4];
198   unsigned char tfradr1[8];
199   unsigned char tfradr2[8];
200   unsigned char tfradr3[8];
201   unsigned char tfradr4[8];
202   unsigned char tfradr5[8];
203
204   /* Local function descriptor for tfr3.  */
205   unsigned char tfr3_func[8];
206   unsigned char tfr3_gp[8];
207 };
208
209 typedef struct
210 {
211   Elf64_External_Ehdr ehdr;
212   unsigned char vms_needed_count[8];
213 } Elf64_External_VMS_Ehdr;
214
215 static struct elf64_ia64_dyn_sym_info * get_dyn_sym_info
216   (struct elf64_ia64_link_hash_table *,
217    struct elf_link_hash_entry *,
218    bfd *, const Elf_Internal_Rela *, bfd_boolean);
219 static bfd_boolean elf64_ia64_dynamic_symbol_p
220   (struct elf_link_hash_entry *);
221 static bfd_boolean elf64_ia64_choose_gp
222   (bfd *, struct bfd_link_info *, bfd_boolean);
223 static void elf64_ia64_dyn_sym_traverse
224   (struct elf64_ia64_link_hash_table *,
225    bfd_boolean (*) (struct elf64_ia64_dyn_sym_info *, void *),
226    void *);
227 static bfd_boolean allocate_global_data_got
228   (struct elf64_ia64_dyn_sym_info *, void *);
229 static bfd_boolean allocate_global_fptr_got
230   (struct elf64_ia64_dyn_sym_info *, void *);
231 static bfd_boolean allocate_local_got
232   (struct elf64_ia64_dyn_sym_info *, void *);
233 static bfd_boolean allocate_dynrel_entries
234   (struct elf64_ia64_dyn_sym_info *, void *);
235 static asection *get_pltoff
236   (bfd *, struct elf64_ia64_link_hash_table *);
237 static asection *get_got
238   (bfd *, struct elf64_ia64_link_hash_table *);
239
240
241 /* Given a ELF reloc, return the matching HOWTO structure.  */
242
243 static bfd_boolean
244 elf64_ia64_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
245                           arelent *bfd_reloc,
246                           Elf_Internal_Rela *elf_reloc)
247 {
248   unsigned int r_type = ELF32_R_TYPE (elf_reloc->r_info);
249
250   bfd_reloc->howto = ia64_elf_lookup_howto (r_type);
251   if (bfd_reloc->howto == NULL)
252     {
253       /* xgettext:c-format */
254       _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
255                           abfd, r_type);
256       bfd_set_error (bfd_error_bad_value);
257       return FALSE;
258     }
259
260   return TRUE;
261 }
262
263
264 #define PLT_FULL_ENTRY_SIZE     (2 * 16)
265
266 static const bfd_byte plt_full_entry[PLT_FULL_ENTRY_SIZE] =
267 {
268   0x0b, 0x78, 0x00, 0x02, 0x00, 0x24,  /*   [MMI]       addl r15=0,r1;;   */
269   0x00, 0x41, 0x3c, 0x70, 0x29, 0xc0,  /*               ld8.acq r16=[r15],8*/
270   0x01, 0x08, 0x00, 0x84,              /*               mov r14=r1;;      */
271   0x11, 0x08, 0x00, 0x1e, 0x18, 0x10,  /*   [MIB]       ld8 r1=[r15]      */
272   0x60, 0x80, 0x04, 0x80, 0x03, 0x00,  /*               mov b6=r16        */
273   0x60, 0x00, 0x80, 0x00               /*               br.few b6;;       */
274 };
275
276 static const bfd_byte oor_brl[16] =
277 {
278   0x05, 0x00, 0x00, 0x00, 0x01, 0x00,  /*  [MLX]        nop.m 0           */
279   0x00, 0x00, 0x00, 0x00, 0x00, 0x00,  /*               brl.sptk.few tgt;;*/
280   0x00, 0x00, 0x00, 0xc0
281 };
282
283
284 /* These functions do relaxation for IA-64 ELF.  */
285
286 /* Rename some of the generic section flags to better document how they
287    are used here.  */
288 #define skip_relax_pass_0 sec_flg0
289 #define skip_relax_pass_1 sec_flg1
290
291 static void
292 elf64_ia64_update_short_info (asection *sec, bfd_vma offset,
293                               struct elf64_ia64_link_hash_table *ia64_info)
294 {
295   /* Skip ABS and SHF_IA_64_SHORT sections.  */
296   if (sec == bfd_abs_section_ptr
297       || (sec->flags & SEC_SMALL_DATA) != 0)
298     return;
299
300   if (!ia64_info->min_short_sec)
301     {
302       ia64_info->max_short_sec = sec;
303       ia64_info->max_short_offset = offset;
304       ia64_info->min_short_sec = sec;
305       ia64_info->min_short_offset = offset;
306     }
307   else if (sec == ia64_info->max_short_sec
308            && offset > ia64_info->max_short_offset)
309     ia64_info->max_short_offset = offset;
310   else if (sec == ia64_info->min_short_sec
311            && offset < ia64_info->min_short_offset)
312     ia64_info->min_short_offset = offset;
313   else if (sec->output_section->vma
314            > ia64_info->max_short_sec->vma)
315     {
316       ia64_info->max_short_sec = sec;
317       ia64_info->max_short_offset = offset;
318     }
319   else if (sec->output_section->vma
320            < ia64_info->min_short_sec->vma)
321     {
322       ia64_info->min_short_sec = sec;
323       ia64_info->min_short_offset = offset;
324     }
325 }
326
327 /* Use a two passes algorithm.  In the first pass, branches are relaxed
328    (which may increase the size of the section).  In the second pass,
329    the other relaxations are done.
330 */
331
332 static bfd_boolean
333 elf64_ia64_relax_section (bfd *abfd, asection *sec,
334                           struct bfd_link_info *link_info,
335                           bfd_boolean *again)
336 {
337   struct one_fixup
338     {
339       struct one_fixup *next;
340       asection *tsec;
341       bfd_vma toff;
342       bfd_vma trampoff;
343     };
344
345   Elf_Internal_Shdr *symtab_hdr;
346   Elf_Internal_Rela *internal_relocs;
347   Elf_Internal_Rela *irel, *irelend;
348   bfd_byte *contents;
349   Elf_Internal_Sym *isymbuf = NULL;
350   struct elf64_ia64_link_hash_table *ia64_info;
351   struct one_fixup *fixups = NULL;
352   bfd_boolean changed_contents = FALSE;
353   bfd_boolean changed_relocs = FALSE;
354   bfd_boolean skip_relax_pass_0 = TRUE;
355   bfd_boolean skip_relax_pass_1 = TRUE;
356   bfd_vma gp = 0;
357
358   /* Assume we're not going to change any sizes, and we'll only need
359      one pass.  */
360   *again = FALSE;
361
362   if (bfd_link_relocatable (link_info))
363     (*link_info->callbacks->einfo)
364       (_("%P%F: --relax and -r may not be used together\n"));
365
366   /* Don't even try to relax for non-ELF outputs.  */
367   if (!is_elf_hash_table (link_info->hash))
368     return FALSE;
369
370   /* Nothing to do if there are no relocations or there is no need for
371      the current pass.  */
372   if ((sec->flags & SEC_RELOC) == 0
373       || sec->reloc_count == 0
374       || (link_info->relax_pass == 0 && sec->skip_relax_pass_0)
375       || (link_info->relax_pass == 1 && sec->skip_relax_pass_1))
376     return TRUE;
377
378   ia64_info = elf64_ia64_hash_table (link_info);
379   if (ia64_info == NULL)
380     return FALSE;
381
382   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
383
384   /* Load the relocations for this section.  */
385   internal_relocs = (_bfd_elf_link_read_relocs
386                      (abfd, sec, NULL, (Elf_Internal_Rela *) NULL,
387                       link_info->keep_memory));
388   if (internal_relocs == NULL)
389     return FALSE;
390
391   irelend = internal_relocs + sec->reloc_count;
392
393   /* Get the section contents.  */
394   if (elf_section_data (sec)->this_hdr.contents != NULL)
395     contents = elf_section_data (sec)->this_hdr.contents;
396   else
397     {
398       if (!bfd_malloc_and_get_section (abfd, sec, &contents))
399         goto error_return;
400     }
401
402   for (irel = internal_relocs; irel < irelend; irel++)
403     {
404       unsigned long r_type = ELF64_R_TYPE (irel->r_info);
405       bfd_vma symaddr, reladdr, trampoff, toff, roff;
406       asection *tsec;
407       struct one_fixup *f;
408       bfd_size_type amt;
409       bfd_boolean is_branch;
410       struct elf64_ia64_dyn_sym_info *dyn_i;
411
412       switch (r_type)
413         {
414         case R_IA64_PCREL21B:
415         case R_IA64_PCREL21BI:
416         case R_IA64_PCREL21M:
417         case R_IA64_PCREL21F:
418           /* In pass 1, all br relaxations are done. We can skip it. */
419           if (link_info->relax_pass == 1)
420             continue;
421           skip_relax_pass_0 = FALSE;
422           is_branch = TRUE;
423           break;
424
425         case R_IA64_PCREL60B:
426           /* We can't optimize brl to br in pass 0 since br relaxations
427              will increase the code size. Defer it to pass 1.  */
428           if (link_info->relax_pass == 0)
429             {
430               skip_relax_pass_1 = FALSE;
431               continue;
432             }
433           is_branch = TRUE;
434           break;
435
436         case R_IA64_GPREL22:
437           /* Update max_short_sec/min_short_sec.  */
438
439         case R_IA64_LTOFF22X:
440         case R_IA64_LDXMOV:
441           /* We can't relax ldx/mov in pass 0 since br relaxations will
442              increase the code size. Defer it to pass 1.  */
443           if (link_info->relax_pass == 0)
444             {
445               skip_relax_pass_1 = FALSE;
446               continue;
447             }
448           is_branch = FALSE;
449           break;
450
451         default:
452           continue;
453         }
454
455       /* Get the value of the symbol referred to by the reloc.  */
456       if (ELF64_R_SYM (irel->r_info) < symtab_hdr->sh_info)
457         {
458           /* A local symbol.  */
459           Elf_Internal_Sym *isym;
460
461           /* Read this BFD's local symbols.  */
462           if (isymbuf == NULL)
463             {
464               isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
465               if (isymbuf == NULL)
466                 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
467                                                 symtab_hdr->sh_info, 0,
468                                                 NULL, NULL, NULL);
469               if (isymbuf == 0)
470                 goto error_return;
471             }
472
473           isym = isymbuf + ELF64_R_SYM (irel->r_info);
474           if (isym->st_shndx == SHN_UNDEF)
475             continue;   /* We can't do anything with undefined symbols.  */
476           else if (isym->st_shndx == SHN_ABS)
477             tsec = bfd_abs_section_ptr;
478           else if (isym->st_shndx == SHN_COMMON)
479             tsec = bfd_com_section_ptr;
480           else if (isym->st_shndx == SHN_IA_64_ANSI_COMMON)
481             tsec = bfd_com_section_ptr;
482           else
483             tsec = bfd_section_from_elf_index (abfd, isym->st_shndx);
484
485           toff = isym->st_value;
486           dyn_i = get_dyn_sym_info (ia64_info, NULL, abfd, irel, FALSE);
487         }
488       else
489         {
490           unsigned long indx;
491           struct elf_link_hash_entry *h;
492
493           indx = ELF64_R_SYM (irel->r_info) - symtab_hdr->sh_info;
494           h = elf_sym_hashes (abfd)[indx];
495           BFD_ASSERT (h != NULL);
496
497           while (h->root.type == bfd_link_hash_indirect
498                  || h->root.type == bfd_link_hash_warning)
499             h = (struct elf_link_hash_entry *) h->root.u.i.link;
500
501           dyn_i = get_dyn_sym_info (ia64_info, h, abfd, irel, FALSE);
502
503           /* For branches to dynamic symbols, we're interested instead
504              in a branch to the PLT entry.  */
505           if (is_branch && dyn_i && dyn_i->want_plt2)
506             {
507               /* Internal branches shouldn't be sent to the PLT.
508                  Leave this for now and we'll give an error later.  */
509               if (r_type != R_IA64_PCREL21B)
510                 continue;
511
512               tsec = ia64_info->root.splt;
513               toff = dyn_i->plt2_offset;
514               BFD_ASSERT (irel->r_addend == 0);
515             }
516
517           /* Can't do anything else with dynamic symbols.  */
518           else if (elf64_ia64_dynamic_symbol_p (h))
519             continue;
520
521           else
522             {
523               /* We can't do anything with undefined symbols.  */
524               if (h->root.type == bfd_link_hash_undefined
525                   || h->root.type == bfd_link_hash_undefweak)
526                 continue;
527
528               tsec = h->root.u.def.section;
529               toff = h->root.u.def.value;
530             }
531         }
532
533       toff += irel->r_addend;
534
535       symaddr = tsec->output_section->vma + tsec->output_offset + toff;
536
537       roff = irel->r_offset;
538
539       if (is_branch)
540         {
541           bfd_signed_vma offset;
542
543           reladdr = (sec->output_section->vma
544                      + sec->output_offset
545                      + roff) & (bfd_vma) -4;
546
547           /* The .plt section is aligned at 32byte and the .text section
548              is aligned at 64byte. The .text section is right after the
549              .plt section.  After the first relaxation pass, linker may
550              increase the gap between the .plt and .text sections up
551              to 32byte.  We assume linker will always insert 32byte
552              between the .plt and .text sections after the first
553              relaxation pass.  */
554           if (tsec == ia64_info->root.splt)
555             offset = -0x1000000 + 32;
556           else
557             offset = -0x1000000;
558
559           /* If the branch is in range, no need to do anything.  */
560           if ((bfd_signed_vma) (symaddr - reladdr) >= offset
561               && (bfd_signed_vma) (symaddr - reladdr) <= 0x0FFFFF0)
562             {
563               /* If the 60-bit branch is in 21-bit range, optimize it. */
564               if (r_type == R_IA64_PCREL60B)
565                 {
566                   ia64_elf_relax_brl (contents, roff);
567
568                   irel->r_info = ELF64_R_INFO (ELF64_R_SYM (irel->r_info),
569                                                R_IA64_PCREL21B);
570
571                   /* If the original relocation offset points to slot
572                      1, change it to slot 2.  */
573                   if ((irel->r_offset & 3) == 1)
574                     irel->r_offset += 1;
575                 }
576
577               continue;
578             }
579           else if (r_type == R_IA64_PCREL60B)
580             continue;
581           else if (ia64_elf_relax_br (contents, roff))
582             {
583               irel->r_info = ELF64_R_INFO (ELF64_R_SYM (irel->r_info),
584                                            R_IA64_PCREL60B);
585
586               /* Make the relocation offset point to slot 1.  */
587               irel->r_offset = (irel->r_offset & ~((bfd_vma) 0x3)) + 1;
588               continue;
589             }
590
591           /* We can't put a trampoline in a .init/.fini section. Issue
592              an error.  */
593           if (strcmp (sec->output_section->name, ".init") == 0
594               || strcmp (sec->output_section->name, ".fini") == 0)
595             {
596               _bfd_error_handler
597                 /* xgettext:c-format */
598                 (_("%pB: can't relax br at %#" PRIx64 " in section `%pA';"
599                    " please use brl or indirect branch"),
600                  sec->owner, (uint64_t) roff, sec);
601               bfd_set_error (bfd_error_bad_value);
602               goto error_return;
603             }
604
605           /* If the branch and target are in the same section, you've
606              got one honking big section and we can't help you unless
607              you are branching backwards.  You'll get an error message
608              later.  */
609           if (tsec == sec && toff > roff)
610             continue;
611
612           /* Look for an existing fixup to this address.  */
613           for (f = fixups; f ; f = f->next)
614             if (f->tsec == tsec && f->toff == toff)
615               break;
616
617           if (f == NULL)
618             {
619               /* Two alternatives: If it's a branch to a PLT entry, we can
620                  make a copy of the FULL_PLT entry.  Otherwise, we'll have
621                  to use a `brl' insn to get where we're going.  */
622
623               size_t size;
624
625               if (tsec == ia64_info->root.splt)
626                 size = sizeof (plt_full_entry);
627               else
628                 size = sizeof (oor_brl);
629
630               /* Resize the current section to make room for the new branch. */
631               trampoff = (sec->size + 15) & (bfd_vma) -16;
632
633               /* If trampoline is out of range, there is nothing we
634                  can do.  */
635               offset = trampoff - (roff & (bfd_vma) -4);
636               if (offset < -0x1000000 || offset > 0x0FFFFF0)
637                 continue;
638
639               amt = trampoff + size;
640               contents = (bfd_byte *) bfd_realloc (contents, amt);
641               if (contents == NULL)
642                 goto error_return;
643               sec->size = amt;
644
645               if (tsec == ia64_info->root.splt)
646                 {
647                   memcpy (contents + trampoff, plt_full_entry, size);
648
649                   /* Hijack the old relocation for use as the PLTOFF reloc.  */
650                   irel->r_info = ELF64_R_INFO (ELF64_R_SYM (irel->r_info),
651                                                R_IA64_PLTOFF22);
652                   irel->r_offset = trampoff;
653                 }
654               else
655                 {
656                   memcpy (contents + trampoff, oor_brl, size);
657                   irel->r_info = ELF64_R_INFO (ELF64_R_SYM (irel->r_info),
658                                                R_IA64_PCREL60B);
659                   irel->r_offset = trampoff + 2;
660                 }
661
662               /* Record the fixup so we don't do it again this section.  */
663               f = (struct one_fixup *)
664                 bfd_malloc ((bfd_size_type) sizeof (*f));
665               f->next = fixups;
666               f->tsec = tsec;
667               f->toff = toff;
668               f->trampoff = trampoff;
669               fixups = f;
670             }
671           else
672             {
673               /* If trampoline is out of range, there is nothing we
674                  can do.  */
675               offset = f->trampoff - (roff & (bfd_vma) -4);
676               if (offset < -0x1000000 || offset > 0x0FFFFF0)
677                 continue;
678
679               /* Nop out the reloc, since we're finalizing things here.  */
680               irel->r_info = ELF64_R_INFO (0, R_IA64_NONE);
681             }
682
683           /* Fix up the existing branch to hit the trampoline.  */
684           if (ia64_elf_install_value (contents + roff, offset, r_type)
685               != bfd_reloc_ok)
686             goto error_return;
687
688           changed_contents = TRUE;
689           changed_relocs = TRUE;
690         }
691       else
692         {
693           /* Fetch the gp.  */
694           if (gp == 0)
695             {
696               bfd *obfd = sec->output_section->owner;
697               gp = _bfd_get_gp_value (obfd);
698               if (gp == 0)
699                 {
700                   if (!elf64_ia64_choose_gp (obfd, link_info, FALSE))
701                     goto error_return;
702                   gp = _bfd_get_gp_value (obfd);
703                 }
704             }
705
706           /* If the data is out of range, do nothing.  */
707           if ((bfd_signed_vma) (symaddr - gp) >= 0x200000
708               ||(bfd_signed_vma) (symaddr - gp) < -0x200000)
709             continue;
710
711           if (r_type == R_IA64_GPREL22)
712             elf64_ia64_update_short_info (tsec->output_section,
713                                           tsec->output_offset + toff,
714                                           ia64_info);
715           else if (r_type == R_IA64_LTOFF22X)
716             {
717               /* Can't deal yet correctly with ABS symbols.  */
718               if (bfd_is_abs_section (tsec))
719                 continue;
720
721               irel->r_info = ELF64_R_INFO (ELF64_R_SYM (irel->r_info),
722                                            R_IA64_GPREL22);
723               changed_relocs = TRUE;
724
725               elf64_ia64_update_short_info (tsec->output_section,
726                                             tsec->output_offset + toff,
727                                             ia64_info);
728             }
729           else
730             {
731               ia64_elf_relax_ldxmov (contents, roff);
732               irel->r_info = ELF64_R_INFO (0, R_IA64_NONE);
733               changed_contents = TRUE;
734               changed_relocs = TRUE;
735             }
736         }
737     }
738
739   /* ??? If we created fixups, this may push the code segment large
740      enough that the data segment moves, which will change the GP.
741      Reset the GP so that we re-calculate next round.  We need to
742      do this at the _beginning_ of the next round; now will not do.  */
743
744   /* Clean up and go home.  */
745   while (fixups)
746     {
747       struct one_fixup *f = fixups;
748       fixups = fixups->next;
749       free (f);
750     }
751
752   if (isymbuf != NULL
753       && symtab_hdr->contents != (unsigned char *) isymbuf)
754     {
755       if (! link_info->keep_memory)
756         free (isymbuf);
757       else
758         {
759           /* Cache the symbols for elf_link_input_bfd.  */
760           symtab_hdr->contents = (unsigned char *) isymbuf;
761         }
762     }
763
764   if (contents != NULL
765       && elf_section_data (sec)->this_hdr.contents != contents)
766     {
767       if (!changed_contents && !link_info->keep_memory)
768         free (contents);
769       else
770         {
771           /* Cache the section contents for elf_link_input_bfd.  */
772           elf_section_data (sec)->this_hdr.contents = contents;
773         }
774     }
775
776   if (elf_section_data (sec)->relocs != internal_relocs)
777     {
778       if (!changed_relocs)
779         free (internal_relocs);
780       else
781         elf_section_data (sec)->relocs = internal_relocs;
782     }
783
784   if (link_info->relax_pass == 0)
785     {
786       /* Pass 0 is only needed to relax br.  */
787       sec->skip_relax_pass_0 = skip_relax_pass_0;
788       sec->skip_relax_pass_1 = skip_relax_pass_1;
789     }
790
791   *again = changed_contents || changed_relocs;
792   return TRUE;
793
794  error_return:
795   if (isymbuf != NULL && (unsigned char *) isymbuf != symtab_hdr->contents)
796     free (isymbuf);
797   if (contents != NULL
798       && elf_section_data (sec)->this_hdr.contents != contents)
799     free (contents);
800   if (internal_relocs != NULL
801       && elf_section_data (sec)->relocs != internal_relocs)
802     free (internal_relocs);
803   return FALSE;
804 }
805 #undef skip_relax_pass_0
806 #undef skip_relax_pass_1
807
808 /* Return TRUE if NAME is an unwind table section name.  */
809
810 static inline bfd_boolean
811 is_unwind_section_name (bfd *abfd ATTRIBUTE_UNUSED, const char *name)
812 {
813   return ((CONST_STRNEQ (name, ELF_STRING_ia64_unwind)
814            && ! CONST_STRNEQ (name, ELF_STRING_ia64_unwind_info))
815           || CONST_STRNEQ (name, ELF_STRING_ia64_unwind_once));
816 }
817
818
819 /* Convert IA-64 specific section flags to bfd internal section flags.  */
820
821 /* ??? There is no bfd internal flag equivalent to the SHF_IA_64_NORECOV
822    flag.  */
823
824 static bfd_boolean
825 elf64_ia64_section_flags (flagword *flags,
826                           const Elf_Internal_Shdr *hdr)
827 {
828   if (hdr->sh_flags & SHF_IA_64_SHORT)
829     *flags |= SEC_SMALL_DATA;
830
831   return TRUE;
832 }
833
834 /* Set the correct type for an IA-64 ELF section.  We do this by the
835    section name, which is a hack, but ought to work.  */
836
837 static bfd_boolean
838 elf64_ia64_fake_sections (bfd *abfd, Elf_Internal_Shdr *hdr,
839                           asection *sec)
840 {
841   const char *name;
842
843   name = bfd_get_section_name (abfd, sec);
844
845   if (is_unwind_section_name (abfd, name))
846     {
847       /* We don't have the sections numbered at this point, so sh_info
848          is set later, in elf64_ia64_final_write_processing.  */
849       hdr->sh_type = SHT_IA_64_UNWIND;
850       hdr->sh_flags |= SHF_LINK_ORDER;
851     }
852   else if (strcmp (name, ELF_STRING_ia64_archext) == 0)
853     hdr->sh_type = SHT_IA_64_EXT;
854
855   if (sec->flags & SEC_SMALL_DATA)
856     hdr->sh_flags |= SHF_IA_64_SHORT;
857
858   return TRUE;
859 }
860
861 /* Hook called by the linker routine which adds symbols from an object
862    file.  We use it to put .comm items in .sbss, and not .bss.  */
863
864 static bfd_boolean
865 elf64_ia64_add_symbol_hook (bfd *abfd,
866                             struct bfd_link_info *info,
867                             Elf_Internal_Sym *sym,
868                             const char **namep ATTRIBUTE_UNUSED,
869                             flagword *flagsp ATTRIBUTE_UNUSED,
870                             asection **secp,
871                             bfd_vma *valp)
872 {
873   if (sym->st_shndx == SHN_COMMON
874       && !bfd_link_relocatable (info)
875       && sym->st_size <= elf_gp_size (abfd))
876     {
877       /* Common symbols less than or equal to -G nn bytes are
878          automatically put into .sbss.  */
879
880       asection *scomm = bfd_get_section_by_name (abfd, ".scommon");
881
882       if (scomm == NULL)
883         {
884           scomm = bfd_make_section_with_flags (abfd, ".scommon",
885                                                (SEC_ALLOC
886                                                 | SEC_IS_COMMON
887                                                 | SEC_LINKER_CREATED));
888           if (scomm == NULL)
889             return FALSE;
890         }
891
892       *secp = scomm;
893       *valp = sym->st_size;
894     }
895
896   return TRUE;
897 }
898
899 /* According to the Tahoe assembler spec, all labels starting with a
900    '.' are local.  */
901
902 static bfd_boolean
903 elf64_ia64_is_local_label_name (bfd *abfd ATTRIBUTE_UNUSED,
904                                 const char *name)
905 {
906   return name[0] == '.';
907 }
908
909 /* Should we do dynamic things to this symbol?  */
910
911 static bfd_boolean
912 elf64_ia64_dynamic_symbol_p (struct elf_link_hash_entry *h)
913 {
914   return h != NULL && h->def_dynamic;
915 }
916
917 static struct bfd_hash_entry*
918 elf64_ia64_new_elf_hash_entry (struct bfd_hash_entry *entry,
919                                struct bfd_hash_table *table,
920                                const char *string)
921 {
922   struct elf64_ia64_link_hash_entry *ret;
923   ret = (struct elf64_ia64_link_hash_entry *) entry;
924
925   /* Allocate the structure if it has not already been allocated by a
926      subclass.  */
927   if (!ret)
928     ret = bfd_hash_allocate (table, sizeof (*ret));
929
930   if (!ret)
931     return 0;
932
933   /* Call the allocation method of the superclass.  */
934   ret = ((struct elf64_ia64_link_hash_entry *)
935          _bfd_elf_link_hash_newfunc ((struct bfd_hash_entry *) ret,
936                                      table, string));
937
938   ret->info = NULL;
939   ret->count = 0;
940   ret->sorted_count = 0;
941   ret->size = 0;
942   return (struct bfd_hash_entry *) ret;
943 }
944
945 static void
946 elf64_ia64_hash_hide_symbol (struct bfd_link_info *info,
947                              struct elf_link_hash_entry *xh,
948                              bfd_boolean force_local)
949 {
950   struct elf64_ia64_link_hash_entry *h;
951   struct elf64_ia64_dyn_sym_info *dyn_i;
952   unsigned int count;
953
954   h = (struct elf64_ia64_link_hash_entry *)xh;
955
956   _bfd_elf_link_hash_hide_symbol (info, &h->root, force_local);
957
958   for (count = h->count, dyn_i = h->info;
959        count != 0;
960        count--, dyn_i++)
961     {
962       dyn_i->want_plt2 = 0;
963       dyn_i->want_plt = 0;
964     }
965 }
966
967 /* Compute a hash of a local hash entry.  */
968
969 static hashval_t
970 elf64_ia64_local_htab_hash (const void *ptr)
971 {
972   struct elf64_ia64_local_hash_entry *entry
973     = (struct elf64_ia64_local_hash_entry *) ptr;
974
975   return ELF_LOCAL_SYMBOL_HASH (entry->id, entry->r_sym);
976 }
977
978 /* Compare local hash entries.  */
979
980 static int
981 elf64_ia64_local_htab_eq (const void *ptr1, const void *ptr2)
982 {
983   struct elf64_ia64_local_hash_entry *entry1
984     = (struct elf64_ia64_local_hash_entry *) ptr1;
985   struct elf64_ia64_local_hash_entry *entry2
986     = (struct elf64_ia64_local_hash_entry *) ptr2;
987
988   return entry1->id == entry2->id && entry1->r_sym == entry2->r_sym;
989 }
990
991 /* Free the global elf64_ia64_dyn_sym_info array.  */
992
993 static bfd_boolean
994 elf64_ia64_global_dyn_info_free (void **xentry,
995                                  void * unused ATTRIBUTE_UNUSED)
996 {
997   struct elf64_ia64_link_hash_entry *entry
998     = (struct elf64_ia64_link_hash_entry *) xentry;
999
1000   if (entry->root.root.type == bfd_link_hash_warning)
1001     entry = (struct elf64_ia64_link_hash_entry *) entry->root.root.u.i.link;
1002
1003   if (entry->info)
1004     {
1005       free (entry->info);
1006       entry->info = NULL;
1007       entry->count = 0;
1008       entry->sorted_count = 0;
1009       entry->size = 0;
1010     }
1011
1012   return TRUE;
1013 }
1014
1015 /* Free the local elf64_ia64_dyn_sym_info array.  */
1016
1017 static bfd_boolean
1018 elf64_ia64_local_dyn_info_free (void **slot,
1019                                 void * unused ATTRIBUTE_UNUSED)
1020 {
1021   struct elf64_ia64_local_hash_entry *entry
1022     = (struct elf64_ia64_local_hash_entry *) *slot;
1023
1024   if (entry->info)
1025     {
1026       free (entry->info);
1027       entry->info = NULL;
1028       entry->count = 0;
1029       entry->sorted_count = 0;
1030       entry->size = 0;
1031     }
1032
1033   return TRUE;
1034 }
1035
1036 /* Destroy IA-64 linker hash table.  */
1037
1038 static void
1039 elf64_ia64_link_hash_table_free (bfd *obfd)
1040 {
1041   struct elf64_ia64_link_hash_table *ia64_info
1042     = (struct elf64_ia64_link_hash_table *) obfd->link.hash;
1043   if (ia64_info->loc_hash_table)
1044     {
1045       htab_traverse (ia64_info->loc_hash_table,
1046                      elf64_ia64_local_dyn_info_free, NULL);
1047       htab_delete (ia64_info->loc_hash_table);
1048     }
1049   if (ia64_info->loc_hash_memory)
1050     objalloc_free ((struct objalloc *) ia64_info->loc_hash_memory);
1051   elf_link_hash_traverse (&ia64_info->root,
1052                           elf64_ia64_global_dyn_info_free, NULL);
1053   _bfd_elf_link_hash_table_free (obfd);
1054 }
1055
1056 /* Create the derived linker hash table.  The IA-64 ELF port uses this
1057    derived hash table to keep information specific to the IA-64 ElF
1058    linker (without using static variables).  */
1059
1060 static struct bfd_link_hash_table *
1061 elf64_ia64_hash_table_create (bfd *abfd)
1062 {
1063   struct elf64_ia64_link_hash_table *ret;
1064
1065   ret = bfd_zmalloc ((bfd_size_type) sizeof (*ret));
1066   if (!ret)
1067     return NULL;
1068
1069   if (!_bfd_elf_link_hash_table_init (&ret->root, abfd,
1070                                       elf64_ia64_new_elf_hash_entry,
1071                                       sizeof (struct elf64_ia64_link_hash_entry),
1072                                       IA64_ELF_DATA))
1073     {
1074       free (ret);
1075       return NULL;
1076     }
1077
1078   ret->loc_hash_table = htab_try_create (1024, elf64_ia64_local_htab_hash,
1079                                          elf64_ia64_local_htab_eq, NULL);
1080   ret->loc_hash_memory = objalloc_create ();
1081   if (!ret->loc_hash_table || !ret->loc_hash_memory)
1082     {
1083       elf64_ia64_link_hash_table_free (abfd);
1084       return NULL;
1085     }
1086   ret->root.root.hash_table_free = elf64_ia64_link_hash_table_free;
1087
1088   return &ret->root.root;
1089 }
1090
1091 /* Traverse both local and global hash tables.  */
1092
1093 struct elf64_ia64_dyn_sym_traverse_data
1094 {
1095   bfd_boolean (*func) (struct elf64_ia64_dyn_sym_info *, void *);
1096   void * data;
1097 };
1098
1099 static bfd_boolean
1100 elf64_ia64_global_dyn_sym_thunk (struct bfd_hash_entry *xentry,
1101                                  void * xdata)
1102 {
1103   struct elf64_ia64_link_hash_entry *entry
1104     = (struct elf64_ia64_link_hash_entry *) xentry;
1105   struct elf64_ia64_dyn_sym_traverse_data *data
1106     = (struct elf64_ia64_dyn_sym_traverse_data *) xdata;
1107   struct elf64_ia64_dyn_sym_info *dyn_i;
1108   unsigned int count;
1109
1110   if (entry->root.root.type == bfd_link_hash_warning)
1111     entry = (struct elf64_ia64_link_hash_entry *) entry->root.root.u.i.link;
1112
1113   for (count = entry->count, dyn_i = entry->info;
1114        count != 0;
1115        count--, dyn_i++)
1116     if (! (*data->func) (dyn_i, data->data))
1117       return FALSE;
1118   return TRUE;
1119 }
1120
1121 static bfd_boolean
1122 elf64_ia64_local_dyn_sym_thunk (void **slot, void * xdata)
1123 {
1124   struct elf64_ia64_local_hash_entry *entry
1125     = (struct elf64_ia64_local_hash_entry *) *slot;
1126   struct elf64_ia64_dyn_sym_traverse_data *data
1127     = (struct elf64_ia64_dyn_sym_traverse_data *) xdata;
1128   struct elf64_ia64_dyn_sym_info *dyn_i;
1129   unsigned int count;
1130
1131   for (count = entry->count, dyn_i = entry->info;
1132        count != 0;
1133        count--, dyn_i++)
1134     if (! (*data->func) (dyn_i, data->data))
1135       return FALSE;
1136   return TRUE;
1137 }
1138
1139 static void
1140 elf64_ia64_dyn_sym_traverse (struct elf64_ia64_link_hash_table *ia64_info,
1141                              bfd_boolean (*func) (struct elf64_ia64_dyn_sym_info *, void *),
1142                              void * data)
1143 {
1144   struct elf64_ia64_dyn_sym_traverse_data xdata;
1145
1146   xdata.func = func;
1147   xdata.data = data;
1148
1149   elf_link_hash_traverse (&ia64_info->root,
1150                           elf64_ia64_global_dyn_sym_thunk, &xdata);
1151   htab_traverse (ia64_info->loc_hash_table,
1152                  elf64_ia64_local_dyn_sym_thunk, &xdata);
1153 }
1154
1155 #define NOTE_NAME "IPF/VMS"
1156
1157 static bfd_boolean
1158 create_ia64_vms_notes (bfd *abfd, struct bfd_link_info *info,
1159                        unsigned int time_hi, unsigned int time_lo)
1160 {
1161 #define NBR_NOTES 7
1162   Elf_Internal_Note notes[NBR_NOTES];
1163   char *module_name;
1164   int module_name_len;
1165   unsigned char cur_time[8];
1166   Elf64_External_VMS_ORIG_DYN_Note *orig_dyn;
1167   unsigned int orig_dyn_size;
1168   unsigned int note_size;
1169   int i;
1170   unsigned char *noteptr;
1171   unsigned char *note_contents;
1172   struct elf64_ia64_link_hash_table *ia64_info;
1173
1174   ia64_info = elf64_ia64_hash_table (info);
1175
1176   module_name = vms_get_module_name (bfd_get_filename (abfd), TRUE);
1177   module_name_len = strlen (module_name) + 1;
1178
1179   bfd_putl32 (time_lo, cur_time + 0);
1180   bfd_putl32 (time_hi, cur_time + 4);
1181
1182   /* Note 0: IMGNAM.  */
1183   notes[0].type = NT_VMS_IMGNAM;
1184   notes[0].descdata = module_name;
1185   notes[0].descsz = module_name_len;
1186
1187   /* Note 1: GSTNAM.  */
1188   notes[1].type = NT_VMS_GSTNAM;
1189   notes[1].descdata = module_name;
1190   notes[1].descsz = module_name_len;
1191
1192   /* Note 2: IMGID.  */
1193 #define IMG_ID "V1.0"
1194   notes[2].type = NT_VMS_IMGID;
1195   notes[2].descdata = IMG_ID;
1196   notes[2].descsz = sizeof (IMG_ID);
1197
1198   /* Note 3: Linktime.  */
1199   notes[3].type = NT_VMS_LINKTIME;
1200   notes[3].descdata = (char *)cur_time;
1201   notes[3].descsz = sizeof (cur_time);
1202
1203   /* Note 4: Linker id.  */
1204   notes[4].type = NT_VMS_LINKID;
1205   notes[4].descdata = "GNU ld " BFD_VERSION_STRING;
1206   notes[4].descsz = strlen (notes[4].descdata) + 1;
1207
1208   /* Note 5: Original dyn.  */
1209   orig_dyn_size = (sizeof (*orig_dyn) + sizeof (IMG_ID) - 1 + 7) & ~7;
1210   orig_dyn = bfd_zalloc (abfd, orig_dyn_size);
1211   if (orig_dyn == NULL)
1212     return FALSE;
1213   bfd_putl32 (1, orig_dyn->major_id);
1214   bfd_putl32 (3, orig_dyn->minor_id);
1215   memcpy (orig_dyn->manipulation_date, cur_time, sizeof (cur_time));
1216   bfd_putl64 (VMS_LF_IMGSTA | VMS_LF_MAIN, orig_dyn->link_flags);
1217   bfd_putl32 (EF_IA_64_ABI64, orig_dyn->elf_flags);
1218   memcpy (orig_dyn->imgid, IMG_ID, sizeof (IMG_ID));
1219   notes[5].type = NT_VMS_ORIG_DYN;
1220   notes[5].descdata = (char *)orig_dyn;
1221   notes[5].descsz = orig_dyn_size;
1222
1223   /* Note 3: Patchtime.  */
1224   notes[6].type = NT_VMS_PATCHTIME;
1225   notes[6].descdata = (char *)cur_time;
1226   notes[6].descsz = sizeof (cur_time);
1227
1228   /* Compute notes size.  */
1229   note_size = 0;
1230   for (i = 0; i < NBR_NOTES; i++)
1231     note_size += sizeof (Elf64_External_VMS_Note) - 1
1232       + ((sizeof (NOTE_NAME) - 1 + 7) & ~7)
1233       + ((notes[i].descsz + 7) & ~7);
1234
1235   /* Malloc a temporary buffer large enough for most notes */
1236   note_contents = (unsigned char *) bfd_zalloc (abfd, note_size);
1237   if (note_contents == NULL)
1238     return FALSE;
1239   noteptr = note_contents;
1240
1241   /* Fill notes.  */
1242   for (i = 0; i < NBR_NOTES; i++)
1243     {
1244       Elf64_External_VMS_Note *enote = (Elf64_External_VMS_Note *) noteptr;
1245
1246       bfd_putl64 (sizeof (NOTE_NAME) - 1, enote->namesz);
1247       bfd_putl64 (notes[i].descsz, enote->descsz);
1248       bfd_putl64 (notes[i].type, enote->type);
1249
1250       noteptr = (unsigned char *)enote->name;
1251       memcpy (noteptr, NOTE_NAME, sizeof (NOTE_NAME) - 1);
1252       noteptr += (sizeof (NOTE_NAME) - 1 + 7) & ~7;
1253       memcpy (noteptr, notes[i].descdata, notes[i].descsz);
1254       noteptr += (notes[i].descsz + 7) & ~7;
1255     }
1256
1257   ia64_info->note_sec->contents = note_contents;
1258   ia64_info->note_sec->size = note_size;
1259
1260   free (module_name);
1261
1262   return TRUE;
1263 }
1264
1265 static bfd_boolean
1266 elf64_ia64_create_dynamic_sections (bfd *abfd,
1267                                     struct bfd_link_info *info)
1268 {
1269   struct elf64_ia64_link_hash_table *ia64_info;
1270   asection *s;
1271   flagword flags;
1272   const struct elf_backend_data *bed;
1273
1274   ia64_info = elf64_ia64_hash_table (info);
1275   if (ia64_info == NULL)
1276     return FALSE;
1277
1278   if (elf_hash_table (info)->dynamic_sections_created)
1279     return TRUE;
1280
1281   abfd = elf_hash_table (info)->dynobj;
1282   bed = get_elf_backend_data (abfd);
1283
1284   flags = bed->dynamic_sec_flags;
1285
1286   s = bfd_make_section_anyway_with_flags (abfd, ".dynamic",
1287                                           flags | SEC_READONLY);
1288   if (s == NULL
1289       || ! bfd_set_section_alignment (abfd, s, bed->s->log_file_align))
1290     return FALSE;
1291
1292   s = bfd_make_section_anyway_with_flags (abfd, ".plt", flags | SEC_READONLY);
1293   if (s == NULL
1294       || ! bfd_set_section_alignment (abfd, s, bed->plt_alignment))
1295     return FALSE;
1296   ia64_info->root.splt = s;
1297
1298   if (!get_got (abfd, ia64_info))
1299     return FALSE;
1300
1301   if (!get_pltoff (abfd, ia64_info))
1302     return FALSE;
1303
1304   s = bfd_make_section_anyway_with_flags (abfd, ".vmsdynstr",
1305                                           (SEC_ALLOC
1306                                            | SEC_HAS_CONTENTS
1307                                            | SEC_IN_MEMORY
1308                                            | SEC_LINKER_CREATED));
1309   if (s == NULL
1310       || !bfd_set_section_alignment (abfd, s, 0))
1311     return FALSE;
1312
1313   /* Create a fixup section.  */
1314   s = bfd_make_section_anyway_with_flags (abfd, ".fixups",
1315                                           (SEC_ALLOC
1316                                            | SEC_HAS_CONTENTS
1317                                            | SEC_IN_MEMORY
1318                                            | SEC_LINKER_CREATED));
1319   if (s == NULL
1320       || !bfd_set_section_alignment (abfd, s, 3))
1321     return FALSE;
1322   ia64_info->fixups_sec = s;
1323
1324   /* Create the transfer fixup section.  */
1325   s = bfd_make_section_anyway_with_flags (abfd, ".transfer",
1326                                           (SEC_ALLOC
1327                                            | SEC_HAS_CONTENTS
1328                                            | SEC_IN_MEMORY
1329                                            | SEC_LINKER_CREATED));
1330   if (s == NULL
1331       || !bfd_set_section_alignment (abfd, s, 3))
1332     return FALSE;
1333   s->size = sizeof (struct elf64_vms_transfer);
1334   ia64_info->transfer_sec = s;
1335
1336   /* Create note section.  */
1337   s = bfd_make_section_anyway_with_flags (abfd, ".vms.note",
1338                                           (SEC_LINKER_CREATED
1339                                            | SEC_HAS_CONTENTS
1340                                            | SEC_IN_MEMORY
1341                                            | SEC_READONLY));
1342   if (s == NULL
1343       || !bfd_set_section_alignment (abfd, s, 3))
1344     return FALSE;
1345   ia64_info->note_sec = s;
1346
1347   elf_hash_table (info)->dynamic_sections_created = TRUE;
1348   return TRUE;
1349 }
1350
1351 /* Find and/or create a hash entry for local symbol.  */
1352 static struct elf64_ia64_local_hash_entry *
1353 get_local_sym_hash (struct elf64_ia64_link_hash_table *ia64_info,
1354                     bfd *abfd, const Elf_Internal_Rela *rel,
1355                     bfd_boolean create)
1356 {
1357   struct elf64_ia64_local_hash_entry e, *ret;
1358   asection *sec = abfd->sections;
1359   hashval_t h = ELF_LOCAL_SYMBOL_HASH (sec->id,
1360                                        ELF64_R_SYM (rel->r_info));
1361   void **slot;
1362
1363   e.id = sec->id;
1364   e.r_sym = ELF64_R_SYM (rel->r_info);
1365   slot = htab_find_slot_with_hash (ia64_info->loc_hash_table, &e, h,
1366                                    create ? INSERT : NO_INSERT);
1367
1368   if (!slot)
1369     return NULL;
1370
1371   if (*slot)
1372     return (struct elf64_ia64_local_hash_entry *) *slot;
1373
1374   ret = (struct elf64_ia64_local_hash_entry *)
1375         objalloc_alloc ((struct objalloc *) ia64_info->loc_hash_memory,
1376                         sizeof (struct elf64_ia64_local_hash_entry));
1377   if (ret)
1378     {
1379       memset (ret, 0, sizeof (*ret));
1380       ret->id = sec->id;
1381       ret->r_sym = ELF64_R_SYM (rel->r_info);
1382       *slot = ret;
1383     }
1384   return ret;
1385 }
1386
1387 /* Used to sort elf64_ia64_dyn_sym_info array.  */
1388
1389 static int
1390 addend_compare (const void *xp, const void *yp)
1391 {
1392   const struct elf64_ia64_dyn_sym_info *x
1393     = (const struct elf64_ia64_dyn_sym_info *) xp;
1394   const struct elf64_ia64_dyn_sym_info *y
1395     = (const struct elf64_ia64_dyn_sym_info *) yp;
1396
1397   return x->addend < y->addend ? -1 : x->addend > y->addend ? 1 : 0;
1398 }
1399
1400 /* Sort elf64_ia64_dyn_sym_info array and remove duplicates.  */
1401
1402 static unsigned int
1403 sort_dyn_sym_info (struct elf64_ia64_dyn_sym_info *info,
1404                    unsigned int count)
1405 {
1406   bfd_vma curr, prev, got_offset;
1407   unsigned int i, kept, dupes, diff, dest, src, len;
1408
1409   qsort (info, count, sizeof (*info), addend_compare);
1410
1411   /* Find the first duplicate.  */
1412   prev = info [0].addend;
1413   got_offset = info [0].got_offset;
1414   for (i = 1; i < count; i++)
1415     {
1416       curr = info [i].addend;
1417       if (curr == prev)
1418         {
1419           /* For duplicates, make sure that GOT_OFFSET is valid.  */
1420           if (got_offset == (bfd_vma) -1)
1421             got_offset = info [i].got_offset;
1422           break;
1423         }
1424       got_offset = info [i].got_offset;
1425       prev = curr;
1426     }
1427
1428   /* We may move a block of elements to here.  */
1429   dest = i++;
1430
1431   /* Remove duplicates.  */
1432   if (i < count)
1433     {
1434       while (i < count)
1435         {
1436           /* For duplicates, make sure that the kept one has a valid
1437              got_offset.  */
1438           kept = dest - 1;
1439           if (got_offset != (bfd_vma) -1)
1440             info [kept].got_offset = got_offset;
1441
1442           curr = info [i].addend;
1443           got_offset = info [i].got_offset;
1444
1445           /* Move a block of elements whose first one is different from
1446              the previous.  */
1447           if (curr == prev)
1448             {
1449               for (src = i + 1; src < count; src++)
1450                 {
1451                   if (info [src].addend != curr)
1452                     break;
1453                   /* For duplicates, make sure that GOT_OFFSET is
1454                      valid.  */
1455                   if (got_offset == (bfd_vma) -1)
1456                     got_offset = info [src].got_offset;
1457                 }
1458
1459               /* Make sure that the kept one has a valid got_offset.  */
1460               if (got_offset != (bfd_vma) -1)
1461                 info [kept].got_offset = got_offset;
1462             }
1463           else
1464             src = i;
1465
1466           if (src >= count)
1467             break;
1468
1469           /* Find the next duplicate.  SRC will be kept.  */
1470           prev = info [src].addend;
1471           got_offset = info [src].got_offset;
1472           for (dupes = src + 1; dupes < count; dupes ++)
1473             {
1474               curr = info [dupes].addend;
1475               if (curr == prev)
1476                 {
1477                   /* Make sure that got_offset is valid.  */
1478                   if (got_offset == (bfd_vma) -1)
1479                     got_offset = info [dupes].got_offset;
1480
1481                   /* For duplicates, make sure that the kept one has
1482                      a valid got_offset.  */
1483                   if (got_offset != (bfd_vma) -1)
1484                     info [dupes - 1].got_offset = got_offset;
1485                   break;
1486                 }
1487               got_offset = info [dupes].got_offset;
1488               prev = curr;
1489             }
1490
1491           /* How much to move.  */
1492           len = dupes - src;
1493           i = dupes + 1;
1494
1495           if (len == 1 && dupes < count)
1496             {
1497               /* If we only move 1 element, we combine it with the next
1498                  one.  There must be at least a duplicate.  Find the
1499                  next different one.  */
1500               for (diff = dupes + 1, src++; diff < count; diff++, src++)
1501                 {
1502                   if (info [diff].addend != curr)
1503                     break;
1504                   /* Make sure that got_offset is valid.  */
1505                   if (got_offset == (bfd_vma) -1)
1506                     got_offset = info [diff].got_offset;
1507                 }
1508
1509               /* Makre sure that the last duplicated one has an valid
1510                  offset.  */
1511               BFD_ASSERT (curr == prev);
1512               if (got_offset != (bfd_vma) -1)
1513                 info [diff - 1].got_offset = got_offset;
1514
1515               if (diff < count)
1516                 {
1517                   /* Find the next duplicate.  Track the current valid
1518                      offset.  */
1519                   prev = info [diff].addend;
1520                   got_offset = info [diff].got_offset;
1521                   for (dupes = diff + 1; dupes < count; dupes ++)
1522                     {
1523                       curr = info [dupes].addend;
1524                       if (curr == prev)
1525                         {
1526                           /* For duplicates, make sure that GOT_OFFSET
1527                              is valid.  */
1528                           if (got_offset == (bfd_vma) -1)
1529                             got_offset = info [dupes].got_offset;
1530                           break;
1531                         }
1532                       got_offset = info [dupes].got_offset;
1533                       prev = curr;
1534                       diff++;
1535                     }
1536
1537                   len = diff - src + 1;
1538                   i = diff + 1;
1539                 }
1540             }
1541
1542           memmove (&info [dest], &info [src], len * sizeof (*info));
1543
1544           dest += len;
1545         }
1546
1547       count = dest;
1548     }
1549   else
1550     {
1551       /* When we get here, either there is no duplicate at all or
1552          the only duplicate is the last element.  */
1553       if (dest < count)
1554         {
1555           /* If the last element is a duplicate, make sure that the
1556              kept one has a valid got_offset.  We also update count.  */
1557           if (got_offset != (bfd_vma) -1)
1558             info [dest - 1].got_offset = got_offset;
1559           count = dest;
1560         }
1561     }
1562
1563   return count;
1564 }
1565
1566 /* Find and/or create a descriptor for dynamic symbol info.  This will
1567    vary based on global or local symbol, and the addend to the reloc.
1568
1569    We don't sort when inserting.  Also, we sort and eliminate
1570    duplicates if there is an unsorted section.  Typically, this will
1571    only happen once, because we do all insertions before lookups.  We
1572    then use bsearch to do a lookup.  This also allows lookups to be
1573    fast.  So we have fast insertion (O(log N) due to duplicate check),
1574    fast lookup (O(log N)) and one sort (O(N log N) expected time).
1575    Previously, all lookups were O(N) because of the use of the linked
1576    list and also all insertions were O(N) because of the check for
1577    duplicates.  There are some complications here because the array
1578    size grows occasionally, which may add an O(N) factor, but this
1579    should be rare.  Also,  we free the excess array allocation, which
1580    requires a copy which is O(N), but this only happens once.  */
1581
1582 static struct elf64_ia64_dyn_sym_info *
1583 get_dyn_sym_info (struct elf64_ia64_link_hash_table *ia64_info,
1584                   struct elf_link_hash_entry *h, bfd *abfd,
1585                   const Elf_Internal_Rela *rel, bfd_boolean create)
1586 {
1587   struct elf64_ia64_dyn_sym_info **info_p, *info, *dyn_i, key;
1588   unsigned int *count_p, *sorted_count_p, *size_p;
1589   unsigned int count, sorted_count, size;
1590   bfd_vma addend = rel ? rel->r_addend : 0;
1591   bfd_size_type amt;
1592
1593   if (h)
1594     {
1595       struct elf64_ia64_link_hash_entry *global_h;
1596
1597       global_h = (struct elf64_ia64_link_hash_entry *) h;
1598       info_p = &global_h->info;
1599       count_p = &global_h->count;
1600       sorted_count_p = &global_h->sorted_count;
1601       size_p = &global_h->size;
1602     }
1603   else
1604     {
1605       struct elf64_ia64_local_hash_entry *loc_h;
1606
1607       loc_h = get_local_sym_hash (ia64_info, abfd, rel, create);
1608       if (!loc_h)
1609         {
1610           BFD_ASSERT (!create);
1611           return NULL;
1612         }
1613
1614       info_p = &loc_h->info;
1615       count_p = &loc_h->count;
1616       sorted_count_p = &loc_h->sorted_count;
1617       size_p = &loc_h->size;
1618     }
1619
1620   count = *count_p;
1621   sorted_count = *sorted_count_p;
1622   size = *size_p;
1623   info = *info_p;
1624   if (create)
1625     {
1626       /* When we create the array, we don't check for duplicates,
1627          except in the previously sorted section if one exists, and
1628          against the last inserted entry.  This allows insertions to
1629          be fast.  */
1630       if (info)
1631         {
1632           if (sorted_count)
1633             {
1634               /* Try bsearch first on the sorted section.  */
1635               key.addend = addend;
1636               dyn_i = bsearch (&key, info, sorted_count,
1637                                sizeof (*info), addend_compare);
1638
1639               if (dyn_i)
1640                 {
1641                   return dyn_i;
1642                 }
1643             }
1644
1645           /* Do a quick check for the last inserted entry.  */
1646           dyn_i = info + count - 1;
1647           if (dyn_i->addend == addend)
1648             {
1649               return dyn_i;
1650             }
1651         }
1652
1653       if (size == 0)
1654         {
1655           /* It is the very first element. We create the array of size
1656              1.  */
1657           size = 1;
1658           amt = size * sizeof (*info);
1659           info = bfd_malloc (amt);
1660         }
1661       else if (size <= count)
1662         {
1663           /* We double the array size every time when we reach the
1664              size limit.  */
1665           size += size;
1666           amt = size * sizeof (*info);
1667           info = bfd_realloc (info, amt);
1668         }
1669       else
1670         goto has_space;
1671
1672       if (info == NULL)
1673         return NULL;
1674       *size_p = size;
1675       *info_p = info;
1676
1677 has_space:
1678       /* Append the new one to the array.  */
1679       dyn_i = info + count;
1680       memset (dyn_i, 0, sizeof (*dyn_i));
1681       dyn_i->got_offset = (bfd_vma) -1;
1682       dyn_i->addend = addend;
1683
1684       /* We increment count only since the new ones are unsorted and
1685          may have duplicate.  */
1686       (*count_p)++;
1687     }
1688   else
1689     {
1690       /* It is a lookup without insertion.  Sort array if part of the
1691          array isn't sorted.  */
1692       if (count != sorted_count)
1693         {
1694           count = sort_dyn_sym_info (info, count);
1695           *count_p = count;
1696           *sorted_count_p = count;
1697         }
1698
1699       /* Free unused memory.  */
1700       if (size != count)
1701         {
1702           amt = count * sizeof (*info);
1703           info = bfd_malloc (amt);
1704           if (info != NULL)
1705             {
1706               memcpy (info, *info_p, amt);
1707               free (*info_p);
1708               *size_p = count;
1709               *info_p = info;
1710             }
1711         }
1712
1713       key.addend = addend;
1714       dyn_i = bsearch (&key, info, count,
1715                        sizeof (*info), addend_compare);
1716     }
1717
1718   return dyn_i;
1719 }
1720
1721 static asection *
1722 get_got (bfd *abfd, struct elf64_ia64_link_hash_table *ia64_info)
1723 {
1724   asection *got;
1725   bfd *dynobj;
1726
1727   got = ia64_info->root.sgot;
1728   if (!got)
1729     {
1730       flagword flags;
1731
1732       dynobj = ia64_info->root.dynobj;
1733       if (!dynobj)
1734         ia64_info->root.dynobj = dynobj = abfd;
1735
1736       /* The .got section is always aligned at 8 bytes.  */
1737       flags = get_elf_backend_data (dynobj)->dynamic_sec_flags;
1738       got = bfd_make_section_anyway_with_flags (dynobj, ".got",
1739                                                 flags | SEC_SMALL_DATA);
1740       if (got == NULL
1741           || !bfd_set_section_alignment (dynobj, got, 3))
1742         return NULL;
1743       ia64_info->root.sgot = got;
1744     }
1745
1746   return got;
1747 }
1748
1749 /* Create function descriptor section (.opd).  This section is called .opd
1750    because it contains "official procedure descriptors".  The "official"
1751    refers to the fact that these descriptors are used when taking the address
1752    of a procedure, thus ensuring a unique address for each procedure.  */
1753
1754 static asection *
1755 get_fptr (bfd *abfd, struct bfd_link_info *info,
1756           struct elf64_ia64_link_hash_table *ia64_info)
1757 {
1758   asection *fptr;
1759   bfd *dynobj;
1760
1761   fptr = ia64_info->fptr_sec;
1762   if (!fptr)
1763     {
1764       dynobj = ia64_info->root.dynobj;
1765       if (!dynobj)
1766         ia64_info->root.dynobj = dynobj = abfd;
1767
1768       fptr = bfd_make_section_anyway_with_flags (dynobj, ".opd",
1769                                                  (SEC_ALLOC
1770                                                   | SEC_LOAD
1771                                                   | SEC_HAS_CONTENTS
1772                                                   | SEC_IN_MEMORY
1773                                                   | (bfd_link_pie (info) ? 0
1774                                                      : SEC_READONLY)
1775                                                   | SEC_LINKER_CREATED));
1776       if (!fptr
1777           || !bfd_set_section_alignment (dynobj, fptr, 4))
1778         {
1779           BFD_ASSERT (0);
1780           return NULL;
1781         }
1782
1783       ia64_info->fptr_sec = fptr;
1784
1785       if (bfd_link_pie (info))
1786         {
1787           asection *fptr_rel;
1788           fptr_rel = bfd_make_section_anyway_with_flags (dynobj, ".rela.opd",
1789                                                          (SEC_ALLOC | SEC_LOAD
1790                                                           | SEC_HAS_CONTENTS
1791                                                           | SEC_IN_MEMORY
1792                                                           | SEC_LINKER_CREATED
1793                                                           | SEC_READONLY));
1794           if (fptr_rel == NULL
1795               || !bfd_set_section_alignment (dynobj, fptr_rel, 3))
1796             {
1797               BFD_ASSERT (0);
1798               return NULL;
1799             }
1800
1801           ia64_info->rel_fptr_sec = fptr_rel;
1802         }
1803     }
1804
1805   return fptr;
1806 }
1807
1808 static asection *
1809 get_pltoff (bfd *abfd, struct elf64_ia64_link_hash_table *ia64_info)
1810 {
1811   asection *pltoff;
1812   bfd *dynobj;
1813
1814   pltoff = ia64_info->pltoff_sec;
1815   if (!pltoff)
1816     {
1817       dynobj = ia64_info->root.dynobj;
1818       if (!dynobj)
1819         ia64_info->root.dynobj = dynobj = abfd;
1820
1821       pltoff = bfd_make_section_anyway_with_flags (dynobj,
1822                                                    ELF_STRING_ia64_pltoff,
1823                                                    (SEC_ALLOC
1824                                                     | SEC_LOAD
1825                                                     | SEC_HAS_CONTENTS
1826                                                     | SEC_IN_MEMORY
1827                                                     | SEC_SMALL_DATA
1828                                                     | SEC_LINKER_CREATED));
1829       if (!pltoff
1830           || !bfd_set_section_alignment (dynobj, pltoff, 4))
1831         {
1832           BFD_ASSERT (0);
1833           return NULL;
1834         }
1835
1836       ia64_info->pltoff_sec = pltoff;
1837     }
1838
1839   return pltoff;
1840 }
1841
1842 static asection *
1843 get_reloc_section (bfd *abfd,
1844                    struct elf64_ia64_link_hash_table *ia64_info,
1845                    asection *sec, bfd_boolean create)
1846 {
1847   const char *srel_name;
1848   asection *srel;
1849   bfd *dynobj;
1850
1851   srel_name = (bfd_elf_string_from_elf_section
1852                (abfd, elf_elfheader(abfd)->e_shstrndx,
1853                 _bfd_elf_single_rel_hdr (sec)->sh_name));
1854   if (srel_name == NULL)
1855     return NULL;
1856
1857   BFD_ASSERT ((CONST_STRNEQ (srel_name, ".rela")
1858                && strcmp (bfd_get_section_name (abfd, sec),
1859                           srel_name+5) == 0)
1860               || (CONST_STRNEQ (srel_name, ".rel")
1861                   && strcmp (bfd_get_section_name (abfd, sec),
1862                              srel_name+4) == 0));
1863
1864   dynobj = ia64_info->root.dynobj;
1865   if (!dynobj)
1866     ia64_info->root.dynobj = dynobj = abfd;
1867
1868   srel = bfd_get_linker_section (dynobj, srel_name);
1869   if (srel == NULL && create)
1870     {
1871       srel = bfd_make_section_anyway_with_flags (dynobj, srel_name,
1872                                                  (SEC_ALLOC | SEC_LOAD
1873                                                   | SEC_HAS_CONTENTS
1874                                                   | SEC_IN_MEMORY
1875                                                   | SEC_LINKER_CREATED
1876                                                   | SEC_READONLY));
1877       if (srel == NULL
1878           || !bfd_set_section_alignment (dynobj, srel, 3))
1879         return NULL;
1880     }
1881
1882   return srel;
1883 }
1884
1885 static bfd_boolean
1886 count_dyn_reloc (bfd *abfd, struct elf64_ia64_dyn_sym_info *dyn_i,
1887                  asection *srel, int type)
1888 {
1889   struct elf64_ia64_dyn_reloc_entry *rent;
1890
1891   for (rent = dyn_i->reloc_entries; rent; rent = rent->next)
1892     if (rent->srel == srel && rent->type == type)
1893       break;
1894
1895   if (!rent)
1896     {
1897       rent = ((struct elf64_ia64_dyn_reloc_entry *)
1898               bfd_alloc (abfd, (bfd_size_type) sizeof (*rent)));
1899       if (!rent)
1900         return FALSE;
1901
1902       rent->next = dyn_i->reloc_entries;
1903       rent->srel = srel;
1904       rent->type = type;
1905       rent->count = 0;
1906       dyn_i->reloc_entries = rent;
1907     }
1908   rent->count++;
1909
1910   return TRUE;
1911 }
1912
1913 static bfd_boolean
1914 elf64_ia64_check_relocs (bfd *abfd, struct bfd_link_info *info,
1915                          asection *sec,
1916                          const Elf_Internal_Rela *relocs)
1917 {
1918   struct elf64_ia64_link_hash_table *ia64_info;
1919   const Elf_Internal_Rela *relend;
1920   Elf_Internal_Shdr *symtab_hdr;
1921   const Elf_Internal_Rela *rel;
1922   asection *got, *fptr, *srel, *pltoff;
1923   enum {
1924     NEED_GOT = 1,
1925     NEED_GOTX = 2,
1926     NEED_FPTR = 4,
1927     NEED_PLTOFF = 8,
1928     NEED_MIN_PLT = 16,
1929     NEED_FULL_PLT = 32,
1930     NEED_DYNREL = 64,
1931     NEED_LTOFF_FPTR = 128
1932   };
1933   int need_entry;
1934   struct elf_link_hash_entry *h;
1935   unsigned long r_symndx;
1936   bfd_boolean maybe_dynamic;
1937
1938   if (bfd_link_relocatable (info))
1939     return TRUE;
1940
1941   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1942   ia64_info = elf64_ia64_hash_table (info);
1943   if (ia64_info == NULL)
1944     return FALSE;
1945
1946   got = fptr = srel = pltoff = NULL;
1947
1948   relend = relocs + sec->reloc_count;
1949
1950   /* We scan relocations first to create dynamic relocation arrays.  We
1951      modified get_dyn_sym_info to allow fast insertion and support fast
1952      lookup in the next loop.  */
1953   for (rel = relocs; rel < relend; ++rel)
1954     {
1955       r_symndx = ELF64_R_SYM (rel->r_info);
1956       if (r_symndx >= symtab_hdr->sh_info)
1957         {
1958           long indx = r_symndx - symtab_hdr->sh_info;
1959           h = elf_sym_hashes (abfd)[indx];
1960           while (h->root.type == bfd_link_hash_indirect
1961                  || h->root.type == bfd_link_hash_warning)
1962             h = (struct elf_link_hash_entry *) h->root.u.i.link;
1963         }
1964       else
1965         h = NULL;
1966
1967       /* We can only get preliminary data on whether a symbol is
1968          locally or externally defined, as not all of the input files
1969          have yet been processed.  Do something with what we know, as
1970          this may help reduce memory usage and processing time later.  */
1971       maybe_dynamic = (h && ((!bfd_link_executable (info)
1972                               && (!SYMBOLIC_BIND (info, h)
1973                                   || info->unresolved_syms_in_shared_libs == RM_IGNORE))
1974                              || !h->def_regular
1975                              || h->root.type == bfd_link_hash_defweak));
1976
1977       need_entry = 0;
1978       switch (ELF64_R_TYPE (rel->r_info))
1979         {
1980         case R_IA64_TPREL64MSB:
1981         case R_IA64_TPREL64LSB:
1982         case R_IA64_LTOFF_TPREL22:
1983         case R_IA64_DTPREL32MSB:
1984         case R_IA64_DTPREL32LSB:
1985         case R_IA64_DTPREL64MSB:
1986         case R_IA64_DTPREL64LSB:
1987         case R_IA64_LTOFF_DTPREL22:
1988         case R_IA64_DTPMOD64MSB:
1989         case R_IA64_DTPMOD64LSB:
1990         case R_IA64_LTOFF_DTPMOD22:
1991           abort ();
1992           break;
1993
1994         case R_IA64_IPLTMSB:
1995         case R_IA64_IPLTLSB:
1996           break;
1997
1998         case R_IA64_LTOFF_FPTR22:
1999         case R_IA64_LTOFF_FPTR64I:
2000         case R_IA64_LTOFF_FPTR32MSB:
2001         case R_IA64_LTOFF_FPTR32LSB:
2002         case R_IA64_LTOFF_FPTR64MSB:
2003         case R_IA64_LTOFF_FPTR64LSB:
2004           need_entry = NEED_FPTR | NEED_GOT | NEED_LTOFF_FPTR;
2005           break;
2006
2007         case R_IA64_FPTR64I:
2008         case R_IA64_FPTR32MSB:
2009         case R_IA64_FPTR32LSB:
2010         case R_IA64_FPTR64MSB:
2011         case R_IA64_FPTR64LSB:
2012           if (bfd_link_pic (info) || h)
2013             need_entry = NEED_FPTR | NEED_DYNREL;
2014           else
2015             need_entry = NEED_FPTR;
2016           break;
2017
2018         case R_IA64_LTOFF22:
2019         case R_IA64_LTOFF64I:
2020           need_entry = NEED_GOT;
2021           break;
2022
2023         case R_IA64_LTOFF22X:
2024           need_entry = NEED_GOTX;
2025           break;
2026
2027         case R_IA64_PLTOFF22:
2028         case R_IA64_PLTOFF64I:
2029         case R_IA64_PLTOFF64MSB:
2030         case R_IA64_PLTOFF64LSB:
2031           need_entry = NEED_PLTOFF;
2032           if (h)
2033             {
2034               if (maybe_dynamic)
2035                 need_entry |= NEED_MIN_PLT;
2036             }
2037           else
2038             {
2039               (*info->callbacks->warning)
2040                 (info, _("@pltoff reloc against local symbol"), 0,
2041                  abfd, 0, (bfd_vma) 0);
2042             }
2043           break;
2044
2045         case R_IA64_PCREL21B:
2046         case R_IA64_PCREL60B:
2047           /* Depending on where this symbol is defined, we may or may not
2048              need a full plt entry.  Only skip if we know we'll not need
2049              the entry -- static or symbolic, and the symbol definition
2050              has already been seen.  */
2051           if (maybe_dynamic && rel->r_addend == 0)
2052             need_entry = NEED_FULL_PLT;
2053           break;
2054
2055         case R_IA64_IMM14:
2056         case R_IA64_IMM22:
2057         case R_IA64_IMM64:
2058         case R_IA64_DIR32MSB:
2059         case R_IA64_DIR32LSB:
2060         case R_IA64_DIR64MSB:
2061         case R_IA64_DIR64LSB:
2062           /* Shared objects will always need at least a REL relocation.  */
2063           if (bfd_link_pic (info) || maybe_dynamic)
2064             need_entry = NEED_DYNREL;
2065           break;
2066
2067         case R_IA64_PCREL22:
2068         case R_IA64_PCREL64I:
2069         case R_IA64_PCREL32MSB:
2070         case R_IA64_PCREL32LSB:
2071         case R_IA64_PCREL64MSB:
2072         case R_IA64_PCREL64LSB:
2073           if (maybe_dynamic)
2074             need_entry = NEED_DYNREL;
2075           break;
2076         }
2077
2078       if (!need_entry)
2079         continue;
2080
2081       if ((need_entry & NEED_FPTR) != 0
2082           && rel->r_addend)
2083         {
2084           (*info->callbacks->warning)
2085             (info, _("non-zero addend in @fptr reloc"), 0,
2086              abfd, 0, (bfd_vma) 0);
2087         }
2088
2089       if (get_dyn_sym_info (ia64_info, h, abfd, rel, TRUE) == NULL)
2090         return FALSE;
2091     }
2092
2093   /* Now, we only do lookup without insertion, which is very fast
2094      with the modified get_dyn_sym_info.  */
2095   for (rel = relocs; rel < relend; ++rel)
2096     {
2097       struct elf64_ia64_dyn_sym_info *dyn_i;
2098       int dynrel_type = R_IA64_NONE;
2099
2100       r_symndx = ELF64_R_SYM (rel->r_info);
2101       if (r_symndx >= symtab_hdr->sh_info)
2102         {
2103           /* We're dealing with a global symbol -- find its hash entry
2104              and mark it as being referenced.  */
2105           long indx = r_symndx - symtab_hdr->sh_info;
2106           h = elf_sym_hashes (abfd)[indx];
2107           while (h->root.type == bfd_link_hash_indirect
2108                  || h->root.type == bfd_link_hash_warning)
2109             h = (struct elf_link_hash_entry *) h->root.u.i.link;
2110
2111           /* PR15323, ref flags aren't set for references in the same
2112              object.  */
2113           h->ref_regular = 1;
2114         }
2115       else
2116         h = NULL;
2117
2118       /* We can only get preliminary data on whether a symbol is
2119          locally or externally defined, as not all of the input files
2120          have yet been processed.  Do something with what we know, as
2121          this may help reduce memory usage and processing time later.  */
2122       maybe_dynamic = (h && ((!bfd_link_executable (info)
2123                               && (!SYMBOLIC_BIND (info, h)
2124                                   || info->unresolved_syms_in_shared_libs == RM_IGNORE))
2125                              || !h->def_regular
2126                              || h->root.type == bfd_link_hash_defweak));
2127
2128       need_entry = 0;
2129       switch (ELF64_R_TYPE (rel->r_info))
2130         {
2131         case R_IA64_TPREL64MSB:
2132         case R_IA64_TPREL64LSB:
2133         case R_IA64_LTOFF_TPREL22:
2134         case R_IA64_DTPREL32MSB:
2135         case R_IA64_DTPREL32LSB:
2136         case R_IA64_DTPREL64MSB:
2137         case R_IA64_DTPREL64LSB:
2138         case R_IA64_LTOFF_DTPREL22:
2139         case R_IA64_DTPMOD64MSB:
2140         case R_IA64_DTPMOD64LSB:
2141         case R_IA64_LTOFF_DTPMOD22:
2142           abort ();
2143           break;
2144
2145         case R_IA64_LTOFF_FPTR22:
2146         case R_IA64_LTOFF_FPTR64I:
2147         case R_IA64_LTOFF_FPTR32MSB:
2148         case R_IA64_LTOFF_FPTR32LSB:
2149         case R_IA64_LTOFF_FPTR64MSB:
2150         case R_IA64_LTOFF_FPTR64LSB:
2151           need_entry = NEED_FPTR | NEED_GOT | NEED_LTOFF_FPTR;
2152           break;
2153
2154         case R_IA64_FPTR64I:
2155         case R_IA64_FPTR32MSB:
2156         case R_IA64_FPTR32LSB:
2157         case R_IA64_FPTR64MSB:
2158         case R_IA64_FPTR64LSB:
2159           if (bfd_link_pic (info) || h)
2160             need_entry = NEED_FPTR | NEED_DYNREL;
2161           else
2162             need_entry = NEED_FPTR;
2163           dynrel_type = R_IA64_FPTR64LSB;
2164           break;
2165
2166         case R_IA64_LTOFF22:
2167         case R_IA64_LTOFF64I:
2168           need_entry = NEED_GOT;
2169           break;
2170
2171         case R_IA64_LTOFF22X:
2172           need_entry = NEED_GOTX;
2173           break;
2174
2175         case R_IA64_PLTOFF22:
2176         case R_IA64_PLTOFF64I:
2177         case R_IA64_PLTOFF64MSB:
2178         case R_IA64_PLTOFF64LSB:
2179           need_entry = NEED_PLTOFF;
2180           if (h)
2181             {
2182               if (maybe_dynamic)
2183                 need_entry |= NEED_MIN_PLT;
2184             }
2185           break;
2186
2187         case R_IA64_PCREL21B:
2188         case R_IA64_PCREL60B:
2189           /* Depending on where this symbol is defined, we may or may not
2190              need a full plt entry.  Only skip if we know we'll not need
2191              the entry -- static or symbolic, and the symbol definition
2192              has already been seen.  */
2193           if (maybe_dynamic && rel->r_addend == 0)
2194             need_entry = NEED_FULL_PLT;
2195           break;
2196
2197         case R_IA64_IMM14:
2198         case R_IA64_IMM22:
2199         case R_IA64_IMM64:
2200         case R_IA64_DIR32MSB:
2201         case R_IA64_DIR32LSB:
2202         case R_IA64_DIR64MSB:
2203         case R_IA64_DIR64LSB:
2204           /* Shared objects will always need at least a REL relocation.  */
2205           if (bfd_link_pic (info) || maybe_dynamic)
2206             need_entry = NEED_DYNREL;
2207           dynrel_type = R_IA64_DIR64LSB;
2208           break;
2209
2210         case R_IA64_IPLTMSB:
2211         case R_IA64_IPLTLSB:
2212           break;
2213
2214         case R_IA64_PCREL22:
2215         case R_IA64_PCREL64I:
2216         case R_IA64_PCREL32MSB:
2217         case R_IA64_PCREL32LSB:
2218         case R_IA64_PCREL64MSB:
2219         case R_IA64_PCREL64LSB:
2220           if (maybe_dynamic)
2221             need_entry = NEED_DYNREL;
2222           dynrel_type = R_IA64_PCREL64LSB;
2223           break;
2224         }
2225
2226       if (!need_entry)
2227         continue;
2228
2229       dyn_i = get_dyn_sym_info (ia64_info, h, abfd, rel, FALSE);
2230
2231       /* Record whether or not this is a local symbol.  */
2232       dyn_i->h = h;
2233
2234       /* Create what's needed.  */
2235       if (need_entry & (NEED_GOT | NEED_GOTX))
2236         {
2237           if (!got)
2238             {
2239               got = get_got (abfd, ia64_info);
2240               if (!got)
2241                 return FALSE;
2242             }
2243           if (need_entry & NEED_GOT)
2244             dyn_i->want_got = 1;
2245           if (need_entry & NEED_GOTX)
2246             dyn_i->want_gotx = 1;
2247         }
2248       if (need_entry & NEED_FPTR)
2249         {
2250           /* Create the .opd section.  */
2251           if (!fptr)
2252             {
2253               fptr = get_fptr (abfd, info, ia64_info);
2254               if (!fptr)
2255                 return FALSE;
2256             }
2257           dyn_i->want_fptr = 1;
2258         }
2259       if (need_entry & NEED_LTOFF_FPTR)
2260         dyn_i->want_ltoff_fptr = 1;
2261       if (need_entry & (NEED_MIN_PLT | NEED_FULL_PLT))
2262         {
2263           if (!ia64_info->root.dynobj)
2264             ia64_info->root.dynobj = abfd;
2265           h->needs_plt = 1;
2266           dyn_i->want_plt = 1;
2267         }
2268       if (need_entry & NEED_FULL_PLT)
2269         dyn_i->want_plt2 = 1;
2270       if (need_entry & NEED_PLTOFF)
2271         {
2272           /* This is needed here, in case @pltoff is used in a non-shared
2273              link.  */
2274           if (!pltoff)
2275             {
2276               pltoff = get_pltoff (abfd, ia64_info);
2277               if (!pltoff)
2278                 return FALSE;
2279             }
2280
2281           dyn_i->want_pltoff = 1;
2282         }
2283       if ((need_entry & NEED_DYNREL) && (sec->flags & SEC_ALLOC))
2284         {
2285           if (!srel)
2286             {
2287               srel = get_reloc_section (abfd, ia64_info, sec, TRUE);
2288               if (!srel)
2289                 return FALSE;
2290             }
2291           if (!count_dyn_reloc (abfd, dyn_i, srel, dynrel_type))
2292             return FALSE;
2293         }
2294     }
2295
2296   return TRUE;
2297 }
2298
2299 /* For cleanliness, and potentially faster dynamic loading, allocate
2300    external GOT entries first.  */
2301
2302 static bfd_boolean
2303 allocate_global_data_got (struct elf64_ia64_dyn_sym_info *dyn_i,
2304                           void * data)
2305 {
2306   struct elf64_ia64_allocate_data *x = (struct elf64_ia64_allocate_data *)data;
2307
2308   if ((dyn_i->want_got || dyn_i->want_gotx)
2309       && ! dyn_i->want_fptr
2310       && elf64_ia64_dynamic_symbol_p (dyn_i->h))
2311      {
2312        /* GOT entry with FPTR is done by allocate_global_fptr_got.  */
2313        dyn_i->got_offset = x->ofs;
2314        x->ofs += 8;
2315      }
2316   return TRUE;
2317 }
2318
2319 /* Next, allocate all the GOT entries used by LTOFF_FPTR relocs.  */
2320
2321 static bfd_boolean
2322 allocate_global_fptr_got (struct elf64_ia64_dyn_sym_info *dyn_i,
2323                           void * data)
2324 {
2325   struct elf64_ia64_allocate_data *x = (struct elf64_ia64_allocate_data *)data;
2326
2327   if (dyn_i->want_got
2328       && dyn_i->want_fptr
2329       && elf64_ia64_dynamic_symbol_p (dyn_i->h))
2330     {
2331       dyn_i->got_offset = x->ofs;
2332       x->ofs += 8;
2333     }
2334   return TRUE;
2335 }
2336
2337 /* Lastly, allocate all the GOT entries for local data.  */
2338
2339 static bfd_boolean
2340 allocate_local_got (struct elf64_ia64_dyn_sym_info *dyn_i,
2341                     void * data)
2342 {
2343   struct elf64_ia64_allocate_data *x = (struct elf64_ia64_allocate_data *) data;
2344
2345   if ((dyn_i->want_got || dyn_i->want_gotx)
2346       && !elf64_ia64_dynamic_symbol_p (dyn_i->h))
2347     {
2348       dyn_i->got_offset = x->ofs;
2349       x->ofs += 8;
2350     }
2351   return TRUE;
2352 }
2353
2354 /* Allocate function descriptors.  We can do these for every function
2355    in a main executable that is not exported.  */
2356
2357 static bfd_boolean
2358 allocate_fptr (struct elf64_ia64_dyn_sym_info *dyn_i, void * data)
2359 {
2360   struct elf64_ia64_allocate_data *x = (struct elf64_ia64_allocate_data *) data;
2361
2362   if (dyn_i->want_fptr)
2363     {
2364       struct elf_link_hash_entry *h = dyn_i->h;
2365
2366       if (h)
2367         while (h->root.type == bfd_link_hash_indirect
2368                || h->root.type == bfd_link_hash_warning)
2369           h = (struct elf_link_hash_entry *) h->root.u.i.link;
2370
2371       if (h == NULL || !h->def_dynamic)
2372         {
2373           /*  A non dynamic symbol.  */
2374           dyn_i->fptr_offset = x->ofs;
2375           x->ofs += 16;
2376         }
2377       else
2378         dyn_i->want_fptr = 0;
2379     }
2380   return TRUE;
2381 }
2382
2383 /* Allocate all the minimal PLT entries.  */
2384
2385 static bfd_boolean
2386 allocate_plt_entries (struct elf64_ia64_dyn_sym_info *dyn_i,
2387                       void * data ATTRIBUTE_UNUSED)
2388 {
2389   if (dyn_i->want_plt)
2390     {
2391       struct elf_link_hash_entry *h = dyn_i->h;
2392
2393       if (h)
2394         while (h->root.type == bfd_link_hash_indirect
2395                || h->root.type == bfd_link_hash_warning)
2396           h = (struct elf_link_hash_entry *) h->root.u.i.link;
2397
2398       /* ??? Versioned symbols seem to lose NEEDS_PLT.  */
2399       if (elf64_ia64_dynamic_symbol_p (h))
2400         {
2401           dyn_i->want_pltoff = 1;
2402         }
2403       else
2404         {
2405           dyn_i->want_plt = 0;
2406           dyn_i->want_plt2 = 0;
2407         }
2408     }
2409   return TRUE;
2410 }
2411
2412 /* Allocate all the full PLT entries.  */
2413
2414 static bfd_boolean
2415 allocate_plt2_entries (struct elf64_ia64_dyn_sym_info *dyn_i,
2416                        void * data)
2417 {
2418   struct elf64_ia64_allocate_data *x = (struct elf64_ia64_allocate_data *)data;
2419
2420   if (dyn_i->want_plt2)
2421     {
2422       struct elf_link_hash_entry *h = dyn_i->h;
2423       bfd_size_type ofs = x->ofs;
2424
2425       dyn_i->plt2_offset = ofs;
2426       x->ofs = ofs + PLT_FULL_ENTRY_SIZE;
2427
2428       while (h->root.type == bfd_link_hash_indirect
2429              || h->root.type == bfd_link_hash_warning)
2430         h = (struct elf_link_hash_entry *) h->root.u.i.link;
2431       dyn_i->h->plt.offset = ofs;
2432     }
2433   return TRUE;
2434 }
2435
2436 /* Allocate all the PLTOFF entries requested by relocations and
2437    plt entries.  We can't share space with allocated FPTR entries,
2438    because the latter are not necessarily addressable by the GP.
2439    ??? Relaxation might be able to determine that they are.  */
2440
2441 static bfd_boolean
2442 allocate_pltoff_entries (struct elf64_ia64_dyn_sym_info *dyn_i,
2443                          void * data)
2444 {
2445   struct elf64_ia64_allocate_data *x = (struct elf64_ia64_allocate_data *)data;
2446
2447   if (dyn_i->want_pltoff)
2448     {
2449       dyn_i->pltoff_offset = x->ofs;
2450       x->ofs += 16;
2451     }
2452   return TRUE;
2453 }
2454
2455 /* Allocate dynamic relocations for those symbols that turned out
2456    to be dynamic.  */
2457
2458 static bfd_boolean
2459 allocate_dynrel_entries (struct elf64_ia64_dyn_sym_info *dyn_i,
2460                          void * data)
2461 {
2462   struct elf64_ia64_allocate_data *x = (struct elf64_ia64_allocate_data *)data;
2463   struct elf64_ia64_link_hash_table *ia64_info;
2464   struct elf64_ia64_dyn_reloc_entry *rent;
2465   bfd_boolean dynamic_symbol, shared, resolved_zero;
2466   struct elf64_ia64_link_hash_entry *h_ia64;
2467
2468   ia64_info = elf64_ia64_hash_table (x->info);
2469   if (ia64_info == NULL)
2470     return FALSE;
2471
2472   /* Note that this can't be used in relation to FPTR relocs below.  */
2473   dynamic_symbol = elf64_ia64_dynamic_symbol_p (dyn_i->h);
2474
2475   shared = bfd_link_pic (x->info);
2476   resolved_zero = (dyn_i->h
2477                    && ELF_ST_VISIBILITY (dyn_i->h->other)
2478                    && dyn_i->h->root.type == bfd_link_hash_undefweak);
2479
2480   /* Take care of the GOT and PLT relocations.  */
2481
2482   if ((!resolved_zero
2483        && (dynamic_symbol || shared)
2484        && (dyn_i->want_got || dyn_i->want_gotx))
2485       || (dyn_i->want_ltoff_fptr
2486           && dyn_i->h
2487           && dyn_i->h->def_dynamic))
2488     {
2489       /* VMS: FIX64.  */
2490       if (dyn_i->h != NULL && dyn_i->h->def_dynamic)
2491         {
2492           h_ia64 = (struct elf64_ia64_link_hash_entry *) dyn_i->h;
2493           elf_ia64_vms_tdata (h_ia64->shl)->fixups_off +=
2494             sizeof (Elf64_External_VMS_IMAGE_FIXUP);
2495           ia64_info->fixups_sec->size +=
2496             sizeof (Elf64_External_VMS_IMAGE_FIXUP);
2497         }
2498     }
2499
2500   if (ia64_info->rel_fptr_sec && dyn_i->want_fptr)
2501     {
2502       /* VMS: only image reloc.  */
2503       if (dyn_i->h == NULL || dyn_i->h->root.type != bfd_link_hash_undefweak)
2504         ia64_info->rel_fptr_sec->size += sizeof (Elf64_External_Rela);
2505     }
2506
2507   if (!resolved_zero && dyn_i->want_pltoff)
2508     {
2509       /* VMS: FIXFD.  */
2510       if (dyn_i->h != NULL && dyn_i->h->def_dynamic)
2511         {
2512           h_ia64 = (struct elf64_ia64_link_hash_entry *) dyn_i->h;
2513           elf_ia64_vms_tdata (h_ia64->shl)->fixups_off +=
2514             sizeof (Elf64_External_VMS_IMAGE_FIXUP);
2515           ia64_info->fixups_sec->size +=
2516             sizeof (Elf64_External_VMS_IMAGE_FIXUP);
2517         }
2518     }
2519
2520   /* Take care of the normal data relocations.  */
2521
2522   for (rent = dyn_i->reloc_entries; rent; rent = rent->next)
2523     {
2524       int count = rent->count;
2525
2526       switch (rent->type)
2527         {
2528         case R_IA64_FPTR32LSB:
2529         case R_IA64_FPTR64LSB:
2530           /* Allocate one iff !want_fptr and not PIE, which by this point
2531              will be true only if we're actually allocating one statically
2532              in the main executable.  Position independent executables
2533              need a relative reloc.  */
2534           if (dyn_i->want_fptr && !bfd_link_pie (x->info))
2535             continue;
2536           break;
2537         case R_IA64_PCREL32LSB:
2538         case R_IA64_PCREL64LSB:
2539           if (!dynamic_symbol)
2540             continue;
2541           break;
2542         case R_IA64_DIR32LSB:
2543         case R_IA64_DIR64LSB:
2544           if (!dynamic_symbol && !shared)
2545             continue;
2546           break;
2547         case R_IA64_IPLTLSB:
2548           if (!dynamic_symbol && !shared)
2549             continue;
2550           /* Use two REL relocations for IPLT relocations
2551              against local symbols.  */
2552           if (!dynamic_symbol)
2553             count *= 2;
2554           break;
2555         case R_IA64_DTPREL32LSB:
2556         case R_IA64_TPREL64LSB:
2557         case R_IA64_DTPREL64LSB:
2558         case R_IA64_DTPMOD64LSB:
2559           break;
2560         default:
2561           abort ();
2562         }
2563
2564       /* Add a fixup.  */
2565       if (!dynamic_symbol)
2566         abort ();
2567
2568       h_ia64 = (struct elf64_ia64_link_hash_entry *) dyn_i->h;
2569       elf_ia64_vms_tdata (h_ia64->shl)->fixups_off +=
2570         sizeof (Elf64_External_VMS_IMAGE_FIXUP);
2571       ia64_info->fixups_sec->size +=
2572         sizeof (Elf64_External_VMS_IMAGE_FIXUP);
2573     }
2574
2575   return TRUE;
2576 }
2577
2578 static bfd_boolean
2579 elf64_ia64_adjust_dynamic_symbol (struct bfd_link_info *info ATTRIBUTE_UNUSED,
2580                                   struct elf_link_hash_entry *h)
2581 {
2582   /* ??? Undefined symbols with PLT entries should be re-defined
2583      to be the PLT entry.  */
2584
2585   /* If this is a weak symbol, and there is a real definition, the
2586      processor independent code will have arranged for us to see the
2587      real definition first, and we can just use the same value.  */
2588   if (h->is_weakalias)
2589     {
2590       struct elf_link_hash_entry *def = weakdef (h);
2591       BFD_ASSERT (def->root.type == bfd_link_hash_defined);
2592       h->root.u.def.section = def->root.u.def.section;
2593       h->root.u.def.value = def->root.u.def.value;
2594       return TRUE;
2595     }
2596
2597   /* If this is a reference to a symbol defined by a dynamic object which
2598      is not a function, we might allocate the symbol in our .dynbss section
2599      and allocate a COPY dynamic relocation.
2600
2601      But IA-64 code is canonically PIC, so as a rule we can avoid this sort
2602      of hackery.  */
2603
2604   return TRUE;
2605 }
2606
2607 static bfd_boolean
2608 elf64_ia64_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
2609                                   struct bfd_link_info *info)
2610 {
2611   struct elf64_ia64_allocate_data data;
2612   struct elf64_ia64_link_hash_table *ia64_info;
2613   asection *sec;
2614   bfd *dynobj;
2615   struct elf_link_hash_table *hash_table;
2616
2617   hash_table = elf_hash_table (info);
2618   dynobj = hash_table->dynobj;
2619   ia64_info = elf64_ia64_hash_table (info);
2620   if (ia64_info == NULL)
2621     return FALSE;
2622   BFD_ASSERT(dynobj != NULL);
2623   data.info = info;
2624
2625   /* Allocate the GOT entries.  */
2626
2627   if (ia64_info->root.sgot)
2628     {
2629       data.ofs = 0;
2630       elf64_ia64_dyn_sym_traverse (ia64_info, allocate_global_data_got, &data);
2631       elf64_ia64_dyn_sym_traverse (ia64_info, allocate_global_fptr_got, &data);
2632       elf64_ia64_dyn_sym_traverse (ia64_info, allocate_local_got, &data);
2633       ia64_info->root.sgot->size = data.ofs;
2634     }
2635
2636   /* Allocate the FPTR entries.  */
2637
2638   if (ia64_info->fptr_sec)
2639     {
2640       data.ofs = 0;
2641       elf64_ia64_dyn_sym_traverse (ia64_info, allocate_fptr, &data);
2642       ia64_info->fptr_sec->size = data.ofs;
2643     }
2644
2645   /* Now that we've seen all of the input files, we can decide which
2646      symbols need plt entries.  Allocate the minimal PLT entries first.
2647      We do this even though dynamic_sections_created may be FALSE, because
2648      this has the side-effect of clearing want_plt and want_plt2.  */
2649
2650   data.ofs = 0;
2651   elf64_ia64_dyn_sym_traverse (ia64_info, allocate_plt_entries, &data);
2652
2653   /* Align the pointer for the plt2 entries.  */
2654   data.ofs = (data.ofs + 31) & (bfd_vma) -32;
2655
2656   elf64_ia64_dyn_sym_traverse (ia64_info, allocate_plt2_entries, &data);
2657   if (data.ofs != 0 || ia64_info->root.dynamic_sections_created)
2658     {
2659       /* FIXME: we always reserve the memory for dynamic linker even if
2660          there are no PLT entries since dynamic linker may assume the
2661          reserved memory always exists.  */
2662
2663       BFD_ASSERT (ia64_info->root.dynamic_sections_created);
2664
2665       ia64_info->root.splt->size = data.ofs;
2666     }
2667
2668   /* Allocate the PLTOFF entries.  */
2669
2670   if (ia64_info->pltoff_sec)
2671     {
2672       data.ofs = 0;
2673       elf64_ia64_dyn_sym_traverse (ia64_info, allocate_pltoff_entries, &data);
2674       ia64_info->pltoff_sec->size = data.ofs;
2675     }
2676
2677   if (ia64_info->root.dynamic_sections_created)
2678     {
2679       /* Allocate space for the dynamic relocations that turned out to be
2680          required.  */
2681       elf64_ia64_dyn_sym_traverse (ia64_info, allocate_dynrel_entries, &data);
2682     }
2683
2684   /* We have now determined the sizes of the various dynamic sections.
2685      Allocate memory for them.  */
2686   for (sec = dynobj->sections; sec != NULL; sec = sec->next)
2687     {
2688       bfd_boolean strip;
2689
2690       if (!(sec->flags & SEC_LINKER_CREATED))
2691         continue;
2692
2693       /* If we don't need this section, strip it from the output file.
2694          There were several sections primarily related to dynamic
2695          linking that must be create before the linker maps input
2696          sections to output sections.  The linker does that before
2697          bfd_elf_size_dynamic_sections is called, and it is that
2698          function which decides whether anything needs to go into
2699          these sections.  */
2700
2701       strip = (sec->size == 0);
2702
2703       if (sec == ia64_info->root.sgot)
2704         strip = FALSE;
2705       else if (sec == ia64_info->root.srelgot)
2706         {
2707           if (strip)
2708             ia64_info->root.srelgot = NULL;
2709           else
2710             /* We use the reloc_count field as a counter if we need to
2711                copy relocs into the output file.  */
2712             sec->reloc_count = 0;
2713         }
2714       else if (sec == ia64_info->fptr_sec)
2715         {
2716           if (strip)
2717             ia64_info->fptr_sec = NULL;
2718         }
2719       else if (sec == ia64_info->rel_fptr_sec)
2720         {
2721           if (strip)
2722             ia64_info->rel_fptr_sec = NULL;
2723           else
2724             /* We use the reloc_count field as a counter if we need to
2725                copy relocs into the output file.  */
2726             sec->reloc_count = 0;
2727         }
2728       else if (sec == ia64_info->root.splt)
2729         {
2730           if (strip)
2731             ia64_info->root.splt = NULL;
2732         }
2733       else if (sec == ia64_info->pltoff_sec)
2734         {
2735           if (strip)
2736             ia64_info->pltoff_sec = NULL;
2737         }
2738       else if (sec == ia64_info->fixups_sec)
2739         {
2740           if (strip)
2741             ia64_info->fixups_sec = NULL;
2742         }
2743       else if (sec == ia64_info->transfer_sec)
2744         {
2745           ;
2746         }
2747       else
2748         {
2749           const char *name;
2750
2751           /* It's OK to base decisions on the section name, because none
2752              of the dynobj section names depend upon the input files.  */
2753           name = bfd_get_section_name (dynobj, sec);
2754
2755           if (strcmp (name, ".got.plt") == 0)
2756             strip = FALSE;
2757           else if (CONST_STRNEQ (name, ".rel"))
2758             {
2759               if (!strip)
2760                 {
2761                   /* We use the reloc_count field as a counter if we need to
2762                      copy relocs into the output file.  */
2763                   sec->reloc_count = 0;
2764                 }
2765             }
2766           else
2767             continue;
2768         }
2769
2770       if (strip)
2771         sec->flags |= SEC_EXCLUDE;
2772       else
2773         {
2774           /* Allocate memory for the section contents.  */
2775           sec->contents = (bfd_byte *) bfd_zalloc (dynobj, sec->size);
2776           if (sec->contents == NULL && sec->size != 0)
2777             return FALSE;
2778         }
2779     }
2780
2781   if (elf_hash_table (info)->dynamic_sections_created)
2782     {
2783       bfd *abfd;
2784       asection *dynsec;
2785       asection *dynstrsec;
2786       Elf_Internal_Dyn dyn;
2787       const struct elf_backend_data *bed;
2788       unsigned int shl_num = 0;
2789       bfd_vma fixups_off = 0;
2790       bfd_vma strdyn_off;
2791       unsigned int time_hi, time_lo;
2792
2793       /* The .dynamic section must exist and be empty.  */
2794       dynsec = bfd_get_linker_section (hash_table->dynobj, ".dynamic");
2795       BFD_ASSERT (dynsec != NULL);
2796       BFD_ASSERT (dynsec->size == 0);
2797
2798       dynstrsec = bfd_get_linker_section (hash_table->dynobj, ".vmsdynstr");
2799       BFD_ASSERT (dynstrsec != NULL);
2800       BFD_ASSERT (dynstrsec->size == 0);
2801       dynstrsec->size = 1;      /* Initial blank.  */
2802
2803       /* Ident + link time.  */
2804       vms_get_time (&time_hi, &time_lo);
2805
2806       if (!_bfd_elf_add_dynamic_entry (info, DT_IA_64_VMS_IDENT, 0))
2807         return FALSE;
2808       if (!_bfd_elf_add_dynamic_entry (info, DT_IA_64_VMS_LINKTIME,
2809                                        (((bfd_uint64_t)time_hi) << 32)
2810                                        + time_lo))
2811         return FALSE;
2812
2813       /* Strtab.  */
2814       strdyn_off = dynsec->size;
2815       if (!_bfd_elf_add_dynamic_entry (info, DT_IA_64_VMS_STRTAB_OFFSET, 0))
2816         return FALSE;
2817       if (!_bfd_elf_add_dynamic_entry (info, DT_STRSZ, 0))
2818         return FALSE;
2819
2820       /* PLTGOT  */
2821       if (!_bfd_elf_add_dynamic_entry (info, DT_IA_64_VMS_PLTGOT_SEG, 0))
2822         return FALSE;
2823       if (!_bfd_elf_add_dynamic_entry (info, DT_IA_64_VMS_PLTGOT_OFFSET, 0))
2824         return FALSE;
2825
2826       /* Misc.  */
2827       if (!_bfd_elf_add_dynamic_entry (info, DT_IA_64_VMS_FPMODE, 0x9800000))
2828         return FALSE;
2829       if (!_bfd_elf_add_dynamic_entry (info, DT_IA_64_VMS_LNKFLAGS,
2830                                        VMS_LF_IMGSTA | VMS_LF_MAIN))
2831         return FALSE;
2832
2833       /* Add entries for shared libraries.  */
2834       for (abfd = info->input_bfds; abfd; abfd = abfd->link.next)
2835         {
2836           char *soname;
2837           size_t soname_len;
2838           bfd_size_type strindex;
2839           bfd_byte *newcontents;
2840           bfd_vma fixups_shl_off;
2841
2842           if (!(abfd->flags & DYNAMIC))
2843             continue;
2844           BFD_ASSERT (abfd->xvec == output_bfd->xvec);
2845
2846           if (!_bfd_elf_add_dynamic_entry (info, DT_IA_64_VMS_NEEDED_IDENT,
2847                                            elf_ia64_vms_ident (abfd)))
2848             return FALSE;
2849
2850           soname = vms_get_module_name (abfd->filename, TRUE);
2851           if (soname == NULL)
2852             return FALSE;
2853           strindex = dynstrsec->size;
2854           soname_len = strlen (soname) + 1;
2855           newcontents = (bfd_byte *) bfd_realloc (dynstrsec->contents,
2856                                                   strindex + soname_len);
2857           if (newcontents == NULL)
2858             return FALSE;
2859           memcpy (newcontents + strindex, soname, soname_len);
2860           dynstrsec->size += soname_len;
2861           dynstrsec->contents = newcontents;
2862
2863           if (!_bfd_elf_add_dynamic_entry (info, DT_NEEDED, strindex))
2864             return FALSE;
2865
2866           if (!_bfd_elf_add_dynamic_entry (info, DT_IA_64_VMS_FIXUP_NEEDED,
2867                                            shl_num))
2868             return FALSE;
2869           shl_num++;
2870
2871           /* The fixups_off was in fact containing the size of the fixup
2872              section.  Remap into the offset.  */
2873           fixups_shl_off = elf_ia64_vms_tdata (abfd)->fixups_off;
2874           elf_ia64_vms_tdata (abfd)->fixups_off = fixups_off;
2875
2876           if (!_bfd_elf_add_dynamic_entry
2877               (info, DT_IA_64_VMS_FIXUP_RELA_CNT,
2878                fixups_shl_off / sizeof (Elf64_External_VMS_IMAGE_FIXUP)))
2879             return FALSE;
2880           if (!_bfd_elf_add_dynamic_entry (info, DT_IA_64_VMS_FIXUP_RELA_OFF,
2881                                            fixups_off))
2882             return FALSE;
2883           fixups_off += fixups_shl_off;
2884         }
2885
2886       /* Unwind.  */
2887       if (!_bfd_elf_add_dynamic_entry (info, DT_IA_64_VMS_UNWINDSZ, 0))
2888         return FALSE;
2889       if (!_bfd_elf_add_dynamic_entry (info, DT_IA_64_VMS_UNWIND_CODSEG, 0))
2890         return FALSE;
2891       if (!_bfd_elf_add_dynamic_entry (info, DT_IA_64_VMS_UNWIND_INFOSEG, 0))
2892         return FALSE;
2893       if (!_bfd_elf_add_dynamic_entry (info, DT_IA_64_VMS_UNWIND_OFFSET, 0))
2894         return FALSE;
2895       if (!_bfd_elf_add_dynamic_entry (info, DT_IA_64_VMS_UNWIND_SEG, 0))
2896         return FALSE;
2897
2898       if (!_bfd_elf_add_dynamic_entry (info, DT_NULL, 0xdead))
2899             return FALSE;
2900
2901       /* Fix the strtab entries.  */
2902       bed = get_elf_backend_data (hash_table->dynobj);
2903
2904       if (dynstrsec->size > 1)
2905         dynstrsec->contents[0] = 0;
2906       else
2907         dynstrsec->size = 0;
2908
2909       /* Note: one 'spare' (ie DT_NULL) entry is added by
2910          bfd_elf_size_dynsym_hash_dynstr.  */
2911       dyn.d_tag = DT_IA_64_VMS_STRTAB_OFFSET;
2912       dyn.d_un.d_val = dynsec->size /* + sizeof (Elf64_External_Dyn) */;
2913       bed->s->swap_dyn_out (hash_table->dynobj, &dyn,
2914                             dynsec->contents + strdyn_off);
2915
2916       dyn.d_tag = DT_STRSZ;
2917       dyn.d_un.d_val = dynstrsec->size;
2918       bed->s->swap_dyn_out (hash_table->dynobj, &dyn,
2919                             dynsec->contents + strdyn_off + bed->s->sizeof_dyn);
2920
2921       elf_ia64_vms_tdata (output_bfd)->needed_count = shl_num;
2922
2923       /* Note section.  */
2924       if (!create_ia64_vms_notes (output_bfd, info, time_hi, time_lo))
2925         return FALSE;
2926     }
2927
2928   /* ??? Perhaps force __gp local.  */
2929
2930   return TRUE;
2931 }
2932
2933 static void
2934 elf64_ia64_install_fixup (bfd *output_bfd,
2935                           struct elf64_ia64_link_hash_table *ia64_info,
2936                           struct elf_link_hash_entry *h,
2937                           unsigned int type, asection *sec, bfd_vma offset,
2938                           bfd_vma addend)
2939 {
2940   asection *relsec;
2941   Elf64_External_VMS_IMAGE_FIXUP *fixup;
2942   struct elf64_ia64_link_hash_entry *h_ia64;
2943   bfd_vma fixoff;
2944   Elf_Internal_Phdr *phdr;
2945
2946   if (h == NULL || !h->def_dynamic)
2947     abort ();
2948
2949   h_ia64 = (struct elf64_ia64_link_hash_entry *) h;
2950   fixoff = elf_ia64_vms_tdata (h_ia64->shl)->fixups_off;
2951   elf_ia64_vms_tdata (h_ia64->shl)->fixups_off +=
2952     sizeof (Elf64_External_VMS_IMAGE_FIXUP);
2953   relsec = ia64_info->fixups_sec;
2954
2955   fixup = (Elf64_External_VMS_IMAGE_FIXUP *)(relsec->contents + fixoff);
2956   offset += sec->output_section->vma + sec->output_offset;
2957
2958   /* FIXME: this is slow.  We should cache the last one used, or create a
2959      map.  */
2960   phdr = _bfd_elf_find_segment_containing_section
2961     (output_bfd, sec->output_section);
2962   BFD_ASSERT (phdr != NULL);
2963
2964   bfd_putl64 (offset - phdr->p_vaddr, fixup->fixup_offset);
2965   bfd_putl32 (type, fixup->type);
2966   bfd_putl32 (phdr - elf_tdata (output_bfd)->phdr, fixup->fixup_seg);
2967   bfd_putl64 (addend, fixup->addend);
2968   bfd_putl32 (h->root.u.def.value, fixup->symvec_index);
2969   bfd_putl32 (2, fixup->data_type);
2970 }
2971
2972 /* Store an entry for target address TARGET_ADDR in the linkage table
2973    and return the gp-relative address of the linkage table entry.  */
2974
2975 static bfd_vma
2976 set_got_entry (bfd *abfd, struct bfd_link_info *info,
2977                struct elf64_ia64_dyn_sym_info *dyn_i,
2978                bfd_vma addend, bfd_vma value, unsigned int dyn_r_type)
2979 {
2980   struct elf64_ia64_link_hash_table *ia64_info;
2981   asection *got_sec;
2982   bfd_boolean done;
2983   bfd_vma got_offset;
2984
2985   ia64_info = elf64_ia64_hash_table (info);
2986   if (ia64_info == NULL)
2987     return 0;
2988
2989   got_sec = ia64_info->root.sgot;
2990
2991   switch (dyn_r_type)
2992     {
2993     case R_IA64_TPREL64LSB:
2994     case R_IA64_DTPMOD64LSB:
2995     case R_IA64_DTPREL32LSB:
2996     case R_IA64_DTPREL64LSB:
2997       abort ();
2998       break;
2999     default:
3000       done = dyn_i->got_done;
3001       dyn_i->got_done = TRUE;
3002       got_offset = dyn_i->got_offset;
3003       break;
3004     }
3005
3006   BFD_ASSERT ((got_offset & 7) == 0);
3007
3008   if (! done)
3009     {
3010       /* Store the target address in the linkage table entry.  */
3011       bfd_put_64 (abfd, value, got_sec->contents + got_offset);
3012
3013       /* Install a dynamic relocation if needed.  */
3014       if (((bfd_link_pic (info)
3015             && (!dyn_i->h
3016                 || ELF_ST_VISIBILITY (dyn_i->h->other) == STV_DEFAULT
3017                 || dyn_i->h->root.type != bfd_link_hash_undefweak))
3018            || elf64_ia64_dynamic_symbol_p (dyn_i->h))
3019           && (!dyn_i->want_ltoff_fptr
3020               || !bfd_link_pie (info)
3021               || !dyn_i->h
3022               || dyn_i->h->root.type != bfd_link_hash_undefweak))
3023         {
3024           if (!dyn_i->h || !dyn_i->h->def_dynamic)
3025             {
3026               dyn_r_type = R_IA64_REL64LSB;
3027               addend = value;
3028             }
3029
3030           /* VMS: install a FIX32 or FIX64.  */
3031           switch (dyn_r_type)
3032             {
3033             case R_IA64_DIR32LSB:
3034             case R_IA64_FPTR32LSB:
3035               dyn_r_type = R_IA64_VMS_FIX32;
3036               break;
3037             case R_IA64_DIR64LSB:
3038             case R_IA64_FPTR64LSB:
3039               dyn_r_type = R_IA64_VMS_FIX64;
3040               break;
3041             default:
3042               BFD_ASSERT (FALSE);
3043               break;
3044             }
3045           elf64_ia64_install_fixup
3046             (info->output_bfd, ia64_info, dyn_i->h,
3047              dyn_r_type, got_sec, got_offset, addend);
3048         }
3049     }
3050
3051   /* Return the address of the linkage table entry.  */
3052   value = (got_sec->output_section->vma
3053            + got_sec->output_offset
3054            + got_offset);
3055
3056   return value;
3057 }
3058
3059 /* Fill in a function descriptor consisting of the function's code
3060    address and its global pointer.  Return the descriptor's address.  */
3061
3062 static bfd_vma
3063 set_fptr_entry (bfd *abfd, struct bfd_link_info *info,
3064                 struct elf64_ia64_dyn_sym_info *dyn_i,
3065                 bfd_vma value)
3066 {
3067   struct elf64_ia64_link_hash_table *ia64_info;
3068   asection *fptr_sec;
3069
3070   ia64_info = elf64_ia64_hash_table (info);
3071   if (ia64_info == NULL)
3072     return 0;
3073
3074   fptr_sec = ia64_info->fptr_sec;
3075
3076   if (!dyn_i->fptr_done)
3077     {
3078       dyn_i->fptr_done = 1;
3079
3080       /* Fill in the function descriptor.  */
3081       bfd_put_64 (abfd, value, fptr_sec->contents + dyn_i->fptr_offset);
3082       bfd_put_64 (abfd, _bfd_get_gp_value (abfd),
3083                   fptr_sec->contents + dyn_i->fptr_offset + 8);
3084     }
3085
3086   /* Return the descriptor's address.  */
3087   value = (fptr_sec->output_section->vma
3088            + fptr_sec->output_offset
3089            + dyn_i->fptr_offset);
3090
3091   return value;
3092 }
3093
3094 /* Fill in a PLTOFF entry consisting of the function's code address
3095    and its global pointer.  Return the descriptor's address.  */
3096
3097 static bfd_vma
3098 set_pltoff_entry (bfd *abfd, struct bfd_link_info *info,
3099                   struct elf64_ia64_dyn_sym_info *dyn_i,
3100                   bfd_vma value, bfd_boolean is_plt)
3101 {
3102   struct elf64_ia64_link_hash_table *ia64_info;
3103   asection *pltoff_sec;
3104
3105   ia64_info = elf64_ia64_hash_table (info);
3106   if (ia64_info == NULL)
3107     return 0;
3108
3109   pltoff_sec = ia64_info->pltoff_sec;
3110
3111   /* Don't do anything if this symbol uses a real PLT entry.  In
3112      that case, we'll fill this in during finish_dynamic_symbol.  */
3113   if ((! dyn_i->want_plt || is_plt)
3114       && !dyn_i->pltoff_done)
3115     {
3116       bfd_vma gp = _bfd_get_gp_value (abfd);
3117
3118       /* Fill in the function descriptor.  */
3119       bfd_put_64 (abfd, value, pltoff_sec->contents + dyn_i->pltoff_offset);
3120       bfd_put_64 (abfd, gp, pltoff_sec->contents + dyn_i->pltoff_offset + 8);
3121
3122       /* Install dynamic relocations if needed.  */
3123       if (!is_plt
3124           && bfd_link_pic (info)
3125           && (!dyn_i->h
3126               || ELF_ST_VISIBILITY (dyn_i->h->other) == STV_DEFAULT
3127               || dyn_i->h->root.type != bfd_link_hash_undefweak))
3128         {
3129           /* VMS:  */
3130           abort ();
3131         }
3132
3133       dyn_i->pltoff_done = 1;
3134     }
3135
3136   /* Return the descriptor's address.  */
3137   value = (pltoff_sec->output_section->vma
3138            + pltoff_sec->output_offset
3139            + dyn_i->pltoff_offset);
3140
3141   return value;
3142 }
3143
3144 /* Called through qsort to sort the .IA_64.unwind section during a
3145    non-relocatable link.  Set elf64_ia64_unwind_entry_compare_bfd
3146    to the output bfd so we can do proper endianness frobbing.  */
3147
3148 static bfd *elf64_ia64_unwind_entry_compare_bfd;
3149
3150 static int
3151 elf64_ia64_unwind_entry_compare (const void * a, const void * b)
3152 {
3153   bfd_vma av, bv;
3154
3155   av = bfd_get_64 (elf64_ia64_unwind_entry_compare_bfd, a);
3156   bv = bfd_get_64 (elf64_ia64_unwind_entry_compare_bfd, b);
3157
3158   return (av < bv ? -1 : av > bv ? 1 : 0);
3159 }
3160
3161 /* Make sure we've got ourselves a nice fat __gp value.  */
3162 static bfd_boolean
3163 elf64_ia64_choose_gp (bfd *abfd, struct bfd_link_info *info, bfd_boolean final)
3164 {
3165   bfd_vma min_vma = (bfd_vma) -1, max_vma = 0;
3166   bfd_vma min_short_vma = min_vma, max_short_vma = 0;
3167   struct elf_link_hash_entry *gp;
3168   bfd_vma gp_val;
3169   asection *os;
3170   struct elf64_ia64_link_hash_table *ia64_info;
3171
3172   ia64_info = elf64_ia64_hash_table (info);
3173   if (ia64_info == NULL)
3174     return FALSE;
3175
3176   /* Find the min and max vma of all sections marked short.  Also collect
3177      min and max vma of any type, for use in selecting a nice gp.  */
3178   for (os = abfd->sections; os ; os = os->next)
3179     {
3180       bfd_vma lo, hi;
3181
3182       if ((os->flags & SEC_ALLOC) == 0)
3183         continue;
3184
3185       lo = os->vma;
3186       /* When this function is called from elfNN_ia64_final_link
3187          the correct value to use is os->size.  When called from
3188          elfNN_ia64_relax_section we are in the middle of section
3189          sizing; some sections will already have os->size set, others
3190          will have os->size zero and os->rawsize the previous size.  */
3191       hi = os->vma + (!final && os->rawsize ? os->rawsize : os->size);
3192       if (hi < lo)
3193         hi = (bfd_vma) -1;
3194
3195       if (min_vma > lo)
3196         min_vma = lo;
3197       if (max_vma < hi)
3198         max_vma = hi;
3199       if (os->flags & SEC_SMALL_DATA)
3200         {
3201           if (min_short_vma > lo)
3202             min_short_vma = lo;
3203           if (max_short_vma < hi)
3204             max_short_vma = hi;
3205         }
3206     }
3207
3208   if (ia64_info->min_short_sec)
3209     {
3210       if (min_short_vma
3211           > (ia64_info->min_short_sec->vma
3212              + ia64_info->min_short_offset))
3213         min_short_vma = (ia64_info->min_short_sec->vma
3214                          + ia64_info->min_short_offset);
3215       if (max_short_vma
3216           < (ia64_info->max_short_sec->vma
3217              + ia64_info->max_short_offset))
3218         max_short_vma = (ia64_info->max_short_sec->vma
3219                          + ia64_info->max_short_offset);
3220     }
3221
3222   /* See if the user wants to force a value.  */
3223   gp = elf_link_hash_lookup (elf_hash_table (info), "__gp", FALSE,
3224                              FALSE, FALSE);
3225
3226   if (gp
3227       && (gp->root.type == bfd_link_hash_defined
3228           || gp->root.type == bfd_link_hash_defweak))
3229     {
3230       asection *gp_sec = gp->root.u.def.section;
3231       gp_val = (gp->root.u.def.value
3232                 + gp_sec->output_section->vma
3233                 + gp_sec->output_offset);
3234     }
3235   else
3236     {
3237       /* Pick a sensible value.  */
3238
3239       if (ia64_info->min_short_sec)
3240         {
3241           bfd_vma short_range = max_short_vma - min_short_vma;
3242
3243           /* If min_short_sec is set, pick one in the middle bewteen
3244              min_short_vma and max_short_vma.  */
3245           if (short_range >= 0x400000)
3246             goto overflow;
3247           gp_val = min_short_vma + short_range / 2;
3248         }
3249       else
3250         {
3251           asection *got_sec = ia64_info->root.sgot;
3252
3253           /* Start with just the address of the .got.  */
3254           if (got_sec)
3255             gp_val = got_sec->output_section->vma;
3256           else if (max_short_vma != 0)
3257             gp_val = min_short_vma;
3258           else if (max_vma - min_vma < 0x200000)
3259             gp_val = min_vma;
3260           else
3261             gp_val = max_vma - 0x200000 + 8;
3262         }
3263
3264       /* If it is possible to address the entire image, but we
3265          don't with the choice above, adjust.  */
3266       if (max_vma - min_vma < 0x400000
3267           && (max_vma - gp_val >= 0x200000
3268               || gp_val - min_vma > 0x200000))
3269         gp_val = min_vma + 0x200000;
3270       else if (max_short_vma != 0)
3271         {
3272           /* If we don't cover all the short data, adjust.  */
3273           if (max_short_vma - gp_val >= 0x200000)
3274             gp_val = min_short_vma + 0x200000;
3275
3276           /* If we're addressing stuff past the end, adjust back.  */
3277           if (gp_val > max_vma)
3278             gp_val = max_vma - 0x200000 + 8;
3279         }
3280     }
3281
3282   /* Validate whether all SHF_IA_64_SHORT sections are within
3283      range of the chosen GP.  */
3284
3285   if (max_short_vma != 0)
3286     {
3287       if (max_short_vma - min_short_vma >= 0x400000)
3288         {
3289 overflow:
3290           _bfd_error_handler
3291             /* xgettext:c-format */
3292             (_("%pB: short data segment overflowed (%#" PRIx64 " >= 0x400000)"),
3293              abfd, (uint64_t) (max_short_vma - min_short_vma));
3294           return FALSE;
3295         }
3296       else if ((gp_val > min_short_vma
3297                 && gp_val - min_short_vma > 0x200000)
3298                || (gp_val < max_short_vma
3299                    && max_short_vma - gp_val >= 0x200000))
3300         {
3301           _bfd_error_handler
3302             (_("%pB: __gp does not cover short data segment"), abfd);
3303           return FALSE;
3304         }
3305     }
3306
3307   _bfd_set_gp_value (abfd, gp_val);
3308
3309   return TRUE;
3310 }
3311
3312 static bfd_boolean
3313 elf64_ia64_final_link (bfd *abfd, struct bfd_link_info *info)
3314 {
3315   struct elf64_ia64_link_hash_table *ia64_info;
3316   asection *unwind_output_sec;
3317
3318   ia64_info = elf64_ia64_hash_table (info);
3319   if (ia64_info == NULL)
3320     return FALSE;
3321
3322   /* Make sure we've got ourselves a nice fat __gp value.  */
3323   if (!bfd_link_relocatable (info))
3324     {
3325       bfd_vma gp_val;
3326       struct elf_link_hash_entry *gp;
3327
3328       /* We assume after gp is set, section size will only decrease. We
3329          need to adjust gp for it.  */
3330       _bfd_set_gp_value (abfd, 0);
3331       if (! elf64_ia64_choose_gp (abfd, info, TRUE))
3332         return FALSE;
3333       gp_val = _bfd_get_gp_value (abfd);
3334
3335       gp = elf_link_hash_lookup (elf_hash_table (info), "__gp", FALSE,
3336                                  FALSE, FALSE);
3337       if (gp)
3338         {
3339           gp->root.type = bfd_link_hash_defined;
3340           gp->root.u.def.value = gp_val;
3341           gp->root.u.def.section = bfd_abs_section_ptr;
3342         }
3343     }
3344
3345   /* If we're producing a final executable, we need to sort the contents
3346      of the .IA_64.unwind section.  Force this section to be relocated
3347      into memory rather than written immediately to the output file.  */
3348   unwind_output_sec = NULL;
3349   if (!bfd_link_relocatable (info))
3350     {
3351       asection *s = bfd_get_section_by_name (abfd, ELF_STRING_ia64_unwind);
3352       if (s)
3353         {
3354           unwind_output_sec = s->output_section;
3355           unwind_output_sec->contents
3356             = bfd_malloc (unwind_output_sec->size);
3357           if (unwind_output_sec->contents == NULL)
3358             return FALSE;
3359         }
3360     }
3361
3362   /* Invoke the regular ELF backend linker to do all the work.  */
3363   if (!bfd_elf_final_link (abfd, info))
3364     return FALSE;
3365
3366   if (unwind_output_sec)
3367     {
3368       elf64_ia64_unwind_entry_compare_bfd = abfd;
3369       qsort (unwind_output_sec->contents,
3370              (size_t) (unwind_output_sec->size / 24),
3371              24,
3372              elf64_ia64_unwind_entry_compare);
3373
3374       if (! bfd_set_section_contents (abfd, unwind_output_sec,
3375                                       unwind_output_sec->contents, (bfd_vma) 0,
3376                                       unwind_output_sec->size))
3377         return FALSE;
3378     }
3379
3380   return TRUE;
3381 }
3382
3383 static bfd_boolean
3384 elf64_ia64_relocate_section (bfd *output_bfd,
3385                              struct bfd_link_info *info,
3386                              bfd *input_bfd,
3387                              asection *input_section,
3388                              bfd_byte *contents,
3389                              Elf_Internal_Rela *relocs,
3390                              Elf_Internal_Sym *local_syms,
3391                              asection **local_sections)
3392 {
3393   struct elf64_ia64_link_hash_table *ia64_info;
3394   Elf_Internal_Shdr *symtab_hdr;
3395   Elf_Internal_Rela *rel;
3396   Elf_Internal_Rela *relend;
3397   bfd_boolean ret_val = TRUE;   /* for non-fatal errors */
3398   bfd_vma gp_val;
3399
3400   symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
3401   ia64_info = elf64_ia64_hash_table (info);
3402   if (ia64_info == NULL)
3403     return FALSE;
3404
3405   /* Infect various flags from the input section to the output section.  */
3406   if (bfd_link_relocatable (info))
3407     {
3408       bfd_vma flags;
3409
3410       flags = elf_section_data(input_section)->this_hdr.sh_flags;
3411       flags &= SHF_IA_64_NORECOV;
3412
3413       elf_section_data(input_section->output_section)
3414         ->this_hdr.sh_flags |= flags;
3415     }
3416
3417   gp_val = _bfd_get_gp_value (output_bfd);
3418
3419   rel = relocs;
3420   relend = relocs + input_section->reloc_count;
3421   for (; rel < relend; ++rel)
3422     {
3423       struct elf_link_hash_entry *h;
3424       struct elf64_ia64_dyn_sym_info *dyn_i;
3425       bfd_reloc_status_type r;
3426       reloc_howto_type *howto;
3427       unsigned long r_symndx;
3428       Elf_Internal_Sym *sym;
3429       unsigned int r_type;
3430       bfd_vma value;
3431       asection *sym_sec;
3432       bfd_byte *hit_addr;
3433       bfd_boolean dynamic_symbol_p;
3434       bfd_boolean undef_weak_ref;
3435
3436       r_type = ELF64_R_TYPE (rel->r_info);
3437       if (r_type > R_IA64_MAX_RELOC_CODE)
3438         {
3439           /* xgettext:c-format */
3440           _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
3441                               input_bfd, (int) r_type);
3442           bfd_set_error (bfd_error_bad_value);
3443           ret_val = FALSE;
3444           continue;
3445         }
3446
3447       howto = ia64_elf_lookup_howto (r_type);
3448       if (howto == NULL)
3449         {
3450           ret_val = FALSE;
3451           continue;
3452         }
3453       r_symndx = ELF64_R_SYM (rel->r_info);
3454       h = NULL;
3455       sym = NULL;
3456       sym_sec = NULL;
3457       undef_weak_ref = FALSE;
3458
3459       if (r_symndx < symtab_hdr->sh_info)
3460         {
3461           /* Reloc against local symbol.  */
3462           asection *msec;
3463           sym = local_syms + r_symndx;
3464           sym_sec = local_sections[r_symndx];
3465           msec = sym_sec;
3466           value = _bfd_elf_rela_local_sym (output_bfd, sym, &msec, rel);
3467           if (!bfd_link_relocatable (info)
3468               && (sym_sec->flags & SEC_MERGE) != 0
3469               && ELF_ST_TYPE (sym->st_info) == STT_SECTION
3470               && sym_sec->sec_info_type == SEC_INFO_TYPE_MERGE)
3471             {
3472               struct elf64_ia64_local_hash_entry *loc_h;
3473
3474               loc_h = get_local_sym_hash (ia64_info, input_bfd, rel, FALSE);
3475               if (loc_h && ! loc_h->sec_merge_done)
3476                 {
3477                   struct elf64_ia64_dyn_sym_info *dynent;
3478                   unsigned int count;
3479
3480                   for (count = loc_h->count, dynent = loc_h->info;
3481                        count != 0;
3482                        count--, dynent++)
3483                     {
3484                       msec = sym_sec;
3485                       dynent->addend =
3486                         _bfd_merged_section_offset (output_bfd, &msec,
3487                                                     elf_section_data (msec)->
3488                                                     sec_info,
3489                                                     sym->st_value
3490                                                     + dynent->addend);
3491                       dynent->addend -= sym->st_value;
3492                       dynent->addend += msec->output_section->vma
3493                                         + msec->output_offset
3494                                         - sym_sec->output_section->vma
3495                                         - sym_sec->output_offset;
3496                     }
3497
3498                   /* We may have introduced duplicated entries. We need
3499                      to remove them properly.  */
3500                   count = sort_dyn_sym_info (loc_h->info, loc_h->count);
3501                   if (count != loc_h->count)
3502                     {
3503                       loc_h->count = count;
3504                       loc_h->sorted_count = count;
3505                     }
3506
3507                   loc_h->sec_merge_done = 1;
3508                 }
3509             }
3510         }
3511       else
3512         {
3513           bfd_boolean unresolved_reloc;
3514           bfd_boolean warned, ignored;
3515           struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (input_bfd);
3516
3517           RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
3518                                    r_symndx, symtab_hdr, sym_hashes,
3519                                    h, sym_sec, value,
3520                                    unresolved_reloc, warned, ignored);
3521
3522           if (h->root.type == bfd_link_hash_undefweak)
3523             undef_weak_ref = TRUE;
3524           else if (warned)
3525             continue;
3526         }
3527
3528       /* For relocs against symbols from removed linkonce sections,
3529          or sections discarded by a linker script, we just want the
3530          section contents zeroed.  Avoid any special processing.  */
3531       if (sym_sec != NULL && discarded_section (sym_sec))
3532         RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
3533                                          rel, 1, relend, howto, 0, contents);
3534
3535       if (bfd_link_relocatable (info))
3536         continue;
3537
3538       hit_addr = contents + rel->r_offset;
3539       value += rel->r_addend;
3540       dynamic_symbol_p = elf64_ia64_dynamic_symbol_p (h);
3541
3542       switch (r_type)
3543         {
3544         case R_IA64_NONE:
3545         case R_IA64_LDXMOV:
3546           continue;
3547
3548         case R_IA64_IMM14:
3549         case R_IA64_IMM22:
3550         case R_IA64_IMM64:
3551         case R_IA64_DIR32MSB:
3552         case R_IA64_DIR32LSB:
3553         case R_IA64_DIR64MSB:
3554         case R_IA64_DIR64LSB:
3555           /* Install a dynamic relocation for this reloc.  */
3556           if ((dynamic_symbol_p || bfd_link_pic (info))
3557               && r_symndx != 0
3558               && (input_section->flags & SEC_ALLOC) != 0)
3559             {
3560               unsigned int dyn_r_type;
3561               bfd_vma addend;
3562
3563               switch (r_type)
3564                 {
3565                 case R_IA64_IMM14:
3566                 case R_IA64_IMM22:
3567                 case R_IA64_IMM64:
3568                   /* ??? People shouldn't be doing non-pic code in
3569                      shared libraries nor dynamic executables.  */
3570                   _bfd_error_handler
3571                     /* xgettext:c-format */
3572                     (_("%pB: non-pic code with imm relocation against"
3573                        " dynamic symbol `%s'"),
3574                      input_bfd,
3575                      h ? h->root.root.string
3576                        : bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
3577                                            sym_sec));
3578                   ret_val = FALSE;
3579                   continue;
3580
3581                 default:
3582                   break;
3583                 }
3584
3585               /* If we don't need dynamic symbol lookup, find a
3586                  matching RELATIVE relocation.  */
3587               dyn_r_type = r_type;
3588               if (dynamic_symbol_p)
3589                 {
3590                   addend = rel->r_addend;
3591                   value = 0;
3592                 }
3593               else
3594                 {
3595                   addend = value;
3596                 }
3597
3598               /* VMS: install a FIX64.  */
3599               switch (dyn_r_type)
3600                 {
3601                 case R_IA64_DIR32LSB:
3602                   dyn_r_type = R_IA64_VMS_FIX32;
3603                   break;
3604                 case R_IA64_DIR64LSB:
3605                   dyn_r_type = R_IA64_VMS_FIX64;
3606                   break;
3607                 default:
3608                   BFD_ASSERT (FALSE);
3609                   break;
3610                 }
3611               elf64_ia64_install_fixup
3612                 (output_bfd, ia64_info, h,
3613                  dyn_r_type, input_section, rel->r_offset, addend);
3614               r = bfd_reloc_ok;
3615               break;
3616             }
3617           /* Fall through.  */
3618
3619         case R_IA64_LTV32MSB:
3620         case R_IA64_LTV32LSB:
3621         case R_IA64_LTV64MSB:
3622         case R_IA64_LTV64LSB:
3623           r = ia64_elf_install_value (hit_addr, value, r_type);
3624           break;
3625
3626         case R_IA64_GPREL22:
3627         case R_IA64_GPREL64I:
3628         case R_IA64_GPREL32MSB:
3629         case R_IA64_GPREL32LSB:
3630         case R_IA64_GPREL64MSB:
3631         case R_IA64_GPREL64LSB:
3632           if (dynamic_symbol_p)
3633             {
3634               _bfd_error_handler
3635                 /* xgettext:c-format */
3636                 (_("%pB: @gprel relocation against dynamic symbol %s"),
3637                  input_bfd,
3638                  h ? h->root.root.string
3639                    : bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
3640                                        sym_sec));
3641               ret_val = FALSE;
3642               continue;
3643             }
3644           value -= gp_val;
3645           r = ia64_elf_install_value (hit_addr, value, r_type);
3646           break;
3647
3648         case R_IA64_LTOFF22:
3649         case R_IA64_LTOFF22X:
3650         case R_IA64_LTOFF64I:
3651           dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
3652           value = set_got_entry (input_bfd, info, dyn_i,
3653                                  rel->r_addend, value, R_IA64_DIR64LSB);
3654           value -= gp_val;
3655           r = ia64_elf_install_value (hit_addr, value, r_type);
3656           break;
3657
3658         case R_IA64_PLTOFF22:
3659         case R_IA64_PLTOFF64I:
3660         case R_IA64_PLTOFF64MSB:
3661         case R_IA64_PLTOFF64LSB:
3662           dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
3663           value = set_pltoff_entry (output_bfd, info, dyn_i, value, FALSE);
3664           value -= gp_val;
3665           r = ia64_elf_install_value (hit_addr, value, r_type);
3666           break;
3667
3668         case R_IA64_FPTR64I:
3669         case R_IA64_FPTR32MSB:
3670         case R_IA64_FPTR32LSB:
3671         case R_IA64_FPTR64MSB:
3672         case R_IA64_FPTR64LSB:
3673           dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
3674           if (dyn_i->want_fptr)
3675             {
3676               if (!undef_weak_ref)
3677                 value = set_fptr_entry (output_bfd, info, dyn_i, value);
3678             }
3679           if (!dyn_i->want_fptr || bfd_link_pie (info))
3680             {
3681               /* Otherwise, we expect the dynamic linker to create
3682                  the entry.  */
3683
3684               if (dyn_i->want_fptr)
3685                 {
3686                   if (r_type == R_IA64_FPTR64I)
3687                     {
3688                       /* We can't represent this without a dynamic symbol.
3689                          Adjust the relocation to be against an output
3690                          section symbol, which are always present in the
3691                          dynamic symbol table.  */
3692                       /* ??? People shouldn't be doing non-pic code in
3693                          shared libraries.  Hork.  */
3694                       _bfd_error_handler
3695                         (_("%pB: linking non-pic code in a position independent executable"),
3696                          input_bfd);
3697                       ret_val = FALSE;
3698                       continue;
3699                     }
3700                 }
3701               else
3702                 {
3703                   value = 0;
3704                 }
3705
3706               /* VMS: FIXFD.  */
3707               elf64_ia64_install_fixup
3708                 (output_bfd, ia64_info, h, R_IA64_VMS_FIXFD,
3709                  input_section, rel->r_offset, 0);
3710               r = bfd_reloc_ok;
3711               break;
3712             }
3713
3714           r = ia64_elf_install_value (hit_addr, value, r_type);
3715           break;
3716
3717         case R_IA64_LTOFF_FPTR22:
3718         case R_IA64_LTOFF_FPTR64I:
3719         case R_IA64_LTOFF_FPTR32MSB:
3720         case R_IA64_LTOFF_FPTR32LSB:
3721         case R_IA64_LTOFF_FPTR64MSB:
3722         case R_IA64_LTOFF_FPTR64LSB:
3723           dyn_i = get_dyn_sym_info (ia64_info, h, input_bfd, rel, FALSE);
3724           if (dyn_i->want_fptr)
3725             {
3726               BFD_ASSERT (h == NULL || !h->def_dynamic);
3727               if (!undef_weak_ref)
3728                 value = set_fptr_entry (output_bfd, info, dyn_i, value);
3729             }
3730           else
3731             value = 0;
3732
3733           value = set_got_entry (output_bfd, info, dyn_i,
3734                                  rel->r_addend, value, R_IA64_FPTR64LSB);
3735           value -= gp_val;
3736           r = ia64_elf_install_value (hit_addr, value, r_type);
3737           break;
3738
3739         case R_IA64_PCREL32MSB:
3740         case R_IA64_PCREL32LSB:
3741         case R_IA64_PCREL64MSB:
3742         case R_IA64_PCREL64LSB:
3743           /* Install a dynamic relocation for this reloc.  */
3744           if (dynamic_symbol_p && r_symndx != 0)
3745             {
3746               /* VMS: doesn't exist ???  */
3747               abort ();
3748             }
3749           goto finish_pcrel;
3750
3751         case R_IA64_PCREL21B:
3752         case R_IA64_PCREL60B:
3753           /* We should have created a PLT entry for any dynamic symbol.  */
3754           dyn_i = NULL;
3755           if (h)
3756             dyn_i = get_dyn_sym_info (ia64_info, h, NULL, NULL, FALSE);
3757
3758           if (dyn_i && dyn_i->want_plt2)
3759             {
3760               /* Should have caught this earlier.  */
3761               BFD_ASSERT (rel->r_addend == 0);
3762
3763               value = (ia64_info->root.splt->output_section->vma
3764                        + ia64_info->root.splt->output_offset
3765                        + dyn_i->plt2_offset);
3766             }
3767           else
3768             {
3769               /* Since there's no PLT entry, Validate that this is
3770                  locally defined.  */
3771               BFD_ASSERT (undef_weak_ref || sym_sec->output_section != NULL);
3772
3773               /* If the symbol is undef_weak, we shouldn't be trying
3774                  to call it.  There's every chance that we'd wind up
3775                  with an out-of-range fixup here.  Don't bother setting
3776                  any value at all.  */
3777               if (undef_weak_ref)
3778                 continue;
3779             }
3780           goto finish_pcrel;
3781
3782         case R_IA64_PCREL21BI:
3783         case R_IA64_PCREL21F:
3784         case R_IA64_PCREL21M:
3785         case R_IA64_PCREL22:
3786         case R_IA64_PCREL64I:
3787           /* The PCREL21BI reloc is specifically not intended for use with
3788              dynamic relocs.  PCREL21F and PCREL21M are used for speculation
3789              fixup code, and thus probably ought not be dynamic.  The
3790              PCREL22 and PCREL64I relocs aren't emitted as dynamic relocs.  */
3791           if (dynamic_symbol_p)
3792             {
3793               const char *msg;
3794
3795               if (r_type == R_IA64_PCREL21BI)
3796                 /* xgettext:c-format */
3797                 msg = _("%pB: @internal branch to dynamic symbol %s");
3798               else if (r_type == R_IA64_PCREL21F || r_type == R_IA64_PCREL21M)
3799                 /* xgettext:c-format */
3800                 msg = _("%pB: speculation fixup to dynamic symbol %s");
3801               else
3802                 /* xgettext:c-format */
3803                 msg = _("%pB: @pcrel relocation against dynamic symbol %s");
3804               _bfd_error_handler (msg, input_bfd,
3805                                   h ? h->root.root.string
3806                                   : bfd_elf_sym_name (input_bfd,
3807                                                       symtab_hdr,
3808                                                       sym,
3809                                                       sym_sec));
3810               ret_val = FALSE;
3811               continue;
3812             }
3813           goto finish_pcrel;
3814
3815         finish_pcrel:
3816           /* Make pc-relative.  */
3817           value -= (input_section->output_section->vma
3818                     + input_section->output_offset
3819                     + rel->r_offset) & ~ (bfd_vma) 0x3;
3820           r = ia64_elf_install_value (hit_addr, value, r_type);
3821           break;
3822
3823         case R_IA64_SEGREL32MSB:
3824         case R_IA64_SEGREL32LSB:
3825         case R_IA64_SEGREL64MSB:
3826         case R_IA64_SEGREL64LSB:
3827             {
3828               /* Find the segment that contains the output_section.  */
3829               Elf_Internal_Phdr *p = _bfd_elf_find_segment_containing_section
3830                 (output_bfd, sym_sec->output_section);
3831
3832               if (p == NULL)
3833                 {
3834                   r = bfd_reloc_notsupported;
3835                 }
3836               else
3837                 {
3838                   /* The VMA of the segment is the vaddr of the associated
3839                      program header.  */
3840                   if (value > p->p_vaddr)
3841                     value -= p->p_vaddr;
3842                   else
3843                     value = 0;
3844                   r = ia64_elf_install_value (hit_addr, value, r_type);
3845                 }
3846               break;
3847             }
3848
3849         case R_IA64_SECREL32MSB:
3850         case R_IA64_SECREL32LSB:
3851         case R_IA64_SECREL64MSB:
3852         case R_IA64_SECREL64LSB:
3853           /* Make output-section relative to section where the symbol
3854              is defined. PR 475  */
3855           if (sym_sec)
3856             value -= sym_sec->output_section->vma;
3857           r = ia64_elf_install_value (hit_addr, value, r_type);
3858           break;
3859
3860         case R_IA64_IPLTMSB:
3861         case R_IA64_IPLTLSB:
3862           /* Install a dynamic relocation for this reloc.  */
3863           if ((dynamic_symbol_p || bfd_link_pic (info))
3864               && (input_section->flags & SEC_ALLOC) != 0)
3865             {
3866               /* VMS: FIXFD ??  */
3867               abort ();
3868             }
3869
3870           if (r_type == R_IA64_IPLTMSB)
3871             r_type = R_IA64_DIR64MSB;
3872           else
3873             r_type = R_IA64_DIR64LSB;
3874           ia64_elf_install_value (hit_addr, value, r_type);
3875           r = ia64_elf_install_value (hit_addr + 8, gp_val, r_type);
3876           break;
3877
3878         case R_IA64_TPREL14:
3879         case R_IA64_TPREL22:
3880         case R_IA64_TPREL64I:
3881           r = bfd_reloc_notsupported;
3882           break;
3883
3884         case R_IA64_DTPREL14:
3885         case R_IA64_DTPREL22:
3886         case R_IA64_DTPREL64I:
3887         case R_IA64_DTPREL32LSB:
3888         case R_IA64_DTPREL32MSB:
3889         case R_IA64_DTPREL64LSB:
3890         case R_IA64_DTPREL64MSB:
3891           r = bfd_reloc_notsupported;
3892           break;
3893
3894         case R_IA64_LTOFF_TPREL22:
3895         case R_IA64_LTOFF_DTPMOD22:
3896         case R_IA64_LTOFF_DTPREL22:
3897           r = bfd_reloc_notsupported;
3898           break;
3899
3900         default:
3901           r = bfd_reloc_notsupported;
3902           break;
3903         }
3904
3905       switch (r)
3906         {
3907         case bfd_reloc_ok:
3908           break;
3909
3910         case bfd_reloc_undefined:
3911           /* This can happen for global table relative relocs if
3912              __gp is undefined.  This is a panic situation so we
3913              don't try to continue.  */
3914           (*info->callbacks->undefined_symbol)
3915             (info, "__gp", input_bfd, input_section, rel->r_offset, 1);
3916           return FALSE;
3917
3918         case bfd_reloc_notsupported:
3919           {
3920             const char *name;
3921
3922             if (h)
3923               name = h->root.root.string;
3924             else
3925               name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
3926                                        sym_sec);
3927             (*info->callbacks->warning) (info, _("unsupported reloc"),
3928                                          name, input_bfd,
3929                                          input_section, rel->r_offset);
3930             ret_val = FALSE;
3931           }
3932           break;
3933
3934         case bfd_reloc_dangerous:
3935         case bfd_reloc_outofrange:
3936         case bfd_reloc_overflow:
3937         default:
3938           {
3939             const char *name;
3940
3941             if (h)
3942               name = h->root.root.string;
3943             else
3944               name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
3945                                        sym_sec);
3946
3947             switch (r_type)
3948               {
3949               case R_IA64_TPREL14:
3950               case R_IA64_TPREL22:
3951               case R_IA64_TPREL64I:
3952               case R_IA64_DTPREL14:
3953               case R_IA64_DTPREL22:
3954               case R_IA64_DTPREL64I:
3955               case R_IA64_DTPREL32LSB:
3956               case R_IA64_DTPREL32MSB:
3957               case R_IA64_DTPREL64LSB:
3958               case R_IA64_DTPREL64MSB:
3959               case R_IA64_LTOFF_TPREL22:
3960               case R_IA64_LTOFF_DTPMOD22:
3961               case R_IA64_LTOFF_DTPREL22:
3962                 _bfd_error_handler
3963                   /* xgettext:c-format */
3964                   (_("%pB: missing TLS section for relocation %s against `%s'"
3965                      " at %#" PRIx64 " in section `%pA'."),
3966                    input_bfd, howto->name, name,
3967                    (uint64_t) rel->r_offset, input_section);
3968                 break;
3969
3970               case R_IA64_PCREL21B:
3971               case R_IA64_PCREL21BI:
3972               case R_IA64_PCREL21M:
3973               case R_IA64_PCREL21F:
3974                 if (is_elf_hash_table (info->hash))
3975                   {
3976                     /* Relaxtion is always performed for ELF output.
3977                        Overflow failures for those relocations mean
3978                        that the section is too big to relax.  */
3979                     _bfd_error_handler
3980                       /* xgettext:c-format */
3981                       (_("%pB: Can't relax br (%s) to `%s' "
3982                          "at %#" PRIx64 " in section `%pA' "
3983                          "with size %#" PRIx64 " (> 0x1000000)."),
3984                        input_bfd, howto->name, name, (uint64_t) rel->r_offset,
3985                        input_section, (uint64_t) input_section->size);
3986                     break;
3987                   }
3988                 /* Fall through.  */
3989               default:
3990                 (*info->callbacks->reloc_overflow) (info,
3991                                                     &h->root,
3992                                                     name,
3993                                                     howto->name,
3994                                                     (bfd_vma) 0,
3995                                                     input_bfd,
3996                                                     input_section,
3997                                                     rel->r_offset);
3998                 break;
3999               }
4000
4001             ret_val = FALSE;
4002           }
4003           break;
4004         }
4005     }
4006
4007   return ret_val;
4008 }
4009
4010 static bfd_boolean
4011 elf64_ia64_finish_dynamic_symbol (bfd *output_bfd,
4012                                   struct bfd_link_info *info,
4013                                   struct elf_link_hash_entry *h,
4014                                   Elf_Internal_Sym *sym)
4015 {
4016   struct elf64_ia64_link_hash_table *ia64_info;
4017   struct elf64_ia64_dyn_sym_info *dyn_i;
4018
4019   ia64_info = elf64_ia64_hash_table (info);
4020   if (ia64_info == NULL)
4021     return FALSE;
4022
4023   dyn_i = get_dyn_sym_info (ia64_info, h, NULL, NULL, FALSE);
4024
4025   /* Fill in the PLT data, if required.  */
4026   if (dyn_i && dyn_i->want_plt)
4027     {
4028       bfd_byte *loc;
4029       asection *plt_sec;
4030       bfd_vma plt_addr, pltoff_addr, gp_val;
4031
4032       gp_val = _bfd_get_gp_value (output_bfd);
4033
4034       plt_sec = ia64_info->root.splt;
4035       plt_addr = 0;  /* Not used as overriden by FIXUPs.  */
4036       pltoff_addr = set_pltoff_entry (output_bfd, info, dyn_i, plt_addr, TRUE);
4037
4038       /* Initialize the FULL PLT entry, if needed.  */
4039       if (dyn_i->want_plt2)
4040         {
4041           loc = plt_sec->contents + dyn_i->plt2_offset;
4042
4043           memcpy (loc, plt_full_entry, PLT_FULL_ENTRY_SIZE);
4044           ia64_elf_install_value (loc, pltoff_addr - gp_val, R_IA64_IMM22);
4045
4046           /* Mark the symbol as undefined, rather than as defined in the
4047              plt section.  Leave the value alone.  */
4048           /* ??? We didn't redefine it in adjust_dynamic_symbol in the
4049              first place.  But perhaps elflink.c did some for us.  */
4050           if (!h->def_regular)
4051             sym->st_shndx = SHN_UNDEF;
4052         }
4053
4054       /* VMS: FIXFD.  */
4055       elf64_ia64_install_fixup
4056         (output_bfd, ia64_info, h, R_IA64_VMS_FIXFD, ia64_info->pltoff_sec,
4057          pltoff_addr - (ia64_info->pltoff_sec->output_section->vma
4058                         + ia64_info->pltoff_sec->output_offset), 0);
4059     }
4060
4061   /* Mark some specially defined symbols as absolute.  */
4062   if (h == ia64_info->root.hdynamic
4063       || h == ia64_info->root.hgot
4064       || h == ia64_info->root.hplt)
4065     sym->st_shndx = SHN_ABS;
4066
4067   return TRUE;
4068 }
4069
4070 static bfd_boolean
4071 elf64_ia64_finish_dynamic_sections (bfd *abfd,
4072                                     struct bfd_link_info *info)
4073 {
4074   struct elf64_ia64_link_hash_table *ia64_info;
4075   bfd *dynobj;
4076
4077   ia64_info = elf64_ia64_hash_table (info);
4078   if (ia64_info == NULL)
4079     return FALSE;
4080
4081   dynobj = ia64_info->root.dynobj;
4082
4083   if (elf_hash_table (info)->dynamic_sections_created)
4084     {
4085       Elf64_External_Dyn *dyncon, *dynconend;
4086       asection *sdyn;
4087       asection *unwind_sec;
4088       bfd_vma gp_val;
4089       unsigned int gp_seg;
4090       bfd_vma gp_off;
4091       Elf_Internal_Phdr *phdr;
4092       Elf_Internal_Phdr *base_phdr;
4093       unsigned int unwind_seg = 0;
4094       unsigned int code_seg = 0;
4095
4096       sdyn = bfd_get_linker_section (dynobj, ".dynamic");
4097       BFD_ASSERT (sdyn != NULL);
4098       dyncon = (Elf64_External_Dyn *) sdyn->contents;
4099       dynconend = (Elf64_External_Dyn *) (sdyn->contents + sdyn->size);
4100
4101       gp_val = _bfd_get_gp_value (abfd);
4102       phdr = _bfd_elf_find_segment_containing_section
4103         (info->output_bfd, ia64_info->pltoff_sec->output_section);
4104       BFD_ASSERT (phdr != NULL);
4105       base_phdr = elf_tdata (info->output_bfd)->phdr;
4106       gp_seg = phdr - base_phdr;
4107       gp_off = gp_val - phdr->p_vaddr;
4108
4109       unwind_sec = bfd_get_section_by_name (abfd, ELF_STRING_ia64_unwind);
4110       if (unwind_sec != NULL)
4111         {
4112           asection *code_sec;
4113
4114           phdr = _bfd_elf_find_segment_containing_section (abfd, unwind_sec);
4115           BFD_ASSERT (phdr != NULL);
4116           unwind_seg = phdr - base_phdr;
4117
4118           code_sec = bfd_get_section_by_name (abfd, "$CODE$");
4119           phdr = _bfd_elf_find_segment_containing_section (abfd, code_sec);
4120           BFD_ASSERT (phdr != NULL);
4121           code_seg = phdr - base_phdr;
4122         }
4123
4124       for (; dyncon < dynconend; dyncon++)
4125         {
4126           Elf_Internal_Dyn dyn;
4127
4128           bfd_elf64_swap_dyn_in (dynobj, dyncon, &dyn);
4129
4130           switch (dyn.d_tag)
4131             {
4132             case DT_IA_64_VMS_FIXUP_RELA_OFF:
4133               dyn.d_un.d_val +=
4134                 (ia64_info->fixups_sec->output_section->vma
4135                  + ia64_info->fixups_sec->output_offset)
4136                 - (sdyn->output_section->vma + sdyn->output_offset);
4137               break;
4138
4139             case DT_IA_64_VMS_PLTGOT_OFFSET:
4140               dyn.d_un.d_val = gp_off;
4141               break;
4142
4143             case DT_IA_64_VMS_PLTGOT_SEG:
4144               dyn.d_un.d_val = gp_seg;
4145               break;
4146
4147             case DT_IA_64_VMS_UNWINDSZ:
4148               if (unwind_sec == NULL)
4149                 {
4150                   dyn.d_tag = DT_NULL;
4151                   dyn.d_un.d_val = 0xdead;
4152                 }
4153               else
4154                 dyn.d_un.d_val = unwind_sec->size;
4155               break;
4156
4157             case DT_IA_64_VMS_UNWIND_CODSEG:
4158               dyn.d_un.d_val = code_seg;
4159               break;
4160
4161             case DT_IA_64_VMS_UNWIND_INFOSEG:
4162             case DT_IA_64_VMS_UNWIND_SEG:
4163               dyn.d_un.d_val = unwind_seg;
4164               break;
4165
4166             case DT_IA_64_VMS_UNWIND_OFFSET:
4167               break;
4168
4169             default:
4170               /* No need to rewrite the entry.  */
4171               continue;
4172             }
4173
4174           bfd_elf64_swap_dyn_out (abfd, &dyn, dyncon);
4175         }
4176     }
4177
4178   /* Handle transfer addresses.  */
4179   {
4180     asection *tfr_sec = ia64_info->transfer_sec;
4181     struct elf64_vms_transfer *tfr;
4182     struct elf_link_hash_entry *tfr3;
4183
4184     tfr = (struct elf64_vms_transfer *)tfr_sec->contents;
4185     bfd_putl32 (6 * 8, tfr->size);
4186     bfd_putl64 (tfr_sec->output_section->vma
4187                 + tfr_sec->output_offset
4188                 + 6 * 8, tfr->tfradr3);
4189
4190     tfr3 = elf_link_hash_lookup (elf_hash_table (info), "ELF$TFRADR", FALSE,
4191                                  FALSE, FALSE);
4192
4193     if (tfr3
4194         && (tfr3->root.type == bfd_link_hash_defined
4195             || tfr3->root.type == bfd_link_hash_defweak))
4196       {
4197         asection *tfr3_sec = tfr3->root.u.def.section;
4198         bfd_vma tfr3_val;
4199
4200         tfr3_val = (tfr3->root.u.def.value
4201                     + tfr3_sec->output_section->vma
4202                     + tfr3_sec->output_offset);
4203
4204         bfd_putl64 (tfr3_val, tfr->tfr3_func);
4205         bfd_putl64 (_bfd_get_gp_value (info->output_bfd), tfr->tfr3_gp);
4206       }
4207
4208     /* FIXME: set linker flags,
4209        handle lib$initialize.  */
4210   }
4211
4212   return TRUE;
4213 }
4214
4215 /* ELF file flag handling:  */
4216
4217 /* Function to keep IA-64 specific file flags.  */
4218 static bfd_boolean
4219 elf64_ia64_set_private_flags (bfd *abfd, flagword flags)
4220 {
4221   BFD_ASSERT (!elf_flags_init (abfd)
4222               || elf_elfheader (abfd)->e_flags == flags);
4223
4224   elf_elfheader (abfd)->e_flags = flags;
4225   elf_flags_init (abfd) = TRUE;
4226   return TRUE;
4227 }
4228
4229 /* Merge backend specific data from an object file to the output
4230    object file when linking.  */
4231 static bfd_boolean
4232 elf64_ia64_merge_private_bfd_data (bfd *ibfd, struct bfd_link_info *info)
4233 {
4234   bfd *obfd = info->output_bfd;
4235   flagword out_flags;
4236   flagword in_flags;
4237   bfd_boolean ok = TRUE;
4238
4239   /* Don't even pretend to support mixed-format linking.  */
4240   if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
4241       || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
4242     return FALSE;
4243
4244   in_flags  = elf_elfheader (ibfd)->e_flags;
4245   out_flags = elf_elfheader (obfd)->e_flags;
4246
4247   if (! elf_flags_init (obfd))
4248     {
4249       elf_flags_init (obfd) = TRUE;
4250       elf_elfheader (obfd)->e_flags = in_flags;
4251
4252       if (bfd_get_arch (obfd) == bfd_get_arch (ibfd)
4253           && bfd_get_arch_info (obfd)->the_default)
4254         {
4255           return bfd_set_arch_mach (obfd, bfd_get_arch (ibfd),
4256                                     bfd_get_mach (ibfd));
4257         }
4258
4259       return TRUE;
4260     }
4261
4262   /* Check flag compatibility.  */
4263   if (in_flags == out_flags)
4264     return TRUE;
4265
4266   /* Output has EF_IA_64_REDUCEDFP set only if all inputs have it set.  */
4267   if (!(in_flags & EF_IA_64_REDUCEDFP) && (out_flags & EF_IA_64_REDUCEDFP))
4268     elf_elfheader (obfd)->e_flags &= ~EF_IA_64_REDUCEDFP;
4269
4270   if ((in_flags & EF_IA_64_TRAPNIL) != (out_flags & EF_IA_64_TRAPNIL))
4271     {
4272       _bfd_error_handler
4273         (_("%pB: linking trap-on-NULL-dereference with non-trapping files"),
4274          ibfd);
4275
4276       bfd_set_error (bfd_error_bad_value);
4277       ok = FALSE;
4278     }
4279   if ((in_flags & EF_IA_64_BE) != (out_flags & EF_IA_64_BE))
4280     {
4281       _bfd_error_handler
4282         (_("%pB: linking big-endian files with little-endian files"),
4283          ibfd);
4284
4285       bfd_set_error (bfd_error_bad_value);
4286       ok = FALSE;
4287     }
4288   if ((in_flags & EF_IA_64_ABI64) != (out_flags & EF_IA_64_ABI64))
4289     {
4290       _bfd_error_handler
4291         (_("%pB: linking 64-bit files with 32-bit files"),
4292          ibfd);
4293
4294       bfd_set_error (bfd_error_bad_value);
4295       ok = FALSE;
4296     }
4297   if ((in_flags & EF_IA_64_CONS_GP) != (out_flags & EF_IA_64_CONS_GP))
4298     {
4299       _bfd_error_handler
4300         (_("%pB: linking constant-gp files with non-constant-gp files"),
4301          ibfd);
4302
4303       bfd_set_error (bfd_error_bad_value);
4304       ok = FALSE;
4305     }
4306   if ((in_flags & EF_IA_64_NOFUNCDESC_CONS_GP)
4307       != (out_flags & EF_IA_64_NOFUNCDESC_CONS_GP))
4308     {
4309       _bfd_error_handler
4310         (_("%pB: linking auto-pic files with non-auto-pic files"),
4311          ibfd);
4312
4313       bfd_set_error (bfd_error_bad_value);
4314       ok = FALSE;
4315     }
4316
4317   return ok;
4318 }
4319
4320 static bfd_boolean
4321 elf64_ia64_print_private_bfd_data (bfd *abfd, void * ptr)
4322 {
4323   FILE *file = (FILE *) ptr;
4324   flagword flags = elf_elfheader (abfd)->e_flags;
4325
4326   BFD_ASSERT (abfd != NULL && ptr != NULL);
4327
4328   fprintf (file, "private flags = %s%s%s%s%s%s%s%s\n",
4329            (flags & EF_IA_64_TRAPNIL) ? "TRAPNIL, " : "",
4330            (flags & EF_IA_64_EXT) ? "EXT, " : "",
4331            (flags & EF_IA_64_BE) ? "BE, " : "LE, ",
4332            (flags & EF_IA_64_REDUCEDFP) ? "REDUCEDFP, " : "",
4333            (flags & EF_IA_64_CONS_GP) ? "CONS_GP, " : "",
4334            (flags & EF_IA_64_NOFUNCDESC_CONS_GP) ? "NOFUNCDESC_CONS_GP, " : "",
4335            (flags & EF_IA_64_ABSOLUTE) ? "ABSOLUTE, " : "",
4336            (flags & EF_IA_64_ABI64) ? "ABI64" : "ABI32");
4337
4338   _bfd_elf_print_private_bfd_data (abfd, ptr);
4339   return TRUE;
4340 }
4341
4342 static enum elf_reloc_type_class
4343 elf64_ia64_reloc_type_class (const struct bfd_link_info *info ATTRIBUTE_UNUSED,
4344                              const asection *rel_sec ATTRIBUTE_UNUSED,
4345                              const Elf_Internal_Rela *rela)
4346 {
4347   switch ((int) ELF64_R_TYPE (rela->r_info))
4348     {
4349     case R_IA64_REL32MSB:
4350     case R_IA64_REL32LSB:
4351     case R_IA64_REL64MSB:
4352     case R_IA64_REL64LSB:
4353       return reloc_class_relative;
4354     case R_IA64_IPLTMSB:
4355     case R_IA64_IPLTLSB:
4356       return reloc_class_plt;
4357     case R_IA64_COPY:
4358       return reloc_class_copy;
4359     default:
4360       return reloc_class_normal;
4361     }
4362 }
4363
4364 static const struct bfd_elf_special_section elf64_ia64_special_sections[] =
4365 {
4366   { STRING_COMMA_LEN (".sbss"),  -1, SHT_NOBITS,   SHF_ALLOC + SHF_WRITE + SHF_IA_64_SHORT },
4367   { STRING_COMMA_LEN (".sdata"), -1, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE + SHF_IA_64_SHORT },
4368   { NULL,                    0,   0, 0,            0 }
4369 };
4370
4371 static bfd_boolean
4372 elf64_ia64_object_p (bfd *abfd)
4373 {
4374   asection *sec;
4375   asection *group, *unwi, *unw;
4376   flagword flags;
4377   const char *name;
4378   char *unwi_name, *unw_name;
4379   bfd_size_type amt;
4380
4381   if (abfd->flags & DYNAMIC)
4382     return TRUE;
4383
4384   /* Flags for fake group section.  */
4385   flags = (SEC_LINKER_CREATED | SEC_GROUP | SEC_LINK_ONCE
4386            | SEC_EXCLUDE);
4387
4388   /* We add a fake section group for each .gnu.linkonce.t.* section,
4389      which isn't in a section group, and its unwind sections.  */
4390   for (sec = abfd->sections; sec != NULL; sec = sec->next)
4391     {
4392       if (elf_sec_group (sec) == NULL
4393           && ((sec->flags & (SEC_LINK_ONCE | SEC_CODE | SEC_GROUP))
4394               == (SEC_LINK_ONCE | SEC_CODE))
4395           && CONST_STRNEQ (sec->name, ".gnu.linkonce.t."))
4396         {
4397           name = sec->name + 16;
4398
4399           amt = strlen (name) + sizeof (".gnu.linkonce.ia64unwi.");
4400           unwi_name = bfd_alloc (abfd, amt);
4401           if (!unwi_name)
4402             return FALSE;
4403
4404           strcpy (stpcpy (unwi_name, ".gnu.linkonce.ia64unwi."), name);
4405           unwi = bfd_get_section_by_name (abfd, unwi_name);
4406
4407           amt = strlen (name) + sizeof (".gnu.linkonce.ia64unw.");
4408           unw_name = bfd_alloc (abfd, amt);
4409           if (!unw_name)
4410             return FALSE;
4411
4412           strcpy (stpcpy (unw_name, ".gnu.linkonce.ia64unw."), name);
4413           unw = bfd_get_section_by_name (abfd, unw_name);
4414
4415           /* We need to create a fake group section for it and its
4416              unwind sections.  */
4417           group = bfd_make_section_anyway_with_flags (abfd, name,
4418                                                       flags);
4419           if (group == NULL)
4420             return FALSE;
4421
4422           /* Move the fake group section to the beginning.  */
4423           bfd_section_list_remove (abfd, group);
4424           bfd_section_list_prepend (abfd, group);
4425
4426           elf_next_in_group (group) = sec;
4427
4428           elf_group_name (sec) = name;
4429           elf_next_in_group (sec) = sec;
4430           elf_sec_group (sec) = group;
4431
4432           if (unwi)
4433             {
4434               elf_group_name (unwi) = name;
4435               elf_next_in_group (unwi) = sec;
4436               elf_next_in_group (sec) = unwi;
4437               elf_sec_group (unwi) = group;
4438             }
4439
4440            if (unw)
4441              {
4442                elf_group_name (unw) = name;
4443                if (unwi)
4444                  {
4445                    elf_next_in_group (unw) = elf_next_in_group (unwi);
4446                    elf_next_in_group (unwi) = unw;
4447                  }
4448                else
4449                  {
4450                    elf_next_in_group (unw) = sec;
4451                    elf_next_in_group (sec) = unw;
4452                  }
4453                elf_sec_group (unw) = group;
4454              }
4455
4456            /* Fake SHT_GROUP section header.  */
4457           elf_section_data (group)->this_hdr.bfd_section = group;
4458           elf_section_data (group)->this_hdr.sh_type = SHT_GROUP;
4459         }
4460     }
4461   return TRUE;
4462 }
4463
4464 /* Handle an IA-64 specific section when reading an object file.  This
4465    is called when bfd_section_from_shdr finds a section with an unknown
4466    type.  */
4467
4468 static bfd_boolean
4469 elf64_vms_section_from_shdr (bfd *abfd,
4470                              Elf_Internal_Shdr *hdr,
4471                              const char *name,
4472                              int shindex)
4473 {
4474   flagword secflags = 0;
4475
4476   switch (hdr->sh_type)
4477     {
4478     case SHT_IA_64_VMS_TRACE:
4479     case SHT_IA_64_VMS_DEBUG:
4480     case SHT_IA_64_VMS_DEBUG_STR:
4481       secflags = SEC_DEBUGGING;
4482       break;
4483
4484     case SHT_IA_64_UNWIND:
4485     case SHT_IA_64_HP_OPT_ANOT:
4486       break;
4487
4488     case SHT_IA_64_EXT:
4489       if (strcmp (name, ELF_STRING_ia64_archext) != 0)
4490         return FALSE;
4491       break;
4492
4493     default:
4494       return FALSE;
4495     }
4496
4497   if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name, shindex))
4498     return FALSE;
4499
4500   if (secflags != 0)
4501     {
4502       asection *newsect = hdr->bfd_section;
4503
4504       if (! bfd_set_section_flags
4505           (abfd, newsect, bfd_get_section_flags (abfd, newsect) | secflags))
4506         return FALSE;
4507     }
4508
4509   return TRUE;
4510 }
4511
4512 static bfd_boolean
4513 elf64_vms_object_p (bfd *abfd)
4514 {
4515   Elf_Internal_Ehdr *i_ehdrp = elf_elfheader (abfd);
4516   Elf_Internal_Phdr *i_phdr = elf_tdata (abfd)->phdr;
4517   unsigned int i;
4518   unsigned int num_text = 0;
4519   unsigned int num_data = 0;
4520   unsigned int num_rodata = 0;
4521   char name[16];
4522
4523   if (!elf64_ia64_object_p (abfd))
4524     return FALSE;
4525
4526   /* Many VMS compilers do not generate sections for the corresponding
4527      segment.  This is boring as binutils tools won't be able to disassemble
4528      the code.  So we simply create all the missing sections.  */
4529   for (i = 0; i < i_ehdrp->e_phnum; i++, i_phdr++)
4530     {
4531       /* Is there a section for this segment?  */
4532       bfd_vma base_vma = i_phdr->p_vaddr;
4533       bfd_vma limit_vma = base_vma + i_phdr->p_filesz;
4534
4535       if (i_phdr->p_type != PT_LOAD)
4536         continue;
4537
4538       /* We need to cover from base_vms to limit_vma.  */
4539     again:
4540       while (base_vma < limit_vma)
4541         {
4542           bfd_vma next_vma = limit_vma;
4543           asection *nsec;
4544           asection *sec;
4545           flagword flags;
4546           char *nname = NULL;
4547
4548           /* Find a section covering [base_vma;limit_vma)  */
4549           for (sec = abfd->sections; sec != NULL; sec = sec->next)
4550             {
4551               /* Skip uninteresting sections (either not in memory or
4552                  below base_vma.  */
4553               if ((sec->flags & (SEC_ALLOC | SEC_LOAD)) == 0
4554                   || sec->vma + sec->size <= base_vma)
4555                 continue;
4556               if (sec->vma <= base_vma)
4557                 {
4558                   /* This section covers (maybe partially) the beginning
4559                      of the range.  */
4560                   base_vma = sec->vma + sec->size;
4561                   goto again;
4562                 }
4563               if (sec->vma < next_vma)
4564                 {
4565                   /* This section partially covers the end of the range.
4566                      Used to compute the size of the hole.  */
4567                   next_vma = sec->vma;
4568                 }
4569             }
4570
4571           /* No section covering [base_vma; next_vma).  Create a fake one.  */
4572           flags = SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS;
4573           if (i_phdr->p_flags & PF_X)
4574             {
4575               flags |= SEC_CODE;
4576               if (num_text++ == 0)
4577                 nname = ".text";
4578               else
4579                 sprintf (name, ".text$%u", num_text);
4580             }
4581           else if ((i_phdr->p_flags & (PF_R | PF_W)) == PF_R)
4582             {
4583               flags |= SEC_READONLY;
4584               sprintf (name, ".rodata$%u", num_rodata++);
4585             }
4586           else
4587             {
4588               flags |= SEC_DATA;
4589               sprintf (name, ".data$%u", num_data++);
4590             }
4591
4592           /* Allocate name.  */
4593           if (nname == NULL)
4594             {
4595               size_t name_len = strlen (name) + 1;
4596               nname = bfd_alloc (abfd, name_len);
4597               if (nname == NULL)
4598                 return FALSE;
4599               memcpy (nname, name, name_len);
4600             }
4601
4602           /* Create and fill new section.  */
4603           nsec = bfd_make_section_anyway_with_flags (abfd, nname, flags);
4604           if (nsec == NULL)
4605             return FALSE;
4606           nsec->vma = base_vma;
4607           nsec->size = next_vma - base_vma;
4608           nsec->filepos = i_phdr->p_offset + (base_vma - i_phdr->p_vaddr);
4609
4610           base_vma = next_vma;
4611         }
4612     }
4613   return TRUE;
4614 }
4615
4616 static void
4617 elf64_vms_post_process_headers (bfd *abfd,
4618                                 struct bfd_link_info *info ATTRIBUTE_UNUSED)
4619 {
4620   Elf_Internal_Ehdr *i_ehdrp = elf_elfheader (abfd);
4621
4622   i_ehdrp->e_ident[EI_OSABI] = ELFOSABI_OPENVMS;
4623   i_ehdrp->e_ident[EI_ABIVERSION] = 2;
4624 }
4625
4626 static bfd_boolean
4627 elf64_vms_section_processing (bfd *abfd ATTRIBUTE_UNUSED,
4628                               Elf_Internal_Shdr *hdr)
4629 {
4630   if (hdr->bfd_section != NULL)
4631     {
4632       const char *name = bfd_get_section_name (abfd, hdr->bfd_section);
4633
4634       if (strcmp (name, ".text") == 0)
4635         hdr->sh_flags |= SHF_IA_64_VMS_SHARED;
4636       else if ((strcmp (name, ".debug") == 0)
4637             || (strcmp (name, ".debug_abbrev") == 0)
4638             || (strcmp (name, ".debug_aranges") == 0)
4639             || (strcmp (name, ".debug_frame") == 0)
4640             || (strcmp (name, ".debug_info") == 0)
4641             || (strcmp (name, ".debug_loc") == 0)
4642             || (strcmp (name, ".debug_macinfo") == 0)
4643             || (strcmp (name, ".debug_pubnames") == 0)
4644             || (strcmp (name, ".debug_pubtypes") == 0))
4645         hdr->sh_type = SHT_IA_64_VMS_DEBUG;
4646       else if ((strcmp (name, ".debug_line") == 0)
4647             || (strcmp (name, ".debug_ranges") == 0)
4648             || (strcmp (name, ".trace_info") == 0)
4649             || (strcmp (name, ".trace_abbrev") == 0)
4650             || (strcmp (name, ".trace_aranges") == 0))
4651         hdr->sh_type = SHT_IA_64_VMS_TRACE;
4652       else if (strcmp (name, ".debug_str") == 0)
4653         hdr->sh_type = SHT_IA_64_VMS_DEBUG_STR;
4654     }
4655
4656   return TRUE;
4657 }
4658
4659 /* The final processing done just before writing out a VMS IA-64 ELF
4660    object file.  */
4661
4662 static void
4663 elf64_vms_final_write_processing (bfd *abfd,
4664                                   bfd_boolean linker ATTRIBUTE_UNUSED)
4665 {
4666   Elf_Internal_Shdr *hdr;
4667   asection *s;
4668   int unwind_info_sect_idx = 0;
4669
4670   for (s = abfd->sections; s; s = s->next)
4671     {
4672       hdr = &elf_section_data (s)->this_hdr;
4673
4674       if (strcmp (bfd_get_section_name (abfd, hdr->bfd_section),
4675                   ".IA_64.unwind_info") == 0)
4676         unwind_info_sect_idx = elf_section_data (s)->this_idx;
4677
4678       switch (hdr->sh_type)
4679         {
4680         case SHT_IA_64_UNWIND:
4681           /* VMS requires sh_info to point to the unwind info section.  */
4682           hdr->sh_info = unwind_info_sect_idx;
4683           break;
4684         }
4685     }
4686
4687   if (! elf_flags_init (abfd))
4688     {
4689       unsigned long flags = 0;
4690
4691       if (abfd->xvec->byteorder == BFD_ENDIAN_BIG)
4692         flags |= EF_IA_64_BE;
4693       if (bfd_get_mach (abfd) == bfd_mach_ia64_elf64)
4694         flags |= EF_IA_64_ABI64;
4695
4696       elf_elfheader (abfd)->e_flags = flags;
4697       elf_flags_init (abfd) = TRUE;
4698     }
4699 }
4700
4701 static bfd_boolean
4702 elf64_vms_write_shdrs_and_ehdr (bfd *abfd)
4703 {
4704   unsigned char needed_count[8];
4705
4706   if (!bfd_elf64_write_shdrs_and_ehdr (abfd))
4707     return FALSE;
4708
4709   bfd_putl64 (elf_ia64_vms_tdata (abfd)->needed_count, needed_count);
4710
4711   if (bfd_seek (abfd, sizeof (Elf64_External_Ehdr), SEEK_SET) != 0
4712       || bfd_bwrite (needed_count, 8, abfd) != 8)
4713     return FALSE;
4714
4715   return TRUE;
4716 }
4717
4718 static bfd_boolean
4719 elf64_vms_close_and_cleanup (bfd *abfd)
4720 {
4721   if (bfd_get_format (abfd) == bfd_object)
4722     {
4723       long isize;
4724
4725       /* Pad to 8 byte boundary for IPF/VMS.  */
4726       isize = bfd_get_size (abfd);
4727       if ((isize & 7) != 0)
4728         {
4729           int ishort = 8 - (isize & 7);
4730           bfd_uint64_t pad = 0;
4731
4732           bfd_seek (abfd, isize, SEEK_SET);
4733           bfd_bwrite (&pad, ishort, abfd);
4734         }
4735     }
4736
4737   return _bfd_elf_close_and_cleanup (abfd);
4738 }
4739
4740 /* Add symbols from an ELF object file to the linker hash table.  */
4741
4742 static bfd_boolean
4743 elf64_vms_link_add_object_symbols (bfd *abfd, struct bfd_link_info *info)
4744 {
4745   Elf_Internal_Shdr *hdr;
4746   bfd_size_type symcount;
4747   bfd_size_type extsymcount;
4748   bfd_size_type extsymoff;
4749   struct elf_link_hash_entry **sym_hash;
4750   bfd_boolean dynamic;
4751   Elf_Internal_Sym *isymbuf = NULL;
4752   Elf_Internal_Sym *isym;
4753   Elf_Internal_Sym *isymend;
4754   const struct elf_backend_data *bed;
4755   struct elf_link_hash_table *htab;
4756   bfd_size_type amt;
4757
4758   htab = elf_hash_table (info);
4759   bed = get_elf_backend_data (abfd);
4760
4761   if ((abfd->flags & DYNAMIC) == 0)
4762     dynamic = FALSE;
4763   else
4764     {
4765       dynamic = TRUE;
4766
4767       /* You can't use -r against a dynamic object.  Also, there's no
4768          hope of using a dynamic object which does not exactly match
4769          the format of the output file.  */
4770       if (bfd_link_relocatable (info)
4771           || !is_elf_hash_table (htab)
4772           || info->output_bfd->xvec != abfd->xvec)
4773         {
4774           if (bfd_link_relocatable (info))
4775             bfd_set_error (bfd_error_invalid_operation);
4776           else
4777             bfd_set_error (bfd_error_wrong_format);
4778           goto error_return;
4779         }
4780     }
4781
4782   if (! dynamic)
4783     {
4784       /* If we are creating a shared library, create all the dynamic
4785          sections immediately.  We need to attach them to something,
4786          so we attach them to this BFD, provided it is the right
4787          format.  FIXME: If there are no input BFD's of the same
4788          format as the output, we can't make a shared library.  */
4789       if (bfd_link_pic (info)
4790           && is_elf_hash_table (htab)
4791           && info->output_bfd->xvec == abfd->xvec
4792           && !htab->dynamic_sections_created)
4793         {
4794           if (! elf64_ia64_create_dynamic_sections (abfd, info))
4795             goto error_return;
4796         }
4797     }
4798   else if (!is_elf_hash_table (htab))
4799     goto error_return;
4800   else
4801     {
4802       asection *s;
4803       bfd_byte *dynbuf;
4804       bfd_byte *extdyn;
4805
4806       /* ld --just-symbols and dynamic objects don't mix very well.
4807          ld shouldn't allow it.  */
4808       if ((s = abfd->sections) != NULL
4809           && s->sec_info_type == SEC_INFO_TYPE_JUST_SYMS)
4810         abort ();
4811
4812       /* Be sure there are dynamic sections.  */
4813       if (! elf64_ia64_create_dynamic_sections (htab->dynobj, info))
4814         goto error_return;
4815
4816       s = bfd_get_section_by_name (abfd, ".dynamic");
4817       if (s == NULL)
4818         {
4819           /* VMS libraries do not have dynamic sections.  Create one from
4820              the segment.  */
4821           Elf_Internal_Phdr *phdr;
4822           unsigned int i, phnum;
4823
4824           phdr = elf_tdata (abfd)->phdr;
4825           if (phdr == NULL)
4826             goto error_return;
4827           phnum = elf_elfheader (abfd)->e_phnum;
4828           for (i = 0; i < phnum; phdr++)
4829             if (phdr->p_type == PT_DYNAMIC)
4830               {
4831                 s = bfd_make_section (abfd, ".dynamic");
4832                 if (s == NULL)
4833                   goto error_return;
4834                 s->vma = phdr->p_vaddr;
4835                 s->lma = phdr->p_paddr;
4836                 s->size = phdr->p_filesz;
4837                 s->filepos = phdr->p_offset;
4838                 s->flags |= SEC_HAS_CONTENTS;
4839                 s->alignment_power = bfd_log2 (phdr->p_align);
4840                 break;
4841               }
4842           if (s == NULL)
4843             goto error_return;
4844         }
4845
4846       /* Extract IDENT.  */
4847       if (!bfd_malloc_and_get_section (abfd, s, &dynbuf))
4848         {
4849 error_free_dyn:
4850           free (dynbuf);
4851           goto error_return;
4852         }
4853
4854       for (extdyn = dynbuf;
4855            extdyn < dynbuf + s->size;
4856            extdyn += bed->s->sizeof_dyn)
4857         {
4858           Elf_Internal_Dyn dyn;
4859
4860           bed->s->swap_dyn_in (abfd, extdyn, &dyn);
4861           if (dyn.d_tag == DT_IA_64_VMS_IDENT)
4862             {
4863               bfd_uint64_t tagv = dyn.d_un.d_val;
4864               elf_ia64_vms_ident (abfd) = tagv;
4865               break;
4866             }
4867         }
4868       if (extdyn >= dynbuf + s->size)
4869         {
4870           /* Ident not found.  */
4871           goto error_free_dyn;
4872         }
4873       free (dynbuf);
4874
4875       /* We do not want to include any of the sections in a dynamic
4876          object in the output file.  We hack by simply clobbering the
4877          list of sections in the BFD.  This could be handled more
4878          cleanly by, say, a new section flag; the existing
4879          SEC_NEVER_LOAD flag is not the one we want, because that one
4880          still implies that the section takes up space in the output
4881          file.  */
4882       bfd_section_list_clear (abfd);
4883
4884       /* FIXME: should we detect if this library is already included ?
4885          This should be harmless and shouldn't happen in practice.  */
4886     }
4887
4888   hdr = &elf_tdata (abfd)->symtab_hdr;
4889   symcount = hdr->sh_size / bed->s->sizeof_sym;
4890
4891   /* The sh_info field of the symtab header tells us where the
4892      external symbols start.  We don't care about the local symbols at
4893      this point.  */
4894   extsymcount = symcount - hdr->sh_info;
4895   extsymoff = hdr->sh_info;
4896
4897   sym_hash = NULL;
4898   if (extsymcount != 0)
4899     {
4900       isymbuf = bfd_elf_get_elf_syms (abfd, hdr, extsymcount, extsymoff,
4901                                       NULL, NULL, NULL);
4902       if (isymbuf == NULL)
4903         goto error_return;
4904
4905       /* We store a pointer to the hash table entry for each external
4906          symbol.  */
4907       amt = extsymcount * sizeof (struct elf_link_hash_entry *);
4908       sym_hash = (struct elf_link_hash_entry **) bfd_alloc (abfd, amt);
4909       if (sym_hash == NULL)
4910         goto error_free_sym;
4911       elf_sym_hashes (abfd) = sym_hash;
4912     }
4913
4914   for (isym = isymbuf, isymend = isymbuf + extsymcount;
4915        isym < isymend;
4916        isym++, sym_hash++)
4917     {
4918       int bind;
4919       bfd_vma value;
4920       asection *sec, *new_sec;
4921       flagword flags;
4922       const char *name;
4923       struct elf_link_hash_entry *h;
4924       bfd_boolean definition;
4925       bfd_boolean size_change_ok;
4926       bfd_boolean type_change_ok;
4927       bfd_boolean common;
4928       unsigned int old_alignment;
4929       bfd *old_bfd;
4930
4931       flags = BSF_NO_FLAGS;
4932       sec = NULL;
4933       value = isym->st_value;
4934       *sym_hash = NULL;
4935       common = bed->common_definition (isym);
4936
4937       bind = ELF_ST_BIND (isym->st_info);
4938       switch (bind)
4939         {
4940         case STB_LOCAL:
4941           /* This should be impossible, since ELF requires that all
4942              global symbols follow all local symbols, and that sh_info
4943              point to the first global symbol.  Unfortunately, Irix 5
4944              screws this up.  */
4945           continue;
4946
4947         case STB_GLOBAL:
4948           if (isym->st_shndx != SHN_UNDEF && !common)
4949             flags = BSF_GLOBAL;
4950           break;
4951
4952         case STB_WEAK:
4953           flags = BSF_WEAK;
4954           break;
4955
4956         case STB_GNU_UNIQUE:
4957           flags = BSF_GNU_UNIQUE;
4958           break;
4959
4960         default:
4961           /* Leave it up to the processor backend.  */
4962           break;
4963         }
4964
4965       if (isym->st_shndx == SHN_UNDEF)
4966         sec = bfd_und_section_ptr;
4967       else if (isym->st_shndx == SHN_ABS)
4968         sec = bfd_abs_section_ptr;
4969       else if (isym->st_shndx == SHN_COMMON)
4970         {
4971           sec = bfd_com_section_ptr;
4972           /* What ELF calls the size we call the value.  What ELF
4973              calls the value we call the alignment.  */
4974           value = isym->st_size;
4975         }
4976       else
4977         {
4978           sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
4979           if (sec == NULL)
4980             sec = bfd_abs_section_ptr;
4981           else if (sec->kept_section)
4982             {
4983               /* Symbols from discarded section are undefined.  We keep
4984                  its visibility.  */
4985               sec = bfd_und_section_ptr;
4986               isym->st_shndx = SHN_UNDEF;
4987             }
4988           else if ((abfd->flags & (EXEC_P | DYNAMIC)) != 0)
4989             value -= sec->vma;
4990         }
4991
4992       name = bfd_elf_string_from_elf_section (abfd, hdr->sh_link,
4993                                               isym->st_name);
4994       if (name == NULL)
4995         goto error_free_vers;
4996
4997       if (bed->elf_add_symbol_hook)
4998         {
4999           if (! (*bed->elf_add_symbol_hook) (abfd, info, isym, &name, &flags,
5000                                              &sec, &value))
5001             goto error_free_vers;
5002
5003           /* The hook function sets the name to NULL if this symbol
5004              should be skipped for some reason.  */
5005           if (name == NULL)
5006             continue;
5007         }
5008
5009       /* Sanity check that all possibilities were handled.  */
5010       if (sec == NULL)
5011         {
5012           bfd_set_error (bfd_error_bad_value);
5013           goto error_free_vers;
5014         }
5015
5016       if (bfd_is_und_section (sec)
5017           || bfd_is_com_section (sec))
5018         definition = FALSE;
5019       else
5020         definition = TRUE;
5021
5022       size_change_ok = FALSE;
5023       type_change_ok = bed->type_change_ok;
5024       old_alignment = 0;
5025       old_bfd = NULL;
5026       new_sec = sec;
5027
5028       if (! bfd_is_und_section (sec))
5029         h = elf_link_hash_lookup (htab, name, TRUE, FALSE, FALSE);
5030       else
5031         h = ((struct elf_link_hash_entry *) bfd_wrapped_link_hash_lookup
5032              (abfd, info, name, TRUE, FALSE, FALSE));
5033       if (h == NULL)
5034         goto error_free_sym;
5035
5036       *sym_hash = h;
5037
5038       if (is_elf_hash_table (htab))
5039         {
5040           while (h->root.type == bfd_link_hash_indirect
5041                  || h->root.type == bfd_link_hash_warning)
5042             h = (struct elf_link_hash_entry *) h->root.u.i.link;
5043
5044           /* Remember the old alignment if this is a common symbol, so
5045              that we don't reduce the alignment later on.  We can't
5046              check later, because _bfd_generic_link_add_one_symbol
5047              will set a default for the alignment which we want to
5048              override. We also remember the old bfd where the existing
5049              definition comes from.  */
5050           switch (h->root.type)
5051             {
5052             default:
5053               break;
5054
5055             case bfd_link_hash_defined:
5056               if (abfd->selective_search)
5057                 continue;
5058               /* Fall-through.  */
5059             case bfd_link_hash_defweak:
5060               old_bfd = h->root.u.def.section->owner;
5061               break;
5062
5063             case bfd_link_hash_common:
5064               old_bfd = h->root.u.c.p->section->owner;
5065               old_alignment = h->root.u.c.p->alignment_power;
5066               break;
5067             }
5068         }
5069
5070       if (! (_bfd_generic_link_add_one_symbol
5071              (info, abfd, name, flags, sec, value, NULL, FALSE, bed->collect,
5072               (struct bfd_link_hash_entry **) sym_hash)))
5073         goto error_free_vers;
5074
5075       h = *sym_hash;
5076       while (h->root.type == bfd_link_hash_indirect
5077              || h->root.type == bfd_link_hash_warning)
5078         h = (struct elf_link_hash_entry *) h->root.u.i.link;
5079
5080       *sym_hash = h;
5081       if (definition)
5082         h->unique_global = (flags & BSF_GNU_UNIQUE) != 0;
5083
5084       /* Set the alignment of a common symbol.  */
5085       if ((common || bfd_is_com_section (sec))
5086           && h->root.type == bfd_link_hash_common)
5087         {
5088           unsigned int align;
5089
5090           if (common)
5091             align = bfd_log2 (isym->st_value);
5092           else
5093             {
5094               /* The new symbol is a common symbol in a shared object.
5095                  We need to get the alignment from the section.  */
5096               align = new_sec->alignment_power;
5097             }
5098           if (align > old_alignment
5099               /* Permit an alignment power of zero if an alignment of one
5100                  is specified and no other alignments have been specified.  */
5101               || (isym->st_value == 1 && old_alignment == 0))
5102             h->root.u.c.p->alignment_power = align;
5103           else
5104             h->root.u.c.p->alignment_power = old_alignment;
5105         }
5106
5107       if (is_elf_hash_table (htab))
5108         {
5109           /* Check the alignment when a common symbol is involved. This
5110              can change when a common symbol is overridden by a normal
5111              definition or a common symbol is ignored due to the old
5112              normal definition. We need to make sure the maximum
5113              alignment is maintained.  */
5114           if ((old_alignment || common)
5115               && h->root.type != bfd_link_hash_common)
5116             {
5117               unsigned int common_align;
5118               unsigned int normal_align;
5119               unsigned int symbol_align;
5120               bfd *normal_bfd;
5121               bfd *common_bfd;
5122
5123               symbol_align = ffs (h->root.u.def.value) - 1;
5124               if (h->root.u.def.section->owner != NULL
5125                   && (h->root.u.def.section->owner->flags & DYNAMIC) == 0)
5126                 {
5127                   normal_align = h->root.u.def.section->alignment_power;
5128                   if (normal_align > symbol_align)
5129                     normal_align = symbol_align;
5130                 }
5131               else
5132                 normal_align = symbol_align;
5133
5134               if (old_alignment)
5135                 {
5136                   common_align = old_alignment;
5137                   common_bfd = old_bfd;
5138                   normal_bfd = abfd;
5139                 }
5140               else
5141                 {
5142                   common_align = bfd_log2 (isym->st_value);
5143                   common_bfd = abfd;
5144                   normal_bfd = old_bfd;
5145                 }
5146
5147               if (normal_align < common_align)
5148                 {
5149                   /* PR binutils/2735 */
5150                   if (normal_bfd == NULL)
5151                     _bfd_error_handler
5152                       /* xgettext:c-format */
5153                       (_("warning: alignment %u of common symbol `%s' in %pB"
5154                          " is greater than the alignment (%u) of its section %pA"),
5155                        1 << common_align, name, common_bfd,
5156                        1 << normal_align, h->root.u.def.section);
5157                   else
5158                     _bfd_error_handler
5159                       /* xgettext:c-format */
5160                       (_("warning: alignment %u of symbol `%s' in %pB"
5161                          " is smaller than %u in %pB"),
5162                        1 << normal_align, name, normal_bfd,
5163                        1 << common_align, common_bfd);
5164                 }
5165             }
5166
5167           /* Remember the symbol size if it isn't undefined.  */
5168           if ((isym->st_size != 0 && isym->st_shndx != SHN_UNDEF)
5169               && (definition || h->size == 0))
5170             {
5171               if (h->size != 0
5172                   && h->size != isym->st_size
5173                   && ! size_change_ok)
5174                 _bfd_error_handler
5175                   /* xgettext:c-format */
5176                   (_("warning: size of symbol `%s' changed"
5177                      " from %" PRIu64 " in %pB to %" PRIu64 " in %pB"),
5178                    name, (uint64_t) h->size, old_bfd,
5179                    (uint64_t) isym->st_size, abfd);
5180
5181               h->size = isym->st_size;
5182             }
5183
5184           /* If this is a common symbol, then we always want H->SIZE
5185              to be the size of the common symbol.  The code just above
5186              won't fix the size if a common symbol becomes larger.  We
5187              don't warn about a size change here, because that is
5188              covered by --warn-common.  Allow changed between different
5189              function types.  */
5190           if (h->root.type == bfd_link_hash_common)
5191             h->size = h->root.u.c.size;
5192
5193           if (ELF_ST_TYPE (isym->st_info) != STT_NOTYPE
5194               && (definition || h->type == STT_NOTYPE))
5195             {
5196               unsigned int type = ELF_ST_TYPE (isym->st_info);
5197
5198               if (h->type != type)
5199                 {
5200                   if (h->type != STT_NOTYPE && ! type_change_ok)
5201                     _bfd_error_handler
5202                       /* xgettext:c-format */
5203                       (_("warning: type of symbol `%s' changed"
5204                          " from %d to %d in %pB"),
5205                        name, h->type, type, abfd);
5206
5207                   h->type = type;
5208                 }
5209             }
5210
5211           /* Set a flag in the hash table entry indicating the type of
5212              reference or definition we just found.  Keep a count of
5213              the number of dynamic symbols we find.  A dynamic symbol
5214              is one which is referenced or defined by both a regular
5215              object and a shared object.  */
5216           if (! dynamic)
5217             {
5218               if (! definition)
5219                 {
5220                   h->ref_regular = 1;
5221                   if (bind != STB_WEAK)
5222                     h->ref_regular_nonweak = 1;
5223                 }
5224               else
5225                 {
5226                   BFD_ASSERT (!h->def_dynamic);
5227                   h->def_regular = 1;
5228                 }
5229             }
5230           else
5231             {
5232               BFD_ASSERT (definition);
5233               h->def_dynamic = 1;
5234               h->dynindx = -2;
5235               ((struct elf64_ia64_link_hash_entry *)h)->shl = abfd;
5236             }
5237         }
5238     }
5239
5240   if (isymbuf != NULL)
5241     {
5242       free (isymbuf);
5243       isymbuf = NULL;
5244     }
5245
5246   /* If this object is the same format as the output object, and it is
5247      not a shared library, then let the backend look through the
5248      relocs.
5249
5250      This is required to build global offset table entries and to
5251      arrange for dynamic relocs.  It is not required for the
5252      particular common case of linking non PIC code, even when linking
5253      against shared libraries, but unfortunately there is no way of
5254      knowing whether an object file has been compiled PIC or not.
5255      Looking through the relocs is not particularly time consuming.
5256      The problem is that we must either (1) keep the relocs in memory,
5257      which causes the linker to require additional runtime memory or
5258      (2) read the relocs twice from the input file, which wastes time.
5259      This would be a good case for using mmap.
5260
5261      I have no idea how to handle linking PIC code into a file of a
5262      different format.  It probably can't be done.  */
5263   if (! dynamic
5264       && is_elf_hash_table (htab)
5265       && bed->check_relocs != NULL
5266       && (*bed->relocs_compatible) (abfd->xvec, info->output_bfd->xvec))
5267     {
5268       asection *o;
5269
5270       for (o = abfd->sections; o != NULL; o = o->next)
5271         {
5272           Elf_Internal_Rela *internal_relocs;
5273           bfd_boolean ok;
5274
5275           if ((o->flags & SEC_RELOC) == 0
5276               || o->reloc_count == 0
5277               || ((info->strip == strip_all || info->strip == strip_debugger)
5278                   && (o->flags & SEC_DEBUGGING) != 0)
5279               || bfd_is_abs_section (o->output_section))
5280             continue;
5281
5282           internal_relocs = _bfd_elf_link_read_relocs (abfd, o, NULL, NULL,
5283                                                        info->keep_memory);
5284           if (internal_relocs == NULL)
5285             goto error_return;
5286
5287           ok = (*bed->check_relocs) (abfd, info, o, internal_relocs);
5288
5289           if (elf_section_data (o)->relocs != internal_relocs)
5290             free (internal_relocs);
5291
5292           if (! ok)
5293             goto error_return;
5294         }
5295     }
5296
5297   return TRUE;
5298
5299  error_free_vers:
5300  error_free_sym:
5301   if (isymbuf != NULL)
5302     free (isymbuf);
5303  error_return:
5304   return FALSE;
5305 }
5306
5307 static bfd_boolean
5308 elf64_vms_link_add_archive_symbols (bfd *abfd, struct bfd_link_info *info)
5309 {
5310   int pass;
5311   struct bfd_link_hash_entry **pundef;
5312   struct bfd_link_hash_entry **next_pundef;
5313
5314   /* We only accept VMS libraries.  */
5315   if (info->output_bfd->xvec != abfd->xvec)
5316     {
5317       bfd_set_error (bfd_error_wrong_format);
5318       return FALSE;
5319     }
5320
5321   /* The archive_pass field in the archive itself is used to
5322      initialize PASS, since we may search the same archive multiple
5323      times.  */
5324   pass = ++abfd->archive_pass;
5325
5326   /* Look through the list of undefined symbols.  */
5327   for (pundef = &info->hash->undefs; *pundef != NULL; pundef = next_pundef)
5328     {
5329       struct bfd_link_hash_entry *h;
5330       symindex symidx;
5331       bfd *element;
5332       bfd *orig_element;
5333
5334       h = *pundef;
5335       next_pundef = &(*pundef)->u.undef.next;
5336
5337       /* When a symbol is defined, it is not necessarily removed from
5338          the list.  */
5339       if (h->type != bfd_link_hash_undefined
5340           && h->type != bfd_link_hash_common)
5341         {
5342           /* Remove this entry from the list, for general cleanliness
5343              and because we are going to look through the list again
5344              if we search any more libraries.  We can't remove the
5345              entry if it is the tail, because that would lose any
5346              entries we add to the list later on.  */
5347           if (*pundef != info->hash->undefs_tail)
5348             {
5349               *pundef = *next_pundef;
5350               next_pundef = pundef;
5351             }
5352           continue;
5353         }
5354
5355       /* Look for this symbol in the archive hash table.  */
5356       symidx = _bfd_vms_lib_find_symbol (abfd, h->root.string);
5357       if (symidx == BFD_NO_MORE_SYMBOLS)
5358         {
5359           /* Nothing in this slot.  */
5360           continue;
5361         }
5362
5363       element = bfd_get_elt_at_index (abfd, symidx);
5364       if (element == NULL)
5365         return FALSE;
5366
5367       if (element->archive_pass == -1 || element->archive_pass == pass)
5368         {
5369           /* Next symbol if this archive is wrong or already handled.  */
5370           continue;
5371         }
5372
5373       orig_element = element;
5374       if (bfd_is_thin_archive (abfd))
5375         {
5376           element = _bfd_vms_lib_get_imagelib_file (element);
5377           if (element == NULL || !bfd_check_format (element, bfd_object))
5378             {
5379               orig_element->archive_pass = -1;
5380               return FALSE;
5381             }
5382         }
5383       else if (! bfd_check_format (element, bfd_object))
5384         {
5385           element->archive_pass = -1;
5386           return FALSE;
5387         }
5388
5389       /* Unlike the generic linker, we know that this element provides
5390          a definition for an undefined symbol and we know that we want
5391          to include it.  We don't need to check anything.  */
5392       if (! (*info->callbacks->add_archive_element) (info, element,
5393                                                      h->root.string, &element))
5394         continue;
5395       if (! elf64_vms_link_add_object_symbols (element, info))
5396         return FALSE;
5397
5398       orig_element->archive_pass = pass;
5399     }
5400
5401   return TRUE;
5402 }
5403
5404 static bfd_boolean
5405 elf64_vms_bfd_link_add_symbols (bfd *abfd, struct bfd_link_info *info)
5406 {
5407   switch (bfd_get_format (abfd))
5408     {
5409     case bfd_object:
5410       return elf64_vms_link_add_object_symbols (abfd, info);
5411       break;
5412     case bfd_archive:
5413       return elf64_vms_link_add_archive_symbols (abfd, info);
5414       break;
5415     default:
5416       bfd_set_error (bfd_error_wrong_format);
5417       return FALSE;
5418     }
5419 }
5420
5421 static bfd_boolean
5422 elf64_ia64_vms_mkobject (bfd *abfd)
5423 {
5424   return bfd_elf_allocate_object
5425     (abfd, sizeof (struct elf64_ia64_vms_obj_tdata), IA64_ELF_DATA);
5426 }
5427
5428
5429 /* Size-dependent data and functions.  */
5430 static const struct elf_size_info elf64_ia64_vms_size_info = {
5431   sizeof (Elf64_External_VMS_Ehdr),
5432   sizeof (Elf64_External_Phdr),
5433   sizeof (Elf64_External_Shdr),
5434   sizeof (Elf64_External_Rel),
5435   sizeof (Elf64_External_Rela),
5436   sizeof (Elf64_External_Sym),
5437   sizeof (Elf64_External_Dyn),
5438   sizeof (Elf_External_Note),
5439   4,
5440   1,
5441   64, 3, /* ARCH_SIZE, LOG_FILE_ALIGN */
5442   ELFCLASS64, EV_CURRENT,
5443   bfd_elf64_write_out_phdrs,
5444   elf64_vms_write_shdrs_and_ehdr,
5445   bfd_elf64_checksum_contents,
5446   bfd_elf64_write_relocs,
5447   bfd_elf64_swap_symbol_in,
5448   bfd_elf64_swap_symbol_out,
5449   bfd_elf64_slurp_reloc_table,
5450   bfd_elf64_slurp_symbol_table,
5451   bfd_elf64_swap_dyn_in,
5452   bfd_elf64_swap_dyn_out,
5453   bfd_elf64_swap_reloc_in,
5454   bfd_elf64_swap_reloc_out,
5455   bfd_elf64_swap_reloca_in,
5456   bfd_elf64_swap_reloca_out
5457 };
5458
5459 #define ELF_ARCH                        bfd_arch_ia64
5460 #define ELF_MACHINE_CODE                EM_IA_64
5461 #define ELF_MAXPAGESIZE                 0x10000 /* 64KB */
5462 #define ELF_COMMONPAGESIZE              0x200   /* 16KB */
5463
5464 #define elf_backend_section_from_shdr \
5465         elf64_ia64_section_from_shdr
5466 #define elf_backend_section_flags \
5467         elf64_ia64_section_flags
5468 #define elf_backend_fake_sections \
5469         elf64_ia64_fake_sections
5470 #define elf_backend_final_write_processing \
5471         elf64_ia64_final_write_processing
5472 #define elf_backend_add_symbol_hook \
5473         elf64_ia64_add_symbol_hook
5474 #define elf_info_to_howto \
5475         elf64_ia64_info_to_howto
5476
5477 #define bfd_elf64_bfd_reloc_type_lookup \
5478         ia64_elf_reloc_type_lookup
5479 #define bfd_elf64_bfd_reloc_name_lookup \
5480         ia64_elf_reloc_name_lookup
5481 #define bfd_elf64_bfd_is_local_label_name \
5482         elf64_ia64_is_local_label_name
5483 #define bfd_elf64_bfd_relax_section \
5484         elf64_ia64_relax_section
5485
5486 #define elf_backend_object_p \
5487         elf64_ia64_object_p
5488
5489 /* Stuff for the BFD linker: */
5490 #define bfd_elf64_bfd_link_hash_table_create \
5491         elf64_ia64_hash_table_create
5492 #define elf_backend_create_dynamic_sections \
5493         elf64_ia64_create_dynamic_sections
5494 #define elf_backend_check_relocs \
5495         elf64_ia64_check_relocs
5496 #define elf_backend_adjust_dynamic_symbol \
5497         elf64_ia64_adjust_dynamic_symbol
5498 #define elf_backend_size_dynamic_sections \
5499         elf64_ia64_size_dynamic_sections
5500 #define elf_backend_omit_section_dynsym \
5501         _bfd_elf_omit_section_dynsym_all
5502 #define elf_backend_relocate_section \
5503         elf64_ia64_relocate_section
5504 #define elf_backend_finish_dynamic_symbol \
5505         elf64_ia64_finish_dynamic_symbol
5506 #define elf_backend_finish_dynamic_sections \
5507         elf64_ia64_finish_dynamic_sections
5508 #define bfd_elf64_bfd_final_link \
5509         elf64_ia64_final_link
5510
5511 #define bfd_elf64_bfd_merge_private_bfd_data \
5512         elf64_ia64_merge_private_bfd_data
5513 #define bfd_elf64_bfd_set_private_flags \
5514         elf64_ia64_set_private_flags
5515 #define bfd_elf64_bfd_print_private_bfd_data \
5516         elf64_ia64_print_private_bfd_data
5517
5518 #define elf_backend_plt_readonly        1
5519 #define elf_backend_want_plt_sym        0
5520 #define elf_backend_plt_alignment       5
5521 #define elf_backend_got_header_size     0
5522 #define elf_backend_want_got_plt        1
5523 #define elf_backend_may_use_rel_p       1
5524 #define elf_backend_may_use_rela_p      1
5525 #define elf_backend_default_use_rela_p  1
5526 #define elf_backend_want_dynbss         0
5527 #define elf_backend_hide_symbol         elf64_ia64_hash_hide_symbol
5528 #define elf_backend_fixup_symbol        _bfd_elf_link_hash_fixup_symbol
5529 #define elf_backend_reloc_type_class    elf64_ia64_reloc_type_class
5530 #define elf_backend_rela_normal         1
5531 #define elf_backend_special_sections    elf64_ia64_special_sections
5532 #define elf_backend_default_execstack   0
5533
5534 /* FIXME: PR 290: The Intel C compiler generates SHT_IA_64_UNWIND with
5535    SHF_LINK_ORDER. But it doesn't set the sh_link or sh_info fields.
5536    We don't want to flood users with so many error messages. We turn
5537    off the warning for now. It will be turned on later when the Intel
5538    compiler is fixed.   */
5539 #define elf_backend_link_order_error_handler NULL
5540
5541 /* VMS-specific vectors.  */
5542
5543 #undef  TARGET_LITTLE_SYM
5544 #define TARGET_LITTLE_SYM               ia64_elf64_vms_vec
5545 #undef  TARGET_LITTLE_NAME
5546 #define TARGET_LITTLE_NAME              "elf64-ia64-vms"
5547 #undef  TARGET_BIG_SYM
5548 #undef  TARGET_BIG_NAME
5549
5550 /* These are VMS specific functions.  */
5551
5552 #undef  elf_backend_object_p
5553 #define elf_backend_object_p elf64_vms_object_p
5554
5555 #undef  elf_backend_section_from_shdr
5556 #define elf_backend_section_from_shdr elf64_vms_section_from_shdr
5557
5558 #undef  elf_backend_post_process_headers
5559 #define elf_backend_post_process_headers elf64_vms_post_process_headers
5560
5561 #undef  elf_backend_section_processing
5562 #define elf_backend_section_processing elf64_vms_section_processing
5563
5564 #undef  elf_backend_final_write_processing
5565 #define elf_backend_final_write_processing elf64_vms_final_write_processing
5566
5567 #undef  bfd_elf64_close_and_cleanup
5568 #define bfd_elf64_close_and_cleanup elf64_vms_close_and_cleanup
5569
5570 #undef  elf_backend_section_from_bfd_section
5571
5572 #undef  elf_backend_symbol_processing
5573
5574 #undef  elf_backend_want_p_paddr_set_to_zero
5575
5576 #undef  ELF_OSABI
5577 #define ELF_OSABI                       ELFOSABI_OPENVMS
5578
5579 #undef  ELF_MAXPAGESIZE
5580 #define ELF_MAXPAGESIZE                 0x10000 /* 64KB */
5581
5582 #undef  elf64_bed
5583 #define elf64_bed elf64_ia64_vms_bed
5584
5585 #define elf_backend_size_info elf64_ia64_vms_size_info
5586
5587 /* Use VMS-style archives (in particular, don't use the standard coff
5588    archive format).  */
5589 #define bfd_elf64_archive_functions
5590
5591 #undef bfd_elf64_archive_p
5592 #define bfd_elf64_archive_p _bfd_vms_lib_ia64_archive_p
5593 #undef bfd_elf64_write_archive_contents
5594 #define bfd_elf64_write_archive_contents _bfd_vms_lib_write_archive_contents
5595 #undef bfd_elf64_mkarchive
5596 #define bfd_elf64_mkarchive _bfd_vms_lib_ia64_mkarchive
5597
5598 #define bfd_elf64_archive_slurp_armap \
5599   _bfd_vms_lib_slurp_armap
5600 #define bfd_elf64_archive_slurp_extended_name_table \
5601   _bfd_vms_lib_slurp_extended_name_table
5602 #define bfd_elf64_archive_construct_extended_name_table \
5603   _bfd_vms_lib_construct_extended_name_table
5604 #define bfd_elf64_archive_truncate_arname \
5605   _bfd_vms_lib_truncate_arname
5606 #define bfd_elf64_archive_write_armap \
5607   _bfd_vms_lib_write_armap
5608 #define bfd_elf64_archive_read_ar_hdr \
5609   _bfd_vms_lib_read_ar_hdr
5610 #define bfd_elf64_archive_write_ar_hdr \
5611   _bfd_vms_lib_write_ar_hdr
5612 #define bfd_elf64_archive_openr_next_archived_file \
5613   _bfd_vms_lib_openr_next_archived_file
5614 #define bfd_elf64_archive_get_elt_at_index \
5615   _bfd_vms_lib_get_elt_at_index
5616 #define bfd_elf64_archive_generic_stat_arch_elt \
5617   _bfd_vms_lib_generic_stat_arch_elt
5618 #define bfd_elf64_archive_update_armap_timestamp \
5619   _bfd_vms_lib_update_armap_timestamp
5620
5621 /* VMS link methods.  */
5622 #undef  bfd_elf64_bfd_link_add_symbols
5623 #define bfd_elf64_bfd_link_add_symbols  elf64_vms_bfd_link_add_symbols
5624
5625 #undef  elf_backend_want_got_sym
5626 #define elf_backend_want_got_sym        0
5627
5628 #undef  bfd_elf64_mkobject
5629 #define bfd_elf64_mkobject              elf64_ia64_vms_mkobject
5630
5631 /* Redefine to align segments on block size.  */
5632 #undef  ELF_MAXPAGESIZE
5633 #define ELF_MAXPAGESIZE                 0x200 /* 512B  */
5634
5635 #undef  elf_backend_want_got_plt
5636 #define elf_backend_want_got_plt        0
5637
5638 #include "elf64-target.h"