bfd/elf32-ppc.c

   1 /* PowerPC-specific support for 32-bit ELF
   2    Copyright 1994, 95, 96, 97, 98, 1999 Free Software Foundation, Inc.
   3    Written by Ian Lance Taylor, Cygnus Support.
   4
   5 This file is part of BFD, the Binary File Descriptor library.
   6
   7 This program is free software; you can redistribute it and/or modify
   8 it under the terms of the GNU General Public License as published by
   9 the Free Software Foundation; either version 2 of the License, or
  10 (at your option) any later version.
  11
  12 This program is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with this program; if not, write to the Free Software
  19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  20
  21 /* This file is based on a preliminary PowerPC ELF ABI.  The
  22    information may not match the final PowerPC ELF ABI.  It includes
  23    suggestions from the in-progress Embedded PowerPC ABI, and that
  24    information may also not match.  */
  25
  26 #include "bfd.h"
  27 #include "sysdep.h"
  28 #include "bfdlink.h"
  29 #include "libbfd.h"
  30 #include "elf-bfd.h"
  31 #include "elf/ppc.h"
  32
  33 #define USE_RELA                /* we want RELA relocations, not REL */
  34
  35
  36 static reloc_howto_type *ppc_elf_reloc_type_lookup
  37   PARAMS ((bfd *abfd, bfd_reloc_code_real_type code));
  38 static void ppc_elf_info_to_howto
  39   PARAMS ((bfd *abfd, arelent *cache_ptr, Elf32_Internal_Rela *dst));
  40 static void ppc_elf_howto_init PARAMS ((void));
  41 static bfd_reloc_status_type ppc_elf_addr16_ha_reloc
  42   PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
  43 static boolean ppc_elf_set_private_flags PARAMS ((bfd *, flagword));
  44 static boolean ppc_elf_copy_private_bfd_data PARAMS ((bfd *, bfd *));
  45 static boolean ppc_elf_merge_private_bfd_data PARAMS ((bfd *, bfd *));
  46
  47 static int ppc_elf_additional_program_headers PARAMS ((bfd *));
  48 static boolean ppc_elf_modify_segment_map PARAMS ((bfd *));
  49
  50 static boolean ppc_elf_create_dynamic_sections
  51   PARAMS ((bfd *, struct bfd_link_info *));
  52
  53 static boolean ppc_elf_section_from_shdr PARAMS ((bfd *,
  54                                                   Elf32_Internal_Shdr *,
  55                                                   char *));
  56 static boolean ppc_elf_fake_sections
  57   PARAMS ((bfd *, Elf32_Internal_Shdr *, asection *));
  58
  59 static elf_linker_section_t *ppc_elf_create_linker_section
  60   PARAMS ((bfd *abfd,
  61            struct bfd_link_info *info,
  62            enum elf_linker_section_enum));
  63
  64 static boolean ppc_elf_check_relocs PARAMS ((bfd *,
  65                                              struct bfd_link_info *,
  66                                              asection *,
  67                                              const Elf_Internal_Rela *));
  68
  69 static asection * ppc_elf_gc_mark_hook PARAMS ((bfd *abfd,
  70                                                 struct bfd_link_info *info,
  71                                                 Elf_Internal_Rela *rel,
  72                                                 struct elf_link_hash_entry *h,
  73                                                 Elf_Internal_Sym *sym));
  74
  75 static boolean ppc_elf_gc_sweep_hook PARAMS ((bfd *abfd,
  76                                               struct bfd_link_info *info,
  77                                               asection *sec,
  78                                               const Elf_Internal_Rela *relocs));
  79
  80 static boolean ppc_elf_adjust_dynamic_symbol PARAMS ((struct bfd_link_info *,
  81                                                       struct elf_link_hash_entry *));
  82
  83 static boolean ppc_elf_size_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *));
  84
  85 static boolean ppc_elf_relocate_section PARAMS ((bfd *,
  86                                                  struct bfd_link_info *info,
  87                                                  bfd *,
  88                                                  asection *,
  89                                                  bfd_byte *,
  90                                                  Elf_Internal_Rela *relocs,
  91                                                  Elf_Internal_Sym *local_syms,
  92                                                  asection **));
  93
  94 static boolean ppc_elf_add_symbol_hook  PARAMS ((bfd *,
  95                                                  struct bfd_link_info *,
  96                                                  const Elf_Internal_Sym *,
  97                                                  const char **,
  98                                                  flagword *,
  99                                                  asection **,
 100                                                  bfd_vma *));
 101
 102 static boolean ppc_elf_finish_dynamic_symbol PARAMS ((bfd *,
 103                                                       struct bfd_link_info *,
 104                                                       struct elf_link_hash_entry *,
 105                                                       Elf_Internal_Sym *));
 106
 107 static boolean ppc_elf_finish_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *));
 108
 109 #define BRANCH_PREDICT_BIT 0x200000             /* branch prediction bit for branch taken relocs */
 110 #define RA_REGISTER_MASK 0x001f0000             /* mask to set RA in memory instructions */
 111 #define RA_REGISTER_SHIFT 16                    /* value to shift register by to insert RA */
 112
 113 /* The name of the dynamic interpreter.  This is put in the .interp
 114    section.  */
 115
 116 #define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
 117
 118 /* The size in bytes of an entry in the procedure linkage table.  */
 119 #define PLT_ENTRY_SIZE 12
 120 /* The initial size of the plt reserved for the dynamic linker.  */
 121 #define PLT_INITIAL_ENTRY_SIZE 72
 122 /* The size of the gap between entries in the PLT.  */
 123 #define PLT_SLOT_SIZE 8
 124 /* The number of single-slot PLT entries (the rest use two slots).  */
 125 #define PLT_NUM_SINGLE_ENTRIES 8192
 126
 127 \f
 128 static reloc_howto_type *ppc_elf_howto_table[ (int)R_PPC_max ];
 129
 130 static reloc_howto_type ppc_elf_howto_raw[] =
 131 {
 132   /* This reloc does nothing.  */
 133   HOWTO (R_PPC_NONE,            /* type */
 134          0,                     /* rightshift */
 135          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 136          32,                    /* bitsize */
 137          false,                 /* pc_relative */
 138          0,                     /* bitpos */
 139          complain_overflow_bitfield, /* complain_on_overflow */
 140          bfd_elf_generic_reloc, /* special_function */
 141          "R_PPC_NONE",          /* name */
 142          false,                 /* partial_inplace */
 143          0,                     /* src_mask */
 144          0,                     /* dst_mask */
 145          false),                /* pcrel_offset */
 146
 147   /* A standard 32 bit relocation.  */
 148   HOWTO (R_PPC_ADDR32,          /* type */
 149          0,                     /* rightshift */
 150          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 151          32,                    /* bitsize */
 152          false,                 /* pc_relative */
 153          0,                     /* bitpos */
 154          complain_overflow_bitfield, /* complain_on_overflow */
 155          bfd_elf_generic_reloc, /* special_function */
 156          "R_PPC_ADDR32",        /* name */
 157          false,                 /* partial_inplace */
 158          0,                     /* src_mask */
 159          0xffffffff,            /* dst_mask */
 160          false),                /* pcrel_offset */
 161
 162   /* An absolute 26 bit branch; the lower two bits must be zero.
 163      FIXME: we don't check that, we just clear them.  */
 164   HOWTO (R_PPC_ADDR24,          /* type */
 165          0,                     /* rightshift */
 166          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 167          26,                    /* bitsize */
 168          false,                 /* pc_relative */
 169          0,                     /* bitpos */
 170          complain_overflow_bitfield, /* complain_on_overflow */
 171          bfd_elf_generic_reloc, /* special_function */
 172          "R_PPC_ADDR24",        /* name */
 173          false,                 /* partial_inplace */
 174          0,                     /* src_mask */
 175          0x3fffffc,             /* dst_mask */
 176          false),                /* pcrel_offset */
 177
 178   /* A standard 16 bit relocation.  */
 179   HOWTO (R_PPC_ADDR16,          /* type */
 180          0,                     /* rightshift */
 181          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 182          16,                    /* bitsize */
 183          false,                 /* pc_relative */
 184          0,                     /* bitpos */
 185          complain_overflow_bitfield, /* complain_on_overflow */
 186          bfd_elf_generic_reloc, /* special_function */
 187          "R_PPC_ADDR16",        /* name */
 188          false,                 /* partial_inplace */
 189          0,                     /* src_mask */
 190          0xffff,                /* dst_mask */
 191          false),                /* pcrel_offset */
 192
 193   /* A 16 bit relocation without overflow.  */
 194   HOWTO (R_PPC_ADDR16_LO,       /* type */
 195          0,                     /* rightshift */
 196          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 197          16,                    /* bitsize */
 198          false,                 /* pc_relative */
 199          0,                     /* bitpos */
 200          complain_overflow_dont,/* complain_on_overflow */
 201          bfd_elf_generic_reloc, /* special_function */
 202          "R_PPC_ADDR16_LO",     /* name */
 203          false,                 /* partial_inplace */
 204          0,                     /* src_mask */
 205          0xffff,                /* dst_mask */
 206          false),                /* pcrel_offset */
 207
 208   /* The high order 16 bits of an address.  */
 209   HOWTO (R_PPC_ADDR16_HI,       /* type */
 210          16,                    /* rightshift */
 211          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 212          16,                    /* bitsize */
 213          false,                 /* pc_relative */
 214          0,                     /* bitpos */
 215          complain_overflow_dont, /* complain_on_overflow */
 216          bfd_elf_generic_reloc, /* special_function */
 217          "R_PPC_ADDR16_HI",     /* name */
 218          false,                 /* partial_inplace */
 219          0,                     /* src_mask */
 220          0xffff,                /* dst_mask */
 221          false),                /* pcrel_offset */
 222
 223   /* The high order 16 bits of an address, plus 1 if the contents of
 224      the low 16 bits, treated as a signed number, is negative.  */
 225   HOWTO (R_PPC_ADDR16_HA,       /* type */
 226          16,                    /* rightshift */
 227          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 228          16,                    /* bitsize */
 229          false,                 /* pc_relative */
 230          0,                     /* bitpos */
 231          complain_overflow_dont, /* complain_on_overflow */
 232          ppc_elf_addr16_ha_reloc, /* special_function */
 233          "R_PPC_ADDR16_HA",     /* name */
 234          false,                 /* partial_inplace */
 235          0,                     /* src_mask */
 236          0xffff,                /* dst_mask */
 237          false),                /* pcrel_offset */
 238
 239   /* An absolute 16 bit branch; the lower two bits must be zero.
 240      FIXME: we don't check that, we just clear them.  */
 241   HOWTO (R_PPC_ADDR14,          /* type */
 242          0,                     /* rightshift */
 243          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 244          16,                    /* bitsize */
 245          false,                 /* pc_relative */
 246          0,                     /* bitpos */
 247          complain_overflow_bitfield, /* complain_on_overflow */
 248          bfd_elf_generic_reloc, /* special_function */
 249          "R_PPC_ADDR14",        /* name */
 250          false,                 /* partial_inplace */
 251          0,                     /* src_mask */
 252          0xfffc,                /* dst_mask */
 253          false),                /* pcrel_offset */
 254
 255   /* An absolute 16 bit branch, for which bit 10 should be set to
 256      indicate that the branch is expected to be taken.  The lower two
 257      bits must be zero.  */
 258   HOWTO (R_PPC_ADDR14_BRTAKEN,  /* type */
 259          0,                     /* rightshift */
 260          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 261          16,                    /* bitsize */
 262          false,                 /* pc_relative */
 263          0,                     /* bitpos */
 264          complain_overflow_bitfield, /* complain_on_overflow */
 265          bfd_elf_generic_reloc, /* special_function */
 266          "R_PPC_ADDR14_BRTAKEN",/* name */
 267          false,                 /* partial_inplace */
 268          0,                     /* src_mask */
 269          0xfffc,                /* dst_mask */
 270          false),                /* pcrel_offset */
 271
 272   /* An absolute 16 bit branch, for which bit 10 should be set to
 273      indicate that the branch is not expected to be taken.  The lower
 274      two bits must be zero.  */
 275   HOWTO (R_PPC_ADDR14_BRNTAKEN, /* type */
 276          0,                     /* rightshift */
 277          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 278          16,                    /* bitsize */
 279          false,                 /* pc_relative */
 280          0,                     /* bitpos */
 281          complain_overflow_bitfield, /* complain_on_overflow */
 282          bfd_elf_generic_reloc, /* special_function */
 283          "R_PPC_ADDR14_BRNTAKEN",/* name */
 284          false,                 /* partial_inplace */
 285          0,                     /* src_mask */
 286          0xfffc,                /* dst_mask */
 287          false),                /* pcrel_offset */
 288
 289   /* A relative 26 bit branch; the lower two bits must be zero.  */
 290   HOWTO (R_PPC_REL24,           /* type */
 291          0,                     /* rightshift */
 292          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 293          26,                    /* bitsize */
 294          true,                  /* pc_relative */
 295          0,                     /* bitpos */
 296          complain_overflow_signed, /* complain_on_overflow */
 297          bfd_elf_generic_reloc, /* special_function */
 298          "R_PPC_REL24",         /* name */
 299          false,                 /* partial_inplace */
 300          0,                     /* src_mask */
 301          0x3fffffc,             /* dst_mask */
 302          true),                 /* pcrel_offset */
 303
 304   /* A relative 16 bit branch; the lower two bits must be zero.  */
 305   HOWTO (R_PPC_REL14,           /* type */
 306          0,                     /* rightshift */
 307          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 308          16,                    /* bitsize */
 309          true,                  /* pc_relative */
 310          0,                     /* bitpos */
 311          complain_overflow_signed, /* complain_on_overflow */
 312          bfd_elf_generic_reloc, /* special_function */
 313          "R_PPC_REL14",         /* name */
 314          false,                 /* partial_inplace */
 315          0,                     /* src_mask */
 316          0xfffc,                /* dst_mask */
 317          true),                 /* pcrel_offset */
 318
 319   /* A relative 16 bit branch.  Bit 10 should be set to indicate that
 320      the branch is expected to be taken.  The lower two bits must be
 321      zero.  */
 322   HOWTO (R_PPC_REL14_BRTAKEN,   /* type */
 323          0,                     /* rightshift */
 324          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 325          16,                    /* bitsize */
 326          true,                  /* pc_relative */
 327          0,                     /* bitpos */
 328          complain_overflow_signed, /* complain_on_overflow */
 329          bfd_elf_generic_reloc, /* special_function */
 330          "R_PPC_REL14_BRTAKEN", /* name */
 331          false,                 /* partial_inplace */
 332          0,                     /* src_mask */
 333          0xfffc,                /* dst_mask */
 334          true),                 /* pcrel_offset */
 335
 336   /* A relative 16 bit branch.  Bit 10 should be set to indicate that
 337      the branch is not expected to be taken.  The lower two bits must
 338      be zero.  */
 339   HOWTO (R_PPC_REL14_BRNTAKEN,  /* type */
 340          0,                     /* rightshift */
 341          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 342          16,                    /* bitsize */
 343          true,                  /* pc_relative */
 344          0,                     /* bitpos */
 345          complain_overflow_signed, /* complain_on_overflow */
 346          bfd_elf_generic_reloc, /* special_function */
 347          "R_PPC_REL14_BRNTAKEN",/* name */
 348          false,                 /* partial_inplace */
 349          0,                     /* src_mask */
 350          0xfffc,                /* dst_mask */
 351          true),                 /* pcrel_offset */
 352
 353   /* Like R_PPC_ADDR16, but referring to the GOT table entry for the
 354      symbol.  */
 355   HOWTO (R_PPC_GOT16,           /* type */
 356          0,                     /* rightshift */
 357          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 358          16,                    /* bitsize */
 359          false,                 /* pc_relative */
 360          0,                     /* bitpos */
 361          complain_overflow_signed, /* complain_on_overflow */
 362          bfd_elf_generic_reloc, /* special_function */
 363          "R_PPC_GOT16",         /* name */
 364          false,                 /* partial_inplace */
 365          0,                     /* src_mask */
 366          0xffff,                /* dst_mask */
 367          false),                /* pcrel_offset */
 368
 369   /* Like R_PPC_ADDR16_LO, but referring to the GOT table entry for
 370      the symbol.  */
 371   HOWTO (R_PPC_GOT16_LO,        /* type */
 372          0,                     /* rightshift */
 373          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 374          16,                    /* bitsize */
 375          false,                 /* pc_relative */
 376          0,                     /* bitpos */
 377          complain_overflow_dont, /* complain_on_overflow */
 378          bfd_elf_generic_reloc, /* special_function */
 379          "R_PPC_GOT16_LO",      /* name */
 380          false,                 /* partial_inplace */
 381          0,                     /* src_mask */
 382          0xffff,                /* dst_mask */
 383          false),                /* pcrel_offset */
 384
 385   /* Like R_PPC_ADDR16_HI, but referring to the GOT table entry for
 386      the symbol.  */
 387   HOWTO (R_PPC_GOT16_HI,        /* type */
 388          16,                    /* rightshift */
 389          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 390          16,                    /* bitsize */
 391          false,                 /* pc_relative */
 392          0,                     /* bitpos */
 393          complain_overflow_bitfield, /* complain_on_overflow */
 394          bfd_elf_generic_reloc, /* special_function */
 395          "R_PPC_GOT16_HI",      /* name */
 396          false,                 /* partial_inplace */
 397          0,                     /* src_mask */
 398          0xffff,                /* dst_mask */
 399          false),                 /* pcrel_offset */
 400
 401   /* Like R_PPC_ADDR16_HA, but referring to the GOT table entry for
 402      the symbol.  */
 403   HOWTO (R_PPC_GOT16_HA,        /* type */
 404          16,                    /* rightshift */
 405          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 406          16,                    /* bitsize */
 407          false,                 /* pc_relative */
 408          0,                     /* bitpos */
 409          complain_overflow_bitfield, /* complain_on_overflow */
 410          ppc_elf_addr16_ha_reloc, /* special_function */
 411          "R_PPC_GOT16_HA",      /* name */
 412          false,                 /* partial_inplace */
 413          0,                     /* src_mask */
 414          0xffff,                /* dst_mask */
 415          false),                /* pcrel_offset */
 416
 417   /* Like R_PPC_REL24, but referring to the procedure linkage table
 418      entry for the symbol.  */
 419   HOWTO (R_PPC_PLTREL24,        /* type */
 420          0,                     /* rightshift */
 421          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 422          26,                    /* bitsize */
 423          true,                  /* pc_relative */
 424          0,                     /* bitpos */
 425          complain_overflow_signed,  /* complain_on_overflow */
 426          bfd_elf_generic_reloc, /* special_function */
 427          "R_PPC_PLTREL24",      /* name */
 428          false,                 /* partial_inplace */
 429          0,                     /* src_mask */
 430          0x3fffffc,             /* dst_mask */
 431          true),                 /* pcrel_offset */
 432
 433   /* This is used only by the dynamic linker.  The symbol should exist
 434      both in the object being run and in some shared library.  The
 435      dynamic linker copies the data addressed by the symbol from the
 436      shared library into the object, because the object being
 437      run has to have the data at some particular address.  */
 438   HOWTO (R_PPC_COPY,            /* type */
 439          0,                     /* rightshift */
 440          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 441          32,                    /* bitsize */
 442          false,                 /* pc_relative */
 443          0,                     /* bitpos */
 444          complain_overflow_bitfield, /* complain_on_overflow */
 445          bfd_elf_generic_reloc,  /* special_function */
 446          "R_PPC_COPY",          /* name */
 447          false,                 /* partial_inplace */
 448          0,                     /* src_mask */
 449          0,                     /* dst_mask */
 450          false),                /* pcrel_offset */
 451
 452   /* Like R_PPC_ADDR32, but used when setting global offset table
 453      entries.  */
 454   HOWTO (R_PPC_GLOB_DAT,        /* type */
 455          0,                     /* rightshift */
 456          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 457          32,                    /* bitsize */
 458          false,                 /* pc_relative */
 459          0,                     /* bitpos */
 460          complain_overflow_bitfield, /* complain_on_overflow */
 461          bfd_elf_generic_reloc,  /* special_function */
 462          "R_PPC_GLOB_DAT",      /* name */
 463          false,                 /* partial_inplace */
 464          0,                     /* src_mask */
 465          0xffffffff,            /* dst_mask */
 466          false),                /* pcrel_offset */
 467
 468   /* Marks a procedure linkage table entry for a symbol.  */
 469   HOWTO (R_PPC_JMP_SLOT,        /* type */
 470          0,                     /* rightshift */
 471          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 472          32,                    /* bitsize */
 473          false,                 /* pc_relative */
 474          0,                     /* bitpos */
 475          complain_overflow_bitfield, /* complain_on_overflow */
 476          bfd_elf_generic_reloc,  /* special_function */
 477          "R_PPC_JMP_SLOT",      /* name */
 478          false,                 /* partial_inplace */
 479          0,                     /* src_mask */
 480          0,                     /* dst_mask */
 481          false),                /* pcrel_offset */
 482
 483   /* Used only by the dynamic linker.  When the object is run, this
 484      longword is set to the load address of the object, plus the
 485      addend.  */
 486   HOWTO (R_PPC_RELATIVE,        /* type */
 487          0,                     /* rightshift */
 488          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 489          32,                    /* bitsize */
 490          false,                 /* pc_relative */
 491          0,                     /* bitpos */
 492          complain_overflow_bitfield, /* complain_on_overflow */
 493          bfd_elf_generic_reloc,  /* special_function */
 494          "R_PPC_RELATIVE",      /* name */
 495          false,                 /* partial_inplace */
 496          0,                     /* src_mask */
 497          0xffffffff,            /* dst_mask */
 498          false),                /* pcrel_offset */
 499
 500   /* Like R_PPC_REL24, but uses the value of the symbol within the
 501      object rather than the final value.  Normally used for
 502      _GLOBAL_OFFSET_TABLE_.  */
 503   HOWTO (R_PPC_LOCAL24PC,       /* type */
 504          0,                     /* rightshift */
 505          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 506          26,                    /* bitsize */
 507          true,                  /* pc_relative */
 508          0,                     /* bitpos */
 509          complain_overflow_signed, /* complain_on_overflow */
 510          bfd_elf_generic_reloc, /* special_function */
 511          "R_PPC_LOCAL24PC",     /* name */
 512          false,                 /* partial_inplace */
 513          0,                     /* src_mask */
 514          0x3fffffc,             /* dst_mask */
 515          true),                 /* pcrel_offset */
 516
 517   /* Like R_PPC_ADDR32, but may be unaligned.  */
 518   HOWTO (R_PPC_UADDR32,         /* type */
 519          0,                     /* rightshift */
 520          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 521          32,                    /* bitsize */
 522          false,                 /* pc_relative */
 523          0,                     /* bitpos */
 524          complain_overflow_bitfield, /* complain_on_overflow */
 525          bfd_elf_generic_reloc, /* special_function */
 526          "R_PPC_UADDR32",       /* name */
 527          false,                 /* partial_inplace */
 528          0,                     /* src_mask */
 529          0xffffffff,            /* dst_mask */
 530          false),                /* pcrel_offset */
 531
 532   /* Like R_PPC_ADDR16, but may be unaligned.  */
 533   HOWTO (R_PPC_UADDR16,         /* type */
 534          0,                     /* rightshift */
 535          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 536          16,                    /* bitsize */
 537          false,                 /* pc_relative */
 538          0,                     /* bitpos */
 539          complain_overflow_bitfield, /* complain_on_overflow */
 540          bfd_elf_generic_reloc, /* special_function */
 541          "R_PPC_UADDR16",       /* name */
 542          false,                 /* partial_inplace */
 543          0,                     /* src_mask */
 544          0xffff,                /* dst_mask */
 545          false),                /* pcrel_offset */
 546
 547   /* 32-bit PC relative */
 548   HOWTO (R_PPC_REL32,           /* type */
 549          0,                     /* rightshift */
 550          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 551          32,                    /* bitsize */
 552          true,                  /* pc_relative */
 553          0,                     /* bitpos */
 554          complain_overflow_bitfield, /* complain_on_overflow */
 555          bfd_elf_generic_reloc, /* special_function */
 556          "R_PPC_REL32",         /* name */
 557          false,                 /* partial_inplace */
 558          0,                     /* src_mask */
 559          0xffffffff,            /* dst_mask */
 560          true),                 /* pcrel_offset */
 561
 562   /* 32-bit relocation to the symbol's procedure linkage table.
 563      FIXME: not supported. */
 564   HOWTO (R_PPC_PLT32,           /* type */
 565          0,                     /* rightshift */
 566          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 567          32,                    /* bitsize */
 568          false,                 /* pc_relative */
 569          0,                     /* bitpos */
 570          complain_overflow_bitfield, /* complain_on_overflow */
 571          bfd_elf_generic_reloc, /* special_function */
 572          "R_PPC_PLT32",         /* name */
 573          false,                 /* partial_inplace */
 574          0,                     /* src_mask */
 575          0,                     /* dst_mask */
 576          false),                /* pcrel_offset */
 577
 578   /* 32-bit PC relative relocation to the symbol's procedure linkage table.
 579      FIXME: not supported. */
 580   HOWTO (R_PPC_PLTREL32,        /* type */
 581          0,                     /* rightshift */
 582          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 583          32,                    /* bitsize */
 584          true,                  /* pc_relative */
 585          0,                     /* bitpos */
 586          complain_overflow_bitfield, /* complain_on_overflow */
 587          bfd_elf_generic_reloc, /* special_function */
 588          "R_PPC_PLTREL32",      /* name */
 589          false,                 /* partial_inplace */
 590          0,                     /* src_mask */
 591          0,                     /* dst_mask */
 592          true),                 /* pcrel_offset */
 593
 594   /* Like R_PPC_ADDR16_LO, but referring to the PLT table entry for
 595      the symbol.  */
 596   HOWTO (R_PPC_PLT16_LO,        /* type */
 597          0,                     /* rightshift */
 598          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 599          16,                    /* bitsize */
 600          false,                 /* pc_relative */
 601          0,                     /* bitpos */
 602          complain_overflow_dont, /* complain_on_overflow */
 603          bfd_elf_generic_reloc, /* special_function */
 604          "R_PPC_PLT16_LO",      /* name */
 605          false,                 /* partial_inplace */
 606          0,                     /* src_mask */
 607          0xffff,                /* dst_mask */
 608          false),                /* pcrel_offset */
 609
 610   /* Like R_PPC_ADDR16_HI, but referring to the PLT table entry for
 611      the symbol.  */
 612   HOWTO (R_PPC_PLT16_HI,        /* type */
 613          16,                    /* rightshift */
 614          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 615          16,                    /* bitsize */
 616          false,                 /* pc_relative */
 617          0,                     /* bitpos */
 618          complain_overflow_bitfield, /* complain_on_overflow */
 619          bfd_elf_generic_reloc, /* special_function */
 620          "R_PPC_PLT16_HI",      /* name */
 621          false,                 /* partial_inplace */
 622          0,                     /* src_mask */
 623          0xffff,                /* dst_mask */
 624          false),                 /* pcrel_offset */
 625
 626   /* Like R_PPC_ADDR16_HA, but referring to the PLT table entry for
 627      the symbol.  */
 628   HOWTO (R_PPC_PLT16_HA,        /* type */
 629          16,                    /* rightshift */
 630          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 631          16,                    /* bitsize */
 632          false,                 /* pc_relative */
 633          0,                     /* bitpos */
 634          complain_overflow_bitfield, /* complain_on_overflow */
 635          ppc_elf_addr16_ha_reloc, /* special_function */
 636          "R_PPC_PLT16_HA",      /* name */
 637          false,                 /* partial_inplace */
 638          0,                     /* src_mask */
 639          0xffff,                /* dst_mask */
 640          false),                /* pcrel_offset */
 641
 642   /* A sign-extended 16 bit value relative to _SDA_BASE_, for use with
 643      small data items.  */
 644   HOWTO (R_PPC_SDAREL16,        /* type */
 645          0,                     /* rightshift */
 646          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 647          16,                    /* bitsize */
 648          false,                 /* pc_relative */
 649          0,                     /* bitpos */
 650          complain_overflow_signed, /* complain_on_overflow */
 651          bfd_elf_generic_reloc, /* special_function */
 652          "R_PPC_SDAREL16",      /* name */
 653          false,                 /* partial_inplace */
 654          0,                     /* src_mask */
 655          0xffff,                /* dst_mask */
 656          false),                /* pcrel_offset */
 657
 658   /* 32-bit section relative relocation. */
 659   HOWTO (R_PPC_SECTOFF,         /* type */
 660          0,                     /* rightshift */
 661          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 662          32,                    /* bitsize */
 663          true,                  /* pc_relative */
 664          0,                     /* bitpos */
 665          complain_overflow_bitfield, /* complain_on_overflow */
 666          bfd_elf_generic_reloc, /* special_function */
 667          "R_PPC_SECTOFF",       /* name */
 668          false,                 /* partial_inplace */
 669          0,                     /* src_mask */
 670          0,                     /* dst_mask */
 671          true),                 /* pcrel_offset */
 672
 673   /* 16-bit lower half section relative relocation. */
 674   HOWTO (R_PPC_SECTOFF_LO,        /* type */
 675          0,                     /* rightshift */
 676          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 677          16,                    /* bitsize */
 678          false,                 /* pc_relative */
 679          0,                     /* bitpos */
 680          complain_overflow_dont, /* complain_on_overflow */
 681          bfd_elf_generic_reloc, /* special_function */
 682          "R_PPC_SECTOFF_LO",    /* name */
 683          false,                 /* partial_inplace */
 684          0,                     /* src_mask */
 685          0xffff,                /* dst_mask */
 686          false),                /* pcrel_offset */
 687
 688   /* 16-bit upper half section relative relocation. */
 689   HOWTO (R_PPC_SECTOFF_HI,      /* type */
 690          16,                    /* rightshift */
 691          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 692          16,                    /* bitsize */
 693          false,                 /* pc_relative */
 694          0,                     /* bitpos */
 695          complain_overflow_bitfield, /* complain_on_overflow */
 696          bfd_elf_generic_reloc, /* special_function */
 697          "R_PPC_SECTOFF_HI",    /* name */
 698          false,                 /* partial_inplace */
 699          0,                     /* src_mask */
 700          0xffff,                /* dst_mask */
 701          false),                 /* pcrel_offset */
 702
 703   /* 16-bit upper half adjusted section relative relocation. */
 704   HOWTO (R_PPC_SECTOFF_HA,      /* type */
 705          16,                    /* rightshift */
 706          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 707          16,                    /* bitsize */
 708          false,                 /* pc_relative */
 709          0,                     /* bitpos */
 710          complain_overflow_bitfield, /* complain_on_overflow */
 711          ppc_elf_addr16_ha_reloc, /* special_function */
 712          "R_PPC_SECTOFF_HA",    /* name */
 713          false,                 /* partial_inplace */
 714          0,                     /* src_mask */
 715          0xffff,                /* dst_mask */
 716          false),                /* pcrel_offset */
 717
 718   /* The remaining relocs are from the Embedded ELF ABI, and are not
 719      in the SVR4 ELF ABI.  */
 720
 721   /* 32 bit value resulting from the addend minus the symbol */
 722   HOWTO (R_PPC_EMB_NADDR32,     /* type */
 723          0,                     /* rightshift */
 724          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 725          32,                    /* bitsize */
 726          false,                 /* pc_relative */
 727          0,                     /* bitpos */
 728          complain_overflow_bitfield, /* complain_on_overflow */
 729          bfd_elf_generic_reloc, /* special_function */
 730          "R_PPC_EMB_NADDR32",   /* name */
 731          false,                 /* partial_inplace */
 732          0,                     /* src_mask */
 733          0xffffffff,            /* dst_mask */
 734          false),                /* pcrel_offset */
 735
 736   /* 16 bit value resulting from the addend minus the symbol */
 737   HOWTO (R_PPC_EMB_NADDR16,     /* type */
 738          0,                     /* rightshift */
 739          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 740          16,                    /* bitsize */
 741          false,                 /* pc_relative */
 742          0,                     /* bitpos */
 743          complain_overflow_bitfield, /* complain_on_overflow */
 744          bfd_elf_generic_reloc, /* special_function */
 745          "R_PPC_EMB_NADDR16",   /* name */
 746          false,                 /* partial_inplace */
 747          0,                     /* src_mask */
 748          0xffff,                /* dst_mask */
 749          false),                /* pcrel_offset */
 750
 751   /* 16 bit value resulting from the addend minus the symbol */
 752   HOWTO (R_PPC_EMB_NADDR16_LO,  /* type */
 753          0,                     /* rightshift */
 754          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 755          16,                    /* bitsize */
 756          false,                 /* pc_relative */
 757          0,                     /* bitpos */
 758          complain_overflow_dont,/* complain_on_overflow */
 759          bfd_elf_generic_reloc, /* special_function */
 760          "R_PPC_EMB_ADDR16_LO", /* name */
 761          false,                 /* partial_inplace */
 762          0,                     /* src_mask */
 763          0xffff,                /* dst_mask */
 764          false),                /* pcrel_offset */
 765
 766   /* The high order 16 bits of the addend minus the symbol */
 767   HOWTO (R_PPC_EMB_NADDR16_HI,  /* type */
 768          16,                    /* rightshift */
 769          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 770          16,                    /* bitsize */
 771          false,                 /* pc_relative */
 772          0,                     /* bitpos */
 773          complain_overflow_dont, /* complain_on_overflow */
 774          bfd_elf_generic_reloc, /* special_function */
 775          "R_PPC_EMB_NADDR16_HI", /* name */
 776          false,                 /* partial_inplace */
 777          0,                     /* src_mask */
 778          0xffff,                /* dst_mask */
 779          false),                /* pcrel_offset */
 780
 781   /* The high order 16 bits of the result of the addend minus the address,
 782      plus 1 if the contents of the low 16 bits, treated as a signed number,
 783      is negative.  */
 784   HOWTO (R_PPC_EMB_NADDR16_HA,  /* type */
 785          16,                    /* rightshift */
 786          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 787          16,                    /* bitsize */
 788          false,                 /* pc_relative */
 789          0,                     /* bitpos */
 790          complain_overflow_dont, /* complain_on_overflow */
 791          ppc_elf_addr16_ha_reloc, /* special_function */
 792          "R_PPC_EMB_NADDR16_HA", /* name */
 793          false,                 /* partial_inplace */
 794          0,                     /* src_mask */
 795          0xffff,                /* dst_mask */
 796          false),                /* pcrel_offset */
 797
 798   /* 16 bit value resulting from allocating a 4 byte word to hold an
 799      address in the .sdata section, and returning the offset from
 800      _SDA_BASE_ for that relocation */
 801   HOWTO (R_PPC_EMB_SDAI16,      /* type */
 802          0,                     /* rightshift */
 803          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 804          16,                    /* bitsize */
 805          false,                 /* pc_relative */
 806          0,                     /* bitpos */
 807          complain_overflow_bitfield, /* complain_on_overflow */
 808          bfd_elf_generic_reloc, /* special_function */
 809          "R_PPC_EMB_SDAI16",    /* name */
 810          false,                 /* partial_inplace */
 811          0,                     /* src_mask */
 812          0xffff,                /* dst_mask */
 813          false),                /* pcrel_offset */
 814
 815   /* 16 bit value resulting from allocating a 4 byte word to hold an
 816      address in the .sdata2 section, and returning the offset from
 817      _SDA2_BASE_ for that relocation */
 818   HOWTO (R_PPC_EMB_SDA2I16,     /* type */
 819          0,                     /* rightshift */
 820          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 821          16,                    /* bitsize */
 822          false,                 /* pc_relative */
 823          0,                     /* bitpos */
 824          complain_overflow_bitfield, /* complain_on_overflow */
 825          bfd_elf_generic_reloc, /* special_function */
 826          "R_PPC_EMB_SDA2I16",   /* name */
 827          false,                 /* partial_inplace */
 828          0,                     /* src_mask */
 829          0xffff,                /* dst_mask */
 830          false),                /* pcrel_offset */
 831
 832   /* A sign-extended 16 bit value relative to _SDA2_BASE_, for use with
 833      small data items.   */
 834   HOWTO (R_PPC_EMB_SDA2REL,     /* type */
 835          0,                     /* rightshift */
 836          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 837          16,                    /* bitsize */
 838          false,                 /* pc_relative */
 839          0,                     /* bitpos */
 840          complain_overflow_signed, /* complain_on_overflow */
 841          bfd_elf_generic_reloc, /* special_function */
 842          "R_PPC_EMB_SDA2REL",   /* name */
 843          false,                 /* partial_inplace */
 844          0,                     /* src_mask */
 845          0xffff,                /* dst_mask */
 846          false),                /* pcrel_offset */
 847
 848   /* Relocate against either _SDA_BASE_ or _SDA2_BASE_, filling in the 16 bit
 849      signed offset from the appropriate base, and filling in the register
 850      field with the appropriate register (0, 2, or 13).  */
 851   HOWTO (R_PPC_EMB_SDA21,       /* type */
 852          0,                     /* rightshift */
 853          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 854          16,                    /* bitsize */
 855          false,                 /* pc_relative */
 856          0,                     /* bitpos */
 857          complain_overflow_signed, /* complain_on_overflow */
 858          bfd_elf_generic_reloc, /* special_function */
 859          "R_PPC_EMB_SDA21",     /* name */
 860          false,                 /* partial_inplace */
 861          0,                     /* src_mask */
 862          0xffff,                /* dst_mask */
 863          false),                /* pcrel_offset */
 864
 865   /* Relocation not handled: R_PPC_EMB_MRKREF */
 866   /* Relocation not handled: R_PPC_EMB_RELSEC16 */
 867   /* Relocation not handled: R_PPC_EMB_RELST_LO */
 868   /* Relocation not handled: R_PPC_EMB_RELST_HI */
 869   /* Relocation not handled: R_PPC_EMB_RELST_HA */
 870   /* Relocation not handled: R_PPC_EMB_BIT_FLD */
 871
 872   /* PC relative relocation against either _SDA_BASE_ or _SDA2_BASE_, filling
 873      in the 16 bit signed offset from the appropriate base, and filling in the
 874      register field with the appropriate register (0, 2, or 13).  */
 875   HOWTO (R_PPC_EMB_RELSDA,      /* type */
 876          0,                     /* rightshift */
 877          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 878          16,                    /* bitsize */
 879          true,                  /* pc_relative */
 880          0,                     /* bitpos */
 881          complain_overflow_signed, /* complain_on_overflow */
 882          bfd_elf_generic_reloc, /* special_function */
 883          "R_PPC_EMB_RELSDA",    /* name */
 884          false,                 /* partial_inplace */
 885          0,                     /* src_mask */
 886          0xffff,                /* dst_mask */
 887          false),                /* pcrel_offset */
 888
 889   /* GNU extension to record C++ vtable hierarchy */
 890   HOWTO (R_PPC_GNU_VTINHERIT,   /* type */
 891          0,                     /* rightshift */
 892          0,                     /* size (0 = byte, 1 = short, 2 = long) */
 893          0,                     /* bitsize */
 894          false,                 /* pc_relative */
 895          0,                     /* bitpos */
 896          complain_overflow_dont, /* complain_on_overflow */
 897          NULL,                  /* special_function */
 898          "R_PPC_GNU_VTINHERIT", /* name */
 899          false,                 /* partial_inplace */
 900          0,                     /* src_mask */
 901          0,                     /* dst_mask */
 902          false),                /* pcrel_offset */
 903
 904   /* GNU extension to record C++ vtable member usage */
 905   HOWTO (R_PPC_GNU_VTENTRY,     /* type */
 906          0,                     /* rightshift */
 907          0,                     /* size (0 = byte, 1 = short, 2 = long) */
 908          0,                     /* bitsize */
 909          false,                 /* pc_relative */
 910          0,                     /* bitpos */
 911          complain_overflow_dont, /* complain_on_overflow */
 912          NULL,                  /* special_function */
 913          "R_PPC_GNU_VTENTRY",   /* name */
 914          false,                 /* partial_inplace */
 915          0,                     /* src_mask */
 916          0,                     /* dst_mask */
 917          false),                /* pcrel_offset */
 918
 919   /* Phony reloc to handle AIX style TOC entries */
 920   HOWTO (R_PPC_TOC16,           /* type */
 921          0,                     /* rightshift */
 922          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 923          16,                    /* bitsize */
 924          false,                 /* pc_relative */
 925          0,                     /* bitpos */
 926          complain_overflow_signed, /* complain_on_overflow */
 927          bfd_elf_generic_reloc, /* special_function */
 928          "R_PPC_TOC16",         /* name */
 929          false,                 /* partial_inplace */
 930          0,                     /* src_mask */
 931          0xffff,                /* dst_mask */
 932          false),                /* pcrel_offset */
 933 };
 934
 935 \f
 936 /* Initialize the ppc_elf_howto_table, so that linear accesses can be done.  */
 937
 938 static void
 939 ppc_elf_howto_init ()
 940 {
 941   unsigned int i, type;
 942
 943   for (i = 0; i < sizeof (ppc_elf_howto_raw) / sizeof (ppc_elf_howto_raw[0]); i++)
 944     {
 945       type = ppc_elf_howto_raw[i].type;
 946       BFD_ASSERT (type < sizeof(ppc_elf_howto_table) / sizeof(ppc_elf_howto_table[0]));
 947       ppc_elf_howto_table[type] = &ppc_elf_howto_raw[i];
 948     }
 949 }
 950
 951 \f
 952 /* This function handles relaxing for the PPC with option --mpc860c0[=<n>].
 953
 954    The MPC860, revision C0 or earlier contains a bug in the die.
 955    If all of the following conditions are true, the next instruction
 956    to be executed *may* be treated as a no-op.
 957    1/ A forward branch is executed.
 958    2/ The branch is predicted as not taken.
 959    3/ The branch is taken.
 960    4/ The branch is located in the last 5 words of a page.
 961       (The EOP limit is 5 by default but may be specified as any value from 1-10.)
 962
 963    Our software solution is to detect these problematic branches in a
 964    linker pass and modify them as follows:
 965    1/ Unconditional branches - Since these are always predicted taken,
 966       there is no problem and no action is required.
 967    2/ Conditional backward branches - No problem, no action required.
 968    3/ Conditional forward branches - Ensure that the "inverse prediction
 969       bit" is set (ensure it is predicted taken).
 970    4/ Conditional register branches - Ensure that the "y bit" is set
 971       (ensure it is predicted taken).
 972 */
 973
 974 /* Sort sections by address.  */
 975
 976 static int
 977 ppc_elf_sort_rela (arg1, arg2)
 978     const void *arg1;
 979     const void *arg2;
 980 {
 981   const Elf_Internal_Rela **rela1 = (const Elf_Internal_Rela**) arg1;
 982   const Elf_Internal_Rela **rela2 = (const Elf_Internal_Rela**) arg2;
 983
 984   /* Sort by offset. */
 985   return ((*rela1)->r_offset - (*rela2)->r_offset);
 986 }
 987
 988 static boolean
 989 ppc_elf_relax_section (abfd, isec, link_info, again)
 990     bfd *abfd;
 991     asection *isec;
 992     struct bfd_link_info *link_info;
 993     boolean *again;
 994 {
 995 #define PAGESIZE 0x1000
 996
 997   bfd_byte *contents = NULL;
 998   bfd_byte *free_contents = NULL;
 999   Elf_Internal_Rela *internal_relocs = NULL;
1000   Elf_Internal_Rela *free_relocs = NULL;
1001   Elf_Internal_Rela **rela_comb = NULL;
1002   int comb_curr, comb_count;
1003
1004   /* We never have to do this more than once per input section. */
1005   *again = false;
1006
1007   /* If needed, initialize this section's cooked size.  */
1008   if (isec->_cooked_size == 0)
1009       isec->_cooked_size = isec->_raw_size;
1010
1011   /* We're only interested in text sections which overlap the
1012   troublesome area at the end of a page. */
1013   if (link_info->mpc860c0 && (isec->flags & SEC_CODE) && isec->_cooked_size)
1014     {
1015       bfd_vma dot, end_page, end_section;
1016       boolean section_modified;
1017
1018       /* Get the section contents. */
1019       /* Get cached copy if it exists.  */
1020       if (elf_section_data (isec)->this_hdr.contents != NULL)
1021           contents = elf_section_data (isec)->this_hdr.contents;
1022       else
1023         {
1024           /* Go get them off disk.  */
1025           contents = (bfd_byte *) bfd_malloc (isec->_raw_size);
1026           if (contents == NULL)
1027               goto error_return;
1028           free_contents = contents;
1029
1030           if (! bfd_get_section_contents (abfd, isec, contents,
1031                                           (file_ptr) 0, isec->_raw_size))
1032               goto error_return;
1033         }
1034
1035       comb_curr = 0;
1036       comb_count = 0;
1037       if (isec->reloc_count)
1038         {
1039           unsigned n;
1040
1041           /* Get a copy of the native relocations.  */
1042           internal_relocs = _bfd_elf32_link_read_relocs (
1043             abfd, isec, (PTR) NULL, (Elf_Internal_Rela *) NULL,
1044             link_info->keep_memory);
1045           if (internal_relocs == NULL)
1046               goto error_return;
1047           if (! link_info->keep_memory)
1048               free_relocs = internal_relocs;
1049
1050           /* Setup a faster access method for the reloc info we need. */
1051           rela_comb = (Elf_Internal_Rela**)
1052             bfd_malloc (isec->reloc_count*sizeof(Elf_Internal_Rela*));
1053           if (rela_comb == NULL)
1054               goto error_return;
1055           for (n=0; n<isec->reloc_count; ++n)
1056             {
1057               long r_type;
1058
1059               r_type = ELF32_R_TYPE (internal_relocs[n].r_info);
1060               if (r_type < 0 || r_type >= (int)R_PPC_max)
1061                   goto error_return;
1062
1063               /* Prologue constants are sometimes present in the ".text"
1064               sections and they can be identified by their associated relocation.
1065               We don't want to process those words and some others which
1066               can also be identified by their relocations.  However, not all
1067               conditional branches will have a relocation so we will
1068               only ignore words that 1) have a reloc, and 2) the reloc
1069               is not applicable to a conditional branch.
1070               The array rela_comb is built here for use in the EOP scan loop. */
1071               switch (r_type)
1072                 {
1073                 case R_PPC_ADDR14_BRNTAKEN:     /* absolute, predicted not taken */
1074                 case R_PPC_REL14:               /* relative cond. br. */
1075                 case R_PPC_REL14_BRNTAKEN:      /* rel. cond. br., predicted not taken */
1076                   /* We should check the instruction. */
1077                   break;
1078                 default:
1079                   /* The word is not a conditional branch - ignore it. */
1080                   rela_comb[comb_count++] = &internal_relocs[n];
1081                   break;
1082                 }
1083             }
1084           if (comb_count > 1)
1085               qsort (rela_comb, (size_t) comb_count, sizeof (int), ppc_elf_sort_rela);
1086         }
1087
1088       /* Enumerate each EOP region that overlaps this section. */
1089       end_section = isec->vma + isec->_cooked_size;
1090       dot = end_page = (isec->vma | (PAGESIZE - 1)) + 1;
1091       dot -= link_info->mpc860c0;
1092       section_modified = false;
1093       if (dot < isec->vma)      /* Increment the start position if this section */
1094           dot = isec->vma;      /* begins in the middle of its first EOP region. */
1095       for (;
1096            dot < end_section;
1097            dot += PAGESIZE, end_page += PAGESIZE)
1098         {
1099
1100           /* Check each word in this EOP region. */
1101           for (; dot < end_page; dot += 4)
1102             {
1103               bfd_vma isec_offset;
1104               unsigned long insn;
1105               boolean skip, modified;
1106
1107               /* Don't process this word if there is a relocation for it and
1108               the relocation indicates the word is not a conditional branch. */
1109               skip = false;
1110               isec_offset = dot - isec->vma;
1111               for (; comb_curr<comb_count; ++comb_curr)
1112                 {
1113                   bfd_vma r_offset;
1114
1115                   r_offset = rela_comb[comb_curr]->r_offset;
1116                   if (r_offset >= isec_offset)
1117                     {
1118                       if (r_offset == isec_offset) skip = true;
1119                       break;
1120                     }
1121                 }
1122               if (skip) continue;
1123
1124               /* Check the current word for a problematic conditional branch. */
1125 #define BO0(insn) ((insn) & 0x02000000)
1126 #define BO2(insn) ((insn) & 0x00800000)
1127 #define BO4(insn) ((insn) & 0x00200000)
1128               insn = (unsigned long) bfd_get_32 (abfd, contents + isec_offset);
1129               modified = false;
1130               if ((insn & 0xFc000000) == 0x40000000)
1131                 {
1132                   /* Instruction is BCx */
1133                   if ((!BO0(insn) || !BO2(insn)) && !BO4(insn))
1134                     {
1135                       bfd_vma target;
1136                       /* This branch is predicted as "normal".
1137                       If this is a forward branch, it is problematic. */
1138
1139                       target = insn & 0x0000Fffc;               /*extract*/
1140                       target = (target ^ 0x8000) - 0x8000;      /*sign extend*/
1141                       if ((insn & 0x00000002) == 0)
1142                           target += dot;                        /*convert to abs*/
1143                       if (target > dot)
1144                         {
1145                           insn |= 0x00200000;   /* set the prediction bit */
1146                           modified = true;
1147                         }
1148                     }
1149                 }
1150               else if ((insn & 0xFc00Fffe) == 0x4c000420)
1151                 {
1152                   /* Instruction is BCCTRx */
1153                   if ((!BO0(insn) || !BO2(insn)) && !BO4(insn))
1154                     {
1155                       /* This branch is predicted as not-taken.
1156                       If this is a forward branch, it is problematic.
1157                       Since we can't tell statically if it will branch forward,
1158                       always set the prediction bit. */
1159                       insn |= 0x00200000;   /* set the prediction bit */
1160                       modified = true;
1161                     }
1162                 }
1163               else if ((insn & 0xFc00Fffe) == 0x4c000020)
1164                 {
1165                   /* Instruction is BCLRx */
1166                   if ((!BO0(insn) || !BO2(insn)) && !BO4(insn))
1167                     {
1168                       /* This branch is predicted as not-taken.
1169                       If this is a forward branch, it is problematic.
1170                       Since we can't tell statically if it will branch forward,
1171                       always set the prediction bit. */
1172                       insn |= 0x00200000;   /* set the prediction bit */
1173                       modified = true;
1174                     }
1175                 }
1176 #undef BO0
1177 #undef BO2
1178 #undef BO4
1179               if (modified)
1180                 {
1181                   bfd_put_32 (abfd, insn, contents + isec_offset);
1182                   section_modified = true;
1183                 }
1184             }
1185         }
1186       if (section_modified)
1187         {
1188           elf_section_data (isec)->this_hdr.contents = contents;
1189           free_contents = NULL;
1190         }
1191     }
1192
1193   if (rela_comb != NULL)
1194     {
1195       free (rela_comb);
1196       rela_comb = NULL;
1197     }
1198
1199   if (free_relocs != NULL)
1200     {
1201       free (free_relocs);
1202       free_relocs = NULL;
1203     }
1204
1205   if (free_contents != NULL)
1206     {
1207       if (! link_info->keep_memory)
1208         free (free_contents);
1209       else
1210         {
1211           /* Cache the section contents for elf_link_input_bfd.  */
1212           elf_section_data (isec)->this_hdr.contents = contents;
1213         }
1214       free_contents = NULL;
1215     }
1216
1217   return true;
1218
1219 error_return:
1220   if (rela_comb != NULL)
1221     free (rela_comb);
1222   if (free_relocs != NULL)
1223     free (free_relocs);
1224   if (free_contents != NULL)
1225     free (free_contents);
1226   return false;
1227 }
1228
1229 \f
1230 static reloc_howto_type *
1231 ppc_elf_reloc_type_lookup (abfd, code)
1232      bfd *abfd ATTRIBUTE_UNUSED;
1233      bfd_reloc_code_real_type code;
1234 {
1235   enum elf_ppc_reloc_type ppc_reloc = R_PPC_NONE;
1236
1237   if (!ppc_elf_howto_table[R_PPC_ADDR32])
1238     /* Initialize howto table if needed */
1239     ppc_elf_howto_init ();
1240
1241   switch ((int)code)
1242     {
1243     default:
1244       return (reloc_howto_type *)NULL;
1245
1246     case BFD_RELOC_NONE:                ppc_reloc = R_PPC_NONE;                 break;
1247     case BFD_RELOC_32:                  ppc_reloc = R_PPC_ADDR32;               break;
1248     case BFD_RELOC_PPC_BA26:            ppc_reloc = R_PPC_ADDR24;               break;
1249     case BFD_RELOC_16:                  ppc_reloc = R_PPC_ADDR16;               break;
1250     case BFD_RELOC_LO16:                ppc_reloc = R_PPC_ADDR16_LO;            break;
1251     case BFD_RELOC_HI16:                ppc_reloc = R_PPC_ADDR16_HI;            break;
1252     case BFD_RELOC_HI16_S:              ppc_reloc = R_PPC_ADDR16_HA;            break;
1253     case BFD_RELOC_PPC_BA16:            ppc_reloc = R_PPC_ADDR14;               break;
1254     case BFD_RELOC_PPC_BA16_BRTAKEN:    ppc_reloc = R_PPC_ADDR14_BRTAKEN;       break;
1255     case BFD_RELOC_PPC_BA16_BRNTAKEN:   ppc_reloc = R_PPC_ADDR14_BRNTAKEN;      break;
1256     case BFD_RELOC_PPC_B26:             ppc_reloc = R_PPC_REL24;                break;
1257     case BFD_RELOC_PPC_B16:             ppc_reloc = R_PPC_REL14;                break;
1258     case BFD_RELOC_PPC_B16_BRTAKEN:     ppc_reloc = R_PPC_REL14_BRTAKEN;        break;
1259     case BFD_RELOC_PPC_B16_BRNTAKEN:    ppc_reloc = R_PPC_REL14_BRNTAKEN;       break;
1260     case BFD_RELOC_16_GOTOFF:           ppc_reloc = R_PPC_GOT16;                break;
1261     case BFD_RELOC_LO16_GOTOFF:         ppc_reloc = R_PPC_GOT16_LO;             break;
1262     case BFD_RELOC_HI16_GOTOFF:         ppc_reloc = R_PPC_GOT16_HI;             break;
1263     case BFD_RELOC_HI16_S_GOTOFF:       ppc_reloc = R_PPC_GOT16_HA;             break;
1264     case BFD_RELOC_24_PLT_PCREL:        ppc_reloc = R_PPC_PLTREL24;             break;
1265     case BFD_RELOC_PPC_COPY:            ppc_reloc = R_PPC_COPY;                 break;
1266     case BFD_RELOC_PPC_GLOB_DAT:        ppc_reloc = R_PPC_GLOB_DAT;             break;
1267     case BFD_RELOC_PPC_LOCAL24PC:       ppc_reloc = R_PPC_LOCAL24PC;            break;
1268     case BFD_RELOC_32_PCREL:            ppc_reloc = R_PPC_REL32;                break;
1269     case BFD_RELOC_32_PLTOFF:           ppc_reloc = R_PPC_PLT32;                break;
1270     case BFD_RELOC_32_PLT_PCREL:        ppc_reloc = R_PPC_PLTREL32;             break;
1271     case BFD_RELOC_LO16_PLTOFF:         ppc_reloc = R_PPC_PLT16_LO;             break;
1272     case BFD_RELOC_HI16_PLTOFF:         ppc_reloc = R_PPC_PLT16_HI;             break;
1273     case BFD_RELOC_HI16_S_PLTOFF:       ppc_reloc = R_PPC_PLT16_HA;             break;
1274     case BFD_RELOC_GPREL16:             ppc_reloc = R_PPC_SDAREL16;             break;
1275     case BFD_RELOC_32_BASEREL:          ppc_reloc = R_PPC_SECTOFF;              break;
1276     case BFD_RELOC_LO16_BASEREL:        ppc_reloc = R_PPC_SECTOFF_LO;           break;
1277     case BFD_RELOC_HI16_BASEREL:        ppc_reloc = R_PPC_SECTOFF_HI;           break;
1278     case BFD_RELOC_HI16_S_BASEREL:      ppc_reloc = R_PPC_SECTOFF_HA;           break;
1279     case BFD_RELOC_CTOR:                ppc_reloc = R_PPC_ADDR32;               break;
1280     case BFD_RELOC_PPC_TOC16:           ppc_reloc = R_PPC_TOC16;                break;
1281     case BFD_RELOC_PPC_EMB_NADDR32:     ppc_reloc = R_PPC_EMB_NADDR32;          break;
1282     case BFD_RELOC_PPC_EMB_NADDR16:     ppc_reloc = R_PPC_EMB_NADDR16;          break;
1283     case BFD_RELOC_PPC_EMB_NADDR16_LO:  ppc_reloc = R_PPC_EMB_NADDR16_LO;       break;
1284     case BFD_RELOC_PPC_EMB_NADDR16_HI:  ppc_reloc = R_PPC_EMB_NADDR16_HI;       break;
1285     case BFD_RELOC_PPC_EMB_NADDR16_HA:  ppc_reloc = R_PPC_EMB_NADDR16_HA;       break;
1286     case BFD_RELOC_PPC_EMB_SDAI16:      ppc_reloc = R_PPC_EMB_SDAI16;           break;
1287     case BFD_RELOC_PPC_EMB_SDA2I16:     ppc_reloc = R_PPC_EMB_SDA2I16;          break;
1288     case BFD_RELOC_PPC_EMB_SDA2REL:     ppc_reloc = R_PPC_EMB_SDA2REL;          break;
1289     case BFD_RELOC_PPC_EMB_SDA21:       ppc_reloc = R_PPC_EMB_SDA21;            break;
1290     case BFD_RELOC_PPC_EMB_MRKREF:      ppc_reloc = R_PPC_EMB_MRKREF;           break;
1291     case BFD_RELOC_PPC_EMB_RELSEC16:    ppc_reloc = R_PPC_EMB_RELSEC16;         break;
1292     case BFD_RELOC_PPC_EMB_RELST_LO:    ppc_reloc = R_PPC_EMB_RELST_LO;         break;
1293     case BFD_RELOC_PPC_EMB_RELST_HI:    ppc_reloc = R_PPC_EMB_RELST_HI;         break;
1294     case BFD_RELOC_PPC_EMB_RELST_HA:    ppc_reloc = R_PPC_EMB_RELST_HA;         break;
1295     case BFD_RELOC_PPC_EMB_BIT_FLD:     ppc_reloc = R_PPC_EMB_BIT_FLD;          break;
1296     case BFD_RELOC_PPC_EMB_RELSDA:      ppc_reloc = R_PPC_EMB_RELSDA;           break;
1297     case BFD_RELOC_VTABLE_INHERIT:      ppc_reloc = R_PPC_GNU_VTINHERIT;        break;
1298     case BFD_RELOC_VTABLE_ENTRY:        ppc_reloc = R_PPC_GNU_VTENTRY;          break;
1299     }
1300
1301   return ppc_elf_howto_table[ (int)ppc_reloc ];
1302 };
1303
1304 /* Set the howto pointer for a PowerPC ELF reloc.  */
1305
1306 static void
1307 ppc_elf_info_to_howto (abfd, cache_ptr, dst)
1308      bfd *abfd ATTRIBUTE_UNUSED;
1309      arelent *cache_ptr;
1310      Elf32_Internal_Rela *dst;
1311 {
1312   if (!ppc_elf_howto_table[ R_PPC_ADDR32 ])     /* Initialize howto table if needed */
1313     ppc_elf_howto_init ();
1314
1315   BFD_ASSERT (ELF32_R_TYPE (dst->r_info) < (unsigned int) R_PPC_max);
1316   cache_ptr->howto = ppc_elf_howto_table[ELF32_R_TYPE (dst->r_info)];
1317 }
1318
1319 /* Handle the R_PPC_ADDR16_HA reloc.  */
1320
1321 static bfd_reloc_status_type
1322 ppc_elf_addr16_ha_reloc (abfd, reloc_entry, symbol, data, input_section,
1323                          output_bfd, error_message)
1324      bfd *abfd ATTRIBUTE_UNUSED;
1325      arelent *reloc_entry;
1326      asymbol *symbol;
1327      PTR data ATTRIBUTE_UNUSED;
1328      asection *input_section;
1329      bfd *output_bfd;
1330      char **error_message ATTRIBUTE_UNUSED;
1331 {
1332   bfd_vma relocation;
1333
1334   if (output_bfd != NULL)
1335     {
1336       reloc_entry->address += input_section->output_offset;
1337       return bfd_reloc_ok;
1338     }
1339
1340   if (reloc_entry->address > input_section->_cooked_size)
1341     return bfd_reloc_outofrange;
1342
1343   if (bfd_is_com_section (symbol->section))
1344     relocation = 0;
1345   else
1346     relocation = symbol->value;
1347
1348   relocation += symbol->section->output_section->vma;
1349   relocation += symbol->section->output_offset;
1350   relocation += reloc_entry->addend;
1351
1352   reloc_entry->addend += (relocation & 0x8000) << 1;
1353
1354   return bfd_reloc_continue;
1355 }
1356
1357 /* Function to set whether a module needs the -mrelocatable bit set. */
1358
1359 static boolean
1360 ppc_elf_set_private_flags (abfd, flags)
1361      bfd *abfd;
1362      flagword flags;
1363 {
1364   BFD_ASSERT (!elf_flags_init (abfd)
1365               || elf_elfheader (abfd)->e_flags == flags);
1366
1367   elf_elfheader (abfd)->e_flags = flags;
1368   elf_flags_init (abfd) = true;
1369   return true;
1370 }
1371
1372 /* Copy backend specific data from one object module to another */
1373 static boolean
1374 ppc_elf_copy_private_bfd_data (ibfd, obfd)
1375      bfd *ibfd;
1376      bfd *obfd;
1377 {
1378   if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
1379       || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
1380     return true;
1381
1382   BFD_ASSERT (!elf_flags_init (obfd)
1383               || elf_elfheader (obfd)->e_flags == elf_elfheader (ibfd)->e_flags);
1384
1385   elf_elfheader (obfd)->e_flags = elf_elfheader (ibfd)->e_flags;
1386   elf_flags_init (obfd) = true;
1387   return true;
1388 }
1389
1390 /* Merge backend specific data from an object file to the output
1391    object file when linking */
1392 static boolean
1393 ppc_elf_merge_private_bfd_data (ibfd, obfd)
1394      bfd *ibfd;
1395      bfd *obfd;
1396 {
1397   flagword old_flags;
1398   flagword new_flags;
1399   boolean error;
1400
1401   /* Check if we have the same endianess */
1402   if (ibfd->xvec->byteorder != obfd->xvec->byteorder
1403       && obfd->xvec->byteorder != BFD_ENDIAN_UNKNOWN)
1404     {
1405       const char *msg;
1406
1407       if (bfd_big_endian (ibfd))
1408         msg = _("%s: compiled for a big endian system and target is little endian");
1409       else
1410         msg = _("%s: compiled for a little endian system and target is big endian");
1411
1412       (*_bfd_error_handler) (msg, bfd_get_filename (ibfd));
1413
1414       bfd_set_error (bfd_error_wrong_format);
1415       return false;
1416     }
1417
1418   if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
1419       || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
1420     return true;
1421
1422   new_flags = elf_elfheader (ibfd)->e_flags;
1423   old_flags = elf_elfheader (obfd)->e_flags;
1424   if (!elf_flags_init (obfd))   /* First call, no flags set */
1425     {
1426       elf_flags_init (obfd) = true;
1427       elf_elfheader (obfd)->e_flags = new_flags;
1428     }
1429
1430   else if (new_flags == old_flags)      /* Compatible flags are ok */
1431     ;
1432
1433   else                                  /* Incompatible flags */
1434     {
1435       /* Warn about -mrelocatable mismatch.  Allow -mrelocatable-lib to be linked
1436          with either.  */
1437       error = false;
1438       if ((new_flags & EF_PPC_RELOCATABLE) != 0
1439           && (old_flags & (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB)) == 0)
1440         {
1441           error = true;
1442           (*_bfd_error_handler)
1443             (_("%s: compiled with -mrelocatable and linked with modules compiled normally"),
1444              bfd_get_filename (ibfd));
1445         }
1446       else if ((new_flags & (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB)) == 0
1447                && (old_flags & EF_PPC_RELOCATABLE) != 0)
1448         {
1449           error = true;
1450           (*_bfd_error_handler)
1451             (_("%s: compiled normally and linked with modules compiled with -mrelocatable"),
1452              bfd_get_filename (ibfd));
1453         }
1454
1455       /* The output is -mrelocatable-lib iff both the input files are.  */
1456       if (! (new_flags & EF_PPC_RELOCATABLE_LIB))
1457         elf_elfheader (obfd)->e_flags &= ~EF_PPC_RELOCATABLE_LIB;
1458
1459       /* The output is -mrelocatable iff it can't be -mrelocatable-lib,
1460          but each input file is either -mrelocatable or -mrelocatable-lib.  */
1461       if (! (elf_elfheader (obfd)->e_flags & EF_PPC_RELOCATABLE_LIB)
1462           && (new_flags & (EF_PPC_RELOCATABLE_LIB | EF_PPC_RELOCATABLE))
1463           && (old_flags & (EF_PPC_RELOCATABLE_LIB | EF_PPC_RELOCATABLE)))
1464         elf_elfheader (obfd)->e_flags |= EF_PPC_RELOCATABLE;
1465
1466       /* Do not warn about eabi vs. V.4 mismatch, just or in the bit if any module uses it */
1467       elf_elfheader (obfd)->e_flags |= (new_flags & EF_PPC_EMB);
1468
1469       new_flags &= ~ (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB | EF_PPC_EMB);
1470       old_flags &= ~ (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB | EF_PPC_EMB);
1471
1472       /* Warn about any other mismatches */
1473       if (new_flags != old_flags)
1474         {
1475           error = true;
1476           (*_bfd_error_handler)
1477             (_("%s: uses different e_flags (0x%lx) fields than previous modules (0x%lx)"),
1478              bfd_get_filename (ibfd), (long)new_flags, (long)old_flags);
1479         }
1480
1481       if (error)
1482         {
1483           bfd_set_error (bfd_error_bad_value);
1484           return false;
1485         }
1486     }
1487
1488   return true;
1489 }
1490
1491 \f
1492 /* Handle a PowerPC specific section when reading an object file.  This
1493    is called when elfcode.h finds a section with an unknown type.  */
1494
1495 static boolean
1496 ppc_elf_section_from_shdr (abfd, hdr, name)
1497      bfd *abfd;
1498      Elf32_Internal_Shdr *hdr;
1499      char *name;
1500 {
1501   asection *newsect;
1502   flagword flags;
1503
1504   if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name))
1505     return false;
1506
1507   newsect = hdr->bfd_section;
1508   flags = bfd_get_section_flags (abfd, newsect);
1509   if (hdr->sh_flags & SHF_EXCLUDE)
1510     flags |= SEC_EXCLUDE;
1511
1512   if (hdr->sh_type == SHT_ORDERED)
1513     flags |= SEC_SORT_ENTRIES;
1514
1515   bfd_set_section_flags (abfd, newsect, flags);
1516   return true;
1517 }
1518
1519 \f
1520 /* Set up any other section flags and such that may be necessary.  */
1521
1522 static boolean
1523 ppc_elf_fake_sections (abfd, shdr, asect)
1524      bfd *abfd ATTRIBUTE_UNUSED;
1525      Elf32_Internal_Shdr *shdr;
1526      asection *asect;
1527 {
1528   if ((asect->flags & SEC_EXCLUDE) != 0)
1529     shdr->sh_flags |= SHF_EXCLUDE;
1530
1531   if ((asect->flags & SEC_SORT_ENTRIES) != 0)
1532     shdr->sh_type = SHT_ORDERED;
1533
1534   return true;
1535 }
1536
1537 \f
1538 /* Create a special linker section */
1539 static elf_linker_section_t *
1540 ppc_elf_create_linker_section (abfd, info, which)
1541      bfd *abfd;
1542      struct bfd_link_info *info;
1543      enum elf_linker_section_enum which;
1544 {
1545   bfd *dynobj = elf_hash_table (info)->dynobj;
1546   elf_linker_section_t *lsect;
1547
1548   /* Record the first bfd section that needs the special section */
1549   if (!dynobj)
1550     dynobj = elf_hash_table (info)->dynobj = abfd;
1551
1552   /* If this is the first time, create the section */
1553   lsect = elf_linker_section (dynobj, which);
1554   if (!lsect)
1555     {
1556       elf_linker_section_t defaults;
1557       static elf_linker_section_t zero_section;
1558
1559       defaults = zero_section;
1560       defaults.which = which;
1561       defaults.hole_written_p = false;
1562       defaults.alignment = 2;
1563
1564       /* Both of these sections are (technically) created by the user
1565          putting data in them, so they shouldn't be marked
1566          SEC_LINKER_CREATED.
1567
1568          The linker creates them so it has somewhere to attach their
1569          respective symbols. In fact, if they were empty it would
1570          be OK to leave the symbol set to 0 (or any random number), because
1571          the appropriate register should never be used.  */
1572       defaults.flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS
1573                         | SEC_IN_MEMORY);
1574
1575       switch (which)
1576         {
1577         default:
1578           (*_bfd_error_handler) (_("%s: Unknown special linker type %d"),
1579                                  bfd_get_filename (abfd),
1580                                  (int)which);
1581
1582           bfd_set_error (bfd_error_bad_value);
1583           return (elf_linker_section_t *)0;
1584
1585         case LINKER_SECTION_SDATA:      /* .sdata/.sbss section */
1586           defaults.name           = ".sdata";
1587           defaults.rel_name       = ".rela.sdata";
1588           defaults.bss_name       = ".sbss";
1589           defaults.sym_name       = "_SDA_BASE_";
1590           defaults.sym_offset     = 32768;
1591           break;
1592
1593         case LINKER_SECTION_SDATA2:     /* .sdata2/.sbss2 section */
1594           defaults.name           = ".sdata2";
1595           defaults.rel_name       = ".rela.sdata2";
1596           defaults.bss_name       = ".sbss2";
1597           defaults.sym_name       = "_SDA2_BASE_";
1598           defaults.sym_offset     = 32768;
1599           defaults.flags         |= SEC_READONLY;
1600           break;
1601         }
1602
1603       lsect = _bfd_elf_create_linker_section (abfd, info, which, &defaults);
1604     }
1605
1606   return lsect;
1607 }
1608
1609 \f
1610 /* If we have a non-zero sized .sbss2 or .PPC.EMB.sbss0 sections, we need to bump up
1611    the number of section headers.  */
1612
1613 static int
1614 ppc_elf_additional_program_headers (abfd)
1615      bfd *abfd;
1616 {
1617   asection *s;
1618   int ret;
1619
1620   ret = 0;
1621
1622   s = bfd_get_section_by_name (abfd, ".interp");
1623   if (s != NULL)
1624     ++ret;
1625
1626   s = bfd_get_section_by_name (abfd, ".sbss2");
1627   if (s != NULL && (s->flags & SEC_LOAD) != 0 && s->_raw_size > 0)
1628     ++ret;
1629
1630   s = bfd_get_section_by_name (abfd, ".PPC.EMB.sbss0");
1631   if (s != NULL && (s->flags & SEC_LOAD) != 0 && s->_raw_size > 0)
1632     ++ret;
1633
1634   return ret;
1635 }
1636
1637 /* Modify the segment map if needed */
1638
1639 static boolean
1640 ppc_elf_modify_segment_map (abfd)
1641      bfd *abfd ATTRIBUTE_UNUSED;
1642 {
1643   return true;
1644 }
1645 \f
1646 /* We have to create .dynsbss and .rela.sbss here so that they get mapped
1647    to output sections (just like _bfd_elf_create_dynamic_sections has
1648    to create .dynbss and .rela.bss).  */
1649
1650 static boolean
1651 ppc_elf_create_dynamic_sections (abfd, info)
1652      bfd *abfd;
1653      struct bfd_link_info *info;
1654 {
1655   register asection *s;
1656   flagword flags;
1657
1658   if (!_bfd_elf_create_dynamic_sections(abfd, info))
1659     return false;
1660
1661   flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
1662            | SEC_LINKER_CREATED);
1663
1664   s = bfd_make_section (abfd, ".dynsbss");
1665   if (s == NULL
1666       || ! bfd_set_section_flags (abfd, s, SEC_ALLOC))
1667     return false;
1668
1669   if (! info->shared)
1670     {
1671       s = bfd_make_section (abfd, ".rela.sbss");
1672       if (s == NULL
1673           || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY)
1674           || ! bfd_set_section_alignment (abfd, s, 2))
1675         return false;
1676     }
1677   return true;
1678 }
1679
1680 /* Adjust a symbol defined by a dynamic object and referenced by a
1681    regular object.  The current definition is in some section of the
1682    dynamic object, but we're not including those sections.  We have to
1683    change the definition to something the rest of the link can
1684    understand.  */
1685
1686 static boolean
1687 ppc_elf_adjust_dynamic_symbol (info, h)
1688      struct bfd_link_info *info;
1689      struct elf_link_hash_entry *h;
1690 {
1691   bfd *dynobj = elf_hash_table (info)->dynobj;
1692   asection *s;
1693   unsigned int power_of_two;
1694   bfd_vma plt_offset;
1695
1696 #ifdef DEBUG
1697   fprintf (stderr, "ppc_elf_adjust_dynamic_symbol called for %s\n", h->root.root.string);
1698 #endif
1699
1700   /* Make sure we know what is going on here.  */
1701   BFD_ASSERT (dynobj != NULL
1702               && ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT)
1703                   || h->weakdef != NULL
1704                   || ((h->elf_link_hash_flags
1705                        & ELF_LINK_HASH_DEF_DYNAMIC) != 0
1706                       && (h->elf_link_hash_flags
1707                           & ELF_LINK_HASH_REF_REGULAR) != 0
1708                       && (h->elf_link_hash_flags
1709                           & ELF_LINK_HASH_DEF_REGULAR) == 0)));
1710
1711
1712   /* If this is a function, put it in the procedure linkage table.  We
1713      will fill in the contents of the procedure linkage table later,
1714      when we know the address of the .got section.  */
1715   if (h->type == STT_FUNC
1716       || (h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT) != 0)
1717     {
1718       if (! elf_hash_table (info)->dynamic_sections_created
1719           || ((!info->shared || info->symbolic || h->dynindx == -1)
1720               && (h->elf_link_hash_flags
1721                   & ELF_LINK_HASH_DEF_REGULAR) != 0)
1722           || (info->shared && h->plt.refcount <= 0))
1723         {
1724           /* A PLT entry is not required/allowed when:
1725
1726              1. We are not using ld.so; because then the PLT entry
1727              can't be set up, so we can't use one.
1728
1729              2. We know for certain that a symbol is defined in
1730              this object, because this object is the application,
1731              is linked with -Bsymbolic, or because the symbol is local.
1732
1733              3. GC has rendered the entry unused.
1734              Note, however, that in an executable all references to the
1735              symbol go to the PLT, so we can't turn it off in that case.
1736              ??? The correct thing to do here is to reference count
1737              all uses of the symbol, not just those to the GOT or PLT.  */
1738           h->plt.offset = (bfd_vma) -1;
1739           h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
1740           return true;
1741         }
1742
1743       /* Make sure this symbol is output as a dynamic symbol.  */
1744       if (h->dynindx == -1)
1745         {
1746           if (! bfd_elf32_link_record_dynamic_symbol (info, h))
1747             return false;
1748         }
1749       BFD_ASSERT (h->dynindx != -1);
1750
1751       s = bfd_get_section_by_name (dynobj, ".plt");
1752       BFD_ASSERT (s != NULL);
1753
1754       /* If this is the first .plt entry, make room for the special
1755          first entry.  */
1756       if (s->_raw_size == 0)
1757         s->_raw_size += PLT_INITIAL_ENTRY_SIZE;
1758
1759       /* The PowerPC PLT is actually composed of two parts, the first part
1760          is 2 words (for a load and a jump), and then there is a remaining
1761          word available at the end.  */
1762       plt_offset = (PLT_INITIAL_ENTRY_SIZE
1763                     + (PLT_SLOT_SIZE
1764                        * ((s->_raw_size - PLT_INITIAL_ENTRY_SIZE)
1765                           / PLT_ENTRY_SIZE)));
1766
1767       /* If this symbol is not defined in a regular file, and we are
1768          not generating a shared library, then set the symbol to this
1769          location in the .plt.  This is required to make function
1770          pointers compare as equal between the normal executable and
1771          the shared library.  */
1772       if (! info->shared
1773           && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
1774         {
1775           h->root.u.def.section = s;
1776           h->root.u.def.value = plt_offset;
1777         }
1778
1779       h->plt.offset = plt_offset;
1780
1781       /* Make room for this entry.  After the 8192nd entry, room
1782          for two entries is allocated.  */
1783       if ((s->_raw_size - PLT_INITIAL_ENTRY_SIZE) / PLT_ENTRY_SIZE
1784           >= PLT_NUM_SINGLE_ENTRIES)
1785         s->_raw_size += 2 * PLT_ENTRY_SIZE;
1786       else
1787         s->_raw_size += PLT_ENTRY_SIZE;
1788
1789       /* We also need to make an entry in the .rela.plt section.  */
1790       s = bfd_get_section_by_name (dynobj, ".rela.plt");
1791       BFD_ASSERT (s != NULL);
1792       s->_raw_size += sizeof (Elf32_External_Rela);
1793
1794       return true;
1795     }
1796
1797   /* If this is a weak symbol, and there is a real definition, the
1798      processor independent code will have arranged for us to see the
1799      real definition first, and we can just use the same value.  */
1800   if (h->weakdef != NULL)
1801     {
1802       BFD_ASSERT (h->weakdef->root.type == bfd_link_hash_defined
1803                   || h->weakdef->root.type == bfd_link_hash_defweak);
1804       h->root.u.def.section = h->weakdef->root.u.def.section;
1805       h->root.u.def.value = h->weakdef->root.u.def.value;
1806       return true;
1807     }
1808
1809   /* This is a reference to a symbol defined by a dynamic object which
1810      is not a function.  */
1811
1812   /* If we are creating a shared library, we must presume that the
1813      only references to the symbol are via the global offset table.
1814      For such cases we need not do anything here; the relocations will
1815      be handled correctly by relocate_section.  */
1816   if (info->shared)
1817     return true;
1818
1819   /* We must allocate the symbol in our .dynbss section, which will
1820      become part of the .bss section of the executable.  There will be
1821      an entry for this symbol in the .dynsym section.  The dynamic
1822      object will contain position independent code, so all references
1823      from the dynamic object to this symbol will go through the global
1824      offset table.  The dynamic linker will use the .dynsym entry to
1825      determine the address it must put in the global offset table, so
1826      both the dynamic object and the regular object will refer to the
1827      same memory location for the variable.
1828
1829      Of course, if the symbol is sufficiently small, we must instead
1830      allocate it in .sbss.  FIXME: It would be better to do this if and
1831      only if there were actually SDAREL relocs for that symbol.  */
1832
1833   if (h->size <= elf_gp_size (dynobj))
1834     s = bfd_get_section_by_name (dynobj, ".dynsbss");
1835   else
1836     s = bfd_get_section_by_name (dynobj, ".dynbss");
1837   BFD_ASSERT (s != NULL);
1838
1839   /* We must generate a R_PPC_COPY reloc to tell the dynamic linker to
1840      copy the initial value out of the dynamic object and into the
1841      runtime process image.  We need to remember the offset into the
1842      .rela.bss section we are going to use.  */
1843   if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
1844     {
1845       asection *srel;
1846
1847       if (h->size <= elf_gp_size (dynobj))
1848         srel = bfd_get_section_by_name (dynobj, ".rela.sbss");
1849       else
1850         srel = bfd_get_section_by_name (dynobj, ".rela.bss");
1851       BFD_ASSERT (srel != NULL);
1852       srel->_raw_size += sizeof (Elf32_External_Rela);
1853       h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_COPY;
1854     }
1855
1856   /* We need to figure out the alignment required for this symbol.  I
1857      have no idea how ELF linkers handle this.  */
1858   power_of_two = bfd_log2 (h->size);
1859   if (power_of_two > 4)
1860     power_of_two = 4;
1861
1862   /* Apply the required alignment.  */
1863   s->_raw_size = BFD_ALIGN (s->_raw_size,
1864                             (bfd_size_type) (1 << power_of_two));
1865   if (power_of_two > bfd_get_section_alignment (dynobj, s))
1866     {
1867       if (! bfd_set_section_alignment (dynobj, s, power_of_two))
1868         return false;
1869     }
1870
1871   /* Define the symbol as being at this point in the section.  */
1872   h->root.u.def.section = s;
1873   h->root.u.def.value = s->_raw_size;
1874
1875   /* Increment the section size to make room for the symbol.  */
1876   s->_raw_size += h->size;
1877
1878   return true;
1879 }
1880
1881 \f
1882 /* Set the sizes of the dynamic sections.  */
1883
1884 static boolean
1885 ppc_elf_size_dynamic_sections (output_bfd, info)
1886      bfd *output_bfd;
1887      struct bfd_link_info *info;
1888 {
1889   bfd *dynobj;
1890   asection *s;
1891   boolean plt;
1892   boolean relocs;
1893   boolean reltext;
1894
1895 #ifdef DEBUG
1896   fprintf (stderr, "ppc_elf_size_dynamic_sections called\n");
1897 #endif
1898
1899   dynobj = elf_hash_table (info)->dynobj;
1900   BFD_ASSERT (dynobj != NULL);
1901
1902   if (elf_hash_table (info)->dynamic_sections_created)
1903     {
1904       /* Set the contents of the .interp section to the interpreter.  */
1905       if (! info->shared)
1906         {
1907           s = bfd_get_section_by_name (dynobj, ".interp");
1908           BFD_ASSERT (s != NULL);
1909           s->_raw_size = sizeof ELF_DYNAMIC_INTERPRETER;
1910           s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
1911         }
1912     }
1913   else
1914     {
1915       /* We may have created entries in the .rela.got, .rela.sdata, and
1916          .rela.sdata2 sections.  However, if we are not creating the
1917          dynamic sections, we will not actually use these entries.  Reset
1918          the size of .rela.got, et al, which will cause it to get
1919          stripped from the output file below.  */
1920       static char *rela_sections[] = { ".rela.got", ".rela.sdata",
1921                                        ".rela.sdata2", ".rela.sbss",
1922                                        (char *)0 };
1923       char **p;
1924
1925       for (p = rela_sections; *p != (char *)0; p++)
1926         {
1927           s = bfd_get_section_by_name (dynobj, *p);
1928           if (s != NULL)
1929             s->_raw_size = 0;
1930         }
1931     }
1932
1933   /* The check_relocs and adjust_dynamic_symbol entry points have
1934      determined the sizes of the various dynamic sections.  Allocate
1935      memory for them.  */
1936   plt = false;
1937   relocs = false;
1938   reltext = false;
1939   for (s = dynobj->sections; s != NULL; s = s->next)
1940     {
1941       const char *name;
1942       boolean strip;
1943
1944       if ((s->flags & SEC_LINKER_CREATED) == 0)
1945         continue;
1946
1947       /* It's OK to base decisions on the section name, because none
1948          of the dynobj section names depend upon the input files.  */
1949       name = bfd_get_section_name (dynobj, s);
1950
1951       strip = false;
1952
1953       if (strcmp (name, ".plt") == 0)
1954         {
1955           if (s->_raw_size == 0)
1956             {
1957               /* Strip this section if we don't need it; see the
1958                  comment below.  */
1959               strip = true;
1960             }
1961           else
1962             {
1963               /* Remember whether there is a PLT.  */
1964               plt = true;
1965             }
1966         }
1967       else if (strncmp (name, ".rela", 5) == 0)
1968         {
1969           if (s->_raw_size == 0)
1970             {
1971               /* If we don't need this section, strip it from the
1972                  output file.  This is mostly to handle .rela.bss and
1973                  .rela.plt.  We must create both sections in
1974                  create_dynamic_sections, because they must be created
1975                  before the linker maps input sections to output
1976                  sections.  The linker does that before
1977                  adjust_dynamic_symbol is called, and it is that
1978                  function which decides whether anything needs to go
1979                  into these sections.  */
1980               strip = true;
1981             }
1982           else
1983             {
1984               asection *target;
1985               const char *outname;
1986
1987               /* Remember whether there are any relocation sections. */
1988               relocs = true;
1989
1990               /* If this relocation section applies to a read only
1991                  section, then we probably need a DT_TEXTREL entry.  */
1992               outname = bfd_get_section_name (output_bfd,
1993                                               s->output_section);
1994               target = bfd_get_section_by_name (output_bfd, outname + 5);
1995               if (target != NULL
1996                   && (target->flags & SEC_READONLY) != 0
1997                   && (target->flags & SEC_ALLOC) != 0)
1998                 reltext = true;
1999
2000               /* We use the reloc_count field as a counter if we need
2001                  to copy relocs into the output file.  */
2002               s->reloc_count = 0;
2003             }
2004         }
2005       else if (strcmp (name, ".got") != 0
2006                && strcmp (name, ".sdata") != 0
2007                && strcmp (name, ".sdata2") != 0)
2008         {
2009           /* It's not one of our sections, so don't allocate space.  */
2010           continue;
2011         }
2012
2013       if (strip)
2014         {
2015           _bfd_strip_section_from_output (info, s);
2016           continue;
2017         }
2018
2019       /* Allocate memory for the section contents.  */
2020       s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->_raw_size);
2021       if (s->contents == NULL && s->_raw_size != 0)
2022         return false;
2023     }
2024
2025   if (elf_hash_table (info)->dynamic_sections_created)
2026     {
2027       /* Add some entries to the .dynamic section.  We fill in the
2028          values later, in ppc_elf_finish_dynamic_sections, but we
2029          must add the entries now so that we get the correct size for
2030          the .dynamic section.  The DT_DEBUG entry is filled in by the
2031          dynamic linker and used by the debugger.  */
2032       if (! info->shared)
2033         {
2034           if (! bfd_elf32_add_dynamic_entry (info, DT_DEBUG, 0))
2035             return false;
2036         }
2037
2038       if (plt)
2039         {
2040           if (! bfd_elf32_add_dynamic_entry (info, DT_PLTGOT, 0)
2041               || ! bfd_elf32_add_dynamic_entry (info, DT_PLTRELSZ, 0)
2042               || ! bfd_elf32_add_dynamic_entry (info, DT_PLTREL, DT_RELA)
2043               || ! bfd_elf32_add_dynamic_entry (info, DT_JMPREL, 0))
2044             return false;
2045         }
2046
2047       if (relocs)
2048         {
2049           if (! bfd_elf32_add_dynamic_entry (info, DT_RELA, 0)
2050               || ! bfd_elf32_add_dynamic_entry (info, DT_RELASZ, 0)
2051               || ! bfd_elf32_add_dynamic_entry (info, DT_RELAENT,
2052                                                 sizeof (Elf32_External_Rela)))
2053             return false;
2054         }
2055
2056       if (reltext)
2057         {
2058           if (! bfd_elf32_add_dynamic_entry (info, DT_TEXTREL, 0))
2059             return false;
2060         }
2061     }
2062
2063   return true;
2064 }
2065
2066 \f
2067 /* Look through the relocs for a section during the first phase, and
2068    allocate space in the global offset table or procedure linkage
2069    table.  */
2070
2071 static boolean
2072 ppc_elf_check_relocs (abfd, info, sec, relocs)
2073      bfd *abfd;
2074      struct bfd_link_info *info;
2075      asection *sec;
2076      const Elf_Internal_Rela *relocs;
2077 {
2078   bfd *dynobj;
2079   Elf_Internal_Shdr *symtab_hdr;
2080   struct elf_link_hash_entry **sym_hashes, **sym_hashes_end;
2081   const Elf_Internal_Rela *rel;
2082   const Elf_Internal_Rela *rel_end;
2083   bfd_signed_vma *local_got_refcounts;
2084   elf_linker_section_t *sdata;
2085   elf_linker_section_t *sdata2;
2086   asection *sreloc;
2087   asection *sgot = NULL;
2088   asection *srelgot = NULL;
2089
2090   if (info->relocateable)
2091     return true;
2092
2093 #ifdef DEBUG
2094   fprintf (stderr, "ppc_elf_check_relocs called for section %s in %s\n",
2095            bfd_get_section_name (abfd, sec),
2096            bfd_get_filename (abfd));
2097 #endif
2098
2099   /* Create the linker generated sections all the time so that the
2100      special symbols are created.  */
2101
2102   if ((sdata = elf_linker_section (abfd, LINKER_SECTION_SDATA)) == NULL)
2103     {
2104       sdata = ppc_elf_create_linker_section (abfd, info, LINKER_SECTION_SDATA);
2105       if (!sdata)
2106         return false;
2107     }
2108
2109
2110   if ((sdata2 = elf_linker_section (abfd, LINKER_SECTION_SDATA2)) == NULL)
2111     {
2112       sdata2 = ppc_elf_create_linker_section (abfd, info, LINKER_SECTION_SDATA2);
2113       if (!sdata2)
2114         return false;
2115     }
2116
2117   dynobj = elf_hash_table (info)->dynobj;
2118   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2119   local_got_refcounts = elf_local_got_refcounts (abfd);
2120
2121   sym_hashes = elf_sym_hashes (abfd);
2122   sym_hashes_end = sym_hashes + symtab_hdr->sh_size/sizeof(Elf32_External_Sym);
2123   if (!elf_bad_symtab (abfd))
2124     sym_hashes_end -= symtab_hdr->sh_info;
2125
2126   sreloc = NULL;
2127
2128   rel_end = relocs + sec->reloc_count;
2129   for (rel = relocs; rel < rel_end; rel++)
2130     {
2131       unsigned long r_symndx;
2132       struct elf_link_hash_entry *h;
2133
2134       r_symndx = ELF32_R_SYM (rel->r_info);
2135       if (r_symndx < symtab_hdr->sh_info)
2136         h = NULL;
2137       else
2138         h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2139
2140       /* If a relocation refers to _GLOBAL_OFFSET_TABLE_, create the .got.
2141          This shows up in particular in an R_PPC_ADDR32 in the eabi
2142          startup code.  */
2143       if (h && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
2144         {
2145           if (sgot == NULL)
2146             {
2147               if (dynobj == NULL)
2148                 elf_hash_table (info)->dynobj = dynobj = abfd;
2149               if (! _bfd_elf_create_got_section (dynobj, info))
2150                 return false;
2151               sgot = bfd_get_section_by_name (dynobj, ".got");
2152               BFD_ASSERT (sgot != NULL);
2153             }
2154         }
2155
2156       switch (ELF32_R_TYPE (rel->r_info))
2157         {
2158         /* GOT16 relocations */
2159         case R_PPC_GOT16:
2160         case R_PPC_GOT16_LO:
2161         case R_PPC_GOT16_HI:
2162         case R_PPC_GOT16_HA:
2163           /* This symbol requires a global offset table entry.  */
2164
2165           if (sgot == NULL)
2166             {
2167               if (dynobj == NULL)
2168                 elf_hash_table (info)->dynobj = dynobj = abfd;
2169               if (! _bfd_elf_create_got_section (dynobj, info))
2170                 return false;
2171               sgot = bfd_get_section_by_name (dynobj, ".got");
2172               BFD_ASSERT (sgot != NULL);
2173             }
2174
2175           if (srelgot == NULL
2176               && (h != NULL || info->shared))
2177             {
2178               srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
2179               if (srelgot == NULL)
2180                 {
2181                   srelgot = bfd_make_section (dynobj, ".rela.got");
2182                   if (srelgot == NULL
2183                       || ! bfd_set_section_flags (dynobj, srelgot,
2184                                                   (SEC_ALLOC
2185                                                    | SEC_LOAD
2186                                                    | SEC_HAS_CONTENTS
2187                                                    | SEC_IN_MEMORY
2188                                                    | SEC_LINKER_CREATED
2189                                                    | SEC_READONLY))
2190                       || ! bfd_set_section_alignment (dynobj, srelgot, 2))
2191                     return false;
2192                 }
2193             }
2194
2195           if (h != NULL)
2196             {
2197               if (h->got.refcount == -1)
2198                 {
2199                   /* Make sure this symbol is output as a dynamic symbol.  */
2200                   if (h->dynindx == -1)
2201                     if (!bfd_elf32_link_record_dynamic_symbol (info, h))
2202                       return false;
2203
2204                   /* Allocate space in the .got.  */
2205                   sgot->_raw_size += 4;
2206                   /* Allocate relocation space.  */
2207                   srelgot->_raw_size += sizeof (Elf32_External_Rela);
2208
2209                   h->got.refcount = 1;
2210                 }
2211               else
2212                 h->got.refcount++;
2213             }
2214           else
2215             {
2216               /* This is a global offset table entry for a local symbol.  */
2217               if (local_got_refcounts == NULL)
2218                 {
2219                   size_t size;
2220
2221                   size = symtab_hdr->sh_info * sizeof (bfd_signed_vma);
2222                   local_got_refcounts = (bfd_signed_vma *)
2223                     bfd_alloc (abfd, size);
2224                   if (local_got_refcounts == NULL)
2225                     return false;
2226                   elf_local_got_refcounts (abfd) = local_got_refcounts;
2227                   memset (local_got_refcounts, -1, size);
2228                 }
2229               if (local_got_refcounts[r_symndx] == -1)
2230                 {
2231                   sgot->_raw_size += 4;
2232
2233                   /* If we are generating a shared object, we need to
2234                      output a R_PPC_RELATIVE reloc so that the
2235                      dynamic linker can adjust this GOT entry.  */
2236                   if (info->shared)
2237                     srelgot->_raw_size += sizeof (Elf32_External_Rela);
2238
2239                   local_got_refcounts[r_symndx] = 1;
2240                 }
2241               else
2242                 local_got_refcounts[r_symndx]++;
2243             }
2244           break;
2245
2246         /* Indirect .sdata relocation */
2247         case R_PPC_EMB_SDAI16:
2248           if (info->shared)
2249             {
2250               ((*_bfd_error_handler)
2251                (_("%s: relocation %s cannot be used when making a shared object"),
2252                 bfd_get_filename (abfd), "R_PPC_EMB_SDAI16"));
2253                return false;
2254             }
2255
2256           if (srelgot == NULL && (h != NULL || info->shared))
2257             {
2258               srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
2259               if (srelgot == NULL)
2260                 {
2261                   srelgot = bfd_make_section (dynobj, ".rela.got");
2262                   if (srelgot == NULL
2263                       || ! bfd_set_section_flags (dynobj, srelgot,
2264                                                   (SEC_ALLOC
2265                                                    | SEC_LOAD
2266                                                    | SEC_HAS_CONTENTS
2267                                                    | SEC_IN_MEMORY
2268                                                    | SEC_LINKER_CREATED
2269                                                    | SEC_READONLY))
2270                       || ! bfd_set_section_alignment (dynobj, srelgot, 2))
2271                     return false;
2272                 }
2273             }
2274
2275           if (!bfd_elf32_create_pointer_linker_section (abfd, info, sdata, h, rel))
2276             return false;
2277
2278           break;
2279
2280         /* Indirect .sdata2 relocation */
2281         case R_PPC_EMB_SDA2I16:
2282           if (info->shared)
2283             {
2284               ((*_bfd_error_handler)
2285                (_("%s: relocation %s cannot be used when making a shared object"),
2286                 bfd_get_filename (abfd), "R_PPC_EMB_SDA2I16"));
2287               return false;
2288             }
2289
2290           if (srelgot == NULL && (h != NULL || info->shared))
2291             {
2292               srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
2293               if (srelgot == NULL)
2294                 {
2295                   srelgot = bfd_make_section (dynobj, ".rela.got");
2296                   if (srelgot == NULL
2297                       || ! bfd_set_section_flags (dynobj, srelgot,
2298                                                   (SEC_ALLOC
2299                                                    | SEC_LOAD
2300                                                    | SEC_HAS_CONTENTS
2301                                                    | SEC_IN_MEMORY
2302                                                    | SEC_LINKER_CREATED
2303                                                    | SEC_READONLY))
2304                       || ! bfd_set_section_alignment (dynobj, srelgot, 2))
2305                     return false;
2306                 }
2307             }
2308
2309           if (!bfd_elf32_create_pointer_linker_section (abfd, info, sdata2, h, rel))
2310             return false;
2311
2312           break;
2313
2314         case R_PPC_SDAREL16:
2315         case R_PPC_EMB_SDA2REL:
2316         case R_PPC_EMB_SDA21:
2317           if (info->shared)
2318             {
2319               ((*_bfd_error_handler)
2320                (_("%s: relocation %s cannot be used when making a shared object"),
2321                 bfd_get_filename (abfd),
2322                 ppc_elf_howto_table[(int)ELF32_R_TYPE (rel->r_info)]->name));
2323               return false;
2324             }
2325           break;
2326
2327         case R_PPC_PLT32:
2328         case R_PPC_PLTREL24:
2329         case R_PPC_PLT16_LO:
2330         case R_PPC_PLT16_HI:
2331         case R_PPC_PLT16_HA:
2332 #ifdef DEBUG
2333           fprintf (stderr, "Reloc requires a PLT entry\n");
2334 #endif
2335           /* This symbol requires a procedure linkage table entry.  We
2336              actually build the entry in adjust_dynamic_symbol,
2337              because this might be a case of linking PIC code without
2338              linking in any dynamic objects, in which case we don't
2339              need to generate a procedure linkage table after all.  */
2340
2341           if (h == NULL)
2342             {
2343               /* It does not make sense to have a procedure linkage
2344                  table entry for a local symbol.  */
2345               bfd_set_error (bfd_error_bad_value);
2346               return false;
2347             }
2348
2349           /* Make sure this symbol is output as a dynamic symbol.  */
2350           if (h->dynindx == -1)
2351             {
2352               if (! bfd_elf32_link_record_dynamic_symbol (info, h))
2353                 return false;
2354             }
2355           if (h->plt.refcount == -1)
2356             {
2357               h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_PLT;
2358               h->plt.refcount = 1;
2359             }
2360           else
2361             h->plt.refcount++;
2362           break;
2363
2364           /* The following relocations don't need to propagate the
2365              relocation if linking a shared object since they are
2366              section relative.  */
2367         case R_PPC_SECTOFF:
2368         case R_PPC_SECTOFF_LO:
2369         case R_PPC_SECTOFF_HI:
2370         case R_PPC_SECTOFF_HA:
2371           break;
2372
2373           /* This refers only to functions defined in the shared library */
2374         case R_PPC_LOCAL24PC:
2375           break;
2376
2377           /* This relocation describes the C++ object vtable hierarchy.
2378              Reconstruct it for later use during GC.  */
2379         case R_PPC_GNU_VTINHERIT:
2380           if (!_bfd_elf32_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
2381             return false;
2382           break;
2383
2384           /* This relocation describes which C++ vtable entries are actually
2385              used.  Record for later use during GC.  */
2386         case R_PPC_GNU_VTENTRY:
2387           if (!_bfd_elf32_gc_record_vtentry (abfd, sec, h, rel->r_addend))
2388             return false;
2389           break;
2390
2391           /* When creating a shared object, we must copy these
2392              relocs into the output file.  We create a reloc
2393              section in dynobj and make room for the reloc.  */
2394         case R_PPC_REL24:
2395         case R_PPC_REL14:
2396         case R_PPC_REL14_BRTAKEN:
2397         case R_PPC_REL14_BRNTAKEN:
2398         case R_PPC_REL32:
2399           if (h == NULL
2400               || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
2401             break;
2402           /* fall through */
2403
2404         default:
2405           if (info->shared)
2406             {
2407 #ifdef DEBUG
2408               fprintf (stderr, "ppc_elf_check_relocs need to create relocation for %s\n",
2409                        (h && h->root.root.string) ? h->root.root.string : "<unknown>");
2410 #endif
2411               if (sreloc == NULL)
2412                 {
2413                   const char *name;
2414
2415                   name = (bfd_elf_string_from_elf_section
2416                           (abfd,
2417                            elf_elfheader (abfd)->e_shstrndx,
2418                            elf_section_data (sec)->rel_hdr.sh_name));
2419                   if (name == NULL)
2420                     return false;
2421
2422                   BFD_ASSERT (strncmp (name, ".rela", 5) == 0
2423                               && strcmp (bfd_get_section_name (abfd, sec),
2424                                          name + 5) == 0);
2425
2426                   sreloc = bfd_get_section_by_name (dynobj, name);
2427                   if (sreloc == NULL)
2428                     {
2429                       flagword flags;
2430
2431                       sreloc = bfd_make_section (dynobj, name);
2432                       flags = (SEC_HAS_CONTENTS | SEC_READONLY
2433                                | SEC_IN_MEMORY | SEC_LINKER_CREATED);
2434                       if ((sec->flags & SEC_ALLOC) != 0)
2435                         flags |= SEC_ALLOC | SEC_LOAD;
2436                       if (sreloc == NULL
2437                           || ! bfd_set_section_flags (dynobj, sreloc, flags)
2438                           || ! bfd_set_section_alignment (dynobj, sreloc, 2))
2439                         return false;
2440                     }
2441                 }
2442
2443               sreloc->_raw_size += sizeof (Elf32_External_Rela);
2444
2445               /* FIXME: We should here do what the m68k and i386
2446                  backends do: if the reloc is pc-relative, record it
2447                  in case it turns out that the reloc is unnecessary
2448                  because the symbol is forced local by versioning or
2449                  we are linking with -Bdynamic.  Fortunately this
2450                  case is not frequent.  */
2451             }
2452
2453           break;
2454         }
2455     }
2456
2457   return true;
2458 }
2459
2460 /* Return the section that should be marked against GC for a given
2461    relocation.  */
2462
2463 static asection *
2464 ppc_elf_gc_mark_hook (abfd, info, rel, h, sym)
2465      bfd *abfd;
2466      struct bfd_link_info *info ATTRIBUTE_UNUSED;
2467      Elf_Internal_Rela *rel;
2468      struct elf_link_hash_entry *h;
2469      Elf_Internal_Sym *sym;
2470 {
2471   if (h != NULL)
2472     {
2473       switch (ELF32_R_TYPE (rel->r_info))
2474         {
2475         case R_PPC_GNU_VTINHERIT:
2476         case R_PPC_GNU_VTENTRY:
2477           break;
2478
2479         default:
2480           switch (h->root.type)
2481             {
2482             case bfd_link_hash_defined:
2483             case bfd_link_hash_defweak:
2484               return h->root.u.def.section;
2485
2486             case bfd_link_hash_common:
2487               return h->root.u.c.p->section;
2488
2489             default:
2490               break;
2491             }
2492         }
2493     }
2494   else
2495     {
2496       if (!(elf_bad_symtab (abfd)
2497             && ELF_ST_BIND (sym->st_info) != STB_LOCAL)
2498           && ! ((sym->st_shndx <= 0 || sym->st_shndx >= SHN_LORESERVE)
2499                 && sym->st_shndx != SHN_COMMON))
2500         {
2501           return bfd_section_from_elf_index (abfd, sym->st_shndx);
2502         }
2503     }
2504
2505   return NULL;
2506 }
2507
2508 /* Update the got entry reference counts for the section being removed.  */
2509
2510 static boolean
2511 ppc_elf_gc_sweep_hook (abfd, info, sec, relocs)
2512      bfd *abfd;
2513      struct bfd_link_info *info ATTRIBUTE_UNUSED;
2514      asection *sec;
2515      const Elf_Internal_Rela *relocs;
2516 {
2517   Elf_Internal_Shdr *symtab_hdr;
2518   struct elf_link_hash_entry **sym_hashes;
2519   bfd_signed_vma *local_got_refcounts;
2520   const Elf_Internal_Rela *rel, *relend;
2521   unsigned long r_symndx;
2522   struct elf_link_hash_entry *h;
2523
2524   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2525   sym_hashes = elf_sym_hashes (abfd);
2526   local_got_refcounts = elf_local_got_refcounts (abfd);
2527
2528   relend = relocs + sec->reloc_count;
2529   for (rel = relocs; rel < relend; rel++)
2530     switch (ELF32_R_TYPE (rel->r_info))
2531       {
2532       case R_PPC_GOT16:
2533       case R_PPC_GOT16_LO:
2534       case R_PPC_GOT16_HI:
2535       case R_PPC_GOT16_HA:
2536         r_symndx = ELF32_R_SYM (rel->r_info);
2537         if (r_symndx >= symtab_hdr->sh_info)
2538           {
2539             h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2540             if (h->got.refcount > 0)
2541               h->got.refcount--;
2542           }
2543         else if (local_got_refcounts != NULL)
2544           {
2545             if (local_got_refcounts[r_symndx] > 0)
2546               local_got_refcounts[r_symndx]--;
2547           }
2548         break;
2549
2550       case R_PPC_PLT32:
2551       case R_PPC_PLTREL24:
2552       case R_PPC_PLT16_LO:
2553       case R_PPC_PLT16_HI:
2554       case R_PPC_PLT16_HA:
2555         r_symndx = ELF32_R_SYM (rel->r_info);
2556         if (r_symndx >= symtab_hdr->sh_info)
2557           {
2558             h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2559             if (h->plt.refcount > 0)
2560               h->plt.refcount--;
2561           }
2562         break;
2563
2564       default:
2565         break;
2566       }
2567
2568   return true;
2569 }
2570 \f
2571 /* Hook called by the linker routine which adds symbols from an object
2572    file.  We use it to put .comm items in .sbss, and not .bss.  */
2573
2574 /*ARGSUSED*/
2575 static boolean
2576 ppc_elf_add_symbol_hook (abfd, info, sym, namep, flagsp, secp, valp)
2577      bfd *abfd;
2578      struct bfd_link_info *info;
2579      const Elf_Internal_Sym *sym;
2580      const char **namep ATTRIBUTE_UNUSED;
2581      flagword *flagsp ATTRIBUTE_UNUSED;
2582      asection **secp;
2583      bfd_vma *valp;
2584 {
2585   if (sym->st_shndx == SHN_COMMON
2586       && !info->relocateable
2587       && sym->st_size <= (bfd_vma) bfd_get_gp_size (abfd))
2588     {
2589       /* Common symbols less than or equal to -G nn bytes are automatically
2590          put into .sdata.  */
2591       elf_linker_section_t *sdata
2592         = ppc_elf_create_linker_section (abfd, info, LINKER_SECTION_SDATA);
2593
2594       if (!sdata->bss_section)
2595         {
2596           /* We don't go through bfd_make_section, because we don't
2597              want to attach this common section to DYNOBJ.  The linker
2598              will move the symbols to the appropriate output section
2599              when it defines common symbols.  */
2600           sdata->bss_section = ((asection *)
2601                                 bfd_zalloc (abfd, sizeof (asection)));
2602           if (sdata->bss_section == NULL)
2603             return false;
2604           sdata->bss_section->name = sdata->bss_name;
2605           sdata->bss_section->flags = SEC_IS_COMMON;
2606           sdata->bss_section->output_section = sdata->bss_section;
2607           sdata->bss_section->symbol =
2608             (asymbol *) bfd_zalloc (abfd, sizeof (asymbol));
2609           sdata->bss_section->symbol_ptr_ptr =
2610             (asymbol **) bfd_zalloc (abfd, sizeof (asymbol *));
2611           if (sdata->bss_section->symbol == NULL
2612               || sdata->bss_section->symbol_ptr_ptr == NULL)
2613             return false;
2614           sdata->bss_section->symbol->name = sdata->bss_name;
2615           sdata->bss_section->symbol->flags = BSF_SECTION_SYM;
2616           sdata->bss_section->symbol->section = sdata->bss_section;
2617           *sdata->bss_section->symbol_ptr_ptr = sdata->bss_section->symbol;
2618         }
2619
2620       *secp = sdata->bss_section;
2621       *valp = sym->st_size;
2622     }
2623
2624   return true;
2625 }
2626
2627 \f
2628 /* Finish up dynamic symbol handling.  We set the contents of various
2629    dynamic sections here.  */
2630
2631 static boolean
2632 ppc_elf_finish_dynamic_symbol (output_bfd, info, h, sym)
2633      bfd *output_bfd;
2634      struct bfd_link_info *info;
2635      struct elf_link_hash_entry *h;
2636      Elf_Internal_Sym *sym;
2637 {
2638   bfd *dynobj;
2639
2640 #ifdef DEBUG
2641   fprintf (stderr, "ppc_elf_finish_dynamic_symbol called for %s",
2642            h->root.root.string);
2643 #endif
2644
2645   dynobj = elf_hash_table (info)->dynobj;
2646   BFD_ASSERT (dynobj != NULL);
2647
2648   if (h->plt.offset != (bfd_vma) -1)
2649     {
2650       asection *splt;
2651       asection *srela;
2652       Elf_Internal_Rela rela;
2653       bfd_vma reloc_index;
2654
2655 #ifdef DEBUG
2656       fprintf (stderr, ", plt_offset = %d", h->plt.offset);
2657 #endif
2658
2659       /* This symbol has an entry in the procedure linkage table.  Set
2660          it up.  */
2661
2662       BFD_ASSERT (h->dynindx != -1);
2663
2664       splt = bfd_get_section_by_name (dynobj, ".plt");
2665       srela = bfd_get_section_by_name (dynobj, ".rela.plt");
2666       BFD_ASSERT (splt != NULL && srela != NULL);
2667
2668       /* We don't need to fill in the .plt.  The ppc dynamic linker
2669          will fill it in.  */
2670
2671       /* Fill in the entry in the .rela.plt section.  */
2672       rela.r_offset = (splt->output_section->vma
2673                        + splt->output_offset
2674                        + h->plt.offset);
2675       rela.r_info = ELF32_R_INFO (h->dynindx, R_PPC_JMP_SLOT);
2676       rela.r_addend = 0;
2677
2678       reloc_index = (h->plt.offset - PLT_INITIAL_ENTRY_SIZE) / PLT_SLOT_SIZE;
2679       if (reloc_index > PLT_NUM_SINGLE_ENTRIES)
2680         reloc_index -= (reloc_index - PLT_NUM_SINGLE_ENTRIES) / 2;
2681       bfd_elf32_swap_reloca_out (output_bfd, &rela,
2682                                  ((Elf32_External_Rela *) srela->contents
2683                                   + reloc_index));
2684
2685       if ((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
2686         {
2687           /* Mark the symbol as undefined, rather than as defined in
2688              the .plt section.  Leave the value alone.  */
2689           sym->st_shndx = SHN_UNDEF;
2690         }
2691     }
2692
2693   if (h->got.offset != (bfd_vma) -1)
2694     {
2695       asection *sgot;
2696       asection *srela;
2697       Elf_Internal_Rela rela;
2698
2699       /* This symbol has an entry in the global offset table.  Set it
2700          up.  */
2701
2702       sgot = bfd_get_section_by_name (dynobj, ".got");
2703       srela = bfd_get_section_by_name (dynobj, ".rela.got");
2704       BFD_ASSERT (sgot != NULL && srela != NULL);
2705
2706       rela.r_offset = (sgot->output_section->vma
2707                        + sgot->output_offset
2708                        + (h->got.offset &~ 1));
2709
2710       /* If this is a -Bsymbolic link, and the symbol is defined
2711          locally, we just want to emit a RELATIVE reloc.  The entry in
2712          the global offset table will already have been initialized in
2713          the relocate_section function.  */
2714       if (info->shared
2715           && (info->symbolic || h->dynindx == -1)
2716           && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR))
2717         {
2718           rela.r_info = ELF32_R_INFO (0, R_PPC_RELATIVE);
2719           rela.r_addend = (h->root.u.def.value
2720                            + h->root.u.def.section->output_section->vma
2721                            + h->root.u.def.section->output_offset);
2722         }
2723       else
2724         {
2725           BFD_ASSERT((h->got.offset & 1) == 0);
2726           bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + h->got.offset);
2727           rela.r_info = ELF32_R_INFO (h->dynindx, R_PPC_GLOB_DAT);
2728           rela.r_addend = 0;
2729         }
2730
2731       bfd_elf32_swap_reloca_out (output_bfd, &rela,
2732                                  ((Elf32_External_Rela *) srela->contents
2733                                   + srela->reloc_count));
2734       ++srela->reloc_count;
2735     }
2736
2737   if ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_COPY) != 0)
2738     {
2739       asection *s;
2740       Elf_Internal_Rela rela;
2741
2742       /* This symbols needs a copy reloc.  Set it up.  */
2743
2744 #ifdef DEBUG
2745       fprintf (stderr, ", copy");
2746 #endif
2747
2748       BFD_ASSERT (h->dynindx != -1);
2749
2750       if (h->size <= elf_gp_size (dynobj))
2751         s = bfd_get_section_by_name (h->root.u.def.section->owner,
2752                                      ".rela.sbss");
2753       else
2754         s = bfd_get_section_by_name (h->root.u.def.section->owner,
2755                                      ".rela.bss");
2756       BFD_ASSERT (s != NULL);
2757
2758       rela.r_offset = (h->root.u.def.value
2759                        + h->root.u.def.section->output_section->vma
2760                        + h->root.u.def.section->output_offset);
2761       rela.r_info = ELF32_R_INFO (h->dynindx, R_PPC_COPY);
2762       rela.r_addend = 0;
2763       bfd_elf32_swap_reloca_out (output_bfd, &rela,
2764                                  ((Elf32_External_Rela *) s->contents
2765                                   + s->reloc_count));
2766       ++s->reloc_count;
2767     }
2768
2769 #ifdef DEBUG
2770   fprintf (stderr, "\n");
2771 #endif
2772
2773   /* Mark some specially defined symbols as absolute.  */
2774   if (strcmp (h->root.root.string, "_DYNAMIC") == 0
2775       || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0
2776       || strcmp (h->root.root.string, "_PROCEDURE_LINKAGE_TABLE_") == 0)
2777     sym->st_shndx = SHN_ABS;
2778
2779   return true;
2780 }
2781
2782 \f
2783 /* Finish up the dynamic sections.  */
2784
2785 static boolean
2786 ppc_elf_finish_dynamic_sections (output_bfd, info)
2787      bfd *output_bfd;
2788      struct bfd_link_info *info;
2789 {
2790   asection *sdyn;
2791   bfd *dynobj = elf_hash_table (info)->dynobj;
2792   asection *sgot = bfd_get_section_by_name (dynobj, ".got");
2793
2794 #ifdef DEBUG
2795   fprintf (stderr, "ppc_elf_finish_dynamic_sections called\n");
2796 #endif
2797
2798   sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
2799
2800   if (elf_hash_table (info)->dynamic_sections_created)
2801     {
2802       asection *splt;
2803       Elf32_External_Dyn *dyncon, *dynconend;
2804
2805       splt = bfd_get_section_by_name (dynobj, ".plt");
2806       BFD_ASSERT (splt != NULL && sdyn != NULL);
2807
2808       dyncon = (Elf32_External_Dyn *) sdyn->contents;
2809       dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->_raw_size);
2810       for (; dyncon < dynconend; dyncon++)
2811         {
2812           Elf_Internal_Dyn dyn;
2813           const char *name;
2814           boolean size;
2815
2816           bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
2817
2818           switch (dyn.d_tag)
2819             {
2820             case DT_PLTGOT:   name = ".plt";      size = false; break;
2821             case DT_PLTRELSZ: name = ".rela.plt"; size = true;  break;
2822             case DT_JMPREL:   name = ".rela.plt"; size = false; break;
2823             default:          name = NULL;        size = false; break;
2824             }
2825
2826           if (name != NULL)
2827             {
2828               asection *s;
2829
2830               s = bfd_get_section_by_name (output_bfd, name);
2831               if (s == NULL)
2832                 dyn.d_un.d_val = 0;
2833               else
2834                 {
2835                   if (! size)
2836                     dyn.d_un.d_ptr = s->vma;
2837                   else
2838                     {
2839                       if (s->_cooked_size != 0)
2840                         dyn.d_un.d_val = s->_cooked_size;
2841                       else
2842                         dyn.d_un.d_val = s->_raw_size;
2843                     }
2844                 }
2845               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
2846             }
2847         }
2848     }
2849
2850   /* Add a blrl instruction at _GLOBAL_OFFSET_TABLE_-4 so that a function can
2851      easily find the address of the _GLOBAL_OFFSET_TABLE_.  */
2852   if (sgot)
2853     {
2854       unsigned char *contents = sgot->contents;
2855       bfd_put_32 (output_bfd, 0x4e800021 /* blrl */, contents);
2856
2857       if (sdyn == NULL)
2858         bfd_put_32 (output_bfd, (bfd_vma) 0, contents+4);
2859       else
2860         bfd_put_32 (output_bfd,
2861                     sdyn->output_section->vma + sdyn->output_offset,
2862                     contents+4);
2863
2864       elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4;
2865     }
2866
2867   return true;
2868 }
2869
2870 \f
2871 /* The RELOCATE_SECTION function is called by the ELF backend linker
2872    to handle the relocations for a section.
2873
2874    The relocs are always passed as Rela structures; if the section
2875    actually uses Rel structures, the r_addend field will always be
2876    zero.
2877
2878    This function is responsible for adjust the section contents as
2879    necessary, and (if using Rela relocs and generating a
2880    relocateable output file) adjusting the reloc addend as
2881    necessary.
2882
2883    This function does not have to worry about setting the reloc
2884    address or the reloc symbol index.
2885
2886    LOCAL_SYMS is a pointer to the swapped in local symbols.
2887
2888    LOCAL_SECTIONS is an array giving the section in the input file
2889    corresponding to the st_shndx field of each local symbol.
2890
2891    The global hash table entry for the global symbols can be found
2892    via elf_sym_hashes (input_bfd).
2893
2894    When generating relocateable output, this function must handle
2895    STB_LOCAL/STT_SECTION symbols specially.  The output symbol is
2896    going to be the section symbol corresponding to the output
2897    section, which means that the addend must be adjusted
2898    accordingly.  */
2899
2900 static boolean
2901 ppc_elf_relocate_section (output_bfd, info, input_bfd, input_section,
2902                           contents, relocs, local_syms, local_sections)
2903      bfd *output_bfd;
2904      struct bfd_link_info *info;
2905      bfd *input_bfd;
2906      asection *input_section;
2907      bfd_byte *contents;
2908      Elf_Internal_Rela *relocs;
2909      Elf_Internal_Sym *local_syms;
2910      asection **local_sections;
2911 {
2912   Elf_Internal_Shdr *symtab_hdr           = &elf_tdata (input_bfd)->symtab_hdr;
2913   struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (input_bfd);
2914   bfd *dynobj                             = elf_hash_table (info)->dynobj;
2915   elf_linker_section_t *sdata             = (dynobj) ? elf_linker_section (dynobj, LINKER_SECTION_SDATA)  : NULL;
2916   elf_linker_section_t *sdata2            = (dynobj) ? elf_linker_section (dynobj, LINKER_SECTION_SDATA2) : NULL;
2917   Elf_Internal_Rela *rel                  = relocs;
2918   Elf_Internal_Rela *relend               = relocs + input_section->reloc_count;
2919   asection *sreloc                        = NULL;
2920   asection *splt;
2921   asection *sgot;
2922   bfd_vma *local_got_offsets;
2923   boolean ret                             = true;
2924   long insn;
2925
2926 #ifdef DEBUG
2927   fprintf (stderr, "ppc_elf_relocate_section called for %s section %s, %ld relocations%s\n",
2928            bfd_get_filename (input_bfd),
2929            bfd_section_name(input_bfd, input_section),
2930            (long)input_section->reloc_count,
2931            (info->relocateable) ? " (relocatable)" : "");
2932 #endif
2933
2934   if (!ppc_elf_howto_table[ R_PPC_ADDR32 ])     /* Initialize howto table if needed */
2935     ppc_elf_howto_init ();
2936
2937   local_got_offsets = elf_local_got_offsets (input_bfd);
2938
2939   splt = sgot = NULL;
2940   if (dynobj != NULL)
2941     {
2942       splt = bfd_get_section_by_name (dynobj, ".plt");
2943       sgot = bfd_get_section_by_name (dynobj, ".got");
2944     }
2945
2946   for (; rel < relend; rel++)
2947     {
2948       enum elf_ppc_reloc_type r_type    = (enum elf_ppc_reloc_type)ELF32_R_TYPE (rel->r_info);
2949       bfd_vma offset                    = rel->r_offset;
2950       bfd_vma addend                    = rel->r_addend;
2951       bfd_reloc_status_type r           = bfd_reloc_other;
2952       Elf_Internal_Sym *sym             = (Elf_Internal_Sym *)0;
2953       asection *sec                     = (asection *)0;
2954       struct elf_link_hash_entry *h     = (struct elf_link_hash_entry *)0;
2955       const char *sym_name              = (const char *)0;
2956       reloc_howto_type *howto;
2957       unsigned long r_symndx;
2958       bfd_vma relocation;
2959
2960       /* Unknown relocation handling */
2961       if ((unsigned)r_type >= (unsigned)R_PPC_max || !ppc_elf_howto_table[(int)r_type])
2962         {
2963           (*_bfd_error_handler) (_("%s: unknown relocation type %d"),
2964                                  bfd_get_filename (input_bfd),
2965                                  (int)r_type);
2966
2967           bfd_set_error (bfd_error_bad_value);
2968           ret = false;
2969           continue;
2970         }
2971
2972       howto = ppc_elf_howto_table[(int)r_type];
2973       r_symndx = ELF32_R_SYM (rel->r_info);
2974
2975       if (info->relocateable)
2976         {
2977           /* This is a relocateable link.  We don't have to change
2978              anything, unless the reloc is against a section symbol,
2979              in which case we have to adjust according to where the
2980              section symbol winds up in the output section.  */
2981           if (r_symndx < symtab_hdr->sh_info)
2982             {
2983               sym = local_syms + r_symndx;
2984               if ((unsigned)ELF_ST_TYPE (sym->st_info) == STT_SECTION)
2985                 {
2986                   sec = local_sections[r_symndx];
2987                   addend = rel->r_addend += sec->output_offset + sym->st_value;
2988                 }
2989             }
2990
2991 #ifdef DEBUG
2992           fprintf (stderr, "\ttype = %s (%d), symbol index = %ld, offset = %ld, addend = %ld\n",
2993                    howto->name,
2994                    (int)r_type,
2995                    r_symndx,
2996                    (long)offset,
2997                    (long)addend);
2998 #endif
2999           continue;
3000         }
3001
3002       /* This is a final link.  */
3003       if (r_symndx < symtab_hdr->sh_info)
3004         {
3005           sym = local_syms + r_symndx;
3006           sec = local_sections[r_symndx];
3007           sym_name = "<local symbol>";
3008
3009           relocation = (sec->output_section->vma
3010                         + sec->output_offset
3011                         + sym->st_value);
3012         }
3013       else
3014         {
3015           h = sym_hashes[r_symndx - symtab_hdr->sh_info];
3016           while (h->root.type == bfd_link_hash_indirect
3017                  || h->root.type == bfd_link_hash_warning)
3018             h = (struct elf_link_hash_entry *) h->root.u.i.link;
3019           sym_name = h->root.root.string;
3020           if (h->root.type == bfd_link_hash_defined
3021               || h->root.type == bfd_link_hash_defweak)
3022             {
3023               sec = h->root.u.def.section;
3024               if ((r_type == R_PPC_PLT32
3025                    && splt != NULL
3026                    && h->plt.offset != (bfd_vma) -1)
3027                   || (r_type == R_PPC_LOCAL24PC
3028                       && sec->output_section == NULL)
3029                   || ((r_type == R_PPC_GOT16
3030                        || r_type == R_PPC_GOT16_LO
3031                        || r_type == R_PPC_GOT16_HI
3032                        || r_type == R_PPC_GOT16_HA)
3033                       && elf_hash_table (info)->dynamic_sections_created
3034                       && (! info->shared
3035                           || (! info->symbolic && h->dynindx != -1)
3036                           || (h->elf_link_hash_flags
3037                               & ELF_LINK_HASH_DEF_REGULAR) == 0))
3038                   || (info->shared
3039                       && ((! info->symbolic && h->dynindx != -1)
3040                           || (h->elf_link_hash_flags
3041                               & ELF_LINK_HASH_DEF_REGULAR) == 0)
3042                       && ((input_section->flags & SEC_ALLOC) != 0
3043                           /* Testing SEC_DEBUGGING here may be wrong.
3044                              It's here to avoid a crash when
3045                              generating a shared library with DWARF
3046                              debugging information.  */
3047                           || ((input_section->flags & SEC_DEBUGGING) != 0
3048                               && (h->elf_link_hash_flags
3049                                   & ELF_LINK_HASH_DEF_DYNAMIC) != 0))
3050                       && (r_type == R_PPC_ADDR32
3051                           || r_type == R_PPC_ADDR24
3052                           || r_type == R_PPC_ADDR16
3053                           || r_type == R_PPC_ADDR16_LO
3054                           || r_type == R_PPC_ADDR16_HI
3055                           || r_type == R_PPC_ADDR16_HA
3056                           || r_type == R_PPC_ADDR14
3057                           || r_type == R_PPC_ADDR14_BRTAKEN
3058                           || r_type == R_PPC_ADDR14_BRNTAKEN
3059                           || r_type == R_PPC_PLTREL24
3060                           || r_type == R_PPC_COPY
3061                           || r_type == R_PPC_GLOB_DAT
3062                           || r_type == R_PPC_JMP_SLOT
3063                           || r_type == R_PPC_UADDR32
3064                           || r_type == R_PPC_UADDR16
3065                           || r_type == R_PPC_SDAREL16
3066                           || r_type == R_PPC_EMB_NADDR32
3067                           || r_type == R_PPC_EMB_NADDR16
3068                           || r_type == R_PPC_EMB_NADDR16_LO
3069                           || r_type == R_PPC_EMB_NADDR16_HI
3070                           || r_type == R_PPC_EMB_NADDR16_HA
3071                           || r_type == R_PPC_EMB_SDAI16
3072                           || r_type == R_PPC_EMB_SDA2I16
3073                           || r_type == R_PPC_EMB_SDA2REL
3074                           || r_type == R_PPC_EMB_SDA21
3075                           || r_type == R_PPC_EMB_MRKREF
3076                           || r_type == R_PPC_EMB_BIT_FLD
3077                           || r_type == R_PPC_EMB_RELSDA
3078                           || ((r_type == R_PPC_REL24
3079                                || r_type == R_PPC_REL32
3080                                || r_type == R_PPC_REL14
3081                                || r_type == R_PPC_REL14_BRTAKEN
3082                                || r_type == R_PPC_REL14_BRNTAKEN
3083                                || r_type == R_PPC_RELATIVE)
3084                               && strcmp (h->root.root.string,
3085                                          "_GLOBAL_OFFSET_TABLE_") != 0))))
3086                 {
3087                   /* In these cases, we don't need the relocation
3088                      value.  We check specially because in some
3089                      obscure cases sec->output_section will be NULL.  */
3090                   relocation = 0;
3091                 }
3092               else if (sec->output_section == NULL)
3093                 {
3094                   (*_bfd_error_handler)
3095                     (_("%s: warning: unresolvable relocation against symbol `%s' from %s section"),
3096                      bfd_get_filename (input_bfd), h->root.root.string,
3097                      bfd_get_section_name (input_bfd, input_section));
3098                   relocation = 0;
3099                 }
3100               else
3101                 relocation = (h->root.u.def.value
3102                               + sec->output_section->vma
3103                               + sec->output_offset);
3104             }
3105           else if (h->root.type == bfd_link_hash_undefweak)
3106             relocation = 0;
3107           else if (info->shared && !info->symbolic && !info->no_undefined)
3108             relocation = 0;
3109           else
3110             {
3111               if (! (*info->callbacks->undefined_symbol)(info,
3112                                                          h->root.root.string,
3113                                                          input_bfd,
3114                                                          input_section,
3115                                                          rel->r_offset,
3116                                                          (!info->shared
3117                                                           || info->no_undefined)))
3118                 return false;
3119               relocation = 0;
3120             }
3121         }
3122
3123       switch ((int)r_type)
3124         {
3125         default:
3126           (*_bfd_error_handler) (_("%s: unknown relocation type %d for symbol %s"),
3127                                  bfd_get_filename (input_bfd),
3128                                  (int)r_type, sym_name);
3129
3130           bfd_set_error (bfd_error_bad_value);
3131           ret = false;
3132           continue;
3133
3134         /* Relocations that need no special processing.  */
3135         case (int)R_PPC_LOCAL24PC:
3136           /* It makes no sense to point a local relocation
3137              at a symbol not in this object.  */
3138           if (h != NULL
3139               && (h->root.type == bfd_link_hash_defined
3140                   || h->root.type == bfd_link_hash_defweak)
3141               && sec->output_section == NULL)
3142             {
3143               if (! (*info->callbacks->undefined_symbol) (info,
3144                                                           h->root.root.string,
3145                                                           input_bfd,
3146                                                           input_section,
3147                                                           rel->r_offset,
3148                                                           true))
3149                 return false;
3150               continue;
3151             }
3152           break;
3153
3154         /* Relocations that may need to be propagated if this is a shared
3155            object.  */
3156         case (int)R_PPC_REL24:
3157         case (int)R_PPC_REL32:
3158         case (int)R_PPC_REL14:
3159           /* If these relocations are not to a named symbol, they can be
3160              handled right here, no need to bother the dynamic linker.  */
3161           if (h == NULL
3162               || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
3163             break;
3164         /* fall through */
3165
3166         /* Relocations that always need to be propagated if this is a shared
3167            object.  */
3168         case (int)R_PPC_NONE:
3169         case (int)R_PPC_ADDR32:
3170         case (int)R_PPC_ADDR24:
3171         case (int)R_PPC_ADDR16:
3172         case (int)R_PPC_ADDR16_LO:
3173         case (int)R_PPC_ADDR16_HI:
3174         case (int)R_PPC_ADDR16_HA:
3175         case (int)R_PPC_ADDR14:
3176         case (int)R_PPC_UADDR32:
3177         case (int)R_PPC_UADDR16:
3178           if (info->shared)
3179             {
3180               Elf_Internal_Rela outrel;
3181               boolean skip;
3182
3183 #ifdef DEBUG
3184               fprintf (stderr, "ppc_elf_relocate_section need to create relocation for %s\n",
3185                        (h && h->root.root.string) ? h->root.root.string : "<unknown>");
3186 #endif
3187
3188               /* When generating a shared object, these relocations
3189                  are copied into the output file to be resolved at run
3190                  time.  */
3191
3192               if (sreloc == NULL)
3193                 {
3194                   const char *name;
3195
3196                   name = (bfd_elf_string_from_elf_section
3197                           (input_bfd,
3198                            elf_elfheader (input_bfd)->e_shstrndx,
3199                            elf_section_data (input_section)->rel_hdr.sh_name));
3200                   if (name == NULL)
3201                     return false;
3202
3203                   BFD_ASSERT (strncmp (name, ".rela", 5) == 0
3204                               && strcmp (bfd_get_section_name (input_bfd,
3205                                                                input_section),
3206                                          name + 5) == 0);
3207
3208                   sreloc = bfd_get_section_by_name (dynobj, name);
3209                   BFD_ASSERT (sreloc != NULL);
3210                 }
3211
3212               skip = false;
3213
3214               if (elf_section_data (input_section)->stab_info == NULL)
3215                 outrel.r_offset = rel->r_offset;
3216               else
3217                 {
3218                   bfd_vma off;
3219
3220                   off = (_bfd_stab_section_offset
3221                          (output_bfd, &elf_hash_table (info)->stab_info,
3222                           input_section,
3223                           &elf_section_data (input_section)->stab_info,
3224                           rel->r_offset));
3225                   if (off == (bfd_vma) -1)
3226                     skip = true;
3227                   outrel.r_offset = off;
3228                 }
3229
3230               outrel.r_offset += (input_section->output_section->vma
3231                                   + input_section->output_offset);
3232
3233               if (skip)
3234                 memset (&outrel, 0, sizeof outrel);
3235               /* h->dynindx may be -1 if this symbol was marked to
3236                  become local.  */
3237               else if (h != NULL
3238                        && ((! info->symbolic && h->dynindx != -1)
3239                            || (h->elf_link_hash_flags
3240                                & ELF_LINK_HASH_DEF_REGULAR) == 0))
3241                 {
3242                   BFD_ASSERT (h->dynindx != -1);
3243                   outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
3244                   outrel.r_addend = rel->r_addend;
3245                 }
3246               else
3247                 {
3248                   if (r_type == R_PPC_ADDR32)
3249                     {
3250                       outrel.r_info = ELF32_R_INFO (0, R_PPC_RELATIVE);
3251                       outrel.r_addend = relocation + rel->r_addend;
3252                     }
3253                   else
3254                     {
3255                       long indx;
3256
3257                       if (h == NULL)
3258                         sec = local_sections[r_symndx];
3259                       else
3260                         {
3261                           BFD_ASSERT (h->root.type == bfd_link_hash_defined
3262                                       || (h->root.type
3263                                           == bfd_link_hash_defweak));
3264                           sec = h->root.u.def.section;
3265                         }
3266                       if (sec != NULL && bfd_is_abs_section (sec))
3267                         indx = 0;
3268                       else if (sec == NULL || sec->owner == NULL)
3269                         {
3270                           bfd_set_error (bfd_error_bad_value);
3271                           return false;
3272                         }
3273                       else
3274                         {
3275                           asection *osec;
3276
3277                           osec = sec->output_section;
3278                           indx = elf_section_data (osec)->dynindx;
3279                           BFD_ASSERT(indx > 0);
3280 #ifdef DEBUG
3281                           if (indx <= 0)
3282                             {
3283                               printf("indx=%d section=%s flags=%08x name=%s\n",
3284                                      indx, osec->name, osec->flags,
3285                                      h->root.root.string);
3286                             }
3287 #endif
3288                         }
3289
3290                       outrel.r_info = ELF32_R_INFO (indx, r_type);
3291                       outrel.r_addend = relocation + rel->r_addend;
3292                     }
3293                 }
3294
3295               bfd_elf32_swap_reloca_out (output_bfd, &outrel,
3296                                          (((Elf32_External_Rela *)
3297                                            sreloc->contents)
3298                                           + sreloc->reloc_count));
3299               ++sreloc->reloc_count;
3300
3301               /* This reloc will be computed at runtime, so there's no
3302                  need to do anything now, unless this is a RELATIVE
3303                  reloc in an unallocated section.  */
3304               if (skip
3305                   || (input_section->flags & SEC_ALLOC) != 0
3306                   || ELF32_R_TYPE (outrel.r_info) != R_PPC_RELATIVE)
3307                 continue;
3308             }
3309
3310           /* Arithmetic adjust relocations that aren't going into a
3311              shared object.  */
3312           if (r_type == R_PPC_ADDR16_HA
3313               /* It's just possible that this symbol is a weak symbol
3314                  that's not actually defined anywhere. In that case,
3315                  'sec' would be NULL, and we should leave the symbol
3316                  alone (it will be set to zero elsewhere in the link).  */
3317               && sec != NULL)
3318             {
3319               addend += ((relocation + addend) & 0x8000) << 1;
3320             }
3321           break;
3322
3323         /* branch taken prediction relocations */
3324         case (int)R_PPC_ADDR14_BRTAKEN:
3325         case (int)R_PPC_REL14_BRTAKEN:
3326           insn = bfd_get_32 (output_bfd, contents + offset);
3327           if ((relocation - offset) & 0x8000)
3328             insn &= ~BRANCH_PREDICT_BIT;
3329           else
3330             insn |= BRANCH_PREDICT_BIT;
3331           bfd_put_32 (output_bfd, insn, contents + offset);
3332           break;
3333
3334         /* branch not taken predicition relocations */
3335         case (int)R_PPC_ADDR14_BRNTAKEN:
3336         case (int)R_PPC_REL14_BRNTAKEN:
3337           insn = bfd_get_32 (output_bfd, contents + offset);
3338           if ((relocation - offset) & 0x8000)
3339             insn |= BRANCH_PREDICT_BIT;
3340           else
3341             insn &= ~BRANCH_PREDICT_BIT;
3342           bfd_put_32 (output_bfd, insn, contents + offset);
3343           break;
3344
3345         /* GOT16 relocations */
3346         case (int)R_PPC_GOT16:
3347         case (int)R_PPC_GOT16_LO:
3348         case (int)R_PPC_GOT16_HI:
3349         case (int)R_PPC_GOT16_HA:
3350           /* Relocation is to the entry for this symbol in the global
3351              offset table.  */
3352           BFD_ASSERT (sgot != NULL);
3353
3354           if (h != NULL)
3355             {
3356               bfd_vma off;
3357
3358               off = h->got.offset;
3359               BFD_ASSERT (off != (bfd_vma) -1);
3360
3361               if (! elf_hash_table (info)->dynamic_sections_created
3362                   || (info->shared
3363                       && (info->symbolic || h->dynindx == -1)
3364                       && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR)))
3365                 {
3366                   /* This is actually a static link, or it is a
3367                      -Bsymbolic link and the symbol is defined
3368                      locally.  We must initialize this entry in the
3369                      global offset table.  Since the offset must
3370                      always be a multiple of 4, we use the least
3371                      significant bit to record whether we have
3372                      initialized it already.
3373
3374                      When doing a dynamic link, we create a .rela.got
3375                      relocation entry to initialize the value.  This
3376                      is done in the finish_dynamic_symbol routine.  */
3377                   if ((off & 1) != 0)
3378                     off &= ~1;
3379                   else
3380                     {
3381                       bfd_put_32 (output_bfd, relocation,
3382                                   sgot->contents + off);
3383                       h->got.offset |= 1;
3384                     }
3385                 }
3386
3387               relocation = sgot->output_offset + off - 4;
3388             }
3389           else
3390             {
3391               bfd_vma off;
3392
3393               BFD_ASSERT (local_got_offsets != NULL
3394                           && local_got_offsets[r_symndx] != (bfd_vma) -1);
3395
3396               off = local_got_offsets[r_symndx];
3397
3398               /* The offset must always be a multiple of 4.  We use
3399                  the least significant bit to record whether we have
3400                  already processed this entry.  */
3401               if ((off & 1) != 0)
3402                 off &= ~1;
3403               else
3404                 {
3405                   bfd_put_32 (output_bfd, relocation, sgot->contents + off);
3406
3407                   if (info->shared)
3408                     {
3409                       asection *srelgot;
3410                       Elf_Internal_Rela outrel;
3411
3412                       /* We need to generate a R_PPC_RELATIVE reloc
3413                          for the dynamic linker.  */
3414                       srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
3415                       BFD_ASSERT (srelgot != NULL);
3416
3417                       outrel.r_offset = (sgot->output_section->vma
3418                                          + sgot->output_offset
3419                                          + off);
3420                       outrel.r_info = ELF32_R_INFO (0, R_PPC_RELATIVE);
3421                       outrel.r_addend = relocation;
3422                       bfd_elf32_swap_reloca_out (output_bfd, &outrel,
3423                                                  (((Elf32_External_Rela *)
3424                                                    srelgot->contents)
3425                                                   + srelgot->reloc_count));
3426                       ++srelgot->reloc_count;
3427                     }
3428
3429                   local_got_offsets[r_symndx] |= 1;
3430                 }
3431
3432               relocation = sgot->output_offset + off - 4;
3433             }
3434           break;
3435
3436         /* Indirect .sdata relocation */
3437         case (int)R_PPC_EMB_SDAI16:
3438           BFD_ASSERT (sdata != NULL);
3439           relocation = bfd_elf32_finish_pointer_linker_section (output_bfd, input_bfd, info,
3440                                                                 sdata, h, relocation, rel,
3441                                                                 R_PPC_RELATIVE);
3442           break;
3443
3444         /* Indirect .sdata2 relocation */
3445         case (int)R_PPC_EMB_SDA2I16:
3446           BFD_ASSERT (sdata2 != NULL);
3447           relocation = bfd_elf32_finish_pointer_linker_section (output_bfd, input_bfd, info,
3448                                                                 sdata2, h, relocation, rel,
3449                                                                 R_PPC_RELATIVE);
3450           break;
3451
3452         /* Handle the TOC16 reloc.  We want to use the offset within the .got
3453            section, not the actual VMA.  This is appropriate when generating
3454            an embedded ELF object, for which the .got section acts like the
3455            AIX .toc section.  */
3456         case (int)R_PPC_TOC16:                  /* phony GOT16 relocations */
3457           BFD_ASSERT (sec != (asection *)0);
3458           BFD_ASSERT (bfd_is_und_section (sec)
3459                       || strcmp (bfd_get_section_name (abfd, sec), ".got") == 0
3460                       || strcmp (bfd_get_section_name (abfd, sec), ".cgot") == 0)
3461
3462           addend -= sec->output_section->vma + sec->output_offset + 0x8000;
3463           break;
3464
3465         case (int)R_PPC_PLTREL24:
3466           /* Relocation is to the entry for this symbol in the
3467              procedure linkage table.  */
3468           BFD_ASSERT (h != NULL);
3469
3470           if (h->plt.offset == (bfd_vma) -1
3471               || splt == NULL)
3472             {
3473               /* We didn't make a PLT entry for this symbol.  This
3474                  happens when statically linking PIC code, or when
3475                  using -Bsymbolic.  */
3476               break;
3477             }
3478
3479           relocation = (splt->output_section->vma
3480                         + splt->output_offset
3481                         + h->plt.offset);
3482           break;
3483
3484         /* relocate against _SDA_BASE_ */
3485         case (int)R_PPC_SDAREL16:
3486           {
3487             const char *name;
3488
3489             BFD_ASSERT (sec != (asection *)0);
3490             name = bfd_get_section_name (abfd, sec->output_section);
3491             if (strcmp (name, ".sdata") != 0
3492                 && strcmp (name, ".sbss") != 0)
3493               {
3494                 (*_bfd_error_handler) (_("%s: The target (%s) of a %s relocation is in the wrong output section (%s)"),
3495                                        bfd_get_filename (input_bfd),
3496                                        sym_name,
3497                                        ppc_elf_howto_table[ (int)r_type ]->name,
3498                                        name);
3499               }
3500             addend -= (sdata->sym_hash->root.u.def.value
3501                        + sdata->sym_hash->root.u.def.section->output_section->vma
3502                        + sdata->sym_hash->root.u.def.section->output_offset);
3503           }
3504           break;
3505
3506
3507         /* relocate against _SDA2_BASE_ */
3508         case (int)R_PPC_EMB_SDA2REL:
3509           {
3510             const char *name;
3511
3512             BFD_ASSERT (sec != (asection *)0);
3513             name = bfd_get_section_name (abfd, sec->output_section);
3514             if (strcmp (name, ".sdata2") != 0 && strcmp (name, ".sbss2") != 0)
3515               {
3516                 (*_bfd_error_handler) (_("%s: The target (%s) of a %s relocation is in the wrong output section (%s)"),
3517                                        bfd_get_filename (input_bfd),
3518                                        sym_name,
3519                                        ppc_elf_howto_table[ (int)r_type ]->name,
3520                                        name);
3521
3522                 bfd_set_error (bfd_error_bad_value);
3523                 ret = false;
3524                 continue;
3525               }
3526             addend -= (sdata2->sym_hash->root.u.def.value
3527                        + sdata2->sym_hash->root.u.def.section->output_section->vma
3528                        + sdata2->sym_hash->root.u.def.section->output_offset);
3529           }
3530           break;
3531
3532
3533         /* relocate against either _SDA_BASE_, _SDA2_BASE_, or 0 */
3534         case (int)R_PPC_EMB_SDA21:
3535         case (int)R_PPC_EMB_RELSDA:
3536           {
3537             const char *name;
3538             int reg;
3539
3540             BFD_ASSERT (sec != (asection *)0);
3541             name = bfd_get_section_name (abfd, sec->output_section);
3542             if (strcmp (name, ".sdata") == 0 || strcmp (name, ".sbss") == 0)
3543               {
3544                 reg = 13;
3545                 addend -= (sdata->sym_hash->root.u.def.value
3546                            + sdata->sym_hash->root.u.def.section->output_section->vma
3547                            + sdata->sym_hash->root.u.def.section->output_offset);
3548               }
3549
3550             else if (strcmp (name, ".sdata2") == 0 || strcmp (name, ".sbss2") == 0)
3551               {
3552                 reg = 2;
3553                 addend -= (sdata2->sym_hash->root.u.def.value
3554                            + sdata2->sym_hash->root.u.def.section->output_section->vma
3555                            + sdata2->sym_hash->root.u.def.section->output_offset);
3556               }
3557
3558             else if (strcmp (name, ".PPC.EMB.sdata0") == 0 || strcmp (name, ".PPC.EMB.sbss0") == 0)
3559               {
3560                 reg = 0;
3561               }
3562
3563             else
3564               {
3565                 (*_bfd_error_handler) (_("%s: The target (%s) of a %s relocation is in the wrong output section (%s)"),
3566                                        bfd_get_filename (input_bfd),
3567                                        sym_name,
3568                                        ppc_elf_howto_table[ (int)r_type ]->name,
3569                                        name);
3570
3571                 bfd_set_error (bfd_error_bad_value);
3572                 ret = false;
3573                 continue;
3574               }
3575
3576             if (r_type == R_PPC_EMB_SDA21)
3577               {                 /* fill in register field */
3578                 insn = bfd_get_32 (output_bfd, contents + offset);
3579                 insn = (insn & ~RA_REGISTER_MASK) | (reg << RA_REGISTER_SHIFT);
3580                 bfd_put_32 (output_bfd, insn, contents + offset);
3581               }
3582           }
3583           break;
3584
3585         /* Relocate against the beginning of the section */
3586         case (int)R_PPC_SECTOFF:
3587         case (int)R_PPC_SECTOFF_LO:
3588         case (int)R_PPC_SECTOFF_HI:
3589           BFD_ASSERT (sec != (asection *)0);
3590           addend -= sec->output_section->vma;
3591           break;
3592
3593         case (int)R_PPC_SECTOFF_HA:
3594           BFD_ASSERT (sec != (asection *)0);
3595           addend -= sec->output_section->vma;
3596           addend += ((relocation + addend) & 0x8000) << 1;
3597           break;
3598
3599         /* Negative relocations */
3600         case (int)R_PPC_EMB_NADDR32:
3601         case (int)R_PPC_EMB_NADDR16:
3602         case (int)R_PPC_EMB_NADDR16_LO:
3603         case (int)R_PPC_EMB_NADDR16_HI:
3604           addend -= 2*relocation;
3605           break;
3606
3607         case (int)R_PPC_EMB_NADDR16_HA:
3608           addend -= 2*relocation;
3609           addend += ((relocation + addend) & 0x8000) << 1;
3610           break;
3611
3612         /* NOP relocation that prevents garbage collecting linkers from omitting a
3613            reference.  */
3614         case (int)R_PPC_EMB_MRKREF:
3615           continue;
3616
3617         case (int)R_PPC_COPY:
3618         case (int)R_PPC_GLOB_DAT:
3619         case (int)R_PPC_JMP_SLOT:
3620         case (int)R_PPC_RELATIVE:
3621         case (int)R_PPC_PLT32:
3622         case (int)R_PPC_PLTREL32:
3623         case (int)R_PPC_PLT16_LO:
3624         case (int)R_PPC_PLT16_HI:
3625         case (int)R_PPC_PLT16_HA:
3626         case (int)R_PPC_EMB_RELSEC16:
3627         case (int)R_PPC_EMB_RELST_LO:
3628         case (int)R_PPC_EMB_RELST_HI:
3629         case (int)R_PPC_EMB_RELST_HA:
3630         case (int)R_PPC_EMB_BIT_FLD:
3631           (*_bfd_error_handler) (_("%s: Relocation %s is not yet supported for symbol %s."),
3632                                  bfd_get_filename (input_bfd),
3633                                  ppc_elf_howto_table[ (int)r_type ]->name,
3634                                  sym_name);
3635
3636           bfd_set_error (bfd_error_invalid_operation);
3637           ret = false;
3638           continue;
3639
3640         case (int)R_PPC_GNU_VTINHERIT:
3641         case (int)R_PPC_GNU_VTENTRY:
3642           /* These are no-ops in the end.  */
3643           continue;
3644         }
3645
3646
3647 #ifdef DEBUG
3648       fprintf (stderr, "\ttype = %s (%d), name = %s, symbol index = %ld, offset = %ld, addend = %ld\n",
3649                howto->name,
3650                (int)r_type,
3651                sym_name,
3652                r_symndx,
3653                (long)offset,
3654                (long)addend);
3655 #endif
3656
3657       r = _bfd_final_link_relocate (howto,
3658                                     input_bfd,
3659                                     input_section,
3660                                     contents,
3661                                     offset,
3662                                     relocation,
3663                                     addend);
3664
3665       if (r == bfd_reloc_ok)
3666         ;
3667       else if (r == bfd_reloc_overflow)
3668         {
3669           const char *name;
3670
3671           if (h != NULL)
3672             {
3673               if (h->root.type == bfd_link_hash_undefweak
3674                   && howto->pc_relative)
3675                 {
3676                   /* Assume this is a call protected by other code that
3677                      detect the symbol is undefined.  If this is the case,
3678                      we can safely ignore the overflow.  If not, the
3679                      program is hosed anyway, and a little warning isn't
3680                      going to help.  */
3681
3682                   continue;
3683                 }
3684
3685               name = h->root.root.string;
3686             }
3687           else
3688             {
3689               name = bfd_elf_string_from_elf_section (input_bfd,
3690                                                       symtab_hdr->sh_link,
3691                                                       sym->st_name);
3692               if (name == NULL)
3693                 continue;
3694               if (*name == '\0')
3695                 name = bfd_section_name (input_bfd, sec);
3696             }
3697
3698           if (! (*info->callbacks->reloc_overflow)(info,
3699                                                    name,
3700                                                    howto->name,
3701                                                    (bfd_vma) 0,
3702                                                    input_bfd,
3703                                                    input_section,
3704                                                    offset))
3705             return false;
3706         }
3707       else
3708         ret = false;
3709     }
3710
3711 #ifdef DEBUG
3712   fprintf (stderr, "\n");
3713 #endif
3714
3715   return ret;
3716 }
3717
3718 \f
3719 #define TARGET_LITTLE_SYM       bfd_elf32_powerpcle_vec
3720 #define TARGET_LITTLE_NAME      "elf32-powerpcle"
3721 #define TARGET_BIG_SYM          bfd_elf32_powerpc_vec
3722 #define TARGET_BIG_NAME         "elf32-powerpc"
3723 #define ELF_ARCH                bfd_arch_powerpc
3724 #define ELF_MACHINE_CODE        EM_PPC
3725 #define ELF_MAXPAGESIZE         0x10000
3726 #define elf_info_to_howto       ppc_elf_info_to_howto
3727
3728 #ifdef  EM_CYGNUS_POWERPC
3729 #define ELF_MACHINE_ALT1        EM_CYGNUS_POWERPC
3730 #endif
3731
3732 #ifdef EM_PPC_OLD
3733 #define ELF_MACHINE_ALT2        EM_PPC_OLD
3734 #endif
3735
3736 #define elf_backend_plt_not_loaded      1
3737 #define elf_backend_got_symbol_offset   4
3738 #define elf_backend_can_gc_sections     1
3739 #define elf_backend_got_header_size     12
3740 #define elf_backend_plt_header_size     PLT_INITIAL_ENTRY_SIZE
3741
3742 #define bfd_elf32_bfd_copy_private_bfd_data     ppc_elf_copy_private_bfd_data
3743 #define bfd_elf32_bfd_merge_private_bfd_data    ppc_elf_merge_private_bfd_data
3744 #define bfd_elf32_bfd_relax_section             ppc_elf_relax_section
3745 #define bfd_elf32_bfd_reloc_type_lookup         ppc_elf_reloc_type_lookup
3746 #define bfd_elf32_bfd_set_private_flags         ppc_elf_set_private_flags
3747 #define bfd_elf32_bfd_final_link                _bfd_elf32_gc_common_final_link
3748
3749 #define elf_backend_gc_mark_hook                ppc_elf_gc_mark_hook
3750 #define elf_backend_gc_sweep_hook               ppc_elf_gc_sweep_hook
3751 #define elf_backend_section_from_shdr           ppc_elf_section_from_shdr
3752 #define elf_backend_relocate_section            ppc_elf_relocate_section
3753 #define elf_backend_create_dynamic_sections     ppc_elf_create_dynamic_sections
3754 #define elf_backend_check_relocs                ppc_elf_check_relocs
3755 #define elf_backend_adjust_dynamic_symbol       ppc_elf_adjust_dynamic_symbol
3756 #define elf_backend_add_symbol_hook             ppc_elf_add_symbol_hook
3757 #define elf_backend_size_dynamic_sections       ppc_elf_size_dynamic_sections
3758 #define elf_backend_finish_dynamic_symbol       ppc_elf_finish_dynamic_symbol
3759 #define elf_backend_finish_dynamic_sections     ppc_elf_finish_dynamic_sections
3760 #define elf_backend_fake_sections               ppc_elf_fake_sections
3761 #define elf_backend_additional_program_headers  ppc_elf_additional_program_headers
3762 #define elf_backend_modify_segment_map          ppc_elf_modify_segment_map
3763
3764 #include "elf32-target.h"