bfd/elf32-metag.c

   1 /* Meta support for 32-bit ELF
   2    Copyright (C) 2013 Free Software Foundation, Inc.
   3    Contributed by Imagination Technologies Ltd.
   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 3 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., 51 Franklin Street - Fifth Floor, Boston,
  20    MA 02110-1301, USA.  */
  21
  22 #include "sysdep.h"
  23 #include "bfd.h"
  24 #include "libbfd.h"
  25 #include "elf-bfd.h"
  26 #include "elf32-metag.h"
  27 #include "elf/metag.h"
  28
  29 #define GOT_ENTRY_SIZE 4
  30 #define ELF_DYNAMIC_INTERPRETER "/lib/ld-uClibc.so.0"
  31
  32 /* ABI version:
  33     0 - original
  34     1 - with GOT offset */
  35 #define METAG_ELF_ABI_VERSION 1
  36
  37 static const unsigned int plt0_entry[] =
  38   {
  39     0x02000005, /* MOVT D0Re0, #HI(GOT+4) */
  40     0x02000000, /* ADD  D0Re0, D0Re0, #LO(GOT+4) */
  41     0xb70001e3, /* SETL [A0StP++], D0Re0, D1Re0 */
  42     0xc600012a, /* GETD PC, [D0Re0+#4] */
  43     0xa0fffffe  /* NOP */
  44   };
  45
  46 static const unsigned int plt0_pic_entry[] =
  47   {
  48     0x82900001, /* ADDT A0.2, CPC0, #0 */
  49     0x82100000, /* ADD  A0.2, A0.2, #0 */
  50     0xa3100c20, /* MOV  D0Re0, A0.2 */
  51     0xb70001e3, /* SETL [A0StP++], D0Re0, D1Re0 */
  52     0xc600012a, /* GETD PC, [D0Re0+#4] */
  53   };
  54
  55 static const unsigned int plt_entry[] =
  56   {
  57     0x82100005, /* MOVT A0.2, #HI(GOT+off) */
  58     0x82100000, /* ADD  A0.2, A0.2, #LO(GOT+off) */
  59     0xc600806a, /* GETD PC, [A0.2] */
  60     0x03000004, /* MOV  D1Re0, #LO(offset) */
  61     0xa0000000  /* B    PLT0 */
  62   };
  63
  64 static const unsigned int plt_pic_entry[] =
  65   {
  66     0x82900001, /* ADDT A0.2, CPC0, #HI(GOT+off) */
  67     0x82100000, /* ADD  A0.2, A0.2, #LO(GOT+off) */
  68     0xc600806a, /* GETD PC, [A0.2] */
  69     0x03000004, /* MOV  D1Re0, #LO(offset) */
  70     0xa0000000  /* B    PLT0 */
  71   };
  72
  73 /* Variable names follow a coding style.
  74    Please follow this (Apps Hungarian) style:
  75
  76    Structure/Variable              Prefix
  77    elf_link_hash_table             "etab"
  78    elf_link_hash_entry             "eh"
  79
  80    elf_metag_link_hash_table       "htab"
  81    elf_metag_link_hash_entry       "hh"
  82
  83    bfd_link_hash_table             "btab"
  84    bfd_link_hash_entry             "bh"
  85
  86    bfd_hash_table containing stubs "bstab"
  87    elf_metag_stub_hash_entry       "hsh"
  88
  89    elf_metag_dyn_reloc_entry       "hdh"
  90
  91    Always remember to use GNU Coding Style.  */
  92
  93 #define PLT_ENTRY_SIZE sizeof(plt_entry)
  94
  95 static reloc_howto_type elf_metag_howto_table[] =
  96 {
  97   /* High order 16 bit absolute.  */
  98   HOWTO (R_METAG_HIADDR16,      /* type */
  99          16,                    /* rightshift */
 100          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 101          16,                    /* bitsize */
 102          FALSE,                 /* pc_relative */
 103          3,                     /* bitpos */
 104          complain_overflow_dont, /* complain_on_overflow */
 105          bfd_elf_generic_reloc, /* special_function */
 106          "R_METAG_HIADDR16",    /* name */
 107          FALSE,                 /* partial_inplace */
 108          0,                     /* src_mask */
 109          0x0007fff8,            /* dst_mask */
 110          FALSE),                /* pcrel_offset */
 111
 112   /* Low order 16 bit absolute.  */
 113   HOWTO (R_METAG_LOADDR16,      /* type */
 114          0,                     /* rightshift */
 115          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 116          16,                    /* bitsize */
 117          FALSE,                 /* pc_relative */
 118          3,                     /* bitpos */
 119          complain_overflow_dont,/* complain_on_overflow */
 120          bfd_elf_generic_reloc, /* special_function */
 121          "R_METAG_LOADDR16",    /* name */
 122          FALSE,                 /* partial_inplace */
 123          0,                     /* src_mask */
 124          0x0007fff8,            /* dst_mask */
 125          FALSE),                /* pcrel_offset */
 126
 127   /* 32 bit absolute.  */
 128   HOWTO (R_METAG_ADDR32,        /* type */
 129          0,                     /* rightshift */
 130          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 131          32,                    /* bitsize */
 132          FALSE,                 /* pc_relative */
 133          0,                     /* bitpos */
 134          complain_overflow_bitfield, /* complain_on_overflow */
 135          bfd_elf_generic_reloc, /* special_function */
 136          "R_METAG_ADDR32",      /* name */
 137          FALSE,                 /* partial_inplace */
 138          0x00000000,            /* src_mask */
 139          0xffffffff,            /* dst_mask */
 140          FALSE),                /* pcrel_offset */
 141
 142   /* No relocation.  */
 143   HOWTO (R_METAG_NONE,          /* type */
 144          0,                     /* rightshift */
 145          0,                     /* size (0 = byte, 1 = short, 2 = long) */
 146          0,                     /* bitsize */
 147          FALSE,                 /* pc_relative */
 148          0,                     /* bitpos */
 149          complain_overflow_dont, /* complain_on_overflow */
 150          bfd_elf_generic_reloc, /* special_function */
 151          "R_METAG_NONE",        /* name */
 152          FALSE,                 /* partial_inplace */
 153          0,                     /* src_mask */
 154          0,                     /* dst_mask */
 155          FALSE),                /* pcrel_offset */
 156
 157   /* 19 bit pc relative */
 158   HOWTO (R_METAG_RELBRANCH,     /* type */
 159          2,                     /* rightshift */
 160          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 161          19,                    /* bitsize */
 162          TRUE,                  /* pc_relative */
 163          5,                     /* bitpos */
 164          complain_overflow_signed, /* complain_on_overflow */
 165          bfd_elf_generic_reloc, /* special_function */
 166          "R_METAG_RELBRANCH",   /* name */
 167          FALSE,                 /* partial_inplace */
 168          0,                     /* src_mask */
 169          0x00ffffe0,            /* dst_mask */
 170          FALSE),                /* pcrel_offset */
 171
 172   /* GET/SET offset */
 173   HOWTO (R_METAG_GETSETOFF,     /* type */
 174          0,                     /* rightshift */
 175          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 176          12,                    /* bitsize */
 177          FALSE,                 /* pc_relative */
 178          7,                     /* bitpos */
 179          complain_overflow_dont, /* complain_on_overflow */
 180          bfd_elf_generic_reloc, /* special_function */
 181          "R_METAG_GETSETOFF",   /* name */
 182          FALSE,                 /* partial_inplace */
 183          0,                     /* src_mask */
 184          0,                     /* dst_mask */
 185          FALSE),                /* pcrel_offset */
 186
 187   EMPTY_HOWTO (6),
 188   EMPTY_HOWTO (7),
 189   EMPTY_HOWTO (8),
 190   EMPTY_HOWTO (9),
 191   EMPTY_HOWTO (10),
 192   EMPTY_HOWTO (11),
 193   EMPTY_HOWTO (12),
 194   EMPTY_HOWTO (13),
 195   EMPTY_HOWTO (14),
 196   EMPTY_HOWTO (15),
 197   EMPTY_HOWTO (16),
 198   EMPTY_HOWTO (17),
 199   EMPTY_HOWTO (18),
 200   EMPTY_HOWTO (19),
 201   EMPTY_HOWTO (20),
 202   EMPTY_HOWTO (21),
 203   EMPTY_HOWTO (22),
 204   EMPTY_HOWTO (23),
 205   EMPTY_HOWTO (24),
 206   EMPTY_HOWTO (25),
 207   EMPTY_HOWTO (26),
 208   EMPTY_HOWTO (27),
 209   EMPTY_HOWTO (28),
 210   EMPTY_HOWTO (29),
 211
 212   HOWTO (R_METAG_GNU_VTINHERIT, /* type */
 213          0,                     /* rightshift */
 214          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 215          0,                     /* bitsize */
 216          FALSE,         /* pc_relative */
 217          0,                     /* bitpos */
 218          complain_overflow_dont, /* complain_on_overflow */
 219          NULL,                  /* special_function */
 220          "R_METAG_GNU_VTINHERIT", /* name */
 221          FALSE,         /* partial_inplace */
 222          0,                     /* src_mask */
 223          0,                     /* dst_mask */
 224          FALSE),                /* pcrel_offset */
 225
 226   HOWTO (R_METAG_GNU_VTENTRY,   /* type */
 227          0,                     /* rightshift */
 228          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 229          0,                     /* bitsize */
 230          FALSE,                 /* pc_relative */
 231          0,                     /* bitpos */
 232          complain_overflow_dont, /* complain_on_overflow */
 233          _bfd_elf_rel_vtable_reloc_fn, /* special_function */
 234          "R_METAG_GNU_VTENTRY",  /* name */
 235          FALSE,                 /* partial_inplace */
 236          0,                     /* src_mask */
 237          0,                     /* dst_mask */
 238          FALSE),                /* pcrel_offset */
 239
 240   /* High order 16 bit GOT offset */
 241   HOWTO (R_METAG_HI16_GOTOFF,   /* type */
 242          16,                    /* rightshift */
 243          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 244          16,                    /* bitsize */
 245          FALSE,                 /* pc_relative */
 246          3,                     /* bitpos */
 247          complain_overflow_dont, /* complain_on_overflow */
 248          bfd_elf_generic_reloc, /* special_function */
 249          "R_METAG_HI16_GOTOFF", /* name */
 250          FALSE,                 /* partial_inplace */
 251          0,                     /* src_mask */
 252          0x0007fff8,            /* dst_mask */
 253          FALSE),                /* pcrel_offset */
 254
 255   /* Low order 16 bit GOT offset */
 256   HOWTO (R_METAG_LO16_GOTOFF,   /* type */
 257          0,                     /* rightshift */
 258          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 259          16,                    /* bitsize */
 260          FALSE,                 /* pc_relative */
 261          3,                     /* bitpos */
 262          complain_overflow_dont, /* complain_on_overflow */
 263          bfd_elf_generic_reloc, /* special_function */
 264          "R_METAG_LO16_GOTOFF", /* name */
 265          FALSE,                 /* partial_inplace */
 266          0,                     /* src_mask */
 267          0x0007fff8,            /* dst_mask */
 268          FALSE),                /* pcrel_offset */
 269
 270   /* GET/SET GOT offset */
 271   HOWTO (R_METAG_GETSET_GOTOFF, /* type */
 272          0,                     /* rightshift */
 273          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 274          12,                    /* bitsize */
 275          FALSE,                 /* pc_relative */
 276          7,                     /* bitpos */
 277          complain_overflow_dont, /* complain_on_overflow */
 278          bfd_elf_generic_reloc, /* special_function */
 279          "R_METAG_GETSET_GOTOFF", /* name */
 280          FALSE,                 /* partial_inplace */
 281          0,                     /* src_mask */
 282          0,                     /* dst_mask */
 283          FALSE),                /* pcrel_offset */
 284
 285   /* GET/SET GOT relative */
 286   HOWTO (R_METAG_GETSET_GOT,    /* type */
 287          0,                     /* rightshift */
 288          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 289          12,                    /* bitsize */
 290          FALSE,                 /* pc_relative */
 291          7,                     /* bitpos */
 292          complain_overflow_dont, /* complain_on_overflow */
 293          bfd_elf_generic_reloc, /* special_function */
 294          "R_METAG_GETSET_GOT",  /* name */
 295          FALSE,                 /* partial_inplace */
 296          0,                     /* src_mask */
 297          0,                     /* dst_mask */
 298          FALSE),                /* pcrel_offset */
 299
 300   /* High order 16 bit GOT reference */
 301   HOWTO (R_METAG_HI16_GOTPC,    /* type */
 302          16,                    /* rightshift */
 303          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 304          16,                    /* bitsize */
 305          FALSE,                 /* pc_relative */
 306          3,                     /* bitpos */
 307          complain_overflow_dont, /* complain_on_overflow */
 308          bfd_elf_generic_reloc, /* special_function */
 309          "R_METAG_HI16_GOTPC",  /* name */
 310          FALSE,                 /* partial_inplace */
 311          0,                     /* src_mask */
 312          0x0007fff8,            /* dst_mask */
 313          FALSE),                /* pcrel_offset */
 314
 315   /* Low order 16 bit GOT reference */
 316   HOWTO (R_METAG_LO16_GOTPC,    /* type */
 317          0,                     /* rightshift */
 318          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 319          16,                    /* bitsize */
 320          FALSE,                 /* pc_relative */
 321          3,                     /* bitpos */
 322          complain_overflow_dont, /* complain_on_overflow */
 323          bfd_elf_generic_reloc, /* special_function */
 324          "R_METAG_LO16_GOTPC",  /* name */
 325          FALSE,                 /* partial_inplace */
 326          0,                     /* src_mask */
 327          0x0007fff8,            /* dst_mask */
 328          FALSE),                /* pcrel_offset */
 329
 330   /* High order 16 bit PLT */
 331   HOWTO (R_METAG_HI16_PLT,      /* type */
 332          16,                    /* rightshift */
 333          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 334          16,                    /* bitsize */
 335          FALSE,                 /* pc_relative */
 336          3,                     /* bitpos */
 337          complain_overflow_dont, /* complain_on_overflow */
 338          bfd_elf_generic_reloc, /* special_function */
 339          "R_METAG_HI16_PLT",    /* name */
 340          FALSE,                 /* partial_inplace */
 341          0,                     /* src_mask */
 342          0x0007fff8,            /* dst_mask */
 343          FALSE),                /* pcrel_offset */
 344
 345   /* Low order 16 bit PLT */
 346   HOWTO (R_METAG_LO16_PLT,      /* type */
 347          0,                     /* rightshift */
 348          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 349          16,                    /* bitsize */
 350          FALSE,                 /* pc_relative */
 351          3,                     /* bitpos */
 352          complain_overflow_dont, /* complain_on_overflow */
 353          bfd_elf_generic_reloc, /* special_function */
 354          "R_METAG_LO16_PLT",    /* name */
 355          FALSE,                 /* partial_inplace */
 356          0,                     /* src_mask */
 357          0xffffffff,            /* dst_mask */
 358          FALSE),                /* pcrel_offset */
 359
 360   HOWTO (R_METAG_RELBRANCH_PLT, /* type */
 361          2,                     /* rightshift */
 362          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 363          19,                    /* bitsize */
 364          TRUE,                  /* pc_relative */
 365          5,                     /* bitpos */
 366          complain_overflow_signed, /* complain_on_overflow */
 367          bfd_elf_generic_reloc, /* special_function */
 368          "R_METAG_RELBRANCH_PLT", /* name */
 369          FALSE,                 /* partial_inplace */
 370          0,                     /* src_mask */
 371          0x00ffffe0,            /* dst_mask */
 372          FALSE),                /* pcrel_offset */
 373
 374   /* Dummy relocs used by the linker internally.  */
 375   HOWTO (R_METAG_GOTOFF,        /* type */
 376          0,                     /* rightshift */
 377          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 378          32,                    /* bitsize */
 379          FALSE,                 /* pc_relative */
 380          0,                     /* bitpos */
 381          complain_overflow_bitfield, /* complain_on_overflow */
 382          bfd_elf_generic_reloc, /* special_function */
 383          "R_METAG_GOTOFF",      /* name */
 384          FALSE,                 /* partial_inplace */
 385          0xffffffff,            /* src_mask */
 386          0xffffffff,            /* dst_mask */
 387          FALSE),                /* pcrel_offset */
 388
 389   HOWTO (R_METAG_PLT,           /* type */
 390          0,                     /* rightshift */
 391          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 392          32,                    /* bitsize */
 393          FALSE,                 /* pc_relative */
 394          0,                     /* bitpos */
 395          complain_overflow_bitfield, /* complain_on_overflow */
 396          bfd_elf_generic_reloc, /* special_function */
 397          "R_METAG_GOTOFF",      /* name */
 398          FALSE,                 /* partial_inplace */
 399          0xffffffff,            /* src_mask */
 400          0xffffffff,            /* dst_mask */
 401          FALSE),                /* pcrel_offset */
 402
 403   /* This is used only by the dynamic linker.  The symbol should exist
 404      both in the object being run and in some shared library.  The
 405      dynamic linker copies the data addressed by the symbol from the
 406      shared library into the object, because the object being
 407      run has to have the data at some particular address.  */
 408   HOWTO (R_METAG_COPY,          /* type */
 409          0,                     /* rightshift */
 410          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 411          32,                    /* bitsize */
 412          FALSE,                 /* pc_relative */
 413          0,                     /* bitpos */
 414          complain_overflow_bitfield, /* complain_on_overflow */
 415          bfd_elf_generic_reloc, /* special_function */
 416          "R_METAG_COPY",        /* name */
 417          FALSE,                 /* partial_inplace */
 418          0xffffffff,            /* src_mask */
 419          0xffffffff,            /* dst_mask */
 420          FALSE),                /* pcrel_offset */
 421
 422   /* Marks a procedure linkage table entry for a symbol.  */
 423   HOWTO (R_METAG_JMP_SLOT,      /* type */
 424          0,                     /* rightshift */
 425          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 426          32,                    /* bitsize */
 427          FALSE,                 /* pc_relative */
 428          0,                     /* bitpos */
 429          complain_overflow_bitfield, /* complain_on_overflow */
 430          bfd_elf_generic_reloc, /* special_function */
 431          "R_METAG_JMP_SLOT",    /* name */
 432          FALSE,                 /* partial_inplace */
 433          0xffffffff,            /* src_mask */
 434          0xffffffff,            /* dst_mask */
 435          FALSE),                /* pcrel_offset */
 436
 437   /* Used only by the dynamic linker.  When the object is run, this
 438      longword is set to the load address of the object, plus the
 439      addend.  */
 440   HOWTO (R_METAG_RELATIVE,      /* type */
 441          0,                     /* rightshift */
 442          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 443          32,                    /* bitsize */
 444          FALSE,                 /* pc_relative */
 445          0,                     /* bitpos */
 446          complain_overflow_bitfield, /* complain_on_overflow */
 447          bfd_elf_generic_reloc, /* special_function */
 448          "R_METAG_RELATIVE",    /* name */
 449          FALSE,                 /* partial_inplace */
 450          0xffffffff,            /* src_mask */
 451          0xffffffff,            /* dst_mask */
 452          FALSE),                /* pcrel_offset */
 453
 454   HOWTO (R_METAG_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_METAG_GLOB_DAT",    /* name */
 463          FALSE,                 /* partial_inplace */
 464          0xffffffff,            /* src_mask */
 465          0xffffffff,            /* dst_mask */
 466          FALSE),                /* pcrel_offset */
 467
 468   HOWTO (R_METAG_TLS_GD,        /* type */
 469          0,                     /* rightshift */
 470          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 471          16,                    /* bitsize */
 472          FALSE,                 /* pc_relative */
 473          3,                     /* bitpos */
 474          complain_overflow_dont, /* complain_on_overflow */
 475          bfd_elf_generic_reloc, /* special_function */
 476          "R_METAG_TLS_GD",      /* name */
 477          FALSE,                 /* partial_inplace */
 478          0,                     /* src_mask */
 479          0x0007fff8,            /* dst_mask */
 480          FALSE),                /* pcrel_offset */
 481
 482   HOWTO (R_METAG_TLS_LDM,       /* type */
 483          0,                     /* rightshift */
 484          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 485          16,                    /* bitsize */
 486          FALSE,                 /* pc_relative */
 487          3,                     /* bitpos */
 488          complain_overflow_bitfield, /* complain_on_overflow */
 489          bfd_elf_generic_reloc, /* special_function */
 490          "R_METAG_TLS_LDM",     /* name */
 491          FALSE,                 /* partial_inplace */
 492          0,                     /* src_mask */
 493          0x0007fff8,            /* dst_mask */
 494          FALSE),                /* pcrel_offset */
 495
 496   HOWTO (R_METAG_TLS_LDO_HI16,  /* type */
 497          16,                    /* rightshift */
 498          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 499          16,                    /* bitsize */
 500          FALSE,                 /* pc_relative */
 501          3,                     /* bitpos */
 502          complain_overflow_bitfield, /* complain_on_overflow */
 503          bfd_elf_generic_reloc, /* special_function */
 504          "R_METAG_TLS_LDO_HI16", /* name */
 505          FALSE,                 /* partial_inplace */
 506          0,                     /* src_mask */
 507          0x0007fff8,            /* dst_mask */
 508          FALSE),                /* pcrel_offset */
 509
 510   HOWTO (R_METAG_TLS_LDO_LO16,  /* type */
 511          0,                     /* rightshift */
 512          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 513          16,                    /* bitsize */
 514          FALSE,                 /* pc_relative */
 515          3,                     /* bitpos */
 516          complain_overflow_bitfield, /* complain_on_overflow */
 517          bfd_elf_generic_reloc, /* special_function */
 518          "R_METAG_TLS_LDO_LO16", /* name */
 519          FALSE,                 /* partial_inplace */
 520          0,                     /* src_mask */
 521          0x0007fff8,            /* dst_mask */
 522          FALSE),                /* pcrel_offset */
 523
 524   /* Dummy reloc used by the linker internally.  */
 525   HOWTO (R_METAG_TLS_LDO,       /* type */
 526          0,                     /* rightshift */
 527          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 528          16,                    /* bitsize */
 529          FALSE,                 /* pc_relative */
 530          3,                     /* bitpos */
 531          complain_overflow_bitfield, /* complain_on_overflow */
 532          bfd_elf_generic_reloc, /* special_function */
 533          "R_METAG_TLS_LDO",     /* name */
 534          FALSE,                 /* partial_inplace */
 535          0,                     /* src_mask */
 536          0x0007fff8,            /* dst_mask */
 537          FALSE),                /* pcrel_offset */
 538
 539   HOWTO (R_METAG_TLS_IE,        /* type */
 540          2,                     /* rightshift */
 541          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 542          12,                    /* bitsize */
 543          FALSE,                 /* pc_relative */
 544          7,                     /* bitpos */
 545          complain_overflow_dont, /* complain_on_overflow */
 546          bfd_elf_generic_reloc, /* special_function */
 547          "R_METAG_TLS_IE",      /* name */
 548          FALSE,                 /* partial_inplace */
 549          0,                     /* src_mask */
 550          0x0007ff80,            /* dst_mask */
 551          FALSE),                /* pcrel_offset */
 552
 553   /* Dummy reloc used by the linker internally.  */
 554   HOWTO (R_METAG_TLS_IENONPIC,  /* type */
 555          0,                     /* rightshift */
 556          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 557          16,                    /* bitsize */
 558          FALSE,                 /* pc_relative */
 559          3,                     /* bitpos */
 560          complain_overflow_dont, /* complain_on_overflow */
 561          bfd_elf_generic_reloc, /* special_function */
 562          "R_METAG_TLS_IENONPIC", /* name */
 563          FALSE,                 /* partial_inplace */
 564          0,                     /* src_mask */
 565          0x0007fff8,            /* dst_mask */
 566          FALSE),                /* pcrel_offset */
 567
 568   HOWTO (R_METAG_TLS_IENONPIC_HI16,/* type */
 569          16,                    /* rightshift */
 570          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 571          16,                    /* bitsize */
 572          FALSE,                 /* pc_relative */
 573          3,                     /* bitpos */
 574          complain_overflow_dont, /* complain_on_overflow */
 575          bfd_elf_generic_reloc, /* special_function */
 576          "R_METAG_TLS_IENONPIC_HI16", /* name */
 577          FALSE,                 /* partial_inplace */
 578          0,                     /* src_mask */
 579          0x0007fff8,            /* dst_mask */
 580          FALSE),                /* pcrel_offset */
 581
 582   HOWTO (R_METAG_TLS_IENONPIC_LO16,/* type */
 583          0,                     /* rightshift */
 584          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 585          16,                    /* bitsize */
 586          FALSE,                 /* pc_relative */
 587          3,                     /* bitpos */
 588          complain_overflow_dont, /* complain_on_overflow */
 589          bfd_elf_generic_reloc, /* special_function */
 590          "R_METAG_TLS_IENONPIC_LO16", /* name */
 591          FALSE,                 /* partial_inplace */
 592          0,                     /* src_mask */
 593          0x0007fff8,            /* dst_mask */
 594          FALSE),                /* pcrel_offset */
 595
 596   HOWTO (R_METAG_TLS_TPOFF,     /* type */
 597          0,                     /* rightshift */
 598          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 599          32,                    /* bitsize */
 600          FALSE,                 /* pc_relative */
 601          0,                     /* bitpos */
 602          complain_overflow_bitfield, /* complain_on_overflow */
 603          bfd_elf_generic_reloc, /* special_function */
 604          "R_METAG_TLS_TPOFF",   /* name */
 605          FALSE,                 /* partial_inplace */
 606          0,                     /* src_mask */
 607          0xffffffff,            /* dst_mask */
 608          FALSE),                /* pcrel_offset */
 609
 610   HOWTO (R_METAG_TLS_DTPMOD,    /* type */
 611          0,                     /* rightshift */
 612          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 613          32,                    /* bitsize */
 614          FALSE,                 /* pc_relative */
 615          0,                     /* bitpos */
 616          complain_overflow_bitfield, /* complain_on_overflow */
 617          bfd_elf_generic_reloc, /* special_function */
 618          "R_METAG_TLS_DTPMOD",  /* name */
 619          FALSE,                 /* partial_inplace */
 620          0,                     /* src_mask */
 621          0xffffffff,            /* dst_mask */
 622          FALSE),                /* pcrel_offset */
 623
 624   HOWTO (R_METAG_TLS_DTPOFF,    /* type */
 625          0,                     /* rightshift */
 626          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 627          32,                    /* bitsize */
 628          FALSE,                 /* pc_relative */
 629          0,                     /* bitpos */
 630          complain_overflow_bitfield, /* complain_on_overflow */
 631          bfd_elf_generic_reloc, /* special_function */
 632          "R_METAG_TLS_DTPOFF",  /* name */
 633          FALSE,                 /* partial_inplace */
 634          0,                     /* src_mask */
 635          0xffffffff,            /* dst_mask */
 636          FALSE),                /* pcrel_offset */
 637
 638   /* Dummy reloc used by the linker internally.  */
 639   HOWTO (R_METAG_TLS_LE,        /* type */
 640          0,                     /* rightshift */
 641          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 642          32,                    /* bitsize */
 643          FALSE,                 /* pc_relative */
 644          0,                     /* bitpos */
 645          complain_overflow_bitfield, /* complain_on_overflow */
 646          bfd_elf_generic_reloc, /* special_function */
 647          "R_METAG_TLS_LE",      /* name */
 648          FALSE,                 /* partial_inplace */
 649          0,                     /* src_mask */
 650          0xffffffff,            /* dst_mask */
 651          FALSE),                /* pcrel_offset */
 652
 653   HOWTO (R_METAG_TLS_LE_HI16,   /* type */
 654          16,                    /* rightshift */
 655          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 656          16,                    /* bitsize */
 657          FALSE,                 /* pc_relative */
 658          3,                     /* bitpos */
 659          complain_overflow_dont, /* complain_on_overflow */
 660          bfd_elf_generic_reloc, /* special_function */
 661          "R_METAG_TLS_LE_HI16", /* name */
 662          FALSE,                 /* partial_inplace */
 663          0,                     /* src_mask */
 664          0x0007fff8,            /* dst_mask */
 665          FALSE),                /* pcrel_offset */
 666
 667   HOWTO (R_METAG_TLS_LE_LO16,   /* type */
 668          0,                     /* rightshift */
 669          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 670          16,                    /* bitsize */
 671          FALSE,                 /* pc_relative */
 672          3,                     /* bitpos */
 673          complain_overflow_dont, /* complain_on_overflow */
 674          bfd_elf_generic_reloc, /* special_function */
 675          "R_METAG_TLS_LE_LO16", /* name */
 676          FALSE,                 /* partial_inplace */
 677          0,                     /* src_mask */
 678          0x0007fff8,            /* dst_mask */
 679          FALSE),                /* pcrel_offset */
 680
 681 };
 682
 683 #define BRANCH_BITS 19
 684
 685 /* The GOT is typically accessed using a [GS]ETD instruction. The size of the
 686    immediate offset which can be used in such instructions therefore limits
 687    the usable size of the GOT. If the base register for the [GS]ETD (A1LbP)
 688    is pointing to the base of the GOT then the size is limited to the maximum
 689    11 bits unsigned dword offset, or 2^13 = 0x2000 bytes. However the offset
 690    in a [GS]ETD instruction is signed, so by setting the base address register
 691    to an offset of that 0x2000 byte maximum unsigned offset from the base of
 692    the GOT we can use negative offsets in addition to positive. This
 693    effectively doubles the usable GOT size to 0x4000 bytes.  */
 694 #define GOT_REG_OFFSET 0x2000
 695
 696 struct metag_reloc_map
 697 {
 698   bfd_reloc_code_real_type bfd_reloc_val;
 699   unsigned int metag_reloc_val;
 700 };
 701
 702 static const struct metag_reloc_map metag_reloc_map [] =
 703   {
 704     { BFD_RELOC_NONE,                R_METAG_NONE },
 705     { BFD_RELOC_32,                  R_METAG_ADDR32 },
 706     { BFD_RELOC_METAG_HIADDR16,      R_METAG_HIADDR16 },
 707     { BFD_RELOC_METAG_LOADDR16,      R_METAG_LOADDR16 },
 708     { BFD_RELOC_METAG_RELBRANCH,     R_METAG_RELBRANCH },
 709     { BFD_RELOC_METAG_GETSETOFF,     R_METAG_GETSETOFF },
 710     { BFD_RELOC_VTABLE_INHERIT,      R_METAG_GNU_VTINHERIT },
 711     { BFD_RELOC_VTABLE_ENTRY,        R_METAG_GNU_VTENTRY },
 712     { BFD_RELOC_METAG_REL8,          R_METAG_REL8 },
 713     { BFD_RELOC_METAG_REL16,         R_METAG_REL16 },
 714     { BFD_RELOC_METAG_HI16_GOTOFF,   R_METAG_HI16_GOTOFF },
 715     { BFD_RELOC_METAG_LO16_GOTOFF,   R_METAG_LO16_GOTOFF },
 716     { BFD_RELOC_METAG_GETSET_GOTOFF, R_METAG_GETSET_GOTOFF },
 717     { BFD_RELOC_METAG_GETSET_GOT,    R_METAG_GETSET_GOT },
 718     { BFD_RELOC_METAG_HI16_GOTPC,    R_METAG_HI16_GOTPC },
 719     { BFD_RELOC_METAG_LO16_GOTPC,    R_METAG_LO16_GOTPC },
 720     { BFD_RELOC_METAG_HI16_PLT,      R_METAG_HI16_PLT },
 721     { BFD_RELOC_METAG_LO16_PLT,      R_METAG_LO16_PLT },
 722     { BFD_RELOC_METAG_RELBRANCH_PLT, R_METAG_RELBRANCH_PLT },
 723     { BFD_RELOC_METAG_GOTOFF,        R_METAG_GOTOFF },
 724     { BFD_RELOC_METAG_PLT,           R_METAG_PLT },
 725     { BFD_RELOC_METAG_COPY,          R_METAG_COPY },
 726     { BFD_RELOC_METAG_JMP_SLOT,      R_METAG_JMP_SLOT },
 727     { BFD_RELOC_METAG_RELATIVE,      R_METAG_RELATIVE },
 728     { BFD_RELOC_METAG_GLOB_DAT,      R_METAG_GLOB_DAT },
 729     { BFD_RELOC_METAG_TLS_GD,        R_METAG_TLS_GD },
 730     { BFD_RELOC_METAG_TLS_LDM,       R_METAG_TLS_LDM },
 731     { BFD_RELOC_METAG_TLS_LDO_HI16,  R_METAG_TLS_LDO_HI16 },
 732     { BFD_RELOC_METAG_TLS_LDO_LO16,  R_METAG_TLS_LDO_LO16 },
 733     { BFD_RELOC_METAG_TLS_LDO,       R_METAG_TLS_LDO },
 734     { BFD_RELOC_METAG_TLS_IE,        R_METAG_TLS_IE },
 735     { BFD_RELOC_METAG_TLS_IENONPIC,  R_METAG_TLS_IENONPIC },
 736     { BFD_RELOC_METAG_TLS_IENONPIC_HI16, R_METAG_TLS_IENONPIC_HI16 },
 737     { BFD_RELOC_METAG_TLS_IENONPIC_LO16, R_METAG_TLS_IENONPIC_LO16 },
 738     { BFD_RELOC_METAG_TLS_TPOFF,     R_METAG_TLS_TPOFF },
 739     { BFD_RELOC_METAG_TLS_DTPMOD,    R_METAG_TLS_DTPMOD },
 740     { BFD_RELOC_METAG_TLS_DTPOFF,    R_METAG_TLS_DTPOFF },
 741     { BFD_RELOC_METAG_TLS_LE,        R_METAG_TLS_LE },
 742     { BFD_RELOC_METAG_TLS_LE_HI16,   R_METAG_TLS_LE_HI16 },
 743     { BFD_RELOC_METAG_TLS_LE_LO16,   R_METAG_TLS_LE_LO16 },
 744   };
 745
 746 enum elf_metag_stub_type
 747 {
 748   metag_stub_long_branch,
 749   metag_stub_long_branch_shared,
 750   metag_stub_none
 751 };
 752
 753 struct elf_metag_stub_hash_entry
 754 {
 755   /* Base hash table entry structure.  */
 756   struct bfd_hash_entry bh_root;
 757
 758   /* The stub section.  */
 759   asection *stub_sec;
 760
 761   /* Offset within stub_sec of the beginning of this stub.  */
 762   bfd_vma stub_offset;
 763
 764   /* Given the symbol's value and its section we can determine its final
 765      value when building the stubs (so the stub knows where to jump.  */
 766   bfd_vma target_value;
 767   asection *target_section;
 768
 769   enum elf_metag_stub_type stub_type;
 770
 771   /* The symbol table entry, if any, that this was derived from.  */
 772   struct elf_metag_link_hash_entry *hh;
 773
 774   /* And the reloc addend that this was derived from.  */
 775   bfd_vma addend;
 776
 777   /* Where this stub is being called from, or, in the case of combined
 778      stub sections, the first input section in the group.  */
 779   asection *id_sec;
 780 };
 781
 782 struct elf_metag_link_hash_entry
 783 {
 784   struct elf_link_hash_entry eh;
 785
 786   /* A pointer to the most recently used stub hash entry against this
 787      symbol.  */
 788   struct elf_metag_stub_hash_entry *hsh_cache;
 789
 790   /* Used to count relocations for delayed sizing of relocation
 791      sections.  */
 792   struct elf_metag_dyn_reloc_entry {
 793
 794     /* Next relocation in the chain.  */
 795     struct elf_metag_dyn_reloc_entry *hdh_next;
 796
 797     /* The input section of the reloc.  */
 798     asection *sec;
 799
 800     /* Number of relocs copied in this section.  */
 801     bfd_size_type count;
 802
 803     /* Number of relative relocs copied for the input section.  */
 804     bfd_size_type relative_count;
 805   } *dyn_relocs;
 806
 807   enum
 808     {
 809       GOT_UNKNOWN = 0, GOT_NORMAL = 1, GOT_TLS_IE = 2, GOT_TLS_LDM = 4, GOT_TLS_GD = 8
 810     } tls_type;
 811 };
 812
 813 struct elf_metag_link_hash_table
 814 {
 815   /* The main hash table.  */
 816   struct elf_link_hash_table etab;
 817
 818   /* The stub hash table.  */
 819   struct bfd_hash_table bstab;
 820
 821   /* Linker stub bfd.  */
 822   bfd *stub_bfd;
 823
 824   /* Linker call-backs.  */
 825   asection * (*add_stub_section) (const char *, asection *);
 826   void (*layout_sections_again) (void);
 827
 828   /* Array to keep track of which stub sections have been created, and
 829      information on stub grouping.  */
 830   struct map_stub
 831   {
 832     /* This is the section to which stubs in the group will be
 833        attached.  */
 834     asection *link_sec;
 835     /* The stub section.  */
 836     asection *stub_sec;
 837   } *stub_group;
 838
 839   /* Assorted information used by elf_metag_size_stubs.  */
 840   unsigned int bfd_count;
 841   int top_index;
 842   asection **input_list;
 843   Elf_Internal_Sym **all_local_syms;
 844
 845   /* Short-cuts to get to dynamic linker sections.  */
 846   asection *sgot;
 847   asection *sgotplt;
 848   asection *srelgot;
 849   asection *splt;
 850   asection *srelplt;
 851   asection *sdynbss;
 852   asection *srelbss;
 853
 854   /* Small local sym cache.  */
 855   struct sym_cache sym_cache;
 856
 857   /* Data for LDM relocations.  */
 858   union
 859   {
 860     bfd_signed_vma refcount;
 861     bfd_vma offset;
 862   } tls_ldm_got;
 863 };
 864
 865 /* Return the base vma address which should be subtracted from the
 866    real address when resolving a dtpoff relocation.  This is PT_TLS
 867    segment p_vaddr.  */
 868 static bfd_vma
 869 dtpoff_base (struct bfd_link_info *info)
 870 {
 871   /* If tls_sec is NULL, we should have signalled an error already.  */
 872   if (elf_hash_table (info)->tls_sec == NULL)
 873     return 0;
 874   return elf_hash_table (info)->tls_sec->vma;
 875 }
 876
 877 /* Return the relocation value for R_METAG_TLS_IE */
 878 static bfd_vma
 879 tpoff (struct bfd_link_info *info, bfd_vma address)
 880 {
 881   /* If tls_sec is NULL, we should have signalled an error already.  */
 882   if (elf_hash_table (info)->tls_sec == NULL)
 883     return 0;
 884   /* METAG TLS ABI is variant I and static TLS blocks start just after
 885      tcbhead structure which has 2 pointer fields.  */
 886   return (address - elf_hash_table (info)->tls_sec->vma
 887           + align_power ((bfd_vma) 8,
 888                          elf_hash_table (info)->tls_sec->alignment_power));
 889 }
 890
 891 static void
 892 metag_info_to_howto_rela (bfd *abfd ATTRIBUTE_UNUSED,
 893                           arelent *cache_ptr,
 894                           Elf_Internal_Rela *dst)
 895 {
 896   unsigned int r_type;
 897
 898   r_type = ELF32_R_TYPE (dst->r_info);
 899   BFD_ASSERT (r_type < (unsigned int) R_METAG_MAX);
 900   cache_ptr->howto = & elf_metag_howto_table [r_type];
 901 }
 902
 903 static reloc_howto_type *
 904 metag_reloc_type_lookup (bfd * abfd ATTRIBUTE_UNUSED,
 905                          bfd_reloc_code_real_type code)
 906 {
 907   unsigned int i;
 908
 909   for (i = 0; i < sizeof (metag_reloc_map) / sizeof (metag_reloc_map[0]); i++)
 910     if (metag_reloc_map [i].bfd_reloc_val == code)
 911       return & elf_metag_howto_table [metag_reloc_map[i].metag_reloc_val];
 912
 913   return NULL;
 914 }
 915
 916 static reloc_howto_type *
 917 metag_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
 918                          const char *r_name)
 919 {
 920   unsigned int i;
 921
 922   for (i = 0; i < sizeof (elf_metag_howto_table) / sizeof (elf_metag_howto_table[0]); i++)
 923     if (elf_metag_howto_table[i].name != NULL
 924         && strcasecmp (elf_metag_howto_table[i].name, r_name) == 0)
 925       return &elf_metag_howto_table[i];
 926
 927   return NULL;
 928 }
 929
 930 /* Various hash macros and functions.  */
 931 #define metag_link_hash_table(p) \
 932   (elf_hash_table_id ((struct elf_link_hash_table *) ((p)->hash)) \
 933   == METAG_ELF_DATA ? ((struct elf_metag_link_hash_table *) ((p)->hash)) : NULL)
 934
 935 #define metag_elf_hash_entry(ent) \
 936   ((struct elf_metag_link_hash_entry *)(ent))
 937
 938 #define metag_stub_hash_entry(ent) \
 939   ((struct elf_metag_stub_hash_entry *)(ent))
 940
 941 #define metag_stub_hash_lookup(table, string, create, copy) \
 942   ((struct elf_metag_stub_hash_entry *) \
 943    bfd_hash_lookup ((table), (string), (create), (copy)))
 944
 945 #define metag_elf_local_got_tls_type(abfd) \
 946   ((char *)(elf_local_got_offsets (abfd) + (elf_tdata (abfd)->symtab_hdr.sh_info)))
 947
 948 /* Assorted hash table functions.  */
 949
 950 /* Initialize an entry in the stub hash table.  */
 951
 952 static struct bfd_hash_entry *
 953 stub_hash_newfunc (struct bfd_hash_entry *entry,
 954                    struct bfd_hash_table *table,
 955                    const char *string)
 956 {
 957   /* Allocate the structure if it has not already been allocated by a
 958      subclass.  */
 959   if (entry == NULL)
 960     {
 961       entry = bfd_hash_allocate (table,
 962                                  sizeof (struct elf_metag_stub_hash_entry));
 963       if (entry == NULL)
 964         return entry;
 965     }
 966
 967   /* Call the allocation method of the superclass.  */
 968   entry = bfd_hash_newfunc (entry, table, string);
 969   if (entry != NULL)
 970     {
 971       struct elf_metag_stub_hash_entry *hsh;
 972
 973       /* Initialize the local fields.  */
 974       hsh = (struct elf_metag_stub_hash_entry *) entry;
 975       hsh->stub_sec = NULL;
 976       hsh->stub_offset = 0;
 977       hsh->target_value = 0;
 978       hsh->target_section = NULL;
 979       hsh->stub_type = metag_stub_long_branch;
 980       hsh->hh = NULL;
 981       hsh->id_sec = NULL;
 982     }
 983
 984   return entry;
 985 }
 986
 987 /* Initialize an entry in the link hash table.  */
 988
 989 static struct bfd_hash_entry *
 990 metag_link_hash_newfunc (struct bfd_hash_entry *entry,
 991                          struct bfd_hash_table *table,
 992                          const char *string)
 993 {
 994   /* Allocate the structure if it has not already been allocated by a
 995      subclass.  */
 996   if (entry == NULL)
 997     {
 998       entry = bfd_hash_allocate (table,
 999                                  sizeof (struct elf_metag_link_hash_entry));
1000       if (entry == NULL)
1001         return entry;
1002     }
1003
1004   /* Call the allocation method of the superclass.  */
1005   entry = _bfd_elf_link_hash_newfunc (entry, table, string);
1006   if (entry != NULL)
1007     {
1008       struct elf_metag_link_hash_entry *hh;
1009
1010       /* Initialize the local fields.  */
1011       hh = (struct elf_metag_link_hash_entry *) entry;
1012       hh->hsh_cache = NULL;
1013       hh->dyn_relocs = NULL;
1014       hh->tls_type = GOT_UNKNOWN;
1015     }
1016
1017   return entry;
1018 }
1019
1020 /* Create the derived linker hash table.  The Meta ELF port uses the derived
1021    hash table to keep information specific to the Meta ELF linker (without
1022    using static variables).  */
1023
1024 static struct bfd_link_hash_table *
1025 elf_metag_link_hash_table_create (bfd *abfd)
1026 {
1027   struct elf_metag_link_hash_table *htab;
1028   bfd_size_type amt = sizeof (*htab);
1029
1030   htab = bfd_zmalloc (amt);
1031   if (htab == NULL)
1032     return NULL;
1033
1034   if (!_bfd_elf_link_hash_table_init (&htab->etab, abfd,
1035                                       metag_link_hash_newfunc,
1036                                       sizeof (struct elf_metag_link_hash_entry),
1037                                       METAG_ELF_DATA))
1038     {
1039       free (htab);
1040       return NULL;
1041     }
1042
1043   /* Init the stub hash table too.  */
1044   if (!bfd_hash_table_init (&htab->bstab, stub_hash_newfunc,
1045                             sizeof (struct elf_metag_stub_hash_entry)))
1046     return NULL;
1047
1048   return &htab->etab.root;
1049 }
1050
1051 /* Free the derived linker hash table.  */
1052
1053 static void
1054 elf_metag_link_hash_table_free (struct bfd_link_hash_table *btab)
1055 {
1056   struct elf_metag_link_hash_table *htab
1057     = (struct elf_metag_link_hash_table *) btab;
1058
1059   bfd_hash_table_free (&htab->bstab);
1060   _bfd_elf_link_hash_table_free (btab);
1061 }
1062
1063 /* Section name for stubs is the associated section name plus this
1064    string.  */
1065 #define STUB_SUFFIX ".stub"
1066
1067 /* Build a name for an entry in the stub hash table.  */
1068
1069 static char *
1070 metag_stub_name (const asection *input_section,
1071                  const asection *sym_sec,
1072                  const struct elf_metag_link_hash_entry *hh,
1073                  const Elf_Internal_Rela *rel)
1074 {
1075   char *stub_name;
1076   bfd_size_type len;
1077
1078   if (hh)
1079     {
1080       len = 8 + 1 + strlen (hh->eh.root.root.string) + 1 + 8 + 1;
1081       stub_name = bfd_malloc (len);
1082       if (stub_name != NULL)
1083         {
1084           sprintf (stub_name, "%08x_%s+%x",
1085                    input_section->id & 0xffffffff,
1086                    hh->eh.root.root.string,
1087                    (int) rel->r_addend & 0xffffffff);
1088         }
1089     }
1090   else
1091     {
1092       len = 8 + 1 + 8 + 1 + 8 + 1 + 8 + 1;
1093       stub_name = bfd_malloc (len);
1094       if (stub_name != NULL)
1095         {
1096           sprintf (stub_name, "%08x_%x:%x+%x",
1097                    input_section->id & 0xffffffff,
1098                    sym_sec->id & 0xffffffff,
1099                    (int) ELF32_R_SYM (rel->r_info) & 0xffffffff,
1100                    (int) rel->r_addend & 0xffffffff);
1101         }
1102     }
1103   return stub_name;
1104 }
1105
1106 /* Look up an entry in the stub hash.  Stub entries are cached because
1107    creating the stub name takes a bit of time.  */
1108
1109 static struct elf_metag_stub_hash_entry *
1110 metag_get_stub_entry (const asection *input_section,
1111                       const asection *sym_sec,
1112                       struct elf_metag_link_hash_entry *hh,
1113                       const Elf_Internal_Rela *rel,
1114                       struct elf_metag_link_hash_table *htab)
1115 {
1116   struct elf_metag_stub_hash_entry *hsh;
1117   const asection *id_sec;
1118
1119   /* If this input section is part of a group of sections sharing one
1120      stub section, then use the id of the first section in the group.
1121      Stub names need to include a section id, as there may well be
1122      more than one stub used to reach say, printf, and we need to
1123      distinguish between them.  */
1124   id_sec = htab->stub_group[input_section->id].link_sec;
1125
1126   if (hh != NULL && hh->hsh_cache != NULL
1127       && hh->hsh_cache->hh == hh
1128       && hh->hsh_cache->id_sec == id_sec)
1129     {
1130       hsh = hh->hsh_cache;
1131     }
1132   else
1133     {
1134       char *stub_name;
1135
1136       stub_name = metag_stub_name (id_sec, sym_sec, hh, rel);
1137       if (stub_name == NULL)
1138         return NULL;
1139
1140       hsh = metag_stub_hash_lookup (&htab->bstab,
1141                                     stub_name, FALSE, FALSE);
1142
1143       if (hh != NULL)
1144         hh->hsh_cache = hsh;
1145
1146       free (stub_name);
1147     }
1148
1149   return hsh;
1150 }
1151
1152 /* Add a new stub entry to the stub hash.  Not all fields of the new
1153    stub entry are initialised.  */
1154
1155 static struct elf_metag_stub_hash_entry *
1156 metag_add_stub (const char *stub_name,
1157                 asection *section,
1158                 struct elf_metag_link_hash_table *htab)
1159 {
1160   asection *link_sec;
1161   asection *stub_sec;
1162   struct elf_metag_stub_hash_entry *hsh;
1163
1164   link_sec = htab->stub_group[section->id].link_sec;
1165   stub_sec = htab->stub_group[section->id].stub_sec;
1166   if (stub_sec == NULL)
1167     {
1168       stub_sec = htab->stub_group[link_sec->id].stub_sec;
1169       if (stub_sec == NULL)
1170         {
1171           size_t namelen;
1172           bfd_size_type len;
1173           char *s_name;
1174
1175           namelen = strlen (link_sec->name);
1176           len = namelen + sizeof (STUB_SUFFIX);
1177           s_name = bfd_alloc (htab->stub_bfd, len);
1178           if (s_name == NULL)
1179             return NULL;
1180
1181           memcpy (s_name, link_sec->name, namelen);
1182           memcpy (s_name + namelen, STUB_SUFFIX, sizeof (STUB_SUFFIX));
1183
1184           stub_sec = (*htab->add_stub_section) (s_name, link_sec);
1185           if (stub_sec == NULL)
1186             return NULL;
1187           htab->stub_group[link_sec->id].stub_sec = stub_sec;
1188         }
1189       htab->stub_group[section->id].stub_sec = stub_sec;
1190     }
1191
1192   /* Enter this entry into the linker stub hash table.  */
1193   hsh = metag_stub_hash_lookup (&htab->bstab, stub_name,
1194                                 TRUE, FALSE);
1195   if (hsh == NULL)
1196     {
1197       (*_bfd_error_handler) (_("%B: cannot create stub entry %s"),
1198                              section->owner,
1199                              stub_name);
1200       return NULL;
1201     }
1202
1203   hsh->stub_sec = stub_sec;
1204   hsh->stub_offset = 0;
1205   hsh->id_sec = link_sec;
1206   return hsh;
1207 }
1208
1209 /* Check a signed integer value can be represented in the given number
1210    of bits.  */
1211
1212 static bfd_boolean
1213 within_signed_range (int value, unsigned int bits)
1214 {
1215   int min_val = -(1 << (bits - 1));
1216   int max_val = (1 << (bits - 1)) - 1;
1217   return (value <= max_val) && (value >= min_val);
1218 }
1219
1220 /* Perform a relocation as part of a final link.  */
1221
1222 static bfd_reloc_status_type
1223 metag_final_link_relocate (reloc_howto_type *howto,
1224                            bfd *input_bfd,
1225                            asection *input_section,
1226                            bfd_byte *contents,
1227                            Elf_Internal_Rela *rel,
1228                            bfd_vma relocation,
1229                            struct elf_metag_link_hash_entry *hh,
1230                            struct elf_metag_link_hash_table *htab,
1231                            asection *sym_sec)
1232 {
1233   bfd_reloc_status_type r = bfd_reloc_ok;
1234   bfd_byte *hit_data = contents + rel->r_offset;
1235   int opcode, op_shift, op_extended, l1, l2;
1236   bfd_signed_vma srel, addend = rel->r_addend;
1237   struct elf_metag_stub_hash_entry *hsh = NULL;
1238   bfd_vma location;
1239
1240   /* Find out where we are and where we're going.  */
1241   location = (rel->r_offset +
1242               input_section->output_offset +
1243               input_section->output_section->vma);
1244
1245   switch (howto->type)
1246     {
1247     case R_METAG_RELBRANCH:
1248     case R_METAG_RELBRANCH_PLT:
1249       /* Make it a pc relative offset.  */
1250       relocation -= location;
1251       break;
1252     case R_METAG_TLS_GD:
1253     case R_METAG_TLS_IE:
1254       relocation -= elf_gp (input_section->output_section->owner);
1255       break;
1256     default:
1257       break;
1258     }
1259
1260   switch (howto->type)
1261     {
1262     case R_METAG_RELBRANCH_PLT:
1263     case R_METAG_RELBRANCH:
1264       opcode = bfd_get_32 (input_bfd, hit_data);
1265
1266       srel = (bfd_signed_vma) relocation;
1267       srel += addend;
1268
1269       /* If the branch is out of reach, then redirect the
1270          call to the local stub for this function.  */
1271       if (srel > ((1 << (BRANCH_BITS + 1)) - 1) ||
1272           (srel < - (1 << (BRANCH_BITS + 1))))
1273         {
1274           if (sym_sec == NULL)
1275             break;
1276
1277           hsh = metag_get_stub_entry (input_section, sym_sec,
1278                                       hh, rel, htab);
1279           if (hsh == NULL)
1280             return bfd_reloc_undefined;
1281
1282           /* Munge up the value and addend so that we call the stub
1283              rather than the procedure directly.  */
1284           srel = (hsh->stub_offset
1285                   + hsh->stub_sec->output_offset
1286                   + hsh->stub_sec->output_section->vma);
1287           srel -= location;
1288         }
1289
1290       srel = srel >> 2;
1291
1292       if (!within_signed_range (srel, BRANCH_BITS))
1293         {
1294           if (hh && hh->eh.root.type == bfd_link_hash_undefweak)
1295             srel = 0;
1296           else
1297             return bfd_reloc_overflow;
1298         }
1299
1300       opcode &= ~(0x7ffff << 5);
1301       opcode |= ((srel & 0x7ffff) << 5);
1302
1303       bfd_put_32 (input_bfd, opcode, hit_data);
1304       break;
1305     case R_METAG_GETSETOFF:
1306     case R_METAG_GETSET_GOT:
1307     case R_METAG_GETSET_GOTOFF:
1308       opcode = bfd_get_32 (input_bfd, hit_data);
1309
1310       srel = (bfd_signed_vma) relocation;
1311       srel += addend;
1312
1313       /* Is this a standard or extended GET/SET?  */
1314       if ((opcode & 0xf0000000) == 0xa0000000)
1315         {
1316           /* Extended GET/SET.  */
1317           l1 = opcode & 0x2;
1318           l2 = opcode & 0x4;
1319           op_extended = 1;
1320         }
1321       else
1322         {
1323           /* Standard GET/SET.  */
1324           l1 = opcode & 0x01000000;
1325           l2 = opcode & 0x04000000;
1326           op_extended = 0;
1327         }
1328
1329       /* Calculate the width of the GET/SET and how much we need to
1330          shift the result by.  */
1331       if (l2)
1332         if (l1)
1333           op_shift = 3;
1334         else
1335           op_shift = 2;
1336       else
1337         if (l1)
1338           op_shift = 1;
1339         else
1340           op_shift = 0;
1341
1342       /* GET/SET offsets are scaled by the width of the transfer.  */
1343       srel = srel >> op_shift;
1344
1345       /* Extended GET/SET has signed 12 bits of offset, standard has
1346          signed 6 bits.  */
1347       if (op_extended)
1348         {
1349           if (!within_signed_range (srel, 12))
1350             {
1351               if (hh && hh->eh.root.type == bfd_link_hash_undefweak)
1352                 srel = 0;
1353               else
1354                 return bfd_reloc_overflow;
1355             }
1356           opcode &= ~(0xfff << 7);
1357           opcode |= ((srel & 0xfff) << 7);
1358         }
1359       else
1360         {
1361           if (!within_signed_range (srel, 5))
1362             {
1363               if (hh && hh->eh.root.type == bfd_link_hash_undefweak)
1364                 srel = 0;
1365               else
1366                 return bfd_reloc_overflow;
1367             }
1368           opcode &= ~(0x3f << 8);
1369           opcode |= ((srel & 0x3f) << 8);
1370         }
1371
1372       bfd_put_32 (input_bfd, opcode, hit_data);
1373       break;
1374     case R_METAG_TLS_GD:
1375     case R_METAG_TLS_LDM:
1376       opcode = bfd_get_32 (input_bfd, hit_data);
1377
1378       if ((bfd_signed_vma)relocation < 0)
1379        {
1380          /* sign extend immediate */
1381          if ((opcode & 0xf2000001) == 0x02000000)
1382           {
1383             /* ADD De.e,Dx.r,#I16 */
1384             /* set SE bit */
1385             opcode |= (1 << 1);
1386           } else
1387             return bfd_reloc_overflow;
1388        }
1389
1390       bfd_put_32 (input_bfd, opcode, hit_data);
1391
1392       r = _bfd_final_link_relocate (howto, input_bfd, input_section,
1393                                     contents, rel->r_offset,
1394                                     relocation, rel->r_addend);
1395       break;
1396     default:
1397       r = _bfd_final_link_relocate (howto, input_bfd, input_section,
1398                                     contents, rel->r_offset,
1399                                     relocation, rel->r_addend);
1400     }
1401
1402   return r;
1403 }
1404
1405 /* This is defined because R_METAG_NONE != 0...
1406    See RELOC_AGAINST_DISCARDED_SECTION for details.  */
1407 #define METAG_RELOC_AGAINST_DISCARDED_SECTION(info, input_bfd, input_section, \
1408                                               rel, relend, howto, contents) \
1409   {                                                                     \
1410     _bfd_clear_contents (howto, input_bfd, input_section,               \
1411                          contents + rel->r_offset);                     \
1412                                                                         \
1413     if (info->relocatable                                               \
1414         && (input_section->flags & SEC_DEBUGGING))                      \
1415       {                                                                 \
1416         /* Only remove relocations in debug sections since other        \
1417            sections may require relocations.  */                        \
1418         Elf_Internal_Shdr *rel_hdr;                                     \
1419                                                                         \
1420         rel_hdr = _bfd_elf_single_rel_hdr (input_section->output_section); \
1421                                                                         \
1422         /* Avoid empty output section.  */                              \
1423         if (rel_hdr->sh_size > rel_hdr->sh_entsize)                     \
1424           {                                                             \
1425             rel_hdr->sh_size -= rel_hdr->sh_entsize;                    \
1426             rel_hdr = _bfd_elf_single_rel_hdr (input_section);          \
1427             rel_hdr->sh_size -= rel_hdr->sh_entsize;                    \
1428                                                                         \
1429             memmove (rel, rel + 1, (relend - rel) * sizeof (*rel));     \
1430                                                                         \
1431             input_section->reloc_count--;                               \
1432             relend--;                                                   \
1433             rel--;                                                      \
1434             continue;                                                   \
1435           }                                                             \
1436       }                                                                 \
1437                                                                         \
1438     rel->r_info = R_METAG_NONE;                                         \
1439     rel->r_addend = 0;                                                  \
1440     continue;                                                           \
1441   }
1442
1443 /* Relocate a META ELF section.
1444
1445 The RELOCATE_SECTION function is called by the new ELF backend linker
1446 to handle the relocations for a section.
1447
1448 The relocs are always passed as Rela structures; if the section
1449 actually uses Rel structures, the r_addend field will always be
1450 zero.
1451
1452 This function is responsible for adjusting the section contents as
1453 necessary, and (if using Rela relocs and generating a relocatable
1454 output file) adjusting the reloc addend as necessary.
1455
1456 This function does not have to worry about setting the reloc
1457 address or the reloc symbol index.
1458
1459 LOCAL_SYMS is a pointer to the swapped in local symbols.
1460
1461 LOCAL_SECTIONS is an array giving the section in the input file
1462 corresponding to the st_shndx field of each local symbol.
1463
1464 The global hash table entry for the global symbols can be found
1465 via elf_sym_hashes (input_bfd).
1466
1467 When generating relocatable output, this function must handle
1468 STB_LOCAL/STT_SECTION symbols specially.  The output symbol is
1469 going to be the section symbol corresponding to the output
1470 section, which means that the addend must be adjusted
1471 accordingly.  */
1472
1473 static bfd_boolean
1474 elf_metag_relocate_section (bfd *output_bfd,
1475                             struct bfd_link_info *info,
1476                             bfd *input_bfd,
1477                             asection *input_section,
1478                             bfd_byte *contents,
1479                             Elf_Internal_Rela *relocs,
1480                             Elf_Internal_Sym *local_syms,
1481                             asection **local_sections)
1482 {
1483   bfd_vma *local_got_offsets;
1484   Elf_Internal_Shdr *symtab_hdr;
1485   struct elf_link_hash_entry **eh_syms;
1486   struct elf_metag_link_hash_table *htab;
1487   Elf_Internal_Rela *rel;
1488   Elf_Internal_Rela *relend;
1489   asection *sreloc;
1490
1491   symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
1492   eh_syms = elf_sym_hashes (input_bfd);
1493   relend = relocs + input_section->reloc_count;
1494
1495   htab = metag_link_hash_table (info);
1496   local_got_offsets = elf_local_got_offsets (input_bfd);
1497
1498   sreloc = NULL;
1499
1500   for (rel = relocs; rel < relend; rel ++)
1501     {
1502       reloc_howto_type *howto;
1503       unsigned long r_symndx;
1504       Elf_Internal_Sym *sym;
1505       asection *sec;
1506       struct elf_metag_link_hash_entry *hh;
1507       bfd_vma relocation;
1508       bfd_reloc_status_type r;
1509       const char *name;
1510       int r_type;
1511
1512       r_type = ELF32_R_TYPE (rel->r_info);
1513
1514       if (r_type == R_METAG_GNU_VTINHERIT
1515           || r_type == R_METAG_GNU_VTENTRY
1516           || r_type == R_METAG_NONE)
1517         continue;
1518
1519       r_symndx = ELF32_R_SYM (rel->r_info);
1520
1521       howto  = elf_metag_howto_table + ELF32_R_TYPE (rel->r_info);
1522       hh     = NULL;
1523       sym    = NULL;
1524       sec    = NULL;
1525
1526       if (r_symndx < symtab_hdr->sh_info)
1527         {
1528           sym = local_syms + r_symndx;
1529           sec = local_sections [r_symndx];
1530           relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
1531
1532           name = bfd_elf_string_from_elf_section
1533             (input_bfd, symtab_hdr->sh_link, sym->st_name);
1534           name = (name == NULL) ? bfd_section_name (input_bfd, sec) : name;
1535         }
1536       else
1537         {
1538           struct elf_link_hash_entry *eh;
1539           bfd_boolean unresolved_reloc, warned, ignored;
1540
1541           RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
1542                                    r_symndx, symtab_hdr, eh_syms,
1543                                    eh, sec, relocation,
1544                                    unresolved_reloc, warned, ignored);
1545
1546           name = eh->root.root.string;
1547           hh = (struct elf_metag_link_hash_entry *) eh;
1548         }
1549
1550       if (sec != NULL && discarded_section (sec))
1551           METAG_RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
1552                                                  rel, relend, howto, contents);
1553
1554       if (info->relocatable)
1555         continue;
1556
1557       switch (r_type)
1558         {
1559         case R_METAG_ADDR32:
1560         case R_METAG_RELBRANCH:
1561           if ((input_section->flags & SEC_ALLOC) == 0)
1562             break;
1563
1564           if ((info->shared
1565                && r_symndx != STN_UNDEF
1566                && (input_section->flags & SEC_ALLOC) != 0
1567                && (r_type != R_METAG_RELBRANCH
1568                    || !SYMBOL_CALLS_LOCAL (info, &hh->eh)))
1569               || (!info->shared
1570                   && hh != NULL
1571                   && hh->eh.dynindx != -1
1572                   && !hh->eh.non_got_ref
1573                   && ((hh->eh.def_dynamic
1574                        && !hh->eh.def_regular)
1575                       || hh->eh.root.type == bfd_link_hash_undefweak
1576                       || hh->eh.root.type == bfd_link_hash_undefined)))
1577             {
1578               Elf_Internal_Rela outrel;
1579               bfd_boolean skip, relocate;
1580               bfd_byte *loc;
1581
1582               /* When generating a shared object, these relocations
1583                  are copied into the output file to be resolved at run
1584                  time.  */
1585
1586               sreloc = elf_section_data (input_section)->sreloc;
1587               BFD_ASSERT (sreloc != NULL);
1588
1589               skip = FALSE;
1590               relocate = FALSE;
1591
1592               outrel.r_offset = _bfd_elf_section_offset (output_bfd,
1593                                                          info,
1594                                                          input_section,
1595                                                          rel->r_offset);
1596               if (outrel.r_offset == (bfd_vma) -1)
1597                 skip = TRUE;
1598               else if (outrel.r_offset == (bfd_vma) -2)
1599                 skip = TRUE, relocate = TRUE;
1600               outrel.r_offset += (input_section->output_section->vma
1601                                   + input_section->output_offset);
1602
1603               if (skip)
1604                 {
1605                   memset (&outrel, 0, sizeof outrel);
1606                   outrel.r_info = ELF32_R_INFO (0, R_METAG_NONE);
1607                 }
1608               else if (r_type == R_METAG_RELBRANCH)
1609                 {
1610                   BFD_ASSERT (hh != NULL && hh->eh.dynindx != -1);
1611                   outrel.r_info = ELF32_R_INFO (hh->eh.dynindx, r_type);
1612                   outrel.r_addend = rel->r_addend;
1613                 }
1614               else
1615                 {
1616                   /* h->dynindx may be -1 if this symbol was marked to
1617                      become local.  */
1618                   if (hh == NULL
1619                       || ((info->symbolic || hh->eh.dynindx == -1)
1620                           && hh->eh.def_regular))
1621                     {
1622                       relocate = TRUE;
1623                       outrel.r_info = ELF32_R_INFO (0, R_METAG_RELATIVE);
1624                       outrel.r_addend = relocation + rel->r_addend;
1625                     }
1626                   else
1627                     {
1628                       BFD_ASSERT (hh->eh.dynindx != -1);
1629                       outrel.r_info = ELF32_R_INFO (hh->eh.dynindx, r_type);
1630                       outrel.r_addend = rel->r_addend;
1631                     }
1632                 }
1633
1634               loc = sreloc->contents;
1635               loc += sreloc->reloc_count * sizeof(Elf32_External_Rela);
1636               bfd_elf32_swap_reloca_out (output_bfd, &outrel,loc);
1637               ++sreloc->reloc_count;
1638
1639               /* If this reloc is against an external symbol, we do
1640                  not want to fiddle with the addend.  Otherwise, we
1641                  need to include the symbol value so that it becomes
1642                  an addend for the dynamic reloc.  */
1643               if (! relocate)
1644                 continue;
1645             }
1646           break;
1647
1648         case R_METAG_RELBRANCH_PLT:
1649           /* Relocation is to the entry for this symbol in the
1650              procedure linkage table.  */
1651
1652           if (hh == NULL)
1653             break;
1654
1655           if (hh->eh.forced_local)
1656             break;
1657
1658           if (hh->eh.plt.offset == (bfd_vma) -1 ||
1659               htab->splt == NULL)
1660             {
1661               /* We didn't make a PLT entry for this symbol.  This
1662                  happens when statically linking PIC code, or when
1663                  using -Bsymbolic.  */
1664               break;
1665             }
1666
1667           relocation = (htab->splt->output_section->vma
1668                         + htab->splt->output_offset
1669                         + hh->eh.plt.offset);
1670           break;
1671         case R_METAG_HI16_GOTPC:
1672         case R_METAG_LO16_GOTPC:
1673           BFD_ASSERT (htab->sgot != NULL);
1674
1675           relocation = (htab->sgot->output_section->vma +
1676                         htab->sgot->output_offset);
1677           relocation += GOT_REG_OFFSET;
1678           relocation -= (input_section->output_section->vma
1679                          + input_section->output_offset
1680                          + rel->r_offset);
1681           break;
1682         case R_METAG_HI16_GOTOFF:
1683         case R_METAG_LO16_GOTOFF:
1684         case R_METAG_GETSET_GOTOFF:
1685           BFD_ASSERT (htab->sgot != NULL);
1686
1687           relocation -= (htab->sgot->output_section->vma +
1688                          htab->sgot->output_offset);
1689           relocation -= GOT_REG_OFFSET;
1690           break;
1691         case R_METAG_GETSET_GOT:
1692           {
1693             bfd_vma off;
1694             bfd_boolean do_got = 0;
1695
1696             /* Relocation is to the entry for this symbol in the
1697                global offset table.  */
1698             if (hh != NULL)
1699               {
1700                 bfd_boolean dyn;
1701
1702                 off = hh->eh.got.offset;
1703                 dyn = htab->etab.dynamic_sections_created;
1704                 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared,
1705                                                        &hh->eh))
1706                   {
1707                     /* If we aren't going to call finish_dynamic_symbol,
1708                        then we need to handle initialisation of the .got
1709                        entry and create needed relocs here.  Since the
1710                        offset must always be a multiple of 4, we use the
1711                        least significant bit to record whether we have
1712                        initialised it already.  */
1713                     if ((off & 1) != 0)
1714                       off &= ~1;
1715                     else
1716                       {
1717                         hh->eh.got.offset |= 1;
1718                         do_got = 1;
1719                       }
1720                   }
1721               }
1722             else
1723               {
1724                 /* Local symbol case.  */
1725                 if (local_got_offsets == NULL)
1726                   abort ();
1727
1728                 off = local_got_offsets[r_symndx];
1729
1730                 /* The offset must always be a multiple of 4.  We use
1731                    the least significant bit to record whether we have
1732                    already generated the necessary reloc.  */
1733                 if ((off & 1) != 0)
1734                   off &= ~1;
1735                 else
1736                   {
1737                     local_got_offsets[r_symndx] |= 1;
1738                     do_got = 1;
1739                   }
1740               }
1741
1742             if (do_got)
1743               {
1744                 if (info->shared)
1745                   {
1746                     /* Output a dynamic relocation for this GOT entry.
1747                        In this case it is relative to the base of the
1748                        object because the symbol index is zero.  */
1749                     Elf_Internal_Rela outrel;
1750                     bfd_byte *loc;
1751                     asection *s = htab->srelgot;
1752
1753                     outrel.r_offset = (off
1754                                        + htab->sgot->output_offset
1755                                        + htab->sgot->output_section->vma);
1756                     outrel.r_info = ELF32_R_INFO (0, R_METAG_RELATIVE);
1757                     outrel.r_addend = relocation;
1758                     loc = s->contents;
1759                     loc += s->reloc_count++ * sizeof (Elf32_External_Rela);
1760                     bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
1761                   }
1762                 else
1763                   bfd_put_32 (output_bfd, relocation,
1764                               htab->sgot->contents + off);
1765               }
1766
1767             if (off >= (bfd_vma) -2)
1768               abort ();
1769
1770             relocation = off - GOT_REG_OFFSET;
1771           }
1772           break;
1773         case R_METAG_TLS_GD:
1774         case R_METAG_TLS_IE:
1775           {
1776             /* XXXMJF There is room here for optimisations. For example
1777                converting from GD->IE, etc.  */
1778             bfd_vma off;
1779             int indx;
1780             char tls_type;
1781
1782             if (htab->sgot == NULL)
1783               abort();
1784
1785             indx = 0;
1786             if (hh != NULL)
1787               {
1788                 bfd_boolean dyn;
1789                 dyn = htab->etab.dynamic_sections_created;
1790
1791                 if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, &hh->eh)
1792                     && (!info->shared
1793                         || !SYMBOL_REFERENCES_LOCAL (info, &hh->eh)))
1794                   {
1795                     indx = hh->eh.dynindx;
1796                   }
1797                 off = hh->eh.got.offset;
1798                 tls_type = hh->tls_type;
1799               }
1800             else
1801               {
1802                 /* Local symbol case.  */
1803                 if (local_got_offsets == NULL)
1804                   abort ();
1805
1806                 off = local_got_offsets[r_symndx];
1807                 tls_type = metag_elf_local_got_tls_type (input_bfd) [r_symndx];
1808               }
1809
1810             if (tls_type == GOT_UNKNOWN)
1811               abort();
1812
1813             if ((off & 1) != 0)
1814               off &= ~1;
1815             else
1816               {
1817                 bfd_boolean need_relocs = FALSE;
1818                 Elf_Internal_Rela outrel;
1819                 bfd_byte *loc = NULL;
1820                 int cur_off = off;
1821
1822                 /* The GOT entries have not been initialized yet.  Do it
1823                    now, and emit any relocations.  If both an IE GOT and a
1824                    GD GOT are necessary, we emit the GD first.  */
1825
1826                 if ((info->shared || indx != 0)
1827                     && (hh == NULL
1828                         || ELF_ST_VISIBILITY (hh->eh.other) == STV_DEFAULT
1829                         || hh->eh.root.type != bfd_link_hash_undefweak))
1830                   {
1831                     need_relocs = TRUE;
1832                     loc = htab->srelgot->contents;
1833                     /* FIXME (CAO): Should this be reloc_count++ ? */
1834                     loc += htab->srelgot->reloc_count * sizeof (Elf32_External_Rela);
1835                   }
1836
1837                 if (tls_type & GOT_TLS_GD)
1838                   {
1839                     if (need_relocs)
1840                       {
1841                         outrel.r_offset = (cur_off
1842                                            + htab->sgot->output_section->vma
1843                                            + htab->sgot->output_offset);
1844                         outrel.r_info = ELF32_R_INFO (indx, R_METAG_TLS_DTPMOD);
1845                         outrel.r_addend = 0;
1846                         bfd_put_32 (output_bfd, 0, htab->sgot->contents + cur_off);
1847
1848                         bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
1849                         htab->srelgot->reloc_count++;
1850                         loc += sizeof (Elf32_External_Rela);
1851
1852                         if (indx == 0)
1853                           bfd_put_32 (output_bfd, 0,
1854                                       htab->sgot->contents + cur_off + 4);
1855                         else
1856                           {
1857                             bfd_put_32 (output_bfd, 0,
1858                                         htab->sgot->contents + cur_off + 4);
1859                             outrel.r_info = ELF32_R_INFO (indx,
1860                                                       R_METAG_TLS_DTPOFF);
1861                             outrel.r_offset += 4;
1862                             bfd_elf32_swap_reloca_out (output_bfd,
1863                                                        &outrel, loc);
1864                             htab->srelgot->reloc_count++;
1865                             loc += sizeof (Elf32_External_Rela);
1866                           }
1867                       }
1868                     else
1869                       {
1870                         /* We don't support changing the TLS model.  */
1871                         abort ();
1872                       }
1873
1874                     cur_off += 8;
1875                   }
1876
1877                 if (tls_type & GOT_TLS_IE)
1878                   {
1879                     if (need_relocs)
1880                       {
1881                         outrel.r_offset = (cur_off
1882                                            + htab->sgot->output_section->vma
1883                                            + htab->sgot->output_offset);
1884                         outrel.r_info = ELF32_R_INFO (indx, R_METAG_TLS_TPOFF);
1885
1886                         if (indx == 0)
1887                           outrel.r_addend = relocation - dtpoff_base (info);
1888                         else
1889                           outrel.r_addend = 0;
1890
1891                         bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
1892                         htab->srelgot->reloc_count++;
1893                         loc += sizeof (Elf32_External_Rela);
1894                       }
1895                     else
1896                       bfd_put_32 (output_bfd, tpoff (info, relocation),
1897                                   htab->sgot->contents + cur_off);
1898
1899                     cur_off += 4;
1900                   }
1901
1902                   if (hh != NULL)
1903                     hh->eh.got.offset |= 1;
1904                   else
1905                     local_got_offsets[r_symndx] |= 1;
1906               }
1907
1908             /* Add the base of the GOT to the relocation value.  */
1909             relocation = off - GOT_REG_OFFSET;
1910
1911             break;
1912           }
1913
1914         case R_METAG_TLS_IENONPIC_HI16:
1915         case R_METAG_TLS_IENONPIC_LO16:
1916         case R_METAG_TLS_LE_HI16:
1917         case R_METAG_TLS_LE_LO16:
1918           if (info->shared)
1919             {
1920               (*_bfd_error_handler)
1921                 (_("%B(%A+0x%lx): R_METAG_TLS_LE/IENONPIC relocation not permitted in shared object"),
1922                  input_bfd, input_section,
1923                  (long) rel->r_offset, howto->name);
1924               return FALSE;
1925             }
1926           else
1927             relocation = tpoff (info, relocation);
1928           break;
1929         case R_METAG_TLS_LDO_HI16:
1930         case R_METAG_TLS_LDO_LO16:
1931           if (! info->shared)
1932             relocation = tpoff (info, relocation);
1933           else
1934             relocation -= dtpoff_base (info);
1935           break;
1936         case R_METAG_TLS_LDM:
1937           {
1938             bfd_vma off;
1939
1940             if (htab->sgot == NULL)
1941               abort();
1942             off = htab->tls_ldm_got.offset;
1943             if (off & 1)
1944               off &= ~1;
1945             else
1946               {
1947                 Elf_Internal_Rela outrel;
1948                 bfd_byte *loc;
1949
1950                 outrel.r_offset = (off
1951                                    + htab->sgot->output_section->vma
1952                                    + htab->sgot->output_offset);
1953
1954                 outrel.r_addend = 0;
1955                 outrel.r_info = ELF32_R_INFO (0, R_METAG_TLS_DTPMOD);
1956                 loc = htab->srelgot->contents;
1957                 loc += htab->srelgot->reloc_count++ * sizeof (Elf32_External_Rela);
1958                 bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
1959                 htab->tls_ldm_got.offset |= 1;
1960               }
1961
1962             relocation = off - GOT_REG_OFFSET;
1963             break;
1964           }
1965         default:
1966           break;
1967         }
1968
1969       r = metag_final_link_relocate (howto, input_bfd, input_section,
1970                                      contents, rel, relocation, hh, htab,
1971                                      sec);
1972
1973       if (r != bfd_reloc_ok)
1974         {
1975           const char * msg = (const char *) NULL;
1976
1977           switch (r)
1978             {
1979             case bfd_reloc_overflow:
1980               r = info->callbacks->reloc_overflow
1981                 (info, (hh ? &hh->eh.root : NULL), name, howto->name,
1982                  (bfd_vma) 0, input_bfd, input_section, rel->r_offset);
1983               break;
1984
1985             case bfd_reloc_undefined:
1986               r = info->callbacks->undefined_symbol
1987                 (info, name, input_bfd, input_section, rel->r_offset,
1988                  TRUE);
1989               break;
1990
1991             case bfd_reloc_outofrange:
1992               msg = _("internal error: out of range error");
1993               break;
1994
1995             case bfd_reloc_notsupported:
1996               msg = _("internal error: unsupported relocation error");
1997               break;
1998
1999             case bfd_reloc_dangerous:
2000               msg = _("internal error: dangerous relocation");
2001               break;
2002
2003             default:
2004               msg = _("internal error: unknown error");
2005               break;
2006             }
2007
2008           if (msg)
2009             r = info->callbacks->warning
2010               (info, msg, name, input_bfd, input_section, rel->r_offset);
2011
2012           if (! r)
2013             return FALSE;
2014         }
2015     }
2016
2017   return TRUE;
2018 }
2019
2020 /* Create the .plt and .got sections, and set up our hash table
2021    short-cuts to various dynamic sections.  */
2022
2023 static bfd_boolean
2024 elf_metag_create_dynamic_sections (bfd *abfd, struct bfd_link_info *info)
2025 {
2026   struct elf_metag_link_hash_table *htab;
2027   struct elf_link_hash_entry *eh;
2028   struct bfd_link_hash_entry *bh;
2029   const struct elf_backend_data *bed = get_elf_backend_data (abfd);
2030
2031   /* Don't try to create the .plt and .got twice.  */
2032   htab = metag_link_hash_table (info);
2033   if (htab->splt != NULL)
2034     return TRUE;
2035
2036   /* Call the generic code to do most of the work.  */
2037   if (! _bfd_elf_create_dynamic_sections (abfd, info))
2038     return FALSE;
2039
2040   htab->sgot = bfd_get_linker_section (abfd, ".got");
2041   if (! htab->sgot)
2042     return FALSE;
2043
2044   htab->sgotplt = bfd_make_section_with_flags (abfd, ".got.plt",
2045                                                (SEC_ALLOC | SEC_LOAD |
2046                                                 SEC_HAS_CONTENTS |
2047                                                 SEC_IN_MEMORY |
2048                                                 SEC_LINKER_CREATED));
2049   if (htab->sgotplt == NULL
2050       || !bfd_set_section_alignment (abfd, htab->sgotplt, 2))
2051     return FALSE;
2052
2053   /* Define the symbol __GLOBAL_OFFSET_TABLE__ at the start of the .got
2054      section.  We don't do this in the linker script because we don't want
2055      to define the symbol if we are not creating a global offset table.  */
2056   bh = NULL;
2057   if (!(_bfd_generic_link_add_one_symbol
2058         (info, abfd, "__GLOBAL_OFFSET_TABLE__", BSF_GLOBAL, htab->sgot,
2059          (bfd_vma) 0, NULL, FALSE, bed->collect, &bh)))
2060     return FALSE;
2061   eh = (struct elf_link_hash_entry *) bh;
2062   eh->def_regular = 1;
2063   eh->type = STT_OBJECT;
2064   eh->other = STV_HIDDEN;
2065
2066   if (! info->executable
2067       && ! bfd_elf_link_record_dynamic_symbol (info, eh))
2068     return FALSE;
2069
2070   elf_hash_table (info)->hgot = eh;
2071
2072   htab->splt = bfd_get_linker_section (abfd, ".plt");
2073   htab->srelplt = bfd_get_linker_section (abfd, ".rela.plt");
2074
2075   htab->srelgot = bfd_get_linker_section (abfd, ".rela.got");
2076
2077   htab->sdynbss = bfd_get_linker_section (abfd, ".dynbss");
2078   htab->srelbss = bfd_get_linker_section (abfd, ".rela.bss");
2079
2080   return TRUE;
2081 }
2082
2083 /* Look through the relocs for a section during the first phase, and
2084    calculate needed space in the global offset table, procedure linkage
2085    table, and dynamic reloc sections.  At this point we haven't
2086    necessarily read all the input files.  */
2087
2088 static bfd_boolean
2089 elf_metag_check_relocs (bfd *abfd,
2090                         struct bfd_link_info *info,
2091                         asection *sec,
2092                         const Elf_Internal_Rela *relocs)
2093 {
2094   Elf_Internal_Shdr *symtab_hdr;
2095   struct elf_link_hash_entry **eh_syms;
2096   const Elf_Internal_Rela *rel;
2097   const Elf_Internal_Rela *rel_end;
2098   struct elf_metag_link_hash_table *htab;
2099   asection *sreloc;
2100   bfd *dynobj;
2101   int tls_type = GOT_UNKNOWN, old_tls_type = GOT_UNKNOWN;
2102
2103   if (info->relocatable)
2104     return TRUE;
2105
2106   htab = metag_link_hash_table (info);
2107   dynobj = htab->etab.dynobj;
2108   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2109   eh_syms = elf_sym_hashes (abfd);
2110   sreloc = NULL;
2111
2112   if (htab == NULL)
2113     return FALSE;
2114
2115   rel_end = relocs + sec->reloc_count;
2116   for (rel = relocs; rel < rel_end; rel++)
2117     {
2118       int r_type;
2119       struct elf_metag_link_hash_entry *hh;
2120       Elf_Internal_Sym *isym;
2121       unsigned long r_symndx;
2122
2123       r_symndx = ELF32_R_SYM (rel->r_info);
2124       r_type = ELF32_R_TYPE (rel->r_info);
2125       if (r_symndx < symtab_hdr->sh_info)
2126         {
2127           /* A local symbol.  */
2128           isym = bfd_sym_from_r_symndx (&htab->sym_cache,
2129                                         abfd, r_symndx);
2130           if (isym == NULL)
2131             return FALSE;
2132
2133           hh = NULL;
2134         }
2135       else
2136         {
2137           isym = NULL;
2138
2139           hh = (struct elf_metag_link_hash_entry *)
2140             eh_syms[r_symndx - symtab_hdr->sh_info];
2141           while (hh->eh.root.type == bfd_link_hash_indirect
2142                  || hh->eh.root.type == bfd_link_hash_warning)
2143             hh = (struct elf_metag_link_hash_entry *) hh->eh.root.u.i.link;
2144
2145           /* PR15323, ref flags aren't set for references in the same
2146              object.  */
2147           hh->eh.root.non_ir_ref = 1;
2148         }
2149
2150       /* Some relocs require a global offset table.  */
2151       if (htab->sgot == NULL)
2152         {
2153           switch (r_type)
2154             {
2155             case R_METAG_TLS_GD:
2156             case R_METAG_TLS_LDM:
2157             case R_METAG_TLS_IE:
2158               if (info->shared)
2159                 info->flags |= DF_STATIC_TLS;
2160               /* Fall through.  */
2161
2162             case R_METAG_HI16_GOTOFF:
2163             case R_METAG_LO16_GOTOFF:
2164             case R_METAG_GETSET_GOTOFF:
2165             case R_METAG_GETSET_GOT:
2166             case R_METAG_HI16_GOTPC:
2167             case R_METAG_LO16_GOTPC:
2168               if (dynobj == NULL)
2169                 htab->etab.dynobj = dynobj = abfd;
2170               if (!elf_metag_create_dynamic_sections (dynobj, info))
2171                 return FALSE;
2172               break;
2173
2174             default:
2175               break;
2176             }
2177         }
2178
2179       switch (r_type)
2180         {
2181         case R_METAG_TLS_IE:
2182         case R_METAG_TLS_GD:
2183         case R_METAG_GETSET_GOT:
2184           switch (r_type)
2185             {
2186             default:
2187               tls_type = GOT_NORMAL;
2188               break;
2189             case R_METAG_TLS_IE:
2190               tls_type = GOT_TLS_IE;
2191               break;
2192             case R_METAG_TLS_GD:
2193               tls_type = GOT_TLS_GD;
2194               break;
2195             }
2196
2197           if (hh != NULL)
2198             {
2199               hh->eh.got.refcount += 1;
2200               old_tls_type = hh->tls_type;
2201             }
2202           else
2203             {
2204               bfd_signed_vma *local_got_refcounts;
2205
2206               /* This is a global offset table entry for a local
2207                  symbol.  */
2208               local_got_refcounts = elf_local_got_refcounts (abfd);
2209               if (local_got_refcounts == NULL)
2210                 {
2211                   bfd_size_type size;
2212
2213                   size = symtab_hdr->sh_info;
2214                   size *= sizeof (bfd_signed_vma);
2215                   /* Add in space to store the local GOT TLS types.  */
2216                   size += symtab_hdr->sh_info;
2217                   local_got_refcounts = ((bfd_signed_vma *)
2218                                          bfd_zalloc (abfd, size));
2219                   if (local_got_refcounts == NULL)
2220                     return FALSE;
2221                   elf_local_got_refcounts (abfd) = local_got_refcounts;
2222                   memset (metag_elf_local_got_tls_type (abfd),
2223                           GOT_UNKNOWN, symtab_hdr->sh_info);
2224                 }
2225               local_got_refcounts[r_symndx] += 1;
2226               old_tls_type = metag_elf_local_got_tls_type (abfd) [r_symndx];
2227             }
2228
2229           if (old_tls_type != tls_type)
2230             {
2231               if (hh != NULL)
2232                 {
2233                   hh->tls_type = tls_type;
2234                 }
2235               else
2236                 {
2237                   metag_elf_local_got_tls_type (abfd) [r_symndx] = tls_type;
2238                 }
2239             }
2240
2241           break;
2242
2243         case R_METAG_TLS_LDM:
2244           metag_link_hash_table (info)->tls_ldm_got.refcount += 1;
2245           break;
2246
2247         case R_METAG_RELBRANCH_PLT:
2248           /* This symbol requires a procedure linkage table entry.  We
2249              actually build the entry in adjust_dynamic_symbol,
2250              because this might be a case of linking PIC code without
2251              linking in any dynamic objects, in which case we don't
2252              need to generate a procedure linkage table after all.  */
2253
2254           /* If this is a local symbol, we resolve it directly without
2255              creating a procedure linkage table entry.  */
2256           if (hh == NULL)
2257             continue;
2258
2259           if (hh->eh.forced_local)
2260             break;
2261
2262           hh->eh.needs_plt = 1;
2263           hh->eh.plt.refcount += 1;
2264           break;
2265
2266         case R_METAG_HIADDR16:
2267         case R_METAG_LOADDR16:
2268           /* Let's help debug shared library creation.  These relocs
2269              cannot be used in shared libs.  Don't error out for
2270              sections we don't care about, such as debug sections or
2271              non-constant sections.  */
2272           if (info->shared
2273               && (sec->flags & SEC_ALLOC) != 0
2274               && (sec->flags & SEC_READONLY) != 0)
2275             {
2276               const char *name;
2277
2278               if (hh)
2279                 name = hh->eh.root.root.string;
2280               else
2281                 name = bfd_elf_sym_name (abfd, symtab_hdr, isym, NULL);
2282               (*_bfd_error_handler)
2283                 (_("%B: relocation %s against `%s' can not be used when making a shared object; recompile with -fPIC"),
2284                  abfd, elf_metag_howto_table[r_type].name, name);
2285               bfd_set_error (bfd_error_bad_value);
2286               return FALSE;
2287             }
2288
2289           /* Fall through.  */
2290         case R_METAG_ADDR32:
2291         case R_METAG_RELBRANCH:
2292         case R_METAG_GETSETOFF:
2293           if (hh != NULL && !info->shared)
2294             {
2295               hh->eh.non_got_ref = 1;
2296               hh->eh.plt.refcount += 1;
2297             }
2298
2299           /* If we are creating a shared library, and this is a reloc
2300              against a global symbol, or a non PC relative reloc
2301              against a local symbol, then we need to copy the reloc
2302              into the shared library.  However, if we are linking with
2303              -Bsymbolic, we do not need to copy a reloc against a
2304              global symbol which is defined in an object we are
2305              including in the link (i.e., DEF_REGULAR is set).  At
2306              this point we have not seen all the input files, so it is
2307              possible that DEF_REGULAR is not set now but will be set
2308              later (it is never cleared).  We account for that
2309              possibility below by storing information in the
2310              dyn_relocs field of the hash table entry. A similar
2311              situation occurs when creating shared libraries and symbol
2312              visibility changes render the symbol local.
2313
2314              If on the other hand, we are creating an executable, we
2315              may need to keep relocations for symbols satisfied by a
2316              dynamic library if we manage to avoid copy relocs for the
2317              symbol.  */
2318           if ((info->shared
2319                && (sec->flags & SEC_ALLOC) != 0
2320                && (r_type != R_METAG_RELBRANCH
2321                    || (hh != NULL
2322                        && (! info->symbolic
2323                            || hh->eh.root.type == bfd_link_hash_defweak
2324                            || !hh->eh.def_regular))))
2325               || (!info->shared
2326                   && (sec->flags & SEC_ALLOC) != 0
2327                   && hh != NULL
2328                   && (hh->eh.root.type == bfd_link_hash_defweak
2329                       || !hh->eh.def_regular)))
2330             {
2331               struct elf_metag_dyn_reloc_entry *hdh_p;
2332               struct elf_metag_dyn_reloc_entry **hdh_head;
2333
2334               if (dynobj == NULL)
2335                 htab->etab.dynobj = dynobj = abfd;
2336
2337               /* When creating a shared object, we must copy these
2338                  relocs into the output file.  We create a reloc
2339                  section in dynobj and make room for the reloc.  */
2340               if (sreloc == NULL)
2341                 {
2342                   sreloc = _bfd_elf_make_dynamic_reloc_section
2343                     (sec, htab->etab.dynobj, 2, abfd, /*rela?*/ TRUE);
2344
2345                   if (sreloc == NULL)
2346                     {
2347                       bfd_set_error (bfd_error_bad_value);
2348                       return FALSE;
2349                     }
2350
2351                   elf_section_data (sec)->sreloc = sreloc;
2352                 }
2353
2354               /* If this is a global symbol, we count the number of
2355                  relocations we need for this symbol.  */
2356               if (hh != NULL)
2357                 hdh_head = &((struct elf_metag_link_hash_entry *) hh)->dyn_relocs;
2358               else
2359                 {
2360                   /* Track dynamic relocs needed for local syms too.  */
2361                   asection *sr;
2362                   void *vpp;
2363
2364                   sr = bfd_section_from_elf_index (abfd, isym->st_shndx);
2365                   if (sr == NULL)
2366                     sr = sec;
2367
2368                   vpp = &elf_section_data (sr)->local_dynrel;
2369                   hdh_head = (struct elf_metag_dyn_reloc_entry **) vpp;
2370                 }
2371
2372               hdh_p = *hdh_head;
2373               if (hdh_p == NULL || hdh_p->sec != sec)
2374                 {
2375                   hdh_p = ((struct elf_metag_dyn_reloc_entry *)
2376                            bfd_alloc (dynobj, sizeof *hdh_p));
2377                   if (hdh_p == NULL)
2378                     return FALSE;
2379                   hdh_p->hdh_next = *hdh_head;
2380                   *hdh_head = hdh_p;
2381                   hdh_p->sec = sec;
2382                   hdh_p->count = 0;
2383                   hdh_p->relative_count = 0;
2384                 }
2385
2386               hdh_p->count += 1;
2387               if (ELF32_R_TYPE (rel->r_info) == R_METAG_RELBRANCH)
2388                 hdh_p->relative_count += 1;
2389             }
2390           break;
2391
2392           /* This relocation describes the C++ object vtable hierarchy.
2393              Reconstruct it for later use during GC.  */
2394         case R_METAG_GNU_VTINHERIT:
2395           if (!bfd_elf_gc_record_vtinherit (abfd, sec, &hh->eh,
2396                                             rel->r_offset))
2397             return FALSE;
2398           break;
2399
2400           /* This relocation describes which C++ vtable entries are actually
2401              used.  Record for later use during GC.  */
2402         case R_METAG_GNU_VTENTRY:
2403           BFD_ASSERT (hh != NULL);
2404           if (hh != NULL
2405               && !bfd_elf_gc_record_vtentry (abfd, sec, &hh->eh, rel->r_addend))
2406             return FALSE;
2407           break;
2408         }
2409     }
2410
2411   return TRUE;
2412 }
2413
2414 /* Copy the extra info we tack onto an elf_link_hash_entry.  */
2415
2416 static void
2417 elf_metag_copy_indirect_symbol (struct bfd_link_info *info,
2418                                 struct elf_link_hash_entry *eh_dir,
2419                                 struct elf_link_hash_entry *eh_ind)
2420 {
2421   struct elf_metag_link_hash_entry *hh_dir, *hh_ind;
2422
2423   hh_dir = metag_elf_hash_entry (eh_dir);
2424   hh_ind = metag_elf_hash_entry (eh_ind);
2425
2426   if (hh_ind->dyn_relocs != NULL)
2427     {
2428       if (hh_dir->dyn_relocs != NULL)
2429         {
2430           struct elf_metag_dyn_reloc_entry **hdh_pp;
2431           struct elf_metag_dyn_reloc_entry *hdh_p;
2432
2433           if (eh_ind->root.type == bfd_link_hash_indirect)
2434             abort ();
2435
2436           /* Add reloc counts against the weak sym to the strong sym
2437              list.  Merge any entries against the same section.  */
2438           for (hdh_pp = &hh_ind->dyn_relocs; (hdh_p = *hdh_pp) != NULL; )
2439             {
2440               struct elf_metag_dyn_reloc_entry *hdh_q;
2441
2442               for (hdh_q = hh_dir->dyn_relocs; hdh_q != NULL;
2443                    hdh_q = hdh_q->hdh_next)
2444                 if (hdh_q->sec == hdh_p->sec)
2445                   {
2446                     hdh_q->relative_count += hdh_p->relative_count;
2447                     hdh_q->count += hdh_p->count;
2448                     *hdh_pp = hdh_p->hdh_next;
2449                     break;
2450                   }
2451               if (hdh_q == NULL)
2452                 hdh_pp = &hdh_p->hdh_next;
2453             }
2454           *hdh_pp = hh_dir->dyn_relocs;
2455         }
2456
2457       hh_dir->dyn_relocs = hh_ind->dyn_relocs;
2458       hh_ind->dyn_relocs = NULL;
2459     }
2460
2461   if (eh_ind->root.type == bfd_link_hash_indirect
2462       && eh_dir->got.refcount <= 0)
2463     {
2464       hh_dir->tls_type = hh_ind->tls_type;
2465       hh_ind->tls_type = GOT_UNKNOWN;
2466     }
2467
2468   _bfd_elf_link_hash_copy_indirect (info, eh_dir, eh_ind);
2469 }
2470
2471 /* Adjust a symbol defined by a dynamic object and referenced by a
2472    regular object.  The current definition is in some section of the
2473    dynamic object, but we're not including those sections.  We have to
2474    change the definition to something the rest of the link can
2475    understand.  */
2476
2477 static bfd_boolean
2478 elf_metag_adjust_dynamic_symbol (struct bfd_link_info *info,
2479                                  struct elf_link_hash_entry *eh)
2480 {
2481   struct elf_metag_link_hash_table *htab;
2482   struct elf_metag_link_hash_entry *hh;
2483   struct elf_metag_dyn_reloc_entry *hdh_p;
2484   asection *s;
2485
2486   /* If this is a function, put it in the procedure linkage table.  We
2487      will fill in the contents of the procedure linkage table later,
2488      when we know the address of the .got section.  */
2489   if (eh->type == STT_FUNC
2490       || eh->needs_plt)
2491     {
2492       if (eh->plt.refcount <= 0
2493           || SYMBOL_CALLS_LOCAL (info, eh)
2494           || (ELF_ST_VISIBILITY (eh->other) != STV_DEFAULT
2495               && eh->root.type == bfd_link_hash_undefweak))
2496         {
2497           /* This case can occur if we saw a PLT reloc in an input
2498              file, but the symbol was never referred to by a dynamic
2499              object.  In such a case, we don't actually need to build
2500              a procedure linkage table, and we can just do a PCREL
2501              reloc instead.  */
2502           eh->plt.offset = (bfd_vma) -1;
2503           eh->needs_plt = 0;
2504         }
2505
2506       return TRUE;
2507     }
2508   else
2509     eh->plt.offset = (bfd_vma) -1;
2510
2511   /* If this is a weak symbol, and there is a real definition, the
2512      processor independent code will have arranged for us to see the
2513      real definition first, and we can just use the same value.  */
2514   if (eh->u.weakdef != NULL)
2515     {
2516       if (eh->u.weakdef->root.type != bfd_link_hash_defined
2517           && eh->u.weakdef->root.type != bfd_link_hash_defweak)
2518         abort ();
2519       eh->root.u.def.section = eh->u.weakdef->root.u.def.section;
2520       eh->root.u.def.value = eh->u.weakdef->root.u.def.value;
2521       eh->non_got_ref = eh->u.weakdef->non_got_ref;
2522       return TRUE;
2523     }
2524
2525   /* This is a reference to a symbol defined by a dynamic object which
2526      is not a function.  */
2527
2528   /* If we are creating a shared library, we must presume that the
2529      only references to the symbol are via the global offset table.
2530      For such cases we need not do anything here; the relocations will
2531      be handled correctly by relocate_section.  */
2532   if (info->shared)
2533     return TRUE;
2534
2535   /* If there are no references to this symbol that do not use the
2536      GOT, we don't need to generate a copy reloc.  */
2537   if (!eh->non_got_ref)
2538     return TRUE;
2539
2540   /* If -z nocopyreloc was given, we won't generate them either.  */
2541   if (info->nocopyreloc)
2542     {
2543       eh->non_got_ref = 0;
2544       return TRUE;
2545     }
2546
2547   hh = (struct elf_metag_link_hash_entry *) eh;
2548   for (hdh_p = hh->dyn_relocs; hdh_p != NULL; hdh_p = hdh_p->hdh_next)
2549     {
2550       s = hdh_p->sec->output_section;
2551       if (s != NULL && (s->flags & SEC_READONLY) != 0)
2552         break;
2553     }
2554
2555   /* If we didn't find any dynamic relocs in read-only sections, then
2556      we'll be keeping the dynamic relocs and avoiding the copy reloc.  */
2557   if (hdh_p == NULL)
2558     {
2559       eh->non_got_ref = 0;
2560       return TRUE;
2561     }
2562
2563   /* We must allocate the symbol in our .dynbss section, which will
2564      become part of the .bss section of the executable.  There will be
2565      an entry for this symbol in the .dynsym section.  The dynamic
2566      object will contain position independent code, so all references
2567      from the dynamic object to this symbol will go through the global
2568      offset table.  The dynamic linker will use the .dynsym entry to
2569      determine the address it must put in the global offset table, so
2570      both the dynamic object and the regular object will refer to the
2571      same memory location for the variable.  */
2572
2573   htab = metag_link_hash_table (info);
2574
2575   /* We must generate a COPY reloc to tell the dynamic linker to
2576      copy the initial value out of the dynamic object and into the
2577      runtime process image.  */
2578   if ((eh->root.u.def.section->flags & SEC_ALLOC) != 0 && eh->size != 0)
2579     {
2580       htab->srelbss->size += sizeof (Elf32_External_Rela);
2581       eh->needs_copy = 1;
2582     }
2583
2584   s = htab->sdynbss;
2585
2586   return _bfd_elf_adjust_dynamic_copy (eh, s);
2587 }
2588
2589 /* Allocate space in .plt, .got and associated reloc sections for
2590    global syms.  */
2591
2592 static bfd_boolean
2593 allocate_dynrelocs (struct elf_link_hash_entry *eh, void *inf)
2594 {
2595   struct bfd_link_info *info;
2596   struct elf_metag_link_hash_table *htab;
2597   struct elf_metag_link_hash_entry *hh;
2598   struct elf_metag_dyn_reloc_entry *hdh_p;
2599
2600   if (eh->root.type == bfd_link_hash_indirect)
2601     return TRUE;
2602
2603   if (eh->root.type == bfd_link_hash_warning)
2604     eh = (struct elf_link_hash_entry *) eh->root.u.i.link;
2605
2606   info = inf;
2607   htab = metag_link_hash_table (info);
2608
2609   if (htab->etab.dynamic_sections_created
2610       && eh->plt.refcount > 0)
2611     {
2612       /* Make sure this symbol is output as a dynamic symbol.
2613          Undefined weak syms won't yet be marked as dynamic.  */
2614       if (eh->dynindx == -1
2615           && !eh->forced_local)
2616         {
2617           if (! bfd_elf_link_record_dynamic_symbol (info, eh))
2618             return FALSE;
2619         }
2620
2621       if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, info->shared, eh))
2622         {
2623           asection *s = htab->splt;
2624
2625           /* If this is the first .plt entry, make room for the special
2626              first entry.  */
2627           if (s->size == 0)
2628             s->size += PLT_ENTRY_SIZE;
2629
2630           eh->plt.offset = s->size;
2631
2632           /* If this symbol is not defined in a regular file, and we are
2633              not generating a shared library, then set the symbol to this
2634              location in the .plt.  This is required to make function
2635              pointers compare as equal between the normal executable and
2636              the shared library.  */
2637           if (! info->shared
2638               && !eh->def_regular)
2639             {
2640               eh->root.u.def.section = s;
2641               eh->root.u.def.value = eh->plt.offset;
2642             }
2643
2644           /* Make room for this entry.  */
2645           s->size += PLT_ENTRY_SIZE;
2646
2647           /* We also need to make an entry in the .got.plt section, which
2648              will be placed in the .got section by the linker script.  */
2649           htab->sgotplt->size += 4;
2650
2651           /* We also need to make an entry in the .rel.plt section.  */
2652           htab->srelplt->size += sizeof (Elf32_External_Rela);
2653         }
2654       else
2655         {
2656           eh->plt.offset = (bfd_vma) -1;
2657           eh->needs_plt = 0;
2658         }
2659     }
2660   else
2661     {
2662       eh->plt.offset = (bfd_vma) -1;
2663       eh->needs_plt = 0;
2664     }
2665
2666   if (eh->got.refcount > 0)
2667     {
2668       asection *s;
2669       bfd_boolean dyn;
2670       int tls_type = metag_elf_hash_entry (eh)->tls_type;
2671
2672       /* Make sure this symbol is output as a dynamic symbol.
2673          Undefined weak syms won't yet be marked as dynamic.  */
2674       if (eh->dynindx == -1
2675           && !eh->forced_local)
2676         {
2677           if (! bfd_elf_link_record_dynamic_symbol (info, eh))
2678             return FALSE;
2679         }
2680
2681       s = htab->sgot;
2682
2683       eh->got.offset = s->size;
2684       s->size += 4;
2685       /* R_METAG_TLS_GD needs 2 consecutive GOT slots.  */
2686       if (tls_type == GOT_TLS_GD)
2687           s->size += 4;
2688       dyn = htab->etab.dynamic_sections_created;
2689       /* R_METAG_TLS_IE needs one dynamic relocation if dynamic,
2690          R_METAG_TLS_GD needs one if local symbol and two if global.  */
2691       if ((tls_type == GOT_TLS_GD && eh->dynindx == -1)
2692           || (tls_type == GOT_TLS_IE && dyn))
2693         htab->srelgot->size += sizeof (Elf32_External_Rela);
2694       else if (tls_type == GOT_TLS_GD)
2695           htab->srelgot->size += 2 * sizeof (Elf32_External_Rela);
2696       else if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, eh))
2697           htab->srelgot->size += sizeof (Elf32_External_Rela);
2698     }
2699   else
2700     eh->got.offset = (bfd_vma) -1;
2701
2702   hh = (struct elf_metag_link_hash_entry *) eh;
2703   if (hh->dyn_relocs == NULL)
2704     return TRUE;
2705
2706   /* If this is a -Bsymbolic shared link, then we need to discard all
2707      space allocated for dynamic pc-relative relocs against symbols
2708      defined in a regular object.  For the normal shared case, discard
2709      space for relocs that have become local due to symbol visibility
2710      changes.  */
2711   if (info->shared)
2712     {
2713       if (SYMBOL_CALLS_LOCAL (info, eh))
2714         {
2715           struct elf_metag_dyn_reloc_entry **hdh_pp;
2716
2717           for (hdh_pp = &hh->dyn_relocs; (hdh_p = *hdh_pp) != NULL; )
2718             {
2719               hdh_p->count -= hdh_p->relative_count;
2720               hdh_p->relative_count = 0;
2721               if (hdh_p->count == 0)
2722                 *hdh_pp = hdh_p->hdh_next;
2723               else
2724                 hdh_pp = &hdh_p->hdh_next;
2725             }
2726         }
2727
2728       /* Also discard relocs on undefined weak syms with non-default
2729          visibility.  */
2730       if (hh->dyn_relocs != NULL
2731           && eh->root.type == bfd_link_hash_undefweak)
2732         {
2733           if (ELF_ST_VISIBILITY (eh->other) != STV_DEFAULT)
2734             hh->dyn_relocs = NULL;
2735
2736           /* Make sure undefined weak symbols are output as a dynamic
2737              symbol in PIEs.  */
2738           else if (eh->dynindx == -1
2739                    && !eh->forced_local)
2740             {
2741               if (! bfd_elf_link_record_dynamic_symbol (info, eh))
2742                 return FALSE;
2743             }
2744         }
2745     }
2746   else
2747     {
2748       /* For the non-shared case, discard space for relocs against
2749          symbols which turn out to need copy relocs or are not
2750          dynamic.  */
2751       if (!eh->non_got_ref
2752           && ((eh->def_dynamic
2753                && !eh->def_regular)
2754               || (htab->etab.dynamic_sections_created
2755                   && (eh->root.type == bfd_link_hash_undefweak
2756                       || eh->root.type == bfd_link_hash_undefined))))
2757         {
2758           /* Make sure this symbol is output as a dynamic symbol.
2759              Undefined weak syms won't yet be marked as dynamic.  */
2760           if (eh->dynindx == -1
2761               && !eh->forced_local)
2762             {
2763               if (! bfd_elf_link_record_dynamic_symbol (info, eh))
2764                 return FALSE;
2765             }
2766
2767           /* If that succeeded, we know we'll be keeping all the
2768              relocs.  */
2769           if (eh->dynindx != -1)
2770             goto keep;
2771         }
2772
2773       hh->dyn_relocs = NULL;
2774       return TRUE;
2775
2776     keep: ;
2777     }
2778
2779   /* Finally, allocate space.  */
2780   for (hdh_p = hh->dyn_relocs; hdh_p != NULL; hdh_p = hdh_p->hdh_next)
2781     {
2782       asection *sreloc = elf_section_data (hdh_p->sec)->sreloc;
2783       sreloc->size += hdh_p->count * sizeof (Elf32_External_Rela);
2784     }
2785
2786   return TRUE;
2787 }
2788
2789 /* Find any dynamic relocs that apply to read-only sections.  */
2790
2791 static bfd_boolean
2792 readonly_dynrelocs (struct elf_link_hash_entry *eh, void *inf)
2793 {
2794   struct elf_metag_link_hash_entry *hh;
2795   struct elf_metag_dyn_reloc_entry *hdh_p;
2796
2797   if (eh->root.type == bfd_link_hash_warning)
2798     eh = (struct elf_link_hash_entry *) eh->root.u.i.link;
2799
2800   hh = (struct elf_metag_link_hash_entry *) eh;
2801   for (hdh_p = hh->dyn_relocs; hdh_p != NULL; hdh_p = hdh_p->hdh_next)
2802     {
2803       asection *s = hdh_p->sec->output_section;
2804
2805       if (s != NULL && (s->flags & SEC_READONLY) != 0)
2806         {
2807           struct bfd_link_info *info = inf;
2808
2809           info->flags |= DF_TEXTREL;
2810
2811           /* Not an error, just cut short the traversal.  */
2812           return FALSE;
2813         }
2814     }
2815   return TRUE;
2816 }
2817
2818 /* Set the sizes of the dynamic sections.  */
2819
2820 static bfd_boolean
2821 elf_metag_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
2822                                  struct bfd_link_info *info)
2823 {
2824   struct elf_metag_link_hash_table *htab;
2825   bfd *dynobj;
2826   bfd *ibfd;
2827   asection *s;
2828   bfd_boolean relocs;
2829
2830   htab = metag_link_hash_table (info);
2831   dynobj = htab->etab.dynobj;
2832   if (dynobj == NULL)
2833     abort ();
2834
2835   if (htab->etab.dynamic_sections_created)
2836     {
2837       /* Set the contents of the .interp section to the interpreter.  */
2838       if (info->executable)
2839         {
2840           s = bfd_get_linker_section (dynobj, ".interp");
2841           if (s == NULL)
2842             abort ();
2843           s->size = sizeof ELF_DYNAMIC_INTERPRETER;
2844           s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
2845         }
2846     }
2847
2848   /* Set up .got offsets for local syms, and space for local dynamic
2849      relocs.  */
2850   for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
2851     {
2852       bfd_signed_vma *local_got;
2853       bfd_signed_vma *end_local_got;
2854       bfd_size_type locsymcount;
2855       Elf_Internal_Shdr *symtab_hdr;
2856       asection *srel;
2857       char *local_tls_type;
2858
2859       if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour)
2860         continue;
2861
2862       for (s = ibfd->sections; s != NULL; s = s->next)
2863         {
2864           struct elf_metag_dyn_reloc_entry *hdh_p;
2865
2866           for (hdh_p = ((struct elf_metag_dyn_reloc_entry *)
2867                         elf_section_data (s)->local_dynrel);
2868                hdh_p != NULL;
2869                hdh_p = hdh_p->hdh_next)
2870             {
2871               if (!bfd_is_abs_section (hdh_p->sec)
2872                   && bfd_is_abs_section (hdh_p->sec->output_section))
2873                 {
2874                   /* Input section has been discarded, either because
2875                      it is a copy of a linkonce section or due to
2876                      linker script /DISCARD/, so we'll be discarding
2877                      the relocs too.  */
2878                 }
2879               else if (hdh_p->count != 0)
2880                 {
2881                   srel = elf_section_data (hdh_p->sec)->sreloc;
2882                   srel->size += hdh_p->count * sizeof (Elf32_External_Rela);
2883                   if ((hdh_p->sec->output_section->flags & SEC_READONLY) != 0)
2884                     info->flags |= DF_TEXTREL;
2885                 }
2886             }
2887         }
2888
2889       local_got = elf_local_got_refcounts (ibfd);
2890       if (!local_got)
2891         continue;
2892
2893       symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
2894       locsymcount = symtab_hdr->sh_info;
2895       end_local_got = local_got + locsymcount;
2896       local_tls_type = metag_elf_local_got_tls_type (ibfd);
2897       s = htab->sgot;
2898       srel = htab->srelgot;
2899       for (; local_got < end_local_got; ++local_got)
2900         {
2901           if (*local_got > 0)
2902             {
2903               *local_got = s->size;
2904               s->size += GOT_ENTRY_SIZE;
2905               /* R_METAG_TLS_GD relocs need 2 consecutive GOT entries.  */
2906               if (*local_tls_type == GOT_TLS_GD)
2907                 s->size += 4;
2908               if (info->shared)
2909                 srel->size += sizeof (Elf32_External_Rela);
2910             }
2911           else
2912             *local_got = (bfd_vma) -1;
2913           ++local_tls_type;
2914         }
2915     }
2916
2917   if (htab->tls_ldm_got.refcount > 0)
2918     {
2919       /* Allocate 2 got entries and 1 dynamic reloc for R_METAG_TLS_LDM
2920          reloc.  */
2921       htab->tls_ldm_got.offset = htab->sgot->size;
2922       htab->sgot->size += 8;
2923       htab->srelgot->size += sizeof (Elf32_External_Rela);
2924     }
2925   else
2926     htab->tls_ldm_got.offset = -1;
2927
2928   /* Allocate global sym .plt and .got entries, and space for global
2929      sym dynamic relocs.  */
2930   elf_link_hash_traverse (&htab->etab, allocate_dynrelocs, info);
2931
2932   /* We now have determined the sizes of the various dynamic sections.
2933      Allocate memory for them.  */
2934   relocs = FALSE;
2935   for (s = dynobj->sections; s != NULL; s = s->next)
2936     {
2937       bfd_boolean reloc_section = FALSE;
2938
2939       if ((s->flags & SEC_LINKER_CREATED) == 0)
2940         continue;
2941
2942       if (s == htab->splt
2943           || s == htab->sgot
2944           || s == htab->sgotplt
2945           || s == htab->sdynbss)
2946         {
2947           /* Strip this section if we don't need it; see the
2948              comment below.  */
2949         }
2950       else if (CONST_STRNEQ (bfd_get_section_name (dynobj, s), ".rela"))
2951         {
2952           if (s->size != 0 && s != htab->srelplt)
2953             relocs = TRUE;
2954
2955           /* We use the reloc_count field as a counter if we need
2956              to copy relocs into the output file.  */
2957           s->reloc_count = 0;
2958           reloc_section = TRUE;
2959         }
2960       else
2961         {
2962           /* It's not one of our sections, so don't allocate space.  */
2963           continue;
2964         }
2965
2966       if (s->size == 0)
2967         {
2968           /* If we don't need this section, strip it from the
2969              output file.  This is mostly to handle .rela.bss and
2970              .rela.plt.  We must create both sections in
2971              create_dynamic_sections, because they must be created
2972              before the linker maps input sections to output
2973              sections.  The linker does that before
2974              adjust_dynamic_symbol is called, and it is that
2975              function which decides whether anything needs to go
2976              into these sections.  */
2977           s->flags |= SEC_EXCLUDE;
2978           continue;
2979         }
2980
2981       if ((s->flags & SEC_HAS_CONTENTS) == 0)
2982         continue;
2983
2984       /* Allocate memory for the section contents.  */
2985       s->contents = bfd_zalloc (dynobj, s->size);
2986       if (s->contents == NULL)
2987         return FALSE;
2988       else if (reloc_section)
2989         {
2990           unsigned char *contents = s->contents;
2991           Elf32_External_Rela reloc;
2992
2993           /* Fill the reloc section with a R_METAG_NONE type reloc.  */
2994           memset(&reloc, 0, sizeof(Elf32_External_Rela));
2995           reloc.r_info[0] = R_METAG_NONE;
2996           for (; contents < (s->contents + s->size);
2997                contents += sizeof(Elf32_External_Rela))
2998             {
2999               memcpy(contents, &reloc, sizeof(Elf32_External_Rela));
3000             }
3001         }
3002     }
3003
3004   if (htab->etab.dynamic_sections_created)
3005     {
3006       /* Add some entries to the .dynamic section.  We fill in the
3007          values later, in elf_metag_finish_dynamic_sections, but we
3008          must add the entries now so that we get the correct size for
3009          the .dynamic section.  The DT_DEBUG entry is filled in by the
3010          dynamic linker and used by the debugger.  */
3011 #define add_dynamic_entry(TAG, VAL) \
3012   _bfd_elf_add_dynamic_entry (info, TAG, VAL)
3013
3014       if (!add_dynamic_entry (DT_PLTGOT, 0))
3015         return FALSE;
3016
3017       if (info->executable)
3018         {
3019           if (!add_dynamic_entry (DT_DEBUG, 0))
3020             return FALSE;
3021         }
3022
3023       if (htab->srelplt->size != 0)
3024         {
3025           if (!add_dynamic_entry (DT_PLTRELSZ, 0)
3026               || !add_dynamic_entry (DT_PLTREL, DT_RELA)
3027               || !add_dynamic_entry (DT_JMPREL, 0))
3028             return FALSE;
3029         }
3030
3031       if (relocs)
3032         {
3033           if (!add_dynamic_entry (DT_RELA, 0)
3034               || !add_dynamic_entry (DT_RELASZ, 0)
3035               || !add_dynamic_entry (DT_RELAENT, sizeof (Elf32_External_Rela)))
3036             return FALSE;
3037
3038           /* If any dynamic relocs apply to a read-only section,
3039              then we need a DT_TEXTREL entry.  */
3040           if ((info->flags & DF_TEXTREL) == 0)
3041             elf_link_hash_traverse (&htab->etab, readonly_dynrelocs, info);
3042
3043           if ((info->flags & DF_TEXTREL) != 0)
3044             {
3045               if (!add_dynamic_entry (DT_TEXTREL, 0))
3046                 return FALSE;
3047             }
3048         }
3049     }
3050 #undef add_dynamic_entry
3051
3052   return TRUE;
3053 }
3054
3055 /* Finish up dynamic symbol handling.  We set the contents of various
3056    dynamic sections here.  */
3057
3058 static bfd_boolean
3059 elf_metag_finish_dynamic_symbol (bfd *output_bfd,
3060                                  struct bfd_link_info *info,
3061                                  struct elf_link_hash_entry *eh,
3062                                  Elf_Internal_Sym *sym)
3063 {
3064   struct elf_metag_link_hash_table *htab;
3065   Elf_Internal_Rela rel;
3066   bfd_byte *loc;
3067
3068   htab = metag_link_hash_table (info);
3069
3070   if (eh->plt.offset != (bfd_vma) -1)
3071     {
3072       asection *splt;
3073       asection *sgot;
3074       asection *srela;
3075
3076       bfd_vma plt_index;
3077       bfd_vma got_offset;
3078       bfd_vma got_entry;
3079
3080       if (eh->plt.offset & 1)
3081         abort ();
3082
3083       BFD_ASSERT (eh->dynindx != -1);
3084
3085       splt = htab->splt;
3086       sgot = htab->sgotplt;
3087       srela = htab->srelplt;
3088       BFD_ASSERT (splt != NULL && sgot != NULL && srela != NULL);
3089
3090       /* Get the index in the procedure linkage table which
3091          corresponds to this symbol.  This is the index of this symbol
3092          in all the symbols for which we are making plt entries.  The
3093          first entry in the procedure linkage table is reserved.  */
3094       plt_index = eh->plt.offset / PLT_ENTRY_SIZE - 1;
3095
3096       /* Get the offset into the .got.plt table of the entry that
3097          corresponds to this function.  */
3098       got_offset = plt_index * GOT_ENTRY_SIZE;
3099
3100       BFD_ASSERT (got_offset < (1 << 16));
3101
3102       got_entry = sgot->output_section->vma
3103         + sgot->output_offset
3104         + got_offset;
3105
3106       BFD_ASSERT (plt_index < (1 << 16));
3107
3108       /* Fill in the entry in the procedure linkage table.  */
3109       if (! info->shared)
3110         {
3111           bfd_put_32 (output_bfd,
3112                       (plt_entry[0]
3113                        | (((got_entry >> 16) & 0xffff) << 3)),
3114                       splt->contents + eh->plt.offset);
3115           bfd_put_32 (output_bfd,
3116                       (plt_entry[1]
3117                        | ((got_entry & 0xffff) << 3)),
3118                       splt->contents + eh->plt.offset + 4);
3119           bfd_put_32 (output_bfd, plt_entry[2],
3120                       splt->contents + eh->plt.offset + 8);
3121           bfd_put_32 (output_bfd,
3122                       (plt_entry[3] | (plt_index << 3)),
3123                       splt->contents + eh->plt.offset + 12);
3124           bfd_put_32 (output_bfd,
3125                       (plt_entry[4]
3126                        | ((((unsigned int) ((- (eh->plt.offset + 16)) >> 2)) & 0x7ffff) << 5)),
3127                       splt->contents + eh->plt.offset + 16);
3128         }
3129       else
3130         {
3131           bfd_vma addr = got_entry - (splt->output_section->vma +
3132                                       splt->output_offset + eh->plt.offset);
3133
3134           bfd_put_32 (output_bfd,
3135                       plt_pic_entry[0] | (((addr >> 16) & 0xffff) << 3),
3136                       splt->contents + eh->plt.offset);
3137           bfd_put_32 (output_bfd,
3138                       plt_pic_entry[1] | ((addr & 0xffff) << 3),
3139                       splt->contents + eh->plt.offset + 4);
3140           bfd_put_32 (output_bfd, plt_pic_entry[2],
3141                       splt->contents + eh->plt.offset + 8);
3142           bfd_put_32 (output_bfd,
3143                       (plt_pic_entry[3] | (plt_index << 3)),
3144                       splt->contents + eh->plt.offset + 12);
3145           bfd_put_32 (output_bfd,
3146                       (plt_pic_entry[4]
3147                        + ((((unsigned int) ((- (eh->plt.offset + 16)) >> 2)) & 0x7ffff) << 5)),
3148                       splt->contents + eh->plt.offset + 16);
3149         }
3150
3151       /* Fill in the entry in the global offset table.  */
3152       bfd_put_32 (output_bfd,
3153                   (splt->output_section->vma
3154                    + splt->output_offset
3155                    + eh->plt.offset
3156                    + 12), /* offset within PLT entry */
3157                   sgot->contents + got_offset);
3158
3159       /* Fill in the entry in the .rela.plt section.  */
3160       rel.r_offset = (sgot->output_section->vma
3161                       + sgot->output_offset
3162                       + got_offset);
3163       rel.r_info = ELF32_R_INFO (eh->dynindx, R_METAG_JMP_SLOT);
3164       rel.r_addend = 0;
3165       loc = htab->srelplt->contents;
3166       loc += plt_index * sizeof(Elf32_External_Rela);
3167       bfd_elf32_swap_reloca_out (output_bfd, &rel, loc);
3168
3169       if (!eh->def_regular)
3170         {
3171           /* Mark the symbol as undefined, rather than as defined in
3172              the .plt section.  Leave the value alone.  */
3173           sym->st_shndx = SHN_UNDEF;
3174         }
3175     }
3176
3177   if (eh->got.offset != (bfd_vma) -1
3178       && (metag_elf_hash_entry (eh)->tls_type & GOT_TLS_GD) == 0
3179       && (metag_elf_hash_entry (eh)->tls_type & GOT_TLS_IE) == 0)
3180     {
3181       /* This symbol has an entry in the global offset table.  Set it
3182          up.  */
3183
3184       rel.r_offset = ((eh->got.offset &~ (bfd_vma) 1)
3185                       + htab->sgot->output_offset
3186                       + htab->sgot->output_section->vma);
3187
3188       /* If this is a -Bsymbolic link and the symbol is defined
3189          locally or was forced to be local because of a version file,
3190          we just want to emit a RELATIVE reloc.  The entry in the
3191          global offset table will already have been initialized in the
3192          relocate_section function.  */
3193       if (info->shared
3194           && (info->symbolic || eh->dynindx == -1)
3195           && eh->def_regular)
3196         {
3197           rel.r_info = ELF32_R_INFO (0, R_METAG_RELATIVE);
3198           rel.r_addend = (eh->root.u.def.value
3199                           + eh->root.u.def.section->output_offset
3200                           + eh->root.u.def.section->output_section->vma);
3201         }
3202       else
3203         {
3204           if ((eh->got.offset & 1) != 0)
3205             abort ();
3206           bfd_put_32 (output_bfd, 0, htab->sgot->contents + eh->got.offset);
3207           rel.r_info = ELF32_R_INFO (eh->dynindx, R_METAG_GLOB_DAT);
3208           rel.r_addend = 0;
3209         }
3210
3211       loc = htab->srelgot->contents;
3212       loc += htab->srelgot->reloc_count++ * sizeof (Elf32_External_Rela);
3213       bfd_elf32_swap_reloca_out (output_bfd, &rel, loc);
3214     }
3215
3216   if (eh->needs_copy)
3217     {
3218       asection *s;
3219
3220       /* This symbol needs a copy reloc.  Set it up.  */
3221
3222       if (! (eh->dynindx != -1
3223              && (eh->root.type == bfd_link_hash_defined
3224                  || eh->root.type == bfd_link_hash_defweak)))
3225         abort ();
3226
3227       s = htab->srelbss;
3228
3229       rel.r_offset = (eh->root.u.def.value
3230                       + eh->root.u.def.section->output_offset
3231                       + eh->root.u.def.section->output_section->vma);
3232       rel.r_addend = 0;
3233       rel.r_info = ELF32_R_INFO (eh->dynindx, R_METAG_COPY);
3234       loc = s->contents + s->reloc_count++ * sizeof (Elf32_External_Rela);
3235       bfd_elf32_swap_reloca_out (output_bfd, &rel, loc);
3236     }
3237
3238   /* Mark _DYNAMIC and _GLOBAL_OFFSET_TABLE_ as absolute.  */
3239   if (eh->root.root.string[0] == '_'
3240       && (strcmp (eh->root.root.string, "_DYNAMIC") == 0
3241           || eh == htab->etab.hgot))
3242     {
3243       sym->st_shndx = SHN_ABS;
3244     }
3245
3246   return TRUE;
3247 }
3248
3249 /* Set the Meta ELF ABI version.  */
3250
3251 static void
3252 elf_metag_post_process_headers (bfd * abfd, struct bfd_link_info * link_info ATTRIBUTE_UNUSED)
3253 {
3254   Elf_Internal_Ehdr * i_ehdrp;  /* ELF file header, internal form.  */
3255
3256   i_ehdrp = elf_elfheader (abfd);
3257   i_ehdrp->e_ident[EI_ABIVERSION] = METAG_ELF_ABI_VERSION;
3258 }
3259
3260 /* Used to decide how to sort relocs in an optimal manner for the
3261    dynamic linker, before writing them out.  */
3262
3263 static enum elf_reloc_type_class
3264 elf_metag_reloc_type_class (const struct bfd_link_info *info ATTRIBUTE_UNUSED,
3265                             const asection *rel_sec ATTRIBUTE_UNUSED,
3266                             const Elf_Internal_Rela *rela)
3267 {
3268   switch ((int) ELF32_R_TYPE (rela->r_info))
3269     {
3270     case R_METAG_RELATIVE:
3271       return reloc_class_relative;
3272     case R_METAG_JMP_SLOT:
3273       return reloc_class_plt;
3274     case R_METAG_COPY:
3275       return reloc_class_copy;
3276     default:
3277       return reloc_class_normal;
3278     }
3279 }
3280
3281 /* Finish up the dynamic sections.  */
3282
3283 static bfd_boolean
3284 elf_metag_finish_dynamic_sections (bfd *output_bfd,
3285                                    struct bfd_link_info *info)
3286 {
3287   bfd *dynobj;
3288   struct elf_metag_link_hash_table *htab;
3289   asection *sdyn;
3290
3291   htab = metag_link_hash_table (info);
3292   dynobj = htab->etab.dynobj;
3293
3294   sdyn = bfd_get_linker_section (dynobj, ".dynamic");
3295
3296   if (htab->etab.dynamic_sections_created)
3297     {
3298       asection *splt;
3299       Elf32_External_Dyn *dyncon, *dynconend;
3300
3301       if (sdyn == NULL)
3302         abort ();
3303
3304       dyncon = (Elf32_External_Dyn *) sdyn->contents;
3305       dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
3306       for (; dyncon < dynconend; dyncon++)
3307         {
3308           Elf_Internal_Dyn dyn;
3309           asection *s;
3310
3311           bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
3312
3313           switch (dyn.d_tag)
3314             {
3315             default:
3316               continue;
3317
3318             case DT_PLTGOT:
3319               s = htab->sgot->output_section;
3320               BFD_ASSERT (s != NULL);
3321               dyn.d_un.d_ptr = s->vma + htab->sgot->output_offset;
3322               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
3323               break;
3324
3325             case DT_JMPREL:
3326               s = htab->srelplt->output_section;
3327               BFD_ASSERT (s != NULL);
3328               dyn.d_un.d_ptr = s->vma;
3329               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
3330               break;
3331
3332             case DT_PLTRELSZ:
3333               s = htab->srelplt;
3334               dyn.d_un.d_val = s->size;
3335               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
3336               break;
3337
3338             case DT_RELASZ:
3339               /* Don't count procedure linkage table relocs in the
3340                  overall reloc count.  */
3341               if (htab->srelplt) {
3342                 s = htab->srelplt;
3343                 dyn.d_un.d_val -= s->size;
3344               }
3345               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
3346               break;
3347
3348             case DT_RELA:
3349               /* We may not be using the standard ELF linker script.
3350                  If .rela.plt is the first .rela section, we adjust
3351                  DT_RELA to not include it.  */
3352               if (htab->srelplt) {
3353                 s = htab->srelplt;
3354                 if (dyn.d_un.d_ptr == s->output_section->vma + s->output_offset)
3355                   dyn.d_un.d_ptr += s->size;
3356               }
3357               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
3358               break;
3359             }
3360
3361         }
3362
3363       /* Fill in the first entry in the procedure linkage table.  */
3364       splt = htab->splt;
3365       if (splt && splt->size > 0)
3366         {
3367           unsigned long addr;
3368           /* addr = .got + 4 */
3369           addr = htab->sgot->output_section->vma +
3370             htab->sgot->output_offset + 4;
3371           if (info->shared)
3372             {
3373               addr -= splt->output_section->vma + splt->output_offset;
3374               bfd_put_32 (output_bfd,
3375                           plt0_pic_entry[0] | (((addr >> 16) & 0xffff) << 3),
3376                           splt->contents);
3377               bfd_put_32 (output_bfd,
3378                           plt0_pic_entry[1] | ((addr & 0xffff) << 3),
3379                           splt->contents + 4);
3380               bfd_put_32 (output_bfd, plt0_pic_entry[2], splt->contents + 8);
3381               bfd_put_32 (output_bfd, plt0_pic_entry[3], splt->contents + 12);
3382               bfd_put_32 (output_bfd, plt0_pic_entry[4], splt->contents + 16);
3383             }
3384           else
3385             {
3386               bfd_put_32 (output_bfd,
3387                           plt0_entry[0] | (((addr >> 16) & 0xffff) << 3),
3388                           splt->contents);
3389               bfd_put_32 (output_bfd,
3390                           plt0_entry[1] | ((addr & 0xffff) << 3),
3391                           splt->contents + 4);
3392               bfd_put_32 (output_bfd, plt0_entry[2], splt->contents + 8);
3393               bfd_put_32 (output_bfd, plt0_entry[3], splt->contents + 12);
3394               bfd_put_32 (output_bfd, plt0_entry[4], splt->contents + 16);
3395             }
3396
3397           elf_section_data (splt->output_section)->this_hdr.sh_entsize =
3398             PLT_ENTRY_SIZE;
3399         }
3400     }
3401
3402   if (htab->sgot != NULL && htab->sgot->size != 0)
3403     {
3404       /* Fill in the first entry in the global offset table.
3405          We use it to point to our dynamic section, if we have one.  */
3406       bfd_put_32 (output_bfd,
3407                   sdyn ? sdyn->output_section->vma + sdyn->output_offset : 0,
3408                   htab->sgot->contents);
3409
3410       /* The second entry is reserved for use by the dynamic linker.  */
3411       memset (htab->sgot->contents + GOT_ENTRY_SIZE, 0, GOT_ENTRY_SIZE);
3412
3413       /* Set .got entry size.  */
3414       elf_section_data (htab->sgot->output_section)
3415         ->this_hdr.sh_entsize = GOT_ENTRY_SIZE;
3416     }
3417
3418   return TRUE;
3419 }
3420
3421 /* Return the section that should be marked against GC for a given
3422    relocation.  */
3423
3424 static asection *
3425 elf_metag_gc_mark_hook (asection *sec,
3426                         struct bfd_link_info *info,
3427                         Elf_Internal_Rela *rela,
3428                         struct elf_link_hash_entry *hh,
3429                         Elf_Internal_Sym *sym)
3430 {
3431   if (hh != NULL)
3432     switch ((unsigned int) ELF32_R_TYPE (rela->r_info))
3433       {
3434       case R_METAG_GNU_VTINHERIT:
3435       case R_METAG_GNU_VTENTRY:
3436         return NULL;
3437       }
3438
3439   return _bfd_elf_gc_mark_hook (sec, info, rela, hh, sym);
3440 }
3441
3442 /* Update the got and plt entry reference counts for the section being
3443    removed.  */
3444
3445 static bfd_boolean
3446 elf_metag_gc_sweep_hook (bfd *abfd ATTRIBUTE_UNUSED,
3447                          struct bfd_link_info *info ATTRIBUTE_UNUSED,
3448                          asection *sec ATTRIBUTE_UNUSED,
3449                          const Elf_Internal_Rela *relocs ATTRIBUTE_UNUSED)
3450 {
3451   Elf_Internal_Shdr *symtab_hdr;
3452   struct elf_link_hash_entry **eh_syms;
3453   bfd_signed_vma *local_got_refcounts;
3454   bfd_signed_vma *local_plt_refcounts;
3455   const Elf_Internal_Rela *rel, *relend;
3456
3457   if (info->relocatable)
3458     return TRUE;
3459
3460   elf_section_data (sec)->local_dynrel = NULL;
3461
3462   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
3463   eh_syms = elf_sym_hashes (abfd);
3464   local_got_refcounts = elf_local_got_refcounts (abfd);
3465   local_plt_refcounts = local_got_refcounts;
3466   if (local_plt_refcounts != NULL)
3467     local_plt_refcounts += symtab_hdr->sh_info;
3468
3469   relend = relocs + sec->reloc_count;
3470   for (rel = relocs; rel < relend; rel++)
3471     {
3472       unsigned long r_symndx;
3473       unsigned int r_type;
3474       struct elf_link_hash_entry *eh = NULL;
3475
3476       r_symndx = ELF32_R_SYM (rel->r_info);
3477       if (r_symndx >= symtab_hdr->sh_info)
3478         {
3479           struct elf_metag_link_hash_entry *hh;
3480           struct elf_metag_dyn_reloc_entry **hdh_pp;
3481           struct elf_metag_dyn_reloc_entry *hdh_p;
3482
3483           eh = eh_syms[r_symndx - symtab_hdr->sh_info];
3484           while (eh->root.type == bfd_link_hash_indirect
3485                  || eh->root.type == bfd_link_hash_warning)
3486             eh = (struct elf_link_hash_entry *) eh->root.u.i.link;
3487           hh = (struct elf_metag_link_hash_entry *) eh;
3488
3489           for (hdh_pp = &hh->dyn_relocs; (hdh_p = *hdh_pp) != NULL;
3490                hdh_pp = &hdh_p->hdh_next)
3491             if (hdh_p->sec == sec)
3492               {
3493                 /* Everything must go for SEC.  */
3494                 *hdh_pp = hdh_p->hdh_next;
3495                 break;
3496               }
3497         }
3498
3499       r_type = ELF32_R_TYPE (rel->r_info);
3500       switch (r_type)
3501         {
3502         case R_METAG_TLS_LDM:
3503           if (metag_link_hash_table (info)->tls_ldm_got.refcount > 0)
3504             metag_link_hash_table (info)->tls_ldm_got.refcount -= 1;
3505           break;
3506         case R_METAG_TLS_IE:
3507         case R_METAG_TLS_GD:
3508         case R_METAG_GETSET_GOT:
3509           if (eh != NULL)
3510             {
3511               if (eh->got.refcount > 0)
3512                 eh->got.refcount -= 1;
3513             }
3514           else if (local_got_refcounts != NULL)
3515             {
3516               if (local_got_refcounts[r_symndx] > 0)
3517                 local_got_refcounts[r_symndx] -= 1;
3518             }
3519           break;
3520
3521         case R_METAG_RELBRANCH_PLT:
3522           if (eh != NULL)
3523             {
3524               if (eh->plt.refcount > 0)
3525                 eh->plt.refcount -= 1;
3526             }
3527           break;
3528
3529         case R_METAG_ADDR32:
3530         case R_METAG_HIADDR16:
3531         case R_METAG_LOADDR16:
3532         case R_METAG_GETSETOFF:
3533         case R_METAG_RELBRANCH:
3534           if (eh != NULL)
3535             {
3536               struct elf_metag_link_hash_entry *hh;
3537               struct elf_metag_dyn_reloc_entry **hdh_pp;
3538               struct elf_metag_dyn_reloc_entry *hdh_p;
3539
3540               if (!info->shared && eh->plt.refcount > 0)
3541                 eh->plt.refcount -= 1;
3542
3543               hh = (struct elf_metag_link_hash_entry *) eh;
3544
3545               for (hdh_pp = &hh->dyn_relocs; (hdh_p = *hdh_pp) != NULL;
3546                    hdh_pp = &hdh_p->hdh_next)
3547                 if (hdh_p->sec == sec)
3548                   {
3549                     if (ELF32_R_TYPE (rel->r_info) == R_METAG_RELBRANCH)
3550                       hdh_p->relative_count -= 1;
3551                     hdh_p->count -= 1;
3552                     if (hdh_p->count == 0)
3553                       *hdh_pp = hdh_p->hdh_next;
3554                     break;
3555                   }
3556             }
3557           break;
3558
3559         default:
3560           break;
3561         }
3562     }
3563
3564   return TRUE;
3565 }
3566
3567 /* Determine the type of stub needed, if any, for a call.  */
3568
3569 static enum elf_metag_stub_type
3570 metag_type_of_stub (asection *input_sec,
3571                     const Elf_Internal_Rela *rel,
3572                     struct elf_metag_link_hash_entry *hh,
3573                     bfd_vma destination,
3574                     struct bfd_link_info *info ATTRIBUTE_UNUSED)
3575 {
3576   bfd_vma location;
3577   bfd_vma branch_offset;
3578   bfd_vma max_branch_offset;
3579
3580   if (hh != NULL &&
3581       !(hh->eh.root.type == bfd_link_hash_defined
3582         || hh->eh.root.type == bfd_link_hash_defweak))
3583     return metag_stub_none;
3584
3585   /* Determine where the call point is.  */
3586   location = (input_sec->output_offset
3587               + input_sec->output_section->vma
3588               + rel->r_offset);
3589
3590   branch_offset = destination - location;
3591
3592   /* Determine if a long branch stub is needed.  Meta branch offsets
3593      are signed 19 bits 4 byte aligned.  */
3594   max_branch_offset = (1 << (BRANCH_BITS-1)) << 2;
3595
3596   if (branch_offset + max_branch_offset >= 2*max_branch_offset)
3597     {
3598       if (info->shared)
3599         return metag_stub_long_branch_shared;
3600       else
3601         return metag_stub_long_branch;
3602     }
3603
3604   return metag_stub_none;
3605 }
3606
3607 #define MOVT_A0_3       0x82180005
3608 #define JUMP_A0_3       0xac180003
3609
3610 #define MOVT_A1LBP      0x83080005
3611 #define ADD_A1LBP       0x83080000
3612
3613 #define ADDT_A0_3_CPC   0x82980001
3614 #define ADD_A0_3_A0_3   0x82180000
3615 #define MOV_PC_A0_3     0xa3180ca0
3616
3617 static bfd_boolean
3618 metag_build_one_stub (struct bfd_hash_entry *gen_entry, void *in_arg ATTRIBUTE_UNUSED)
3619 {
3620   struct elf_metag_stub_hash_entry *hsh;
3621   asection *stub_sec;
3622   bfd *stub_bfd;
3623   bfd_byte *loc;
3624   bfd_vma sym_value;
3625   int size;
3626
3627   /* Massage our args to the form they really have.  */
3628   hsh = (struct elf_metag_stub_hash_entry *) gen_entry;
3629
3630   stub_sec = hsh->stub_sec;
3631
3632   /* Make a note of the offset within the stubs for this entry.  */
3633   hsh->stub_offset = stub_sec->size;
3634   loc = stub_sec->contents + hsh->stub_offset;
3635
3636   stub_bfd = stub_sec->owner;
3637
3638   switch (hsh->stub_type)
3639     {
3640     case metag_stub_long_branch_shared:
3641       /* A PIC long branch stub is an ADDT and an ADD instruction used to
3642          calculate the jump target using A0.3 as a temporary. Then a MOV
3643          to PC carries out the jump.  */
3644       sym_value = (hsh->target_value
3645                    + hsh->target_section->output_offset
3646                    + hsh->target_section->output_section->vma
3647                    + hsh->addend);
3648
3649       sym_value -= (hsh->stub_offset
3650                     + stub_sec->output_offset
3651                     + stub_sec->output_section->vma);
3652
3653       bfd_put_32 (stub_bfd, ADDT_A0_3_CPC | (((sym_value >> 16) & 0xffff) << 3),
3654                   loc);
3655
3656       bfd_put_32 (stub_bfd, ADD_A0_3_A0_3 | ((sym_value & 0xffff) << 3),
3657                   loc + 4);
3658
3659       bfd_put_32 (stub_bfd, MOV_PC_A0_3, loc + 8);
3660
3661       size = 12;
3662       break;
3663     case metag_stub_long_branch:
3664       /* A standard long branch stub is a MOVT instruction followed by a
3665          JUMP instruction using the A0.3 register as a temporary. This is
3666          the same method used by the LDLK linker (patch.c).  */
3667       sym_value = (hsh->target_value
3668                    + hsh->target_section->output_offset
3669                    + hsh->target_section->output_section->vma
3670                    + hsh->addend);
3671
3672       bfd_put_32 (stub_bfd, MOVT_A0_3 | (((sym_value >> 16) & 0xffff) << 3),
3673                   loc);
3674
3675       bfd_put_32 (stub_bfd, JUMP_A0_3 | ((sym_value & 0xffff) << 3), loc + 4);
3676
3677       size = 8;
3678       break;
3679     default:
3680       BFD_FAIL ();
3681       return FALSE;
3682     }
3683
3684   stub_sec->size += size;
3685   return TRUE;
3686 }
3687
3688 /* As above, but don't actually build the stub.  Just bump offset so
3689    we know stub section sizes.  */
3690
3691 static bfd_boolean
3692 metag_size_one_stub (struct bfd_hash_entry *gen_entry, void *in_arg ATTRIBUTE_UNUSED)
3693 {
3694   struct elf_metag_stub_hash_entry *hsh;
3695   int size = 0;
3696
3697   /* Massage our args to the form they really have.  */
3698   hsh = (struct elf_metag_stub_hash_entry *) gen_entry;
3699
3700   if (hsh->stub_type == metag_stub_long_branch)
3701     size = 8;
3702   else if (hsh->stub_type == metag_stub_long_branch_shared)
3703     size = 12;
3704
3705   hsh->stub_sec->size += size;
3706   return TRUE;
3707 }
3708
3709 /* Set up various things so that we can make a list of input sections
3710    for each output section included in the link.  Returns -1 on error,
3711    0 when no stubs will be needed, and 1 on success.  */
3712
3713 int
3714 elf_metag_setup_section_lists (bfd *output_bfd, struct bfd_link_info *info)
3715 {
3716   bfd *input_bfd;
3717   unsigned int bfd_count;
3718   int top_id, top_index;
3719   asection *section;
3720   asection **input_list, **list;
3721   bfd_size_type amt;
3722   struct elf_metag_link_hash_table *htab = metag_link_hash_table (info);
3723
3724   /* Count the number of input BFDs and find the top input section id.  */
3725   for (input_bfd = info->input_bfds, bfd_count = 0, top_id = 0;
3726        input_bfd != NULL;
3727        input_bfd = input_bfd->link_next)
3728     {
3729       bfd_count += 1;
3730       for (section = input_bfd->sections;
3731            section != NULL;
3732            section = section->next)
3733         {
3734           if (top_id < section->id)
3735             top_id = section->id;
3736         }
3737     }
3738
3739   htab->bfd_count = bfd_count;
3740
3741   amt = sizeof (struct map_stub) * (top_id + 1);
3742   htab->stub_group = bfd_zmalloc (amt);
3743   if (htab->stub_group == NULL)
3744     return -1;
3745
3746   /* We can't use output_bfd->section_count here to find the top output
3747      section index as some sections may have been removed, and
3748      strip_excluded_output_sections doesn't renumber the indices.  */
3749   for (section = output_bfd->sections, top_index = 0;
3750        section != NULL;
3751        section = section->next)
3752     {
3753       if (top_index < section->index)
3754         top_index = section->index;
3755     }
3756
3757   htab->top_index = top_index;
3758   amt = sizeof (asection *) * (top_index + 1);
3759   input_list = bfd_malloc (amt);
3760   htab->input_list = input_list;
3761   if (input_list == NULL)
3762     return -1;
3763
3764   /* For sections we aren't interested in, mark their entries with a
3765      value we can check later.  */
3766   list = input_list + top_index;
3767   do
3768     *list = bfd_abs_section_ptr;
3769   while (list-- != input_list);
3770
3771   for (section = output_bfd->sections;
3772        section != NULL;
3773        section = section->next)
3774     {
3775       /* FIXME: This is a bit of hack. Currently our .ctors and .dtors
3776        * have PC relative relocs in them but no code flag set.  */
3777       if (((section->flags & SEC_CODE) != 0) ||
3778           strcmp(".ctors", section->name) ||
3779           strcmp(".dtors", section->name))
3780         input_list[section->index] = NULL;
3781     }
3782
3783   return 1;
3784 }
3785
3786 /* The linker repeatedly calls this function for each input section,
3787    in the order that input sections are linked into output sections.
3788    Build lists of input sections to determine groupings between which
3789    we may insert linker stubs.  */
3790
3791 void
3792 elf_metag_next_input_section (struct bfd_link_info *info, asection *isec)
3793 {
3794   struct elf_metag_link_hash_table *htab = metag_link_hash_table (info);
3795
3796   if (isec->output_section->index <= htab->top_index)
3797     {
3798       asection **list = htab->input_list + isec->output_section->index;
3799       if (*list != bfd_abs_section_ptr)
3800         {
3801           /* Steal the link_sec pointer for our list.  */
3802 #define PREV_SEC(sec) (htab->stub_group[(sec)->id].link_sec)
3803           /* This happens to make the list in reverse order,
3804              which is what we want.  */
3805           PREV_SEC (isec) = *list;
3806           *list = isec;
3807         }
3808     }
3809 }
3810
3811 /* See whether we can group stub sections together.  Grouping stub
3812    sections may result in fewer stubs.  More importantly, we need to
3813    put all .init* and .fini* stubs at the beginning of the .init or
3814    .fini output sections respectively, because glibc splits the
3815    _init and _fini functions into multiple parts.  Putting a stub in
3816    the middle of a function is not a good idea.  */
3817
3818 static void
3819 group_sections (struct elf_metag_link_hash_table *htab,
3820                 bfd_size_type stub_group_size,
3821                 bfd_boolean stubs_always_before_branch)
3822 {
3823   asection **list = htab->input_list + htab->top_index;
3824   do
3825     {
3826       asection *tail = *list;
3827       if (tail == bfd_abs_section_ptr)
3828         continue;
3829       while (tail != NULL)
3830         {
3831           asection *curr;
3832           asection *prev;
3833           bfd_size_type total;
3834           bfd_boolean big_sec;
3835
3836           curr = tail;
3837           total = tail->size;
3838           big_sec = total >= stub_group_size;
3839
3840           while ((prev = PREV_SEC (curr)) != NULL
3841                  && ((total += curr->output_offset - prev->output_offset)
3842                      < stub_group_size))
3843             curr = prev;
3844
3845           /* OK, the size from the start of CURR to the end is less
3846              than stub_group_size bytes and thus can be handled by one stub
3847              section.  (or the tail section is itself larger than
3848              stub_group_size bytes, in which case we may be toast.)
3849              We should really be keeping track of the total size of
3850              stubs added here, as stubs contribute to the final output
3851              section size.  */
3852           do
3853             {
3854               prev = PREV_SEC (tail);
3855               /* Set up this stub group.  */
3856               htab->stub_group[tail->id].link_sec = curr;
3857             }
3858           while (tail != curr && (tail = prev) != NULL);
3859
3860           /* But wait, there's more!  Input sections up to stub_group_size
3861              bytes before the stub section can be handled by it too.
3862              Don't do this if we have a really large section after the
3863              stubs, as adding more stubs increases the chance that
3864              branches may not reach into the stub section.  */
3865           if (!stubs_always_before_branch && !big_sec)
3866             {
3867               total = 0;
3868               while (prev != NULL
3869                      && ((total += tail->output_offset - prev->output_offset)
3870                          < stub_group_size))
3871                 {
3872                   tail = prev;
3873                   prev = PREV_SEC (tail);
3874                   htab->stub_group[tail->id].link_sec = curr;
3875                 }
3876             }
3877           tail = prev;
3878         }
3879     }
3880   while (list-- != htab->input_list);
3881   free (htab->input_list);
3882 #undef PREV_SEC
3883 }
3884
3885 /* Read in all local syms for all input bfds.
3886    Returns -1 on error, 0 otherwise.  */
3887
3888 static int
3889 get_local_syms (bfd *output_bfd ATTRIBUTE_UNUSED, bfd *input_bfd,
3890                 struct bfd_link_info *info)
3891 {
3892   unsigned int bfd_indx;
3893   Elf_Internal_Sym *local_syms, **all_local_syms;
3894   int stub_changed = 0;
3895   struct elf_metag_link_hash_table *htab = metag_link_hash_table (info);
3896
3897   /* We want to read in symbol extension records only once.  To do this
3898      we need to read in the local symbols in parallel and save them for
3899      later use; so hold pointers to the local symbols in an array.  */
3900   bfd_size_type amt = sizeof (Elf_Internal_Sym *) * htab->bfd_count;
3901   all_local_syms = bfd_zmalloc (amt);
3902   htab->all_local_syms = all_local_syms;
3903   if (all_local_syms == NULL)
3904     return -1;
3905
3906   /* Walk over all the input BFDs, swapping in local symbols.  */
3907   for (bfd_indx = 0;
3908        input_bfd != NULL;
3909        input_bfd = input_bfd->link_next, bfd_indx++)
3910     {
3911       Elf_Internal_Shdr *symtab_hdr;
3912
3913       /* We'll need the symbol table in a second.  */
3914       symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
3915       if (symtab_hdr->sh_info == 0)
3916         continue;
3917
3918       /* We need an array of the local symbols attached to the input bfd.  */
3919       local_syms = (Elf_Internal_Sym *) symtab_hdr->contents;
3920       if (local_syms == NULL)
3921         {
3922           local_syms = bfd_elf_get_elf_syms (input_bfd, symtab_hdr,
3923                                              symtab_hdr->sh_info, 0,
3924                                              NULL, NULL, NULL);
3925           /* Cache them for elf_link_input_bfd.  */
3926           symtab_hdr->contents = (unsigned char *) local_syms;
3927         }
3928       if (local_syms == NULL)
3929         return -1;
3930
3931       all_local_syms[bfd_indx] = local_syms;
3932     }
3933
3934   return stub_changed;
3935 }
3936
3937 /* Determine and set the size of the stub section for a final link.
3938
3939 The basic idea here is to examine all the relocations looking for
3940 PC-relative calls to a target that is unreachable with a "CALLR"
3941 instruction.  */
3942
3943 /* See elf32-hppa.c and elf64-ppc.c.  */
3944
3945 bfd_boolean
3946 elf_metag_size_stubs(bfd *output_bfd, bfd *stub_bfd,
3947                      struct bfd_link_info *info,
3948                      bfd_signed_vma group_size,
3949                      asection * (*add_stub_section) (const char *, asection *),
3950                      void (*layout_sections_again) (void))
3951 {
3952   bfd_size_type stub_group_size;
3953   bfd_boolean stubs_always_before_branch;
3954   bfd_boolean stub_changed;
3955   struct elf_metag_link_hash_table *htab = metag_link_hash_table (info);
3956
3957   /* Stash our params away.  */
3958   htab->stub_bfd = stub_bfd;
3959   htab->add_stub_section = add_stub_section;
3960   htab->layout_sections_again = layout_sections_again;
3961   stubs_always_before_branch = group_size < 0;
3962   if (group_size < 0)
3963     stub_group_size = -group_size;
3964   else
3965     stub_group_size = group_size;
3966   if (stub_group_size == 1)
3967     {
3968       /* Default values.  */
3969       /* FIXME: not sure what these values should be */
3970       if (stubs_always_before_branch)
3971         {
3972           stub_group_size = (1 << BRANCH_BITS);
3973         }
3974       else
3975         {
3976           stub_group_size = (1 << BRANCH_BITS);
3977         }
3978     }
3979
3980   group_sections (htab, stub_group_size, stubs_always_before_branch);
3981
3982   switch (get_local_syms (output_bfd, info->input_bfds, info))
3983     {
3984     default:
3985       if (htab->all_local_syms)
3986         goto error_ret_free_local;
3987       return FALSE;
3988
3989     case 0:
3990       stub_changed = FALSE;
3991       break;
3992
3993     case 1:
3994       stub_changed = TRUE;
3995       break;
3996     }
3997
3998   while (1)
3999     {
4000       bfd *input_bfd;
4001       unsigned int bfd_indx;
4002       asection *stub_sec;
4003
4004       for (input_bfd = info->input_bfds, bfd_indx = 0;
4005            input_bfd != NULL;
4006            input_bfd = input_bfd->link_next, bfd_indx++)
4007         {
4008           Elf_Internal_Shdr *symtab_hdr;
4009           asection *section;
4010           Elf_Internal_Sym *local_syms;
4011
4012           /* We'll need the symbol table in a second.  */
4013           symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
4014           if (symtab_hdr->sh_info == 0)
4015             continue;
4016
4017           local_syms = htab->all_local_syms[bfd_indx];
4018
4019           /* Walk over each section attached to the input bfd.  */
4020           for (section = input_bfd->sections;
4021                section != NULL;
4022                section = section->next)
4023             {
4024               Elf_Internal_Rela *internal_relocs, *irelaend, *irela;
4025
4026               /* If there aren't any relocs, then there's nothing more
4027                  to do.  */
4028               if ((section->flags & SEC_RELOC) == 0
4029                   || section->reloc_count == 0)
4030                 continue;
4031
4032               /* If this section is a link-once section that will be
4033                  discarded, then don't create any stubs.  */
4034               if (section->output_section == NULL
4035                   || section->output_section->owner != output_bfd)
4036                 continue;
4037
4038               /* Get the relocs.  */
4039               internal_relocs
4040                 = _bfd_elf_link_read_relocs (input_bfd, section, NULL, NULL,
4041                                              info->keep_memory);
4042               if (internal_relocs == NULL)
4043                 goto error_ret_free_local;
4044
4045               /* Now examine each relocation.  */
4046               irela = internal_relocs;
4047               irelaend = irela + section->reloc_count;
4048               for (; irela < irelaend; irela++)
4049                 {
4050                   unsigned int r_type, r_indx;
4051                   enum elf_metag_stub_type stub_type;
4052                   struct elf_metag_stub_hash_entry *hsh;
4053                   asection *sym_sec;
4054                   bfd_vma sym_value;
4055                   bfd_vma destination;
4056                   struct elf_metag_link_hash_entry *hh;
4057                   char *stub_name;
4058                   const asection *id_sec;
4059
4060                   r_type = ELF32_R_TYPE (irela->r_info);
4061                   r_indx = ELF32_R_SYM (irela->r_info);
4062
4063                   if (r_type >= (unsigned int) R_METAG_MAX)
4064                     {
4065                       bfd_set_error (bfd_error_bad_value);
4066                     error_ret_free_internal:
4067                       if (elf_section_data (section)->relocs == NULL)
4068                         free (internal_relocs);
4069                       goto error_ret_free_local;
4070                     }
4071
4072                   /* Only look for stubs on CALLR and B instructions.  */
4073                   if (!(r_type == (unsigned int) R_METAG_RELBRANCH ||
4074                         r_type == (unsigned int) R_METAG_RELBRANCH_PLT))
4075                     continue;
4076
4077                   /* Now determine the call target, its name, value,
4078                      section.  */
4079                   sym_sec = NULL;
4080                   sym_value = 0;
4081                   destination = 0;
4082                   hh = NULL;
4083                   if (r_indx < symtab_hdr->sh_info)
4084                     {
4085                       /* It's a local symbol.  */
4086                       Elf_Internal_Sym *sym;
4087                       Elf_Internal_Shdr *hdr;
4088                       unsigned int shndx;
4089
4090                       sym = local_syms + r_indx;
4091                       if (ELF_ST_TYPE (sym->st_info) != STT_SECTION)
4092                         sym_value = sym->st_value;
4093                       shndx = sym->st_shndx;
4094                       if (shndx < elf_numsections (input_bfd))
4095                         {
4096                           hdr = elf_elfsections (input_bfd)[shndx];
4097                           sym_sec = hdr->bfd_section;
4098                           destination = (sym_value + irela->r_addend
4099                                          + sym_sec->output_offset
4100                                          + sym_sec->output_section->vma);
4101                         }
4102                     }
4103                   else
4104                     {
4105                       /* It's an external symbol.  */
4106                       int e_indx;
4107
4108                       e_indx = r_indx - symtab_hdr->sh_info;
4109                       hh = ((struct elf_metag_link_hash_entry *)
4110                             elf_sym_hashes (input_bfd)[e_indx]);
4111
4112                       while (hh->eh.root.type == bfd_link_hash_indirect
4113                              || hh->eh.root.type == bfd_link_hash_warning)
4114                         hh = ((struct elf_metag_link_hash_entry *)
4115                               hh->eh.root.u.i.link);
4116
4117                       if (hh->eh.root.type == bfd_link_hash_defined
4118                           || hh->eh.root.type == bfd_link_hash_defweak)
4119                         {
4120                           sym_sec = hh->eh.root.u.def.section;
4121                           sym_value = hh->eh.root.u.def.value;
4122                           if (hh->eh.plt.offset != (bfd_vma) -1
4123                               && hh->eh.dynindx != -1
4124                               && r_type == (unsigned int) R_METAG_RELBRANCH_PLT)
4125                             {
4126                               sym_sec = htab->splt;
4127                               sym_value = hh->eh.plt.offset;
4128                             }
4129
4130                           if (sym_sec->output_section != NULL)
4131                             destination = (sym_value + irela->r_addend
4132                                            + sym_sec->output_offset
4133                                            + sym_sec->output_section->vma);
4134                           else
4135                             continue;
4136                         }
4137                       else if (hh->eh.root.type == bfd_link_hash_undefweak)
4138                         {
4139                           if (! info->shared)
4140                             continue;
4141                         }
4142                       else if (hh->eh.root.type == bfd_link_hash_undefined)
4143                         {
4144                           if (! (info->unresolved_syms_in_objects == RM_IGNORE
4145                                  && (ELF_ST_VISIBILITY (hh->eh.other)
4146                                      == STV_DEFAULT)))
4147                             continue;
4148                         }
4149                       else
4150                         {
4151                           bfd_set_error (bfd_error_bad_value);
4152                           goto error_ret_free_internal;
4153                         }
4154                     }
4155
4156                   /* Determine what (if any) linker stub is needed.  */
4157                   stub_type = metag_type_of_stub (section, irela, hh,
4158                                                   destination, info);
4159                   if (stub_type == metag_stub_none)
4160                     continue;
4161
4162                   /* Support for grouping stub sections.  */
4163                   id_sec = htab->stub_group[section->id].link_sec;
4164
4165                   /* Get the name of this stub.  */
4166                   stub_name = metag_stub_name (id_sec, sym_sec, hh, irela);
4167                   if (!stub_name)
4168                     goto error_ret_free_internal;
4169
4170                   hsh = metag_stub_hash_lookup (&htab->bstab,
4171                                                 stub_name,
4172                                                 FALSE, FALSE);
4173                   if (hsh != NULL)
4174                     {
4175                       /* The proper stub has already been created.  */
4176                       free (stub_name);
4177                       continue;
4178                     }
4179
4180                   hsh = metag_add_stub (stub_name, section, htab);
4181                   if (hsh == NULL)
4182                     {
4183                       free (stub_name);
4184                       goto error_ret_free_internal;
4185                     }
4186                   hsh->target_value = sym_value;
4187                   hsh->target_section = sym_sec;
4188                   hsh->stub_type = stub_type;
4189                   hsh->hh = hh;
4190                   hsh->addend = irela->r_addend;
4191                   stub_changed = TRUE;
4192                 }
4193
4194               /* We're done with the internal relocs, free them.  */
4195               if (elf_section_data (section)->relocs == NULL)
4196                 free (internal_relocs);
4197             }
4198         }
4199
4200       if (!stub_changed)
4201         break;
4202
4203       /* OK, we've added some stubs.  Find out the new size of the
4204          stub sections.  */
4205       for (stub_sec = htab->stub_bfd->sections;
4206            stub_sec != NULL;
4207            stub_sec = stub_sec->next)
4208         stub_sec->size = 0;
4209
4210       bfd_hash_traverse (&htab->bstab, metag_size_one_stub, htab);
4211
4212       /* Ask the linker to do its stuff.  */
4213       (*htab->layout_sections_again) ();
4214       stub_changed = FALSE;
4215     }
4216
4217   free (htab->all_local_syms);
4218   return TRUE;
4219
4220  error_ret_free_local:
4221   free (htab->all_local_syms);
4222   return FALSE;
4223 }
4224
4225 /* Build all the stubs associated with the current output file.  The
4226    stubs are kept in a hash table attached to the main linker hash
4227    table.  This function is called via metagelf_finish in the linker.  */
4228
4229 bfd_boolean
4230 elf_metag_build_stubs (struct bfd_link_info *info)
4231 {
4232   asection *stub_sec;
4233   struct bfd_hash_table *table;
4234   struct elf_metag_link_hash_table *htab;
4235
4236   htab = metag_link_hash_table (info);
4237
4238   for (stub_sec = htab->stub_bfd->sections;
4239        stub_sec != NULL;
4240        stub_sec = stub_sec->next)
4241     {
4242       bfd_size_type size;
4243
4244       /* Allocate memory to hold the linker stubs.  */
4245       size = stub_sec->size;
4246       stub_sec->contents = bfd_zalloc (htab->stub_bfd, size);
4247       if (stub_sec->contents == NULL && size != 0)
4248         return FALSE;
4249       stub_sec->size = 0;
4250     }
4251
4252   /* Build the stubs as directed by the stub hash table.  */
4253   table = &htab->bstab;
4254   bfd_hash_traverse (table, metag_build_one_stub, info);
4255
4256   return TRUE;
4257 }
4258
4259 /* Return TRUE if SYM represents a local label symbol.  */
4260
4261 static bfd_boolean
4262 elf_metag_is_local_label_name (bfd *abfd ATTRIBUTE_UNUSED, const char *name)
4263 {
4264   if (name[0] == '$' && name[1] == 'L')
4265     return 1;
4266   return _bfd_elf_is_local_label_name (abfd, name);
4267 }
4268
4269 /* Return address for Ith PLT stub in section PLT, for relocation REL
4270    or (bfd_vma) -1 if it should not be included.  */
4271
4272 static bfd_vma
4273 elf_metag_plt_sym_val (bfd_vma i, const asection *plt,
4274                        const arelent *rel ATTRIBUTE_UNUSED)
4275 {
4276   return plt->vma + (i + 1) * PLT_ENTRY_SIZE;
4277 }
4278
4279 #define ELF_ARCH                bfd_arch_metag
4280 #define ELF_TARGET_ID           METAG_ELF_DATA
4281 #define ELF_MACHINE_CODE        EM_METAG
4282 #define ELF_MINPAGESIZE 0x1000
4283 #define ELF_MAXPAGESIZE 0x4000
4284 #define ELF_COMMONPAGESIZE      0x1000
4285
4286 #define TARGET_LITTLE_SYM       bfd_elf32_metag_vec
4287 #define TARGET_LITTLE_NAME      "elf32-metag"
4288
4289 #define elf_symbol_leading_char '_'
4290
4291 #define elf_info_to_howto_rel                   NULL
4292 #define elf_info_to_howto                       metag_info_to_howto_rela
4293
4294 #define bfd_elf32_bfd_is_local_label_name       elf_metag_is_local_label_name
4295 #define bfd_elf32_bfd_link_hash_table_create \
4296         elf_metag_link_hash_table_create
4297 #define bfd_elf32_bfd_link_hash_table_free      elf_metag_link_hash_table_free
4298 #define elf_backend_relocate_section            elf_metag_relocate_section
4299 #define elf_backend_gc_mark_hook                elf_metag_gc_mark_hook
4300 #define elf_backend_gc_sweep_hook               elf_metag_gc_sweep_hook
4301 #define elf_backend_check_relocs                elf_metag_check_relocs
4302 #define elf_backend_create_dynamic_sections     elf_metag_create_dynamic_sections
4303 #define elf_backend_adjust_dynamic_symbol       elf_metag_adjust_dynamic_symbol
4304 #define elf_backend_finish_dynamic_symbol       elf_metag_finish_dynamic_symbol
4305 #define elf_backend_finish_dynamic_sections     elf_metag_finish_dynamic_sections
4306 #define elf_backend_size_dynamic_sections       elf_metag_size_dynamic_sections
4307 #define elf_backend_omit_section_dynsym \
4308   ((bfd_boolean (*) (bfd *, struct bfd_link_info *, asection *)) bfd_true)
4309 #define elf_backend_post_process_headers        elf_metag_post_process_headers
4310 #define elf_backend_reloc_type_class            elf_metag_reloc_type_class
4311 #define elf_backend_copy_indirect_symbol        elf_metag_copy_indirect_symbol
4312 #define elf_backend_plt_sym_val         elf_metag_plt_sym_val
4313
4314 #define elf_backend_can_gc_sections             1
4315 #define elf_backend_can_refcount                1
4316 #define elf_backend_got_header_size             12
4317 #define elf_backend_rela_normal         1
4318 #define elf_backend_want_got_sym                0
4319 #define elf_backend_want_plt_sym                0
4320 #define elf_backend_plt_readonly                1
4321
4322 #define bfd_elf32_bfd_reloc_type_lookup metag_reloc_type_lookup
4323 #define bfd_elf32_bfd_reloc_name_lookup metag_reloc_name_lookup
4324
4325 #include "elf32-target.h"