bfd/elf32-vax.c

   1 /* VAX series support for 32-bit ELF
   2    Copyright 1993, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
   3    2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012
   4    Free Software Foundation, Inc.
   5    Contributed by Matt Thomas <matt@3am-software.com>.
   6
   7    This file is part of BFD, the Binary File Descriptor library.
   8
   9    This program is free software; you can redistribute it and/or modify
  10    it under the terms of the GNU General Public License as published by
  11    the Free Software Foundation; either version 3 of the License, or
  12    (at your option) any later version.
  13
  14    This program is distributed in the hope that it will be useful,
  15    but WITHOUT ANY WARRANTY; without even the implied warranty of
  16    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17    GNU General Public License for more details.
  18
  19    You should have received a copy of the GNU General Public License
  20    along with this program; if not, write to the Free Software
  21    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  22    MA 02110-1301, USA.  */
  23
  24 #include "sysdep.h"
  25 #include "bfd.h"
  26 #include "bfdlink.h"
  27 #include "libbfd.h"
  28 #include "elf-bfd.h"
  29 #include "elf/vax.h"
  30
  31 static reloc_howto_type *reloc_type_lookup (bfd *, bfd_reloc_code_real_type);
  32 static void rtype_to_howto (bfd *, arelent *, Elf_Internal_Rela *);
  33 static struct bfd_hash_entry *elf_vax_link_hash_newfunc (struct bfd_hash_entry *,
  34                                                          struct bfd_hash_table *,
  35                                                          const char *);
  36 static struct bfd_link_hash_table *elf_vax_link_hash_table_create (bfd *);
  37 static bfd_boolean elf_vax_check_relocs (bfd *, struct bfd_link_info *,
  38                                          asection *, const Elf_Internal_Rela *);
  39 static bfd_boolean elf_vax_adjust_dynamic_symbol (struct bfd_link_info *,
  40                                                   struct elf_link_hash_entry *);
  41 static bfd_boolean elf_vax_size_dynamic_sections (bfd *, struct bfd_link_info *);
  42 static bfd_boolean elf_vax_relocate_section (bfd *, struct bfd_link_info *,
  43                                              bfd *, asection *, bfd_byte *,
  44                                              Elf_Internal_Rela *,
  45                                              Elf_Internal_Sym *, asection **);
  46 static bfd_boolean elf_vax_finish_dynamic_symbol (bfd *, struct bfd_link_info *,
  47                                                   struct elf_link_hash_entry *,
  48                                                   Elf_Internal_Sym *);
  49 static bfd_boolean elf_vax_finish_dynamic_sections (bfd *,
  50                                                     struct bfd_link_info *);
  51 static bfd_vma elf_vax_plt_sym_val (bfd_vma, const asection *,
  52                                     const arelent *);
  53
  54 static bfd_boolean elf32_vax_set_private_flags (bfd *, flagword);
  55 static bfd_boolean elf32_vax_merge_private_bfd_data (bfd *, bfd *);
  56 static bfd_boolean elf32_vax_print_private_bfd_data (bfd *, void *);
  57
  58 static reloc_howto_type howto_table[] = {
  59   HOWTO (R_VAX_NONE,            /* type */
  60          0,                     /* rightshift */
  61          0,                     /* size (0 = byte, 1 = short, 2 = long) */
  62          0,                     /* bitsize */
  63          FALSE,                 /* pc_relative */
  64          0,                     /* bitpos */
  65          complain_overflow_dont, /* complain_on_overflow */
  66          bfd_elf_generic_reloc, /* special_function */
  67          "R_VAX_NONE",          /* name */
  68          FALSE,                 /* partial_inplace */
  69          0,                     /* src_mask */
  70          0x00000000,            /* dst_mask */
  71          FALSE),                /* pcrel_offset */
  72
  73   HOWTO (R_VAX_32,              /* type */
  74          0,                     /* rightshift */
  75          2,                     /* size (0 = byte, 1 = short, 2 = long) */
  76          32,                    /* bitsize */
  77          FALSE,                 /* pc_relative */
  78          0,                     /* bitpos */
  79          complain_overflow_bitfield, /* complain_on_overflow */
  80          bfd_elf_generic_reloc, /* special_function */
  81          "R_VAX_32",            /* name */
  82          FALSE,                 /* partial_inplace */
  83          0,                     /* src_mask */
  84          0xffffffff,            /* dst_mask */
  85          FALSE),                /* pcrel_offset */
  86
  87   HOWTO (R_VAX_16,              /* type */
  88          0,                     /* rightshift */
  89          1,                     /* size (0 = byte, 1 = short, 2 = long) */
  90          16,                    /* bitsize */
  91          FALSE,                 /* pc_relative */
  92          0,                     /* bitpos */
  93          complain_overflow_bitfield, /* complain_on_overflow */
  94          bfd_elf_generic_reloc, /* special_function */
  95          "R_VAX_16",            /* name */
  96          FALSE,                 /* partial_inplace */
  97          0,                     /* src_mask */
  98          0x0000ffff,            /* dst_mask */
  99          FALSE),                /* pcrel_offset */
 100
 101   HOWTO (R_VAX_8,               /* type */
 102          0,                     /* rightshift */
 103          0,                     /* size (0 = byte, 1 = short, 2 = long) */
 104          8,                     /* bitsize */
 105          FALSE,                 /* pc_relative */
 106          0,                     /* bitpos */
 107          complain_overflow_bitfield, /* complain_on_overflow */
 108          bfd_elf_generic_reloc, /* special_function */
 109          "R_VAX_8",             /* name */
 110          FALSE,                 /* partial_inplace */
 111          0,                     /* src_mask */
 112          0x000000ff,            /* dst_mask */
 113          FALSE),                /* pcrel_offset */
 114
 115   HOWTO (R_VAX_PC32,            /* type */
 116          0,                     /* rightshift */
 117          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 118          32,                    /* bitsize */
 119          TRUE,                  /* pc_relative */
 120          0,                     /* bitpos */
 121          complain_overflow_bitfield, /* complain_on_overflow */
 122          bfd_elf_generic_reloc, /* special_function */
 123          "R_VAX_PC32",          /* name */
 124          FALSE,                 /* partial_inplace */
 125          0,                     /* src_mask */
 126          0xffffffff,            /* dst_mask */
 127          TRUE),                 /* pcrel_offset */
 128
 129   HOWTO (R_VAX_PC16,            /* type */
 130          0,                     /* rightshift */
 131          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 132          16,                    /* bitsize */
 133          TRUE,                  /* pc_relative */
 134          0,                     /* bitpos */
 135          complain_overflow_signed, /* complain_on_overflow */
 136          bfd_elf_generic_reloc, /* special_function */
 137          "R_VAX_PC16",          /* name */
 138          FALSE,                 /* partial_inplace */
 139          0,                     /* src_mask */
 140          0x0000ffff,            /* dst_mask */
 141          TRUE),                 /* pcrel_offset */
 142
 143   HOWTO (R_VAX_PC8,             /* type */
 144          0,                     /* rightshift */
 145          0,                     /* size (0 = byte, 1 = short, 2 = long) */
 146          8,                     /* bitsize */
 147          TRUE,                  /* pc_relative */
 148          0,                     /* bitpos */
 149          complain_overflow_signed, /* complain_on_overflow */
 150          bfd_elf_generic_reloc, /* special_function */
 151          "R_VAX_PC8",           /* name */
 152          FALSE,                 /* partial_inplace */
 153          0,                     /* src_mask */
 154          0x000000ff,            /* dst_mask */
 155          TRUE),                 /* pcrel_offset */
 156
 157   HOWTO (R_VAX_GOT32,           /* type */
 158          0,                     /* rightshift */
 159          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 160          32,                    /* bitsize */
 161          TRUE,                  /* pc_relative */
 162          0,                     /* bitpos */
 163          complain_overflow_bitfield, /* complain_on_overflow */
 164          bfd_elf_generic_reloc, /* special_function */
 165          "R_VAX_GOT32",         /* name */
 166          FALSE,                 /* partial_inplace */
 167          0,                     /* src_mask */
 168          0xffffffff,            /* dst_mask */
 169          TRUE),                 /* pcrel_offset */
 170
 171   EMPTY_HOWTO (-1),
 172   EMPTY_HOWTO (-1),
 173   EMPTY_HOWTO (-1),
 174   EMPTY_HOWTO (-1),
 175   EMPTY_HOWTO (-1),
 176
 177   HOWTO (R_VAX_PLT32,           /* type */
 178          0,                     /* rightshift */
 179          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 180          32,                    /* bitsize */
 181          TRUE,                  /* pc_relative */
 182          0,                     /* bitpos */
 183          complain_overflow_bitfield, /* complain_on_overflow */
 184          bfd_elf_generic_reloc, /* special_function */
 185          "R_VAX_PLT32",         /* name */
 186          FALSE,                 /* partial_inplace */
 187          0,                     /* src_mask */
 188          0xffffffff,            /* dst_mask */
 189          TRUE),                 /* pcrel_offset */
 190
 191   EMPTY_HOWTO (-1),
 192   EMPTY_HOWTO (-1),
 193   EMPTY_HOWTO (-1),
 194   EMPTY_HOWTO (-1),
 195   EMPTY_HOWTO (-1),
 196
 197   HOWTO (R_VAX_COPY,            /* type */
 198          0,                     /* rightshift */
 199          0,                     /* size (0 = byte, 1 = short, 2 = long) */
 200          0,                     /* bitsize */
 201          FALSE,                 /* pc_relative */
 202          0,                     /* bitpos */
 203          complain_overflow_dont, /* complain_on_overflow */
 204          bfd_elf_generic_reloc, /* special_function */
 205          "R_VAX_COPY",          /* name */
 206          FALSE,                 /* partial_inplace */
 207          0,                     /* src_mask */
 208          0xffffffff,            /* dst_mask */
 209          FALSE),                /* pcrel_offset */
 210
 211   HOWTO (R_VAX_GLOB_DAT,        /* type */
 212          0,                     /* rightshift */
 213          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 214          32,                    /* bitsize */
 215          FALSE,                 /* pc_relative */
 216          0,                     /* bitpos */
 217          complain_overflow_dont, /* complain_on_overflow */
 218          bfd_elf_generic_reloc, /* special_function */
 219          "R_VAX_GLOB_DAT",      /* name */
 220          FALSE,                 /* partial_inplace */
 221          0,                     /* src_mask */
 222          0xffffffff,            /* dst_mask */
 223          FALSE),                /* pcrel_offset */
 224
 225   HOWTO (R_VAX_JMP_SLOT,        /* type */
 226          0,                     /* rightshift */
 227          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 228          32,                    /* bitsize */
 229          FALSE,                 /* pc_relative */
 230          0,                     /* bitpos */
 231          complain_overflow_dont, /* complain_on_overflow */
 232          bfd_elf_generic_reloc, /* special_function */
 233          "R_VAX_JMP_SLOT",      /* name */
 234          FALSE,                 /* partial_inplace */
 235          0,                     /* src_mask */
 236          0xffffffff,            /* dst_mask */
 237          FALSE),                /* pcrel_offset */
 238
 239   HOWTO (R_VAX_RELATIVE,        /* type */
 240          0,                     /* rightshift */
 241          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 242          32,                    /* bitsize */
 243          FALSE,                 /* pc_relative */
 244          0,                     /* bitpos */
 245          complain_overflow_dont, /* complain_on_overflow */
 246          bfd_elf_generic_reloc, /* special_function */
 247          "R_VAX_RELATIVE",      /* name */
 248          FALSE,                 /* partial_inplace */
 249          0,                     /* src_mask */
 250          0xffffffff,            /* dst_mask */
 251          FALSE),                /* pcrel_offset */
 252
 253   /* GNU extension to record C++ vtable hierarchy */
 254   HOWTO (R_VAX_GNU_VTINHERIT,   /* type */
 255          0,                     /* rightshift */
 256          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 257          0,                     /* bitsize */
 258          FALSE,                 /* pc_relative */
 259          0,                     /* bitpos */
 260          complain_overflow_dont, /* complain_on_overflow */
 261          NULL,                  /* special_function */
 262          "R_VAX_GNU_VTINHERIT", /* name */
 263          FALSE,                 /* partial_inplace */
 264          0,                     /* src_mask */
 265          0,                     /* dst_mask */
 266          FALSE),                /* pcrel_offset */
 267
 268   /* GNU extension to record C++ vtable member usage */
 269   HOWTO (R_VAX_GNU_VTENTRY,     /* type */
 270          0,                     /* rightshift */
 271          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 272          0,                     /* bitsize */
 273          FALSE,                 /* pc_relative */
 274          0,                     /* bitpos */
 275          complain_overflow_dont, /* complain_on_overflow */
 276          _bfd_elf_rel_vtable_reloc_fn, /* special_function */
 277          "R_VAX_GNU_VTENTRY",   /* name */
 278          FALSE,                 /* partial_inplace */
 279          0,                     /* src_mask */
 280          0,                     /* dst_mask */
 281          FALSE),                /* pcrel_offset */
 282 };
 283
 284 static void
 285 rtype_to_howto (bfd *abfd ATTRIBUTE_UNUSED, arelent *cache_ptr,
 286                 Elf_Internal_Rela *dst)
 287 {
 288   BFD_ASSERT (ELF32_R_TYPE(dst->r_info) < (unsigned int) R_VAX_max);
 289   cache_ptr->howto = &howto_table[ELF32_R_TYPE(dst->r_info)];
 290 }
 291
 292 #define elf_info_to_howto rtype_to_howto
 293
 294 static const struct
 295 {
 296   bfd_reloc_code_real_type bfd_val;
 297   int elf_val;
 298 } reloc_map[] = {
 299   { BFD_RELOC_NONE, R_VAX_NONE },
 300   { BFD_RELOC_32, R_VAX_32 },
 301   { BFD_RELOC_16, R_VAX_16 },
 302   { BFD_RELOC_8, R_VAX_8 },
 303   { BFD_RELOC_32_PCREL, R_VAX_PC32 },
 304   { BFD_RELOC_16_PCREL, R_VAX_PC16 },
 305   { BFD_RELOC_8_PCREL, R_VAX_PC8 },
 306   { BFD_RELOC_32_GOT_PCREL, R_VAX_GOT32 },
 307   { BFD_RELOC_32_PLT_PCREL, R_VAX_PLT32 },
 308   { BFD_RELOC_NONE, R_VAX_COPY },
 309   { BFD_RELOC_VAX_GLOB_DAT, R_VAX_GLOB_DAT },
 310   { BFD_RELOC_VAX_JMP_SLOT, R_VAX_JMP_SLOT },
 311   { BFD_RELOC_VAX_RELATIVE, R_VAX_RELATIVE },
 312   { BFD_RELOC_CTOR, R_VAX_32 },
 313   { BFD_RELOC_VTABLE_INHERIT, R_VAX_GNU_VTINHERIT },
 314   { BFD_RELOC_VTABLE_ENTRY, R_VAX_GNU_VTENTRY },
 315 };
 316
 317 static reloc_howto_type *
 318 reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED, bfd_reloc_code_real_type code)
 319 {
 320   unsigned int i;
 321   for (i = 0; i < sizeof (reloc_map) / sizeof (reloc_map[0]); i++)
 322     {
 323       if (reloc_map[i].bfd_val == code)
 324         return &howto_table[reloc_map[i].elf_val];
 325     }
 326   return 0;
 327 }
 328
 329 static reloc_howto_type *
 330 reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
 331                    const char *r_name)
 332 {
 333   unsigned int i;
 334
 335   for (i = 0; i < sizeof (howto_table) / sizeof (howto_table[0]); i++)
 336     if (howto_table[i].name != NULL
 337         && strcasecmp (howto_table[i].name, r_name) == 0)
 338       return &howto_table[i];
 339
 340   return NULL;
 341 }
 342
 343 #define bfd_elf32_bfd_reloc_type_lookup reloc_type_lookup
 344 #define bfd_elf32_bfd_reloc_name_lookup reloc_name_lookup
 345 #define ELF_ARCH bfd_arch_vax
 346 /* end code generated by elf.el */
 347 \f
 348 /* Functions for the VAX ELF linker.  */
 349
 350 /* The name of the dynamic interpreter.  This is put in the .interp
 351    section.  */
 352
 353 #define ELF_DYNAMIC_INTERPRETER "/usr/libexec/ld.elf_so"
 354
 355 /* The size in bytes of an entry in the procedure linkage table.  */
 356
 357 #define PLT_ENTRY_SIZE 12
 358
 359 /* The first entry in a procedure linkage table looks like this.  See
 360    the SVR4 ABI VAX supplement to see how this works.  */
 361
 362 static const bfd_byte elf_vax_plt0_entry[PLT_ENTRY_SIZE] =
 363 {
 364   0xdd, 0xef,           /* pushl l^ */
 365   0, 0, 0, 0,           /* offset to .plt.got + 4 */
 366   0x17, 0xff,           /* jmp @L^(pc) */
 367   0, 0, 0, 0,           /* offset to .plt.got + 8 */
 368 };
 369
 370 /* Subsequent entries in a procedure linkage table look like this.  */
 371
 372 static const bfd_byte elf_vax_plt_entry[PLT_ENTRY_SIZE] =
 373 {
 374   0xfc, 0x0f,           /* .word ^M<r11:r2> */
 375   0x16, 0xef,           /* jsb L^(pc) */
 376   0, 0, 0, 0,           /* replaced with offset to start of .plt  */
 377   0, 0, 0, 0,           /* index into .rela.plt */
 378 };
 379
 380 /* The VAX linker needs to keep track of the number of relocs that it
 381    decides to copy in check_relocs for each symbol.  This is so that it
 382    can discard PC relative relocs if it doesn't need them when linking
 383    with -Bsymbolic.  We store the information in a field extending the
 384    regular ELF linker hash table.  */
 385
 386 /* This structure keeps track of the number of PC relative relocs we have
 387    copied for a given symbol.  */
 388
 389 struct elf_vax_pcrel_relocs_copied
 390 {
 391   /* Next section.  */
 392   struct elf_vax_pcrel_relocs_copied *next;
 393   /* A section in dynobj.  */
 394   asection *section;
 395   /* Number of relocs copied in this section.  */
 396   bfd_size_type count;
 397 };
 398
 399 /* VAX ELF linker hash entry.  */
 400
 401 struct elf_vax_link_hash_entry
 402 {
 403   struct elf_link_hash_entry root;
 404
 405   /* Number of PC relative relocs copied for this symbol.  */
 406   struct elf_vax_pcrel_relocs_copied *pcrel_relocs_copied;
 407
 408   bfd_vma got_addend;
 409 };
 410
 411 /* Declare this now that the above structures are defined.  */
 412
 413 static bfd_boolean elf_vax_discard_copies (struct elf_vax_link_hash_entry *,
 414                                            void *);
 415
 416 /* Declare this now that the above structures are defined.  */
 417
 418 static bfd_boolean elf_vax_instantiate_got_entries (struct elf_link_hash_entry *,
 419                                                     void *);
 420
 421 /* Traverse an VAX ELF linker hash table.  */
 422
 423 #define elf_vax_link_hash_traverse(table, func, info)                   \
 424   (elf_link_hash_traverse                                               \
 425    ((table),                                                            \
 426     (bfd_boolean (*) (struct elf_link_hash_entry *, void *)) (func),    \
 427     (info)))
 428
 429 /* Create an entry in an VAX ELF linker hash table.  */
 430
 431 static struct bfd_hash_entry *
 432 elf_vax_link_hash_newfunc (struct bfd_hash_entry *entry,
 433                            struct bfd_hash_table *table,
 434                            const char *string)
 435 {
 436   struct elf_vax_link_hash_entry *ret =
 437     (struct elf_vax_link_hash_entry *) entry;
 438
 439   /* Allocate the structure if it has not already been allocated by a
 440      subclass.  */
 441   if (ret == NULL)
 442     ret = ((struct elf_vax_link_hash_entry *)
 443            bfd_hash_allocate (table,
 444                               sizeof (struct elf_vax_link_hash_entry)));
 445   if (ret == NULL)
 446     return (struct bfd_hash_entry *) ret;
 447
 448   /* Call the allocation method of the superclass.  */
 449   ret = ((struct elf_vax_link_hash_entry *)
 450          _bfd_elf_link_hash_newfunc ((struct bfd_hash_entry *) ret,
 451                                      table, string));
 452   if (ret != NULL)
 453     {
 454       ret->pcrel_relocs_copied = NULL;
 455     }
 456
 457   return (struct bfd_hash_entry *) ret;
 458 }
 459
 460 /* Create an VAX ELF linker hash table.  */
 461
 462 static struct bfd_link_hash_table *
 463 elf_vax_link_hash_table_create (bfd *abfd)
 464 {
 465   struct elf_link_hash_table *ret;
 466   bfd_size_type amt = sizeof (struct elf_link_hash_table);
 467
 468   ret = bfd_zmalloc (amt);
 469   if (ret == NULL)
 470     return NULL;
 471
 472   if (!_bfd_elf_link_hash_table_init (ret, abfd,
 473                                       elf_vax_link_hash_newfunc,
 474                                       sizeof (struct elf_vax_link_hash_entry),
 475                                       GENERIC_ELF_DATA))
 476     {
 477       free (ret);
 478       return NULL;
 479     }
 480
 481   return &ret->root;
 482 }
 483
 484 /* Keep vax-specific flags in the ELF header */
 485 static bfd_boolean
 486 elf32_vax_set_private_flags (bfd *abfd, flagword flags)
 487 {
 488   elf_elfheader (abfd)->e_flags = flags;
 489   elf_flags_init (abfd) = TRUE;
 490   return TRUE;
 491 }
 492
 493 /* Merge backend specific data from an object file to the output
 494    object file when linking.  */
 495 static bfd_boolean
 496 elf32_vax_merge_private_bfd_data (bfd *ibfd, bfd *obfd)
 497 {
 498   flagword in_flags;
 499
 500   if (   bfd_get_flavour (ibfd) != bfd_target_elf_flavour
 501       || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
 502     return TRUE;
 503
 504   in_flags  = elf_elfheader (ibfd)->e_flags;
 505
 506   if (!elf_flags_init (obfd))
 507     {
 508       elf_flags_init (obfd) = TRUE;
 509       elf_elfheader (obfd)->e_flags = in_flags;
 510     }
 511
 512   return TRUE;
 513 }
 514
 515 /* Display the flags field */
 516 static bfd_boolean
 517 elf32_vax_print_private_bfd_data (bfd *abfd, void * ptr)
 518 {
 519   FILE *file = (FILE *) ptr;
 520
 521   BFD_ASSERT (abfd != NULL && ptr != NULL);
 522
 523   /* Print normal ELF private data.  */
 524   _bfd_elf_print_private_bfd_data (abfd, ptr);
 525
 526   /* Ignore init flag - it may not be set, despite the flags field containing valid data.  */
 527
 528   /* xgettext:c-format */
 529   fprintf (file, _("private flags = %lx:"), elf_elfheader (abfd)->e_flags);
 530
 531   if (elf_elfheader (abfd)->e_flags & EF_VAX_NONPIC)
 532     fprintf (file, _(" [nonpic]"));
 533
 534   if (elf_elfheader (abfd)->e_flags & EF_VAX_DFLOAT)
 535     fprintf (file, _(" [d-float]"));
 536
 537   if (elf_elfheader (abfd)->e_flags & EF_VAX_GFLOAT)
 538     fprintf (file, _(" [g-float]"));
 539
 540   fputc ('\n', file);
 541
 542   return TRUE;
 543 }
 544 /* Look through the relocs for a section during the first phase, and
 545    allocate space in the global offset table or procedure linkage
 546    table.  */
 547
 548 static bfd_boolean
 549 elf_vax_check_relocs (bfd *abfd, struct bfd_link_info *info, asection *sec,
 550                       const Elf_Internal_Rela *relocs)
 551 {
 552   bfd *dynobj;
 553   Elf_Internal_Shdr *symtab_hdr;
 554   struct elf_link_hash_entry **sym_hashes;
 555   const Elf_Internal_Rela *rel;
 556   const Elf_Internal_Rela *rel_end;
 557   asection *sgot;
 558   asection *srelgot;
 559   asection *sreloc;
 560
 561   if (info->relocatable)
 562     return TRUE;
 563
 564   dynobj = elf_hash_table (info)->dynobj;
 565   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
 566   sym_hashes = elf_sym_hashes (abfd);
 567
 568   sgot = NULL;
 569   srelgot = NULL;
 570   sreloc = NULL;
 571
 572   rel_end = relocs + sec->reloc_count;
 573   for (rel = relocs; rel < rel_end; rel++)
 574     {
 575       unsigned long r_symndx;
 576       struct elf_link_hash_entry *h;
 577
 578       r_symndx = ELF32_R_SYM (rel->r_info);
 579
 580       if (r_symndx < symtab_hdr->sh_info)
 581         h = NULL;
 582       else
 583         {
 584           h = sym_hashes[r_symndx - symtab_hdr->sh_info];
 585           while (h->root.type == bfd_link_hash_indirect
 586                  || h->root.type == bfd_link_hash_warning)
 587             h = (struct elf_link_hash_entry *) h->root.u.i.link;
 588         }
 589
 590       switch (ELF32_R_TYPE (rel->r_info))
 591         {
 592         case R_VAX_GOT32:
 593           BFD_ASSERT (h != NULL);
 594           if (h->forced_local
 595               || h == elf_hash_table (info)->hgot
 596               || h == elf_hash_table (info)->hplt)
 597             break;
 598
 599           /* If this is a local symbol, we resolve it directly without
 600              creating a global offset table entry.  */
 601           if (h == NULL || ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
 602             break;
 603
 604           /* This symbol requires a global offset table entry.  */
 605
 606           if (dynobj == NULL)
 607             {
 608               /* Create the .got section.  */
 609               elf_hash_table (info)->dynobj = dynobj = abfd;
 610               if (!_bfd_elf_create_got_section (dynobj, info))
 611                 return FALSE;
 612             }
 613
 614           if (sgot == NULL)
 615             {
 616               sgot = bfd_get_linker_section (dynobj, ".got");
 617               BFD_ASSERT (sgot != NULL);
 618             }
 619
 620           if (srelgot == NULL
 621               && (h != NULL || info->shared))
 622             {
 623               srelgot = bfd_get_linker_section (dynobj, ".rela.got");
 624               if (srelgot == NULL)
 625                 {
 626                   flagword flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS
 627                                     | SEC_IN_MEMORY | SEC_LINKER_CREATED
 628                                     | SEC_READONLY);
 629
 630                   srelgot = bfd_make_section_anyway_with_flags (dynobj,
 631                                                                 ".rela.got",
 632                                                                 flags);
 633                   if (srelgot == NULL
 634                       || !bfd_set_section_alignment (dynobj, srelgot, 2))
 635                     return FALSE;
 636                 }
 637             }
 638
 639           if (h != NULL)
 640             {
 641               struct elf_vax_link_hash_entry *eh;
 642
 643               eh = (struct elf_vax_link_hash_entry *) h;
 644               if (h->got.refcount == -1)
 645                 {
 646                   h->got.refcount = 1;
 647                   eh->got_addend = rel->r_addend;
 648                 }
 649               else
 650                 {
 651                   h->got.refcount++;
 652                   if (eh->got_addend != (bfd_vma) rel->r_addend)
 653                     (*_bfd_error_handler)
 654                       (_("%s: warning: GOT addend of %ld to `%s' does"
 655                          " not match previous GOT addend of %ld"),
 656                          bfd_get_filename (abfd), rel->r_addend,
 657                          h->root.root.string,
 658                          eh->got_addend);
 659
 660                 }
 661             }
 662           break;
 663
 664         case R_VAX_PLT32:
 665           /* This symbol requires a procedure linkage table entry.  We
 666              actually build the entry in adjust_dynamic_symbol,
 667              because this might be a case of linking PIC code which is
 668              never referenced by a dynamic object, in which case we
 669              don't need to generate a procedure linkage table entry
 670              after all.  */
 671
 672           /* If this is a local symbol, we resolve it directly without
 673              creating a procedure linkage table entry.  */
 674           BFD_ASSERT (h != NULL);
 675           if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT || h->forced_local)
 676             break;
 677
 678           h->needs_plt = 1;
 679           if (h->plt.refcount == -1)
 680             h->plt.refcount = 1;
 681           else
 682             h->plt.refcount++;
 683           break;
 684
 685         case R_VAX_PC8:
 686         case R_VAX_PC16:
 687         case R_VAX_PC32:
 688           /* If we are creating a shared library and this is not a local
 689              symbol, we need to copy the reloc into the shared library.
 690              However when linking with -Bsymbolic and this is a global
 691              symbol which is defined in an object we are including in the
 692              link (i.e., DEF_REGULAR is set), then we can resolve the
 693              reloc directly.  At this point we have not seen all the input
 694              files, so it is possible that DEF_REGULAR is not set now but
 695              will be set later (it is never cleared).  We account for that
 696              possibility below by storing information in the
 697              pcrel_relocs_copied field of the hash table entry.  */
 698           if (!(info->shared
 699                 && (sec->flags & SEC_ALLOC) != 0
 700                 && h != NULL
 701                 && (!info->symbolic
 702                     || !h->def_regular)))
 703             {
 704               if (h != NULL
 705                   && ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
 706                   && !h->forced_local)
 707                 {
 708                   /* Make sure a plt entry is created for this symbol if
 709                      it turns out to be a function defined by a dynamic
 710                      object.  */
 711                   if (h->plt.refcount == -1)
 712                     h->plt.refcount = 1;
 713                   else
 714                     h->plt.refcount++;
 715                 }
 716               break;
 717             }
 718           /* If this is a local symbol, we can resolve it directly.  */
 719           if (h != NULL
 720               && (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
 721                   || h->forced_local))
 722             break;
 723
 724           /* Fall through.  */
 725         case R_VAX_8:
 726         case R_VAX_16:
 727         case R_VAX_32:
 728           if (h != NULL && ELF_ST_VISIBILITY (h->other) == STV_DEFAULT)
 729             {
 730               /* Make sure a plt entry is created for this symbol if it
 731                  turns out to be a function defined by a dynamic object.  */
 732               if (h->plt.refcount == -1)
 733                 h->plt.refcount = 1;
 734               else
 735                 h->plt.refcount++;
 736             }
 737
 738           /* If we are creating a shared library, we need to copy the
 739              reloc into the shared library.  */
 740           if (info->shared
 741               && (sec->flags & SEC_ALLOC) != 0)
 742             {
 743               /* When creating a shared object, we must copy these
 744                  reloc types into the output file.  We create a reloc
 745                  section in dynobj and make room for this reloc.  */
 746               if (sreloc == NULL)
 747                 {
 748                   sreloc = _bfd_elf_make_dynamic_reloc_section
 749                     (sec, dynobj, 2, abfd, /*rela?*/ TRUE);
 750
 751                   if (sreloc == NULL)
 752                     return FALSE;
 753
 754                   if (sec->flags & SEC_READONLY)
 755                     info->flags |= DF_TEXTREL;
 756                 }
 757
 758               sreloc->size += sizeof (Elf32_External_Rela);
 759
 760               /* If we are linking with -Bsymbolic, we count the number of
 761                  PC relative relocations we have entered for this symbol,
 762                  so that we can discard them again if the symbol is later
 763                  defined by a regular object.  Note that this function is
 764                  only called if we are using a vaxelf linker hash table,
 765                  which means that h is really a pointer to an
 766                  elf_vax_link_hash_entry.  */
 767               if ((ELF32_R_TYPE (rel->r_info) == R_VAX_PC8
 768                    || ELF32_R_TYPE (rel->r_info) == R_VAX_PC16
 769                    || ELF32_R_TYPE (rel->r_info) == R_VAX_PC32)
 770                   && info->symbolic)
 771                 {
 772                   struct elf_vax_link_hash_entry *eh;
 773                   struct elf_vax_pcrel_relocs_copied *p;
 774
 775                   eh = (struct elf_vax_link_hash_entry *) h;
 776
 777                   for (p = eh->pcrel_relocs_copied; p != NULL; p = p->next)
 778                     if (p->section == sreloc)
 779                       break;
 780
 781                   if (p == NULL)
 782                     {
 783                       p = ((struct elf_vax_pcrel_relocs_copied *)
 784                            bfd_alloc (dynobj, (bfd_size_type) sizeof *p));
 785                       if (p == NULL)
 786                         return FALSE;
 787                       p->next = eh->pcrel_relocs_copied;
 788                       eh->pcrel_relocs_copied = p;
 789                       p->section = sreloc;
 790                       p->count = 0;
 791                     }
 792
 793                   ++p->count;
 794                 }
 795             }
 796
 797           break;
 798
 799           /* This relocation describes the C++ object vtable hierarchy.
 800              Reconstruct it for later use during GC.  */
 801         case R_VAX_GNU_VTINHERIT:
 802           if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
 803             return FALSE;
 804           break;
 805
 806           /* This relocation describes which C++ vtable entries are actually
 807              used.  Record for later use during GC.  */
 808         case R_VAX_GNU_VTENTRY:
 809           BFD_ASSERT (h != NULL);
 810           if (h != NULL
 811               && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
 812             return FALSE;
 813           break;
 814
 815         default:
 816           break;
 817         }
 818     }
 819
 820   return TRUE;
 821 }
 822
 823 /* Return the section that should be marked against GC for a given
 824    relocation.  */
 825
 826 static asection *
 827 elf_vax_gc_mark_hook (asection *sec,
 828                       struct bfd_link_info *info,
 829                       Elf_Internal_Rela *rel,
 830                       struct elf_link_hash_entry *h,
 831                       Elf_Internal_Sym *sym)
 832 {
 833   if (h != NULL)
 834     switch (ELF32_R_TYPE (rel->r_info))
 835       {
 836       case R_VAX_GNU_VTINHERIT:
 837       case R_VAX_GNU_VTENTRY:
 838         return NULL;
 839       }
 840
 841   return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
 842 }
 843
 844 /* Update the got entry reference counts for the section being removed.  */
 845
 846 static bfd_boolean
 847 elf_vax_gc_sweep_hook (bfd *abfd, struct bfd_link_info *info, asection *sec,
 848                        const Elf_Internal_Rela *relocs)
 849 {
 850   Elf_Internal_Shdr *symtab_hdr;
 851   struct elf_link_hash_entry **sym_hashes;
 852   const Elf_Internal_Rela *rel, *relend;
 853   bfd *dynobj;
 854
 855   if (info->relocatable)
 856     return TRUE;
 857
 858   dynobj = elf_hash_table (info)->dynobj;
 859   if (dynobj == NULL)
 860     return TRUE;
 861
 862   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
 863   sym_hashes = elf_sym_hashes (abfd);
 864
 865   relend = relocs + sec->reloc_count;
 866   for (rel = relocs; rel < relend; rel++)
 867     {
 868       unsigned long r_symndx;
 869       struct elf_link_hash_entry *h = NULL;
 870
 871       r_symndx = ELF32_R_SYM (rel->r_info);
 872       if (r_symndx >= symtab_hdr->sh_info)
 873         {
 874           h = sym_hashes[r_symndx - symtab_hdr->sh_info];
 875           while (h->root.type == bfd_link_hash_indirect
 876                  || h->root.type == bfd_link_hash_warning)
 877             h = (struct elf_link_hash_entry *) h->root.u.i.link;
 878         }
 879
 880       switch (ELF32_R_TYPE (rel->r_info))
 881         {
 882         case R_VAX_GOT32:
 883           if (h != NULL && h->got.refcount > 0)
 884             --h->got.refcount;
 885           break;
 886
 887         case R_VAX_PLT32:
 888         case R_VAX_PC8:
 889         case R_VAX_PC16:
 890         case R_VAX_PC32:
 891         case R_VAX_8:
 892         case R_VAX_16:
 893         case R_VAX_32:
 894           if (h != NULL && h->plt.refcount > 0)
 895             --h->plt.refcount;
 896           break;
 897
 898         default:
 899           break;
 900         }
 901     }
 902
 903   return TRUE;
 904 }
 905
 906 /* Adjust a symbol defined by a dynamic object and referenced by a
 907    regular object.  The current definition is in some section of the
 908    dynamic object, but we're not including those sections.  We have to
 909    change the definition to something the rest of the link can
 910    understand.  */
 911
 912 static bfd_boolean
 913 elf_vax_adjust_dynamic_symbol (info, h)
 914      struct bfd_link_info *info;
 915      struct elf_link_hash_entry *h;
 916 {
 917   bfd *dynobj;
 918   asection *s;
 919
 920   dynobj = elf_hash_table (info)->dynobj;
 921
 922   /* Make sure we know what is going on here.  */
 923   BFD_ASSERT (dynobj != NULL
 924               && (h->needs_plt
 925                   || h->u.weakdef != NULL
 926                   || (h->def_dynamic
 927                       && h->ref_regular
 928                       && !h->def_regular)));
 929
 930   /* If this is a function, put it in the procedure linkage table.  We
 931      will fill in the contents of the procedure linkage table later,
 932      when we know the address of the .got section.  */
 933   if (h->type == STT_FUNC
 934       || h->needs_plt)
 935     {
 936       if (h->plt.refcount <= 0
 937           || SYMBOL_CALLS_LOCAL (info, h)
 938           || (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
 939               && h->root.type == bfd_link_hash_undefweak))
 940         {
 941           /* This case can occur if we saw a PLTxx reloc in an input
 942              file, but the symbol was never referred to by a dynamic
 943              object, or if all references were garbage collected.  In
 944              such a case, we don't actually need to build a procedure
 945              linkage table, and we can just do a PCxx reloc instead.  */
 946           h->plt.offset = (bfd_vma) -1;
 947           h->needs_plt = 0;
 948           return TRUE;
 949         }
 950
 951       s = bfd_get_linker_section (dynobj, ".plt");
 952       BFD_ASSERT (s != NULL);
 953
 954       /* If this is the first .plt entry, make room for the special
 955          first entry.  */
 956       if (s->size == 0)
 957         {
 958           s->size += PLT_ENTRY_SIZE;
 959         }
 960
 961       /* If this symbol is not defined in a regular file, and we are
 962          not generating a shared library, then set the symbol to this
 963          location in the .plt.  This is required to make function
 964          pointers compare as equal between the normal executable and
 965          the shared library.  */
 966       if (!info->shared
 967           && !h->def_regular)
 968         {
 969           h->root.u.def.section = s;
 970           h->root.u.def.value = s->size;
 971         }
 972
 973       h->plt.offset = s->size;
 974
 975       /* Make room for this entry.  */
 976       s->size += PLT_ENTRY_SIZE;
 977
 978       /* We also need to make an entry in the .got.plt section, which
 979          will be placed in the .got section by the linker script.  */
 980
 981       s = bfd_get_linker_section (dynobj, ".got.plt");
 982       BFD_ASSERT (s != NULL);
 983       s->size += 4;
 984
 985       /* We also need to make an entry in the .rela.plt section.  */
 986
 987       s = bfd_get_linker_section (dynobj, ".rela.plt");
 988       BFD_ASSERT (s != NULL);
 989       s->size += sizeof (Elf32_External_Rela);
 990
 991       return TRUE;
 992     }
 993
 994   /* Reinitialize the plt offset now that it is not used as a reference
 995      count any more.  */
 996   h->plt.offset = (bfd_vma) -1;
 997
 998   /* If this is a weak symbol, and there is a real definition, the
 999      processor independent code will have arranged for us to see the
1000      real definition first, and we can just use the same value.  */
1001   if (h->u.weakdef != NULL)
1002     {
1003       BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
1004                   || h->u.weakdef->root.type == bfd_link_hash_defweak);
1005       h->root.u.def.section = h->u.weakdef->root.u.def.section;
1006       h->root.u.def.value = h->u.weakdef->root.u.def.value;
1007       return TRUE;
1008     }
1009
1010   /* This is a reference to a symbol defined by a dynamic object which
1011      is not a function.  */
1012
1013   /* If we are creating a shared library, we must presume that the
1014      only references to the symbol are via the global offset table.
1015      For such cases we need not do anything here; the relocations will
1016      be handled correctly by relocate_section.  */
1017   if (info->shared)
1018     return TRUE;
1019
1020   /* We must allocate the symbol in our .dynbss section, which will
1021      become part of the .bss section of the executable.  There will be
1022      an entry for this symbol in the .dynsym section.  The dynamic
1023      object will contain position independent code, so all references
1024      from the dynamic object to this symbol will go through the global
1025      offset table.  The dynamic linker will use the .dynsym entry to
1026      determine the address it must put in the global offset table, so
1027      both the dynamic object and the regular object will refer to the
1028      same memory location for the variable.  */
1029
1030   s = bfd_get_linker_section (dynobj, ".dynbss");
1031   BFD_ASSERT (s != NULL);
1032
1033   /* We must generate a R_VAX_COPY reloc to tell the dynamic linker to
1034      copy the initial value out of the dynamic object and into the
1035      runtime process image.  We need to remember the offset into the
1036      .rela.bss section we are going to use.  */
1037   if ((h->root.u.def.section->flags & SEC_ALLOC) != 0 && h->size != 0)
1038     {
1039       asection *srel;
1040
1041       srel = bfd_get_linker_section (dynobj, ".rela.bss");
1042       BFD_ASSERT (srel != NULL);
1043       srel->size += sizeof (Elf32_External_Rela);
1044       h->needs_copy = 1;
1045     }
1046
1047   return _bfd_elf_adjust_dynamic_copy (h, s);
1048 }
1049
1050 /* Set the sizes of the dynamic sections.  */
1051
1052 static bfd_boolean
1053 elf_vax_size_dynamic_sections (bfd *output_bfd, struct bfd_link_info *info)
1054 {
1055   bfd *dynobj;
1056   asection *s;
1057   bfd_boolean plt;
1058   bfd_boolean relocs;
1059   bfd_boolean reltext;
1060
1061   dynobj = elf_hash_table (info)->dynobj;
1062   BFD_ASSERT (dynobj != NULL);
1063
1064   if (elf_hash_table (info)->dynamic_sections_created)
1065     {
1066       /* Set the contents of the .interp section to the interpreter.  */
1067       if (info->executable)
1068         {
1069           s = bfd_get_linker_section (dynobj, ".interp");
1070           BFD_ASSERT (s != NULL);
1071           s->size = sizeof ELF_DYNAMIC_INTERPRETER;
1072           s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
1073         }
1074     }
1075   else
1076     {
1077       /* We may have created entries in the .rela.got and .got sections.
1078          However, if we are not creating the dynamic sections, we will
1079          not actually use these entries.  Reset the size of .rela.got
1080          and .got, which will cause it to get stripped from the output
1081          file below.  */
1082       s = bfd_get_linker_section (dynobj, ".rela.got");
1083       if (s != NULL)
1084         s->size = 0;
1085       s = bfd_get_linker_section (dynobj, ".got.plt");
1086       if (s != NULL)
1087         s->size = 0;
1088       s = bfd_get_linker_section (dynobj, ".got");
1089       if (s != NULL)
1090         s->size = 0;
1091     }
1092
1093   /* If this is a -Bsymbolic shared link, then we need to discard all PC
1094      relative relocs against symbols defined in a regular object.  We
1095      allocated space for them in the check_relocs routine, but we will not
1096      fill them in in the relocate_section routine.  */
1097   if (info->shared && info->symbolic)
1098     elf_vax_link_hash_traverse (elf_hash_table (info),
1099                                 elf_vax_discard_copies,
1100                                 NULL);
1101
1102   /* If this is a -Bsymbolic shared link or a static link, we need to
1103      discard all the got entries we've recorded.  Otherwise, we need to
1104      instantiate (allocate space for them).  */
1105   elf_link_hash_traverse (elf_hash_table (info),
1106                           elf_vax_instantiate_got_entries,
1107                           info);
1108
1109   /* The check_relocs and adjust_dynamic_symbol entry points have
1110      determined the sizes of the various dynamic sections.  Allocate
1111      memory for them.  */
1112   plt = FALSE;
1113   relocs = FALSE;
1114   reltext = FALSE;
1115   for (s = dynobj->sections; s != NULL; s = s->next)
1116     {
1117       const char *name;
1118
1119       if ((s->flags & SEC_LINKER_CREATED) == 0)
1120         continue;
1121
1122       /* It's OK to base decisions on the section name, because none
1123          of the dynobj section names depend upon the input files.  */
1124       name = bfd_get_section_name (dynobj, s);
1125
1126       if (strcmp (name, ".plt") == 0)
1127         {
1128           /* Remember whether there is a PLT.  */
1129           plt = s->size != 0;
1130         }
1131       else if (CONST_STRNEQ (name, ".rela"))
1132         {
1133           if (s->size != 0)
1134             {
1135               asection *target;
1136
1137               /* Remember whether there are any reloc sections other
1138                  than .rela.plt.  */
1139               if (strcmp (name, ".rela.plt") != 0)
1140                 {
1141                   const char *outname;
1142
1143                   relocs = TRUE;
1144
1145                   /* If this relocation section applies to a read only
1146                      section, then we probably need a DT_TEXTREL
1147                      entry.  .rela.plt is actually associated with
1148                      .got.plt, which is never readonly.  */
1149                   outname = bfd_get_section_name (output_bfd,
1150                                                   s->output_section);
1151                   target = bfd_get_section_by_name (output_bfd, outname + 5);
1152                   if (target != NULL
1153                       && (target->flags & SEC_READONLY) != 0
1154                       && (target->flags & SEC_ALLOC) != 0)
1155                     reltext = TRUE;
1156                 }
1157
1158               /* We use the reloc_count field as a counter if we need
1159                  to copy relocs into the output file.  */
1160               s->reloc_count = 0;
1161             }
1162         }
1163       else if (! CONST_STRNEQ (name, ".got")
1164                && strcmp (name, ".dynbss") != 0)
1165         {
1166           /* It's not one of our sections, so don't allocate space.  */
1167           continue;
1168         }
1169
1170       if (s->size == 0)
1171         {
1172           /* If we don't need this section, strip it from the
1173              output file.  This is mostly to handle .rela.bss and
1174              .rela.plt.  We must create both sections in
1175              create_dynamic_sections, because they must be created
1176              before the linker maps input sections to output
1177              sections.  The linker does that before
1178              adjust_dynamic_symbol is called, and it is that
1179              function which decides whether anything needs to go
1180              into these sections.  */
1181           s->flags |= SEC_EXCLUDE;
1182           continue;
1183         }
1184
1185       if ((s->flags & SEC_HAS_CONTENTS) == 0)
1186         continue;
1187
1188       /* Allocate memory for the section contents.  */
1189       s->contents = (bfd_byte *) bfd_alloc (dynobj, s->size);
1190       if (s->contents == NULL)
1191         return FALSE;
1192     }
1193
1194   if (elf_hash_table (info)->dynamic_sections_created)
1195     {
1196       /* Add some entries to the .dynamic section.  We fill in the
1197          values later, in elf_vax_finish_dynamic_sections, but we
1198          must add the entries now so that we get the correct size for
1199          the .dynamic section.  The DT_DEBUG entry is filled in by the
1200          dynamic linker and used by the debugger.  */
1201 #define add_dynamic_entry(TAG, VAL) \
1202   _bfd_elf_add_dynamic_entry (info, TAG, VAL)
1203
1204       if (!info->shared)
1205         {
1206           if (!add_dynamic_entry (DT_DEBUG, 0))
1207             return FALSE;
1208         }
1209
1210       if (plt)
1211         {
1212           if (!add_dynamic_entry (DT_PLTGOT, 0)
1213               || !add_dynamic_entry (DT_PLTRELSZ, 0)
1214               || !add_dynamic_entry (DT_PLTREL, DT_RELA)
1215               || !add_dynamic_entry (DT_JMPREL, 0))
1216             return FALSE;
1217         }
1218
1219       if (relocs)
1220         {
1221           if (!add_dynamic_entry (DT_RELA, 0)
1222               || !add_dynamic_entry (DT_RELASZ, 0)
1223               || !add_dynamic_entry (DT_RELAENT, sizeof (Elf32_External_Rela)))
1224             return FALSE;
1225         }
1226
1227       if (reltext || (info->flags & DF_TEXTREL) != 0)
1228         {
1229           if (!add_dynamic_entry (DT_TEXTREL, 0))
1230             return FALSE;
1231         }
1232     }
1233 #undef add_dynamic_entry
1234
1235   return TRUE;
1236 }
1237
1238 /* This function is called via elf_vax_link_hash_traverse if we are
1239    creating a shared object with -Bsymbolic.  It discards the space
1240    allocated to copy PC relative relocs against symbols which are defined
1241    in regular objects.  We allocated space for them in the check_relocs
1242    routine, but we won't fill them in in the relocate_section routine.  */
1243
1244 static bfd_boolean
1245 elf_vax_discard_copies (struct elf_vax_link_hash_entry *h,
1246                         void * ignore ATTRIBUTE_UNUSED)
1247 {
1248   struct elf_vax_pcrel_relocs_copied *s;
1249
1250   /* We only discard relocs for symbols defined in a regular object.  */
1251   if (!h->root.def_regular)
1252     return TRUE;
1253
1254   for (s = h->pcrel_relocs_copied; s != NULL; s = s->next)
1255     s->section->size -= s->count * sizeof (Elf32_External_Rela);
1256
1257   return TRUE;
1258 }
1259
1260 /* This function is called via elf_link_hash_traverse.  It looks for entries
1261    that have GOT or PLT (.GOT) references.  If creating a static object or a
1262    shared object with -Bsymbolic, it resets the reference count back to 0
1263    and sets the offset to -1 so normal PC32 relocation will be done.  If
1264    creating a shared object or executable, space in the .got and .rela.got
1265    will be reserved for the symbol.  */
1266
1267 static bfd_boolean
1268 elf_vax_instantiate_got_entries (struct elf_link_hash_entry *h, void * infoptr)
1269 {
1270   struct bfd_link_info *info = (struct bfd_link_info *) infoptr;
1271   bfd *dynobj;
1272   asection *sgot;
1273   asection *srelgot;
1274
1275   /* We don't care about non-GOT (and non-PLT) entries.  */
1276   if (h->got.refcount <= 0 && h->plt.refcount <= 0)
1277     return TRUE;
1278
1279   dynobj = elf_hash_table (info)->dynobj;
1280   if (dynobj == NULL)
1281     return TRUE;
1282
1283   sgot = bfd_get_linker_section (dynobj, ".got");
1284   srelgot = bfd_get_linker_section (dynobj, ".rela.got");
1285
1286   if (!elf_hash_table (info)->dynamic_sections_created
1287       || (info->shared && info->symbolic)
1288       || h->forced_local)
1289     {
1290       h->got.refcount = 0;
1291       h->got.offset = (bfd_vma) -1;
1292       h->plt.refcount = 0;
1293       h->plt.offset = (bfd_vma) -1;
1294     }
1295   else if (h->got.refcount > 0)
1296     {
1297       bfd_boolean dyn;
1298
1299       /* Make sure this symbol is output as a dynamic symbol.  */
1300       if (h->dynindx == -1)
1301         {
1302           if (!bfd_elf_link_record_dynamic_symbol (info, h))
1303             return FALSE;
1304         }
1305
1306       dyn = elf_hash_table (info)->dynamic_sections_created;
1307       /* Allocate space in the .got and .rela.got sections.  */
1308       if (ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
1309           && (info->shared
1310               || WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, 0, h)))
1311         {
1312           sgot->size += 4;
1313           srelgot->size += sizeof (Elf32_External_Rela);
1314         }
1315     }
1316
1317   return TRUE;
1318 }
1319
1320 /* Relocate an VAX ELF section.  */
1321
1322 static bfd_boolean
1323 elf_vax_relocate_section (bfd *output_bfd,
1324                           struct bfd_link_info *info,
1325                           bfd *input_bfd,
1326                           asection *input_section,
1327                           bfd_byte *contents,
1328                           Elf_Internal_Rela *relocs,
1329                           Elf_Internal_Sym *local_syms,
1330                           asection **local_sections)
1331 {
1332   bfd *dynobj;
1333   Elf_Internal_Shdr *symtab_hdr;
1334   struct elf_link_hash_entry **sym_hashes;
1335   bfd_vma plt_index;
1336   bfd_vma got_offset;
1337   asection *sgot;
1338   asection *splt;
1339   asection *sgotplt;
1340   asection *sreloc;
1341   Elf_Internal_Rela *rel;
1342   Elf_Internal_Rela *relend;
1343
1344   dynobj = elf_hash_table (info)->dynobj;
1345   symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
1346   sym_hashes = elf_sym_hashes (input_bfd);
1347
1348   sgot = NULL;
1349   splt = NULL;
1350   sgotplt = NULL;
1351   sreloc = NULL;
1352
1353   rel = relocs;
1354   relend = relocs + input_section->reloc_count;
1355   for (; rel < relend; rel++)
1356     {
1357       int r_type;
1358       reloc_howto_type *howto;
1359       unsigned long r_symndx;
1360       struct elf_link_hash_entry *h;
1361       Elf_Internal_Sym *sym;
1362       asection *sec;
1363       bfd_vma relocation;
1364       bfd_reloc_status_type r;
1365
1366       r_type = ELF32_R_TYPE (rel->r_info);
1367       if (r_type < 0 || r_type >= (int) R_VAX_max)
1368         {
1369           bfd_set_error (bfd_error_bad_value);
1370           return FALSE;
1371         }
1372       howto = howto_table + r_type;
1373
1374       r_symndx = ELF32_R_SYM (rel->r_info);
1375       h = NULL;
1376       sym = NULL;
1377       sec = NULL;
1378       if (r_symndx < symtab_hdr->sh_info)
1379         {
1380           sym = local_syms + r_symndx;
1381           sec = local_sections[r_symndx];
1382           relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
1383         }
1384       else
1385         {
1386           bfd_boolean unresolved_reloc;
1387           bfd_boolean warned;
1388
1389           RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
1390                                    r_symndx, symtab_hdr, sym_hashes,
1391                                    h, sec, relocation,
1392                                    unresolved_reloc, warned);
1393
1394           if ((h->root.type == bfd_link_hash_defined
1395               || h->root.type == bfd_link_hash_defweak)
1396               && ((r_type == R_VAX_PLT32
1397                    && h->plt.offset != (bfd_vma) -1
1398                    && !h->forced_local
1399                    && elf_hash_table (info)->dynamic_sections_created)
1400                   || (r_type == R_VAX_GOT32
1401                       && h->got.offset != (bfd_vma) -1
1402                       && !h->forced_local
1403                       && elf_hash_table (info)->dynamic_sections_created
1404                       && (! info->shared
1405                           || (! info->symbolic && h->dynindx != -1)
1406                           || !h->def_regular))
1407                   || (info->shared
1408                       && ((! info->symbolic && h->dynindx != -1)
1409                           || !h->def_regular)
1410                       && ((input_section->flags & SEC_ALLOC) != 0
1411                           /* DWARF will emit R_VAX_32 relocations in its
1412                              sections against symbols defined externally
1413                              in shared libraries.  We can't do anything
1414                              with them here.  */
1415
1416                           || ((input_section->flags & SEC_DEBUGGING) != 0
1417                               && h->def_dynamic))
1418                       && (r_type == R_VAX_8
1419                           || r_type == R_VAX_16
1420                           || r_type == R_VAX_32))))
1421             /* In these cases, we don't need the relocation
1422                value.  We check specially because in some
1423                obscure cases sec->output_section will be NULL.  */
1424             relocation = 0;
1425         }
1426
1427       if (sec != NULL && discarded_section (sec))
1428         RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
1429                                          rel, 1, relend, howto, 0, contents);
1430
1431       if (info->relocatable)
1432         continue;
1433
1434       switch (r_type)
1435         {
1436         case R_VAX_GOT32:
1437           /* Relocation is to the address of the entry for this symbol
1438              in the global offset table.  */
1439           if (h == NULL
1440               || ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
1441               || h->got.offset == (bfd_vma) -1
1442               || h->forced_local)
1443             break;
1444
1445           /* Relocation is the offset of the entry for this symbol in
1446              the global offset table.  */
1447
1448           {
1449             bfd_boolean dyn;
1450             bfd_vma off;
1451
1452             if (sgot == NULL)
1453               {
1454                 sgot = bfd_get_linker_section (dynobj, ".got");
1455                 BFD_ASSERT (sgot != NULL);
1456               }
1457
1458             BFD_ASSERT (h != NULL);
1459             off = h->got.offset;
1460             BFD_ASSERT (off != (bfd_vma) -1);
1461             BFD_ASSERT (off < sgot->size);
1462
1463             dyn = elf_hash_table (info)->dynamic_sections_created;
1464             if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
1465                 || (info->shared
1466                     && SYMBOL_REFERENCES_LOCAL (info, h)))
1467               {
1468                 /* The symbol was forced to be local
1469                    because of a version file..  We must initialize
1470                    this entry in the global offset table.  Since
1471                    the offset must always be a multiple of 4, we
1472                    use the least significant bit to record whether
1473                    we have initialized it already.
1474
1475                    When doing a dynamic link, we create a .rela.got
1476                    relocation entry to initialize the value.  This
1477                    is done in the finish_dynamic_symbol routine.  */
1478                 if ((off & 1) != 0)
1479                   off &= ~1;
1480                 else
1481                   {
1482                     bfd_put_32 (output_bfd, relocation + rel->r_addend,
1483                                 sgot->contents + off);
1484                     h->got.offset |= 1;
1485                   }
1486               } else {
1487                 bfd_put_32 (output_bfd, rel->r_addend, sgot->contents + off);
1488               }
1489
1490             relocation = sgot->output_offset + off;
1491             /* The GOT relocation uses the addend.  */
1492             rel->r_addend = 0;
1493
1494             /* Change the reference to be indirect.  */
1495             contents[rel->r_offset - 1] |= 0x10;
1496             relocation += sgot->output_section->vma;
1497           }
1498           break;
1499
1500         case R_VAX_PC32:
1501           /* If we are creating an executable and the function this
1502              reloc refers to is in a shared lib, then we made a PLT
1503              entry for this symbol and need to handle the reloc like
1504              a PLT reloc.  */
1505           if (info->shared)
1506              goto r_vax_pc32_shared;
1507           /* Fall through.  */
1508         case R_VAX_PLT32:
1509           /* Relocation is to the entry for this symbol in the
1510              procedure linkage table.  */
1511
1512           /* Resolve a PLTxx reloc against a local symbol directly,
1513              without using the procedure linkage table.  */
1514           if (h == NULL
1515               || ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
1516               || h->forced_local)
1517             break;
1518
1519           if (h->plt.offset == (bfd_vma) -1
1520               || !elf_hash_table (info)->dynamic_sections_created)
1521             {
1522               /* We didn't make a PLT entry for this symbol.  This
1523                  happens when statically linking PIC code, or when
1524                  using -Bsymbolic.  */
1525               break;
1526             }
1527
1528           if (splt == NULL)
1529             {
1530               splt = bfd_get_linker_section (dynobj, ".plt");
1531               BFD_ASSERT (splt != NULL);
1532             }
1533
1534           if (sgotplt == NULL)
1535             {
1536               sgotplt = bfd_get_linker_section (dynobj, ".got.plt");
1537               BFD_ASSERT (sgotplt != NULL);
1538             }
1539
1540           plt_index = h->plt.offset / PLT_ENTRY_SIZE - 1;
1541
1542           /* Get the offset into the .got table of the entry that
1543              corresponds to this function.  Each .got entry is 4 bytes.
1544              The first two are reserved.  */
1545           got_offset = (plt_index + 3) * 4;
1546
1547           /* We want the relocation to point into the .got.plt instead
1548              of the plt itself.  */
1549           relocation = (sgotplt->output_section->vma
1550                         + sgotplt->output_offset
1551                         + got_offset);
1552           contents[rel->r_offset-1] |= 0x10; /* make indirect */
1553           if (rel->r_addend == 2)
1554             {
1555               h->plt.offset |= 1;
1556             }
1557           else if (rel->r_addend != 0)
1558             (*_bfd_error_handler)
1559               (_("%s: warning: PLT addend of %d to `%s' from %s section ignored"),
1560                       bfd_get_filename (input_bfd), rel->r_addend,
1561                       h->root.root.string,
1562                       bfd_get_section_name (input_bfd, input_section));
1563           rel->r_addend = 0;
1564
1565           break;
1566
1567         case R_VAX_PC8:
1568         case R_VAX_PC16:
1569         r_vax_pc32_shared:
1570           if (h == NULL
1571               || ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
1572               || h->forced_local)
1573             break;
1574           /* Fall through.  */
1575         case R_VAX_8:
1576         case R_VAX_16:
1577         case R_VAX_32:
1578           if (info->shared
1579               && r_symndx != STN_UNDEF
1580               && (input_section->flags & SEC_ALLOC) != 0
1581               && ((r_type != R_VAX_PC8
1582                    && r_type != R_VAX_PC16
1583                    && r_type != R_VAX_PC32)
1584                   || ((input_section->flags & SEC_CODE)
1585                       && (!info->symbolic
1586                           || (!h->def_regular && h->type != STT_SECTION)))))
1587             {
1588               Elf_Internal_Rela outrel;
1589               bfd_byte *loc;
1590               bfd_boolean skip, relocate;
1591
1592               /* When generating a shared object, these relocations
1593                  are copied into the output file to be resolved at run
1594                  time.  */
1595               if (sreloc == NULL)
1596                 {
1597                   sreloc = _bfd_elf_get_dynamic_reloc_section
1598                     (input_bfd, input_section, /*rela?*/ TRUE);
1599                   if (sreloc == NULL)
1600                     return FALSE;
1601                 }
1602
1603               skip = FALSE;
1604               relocate = FALSE;
1605
1606               outrel.r_offset =
1607                 _bfd_elf_section_offset (output_bfd, info, input_section,
1608                                          rel->r_offset);
1609               if (outrel.r_offset == (bfd_vma) -1)
1610                 skip = TRUE;
1611               if (outrel.r_offset == (bfd_vma) -2)
1612                 skip = TRUE, relocate = TRUE;
1613               outrel.r_offset += (input_section->output_section->vma
1614                                   + input_section->output_offset);
1615
1616               if (skip)
1617                   memset (&outrel, 0, sizeof outrel);
1618               /* h->dynindx may be -1 if the symbol was marked to
1619                  become local.  */
1620               else if (h != NULL
1621                        && ((! info->symbolic && h->dynindx != -1)
1622                            || !h->def_regular))
1623                 {
1624                   BFD_ASSERT (h->dynindx != -1);
1625                   outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
1626                   outrel.r_addend = relocation + rel->r_addend;
1627                 }
1628               else
1629                 {
1630                   if (r_type == R_VAX_32)
1631                     {
1632                       relocate = TRUE;
1633                       outrel.r_info = ELF32_R_INFO (0, R_VAX_RELATIVE);
1634                       BFD_ASSERT (bfd_get_signed_32 (input_bfd,
1635                                                      &contents[rel->r_offset]) == 0);
1636                       outrel.r_addend = relocation + rel->r_addend;
1637                     }
1638                   else
1639                     {
1640                       long indx;
1641
1642                       if (bfd_is_abs_section (sec))
1643                         indx = 0;
1644                       else if (sec == NULL || sec->owner == NULL)
1645                         {
1646                           bfd_set_error (bfd_error_bad_value);
1647                           return FALSE;
1648                         }
1649                       else
1650                         {
1651                           asection *osec;
1652
1653                           /* We are turning this relocation into one
1654                              against a section symbol.  It would be
1655                              proper to subtract the symbol's value,
1656                              osec->vma, from the emitted reloc addend,
1657                              but ld.so expects buggy relocs.  */
1658                           osec = sec->output_section;
1659                           indx = elf_section_data (osec)->dynindx;
1660                           if (indx == 0)
1661                             {
1662                               struct elf_link_hash_table *htab;
1663                               htab = elf_hash_table (info);
1664                               osec = htab->text_index_section;
1665                               indx = elf_section_data (osec)->dynindx;
1666                             }
1667                           BFD_ASSERT (indx != 0);
1668                         }
1669
1670                       outrel.r_info = ELF32_R_INFO (indx, r_type);
1671                       outrel.r_addend = relocation + rel->r_addend;
1672                     }
1673                 }
1674
1675               if ((input_section->flags & SEC_CODE) != 0
1676                   || (ELF32_R_TYPE (outrel.r_info) != R_VAX_32
1677                       && ELF32_R_TYPE (outrel.r_info) != R_VAX_RELATIVE
1678                       && ELF32_R_TYPE (outrel.r_info) != R_VAX_COPY
1679                       && ELF32_R_TYPE (outrel.r_info) != R_VAX_JMP_SLOT
1680                       && ELF32_R_TYPE (outrel.r_info) != R_VAX_GLOB_DAT))
1681                 {
1682                   if (h != NULL)
1683                     (*_bfd_error_handler)
1684                       (_("%s: warning: %s relocation against symbol `%s' from %s section"),
1685                       bfd_get_filename (input_bfd), howto->name,
1686                       h->root.root.string,
1687                       bfd_get_section_name (input_bfd, input_section));
1688                   else
1689                     (*_bfd_error_handler)
1690                       (_("%s: warning: %s relocation to 0x%x from %s section"),
1691                       bfd_get_filename (input_bfd), howto->name,
1692                       outrel.r_addend,
1693                       bfd_get_section_name (input_bfd, input_section));
1694                 }
1695               loc = sreloc->contents;
1696               loc += sreloc->reloc_count++ * sizeof (Elf32_External_Rela);
1697               bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
1698
1699               /* This reloc will be computed at runtime, so there's no
1700                  need to do anything now, except for R_VAX_32
1701                  relocations that have been turned into
1702                  R_VAX_RELATIVE.  */
1703               if (!relocate)
1704                 continue;
1705             }
1706
1707           break;
1708
1709         case R_VAX_GNU_VTINHERIT:
1710         case R_VAX_GNU_VTENTRY:
1711           /* These are no-ops in the end.  */
1712           continue;
1713
1714         default:
1715           break;
1716         }
1717
1718       /* VAX PCREL relocations are from the end of relocation, not the start.
1719          So subtract the difference from the relocation amount since we can't
1720          add it to the offset.  */
1721       if (howto->pc_relative && howto->pcrel_offset)
1722         relocation -= bfd_get_reloc_size(howto);
1723
1724       r = _bfd_final_link_relocate (howto, input_bfd, input_section,
1725                                     contents, rel->r_offset,
1726                                     relocation, rel->r_addend);
1727
1728       if (r != bfd_reloc_ok)
1729         {
1730           switch (r)
1731             {
1732             default:
1733             case bfd_reloc_outofrange:
1734               abort ();
1735             case bfd_reloc_overflow:
1736               {
1737                 const char *name;
1738
1739                 if (h != NULL)
1740                   name = NULL;
1741                 else
1742                   {
1743                     name = bfd_elf_string_from_elf_section (input_bfd,
1744                                                             symtab_hdr->sh_link,
1745                                                             sym->st_name);
1746                     if (name == NULL)
1747                       return FALSE;
1748                     if (*name == '\0')
1749                       name = bfd_section_name (input_bfd, sec);
1750                   }
1751                 if (!(info->callbacks->reloc_overflow
1752                       (info, (h ? &h->root : NULL), name, howto->name,
1753                        (bfd_vma) 0, input_bfd, input_section,
1754                        rel->r_offset)))
1755                   return FALSE;
1756               }
1757               break;
1758             }
1759         }
1760     }
1761
1762   return TRUE;
1763 }
1764
1765 /* Finish up dynamic symbol handling.  We set the contents of various
1766    dynamic sections here.  */
1767
1768 static bfd_boolean
1769 elf_vax_finish_dynamic_symbol (bfd *output_bfd, struct bfd_link_info *info,
1770                                struct elf_link_hash_entry *h,
1771                                Elf_Internal_Sym *sym)
1772 {
1773   bfd *dynobj;
1774
1775   dynobj = elf_hash_table (info)->dynobj;
1776
1777   if (h->plt.offset != (bfd_vma) -1)
1778     {
1779       asection *splt;
1780       asection *sgot;
1781       asection *srela;
1782       bfd_vma plt_index;
1783       bfd_vma got_offset;
1784       bfd_vma addend;
1785       Elf_Internal_Rela rela;
1786       bfd_byte *loc;
1787
1788       /* This symbol has an entry in the procedure linkage table.  Set
1789          it up.  */
1790       BFD_ASSERT (h->dynindx != -1);
1791
1792       splt = bfd_get_linker_section (dynobj, ".plt");
1793       sgot = bfd_get_linker_section (dynobj, ".got.plt");
1794       srela = bfd_get_linker_section (dynobj, ".rela.plt");
1795       BFD_ASSERT (splt != NULL && sgot != NULL && srela != NULL);
1796
1797       addend = 2 * (h->plt.offset & 1);
1798       h->plt.offset &= ~1;
1799
1800       /* Get the index in the procedure linkage table which
1801          corresponds to this symbol.  This is the index of this symbol
1802          in all the symbols for which we are making plt entries.  The
1803          first entry in the procedure linkage table is reserved.  */
1804       plt_index = h->plt.offset / PLT_ENTRY_SIZE - 1;
1805
1806       /* Get the offset into the .got table of the entry that
1807          corresponds to this function.  Each .got entry is 4 bytes.
1808          The first two are reserved.  */
1809       got_offset = (plt_index + 3) * 4;
1810
1811       /* Fill in the entry in the procedure linkage table.  */
1812       memcpy (splt->contents + h->plt.offset, elf_vax_plt_entry,
1813                   PLT_ENTRY_SIZE);
1814
1815       /* The offset is relative to the first extension word.  */
1816       bfd_put_32 (output_bfd,
1817                   -(h->plt.offset + 8),
1818                   splt->contents + h->plt.offset + 4);
1819
1820       bfd_put_32 (output_bfd, plt_index * sizeof (Elf32_External_Rela),
1821                   splt->contents + h->plt.offset + 8);
1822
1823       /* Fill in the entry in the global offset table.  */
1824       bfd_put_32 (output_bfd,
1825                   (splt->output_section->vma
1826                    + splt->output_offset
1827                    + h->plt.offset) + addend,
1828                   sgot->contents + got_offset);
1829
1830       /* Fill in the entry in the .rela.plt section.  */
1831       rela.r_offset = (sgot->output_section->vma
1832                        + sgot->output_offset
1833                        + got_offset);
1834       rela.r_info = ELF32_R_INFO (h->dynindx, R_VAX_JMP_SLOT);
1835       rela.r_addend = addend;
1836       loc = srela->contents + plt_index * sizeof (Elf32_External_Rela);
1837       bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
1838
1839       if (!h->def_regular)
1840         {
1841           /* Mark the symbol as undefined, rather than as defined in
1842              the .plt section.  Leave the value alone.  */
1843           sym->st_shndx = SHN_UNDEF;
1844         }
1845     }
1846
1847   if (h->got.offset != (bfd_vma) -1)
1848     {
1849       asection *sgot;
1850       asection *srela;
1851       Elf_Internal_Rela rela;
1852       bfd_byte *loc;
1853
1854       /* This symbol has an entry in the global offset table.  Set it
1855          up.  */
1856       sgot = bfd_get_linker_section (dynobj, ".got");
1857       srela = bfd_get_linker_section (dynobj, ".rela.got");
1858       BFD_ASSERT (sgot != NULL && srela != NULL);
1859
1860       rela.r_offset = (sgot->output_section->vma
1861                        + sgot->output_offset
1862                        + (h->got.offset &~ 1));
1863
1864       /* If the symbol was forced to be local because of a version file
1865          locally we just want to emit a RELATIVE reloc.  The entry in
1866          the global offset table will already have been initialized in
1867          the relocate_section function.  */
1868       if (info->shared
1869           && h->dynindx == -1
1870           && h->def_regular)
1871         {
1872           rela.r_info = ELF32_R_INFO (0, R_VAX_RELATIVE);
1873         }
1874       else
1875         {
1876           rela.r_info = ELF32_R_INFO (h->dynindx, R_VAX_GLOB_DAT);
1877         }
1878       rela.r_addend = bfd_get_signed_32 (output_bfd,
1879                                          (sgot->contents
1880                                           + (h->got.offset & ~1)));
1881
1882       loc = srela->contents;
1883       loc += srela->reloc_count++ * sizeof (Elf32_External_Rela);
1884       bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
1885     }
1886
1887   if (h->needs_copy)
1888     {
1889       asection *s;
1890       Elf_Internal_Rela rela;
1891       bfd_byte *loc;
1892
1893       /* This symbol needs a copy reloc.  Set it up.  */
1894       BFD_ASSERT (h->dynindx != -1
1895                   && (h->root.type == bfd_link_hash_defined
1896                       || h->root.type == bfd_link_hash_defweak));
1897
1898       s = bfd_get_linker_section (dynobj, ".rela.bss");
1899       BFD_ASSERT (s != NULL);
1900
1901       rela.r_offset = (h->root.u.def.value
1902                        + h->root.u.def.section->output_section->vma
1903                        + h->root.u.def.section->output_offset);
1904       rela.r_info = ELF32_R_INFO (h->dynindx, R_VAX_COPY);
1905       rela.r_addend = 0;
1906       loc = s->contents + s->reloc_count++ * sizeof (Elf32_External_Rela);
1907       bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
1908     }
1909
1910   /* Mark _DYNAMIC and _GLOBAL_OFFSET_TABLE_ as absolute.  */
1911   if (h == elf_hash_table (info)->hdynamic
1912       || h == elf_hash_table (info)->hgot)
1913     sym->st_shndx = SHN_ABS;
1914
1915   return TRUE;
1916 }
1917
1918 /* Finish up the dynamic sections.  */
1919
1920 static bfd_boolean
1921 elf_vax_finish_dynamic_sections (bfd *output_bfd, struct bfd_link_info *info)
1922 {
1923   bfd *dynobj;
1924   asection *sgot;
1925   asection *sdyn;
1926
1927   dynobj = elf_hash_table (info)->dynobj;
1928
1929   sgot = bfd_get_linker_section (dynobj, ".got.plt");
1930   BFD_ASSERT (sgot != NULL);
1931   sdyn = bfd_get_linker_section (dynobj, ".dynamic");
1932
1933   if (elf_hash_table (info)->dynamic_sections_created)
1934     {
1935       asection *splt;
1936       Elf32_External_Dyn *dyncon, *dynconend;
1937
1938       splt = bfd_get_linker_section (dynobj, ".plt");
1939       BFD_ASSERT (splt != NULL && sdyn != NULL);
1940
1941       dyncon = (Elf32_External_Dyn *) sdyn->contents;
1942       dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
1943       for (; dyncon < dynconend; dyncon++)
1944         {
1945           Elf_Internal_Dyn dyn;
1946           const char *name;
1947           asection *s;
1948
1949           bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
1950
1951           switch (dyn.d_tag)
1952             {
1953             default:
1954               break;
1955
1956             case DT_PLTGOT:
1957               name = ".got";
1958               goto get_vma;
1959             case DT_JMPREL:
1960               name = ".rela.plt";
1961             get_vma:
1962               s = bfd_get_section_by_name (output_bfd, name);
1963               BFD_ASSERT (s != NULL);
1964               dyn.d_un.d_ptr = s->vma;
1965               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
1966               break;
1967
1968             case DT_PLTRELSZ:
1969               s = bfd_get_section_by_name (output_bfd, ".rela.plt");
1970               BFD_ASSERT (s != NULL);
1971               dyn.d_un.d_val = s->size;
1972               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
1973               break;
1974
1975             case DT_RELASZ:
1976               /* The procedure linkage table relocs (DT_JMPREL) should
1977                  not be included in the overall relocs (DT_RELA).
1978                  Therefore, we override the DT_RELASZ entry here to
1979                  make it not include the JMPREL relocs.  Since the
1980                  linker script arranges for .rela.plt to follow all
1981                  other relocation sections, we don't have to worry
1982                  about changing the DT_RELA entry.  */
1983               s = bfd_get_section_by_name (output_bfd, ".rela.plt");
1984               if (s != NULL)
1985                 dyn.d_un.d_val -= s->size;
1986               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
1987               break;
1988             }
1989         }
1990
1991       /* Fill in the first entry in the procedure linkage table.  */
1992       if (splt->size > 0)
1993         {
1994           memcpy (splt->contents, elf_vax_plt0_entry, PLT_ENTRY_SIZE);
1995           bfd_put_32 (output_bfd,
1996                           (sgot->output_section->vma
1997                            + sgot->output_offset + 4
1998                            - (splt->output_section->vma + 6)),
1999                           splt->contents + 2);
2000           bfd_put_32 (output_bfd,
2001                           (sgot->output_section->vma
2002                            + sgot->output_offset + 8
2003                            - (splt->output_section->vma + 12)),
2004                           splt->contents + 8);
2005           elf_section_data (splt->output_section)->this_hdr.sh_entsize
2006            = PLT_ENTRY_SIZE;
2007         }
2008     }
2009
2010   /* Fill in the first three entries in the global offset table.  */
2011   if (sgot->size > 0)
2012     {
2013       if (sdyn == NULL)
2014         bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents);
2015       else
2016         bfd_put_32 (output_bfd,
2017                     sdyn->output_section->vma + sdyn->output_offset,
2018                     sgot->contents);
2019       bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 4);
2020       bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 8);
2021     }
2022
2023   elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4;
2024
2025   return TRUE;
2026 }
2027
2028 static enum elf_reloc_type_class
2029 elf_vax_reloc_type_class (const Elf_Internal_Rela *rela)
2030 {
2031   switch ((int) ELF32_R_TYPE (rela->r_info))
2032     {
2033     case R_VAX_RELATIVE:
2034       return reloc_class_relative;
2035     case R_VAX_JMP_SLOT:
2036       return reloc_class_plt;
2037     case R_VAX_COPY:
2038       return reloc_class_copy;
2039     default:
2040       return reloc_class_normal;
2041     }
2042 }
2043
2044 static bfd_vma
2045 elf_vax_plt_sym_val (bfd_vma i, const asection *plt,
2046                      const arelent *rel ATTRIBUTE_UNUSED)
2047 {
2048   return plt->vma + (i + 1) * PLT_ENTRY_SIZE;
2049 }
2050
2051 #define TARGET_LITTLE_SYM               bfd_elf32_vax_vec
2052 #define TARGET_LITTLE_NAME              "elf32-vax"
2053 #define ELF_MACHINE_CODE                EM_VAX
2054 #define ELF_MAXPAGESIZE                 0x1000
2055
2056 #define elf_backend_create_dynamic_sections \
2057                                         _bfd_elf_create_dynamic_sections
2058 #define bfd_elf32_bfd_link_hash_table_create \
2059                                         elf_vax_link_hash_table_create
2060 #define bfd_elf32_bfd_final_link        bfd_elf_gc_common_final_link
2061
2062 #define elf_backend_check_relocs        elf_vax_check_relocs
2063 #define elf_backend_adjust_dynamic_symbol \
2064                                         elf_vax_adjust_dynamic_symbol
2065 #define elf_backend_size_dynamic_sections \
2066                                         elf_vax_size_dynamic_sections
2067 #define elf_backend_init_index_section  _bfd_elf_init_1_index_section
2068 #define elf_backend_relocate_section    elf_vax_relocate_section
2069 #define elf_backend_finish_dynamic_symbol \
2070                                         elf_vax_finish_dynamic_symbol
2071 #define elf_backend_finish_dynamic_sections \
2072                                         elf_vax_finish_dynamic_sections
2073 #define elf_backend_reloc_type_class    elf_vax_reloc_type_class
2074 #define elf_backend_gc_mark_hook        elf_vax_gc_mark_hook
2075 #define elf_backend_gc_sweep_hook       elf_vax_gc_sweep_hook
2076 #define elf_backend_plt_sym_val         elf_vax_plt_sym_val
2077 #define bfd_elf32_bfd_merge_private_bfd_data \
2078                                         elf32_vax_merge_private_bfd_data
2079 #define bfd_elf32_bfd_set_private_flags \
2080                                         elf32_vax_set_private_flags
2081 #define bfd_elf32_bfd_print_private_bfd_data \
2082                                         elf32_vax_print_private_bfd_data
2083
2084 #define elf_backend_can_gc_sections     1
2085 #define elf_backend_want_got_plt        1
2086 #define elf_backend_plt_readonly        1
2087 #define elf_backend_want_plt_sym        0
2088 #define elf_backend_got_header_size     16
2089 #define elf_backend_rela_normal         1
2090
2091 #include "elf32-target.h"