bfd/elf32-microblaze.c

   1 /* Xilinx MicroBlaze-specific support for 32-bit ELF
   2
   3    Copyright (C) 2009-2016 Free Software Foundation, Inc.
   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
  19    Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
  20    Boston, MA 02110-1301, USA.  */
  21
  22
  23 int dbg = 0;
  24
  25 #include "sysdep.h"
  26 #include "bfd.h"
  27 #include "bfdlink.h"
  28 #include "libbfd.h"
  29 #include "elf-bfd.h"
  30 #include "elf/microblaze.h"
  31 #include <assert.h>
  32
  33 #define USE_RELA        /* Only USE_REL is actually significant, but this is
  34                            here are a reminder...  */
  35 #define INST_WORD_SIZE 4
  36
  37 static int ro_small_data_pointer = 0;
  38 static int rw_small_data_pointer = 0;
  39
  40 static reloc_howto_type * microblaze_elf_howto_table [(int) R_MICROBLAZE_max];
  41
  42 static reloc_howto_type microblaze_elf_howto_raw[] =
  43 {
  44    /* This reloc does nothing.  */
  45    HOWTO (R_MICROBLAZE_NONE,    /* Type.  */
  46           0,                    /* Rightshift.  */
  47           3,                    /* Size (0 = byte, 1 = short, 2 = long).  */
  48           0,                    /* Bitsize.  */
  49           FALSE,                /* PC_relative.  */
  50           0,                    /* Bitpos.  */
  51           complain_overflow_dont,  /* Complain on overflow.  */
  52           NULL,                  /* Special Function.  */
  53           "R_MICROBLAZE_NONE",  /* Name.  */
  54           FALSE,                /* Partial Inplace.  */
  55           0,                    /* Source Mask.  */
  56           0,                    /* Dest Mask.  */
  57           FALSE),               /* PC relative offset?  */
  58
  59    /* A standard 32 bit relocation.  */
  60    HOWTO (R_MICROBLAZE_32,      /* Type.  */
  61           0,                    /* Rightshift.  */
  62           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
  63           32,                   /* Bitsize.  */
  64           FALSE,                /* PC_relative.  */
  65           0,                    /* Bitpos.  */
  66           complain_overflow_bitfield, /* Complain on overflow.  */
  67           bfd_elf_generic_reloc,/* Special Function.  */
  68           "R_MICROBLAZE_32",    /* Name.  */
  69           FALSE,                /* Partial Inplace.  */
  70           0,                    /* Source Mask.  */
  71           0xffffffff,           /* Dest Mask.  */
  72           FALSE),               /* PC relative offset?  */
  73
  74    /* A standard PCREL 32 bit relocation.  */
  75    HOWTO (R_MICROBLAZE_32_PCREL,/* Type.  */
  76           0,                    /* Rightshift.  */
  77           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
  78           32,                   /* Bitsize.  */
  79           TRUE,                 /* PC_relative.  */
  80           0,                    /* Bitpos.  */
  81           complain_overflow_bitfield, /* Complain on overflow.  */
  82           bfd_elf_generic_reloc,/* Special Function.  */
  83           "R_MICROBLAZE_32_PCREL",      /* Name.  */
  84           TRUE,                 /* Partial Inplace.  */
  85           0,                    /* Source Mask.  */
  86           0xffffffff,           /* Dest Mask.  */
  87           TRUE),                /* PC relative offset?  */
  88
  89    /* A 64 bit PCREL relocation.  Table-entry not really used.  */
  90    HOWTO (R_MICROBLAZE_64_PCREL,/* Type.  */
  91           0,                    /* Rightshift.  */
  92           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
  93           16,                   /* Bitsize.  */
  94           TRUE,                 /* PC_relative.  */
  95           0,                    /* Bitpos.  */
  96           complain_overflow_dont, /* Complain on overflow.  */
  97           bfd_elf_generic_reloc,/* Special Function.  */
  98           "R_MICROBLAZE_64_PCREL",      /* Name.  */
  99           FALSE,                /* Partial Inplace.  */
 100           0,                    /* Source Mask.  */
 101           0x0000ffff,           /* Dest Mask.  */
 102           TRUE),                /* PC relative offset?  */
 103
 104    /* The low half of a PCREL 32 bit relocation.  */
 105    HOWTO (R_MICROBLAZE_32_PCREL_LO,     /* Type.  */
 106           0,                    /* Rightshift.  */
 107           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
 108           16,                   /* Bitsize.  */
 109           TRUE,                 /* PC_relative.  */
 110           0,                    /* Bitpos.  */
 111           complain_overflow_signed, /* Complain on overflow.  */
 112           bfd_elf_generic_reloc,        /* Special Function.  */
 113           "R_MICROBLAZE_32_PCREL_LO",   /* Name.  */
 114           FALSE,                /* Partial Inplace.  */
 115           0,                    /* Source Mask.  */
 116           0x0000ffff,           /* Dest Mask.  */
 117           TRUE),                /* PC relative offset?  */
 118
 119    /* A 64 bit relocation.  Table entry not really used.  */
 120    HOWTO (R_MICROBLAZE_64,      /* Type.  */
 121           0,                    /* Rightshift.  */
 122           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
 123           16,                   /* Bitsize.  */
 124           FALSE,                /* PC_relative.  */
 125           0,                    /* Bitpos.  */
 126           complain_overflow_dont, /* Complain on overflow.  */
 127           bfd_elf_generic_reloc,/* Special Function.  */
 128           "R_MICROBLAZE_64",    /* Name.  */
 129           FALSE,                /* Partial Inplace.  */
 130           0,                    /* Source Mask.  */
 131           0x0000ffff,           /* Dest Mask.  */
 132           FALSE),               /* PC relative offset?  */
 133
 134    /* The low half of a 32 bit relocation.  */
 135    HOWTO (R_MICROBLAZE_32_LO,   /* Type.  */
 136           0,                    /* Rightshift.  */
 137           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
 138           16,                   /* Bitsize.  */
 139           FALSE,                /* PC_relative.  */
 140           0,                    /* Bitpos.  */
 141           complain_overflow_signed, /* Complain on overflow.  */
 142           bfd_elf_generic_reloc,/* Special Function.  */
 143           "R_MICROBLAZE_32_LO", /* Name.  */
 144           FALSE,                /* Partial Inplace.  */
 145           0,                    /* Source Mask.  */
 146           0x0000ffff,           /* Dest Mask.  */
 147           FALSE),               /* PC relative offset?  */
 148
 149    /* Read-only small data section relocation.  */
 150    HOWTO (R_MICROBLAZE_SRO32,   /* Type.  */
 151           0,                    /* Rightshift.  */
 152           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
 153           16,                   /* Bitsize.  */
 154           FALSE,                /* PC_relative.  */
 155           0,                    /* Bitpos.  */
 156           complain_overflow_bitfield, /* Complain on overflow.  */
 157           bfd_elf_generic_reloc,/* Special Function.  */
 158           "R_MICROBLAZE_SRO32", /* Name.  */
 159           FALSE,                /* Partial Inplace.  */
 160           0,                    /* Source Mask.  */
 161           0x0000ffff,           /* Dest Mask.  */
 162           FALSE),               /* PC relative offset?  */
 163
 164    /* Read-write small data area relocation.  */
 165    HOWTO (R_MICROBLAZE_SRW32,   /* Type.  */
 166           0,                    /* Rightshift.  */
 167           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
 168           16,                   /* Bitsize.  */
 169           FALSE,                /* PC_relative.  */
 170           0,                    /* Bitpos.  */
 171           complain_overflow_bitfield, /* Complain on overflow.  */
 172           bfd_elf_generic_reloc,/* Special Function.  */
 173           "R_MICROBLAZE_SRW32", /* Name.  */
 174           FALSE,                /* Partial Inplace.  */
 175           0,                    /* Source Mask.  */
 176           0x0000ffff,           /* Dest Mask.  */
 177           FALSE),               /* PC relative offset?  */
 178
 179    /* This reloc does nothing.  Used for relaxation.  */
 180    HOWTO (R_MICROBLAZE_64_NONE, /* Type.  */
 181           0,                    /* Rightshift.  */
 182           3,                    /* Size (0 = byte, 1 = short, 2 = long).  */
 183           0,                    /* Bitsize.  */
 184           TRUE,                 /* PC_relative.  */
 185           0,                    /* Bitpos.  */
 186           complain_overflow_dont, /* Complain on overflow.  */
 187           NULL,                  /* Special Function.  */
 188           "R_MICROBLAZE_64_NONE",/* Name.  */
 189           FALSE,                /* Partial Inplace.  */
 190           0,                    /* Source Mask.  */
 191           0,                    /* Dest Mask.  */
 192           FALSE),               /* PC relative offset?  */
 193
 194    /* Symbol Op Symbol relocation.  */
 195    HOWTO (R_MICROBLAZE_32_SYM_OP_SYM,           /* Type.  */
 196           0,                    /* Rightshift.  */
 197           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
 198           32,                   /* Bitsize.  */
 199           FALSE,                /* PC_relative.  */
 200           0,                    /* Bitpos.  */
 201           complain_overflow_bitfield, /* Complain on overflow.  */
 202           bfd_elf_generic_reloc,/* Special Function.  */
 203           "R_MICROBLAZE_32_SYM_OP_SYM",         /* Name.  */
 204           FALSE,                /* Partial Inplace.  */
 205           0,                    /* Source Mask.  */
 206           0xffffffff,           /* Dest Mask.  */
 207           FALSE),               /* PC relative offset?  */
 208
 209    /* GNU extension to record C++ vtable hierarchy.  */
 210    HOWTO (R_MICROBLAZE_GNU_VTINHERIT, /* Type.  */
 211           0,                     /* Rightshift.  */
 212           2,                     /* Size (0 = byte, 1 = short, 2 = long).  */
 213           0,                     /* Bitsize.  */
 214           FALSE,                 /* PC_relative.  */
 215           0,                     /* Bitpos.  */
 216           complain_overflow_dont,/* Complain on overflow.  */
 217           NULL,                  /* Special Function.  */
 218           "R_MICROBLAZE_GNU_VTINHERIT", /* Name.  */
 219           FALSE,                 /* Partial Inplace.  */
 220           0,                     /* Source Mask.  */
 221           0,                     /* Dest Mask.  */
 222           FALSE),                /* PC relative offset?  */
 223
 224    /* GNU extension to record C++ vtable member usage.  */
 225    HOWTO (R_MICROBLAZE_GNU_VTENTRY,   /* Type.  */
 226           0,                     /* Rightshift.  */
 227           2,                     /* Size (0 = byte, 1 = short, 2 = long).  */
 228           0,                     /* Bitsize.  */
 229           FALSE,                 /* PC_relative.  */
 230           0,                     /* Bitpos.  */
 231           complain_overflow_dont,/* Complain on overflow.  */
 232           _bfd_elf_rel_vtable_reloc_fn,  /* Special Function.  */
 233           "R_MICROBLAZE_GNU_VTENTRY", /* Name.  */
 234           FALSE,                 /* Partial Inplace.  */
 235           0,                     /* Source Mask.  */
 236           0,                     /* Dest Mask.  */
 237           FALSE),                /* PC relative offset?  */
 238
 239    /* A 64 bit GOTPC relocation.  Table-entry not really used.  */
 240    HOWTO (R_MICROBLAZE_GOTPC_64,        /* Type.  */
 241           0,                    /* Rightshift.  */
 242           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
 243           16,                   /* Bitsize.  */
 244           TRUE,                 /* PC_relative.  */
 245           0,                    /* Bitpos.  */
 246           complain_overflow_dont, /* Complain on overflow.  */
 247           bfd_elf_generic_reloc,        /* Special Function.  */
 248           "R_MICROBLAZE_GOTPC_64",      /* Name.  */
 249           FALSE,                /* Partial Inplace.  */
 250           0,                    /* Source Mask.  */
 251           0x0000ffff,           /* Dest Mask.  */
 252           TRUE),                /* PC relative offset?  */
 253
 254    /* A 64 bit GOT relocation.  Table-entry not really used.  */
 255    HOWTO (R_MICROBLAZE_GOT_64,  /* Type.  */
 256           0,                    /* Rightshift.  */
 257           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
 258           16,                   /* Bitsize.  */
 259           FALSE,                /* PC_relative.  */
 260           0,                    /* Bitpos.  */
 261           complain_overflow_dont, /* Complain on overflow.  */
 262           bfd_elf_generic_reloc,/* Special Function.  */
 263           "R_MICROBLAZE_GOT_64",/* Name.  */
 264           FALSE,                /* Partial Inplace.  */
 265           0,                    /* Source Mask.  */
 266           0x0000ffff,           /* Dest Mask.  */
 267           FALSE),               /* PC relative offset?  */
 268
 269    /* A 64 bit PLT relocation.  Table-entry not really used.  */
 270    HOWTO (R_MICROBLAZE_PLT_64,  /* Type.  */
 271           0,                    /* Rightshift.  */
 272           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
 273           16,                   /* Bitsize.  */
 274           TRUE,                 /* PC_relative.  */
 275           0,                    /* Bitpos.  */
 276           complain_overflow_dont, /* Complain on overflow.  */
 277           bfd_elf_generic_reloc,/* Special Function.  */
 278           "R_MICROBLAZE_PLT_64",/* Name.  */
 279           FALSE,                /* Partial Inplace.  */
 280           0,                    /* Source Mask.  */
 281           0x0000ffff,           /* Dest Mask.  */
 282           TRUE),                /* PC relative offset?  */
 283
 284    /*  Table-entry not really used.  */
 285    HOWTO (R_MICROBLAZE_REL,     /* Type.  */
 286           0,                    /* Rightshift.  */
 287           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
 288           16,                   /* Bitsize.  */
 289           TRUE,                 /* PC_relative.  */
 290           0,                    /* Bitpos.  */
 291           complain_overflow_dont, /* Complain on overflow.  */
 292           bfd_elf_generic_reloc,/* Special Function.  */
 293           "R_MICROBLAZE_REL",   /* Name.  */
 294           FALSE,                /* Partial Inplace.  */
 295           0,                    /* Source Mask.  */
 296           0x0000ffff,           /* Dest Mask.  */
 297           TRUE),                /* PC relative offset?  */
 298
 299    /*  Table-entry not really used.  */
 300    HOWTO (R_MICROBLAZE_JUMP_SLOT,/* Type.  */
 301           0,                    /* Rightshift.  */
 302           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
 303           16,                   /* Bitsize.  */
 304           TRUE,                 /* PC_relative.  */
 305           0,                    /* Bitpos.  */
 306           complain_overflow_dont, /* Complain on overflow.  */
 307           bfd_elf_generic_reloc,/* Special Function.  */
 308           "R_MICROBLAZE_JUMP_SLOT",     /* Name.  */
 309           FALSE,                /* Partial Inplace.  */
 310           0,                    /* Source Mask.  */
 311           0x0000ffff,           /* Dest Mask.  */
 312           TRUE),                /* PC relative offset?  */
 313
 314    /*  Table-entry not really used.  */
 315    HOWTO (R_MICROBLAZE_GLOB_DAT,/* Type.  */
 316           0,                    /* Rightshift.  */
 317           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
 318           16,                   /* Bitsize.  */
 319           TRUE,                 /* PC_relative.  */
 320           0,                    /* Bitpos.  */
 321           complain_overflow_dont, /* Complain on overflow.  */
 322           bfd_elf_generic_reloc,/* Special Function.  */
 323           "R_MICROBLAZE_GLOB_DAT",      /* Name.  */
 324           FALSE,                /* Partial Inplace.  */
 325           0,                    /* Source Mask.  */
 326           0x0000ffff,           /* Dest Mask.  */
 327           TRUE),                /* PC relative offset?  */
 328
 329    /* A 64 bit GOT relative relocation.  Table-entry not really used.  */
 330    HOWTO (R_MICROBLAZE_GOTOFF_64,       /* Type.  */
 331           0,                    /* Rightshift.  */
 332           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
 333           16,                   /* Bitsize.  */
 334           FALSE,                /* PC_relative.  */
 335           0,                    /* Bitpos.  */
 336           complain_overflow_dont, /* Complain on overflow.  */
 337           bfd_elf_generic_reloc,/* Special Function.  */
 338           "R_MICROBLAZE_GOTOFF_64",     /* Name.  */
 339           FALSE,                /* Partial Inplace.  */
 340           0,                    /* Source Mask.  */
 341           0x0000ffff,           /* Dest Mask.  */
 342           FALSE),               /* PC relative offset?  */
 343
 344    /* A 32 bit GOT relative relocation.  Table-entry not really used.  */
 345    HOWTO (R_MICROBLAZE_GOTOFF_32,       /* Type.  */
 346           0,                    /* Rightshift.  */
 347           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
 348           16,                   /* Bitsize.  */
 349           FALSE,                /* PC_relative.  */
 350           0,                    /* Bitpos.  */
 351           complain_overflow_dont, /* Complain on overflow.  */
 352           bfd_elf_generic_reloc,        /* Special Function.  */
 353           "R_MICROBLAZE_GOTOFF_32",     /* Name.  */
 354           FALSE,                /* Partial Inplace.  */
 355           0,                    /* Source Mask.  */
 356           0x0000ffff,           /* Dest Mask.  */
 357           FALSE),               /* PC relative offset?  */
 358
 359    /* COPY relocation.  Table-entry not really used.  */
 360    HOWTO (R_MICROBLAZE_COPY,    /* Type.  */
 361           0,                    /* Rightshift.  */
 362           2,                    /* Size (0 = byte, 1 = short, 2 = long).  */
 363           16,                   /* Bitsize.  */
 364           FALSE,                /* PC_relative.  */
 365           0,                    /* Bitpos.  */
 366           complain_overflow_dont, /* Complain on overflow.  */
 367           bfd_elf_generic_reloc,/* Special Function.  */
 368           "R_MICROBLAZE_COPY",  /* Name.  */
 369           FALSE,                /* Partial Inplace.  */
 370           0,                    /* Source Mask.  */
 371           0x0000ffff,           /* Dest Mask.  */
 372           FALSE),               /* PC relative offset?  */
 373
 374    /* Marker relocs for TLS.  */
 375    HOWTO (R_MICROBLAZE_TLS,
 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_dont, /* complain_on_overflow */
 382          bfd_elf_generic_reloc, /* special_function */
 383          "R_MICROBLAZE_TLS",            /* name */
 384          FALSE,                 /* partial_inplace */
 385          0,                     /* src_mask */
 386          0x0000ffff,                    /* dst_mask */
 387          FALSE),                /* pcrel_offset */
 388
 389    HOWTO (R_MICROBLAZE_TLSGD,
 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_dont, /* complain_on_overflow */
 396          bfd_elf_generic_reloc, /* special_function */
 397          "R_MICROBLAZE_TLSGD",          /* name */
 398          FALSE,                 /* partial_inplace */
 399          0,                     /* src_mask */
 400          0x0000ffff,                    /* dst_mask */
 401          FALSE),                /* pcrel_offset */
 402
 403    HOWTO (R_MICROBLAZE_TLSLD,
 404          0,                     /* rightshift */
 405          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 406          32,                    /* bitsize */
 407          FALSE,                 /* pc_relative */
 408          0,                     /* bitpos */
 409          complain_overflow_dont, /* complain_on_overflow */
 410          bfd_elf_generic_reloc, /* special_function */
 411          "R_MICROBLAZE_TLSLD",          /* name */
 412          FALSE,                 /* partial_inplace */
 413          0,                     /* src_mask */
 414          0x0000ffff,            /* dst_mask */
 415          FALSE),                /* pcrel_offset */
 416
 417    /* Computes the load module index of the load module that contains the
 418       definition of its TLS sym.  */
 419    HOWTO (R_MICROBLAZE_TLSDTPMOD32,
 420          0,                     /* rightshift */
 421          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 422          32,                    /* bitsize */
 423          FALSE,                 /* pc_relative */
 424          0,                     /* bitpos */
 425          complain_overflow_dont, /* complain_on_overflow */
 426          bfd_elf_generic_reloc, /* special_function */
 427          "R_MICROBLAZE_TLSDTPMOD32",    /* name */
 428          FALSE,                 /* partial_inplace */
 429          0,                     /* src_mask */
 430          0x0000ffff,            /* dst_mask */
 431          FALSE),                /* pcrel_offset */
 432
 433    /* Computes a dtv-relative displacement, the difference between the value
 434       of sym+add and the base address of the thread-local storage block that
 435       contains the definition of sym, minus 0x8000.  Used for initializing GOT */
 436    HOWTO (R_MICROBLAZE_TLSDTPREL32,
 437          0,                     /* rightshift */
 438          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 439          32,                    /* bitsize */
 440          FALSE,                 /* pc_relative */
 441          0,                     /* bitpos */
 442          complain_overflow_dont, /* complain_on_overflow */
 443          bfd_elf_generic_reloc, /* special_function */
 444          "R_MICROBLAZE_TLSDTPREL32",    /* name */
 445          FALSE,                 /* partial_inplace */
 446          0,                     /* src_mask */
 447          0x0000ffff,            /* dst_mask */
 448          FALSE),                /* pcrel_offset */
 449
 450    /* Computes a dtv-relative displacement, the difference between the value
 451       of sym+add and the base address of the thread-local storage block that
 452       contains the definition of sym, minus 0x8000.  */
 453    HOWTO (R_MICROBLAZE_TLSDTPREL64,
 454          0,                     /* rightshift */
 455          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 456          32,                    /* bitsize */
 457          FALSE,                 /* pc_relative */
 458          0,                     /* bitpos */
 459          complain_overflow_dont, /* complain_on_overflow */
 460          bfd_elf_generic_reloc, /* special_function */
 461          "R_MICROBLAZE_TLSDTPREL64",    /* name */
 462          FALSE,                 /* partial_inplace */
 463          0,                     /* src_mask */
 464          0x0000ffff,            /* dst_mask */
 465          FALSE),                /* pcrel_offset */
 466
 467    /* Computes a tp-relative displacement, the difference between the value of
 468       sym+add and the value of the thread pointer (r13).  */
 469    HOWTO (R_MICROBLAZE_TLSGOTTPREL32,
 470          0,                     /* rightshift */
 471          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 472          32,                    /* bitsize */
 473          FALSE,                 /* pc_relative */
 474          0,                     /* bitpos */
 475          complain_overflow_dont, /* complain_on_overflow */
 476          bfd_elf_generic_reloc, /* special_function */
 477          "R_MICROBLAZE_TLSGOTTPREL32",  /* name */
 478          FALSE,                 /* partial_inplace */
 479          0,                     /* src_mask */
 480          0x0000ffff,            /* dst_mask */
 481          FALSE),                /* pcrel_offset */
 482
 483    /* Computes a tp-relative displacement, the difference between the value of
 484       sym+add and the value of the thread pointer (r13).  */
 485    HOWTO (R_MICROBLAZE_TLSTPREL32,
 486          0,                     /* rightshift */
 487          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 488          32,                    /* bitsize */
 489          FALSE,                 /* pc_relative */
 490          0,                     /* bitpos */
 491          complain_overflow_dont, /* complain_on_overflow */
 492          bfd_elf_generic_reloc, /* special_function */
 493          "R_MICROBLAZE_TLSTPREL32",     /* name */
 494          FALSE,                 /* partial_inplace */
 495          0,                     /* src_mask */
 496          0x0000ffff,            /* dst_mask */
 497          FALSE),                /* pcrel_offset */
 498
 499 };
 500
 501 #ifndef NUM_ELEM
 502 #define NUM_ELEM(a) (sizeof (a) / sizeof (a)[0])
 503 #endif
 504 \f
 505 /* Initialize the microblaze_elf_howto_table, so that linear accesses can be done.  */
 506
 507 static void
 508 microblaze_elf_howto_init (void)
 509 {
 510   unsigned int i;
 511
 512   for (i = NUM_ELEM (microblaze_elf_howto_raw); i--;)
 513     {
 514       unsigned int type;
 515
 516       type = microblaze_elf_howto_raw[i].type;
 517
 518       BFD_ASSERT (type < NUM_ELEM (microblaze_elf_howto_table));
 519
 520       microblaze_elf_howto_table [type] = & microblaze_elf_howto_raw [i];
 521     }
 522 }
 523 \f
 524 static reloc_howto_type *
 525 microblaze_elf_reloc_type_lookup (bfd * abfd ATTRIBUTE_UNUSED,
 526                                   bfd_reloc_code_real_type code)
 527 {
 528   enum elf_microblaze_reloc_type microblaze_reloc = R_MICROBLAZE_NONE;
 529
 530   switch (code)
 531     {
 532     case BFD_RELOC_NONE:
 533       microblaze_reloc = R_MICROBLAZE_NONE;
 534       break;
 535     case BFD_RELOC_MICROBLAZE_64_NONE:
 536       microblaze_reloc = R_MICROBLAZE_64_NONE;
 537       break;
 538     case BFD_RELOC_32:
 539       microblaze_reloc = R_MICROBLAZE_32;
 540       break;
 541       /* RVA is treated the same as 32 */
 542     case BFD_RELOC_RVA:
 543       microblaze_reloc = R_MICROBLAZE_32;
 544       break;
 545     case BFD_RELOC_32_PCREL:
 546       microblaze_reloc = R_MICROBLAZE_32_PCREL;
 547       break;
 548     case BFD_RELOC_64_PCREL:
 549       microblaze_reloc = R_MICROBLAZE_64_PCREL;
 550       break;
 551     case BFD_RELOC_MICROBLAZE_32_LO_PCREL:
 552       microblaze_reloc = R_MICROBLAZE_32_PCREL_LO;
 553       break;
 554     case BFD_RELOC_64:
 555       microblaze_reloc = R_MICROBLAZE_64;
 556       break;
 557     case BFD_RELOC_MICROBLAZE_32_LO:
 558       microblaze_reloc = R_MICROBLAZE_32_LO;
 559       break;
 560     case BFD_RELOC_MICROBLAZE_32_ROSDA:
 561       microblaze_reloc = R_MICROBLAZE_SRO32;
 562       break;
 563     case BFD_RELOC_MICROBLAZE_32_RWSDA:
 564       microblaze_reloc = R_MICROBLAZE_SRW32;
 565       break;
 566     case BFD_RELOC_MICROBLAZE_32_SYM_OP_SYM:
 567       microblaze_reloc = R_MICROBLAZE_32_SYM_OP_SYM;
 568       break;
 569     case BFD_RELOC_VTABLE_INHERIT:
 570       microblaze_reloc = R_MICROBLAZE_GNU_VTINHERIT;
 571       break;
 572     case BFD_RELOC_VTABLE_ENTRY:
 573       microblaze_reloc = R_MICROBLAZE_GNU_VTENTRY;
 574       break;
 575     case BFD_RELOC_MICROBLAZE_64_GOTPC:
 576       microblaze_reloc = R_MICROBLAZE_GOTPC_64;
 577       break;
 578     case BFD_RELOC_MICROBLAZE_64_GOT:
 579       microblaze_reloc = R_MICROBLAZE_GOT_64;
 580       break;
 581     case BFD_RELOC_MICROBLAZE_64_PLT:
 582       microblaze_reloc = R_MICROBLAZE_PLT_64;
 583       break;
 584     case BFD_RELOC_MICROBLAZE_64_GOTOFF:
 585       microblaze_reloc = R_MICROBLAZE_GOTOFF_64;
 586       break;
 587     case BFD_RELOC_MICROBLAZE_32_GOTOFF:
 588       microblaze_reloc = R_MICROBLAZE_GOTOFF_32;
 589       break;
 590     case BFD_RELOC_MICROBLAZE_64_TLSGD:
 591       microblaze_reloc = R_MICROBLAZE_TLSGD;
 592       break;
 593     case BFD_RELOC_MICROBLAZE_64_TLSLD:
 594       microblaze_reloc = R_MICROBLAZE_TLSLD;
 595       break;
 596     case BFD_RELOC_MICROBLAZE_32_TLSDTPREL:
 597       microblaze_reloc = R_MICROBLAZE_TLSDTPREL32;
 598       break;
 599     case BFD_RELOC_MICROBLAZE_64_TLSDTPREL:
 600       microblaze_reloc = R_MICROBLAZE_TLSDTPREL64;
 601       break;
 602     case BFD_RELOC_MICROBLAZE_32_TLSDTPMOD:
 603       microblaze_reloc = R_MICROBLAZE_TLSDTPMOD32;
 604       break;
 605     case BFD_RELOC_MICROBLAZE_64_TLSGOTTPREL:
 606       microblaze_reloc = R_MICROBLAZE_TLSGOTTPREL32;
 607       break;
 608     case BFD_RELOC_MICROBLAZE_64_TLSTPREL:
 609       microblaze_reloc = R_MICROBLAZE_TLSTPREL32;
 610       break;
 611     case BFD_RELOC_MICROBLAZE_COPY:
 612       microblaze_reloc = R_MICROBLAZE_COPY;
 613       break;
 614     default:
 615       return (reloc_howto_type *) NULL;
 616     }
 617
 618   if (!microblaze_elf_howto_table [R_MICROBLAZE_32])
 619     /* Initialize howto table if needed.  */
 620     microblaze_elf_howto_init ();
 621
 622   return microblaze_elf_howto_table [(int) microblaze_reloc];
 623 };
 624
 625 static reloc_howto_type *
 626 microblaze_elf_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
 627                                   const char *r_name)
 628 {
 629   unsigned int i;
 630
 631   for (i = 0; i < NUM_ELEM (microblaze_elf_howto_raw); i++)
 632     if (microblaze_elf_howto_raw[i].name != NULL
 633         && strcasecmp (microblaze_elf_howto_raw[i].name, r_name) == 0)
 634       return &microblaze_elf_howto_raw[i];
 635
 636   return NULL;
 637 }
 638
 639 /* Set the howto pointer for a RCE ELF reloc.  */
 640
 641 static void
 642 microblaze_elf_info_to_howto (bfd * abfd ATTRIBUTE_UNUSED,
 643                               arelent * cache_ptr,
 644                               Elf_Internal_Rela * dst)
 645 {
 646   unsigned int r_type;
 647
 648   if (!microblaze_elf_howto_table [R_MICROBLAZE_32])
 649     /* Initialize howto table if needed.  */
 650     microblaze_elf_howto_init ();
 651
 652   r_type = ELF32_R_TYPE (dst->r_info);
 653   if (r_type >= R_MICROBLAZE_max)
 654     {
 655       _bfd_error_handler (_("%B: unrecognised MicroBlaze reloc number: %d"),
 656                           abfd, r_type);
 657       bfd_set_error (bfd_error_bad_value);
 658       r_type = R_MICROBLAZE_NONE;
 659     }
 660
 661   cache_ptr->howto = microblaze_elf_howto_table [r_type];
 662 }
 663
 664 /* Microblaze ELF local labels start with 'L.' or '$L', not '.L'.  */
 665
 666 static bfd_boolean
 667 microblaze_elf_is_local_label_name (bfd *abfd, const char *name)
 668 {
 669   if (name[0] == 'L' && name[1] == '.')
 670     return TRUE;
 671
 672   if (name[0] == '$' && name[1] == 'L')
 673     return TRUE;
 674
 675   /* With gcc, the labels go back to starting with '.', so we accept
 676      the generic ELF local label syntax as well.  */
 677   return _bfd_elf_is_local_label_name (abfd, name);
 678 }
 679
 680 /* The microblaze linker (like many others) needs to keep track of
 681    the number of relocs that it decides to copy as dynamic relocs in
 682    check_relocs for each symbol. This is so that it can later discard
 683    them if they are found to be unnecessary.  We store the information
 684    in a field extending the regular ELF linker hash table.  */
 685
 686 struct elf32_mb_dyn_relocs
 687 {
 688   struct elf32_mb_dyn_relocs *next;
 689
 690   /* The input section of the reloc.  */
 691   asection *sec;
 692
 693   /* Total number of relocs copied for the input section.  */
 694   bfd_size_type count;
 695
 696   /* Number of pc-relative relocs copied for the input section.  */
 697   bfd_size_type pc_count;
 698 };
 699
 700 /* ELF linker hash entry.  */
 701
 702 struct elf32_mb_link_hash_entry
 703 {
 704   struct elf_link_hash_entry elf;
 705
 706   /* Track dynamic relocs copied for this symbol.  */
 707   struct elf32_mb_dyn_relocs *dyn_relocs;
 708
 709   /* TLS Reference Types for the symbol; Updated by check_relocs */
 710 #define TLS_GD     1  /* GD reloc. */
 711 #define TLS_LD     2  /* LD reloc. */
 712 #define TLS_TPREL  4  /* TPREL reloc, => IE. */
 713 #define TLS_DTPREL 8  /* DTPREL reloc, => LD. */
 714 #define TLS_TLS    16 /* Any TLS reloc.  */
 715   unsigned char tls_mask;
 716
 717 };
 718
 719 #define IS_TLS_GD(x)     (x == (TLS_TLS | TLS_GD))
 720 #define IS_TLS_LD(x)     (x == (TLS_TLS | TLS_LD))
 721 #define IS_TLS_DTPREL(x) (x == (TLS_TLS | TLS_DTPREL))
 722 #define IS_TLS_NONE(x)   (x == 0)
 723
 724 #define elf32_mb_hash_entry(ent) ((struct elf32_mb_link_hash_entry *)(ent))
 725
 726 /* ELF linker hash table.  */
 727
 728 struct elf32_mb_link_hash_table
 729 {
 730   struct elf_link_hash_table elf;
 731
 732   /* Short-cuts to get to dynamic linker sections.  */
 733   asection *sgot;
 734   asection *sgotplt;
 735   asection *srelgot;
 736   asection *splt;
 737   asection *srelplt;
 738   asection *sdynbss;
 739   asection *srelbss;
 740
 741   /* Small local sym to section mapping cache.  */
 742   struct sym_cache sym_sec;
 743
 744   /* TLS Local Dynamic GOT Entry */
 745   union {
 746     bfd_signed_vma refcount;
 747     bfd_vma offset;
 748   } tlsld_got;
 749 };
 750
 751 /* Nonzero if this section has TLS related relocations.  */
 752 #define has_tls_reloc sec_flg0
 753
 754 /* Get the ELF linker hash table from a link_info structure.  */
 755
 756 #define elf32_mb_hash_table(p)                          \
 757   (elf_hash_table_id ((struct elf_link_hash_table *) ((p)->hash)) \
 758   == MICROBLAZE_ELF_DATA ? ((struct elf32_mb_link_hash_table *) ((p)->hash)) : NULL)
 759
 760 /* Create an entry in a microblaze ELF linker hash table.  */
 761
 762 static struct bfd_hash_entry *
 763 link_hash_newfunc (struct bfd_hash_entry *entry,
 764                    struct bfd_hash_table *table,
 765                    const char *string)
 766 {
 767   /* Allocate the structure if it has not already been allocated by a
 768      subclass.  */
 769   if (entry == NULL)
 770     {
 771       entry = bfd_hash_allocate (table,
 772                                  sizeof (struct elf32_mb_link_hash_entry));
 773       if (entry == NULL)
 774         return entry;
 775     }
 776
 777   /* Call the allocation method of the superclass.  */
 778   entry = _bfd_elf_link_hash_newfunc (entry, table, string);
 779   if (entry != NULL)
 780     {
 781       struct elf32_mb_link_hash_entry *eh;
 782
 783       eh = (struct elf32_mb_link_hash_entry *) entry;
 784       eh->dyn_relocs = NULL;
 785       eh->tls_mask = 0;
 786     }
 787
 788   return entry;
 789 }
 790
 791 /* Create a mb ELF linker hash table.  */
 792
 793 static struct bfd_link_hash_table *
 794 microblaze_elf_link_hash_table_create (bfd *abfd)
 795 {
 796   struct elf32_mb_link_hash_table *ret;
 797   bfd_size_type amt = sizeof (struct elf32_mb_link_hash_table);
 798
 799   ret = (struct elf32_mb_link_hash_table *) bfd_zmalloc (amt);
 800   if (ret == NULL)
 801     return NULL;
 802
 803   if (!_bfd_elf_link_hash_table_init (&ret->elf, abfd, link_hash_newfunc,
 804                                       sizeof (struct elf32_mb_link_hash_entry),
 805                                       MICROBLAZE_ELF_DATA))
 806     {
 807       free (ret);
 808       return NULL;
 809     }
 810
 811   return &ret->elf.root;
 812 }
 813 \f
 814 /* Set the values of the small data pointers.  */
 815
 816 static void
 817 microblaze_elf_final_sdp (struct bfd_link_info *info)
 818 {
 819   struct bfd_link_hash_entry *h;
 820
 821   h = bfd_link_hash_lookup (info->hash, RO_SDA_ANCHOR_NAME, FALSE, FALSE, TRUE);
 822   if (h != (struct bfd_link_hash_entry *) NULL
 823       && h->type == bfd_link_hash_defined)
 824     ro_small_data_pointer = (h->u.def.value
 825                              + h->u.def.section->output_section->vma
 826                              + h->u.def.section->output_offset);
 827
 828   h = bfd_link_hash_lookup (info->hash, RW_SDA_ANCHOR_NAME, FALSE, FALSE, TRUE);
 829   if (h != (struct bfd_link_hash_entry *) NULL
 830       && h->type == bfd_link_hash_defined)
 831     rw_small_data_pointer = (h->u.def.value
 832                              + h->u.def.section->output_section->vma
 833                              + h->u.def.section->output_offset);
 834 }
 835
 836 static bfd_vma
 837 dtprel_base (struct bfd_link_info *info)
 838 {
 839   /* If tls_sec is NULL, we should have signalled an error already.  */
 840   if (elf_hash_table (info)->tls_sec == NULL)
 841     return 0;
 842   return elf_hash_table (info)->tls_sec->vma;
 843 }
 844
 845 /* The size of the thread control block.  */
 846 #define TCB_SIZE        8
 847
 848 /* Output a simple dynamic relocation into SRELOC.  */
 849
 850 static void
 851 microblaze_elf_output_dynamic_relocation (bfd *output_bfd,
 852                                           asection *sreloc,
 853                                           unsigned long reloc_index,
 854                                           unsigned long indx,
 855                                           int r_type,
 856                                           bfd_vma offset,
 857                                           bfd_vma addend)
 858 {
 859
 860   Elf_Internal_Rela rel;
 861
 862   rel.r_info = ELF32_R_INFO (indx, r_type);
 863   rel.r_offset = offset;
 864   rel.r_addend = addend;
 865
 866   bfd_elf32_swap_reloca_out (output_bfd, &rel,
 867               (sreloc->contents + reloc_index * sizeof (Elf32_External_Rela)));
 868 }
 869
 870 /* This code is taken from elf32-m32r.c
 871    There is some attempt to make this function usable for many architectures,
 872    both USE_REL and USE_RELA ['twould be nice if such a critter existed],
 873    if only to serve as a learning tool.
 874
 875    The RELOCATE_SECTION function is called by the new ELF backend linker
 876    to handle the relocations for a section.
 877
 878    The relocs are always passed as Rela structures; if the section
 879    actually uses Rel structures, the r_addend field will always be
 880    zero.
 881
 882    This function is responsible for adjust the section contents as
 883    necessary, and (if using Rela relocs and generating a
 884    relocatable output file) adjusting the reloc addend as
 885    necessary.
 886
 887    This function does not have to worry about setting the reloc
 888    address or the reloc symbol index.
 889
 890    LOCAL_SYMS is a pointer to the swapped in local symbols.
 891
 892    LOCAL_SECTIONS is an array giving the section in the input file
 893    corresponding to the st_shndx field of each local symbol.
 894
 895    The global hash table entry for the global symbols can be found
 896    via elf_sym_hashes (input_bfd).
 897
 898    When generating relocatable output, this function must handle
 899    STB_LOCAL/STT_SECTION symbols specially.  The output symbol is
 900    going to be the section symbol corresponding to the output
 901    section, which means that the addend must be adjusted
 902    accordingly.  */
 903
 904 static bfd_boolean
 905 microblaze_elf_relocate_section (bfd *output_bfd,
 906                                  struct bfd_link_info *info,
 907                                  bfd *input_bfd,
 908                                  asection *input_section,
 909                                  bfd_byte *contents,
 910                                  Elf_Internal_Rela *relocs,
 911                                  Elf_Internal_Sym *local_syms,
 912                                  asection **local_sections)
 913 {
 914   struct elf32_mb_link_hash_table *htab;
 915   Elf_Internal_Shdr *symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
 916   struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (input_bfd);
 917   Elf_Internal_Rela *rel, *relend;
 918   int endian = (bfd_little_endian (output_bfd)) ? 0 : 2;
 919   /* Assume success.  */
 920   bfd_boolean ret = TRUE;
 921   asection *sreloc;
 922   bfd_vma *local_got_offsets;
 923   unsigned int tls_type;
 924
 925   if (!microblaze_elf_howto_table[R_MICROBLAZE_max-1])
 926     microblaze_elf_howto_init ();
 927
 928   htab = elf32_mb_hash_table (info);
 929   if (htab == NULL)
 930     return FALSE;
 931
 932   local_got_offsets = elf_local_got_offsets (input_bfd);
 933
 934   sreloc = elf_section_data (input_section)->sreloc;
 935
 936   rel = relocs;
 937   relend = relocs + input_section->reloc_count;
 938   for (; rel < relend; rel++)
 939     {
 940       int r_type;
 941       reloc_howto_type *howto;
 942       unsigned long r_symndx;
 943       bfd_vma addend = rel->r_addend;
 944       bfd_vma offset = rel->r_offset;
 945       struct elf_link_hash_entry *h;
 946       Elf_Internal_Sym *sym;
 947       asection *sec;
 948       const char *sym_name;
 949       bfd_reloc_status_type r = bfd_reloc_ok;
 950       const char *errmsg = NULL;
 951       bfd_boolean unresolved_reloc = FALSE;
 952
 953       h = NULL;
 954       r_type = ELF32_R_TYPE (rel->r_info);
 955       tls_type = 0;
 956
 957       if (r_type < 0 || r_type >= (int) R_MICROBLAZE_max)
 958         {
 959           _bfd_error_handler (_("%s: unknown relocation type %d"),
 960                               bfd_get_filename (input_bfd), (int) r_type);
 961           bfd_set_error (bfd_error_bad_value);
 962           ret = FALSE;
 963           continue;
 964         }
 965
 966       howto = microblaze_elf_howto_table[r_type];
 967       r_symndx = ELF32_R_SYM (rel->r_info);
 968
 969       if (bfd_link_relocatable (info))
 970         {
 971           /* This is a relocatable link.  We don't have to change
 972              anything, unless the reloc is against a section symbol,
 973              in which case we have to adjust according to where the
 974              section symbol winds up in the output section.  */
 975           sec = NULL;
 976           if (r_symndx >= symtab_hdr->sh_info)
 977             /* External symbol.  */
 978             continue;
 979
 980           /* Local symbol.  */
 981           sym = local_syms + r_symndx;
 982           sym_name = "<local symbol>";
 983           /* STT_SECTION: symbol is associated with a section.  */
 984           if (ELF_ST_TYPE (sym->st_info) != STT_SECTION)
 985             /* Symbol isn't associated with a section.  Nothing to do.  */
 986             continue;
 987
 988           sec = local_sections[r_symndx];
 989           addend += sec->output_offset + sym->st_value;
 990 #ifndef USE_REL
 991           /* This can't be done for USE_REL because it doesn't mean anything
 992              and elf_link_input_bfd asserts this stays zero.  */
 993           /* rel->r_addend = addend; */
 994 #endif
 995
 996 #ifndef USE_REL
 997           /* Addends are stored with relocs.  We're done.  */
 998           continue;
 999 #else /* USE_REL */
1000           /* If partial_inplace, we need to store any additional addend
1001              back in the section.  */
1002           if (!howto->partial_inplace)
1003             continue;
1004           /* ??? Here is a nice place to call a special_function like handler.  */
1005           r = _bfd_relocate_contents (howto, input_bfd, addend,
1006                                       contents + offset);
1007 #endif /* USE_REL */
1008         }
1009       else
1010         {
1011           bfd_vma relocation;
1012
1013           /* This is a final link.  */
1014           sym = NULL;
1015           sec = NULL;
1016           unresolved_reloc = FALSE;
1017
1018           if (r_symndx < symtab_hdr->sh_info)
1019             {
1020               /* Local symbol.  */
1021               sym = local_syms + r_symndx;
1022               sec = local_sections[r_symndx];
1023               if (sec == 0)
1024                 continue;
1025               sym_name = "<local symbol>";
1026               relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
1027               /* r_addend may have changed if the reference section was
1028                  a merge section.  */
1029               addend = rel->r_addend;
1030             }
1031           else
1032             {
1033               /* External symbol.  */
1034               bfd_boolean warned ATTRIBUTE_UNUSED;
1035               bfd_boolean ignored ATTRIBUTE_UNUSED;
1036
1037               RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
1038                                        r_symndx, symtab_hdr, sym_hashes,
1039                                        h, sec, relocation,
1040                                        unresolved_reloc, warned, ignored);
1041               sym_name = h->root.root.string;
1042             }
1043
1044           /* Sanity check the address.  */
1045           if (offset > bfd_get_section_limit (input_bfd, input_section))
1046             {
1047               r = bfd_reloc_outofrange;
1048               goto check_reloc;
1049             }
1050
1051           switch ((int) r_type)
1052             {
1053             case (int) R_MICROBLAZE_SRO32 :
1054               {
1055                 const char *name;
1056
1057                 /* Only relocate if the symbol is defined.  */
1058                 if (sec)
1059                   {
1060                     name = bfd_get_section_name (sec->owner, sec);
1061
1062                     if (strcmp (name, ".sdata2") == 0
1063                         || strcmp (name, ".sbss2") == 0)
1064                       {
1065                         if (ro_small_data_pointer == 0)
1066                           microblaze_elf_final_sdp (info);
1067                         if (ro_small_data_pointer == 0)
1068                           {
1069                             ret = FALSE;
1070                             r = bfd_reloc_undefined;
1071                             goto check_reloc;
1072                           }
1073
1074                         /* At this point `relocation' contains the object's
1075                            address.  */
1076                         relocation -= ro_small_data_pointer;
1077                         /* Now it contains the offset from _SDA2_BASE_.  */
1078                         r = _bfd_final_link_relocate (howto, input_bfd,
1079                                                       input_section,
1080                                                       contents, offset,
1081                                                       relocation, addend);
1082                       }
1083                     else
1084                       {
1085                         _bfd_error_handler
1086                           (_("%s: The target (%s) of an %s relocation "
1087                              "is in the wrong section (%s)"),
1088                            bfd_get_filename (input_bfd),
1089                            sym_name,
1090                            microblaze_elf_howto_table[(int) r_type]->name,
1091                            bfd_get_section_name (sec->owner, sec));
1092                         /*bfd_set_error (bfd_error_bad_value); ??? why? */
1093                         ret = FALSE;
1094                         continue;
1095                       }
1096                   }
1097               }
1098               break;
1099
1100             case (int) R_MICROBLAZE_SRW32 :
1101               {
1102                 const char *name;
1103
1104                 /* Only relocate if the symbol is defined.  */
1105                 if (sec)
1106                   {
1107                     name = bfd_get_section_name (sec->owner, sec);
1108
1109                     if (strcmp (name, ".sdata") == 0
1110                         || strcmp (name, ".sbss") == 0)
1111                       {
1112                         if (rw_small_data_pointer == 0)
1113                           microblaze_elf_final_sdp (info);
1114                         if (rw_small_data_pointer == 0)
1115                           {
1116                             ret = FALSE;
1117                             r = bfd_reloc_undefined;
1118                             goto check_reloc;
1119                           }
1120
1121                         /* At this point `relocation' contains the object's
1122                            address.  */
1123                         relocation -= rw_small_data_pointer;
1124                         /* Now it contains the offset from _SDA_BASE_.  */
1125                         r = _bfd_final_link_relocate (howto, input_bfd,
1126                                                       input_section,
1127                                                       contents, offset,
1128                                                       relocation, addend);
1129                       }
1130                     else
1131                       {
1132                         _bfd_error_handler
1133                           (_("%s: The target (%s) of an %s relocation "
1134                              "is in the wrong section (%s)"),
1135                            bfd_get_filename (input_bfd),
1136                            sym_name,
1137                            microblaze_elf_howto_table[(int) r_type]->name,
1138                            bfd_get_section_name (sec->owner, sec));
1139                         /*bfd_set_error (bfd_error_bad_value); ??? why? */
1140                         ret = FALSE;
1141                         continue;
1142                       }
1143                   }
1144               }
1145               break;
1146
1147             case (int) R_MICROBLAZE_32_SYM_OP_SYM:
1148               break; /* Do nothing.  */
1149
1150             case (int) R_MICROBLAZE_GOTPC_64:
1151               relocation = htab->sgotplt->output_section->vma
1152                 + htab->sgotplt->output_offset;
1153               relocation -= (input_section->output_section->vma
1154                              + input_section->output_offset
1155                              + offset + INST_WORD_SIZE);
1156               relocation += addend;
1157               bfd_put_16 (input_bfd, (relocation >> 16) & 0xffff,
1158                           contents + offset + endian);
1159               bfd_put_16 (input_bfd, relocation & 0xffff,
1160                           contents + offset + endian + INST_WORD_SIZE);
1161               break;
1162
1163             case (int) R_MICROBLAZE_PLT_64:
1164               {
1165                 bfd_vma immediate;
1166                 if (htab->splt != NULL && h != NULL
1167                     && h->plt.offset != (bfd_vma) -1)
1168                   {
1169                     relocation = (htab->splt->output_section->vma
1170                                   + htab->splt->output_offset
1171                                   + h->plt.offset);
1172                     unresolved_reloc = FALSE;
1173                     immediate = relocation - (input_section->output_section->vma
1174                                               + input_section->output_offset
1175                                               + offset + INST_WORD_SIZE);
1176                     bfd_put_16 (input_bfd, (immediate >> 16) & 0xffff,
1177                                 contents + offset + endian);
1178                     bfd_put_16 (input_bfd, immediate & 0xffff,
1179                                 contents + offset + endian + INST_WORD_SIZE);
1180                   }
1181                 else
1182                   {
1183                     relocation -= (input_section->output_section->vma
1184                                    + input_section->output_offset
1185                                    + offset + INST_WORD_SIZE);
1186                     immediate = relocation;
1187                     bfd_put_16 (input_bfd, (immediate >> 16) & 0xffff,
1188                                 contents + offset + endian);
1189                     bfd_put_16 (input_bfd, immediate & 0xffff,
1190                                 contents + offset + endian + INST_WORD_SIZE);
1191                   }
1192                 break;
1193               }
1194
1195             case (int) R_MICROBLAZE_TLSGD:
1196               tls_type = (TLS_TLS | TLS_GD);
1197               goto dogot;
1198             case (int) R_MICROBLAZE_TLSLD:
1199               tls_type = (TLS_TLS | TLS_LD);
1200               /* Fall through.  */
1201             dogot:
1202             case (int) R_MICROBLAZE_GOT_64:
1203               {
1204                 bfd_vma *offp;
1205                 bfd_vma off, off2;
1206                 unsigned long indx;
1207                 bfd_vma static_value;
1208
1209                 bfd_boolean need_relocs = FALSE;
1210                 if (htab->sgot == NULL)
1211                   abort ();
1212
1213                 indx = 0;
1214                 offp = NULL;
1215
1216                 /* 1. Identify GOT Offset;
1217                    2. Compute Static Values
1218                    3. Process Module Id, Process Offset
1219                    4. Fixup Relocation with GOT offset value. */
1220
1221                 /* 1. Determine GOT Offset to use : TLS_LD, global, local */
1222                 if (IS_TLS_LD (tls_type))
1223                   offp = &htab->tlsld_got.offset;
1224                 else if (h != NULL)
1225                   {
1226                     if (htab->sgotplt != NULL && h->got.offset != (bfd_vma) -1)
1227                         offp = &h->got.offset;
1228                     else
1229                         abort ();
1230                   }
1231                 else
1232                   {
1233                     if (local_got_offsets == NULL)
1234                       abort ();
1235                     offp = &local_got_offsets[r_symndx];
1236                   }
1237
1238                 if (!offp)
1239                   abort ();
1240
1241                 off = (*offp) & ~1;
1242                 off2 = off;
1243
1244                 if (IS_TLS_LD(tls_type) || IS_TLS_GD(tls_type))
1245                   off2 = off + 4;
1246
1247                 /* Symbol index to use for relocs */
1248                 if (h != NULL)
1249                   {
1250                     bfd_boolean dyn =
1251                         elf_hash_table (info)->dynamic_sections_created;
1252
1253                     if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn,
1254                                                          bfd_link_pic (info),
1255                                                          h)
1256                         && (!bfd_link_pic (info)
1257                             || !SYMBOL_REFERENCES_LOCAL (info, h)))
1258                       indx = h->dynindx;
1259                   }
1260
1261                 /* Need to generate relocs ? */
1262                 if ((bfd_link_pic (info) || indx != 0)
1263                     && (h == NULL
1264                     || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
1265                     || h->root.type != bfd_link_hash_undefweak))
1266                   need_relocs = TRUE;
1267
1268                 /* 2. Compute/Emit Static value of r-expression */
1269                 static_value = relocation + addend;
1270
1271                 /* 3. Process module-id and offset */
1272                 if (! ((*offp) & 1) )
1273                   {
1274                     bfd_vma got_offset;
1275
1276                     got_offset = (htab->sgot->output_section->vma
1277                                   + htab->sgot->output_offset
1278                                   + off);
1279
1280                     /* Process module-id */
1281                     if (IS_TLS_LD(tls_type))
1282                       {
1283                         if (! bfd_link_pic (info))
1284                           {
1285                             bfd_put_32 (output_bfd, 1, htab->sgot->contents + off);
1286                           }
1287                         else
1288                           {
1289                             microblaze_elf_output_dynamic_relocation (output_bfd,
1290                               htab->srelgot, htab->srelgot->reloc_count++,
1291                               /* symindex= */ 0, R_MICROBLAZE_TLSDTPMOD32,
1292                               got_offset, 0);
1293                           }
1294                       }
1295                     else if (IS_TLS_GD(tls_type))
1296                       {
1297                         if (! need_relocs)
1298                           {
1299                             bfd_put_32 (output_bfd, 1, htab->sgot->contents + off);
1300                           }
1301                         else
1302                           {
1303                             microblaze_elf_output_dynamic_relocation (output_bfd,
1304                               htab->srelgot,
1305                               htab->srelgot->reloc_count++,
1306                               /* symindex= */ indx, R_MICROBLAZE_TLSDTPMOD32,
1307                               got_offset, indx ? 0 : static_value);
1308                           }
1309                       }
1310
1311                     /* Process Offset */
1312                     if (htab->srelgot == NULL)
1313                       abort ();
1314
1315                     got_offset = (htab->sgot->output_section->vma
1316                                   + htab->sgot->output_offset
1317                                   + off2);
1318                     if (IS_TLS_LD(tls_type))
1319                       {
1320                         /* For LD, offset should be 0 */
1321                         *offp |= 1;
1322                         bfd_put_32 (output_bfd, 0, htab->sgot->contents + off2);
1323                       }
1324                     else if (IS_TLS_GD(tls_type))
1325                       {
1326                         *offp |= 1;
1327                         static_value -= dtprel_base(info);
1328                         if (need_relocs)
1329                           {
1330                             microblaze_elf_output_dynamic_relocation (output_bfd,
1331                               htab->srelgot, htab->srelgot->reloc_count++,
1332                               /* symindex= */ indx, R_MICROBLAZE_TLSDTPREL32,
1333                               got_offset, indx ? 0 : static_value);
1334                           }
1335                         else
1336                           {
1337                             bfd_put_32 (output_bfd, static_value,
1338                                         htab->sgot->contents + off2);
1339                           }
1340                       }
1341                     else
1342                       {
1343                           bfd_put_32 (output_bfd, static_value,
1344                                       htab->sgot->contents + off2);
1345
1346                           /* Relocs for dyn symbols generated by
1347                              finish_dynamic_symbols */
1348                           if (bfd_link_pic (info) && h == NULL)
1349                             {
1350                               *offp |= 1;
1351                               microblaze_elf_output_dynamic_relocation (output_bfd,
1352                                 htab->srelgot, htab->srelgot->reloc_count++,
1353                                 /* symindex= */ indx, R_MICROBLAZE_REL,
1354                                 got_offset, static_value);
1355                             }
1356                       }
1357                   }
1358
1359                 /* 4. Fixup Relocation with GOT offset value
1360                       Compute relative address of GOT entry for applying
1361                       the current relocation */
1362                 relocation = htab->sgot->output_section->vma
1363                              + htab->sgot->output_offset
1364                              + off
1365                              - htab->sgotplt->output_section->vma
1366                              - htab->sgotplt->output_offset;
1367
1368                 /* Apply Current Relocation */
1369                 bfd_put_16 (input_bfd, (relocation >> 16) & 0xffff,
1370                             contents + offset + endian);
1371                 bfd_put_16 (input_bfd, relocation & 0xffff,
1372                             contents + offset + endian + INST_WORD_SIZE);
1373
1374                 unresolved_reloc = FALSE;
1375                 break;
1376               }
1377
1378             case (int) R_MICROBLAZE_GOTOFF_64:
1379               {
1380                 bfd_vma immediate;
1381                 unsigned short lo, high;
1382                 relocation += addend;
1383                 relocation -= htab->sgotplt->output_section->vma
1384                   + htab->sgotplt->output_offset;
1385                 /* Write this value into correct location.  */
1386                 immediate = relocation;
1387                 lo = immediate & 0x0000ffff;
1388                 high = (immediate >> 16) & 0x0000ffff;
1389                 bfd_put_16 (input_bfd, high, contents + offset + endian);
1390                 bfd_put_16 (input_bfd, lo, contents + offset + INST_WORD_SIZE + endian);
1391                 break;
1392               }
1393
1394             case (int) R_MICROBLAZE_GOTOFF_32:
1395               {
1396                 relocation += addend;
1397                 relocation -= htab->sgotplt->output_section->vma
1398                   + htab->sgotplt->output_offset;
1399                 /* Write this value into correct location.  */
1400                 bfd_put_32 (input_bfd, relocation, contents + offset);
1401                 break;
1402               }
1403
1404             case (int) R_MICROBLAZE_TLSDTPREL64:
1405               relocation += addend;
1406               relocation -= dtprel_base(info);
1407               bfd_put_16 (input_bfd, (relocation >> 16) & 0xffff,
1408                           contents + offset + 2);
1409               bfd_put_16 (input_bfd, relocation & 0xffff,
1410                           contents + offset + 2 + INST_WORD_SIZE);
1411               break;
1412             case (int) R_MICROBLAZE_64_PCREL :
1413             case (int) R_MICROBLAZE_64:
1414             case (int) R_MICROBLAZE_32:
1415               {
1416                 /* r_symndx will be STN_UNDEF (zero) only for relocs against symbols
1417                    from removed linkonce sections, or sections discarded by
1418                    a linker script.  */
1419                 if (r_symndx == STN_UNDEF || (input_section->flags & SEC_ALLOC) == 0)
1420                   {
1421                     relocation += addend;
1422                     if (r_type == R_MICROBLAZE_32)
1423                       bfd_put_32 (input_bfd, relocation, contents + offset);
1424                     else
1425                       {
1426                         if (r_type == R_MICROBLAZE_64_PCREL)
1427                           relocation -= (input_section->output_section->vma
1428                                          + input_section->output_offset
1429                                          + offset + INST_WORD_SIZE);
1430                         bfd_put_16 (input_bfd, (relocation >> 16) & 0xffff,
1431                                     contents + offset + endian);
1432                         bfd_put_16 (input_bfd, relocation & 0xffff,
1433                                     contents + offset + endian + INST_WORD_SIZE);
1434                       }
1435                     break;
1436                   }
1437
1438                 if ((bfd_link_pic (info)
1439                      && (h == NULL
1440                          || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
1441                          || h->root.type != bfd_link_hash_undefweak)
1442                      && (!howto->pc_relative
1443                          || (h != NULL
1444                              && h->dynindx != -1
1445                              && (!info->symbolic
1446                                  || !h->def_regular))))
1447                     || (!bfd_link_pic (info)
1448                         && h != NULL
1449                         && h->dynindx != -1
1450                         && !h->non_got_ref
1451                         && ((h->def_dynamic
1452                              && !h->def_regular)
1453                             || h->root.type == bfd_link_hash_undefweak
1454                             || h->root.type == bfd_link_hash_undefined)))
1455                   {
1456                     Elf_Internal_Rela outrel;
1457                     bfd_byte *loc;
1458                     bfd_boolean skip;
1459
1460                     /* When generating a shared object, these relocations
1461                        are copied into the output file to be resolved at run
1462                        time.  */
1463
1464                     BFD_ASSERT (sreloc != NULL);
1465
1466                     skip = FALSE;
1467
1468                     outrel.r_offset =
1469                       _bfd_elf_section_offset (output_bfd, info, input_section,
1470                                                rel->r_offset);
1471                     if (outrel.r_offset == (bfd_vma) -1)
1472                       skip = TRUE;
1473                     else if (outrel.r_offset == (bfd_vma) -2)
1474                       skip = TRUE;
1475                     outrel.r_offset += (input_section->output_section->vma
1476                                         + input_section->output_offset);
1477
1478                     if (skip)
1479                       memset (&outrel, 0, sizeof outrel);
1480                     /* h->dynindx may be -1 if the symbol was marked to
1481                        become local.  */
1482                     else if (h != NULL
1483                              && ((! info->symbolic && h->dynindx != -1)
1484                                  || !h->def_regular))
1485                       {
1486                         BFD_ASSERT (h->dynindx != -1);
1487                         outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
1488                         outrel.r_addend = addend;
1489                       }
1490                     else
1491                       {
1492                         if (r_type == R_MICROBLAZE_32)
1493                           {
1494                             outrel.r_info = ELF32_R_INFO (0, R_MICROBLAZE_REL);
1495                             outrel.r_addend = relocation + addend;
1496                           }
1497                         else
1498                           {
1499                             BFD_FAIL ();
1500                             _bfd_error_handler
1501                               (_("%B: probably compiled without -fPIC?"),
1502                                input_bfd);
1503                             bfd_set_error (bfd_error_bad_value);
1504                             return FALSE;
1505                           }
1506                       }
1507
1508                     loc = sreloc->contents;
1509                     loc += sreloc->reloc_count++ * sizeof (Elf32_External_Rela);
1510                     bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
1511                     break;
1512                   }
1513                 else
1514                   {
1515                     relocation += addend;
1516                     if (r_type == R_MICROBLAZE_32)
1517                       bfd_put_32 (input_bfd, relocation, contents + offset);
1518                     else
1519                       {
1520                         if (r_type == R_MICROBLAZE_64_PCREL)
1521                           relocation -= (input_section->output_section->vma
1522                                          + input_section->output_offset
1523                                          + offset + INST_WORD_SIZE);
1524                         bfd_put_16 (input_bfd, (relocation >> 16) & 0xffff,
1525                                     contents + offset + endian);
1526                         bfd_put_16 (input_bfd, relocation & 0xffff,
1527                                     contents + offset + endian + INST_WORD_SIZE);
1528                       }
1529                     break;
1530                   }
1531               }
1532
1533             default :
1534               r = _bfd_final_link_relocate (howto, input_bfd, input_section,
1535                                             contents, offset,
1536                                             relocation, addend);
1537               break;
1538             }
1539         }
1540
1541     check_reloc:
1542
1543       if (r != bfd_reloc_ok)
1544         {
1545           /* FIXME: This should be generic enough to go in a utility.  */
1546           const char *name;
1547
1548           if (h != NULL)
1549             name = h->root.root.string;
1550           else
1551             {
1552               name = (bfd_elf_string_from_elf_section
1553                       (input_bfd, symtab_hdr->sh_link, sym->st_name));
1554               if (name == NULL || *name == '\0')
1555                 name = bfd_section_name (input_bfd, sec);
1556             }
1557
1558           if (errmsg != NULL)
1559             goto common_error;
1560
1561           switch (r)
1562             {
1563             case bfd_reloc_overflow:
1564               (*info->callbacks->reloc_overflow)
1565                 (info, (h ? &h->root : NULL), name, howto->name,
1566                  (bfd_vma) 0, input_bfd, input_section, offset);
1567               break;
1568
1569             case bfd_reloc_undefined:
1570               (*info->callbacks->undefined_symbol)
1571                 (info, name, input_bfd, input_section, offset, TRUE);
1572               break;
1573
1574             case bfd_reloc_outofrange:
1575               errmsg = _("internal error: out of range error");
1576               goto common_error;
1577
1578             case bfd_reloc_notsupported:
1579               errmsg = _("internal error: unsupported relocation error");
1580               goto common_error;
1581
1582             case bfd_reloc_dangerous:
1583               errmsg = _("internal error: dangerous error");
1584               goto common_error;
1585
1586             default:
1587               errmsg = _("internal error: unknown error");
1588               /* Fall through.  */
1589             common_error:
1590               (*info->callbacks->warning) (info, errmsg, name, input_bfd,
1591                                            input_section, offset);
1592               break;
1593             }
1594         }
1595     }
1596
1597   return ret;
1598 }
1599 \f
1600 /* Calculate fixup value for reference.  */
1601
1602 static int
1603 calc_fixup (bfd_vma start, bfd_vma size, asection *sec)
1604 {
1605   bfd_vma end = start + size;
1606   int i, fixup = 0;
1607
1608   if (sec == NULL || sec->relax == NULL)
1609     return 0;
1610
1611   /* Look for addr in relax table, total fixup value.  */
1612   for (i = 0; i < sec->relax_count; i++)
1613     {
1614       if (end <= sec->relax[i].addr)
1615         break;
1616       if ((end != start) && (start > sec->relax[i].addr))
1617         continue;
1618       fixup += sec->relax[i].size;
1619     }
1620   return fixup;
1621 }
1622
1623 /* Read-modify-write into the bfd, an immediate value into appropriate fields of
1624    a 32-bit instruction.  */
1625 static void
1626 microblaze_bfd_write_imm_value_32 (bfd *abfd, bfd_byte *bfd_addr, bfd_vma val)
1627 {
1628     unsigned long instr = bfd_get_32 (abfd, bfd_addr);
1629     instr &= ~0x0000ffff;
1630     instr |= (val & 0x0000ffff);
1631     bfd_put_32 (abfd, instr, bfd_addr);
1632 }
1633
1634 /* Read-modify-write into the bfd, an immediate value into appropriate fields of
1635    two consecutive 32-bit instructions.  */
1636 static void
1637 microblaze_bfd_write_imm_value_64 (bfd *abfd, bfd_byte *bfd_addr, bfd_vma val)
1638 {
1639     unsigned long instr_hi;
1640     unsigned long instr_lo;
1641
1642     instr_hi = bfd_get_32 (abfd, bfd_addr);
1643     instr_hi &= ~0x0000ffff;
1644     instr_hi |= ((val >> 16) & 0x0000ffff);
1645     bfd_put_32 (abfd, instr_hi, bfd_addr);
1646
1647     instr_lo = bfd_get_32 (abfd, bfd_addr + INST_WORD_SIZE);
1648     instr_lo &= ~0x0000ffff;
1649     instr_lo |= (val & 0x0000ffff);
1650     bfd_put_32 (abfd, instr_lo, bfd_addr + INST_WORD_SIZE);
1651 }
1652
1653 static bfd_boolean
1654 microblaze_elf_relax_section (bfd *abfd,
1655                               asection *sec,
1656                               struct bfd_link_info *link_info,
1657                               bfd_boolean *again)
1658 {
1659   Elf_Internal_Shdr *symtab_hdr;
1660   Elf_Internal_Rela *internal_relocs;
1661   Elf_Internal_Rela *free_relocs = NULL;
1662   Elf_Internal_Rela *irel, *irelend;
1663   bfd_byte *contents = NULL;
1664   bfd_byte *free_contents = NULL;
1665   int rel_count;
1666   unsigned int shndx;
1667   int i, sym_index;
1668   asection *o;
1669   struct elf_link_hash_entry *sym_hash;
1670   Elf_Internal_Sym *isymbuf, *isymend;
1671   Elf_Internal_Sym *isym;
1672   int symcount;
1673   int offset;
1674   bfd_vma src, dest;
1675
1676   /* We only do this once per section.  We may be able to delete some code
1677      by running multiple passes, but it is not worth it.  */
1678   *again = FALSE;
1679
1680   /* Only do this for a text section.  */
1681   if (bfd_link_relocatable (link_info)
1682       || (sec->flags & SEC_RELOC) == 0
1683       || (sec->reloc_count == 0)
1684       || (sec->flags & SEC_CODE) == 0)
1685     return TRUE;
1686
1687   BFD_ASSERT ((sec->size > 0) || (sec->rawsize > 0));
1688
1689   /* If this is the first time we have been called for this section,
1690      initialize the cooked size.  */
1691   if (sec->size == 0)
1692     sec->size = sec->rawsize;
1693
1694   /* Get symbols for this section.  */
1695   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1696   isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
1697   symcount =  symtab_hdr->sh_size / sizeof (Elf32_External_Sym);
1698   if (isymbuf == NULL)
1699     isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr, symcount,
1700                                     0, NULL, NULL, NULL);
1701   BFD_ASSERT (isymbuf != NULL);
1702
1703   internal_relocs = _bfd_elf_link_read_relocs (abfd, sec, NULL, NULL, link_info->keep_memory);
1704   if (internal_relocs == NULL)
1705     goto error_return;
1706   if (! link_info->keep_memory)
1707     free_relocs = internal_relocs;
1708
1709   sec->relax = (struct relax_table *) bfd_malloc ((sec->reloc_count + 1)
1710                                                   * sizeof (struct relax_table));
1711   if (sec->relax == NULL)
1712     goto error_return;
1713   sec->relax_count = 0;
1714
1715   irelend = internal_relocs + sec->reloc_count;
1716   rel_count = 0;
1717   for (irel = internal_relocs; irel < irelend; irel++, rel_count++)
1718     {
1719       bfd_vma symval;
1720       if ((ELF32_R_TYPE (irel->r_info) != (int) R_MICROBLAZE_64_PCREL)
1721           && (ELF32_R_TYPE (irel->r_info) != (int) R_MICROBLAZE_64 ))
1722         continue; /* Can't delete this reloc.  */
1723
1724       /* Get the section contents.  */
1725       if (contents == NULL)
1726         {
1727           if (elf_section_data (sec)->this_hdr.contents != NULL)
1728             contents = elf_section_data (sec)->this_hdr.contents;
1729           else
1730             {
1731               contents = (bfd_byte *) bfd_malloc (sec->size);
1732               if (contents == NULL)
1733                 goto error_return;
1734               free_contents = contents;
1735
1736               if (!bfd_get_section_contents (abfd, sec, contents,
1737                                              (file_ptr) 0, sec->size))
1738                 goto error_return;
1739               elf_section_data (sec)->this_hdr.contents = contents;
1740             }
1741         }
1742
1743       /* Get the value of the symbol referred to by the reloc.  */
1744       if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
1745         {
1746           /* A local symbol.  */
1747           asection *sym_sec;
1748
1749           isym = isymbuf + ELF32_R_SYM (irel->r_info);
1750           if (isym->st_shndx == SHN_UNDEF)
1751             sym_sec = bfd_und_section_ptr;
1752           else if (isym->st_shndx == SHN_ABS)
1753             sym_sec = bfd_abs_section_ptr;
1754           else if (isym->st_shndx == SHN_COMMON)
1755             sym_sec = bfd_com_section_ptr;
1756           else
1757             sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
1758
1759           symval = _bfd_elf_rela_local_sym (abfd, isym, &sym_sec, irel);
1760         }
1761       else
1762         {
1763           unsigned long indx;
1764           struct elf_link_hash_entry *h;
1765
1766           indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
1767           h = elf_sym_hashes (abfd)[indx];
1768           BFD_ASSERT (h != NULL);
1769
1770           if (h->root.type != bfd_link_hash_defined
1771               && h->root.type != bfd_link_hash_defweak)
1772             /* This appears to be a reference to an undefined
1773                symbol.  Just ignore it--it will be caught by the
1774                regular reloc processing.  */
1775             continue;
1776
1777           symval = (h->root.u.def.value
1778                     + h->root.u.def.section->output_section->vma
1779                     + h->root.u.def.section->output_offset);
1780         }
1781
1782       /* If this is a PC-relative reloc, subtract the instr offset from
1783          the symbol value.  */
1784       if (ELF32_R_TYPE (irel->r_info) == (int) R_MICROBLAZE_64_PCREL)
1785         {
1786           symval = symval + irel->r_addend
1787             - (irel->r_offset
1788                + sec->output_section->vma
1789                + sec->output_offset);
1790         }
1791       else
1792         symval += irel->r_addend;
1793
1794       if ((symval & 0xffff8000) == 0
1795           || (symval & 0xffff8000) == 0xffff8000)
1796         {
1797           /* We can delete this instruction.  */
1798           sec->relax[sec->relax_count].addr = irel->r_offset;
1799           sec->relax[sec->relax_count].size = INST_WORD_SIZE;
1800           sec->relax_count++;
1801
1802           /* Rewrite relocation type.  */
1803           switch ((enum elf_microblaze_reloc_type) ELF32_R_TYPE (irel->r_info))
1804             {
1805             case R_MICROBLAZE_64_PCREL:
1806               irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
1807                                            (int) R_MICROBLAZE_32_PCREL_LO);
1808               break;
1809             case R_MICROBLAZE_64:
1810               irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
1811                                            (int) R_MICROBLAZE_32_LO);
1812               break;
1813             default:
1814               /* Cannot happen.  */
1815               BFD_ASSERT (FALSE);
1816             }
1817         }
1818     } /* Loop through all relocations.  */
1819
1820   /* Loop through the relocs again, and see if anything needs to change.  */
1821   if (sec->relax_count > 0)
1822     {
1823       shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
1824       rel_count = 0;
1825       sec->relax[sec->relax_count].addr = sec->size;
1826
1827       for (irel = internal_relocs; irel < irelend; irel++, rel_count++)
1828         {
1829           bfd_vma nraddr;
1830
1831           /* Get the new reloc address.  */
1832           nraddr = irel->r_offset - calc_fixup (irel->r_offset, 0, sec);
1833           switch ((enum elf_microblaze_reloc_type) ELF32_R_TYPE (irel->r_info))
1834             {
1835             default:
1836               break;
1837             case R_MICROBLAZE_64_PCREL:
1838               break;
1839             case R_MICROBLAZE_64:
1840             case R_MICROBLAZE_32_LO:
1841               /* If this reloc is against a symbol defined in this
1842                  section, we must check the addend to see it will put the value in
1843                  range to be adjusted, and hence must be changed.  */
1844               if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
1845                 {
1846                   isym = isymbuf + ELF32_R_SYM (irel->r_info);
1847                   /* Only handle relocs against .text.  */
1848                   if (isym->st_shndx == shndx
1849                       && ELF32_ST_TYPE (isym->st_info) == STT_SECTION)
1850                     irel->r_addend -= calc_fixup (irel->r_addend, 0, sec);
1851                 }
1852               break;
1853             case R_MICROBLAZE_NONE:
1854               {
1855                 /* This was a PC-relative instruction that was
1856                    completely resolved.  */
1857                 int sfix, efix;
1858                 bfd_vma target_address;
1859                 target_address = irel->r_addend + irel->r_offset;
1860                 sfix = calc_fixup (irel->r_offset, 0, sec);
1861                 efix = calc_fixup (target_address, 0, sec);
1862                 irel->r_addend -= (efix - sfix);
1863                 /* Should use HOWTO.  */
1864                 microblaze_bfd_write_imm_value_32 (abfd, contents + irel->r_offset,
1865                                                    irel->r_addend);
1866               }
1867               break;
1868             case R_MICROBLAZE_64_NONE:
1869               {
1870                 /* This was a PC-relative 64-bit instruction that was
1871                    completely resolved.  */
1872                 int sfix, efix;
1873                 bfd_vma target_address;
1874                 target_address = irel->r_addend + irel->r_offset + INST_WORD_SIZE;
1875                 sfix = calc_fixup (irel->r_offset + INST_WORD_SIZE, 0, sec);
1876                 efix = calc_fixup (target_address, 0, sec);
1877                 irel->r_addend -= (efix - sfix);
1878     microblaze_bfd_write_imm_value_32 (abfd, contents + irel->r_offset
1879                                        + INST_WORD_SIZE, irel->r_addend);
1880               }
1881               break;
1882             }
1883           irel->r_offset = nraddr;
1884         } /* Change all relocs in this section.  */
1885
1886       /* Look through all other sections.  */
1887       for (o = abfd->sections; o != NULL; o = o->next)
1888         {
1889           Elf_Internal_Rela *irelocs;
1890           Elf_Internal_Rela *irelscan, *irelscanend;
1891           bfd_byte *ocontents;
1892
1893           if (o == sec
1894               || (o->flags & SEC_RELOC) == 0
1895               || o->reloc_count == 0)
1896             continue;
1897
1898           /* We always cache the relocs.  Perhaps, if info->keep_memory is
1899              FALSE, we should free them, if we are permitted to.  */
1900
1901           irelocs = _bfd_elf_link_read_relocs (abfd, o, NULL, NULL, TRUE);
1902           if (irelocs == NULL)
1903             goto error_return;
1904
1905           ocontents = NULL;
1906           irelscanend = irelocs + o->reloc_count;
1907           for (irelscan = irelocs; irelscan < irelscanend; irelscan++)
1908             {
1909               if (ELF32_R_TYPE (irelscan->r_info) == (int) R_MICROBLAZE_32)
1910                 {
1911                   isym = isymbuf + ELF32_R_SYM (irelscan->r_info);
1912
1913                   /* Look at the reloc only if the value has been resolved.  */
1914                   if (isym->st_shndx == shndx
1915                       && (ELF32_ST_TYPE (isym->st_info) == STT_SECTION))
1916                     {
1917                       if (ocontents == NULL)
1918                         {
1919                           if (elf_section_data (o)->this_hdr.contents != NULL)
1920                             ocontents = elf_section_data (o)->this_hdr.contents;
1921                           else
1922                             {
1923                               /* We always cache the section contents.
1924                                  Perhaps, if info->keep_memory is FALSE, we
1925                                  should free them, if we are permitted to.  */
1926                               if (o->rawsize == 0)
1927                                 o->rawsize = o->size;
1928                               ocontents = (bfd_byte *) bfd_malloc (o->rawsize);
1929                               if (ocontents == NULL)
1930                                 goto error_return;
1931                               if (!bfd_get_section_contents (abfd, o, ocontents,
1932                                                              (file_ptr) 0,
1933                                                              o->rawsize))
1934                                 goto error_return;
1935                               elf_section_data (o)->this_hdr.contents = ocontents;
1936                             }
1937
1938                         }
1939                       irelscan->r_addend -= calc_fixup (irelscan->r_addend, 0, sec);
1940                     }
1941                   else if (ELF32_R_TYPE (irelscan->r_info) == (int) R_MICROBLAZE_32_SYM_OP_SYM)
1942                     {
1943                       isym = isymbuf + ELF32_R_SYM (irelscan->r_info);
1944
1945                       /* Look at the reloc only if the value has been resolved.  */
1946                       if (ocontents == NULL)
1947                         {
1948                           if (elf_section_data (o)->this_hdr.contents != NULL)
1949                             ocontents = elf_section_data (o)->this_hdr.contents;
1950                           else
1951                             {
1952                               /* We always cache the section contents.
1953                                  Perhaps, if info->keep_memory is FALSE, we
1954                                  should free them, if we are permitted to.  */
1955
1956                               if (o->rawsize == 0)
1957                                 o->rawsize = o->size;
1958                               ocontents = (bfd_byte *) bfd_malloc (o->rawsize);
1959                               if (ocontents == NULL)
1960                                 goto error_return;
1961                               if (!bfd_get_section_contents (abfd, o, ocontents,
1962                                                              (file_ptr) 0,
1963                                                              o->rawsize))
1964                                 goto error_return;
1965                               elf_section_data (o)->this_hdr.contents = ocontents;
1966                             }
1967                         }
1968                       irelscan->r_addend -= calc_fixup (irel->r_addend
1969                                                         + isym->st_value,
1970                                                         0,
1971                                                         sec);
1972                     }
1973                 }
1974               else if ((ELF32_R_TYPE (irelscan->r_info) == (int) R_MICROBLAZE_32_PCREL_LO)
1975                        || (ELF32_R_TYPE (irelscan->r_info) == (int) R_MICROBLAZE_32_LO))
1976                 {
1977                   isym = isymbuf + ELF32_R_SYM (irelscan->r_info);
1978
1979                   /* Look at the reloc only if the value has been resolved.  */
1980                   if (isym->st_shndx == shndx
1981                       && (ELF32_ST_TYPE (isym->st_info) == STT_SECTION))
1982                     {
1983                       bfd_vma immediate;
1984                       bfd_vma target_address;
1985
1986                       if (ocontents == NULL)
1987                         {
1988                           if (elf_section_data (o)->this_hdr.contents != NULL)
1989                             ocontents = elf_section_data (o)->this_hdr.contents;
1990                           else
1991                             {
1992                               /* We always cache the section contents.
1993                                  Perhaps, if info->keep_memory is FALSE, we
1994                                  should free them, if we are permitted to.  */
1995                               if (o->rawsize == 0)
1996                                 o->rawsize = o->size;
1997                               ocontents = (bfd_byte *) bfd_malloc (o->rawsize);
1998                               if (ocontents == NULL)
1999                                 goto error_return;
2000                               if (!bfd_get_section_contents (abfd, o, ocontents,
2001                                                              (file_ptr) 0,
2002                                                              o->rawsize))
2003                                 goto error_return;
2004                               elf_section_data (o)->this_hdr.contents = ocontents;
2005                             }
2006                         }
2007
2008                       unsigned long instr = bfd_get_32 (abfd, ocontents + irelscan->r_offset);
2009                       immediate = instr & 0x0000ffff;
2010                       target_address = immediate;
2011                       offset = calc_fixup (target_address, 0, sec);
2012                       immediate -= offset;
2013                       irelscan->r_addend -= offset;
2014           microblaze_bfd_write_imm_value_32 (abfd, ocontents + irelscan->r_offset,
2015                                              irelscan->r_addend);
2016                     }
2017                 }
2018
2019               if (ELF32_R_TYPE (irelscan->r_info) == (int) R_MICROBLAZE_64)
2020                 {
2021                   isym = isymbuf + ELF32_R_SYM (irelscan->r_info);
2022
2023                   /* Look at the reloc only if the value has been resolved.  */
2024                   if (isym->st_shndx == shndx
2025                       && (ELF32_ST_TYPE (isym->st_info) == STT_SECTION))
2026                     {
2027                       bfd_vma immediate;
2028
2029                       if (ocontents == NULL)
2030                         {
2031                           if (elf_section_data (o)->this_hdr.contents != NULL)
2032                             ocontents = elf_section_data (o)->this_hdr.contents;
2033                           else
2034                             {
2035                               /* We always cache the section contents.
2036                                  Perhaps, if info->keep_memory is FALSE, we
2037                                  should free them, if we are permitted to.  */
2038
2039                               if (o->rawsize == 0)
2040                                 o->rawsize = o->size;
2041                               ocontents = (bfd_byte *) bfd_malloc (o->rawsize);
2042                               if (ocontents == NULL)
2043                                 goto error_return;
2044                               if (!bfd_get_section_contents (abfd, o, ocontents,
2045                                                              (file_ptr) 0,
2046                                                              o->rawsize))
2047                                 goto error_return;
2048                               elf_section_data (o)->this_hdr.contents = ocontents;
2049                             }
2050                         }
2051           unsigned long instr_hi =  bfd_get_32 (abfd, ocontents
2052                                                 + irelscan->r_offset);
2053           unsigned long instr_lo =  bfd_get_32 (abfd, ocontents
2054                                                 + irelscan->r_offset
2055                                                 + INST_WORD_SIZE);
2056           immediate = (instr_hi & 0x0000ffff) << 16;
2057           immediate |= (instr_lo & 0x0000ffff);
2058                       offset = calc_fixup (irelscan->r_addend, 0, sec);
2059                       immediate -= offset;
2060                       irelscan->r_addend -= offset;
2061                     }
2062                 }
2063               else if (ELF32_R_TYPE (irelscan->r_info) == (int) R_MICROBLAZE_64_PCREL)
2064                 {
2065                   isym = isymbuf + ELF32_R_SYM (irelscan->r_info);
2066
2067                   /* Look at the reloc only if the value has been resolved.  */
2068                   if (isym->st_shndx == shndx
2069                       && (ELF32_ST_TYPE (isym->st_info) == STT_SECTION))
2070                     {
2071                       bfd_vma immediate;
2072                       bfd_vma target_address;
2073
2074                       if (ocontents == NULL)
2075                         {
2076                           if (elf_section_data (o)->this_hdr.contents != NULL)
2077                             ocontents = elf_section_data (o)->this_hdr.contents;
2078                           else
2079                             {
2080                               /* We always cache the section contents.
2081                                  Perhaps, if info->keep_memory is FALSE, we
2082                                  should free them, if we are permitted to.  */
2083                               if (o->rawsize == 0)
2084                                 o->rawsize = o->size;
2085                               ocontents = (bfd_byte *) bfd_malloc (o->rawsize);
2086                               if (ocontents == NULL)
2087                                 goto error_return;
2088                               if (!bfd_get_section_contents (abfd, o, ocontents,
2089                                                              (file_ptr) 0,
2090                                                              o->rawsize))
2091                                 goto error_return;
2092                               elf_section_data (o)->this_hdr.contents = ocontents;
2093                             }
2094                         }
2095           unsigned long instr_hi =  bfd_get_32 (abfd, ocontents
2096                                                 + irelscan->r_offset);
2097           unsigned long instr_lo =  bfd_get_32 (abfd, ocontents
2098                                                 + irelscan->r_offset
2099                                                 + INST_WORD_SIZE);
2100           immediate = (instr_hi & 0x0000ffff) << 16;
2101           immediate |= (instr_lo & 0x0000ffff);
2102                       target_address = immediate;
2103                       offset = calc_fixup (target_address, 0, sec);
2104                       immediate -= offset;
2105                       irelscan->r_addend -= offset;
2106           microblaze_bfd_write_imm_value_64 (abfd, ocontents
2107                                              + irelscan->r_offset, immediate);
2108                     }
2109                 }
2110             }
2111         }
2112
2113       /* Adjust the local symbols defined in this section.  */
2114       isymend = isymbuf + symtab_hdr->sh_info;
2115       for (isym = isymbuf; isym < isymend; isym++)
2116         {
2117           if (isym->st_shndx == shndx)
2118             {
2119               isym->st_value -= calc_fixup (isym->st_value, 0, sec);
2120               if (isym->st_size)
2121                 isym->st_size -= calc_fixup (isym->st_value, isym->st_size, sec);
2122             }
2123         }
2124
2125       /* Now adjust the global symbols defined in this section.  */
2126       isym = isymbuf + symtab_hdr->sh_info;
2127       symcount =  (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)) - symtab_hdr->sh_info;
2128       for (sym_index = 0; sym_index < symcount; sym_index++)
2129         {
2130           sym_hash = elf_sym_hashes (abfd)[sym_index];
2131           if ((sym_hash->root.type == bfd_link_hash_defined
2132                   || sym_hash->root.type == bfd_link_hash_defweak)
2133               && sym_hash->root.u.def.section == sec)
2134             {
2135               sym_hash->root.u.def.value -= calc_fixup (sym_hash->root.u.def.value,
2136                                                         0, sec);
2137               if (sym_hash->size)
2138                 sym_hash->size -= calc_fixup (sym_hash->root.u.def.value,
2139                                               sym_hash->size, sec);
2140             }
2141         }
2142
2143       /* Physically move the code and change the cooked size.  */
2144       dest = sec->relax[0].addr;
2145       for (i = 0; i < sec->relax_count; i++)
2146         {
2147           int len;
2148           src = sec->relax[i].addr + sec->relax[i].size;
2149           len = sec->relax[i+1].addr - sec->relax[i].addr - sec->relax[i].size;
2150
2151           memmove (contents + dest, contents + src, len);
2152           sec->size -= sec->relax[i].size;
2153           dest += len;
2154         }
2155
2156       elf_section_data (sec)->relocs = internal_relocs;
2157       free_relocs = NULL;
2158
2159       elf_section_data (sec)->this_hdr.contents = contents;
2160       free_contents = NULL;
2161
2162       symtab_hdr->contents = (bfd_byte *) isymbuf;
2163     }
2164
2165   if (free_relocs != NULL)
2166     {
2167       free (free_relocs);
2168       free_relocs = NULL;
2169     }
2170
2171   if (free_contents != NULL)
2172     {
2173       if (!link_info->keep_memory)
2174         free (free_contents);
2175       else
2176         /* Cache the section contents for elf_link_input_bfd.  */
2177         elf_section_data (sec)->this_hdr.contents = contents;
2178       free_contents = NULL;
2179     }
2180
2181   if (sec->relax_count == 0)
2182     {
2183       *again = FALSE;
2184       free (sec->relax);
2185       sec->relax = NULL;
2186     }
2187   else
2188     *again = TRUE;
2189   return TRUE;
2190
2191  error_return:
2192   if (free_relocs != NULL)
2193     free (free_relocs);
2194   if (free_contents != NULL)
2195     free (free_contents);
2196   if (sec->relax != NULL)
2197     {
2198       free (sec->relax);
2199       sec->relax = NULL;
2200       sec->relax_count = 0;
2201     }
2202   return FALSE;
2203 }
2204
2205 /* Return the section that should be marked against GC for a given
2206    relocation.  */
2207
2208 static asection *
2209 microblaze_elf_gc_mark_hook (asection *sec,
2210                              struct bfd_link_info * info,
2211                              Elf_Internal_Rela * rel,
2212                              struct elf_link_hash_entry * h,
2213                              Elf_Internal_Sym * sym)
2214 {
2215   if (h != NULL)
2216     switch (ELF32_R_TYPE (rel->r_info))
2217       {
2218       case R_MICROBLAZE_GNU_VTINHERIT:
2219       case R_MICROBLAZE_GNU_VTENTRY:
2220         return NULL;
2221       }
2222
2223   return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
2224 }
2225
2226 /* Update the got entry reference counts for the section being removed.  */
2227
2228 static bfd_boolean
2229 microblaze_elf_gc_sweep_hook (bfd * abfd ATTRIBUTE_UNUSED,
2230                               struct bfd_link_info * info ATTRIBUTE_UNUSED,
2231                               asection * sec ATTRIBUTE_UNUSED,
2232                               const Elf_Internal_Rela * relocs ATTRIBUTE_UNUSED)
2233 {
2234   return TRUE;
2235 }
2236
2237 /* PIC support.  */
2238
2239 #define PLT_ENTRY_SIZE 16
2240
2241 #define PLT_ENTRY_WORD_0  0xb0000000          /* "imm 0".  */
2242 #define PLT_ENTRY_WORD_1  0xe9940000          /* "lwi r12,r20,0" - relocated to lwi r12,r20,func@GOT.  */
2243 #define PLT_ENTRY_WORD_1_NOPIC  0xe9800000    /* "lwi r12,r0,0" - non-PIC object.  */
2244 #define PLT_ENTRY_WORD_2  0x98186000          /* "brad r12".  */
2245 #define PLT_ENTRY_WORD_3  0x80000000          /* "nop".  */
2246
2247 /* Create .got, .gotplt, and .rela.got sections in DYNOBJ, and set up
2248    shortcuts to them in our hash table.  */
2249
2250 static bfd_boolean
2251 create_got_section (bfd *dynobj, struct bfd_link_info *info)
2252 {
2253   struct elf32_mb_link_hash_table *htab;
2254
2255   if (! _bfd_elf_create_got_section (dynobj, info))
2256     return FALSE;
2257   htab = elf32_mb_hash_table (info);
2258   if (htab == NULL)
2259     return FALSE;
2260
2261   htab->sgot = bfd_get_linker_section (dynobj, ".got");
2262   htab->sgotplt = bfd_get_linker_section (dynobj, ".got.plt");
2263   if (!htab->sgot || !htab->sgotplt)
2264     return FALSE;
2265
2266   if ((htab->srelgot = bfd_get_linker_section (dynobj, ".rela.got")) == NULL)
2267     htab->srelgot = bfd_make_section_anyway (dynobj, ".rela.got");
2268   if (htab->srelgot == NULL
2269       || ! bfd_set_section_flags (dynobj, htab->srelgot, SEC_ALLOC
2270                                   | SEC_LOAD
2271                                   | SEC_HAS_CONTENTS
2272                                   | SEC_IN_MEMORY
2273                                   | SEC_LINKER_CREATED
2274                                   | SEC_READONLY)
2275       || ! bfd_set_section_alignment (dynobj, htab->srelgot, 2))
2276     return FALSE;
2277   return TRUE;
2278 }
2279
2280 static bfd_boolean
2281 update_local_sym_info (bfd *abfd,
2282                        Elf_Internal_Shdr *symtab_hdr,
2283                        unsigned long r_symndx,
2284                        unsigned int tls_type)
2285 {
2286   bfd_signed_vma *local_got_refcounts = elf_local_got_refcounts (abfd);
2287   unsigned char *local_got_tls_masks;
2288
2289   if (local_got_refcounts == NULL)
2290     {
2291       bfd_size_type size = symtab_hdr->sh_info;
2292
2293       size *= (sizeof (*local_got_refcounts) + sizeof (*local_got_tls_masks));
2294       local_got_refcounts = bfd_zalloc (abfd, size);
2295       if (local_got_refcounts == NULL)
2296         return FALSE;
2297       elf_local_got_refcounts (abfd) = local_got_refcounts;
2298     }
2299
2300   local_got_tls_masks =
2301          (unsigned char *) (local_got_refcounts + symtab_hdr->sh_info);
2302   local_got_tls_masks[r_symndx] |= tls_type;
2303   local_got_refcounts[r_symndx] += 1;
2304
2305   return TRUE;
2306 }
2307 /* Look through the relocs for a section during the first phase.  */
2308
2309 static bfd_boolean
2310 microblaze_elf_check_relocs (bfd * abfd,
2311                              struct bfd_link_info * info,
2312                              asection * sec,
2313                              const Elf_Internal_Rela * relocs)
2314 {
2315   Elf_Internal_Shdr *           symtab_hdr;
2316   struct elf_link_hash_entry ** sym_hashes;
2317   struct elf_link_hash_entry ** sym_hashes_end;
2318   const Elf_Internal_Rela *     rel;
2319   const Elf_Internal_Rela *     rel_end;
2320   struct elf32_mb_link_hash_table *htab;
2321   asection *sreloc = NULL;
2322
2323   if (bfd_link_relocatable (info))
2324     return TRUE;
2325
2326   htab = elf32_mb_hash_table (info);
2327   if (htab == NULL)
2328     return FALSE;
2329
2330   symtab_hdr = & elf_tdata (abfd)->symtab_hdr;
2331   sym_hashes = elf_sym_hashes (abfd);
2332   sym_hashes_end = sym_hashes + symtab_hdr->sh_size / sizeof (Elf32_External_Sym);
2333   if (!elf_bad_symtab (abfd))
2334     sym_hashes_end -= symtab_hdr->sh_info;
2335
2336   rel_end = relocs + sec->reloc_count;
2337
2338   for (rel = relocs; rel < rel_end; rel++)
2339     {
2340       unsigned int r_type;
2341       struct elf_link_hash_entry * h;
2342       unsigned long r_symndx;
2343       unsigned char tls_type = 0;
2344
2345       r_symndx = ELF32_R_SYM (rel->r_info);
2346       r_type = ELF32_R_TYPE (rel->r_info);
2347
2348       if (r_symndx < symtab_hdr->sh_info)
2349         h = NULL;
2350       else
2351         {
2352           h = sym_hashes [r_symndx - symtab_hdr->sh_info];
2353
2354           /* PR15323, ref flags aren't set for references in the same
2355              object.  */
2356           h->root.non_ir_ref = 1;
2357         }
2358
2359       switch (r_type)
2360         {
2361           /* This relocation describes the C++ object vtable hierarchy.
2362              Reconstruct it for later use during GC.  */
2363         case R_MICROBLAZE_GNU_VTINHERIT:
2364           if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
2365             return FALSE;
2366           break;
2367
2368           /* This relocation describes which C++ vtable entries are actually
2369              used.  Record for later use during GC.  */
2370         case R_MICROBLAZE_GNU_VTENTRY:
2371           if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
2372             return FALSE;
2373           break;
2374
2375           /* This relocation requires .plt entry.  */
2376         case R_MICROBLAZE_PLT_64:
2377           if (h != NULL)
2378             {
2379               h->needs_plt = 1;
2380               h->plt.refcount += 1;
2381             }
2382           break;
2383
2384           /* This relocation requires .got entry.  */
2385         case R_MICROBLAZE_TLSGD:
2386           tls_type |= (TLS_TLS | TLS_GD);
2387           goto dogottls;
2388         case R_MICROBLAZE_TLSLD:
2389           tls_type |= (TLS_TLS | TLS_LD);
2390           /* Fall through.  */
2391         dogottls:
2392           sec->has_tls_reloc = 1;
2393           /* Fall through.  */
2394         case R_MICROBLAZE_GOT_64:
2395           if (htab->sgot == NULL)
2396             {
2397               if (htab->elf.dynobj == NULL)
2398                 htab->elf.dynobj = abfd;
2399               if (!create_got_section (htab->elf.dynobj, info))
2400                 return FALSE;
2401             }
2402           if (h != NULL)
2403             {
2404               h->got.refcount += 1;
2405               elf32_mb_hash_entry (h)->tls_mask |= tls_type;
2406             }
2407           else
2408             {
2409               if (! update_local_sym_info(abfd, symtab_hdr, r_symndx, tls_type) )
2410                 return FALSE;
2411             }
2412           break;
2413
2414         case R_MICROBLAZE_64:
2415         case R_MICROBLAZE_64_PCREL:
2416         case R_MICROBLAZE_32:
2417           {
2418             if (h != NULL && !bfd_link_pic (info))
2419               {
2420                 /* we may need a copy reloc.  */
2421                 h->non_got_ref = 1;
2422
2423                 /* we may also need a .plt entry.  */
2424                 h->plt.refcount += 1;
2425                 if (ELF32_R_TYPE (rel->r_info) != R_MICROBLAZE_64_PCREL)
2426                   h->pointer_equality_needed = 1;
2427               }
2428
2429
2430             /* If we are creating a shared library, and this is a reloc
2431                against a global symbol, or a non PC relative reloc
2432                against a local symbol, then we need to copy the reloc
2433                into the shared library.  However, if we are linking with
2434                -Bsymbolic, we do not need to copy a reloc against a
2435                global symbol which is defined in an object we are
2436                including in the link (i.e., DEF_REGULAR is set).  At
2437                this point we have not seen all the input files, so it is
2438                possible that DEF_REGULAR is not set now but will be set
2439                later (it is never cleared).  In case of a weak definition,
2440                DEF_REGULAR may be cleared later by a strong definition in
2441                a shared library.  We account for that possibility below by
2442                storing information in the relocs_copied field of the hash
2443                table entry.  A similar situation occurs when creating
2444                shared libraries and symbol visibility changes render the
2445                symbol local.
2446
2447                If on the other hand, we are creating an executable, we
2448                may need to keep relocations for symbols satisfied by a
2449                dynamic library if we manage to avoid copy relocs for the
2450                symbol.  */
2451
2452             if ((bfd_link_pic (info)
2453                  && (sec->flags & SEC_ALLOC) != 0
2454                  && (r_type != R_MICROBLAZE_64_PCREL
2455                      || (h != NULL
2456                          && (! info->symbolic
2457                              || h->root.type == bfd_link_hash_defweak
2458                              || !h->def_regular))))
2459                 || (!bfd_link_pic (info)
2460                     && (sec->flags & SEC_ALLOC) != 0
2461                     && h != NULL
2462                     && (h->root.type == bfd_link_hash_defweak
2463                         || !h->def_regular)))
2464               {
2465                 struct elf32_mb_dyn_relocs *p;
2466                 struct elf32_mb_dyn_relocs **head;
2467
2468                 /* When creating a shared object, we must copy these
2469                    relocs into the output file.  We create a reloc
2470                    section in dynobj and make room for the reloc.  */
2471
2472                 if (sreloc == NULL)
2473                   {
2474                     bfd *dynobj;
2475
2476                     if (htab->elf.dynobj == NULL)
2477                       htab->elf.dynobj = abfd;
2478                     dynobj = htab->elf.dynobj;
2479
2480                     sreloc = _bfd_elf_make_dynamic_reloc_section (sec, dynobj,
2481                                                                   2, abfd, 1);
2482                     if (sreloc == NULL)
2483                       return FALSE;
2484                   }
2485
2486                 /* If this is a global symbol, we count the number of
2487                    relocations we need for this symbol.  */
2488                 if (h != NULL)
2489                   head = &((struct elf32_mb_link_hash_entry *) h)->dyn_relocs;
2490                 else
2491                   {
2492                     /* Track dynamic relocs needed for local syms too.
2493                        We really need local syms available to do this
2494                        easily.  Oh well.  */
2495
2496                     asection *s;
2497                     Elf_Internal_Sym *isym;
2498                     void *vpp;
2499
2500                     isym = bfd_sym_from_r_symndx (&htab->sym_sec,
2501                                                   abfd, r_symndx);
2502                     if (isym == NULL)
2503                       return FALSE;
2504
2505                     s = bfd_section_from_elf_index (abfd, isym->st_shndx);
2506                     if (s == NULL)
2507                       return FALSE;
2508
2509                     vpp = &elf_section_data (s)->local_dynrel;
2510                     head = (struct elf32_mb_dyn_relocs **) vpp;
2511                   }
2512
2513                 p = *head;
2514                 if (p == NULL || p->sec != sec)
2515                   {
2516                     bfd_size_type amt = sizeof *p;
2517                     p = ((struct elf32_mb_dyn_relocs *)
2518                          bfd_alloc (htab->elf.dynobj, amt));
2519                     if (p == NULL)
2520                       return FALSE;
2521                     p->next = *head;
2522                     *head = p;
2523                     p->sec = sec;
2524                     p->count = 0;
2525                     p->pc_count = 0;
2526                   }
2527
2528                 p->count += 1;
2529                 if (r_type == R_MICROBLAZE_64_PCREL)
2530                   p->pc_count += 1;
2531               }
2532           }
2533           break;
2534         }
2535     }
2536
2537   return TRUE;
2538 }
2539
2540 static bfd_boolean
2541 microblaze_elf_create_dynamic_sections (bfd *dynobj, struct bfd_link_info *info)
2542 {
2543   struct elf32_mb_link_hash_table *htab;
2544
2545   htab = elf32_mb_hash_table (info);
2546   if (htab == NULL)
2547     return FALSE;
2548
2549   if (!htab->sgot && !create_got_section (dynobj, info))
2550     return FALSE;
2551
2552   if (!_bfd_elf_create_dynamic_sections (dynobj, info))
2553     return FALSE;
2554
2555   htab->splt = bfd_get_linker_section (dynobj, ".plt");
2556   htab->srelplt = bfd_get_linker_section (dynobj, ".rela.plt");
2557   htab->sdynbss = bfd_get_linker_section (dynobj, ".dynbss");
2558   if (!bfd_link_pic (info))
2559     htab->srelbss = bfd_get_linker_section (dynobj, ".rela.bss");
2560
2561   if (!htab->splt || !htab->srelplt || !htab->sdynbss
2562       || (!bfd_link_pic (info) && !htab->srelbss))
2563     abort ();
2564
2565   return TRUE;
2566 }
2567
2568 /* Copy the extra info we tack onto an elf_link_hash_entry.  */
2569
2570 static void
2571 microblaze_elf_copy_indirect_symbol (struct bfd_link_info *info,
2572                                      struct elf_link_hash_entry *dir,
2573                                      struct elf_link_hash_entry *ind)
2574 {
2575   struct elf32_mb_link_hash_entry *edir, *eind;
2576
2577   edir = (struct elf32_mb_link_hash_entry *) dir;
2578   eind = (struct elf32_mb_link_hash_entry *) ind;
2579
2580   if (eind->dyn_relocs != NULL)
2581     {
2582       if (edir->dyn_relocs != NULL)
2583         {
2584           struct elf32_mb_dyn_relocs **pp;
2585           struct elf32_mb_dyn_relocs *p;
2586
2587           if (ind->root.type == bfd_link_hash_indirect)
2588             abort ();
2589
2590           /* Add reloc counts against the weak sym to the strong sym
2591              list.  Merge any entries against the same section.  */
2592           for (pp = &eind->dyn_relocs; (p = *pp) != NULL; )
2593             {
2594               struct elf32_mb_dyn_relocs *q;
2595
2596               for (q = edir->dyn_relocs; q != NULL; q = q->next)
2597                 if (q->sec == p->sec)
2598                   {
2599                     q->pc_count += p->pc_count;
2600                     q->count += p->count;
2601                     *pp = p->next;
2602                     break;
2603                   }
2604               if (q == NULL)
2605                 pp = &p->next;
2606             }
2607           *pp = edir->dyn_relocs;
2608         }
2609
2610       edir->dyn_relocs = eind->dyn_relocs;
2611       eind->dyn_relocs = NULL;
2612     }
2613
2614   edir->tls_mask |= eind->tls_mask;
2615
2616   _bfd_elf_link_hash_copy_indirect (info, dir, ind);
2617 }
2618
2619 static bfd_boolean
2620 microblaze_elf_adjust_dynamic_symbol (struct bfd_link_info *info,
2621                                       struct elf_link_hash_entry *h)
2622 {
2623   struct elf32_mb_link_hash_table *htab;
2624   struct elf32_mb_link_hash_entry * eh;
2625   struct elf32_mb_dyn_relocs *p;
2626   asection *sdynbss, *s;
2627   unsigned int power_of_two;
2628   bfd *dynobj;
2629
2630   htab = elf32_mb_hash_table (info);
2631   if (htab == NULL)
2632     return FALSE;
2633
2634   /* If this is a function, put it in the procedure linkage table.  We
2635      will fill in the contents of the procedure linkage table later,
2636      when we know the address of the .got section.  */
2637   if (h->type == STT_FUNC
2638       || h->needs_plt)
2639     {
2640       if (h->plt.refcount <= 0
2641           || SYMBOL_CALLS_LOCAL (info, h)
2642           || (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
2643               && h->root.type == bfd_link_hash_undefweak))
2644         {
2645           /* This case can occur if we saw a PLT reloc in an input
2646              file, but the symbol was never referred to by a dynamic
2647              object, or if all references were garbage collected.  In
2648              such a case, we don't actually need to build a procedure
2649              linkage table, and we can just do a PC32 reloc instead.  */
2650           h->plt.offset = (bfd_vma) -1;
2651           h->needs_plt = 0;
2652         }
2653
2654       return TRUE;
2655     }
2656   else
2657     /* It's possible that we incorrectly decided a .plt reloc was
2658        needed for an R_MICROBLAZE_64_PCREL reloc to a non-function sym in
2659        check_relocs.  We can't decide accurately between function and
2660        non-function syms in check-relocs;  Objects loaded later in
2661        the link may change h->type.  So fix it now.  */
2662     h->plt.offset = (bfd_vma) -1;
2663
2664   /* If this is a weak symbol, and there is a real definition, the
2665      processor independent code will have arranged for us to see the
2666      real definition first, and we can just use the same value.  */
2667   if (h->u.weakdef != NULL)
2668     {
2669       BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
2670                   || h->u.weakdef->root.type == bfd_link_hash_defweak);
2671       h->root.u.def.section = h->u.weakdef->root.u.def.section;
2672       h->root.u.def.value = h->u.weakdef->root.u.def.value;
2673       return TRUE;
2674     }
2675
2676   /* This is a reference to a symbol defined by a dynamic object which
2677      is not a function.  */
2678
2679   /* If we are creating a shared library, we must presume that the
2680      only references to the symbol are via the global offset table.
2681      For such cases we need not do anything here; the relocations will
2682      be handled correctly by relocate_section.  */
2683   if (bfd_link_pic (info))
2684     return TRUE;
2685
2686   /* If there are no references to this symbol that do not use the
2687      GOT, we don't need to generate a copy reloc.  */
2688   if (!h->non_got_ref)
2689     return TRUE;
2690
2691   /* If -z nocopyreloc was given, we won't generate them either.  */
2692   if (info->nocopyreloc)
2693     {
2694       h->non_got_ref = 0;
2695       return TRUE;
2696     }
2697
2698   eh = (struct elf32_mb_link_hash_entry *) h;
2699   for (p = eh->dyn_relocs; p != NULL; p = p->next)
2700     {
2701       s = p->sec->output_section;
2702       if (s != NULL && (s->flags & SEC_READONLY) != 0)
2703         break;
2704     }
2705
2706   /* If we didn't find any dynamic relocs in read-only sections, then
2707      we'll be keeping the dynamic relocs and avoiding the copy reloc.  */
2708   if (p == NULL)
2709     {
2710       h->non_got_ref = 0;
2711       return TRUE;
2712     }
2713
2714   /* We must allocate the symbol in our .dynbss section, which will
2715      become part of the .bss section of the executable.  There will be
2716      an entry for this symbol in the .dynsym section.  The dynamic
2717      object will contain position independent code, so all references
2718      from the dynamic object to this symbol will go through the global
2719      offset table.  The dynamic linker will use the .dynsym entry to
2720      determine the address it must put in the global offset table, so
2721      both the dynamic object and the regular object will refer to the
2722      same memory location for the variable.  */
2723
2724   /* We must generate a R_MICROBLAZE_COPY reloc to tell the dynamic linker
2725      to copy the initial value out of the dynamic object and into the
2726      runtime process image.  */
2727   dynobj = elf_hash_table (info)->dynobj;
2728   BFD_ASSERT (dynobj != NULL);
2729   if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
2730     {
2731       htab->srelbss->size += sizeof (Elf32_External_Rela);
2732       h->needs_copy = 1;
2733     }
2734
2735   /* We need to figure out the alignment required for this symbol.  I
2736      have no idea how ELF linkers handle this.  */
2737   power_of_two = bfd_log2 (h->size);
2738   if (power_of_two > 3)
2739     power_of_two = 3;
2740
2741   sdynbss = htab->sdynbss;
2742   /* Apply the required alignment.  */
2743   sdynbss->size = BFD_ALIGN (sdynbss->size, (bfd_size_type) (1 << power_of_two));
2744   if (power_of_two > bfd_get_section_alignment (dynobj, sdynbss))
2745     {
2746       if (! bfd_set_section_alignment (dynobj, sdynbss, power_of_two))
2747         return FALSE;
2748     }
2749
2750   /* Define the symbol as being at this point in the section.  */
2751   h->root.u.def.section = sdynbss;
2752   h->root.u.def.value = sdynbss->size;
2753
2754   /* Increment the section size to make room for the symbol.  */
2755   sdynbss->size += h->size;
2756   return TRUE;
2757 }
2758
2759 /* Allocate space in .plt, .got and associated reloc sections for
2760    dynamic relocs.  */
2761
2762 static bfd_boolean
2763 allocate_dynrelocs (struct elf_link_hash_entry *h, void * dat)
2764 {
2765   struct bfd_link_info *info;
2766   struct elf32_mb_link_hash_table *htab;
2767   struct elf32_mb_link_hash_entry *eh;
2768   struct elf32_mb_dyn_relocs *p;
2769
2770   if (h->root.type == bfd_link_hash_indirect)
2771     return TRUE;
2772
2773   info = (struct bfd_link_info *) dat;
2774   htab = elf32_mb_hash_table (info);
2775   if (htab == NULL)
2776     return FALSE;
2777
2778   if (htab->elf.dynamic_sections_created
2779       && h->plt.refcount > 0)
2780     {
2781       /* Make sure this symbol is output as a dynamic symbol.
2782          Undefined weak syms won't yet be marked as dynamic.  */
2783       if (h->dynindx == -1
2784           && !h->forced_local)
2785         {
2786           if (! bfd_elf_link_record_dynamic_symbol (info, h))
2787             return FALSE;
2788         }
2789
2790       if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, bfd_link_pic (info), h))
2791         {
2792           asection *s = htab->splt;
2793
2794           /* The first entry in .plt is reserved.  */
2795           if (s->size == 0)
2796             s->size = PLT_ENTRY_SIZE;
2797
2798           h->plt.offset = s->size;
2799
2800           /* If this symbol is not defined in a regular file, and we are
2801              not generating a shared library, then set the symbol to this
2802              location in the .plt.  This is required to make function
2803              pointers compare as equal between the normal executable and
2804              the shared library.  */
2805           if (! bfd_link_pic (info)
2806               && !h->def_regular)
2807             {
2808               h->root.u.def.section = s;
2809               h->root.u.def.value = h->plt.offset;
2810             }
2811
2812           /* Make room for this entry.  */
2813           s->size += PLT_ENTRY_SIZE;
2814
2815           /* We also need to make an entry in the .got.plt section, which
2816              will be placed in the .got section by the linker script.  */
2817           htab->sgotplt->size += 4;
2818
2819           /* We also need to make an entry in the .rel.plt section.  */
2820           htab->srelplt->size += sizeof (Elf32_External_Rela);
2821         }
2822       else
2823         {
2824           h->plt.offset = (bfd_vma) -1;
2825           h->needs_plt = 0;
2826         }
2827     }
2828   else
2829     {
2830       h->plt.offset = (bfd_vma) -1;
2831       h->needs_plt = 0;
2832     }
2833
2834   eh = (struct elf32_mb_link_hash_entry *) h;
2835   if (h->got.refcount > 0)
2836     {
2837       unsigned int need;
2838       asection *s;
2839
2840       /* Make sure this symbol is output as a dynamic symbol.
2841          Undefined weak syms won't yet be marked as dynamic.  */
2842       if (h->dynindx == -1
2843           && !h->forced_local)
2844         {
2845           if (! bfd_elf_link_record_dynamic_symbol (info, h))
2846             return FALSE;
2847         }
2848
2849       need = 0;
2850       if ((eh->tls_mask & TLS_TLS) != 0)
2851         {
2852           /* Handle TLS Symbol */
2853           if ((eh->tls_mask & TLS_LD) != 0)
2854             {
2855               if (!eh->elf.def_dynamic)
2856                 /* We'll just use htab->tlsld_got.offset.  This should
2857                    always be the case.  It's a little odd if we have
2858                    a local dynamic reloc against a non-local symbol.  */
2859                 htab->tlsld_got.refcount += 1;
2860               else
2861                 need += 8;
2862             }
2863           if ((eh->tls_mask & TLS_GD) != 0)
2864             need += 8;
2865         }
2866       else
2867         {
2868           /* Regular (non-TLS) symbol */
2869           need += 4;
2870         }
2871       if (need == 0)
2872         {
2873           h->got.offset = (bfd_vma) -1;
2874         }
2875       else
2876         {
2877           s = htab->sgot;
2878           h->got.offset = s->size;
2879           s->size += need;
2880           htab->srelgot->size += need * (sizeof (Elf32_External_Rela) / 4);
2881         }
2882     }
2883   else
2884     h->got.offset = (bfd_vma) -1;
2885
2886   if (eh->dyn_relocs == NULL)
2887     return TRUE;
2888
2889   /* In the shared -Bsymbolic case, discard space allocated for
2890      dynamic pc-relative relocs against symbols which turn out to be
2891      defined in regular objects.  For the normal shared case, discard
2892      space for pc-relative relocs that have become local due to symbol
2893      visibility changes.  */
2894
2895   if (bfd_link_pic (info))
2896     {
2897       if (h->def_regular
2898           && (h->forced_local
2899               || info->symbolic))
2900         {
2901           struct elf32_mb_dyn_relocs **pp;
2902
2903           for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
2904             {
2905               p->count -= p->pc_count;
2906               p->pc_count = 0;
2907               if (p->count == 0)
2908                 *pp = p->next;
2909               else
2910                 pp = &p->next;
2911             }
2912         }
2913     }
2914   else
2915     {
2916       /* For the non-shared case, discard space for relocs against
2917          symbols which turn out to need copy relocs or are not
2918          dynamic.  */
2919
2920       if (!h->non_got_ref
2921           && ((h->def_dynamic
2922                && !h->def_regular)
2923               || (htab->elf.dynamic_sections_created
2924                   && (h->root.type == bfd_link_hash_undefweak
2925                       || h->root.type == bfd_link_hash_undefined))))
2926         {
2927           /* Make sure this symbol is output as a dynamic symbol.
2928              Undefined weak syms won't yet be marked as dynamic.  */
2929           if (h->dynindx == -1
2930               && !h->forced_local)
2931             {
2932               if (! bfd_elf_link_record_dynamic_symbol (info, h))
2933                 return FALSE;
2934             }
2935
2936           /* If that succeeded, we know we'll be keeping all the
2937              relocs.  */
2938           if (h->dynindx != -1)
2939             goto keep;
2940         }
2941
2942       eh->dyn_relocs = NULL;
2943
2944     keep: ;
2945     }
2946
2947   /* Finally, allocate space.  */
2948   for (p = eh->dyn_relocs; p != NULL; p = p->next)
2949     {
2950       asection *sreloc = elf_section_data (p->sec)->sreloc;
2951       sreloc->size += p->count * sizeof (Elf32_External_Rela);
2952     }
2953
2954   return TRUE;
2955 }
2956
2957 /* Set the sizes of the dynamic sections.  */
2958
2959 static bfd_boolean
2960 microblaze_elf_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
2961                                       struct bfd_link_info *info)
2962 {
2963   struct elf32_mb_link_hash_table *htab;
2964   bfd *dynobj;
2965   asection *s;
2966   bfd *ibfd;
2967
2968   htab = elf32_mb_hash_table (info);
2969   if (htab == NULL)
2970     return FALSE;
2971
2972   dynobj = htab->elf.dynobj;
2973   BFD_ASSERT (dynobj != NULL);
2974
2975   /* Set up .got offsets for local syms, and space for local dynamic
2976      relocs.  */
2977   for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
2978     {
2979       bfd_signed_vma *local_got;
2980       bfd_signed_vma *end_local_got;
2981       bfd_size_type locsymcount;
2982       Elf_Internal_Shdr *symtab_hdr;
2983       unsigned char *lgot_masks;
2984       asection *srel;
2985
2986       if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour)
2987         continue;
2988
2989       for (s = ibfd->sections; s != NULL; s = s->next)
2990         {
2991           struct elf32_mb_dyn_relocs *p;
2992
2993           for (p = ((struct elf32_mb_dyn_relocs *)
2994                     elf_section_data (s)->local_dynrel);
2995                p != NULL;
2996                p = p->next)
2997             {
2998               if (!bfd_is_abs_section (p->sec)
2999                   && bfd_is_abs_section (p->sec->output_section))
3000                 {
3001                   /* Input section has been discarded, either because
3002                      it is a copy of a linkonce section or due to
3003                      linker script /DISCARD/, so we'll be discarding
3004                      the relocs too.  */
3005                 }
3006               else if (p->count != 0)
3007                 {
3008                   srel = elf_section_data (p->sec)->sreloc;
3009                   srel->size += p->count * sizeof (Elf32_External_Rela);
3010                   if ((p->sec->output_section->flags & SEC_READONLY) != 0)
3011                     info->flags |= DF_TEXTREL;
3012                 }
3013             }
3014         }
3015
3016       local_got = elf_local_got_refcounts (ibfd);
3017       if (!local_got)
3018         continue;
3019
3020       symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
3021       locsymcount = symtab_hdr->sh_info;
3022       end_local_got = local_got + locsymcount;
3023       lgot_masks = (unsigned char *) end_local_got;
3024       s = htab->sgot;
3025       srel = htab->srelgot;
3026
3027       for (; local_got < end_local_got; ++local_got, ++lgot_masks)
3028         {
3029           if (*local_got > 0)
3030             {
3031               unsigned int need = 0;
3032               if ((*lgot_masks & TLS_TLS) != 0)
3033                 {
3034                   if ((*lgot_masks & TLS_GD) != 0)
3035                     need += 8;
3036                   if ((*lgot_masks & TLS_LD) != 0)
3037                     htab->tlsld_got.refcount += 1;
3038                 }
3039               else
3040                 need += 4;
3041
3042               if (need == 0)
3043                 {
3044                   *local_got = (bfd_vma) -1;
3045                 }
3046               else
3047                 {
3048                   *local_got = s->size;
3049                   s->size += need;
3050                   if (bfd_link_pic (info))
3051                     srel->size += need * (sizeof (Elf32_External_Rela) / 4);
3052                 }
3053             }
3054           else
3055             *local_got = (bfd_vma) -1;
3056         }
3057     }
3058
3059   /* Allocate global sym .plt and .got entries, and space for global
3060      sym dynamic relocs.  */
3061   elf_link_hash_traverse (elf_hash_table (info), allocate_dynrelocs, info);
3062
3063   if (htab->tlsld_got.refcount > 0)
3064     {
3065       htab->tlsld_got.offset = htab->sgot->size;
3066       htab->sgot->size += 8;
3067       if (bfd_link_pic (info))
3068         htab->srelgot->size += sizeof (Elf32_External_Rela);
3069     }
3070   else
3071     htab->tlsld_got.offset = (bfd_vma) -1;
3072
3073   if (elf_hash_table (info)->dynamic_sections_created)
3074     {
3075       /* Make space for the trailing nop in .plt.  */
3076       if (htab->splt->size > 0)
3077         htab->splt->size += 4;
3078     }
3079
3080   /* The check_relocs and adjust_dynamic_symbol entry points have
3081      determined the sizes of the various dynamic sections.  Allocate
3082      memory for them.  */
3083   for (s = dynobj->sections; s != NULL; s = s->next)
3084     {
3085       const char *name;
3086       bfd_boolean strip = FALSE;
3087
3088       if ((s->flags & SEC_LINKER_CREATED) == 0)
3089         continue;
3090
3091       /* It's OK to base decisions on the section name, because none
3092          of the dynobj section names depend upon the input files.  */
3093       name = bfd_get_section_name (dynobj, s);
3094
3095       if (strncmp (name, ".rela", 5) == 0)
3096         {
3097           if (s->size == 0)
3098             {
3099               /* If we don't need this section, strip it from the
3100                  output file.  This is to handle .rela.bss and
3101                  .rela.plt.  We must create it in
3102                  create_dynamic_sections, because it must be created
3103                  before the linker maps input sections to output
3104                  sections.  The linker does that before
3105                  adjust_dynamic_symbol is called, and it is that
3106                  function which decides whether anything needs to go
3107                  into these sections.  */
3108               strip = TRUE;
3109             }
3110           else
3111             {
3112               /* We use the reloc_count field as a counter if we need
3113                  to copy relocs into the output file.  */
3114               s->reloc_count = 0;
3115             }
3116         }
3117       else if (s != htab->splt && s != htab->sgot && s != htab->sgotplt)
3118         {
3119           /* It's not one of our sections, so don't allocate space.  */
3120           continue;
3121         }
3122
3123       if (strip)
3124         {
3125           s->flags |= SEC_EXCLUDE;
3126           continue;
3127         }
3128
3129       /* Allocate memory for the section contents.  */
3130       /* FIXME: This should be a call to bfd_alloc not bfd_zalloc.
3131          Unused entries should be reclaimed before the section's contents
3132          are written out, but at the moment this does not happen.  Thus in
3133          order to prevent writing out garbage, we initialise the section's
3134          contents to zero.  */
3135       s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->size);
3136       if (s->contents == NULL && s->size != 0)
3137         return FALSE;
3138     }
3139
3140   if (elf_hash_table (info)->dynamic_sections_created)
3141     {
3142       /* Add some entries to the .dynamic section.  We fill in the
3143          values later, in microblaze_elf_finish_dynamic_sections, but we
3144          must add the entries now so that we get the correct size for
3145          the .dynamic section.  The DT_DEBUG entry is filled in by the
3146          dynamic linker and used by the debugger.  */
3147 #define add_dynamic_entry(TAG, VAL)                     \
3148       _bfd_elf_add_dynamic_entry (info, TAG, VAL)
3149
3150       if (bfd_link_executable (info))
3151         {
3152           if (!add_dynamic_entry (DT_DEBUG, 0))
3153             return FALSE;
3154         }
3155
3156       if (!add_dynamic_entry (DT_RELA, 0)
3157           || !add_dynamic_entry (DT_RELASZ, 0)
3158           || !add_dynamic_entry (DT_RELAENT, sizeof (Elf32_External_Rela)))
3159         return FALSE;
3160
3161       if (htab->splt->size != 0)
3162         {
3163           if (!add_dynamic_entry (DT_PLTGOT, 0)
3164               || !add_dynamic_entry (DT_PLTRELSZ, 0)
3165               || !add_dynamic_entry (DT_PLTREL, DT_RELA)
3166               || !add_dynamic_entry (DT_JMPREL, 0)
3167               || !add_dynamic_entry (DT_BIND_NOW, 1))
3168             return FALSE;
3169         }
3170
3171       if (info->flags & DF_TEXTREL)
3172         {
3173           if (!add_dynamic_entry (DT_TEXTREL, 0))
3174             return FALSE;
3175         }
3176     }
3177 #undef add_dynamic_entry
3178   return TRUE;
3179 }
3180
3181 /* Finish up dynamic symbol handling.  We set the contents of various
3182    dynamic sections here.  */
3183
3184 static bfd_boolean
3185 microblaze_elf_finish_dynamic_symbol (bfd *output_bfd,
3186                                       struct bfd_link_info *info,
3187                                       struct elf_link_hash_entry *h,
3188                                       Elf_Internal_Sym *sym)
3189 {
3190   struct elf32_mb_link_hash_table *htab;
3191   struct elf32_mb_link_hash_entry *eh = elf32_mb_hash_entry(h);
3192
3193   htab = elf32_mb_hash_table (info);
3194   if (htab == NULL)
3195     return FALSE;
3196
3197   if (h->plt.offset != (bfd_vma) -1)
3198     {
3199       asection *splt;
3200       asection *srela;
3201       asection *sgotplt;
3202       Elf_Internal_Rela rela;
3203       bfd_byte *loc;
3204       bfd_vma plt_index;
3205       bfd_vma got_offset;
3206       bfd_vma got_addr;
3207
3208       /* This symbol has an entry in the procedure linkage table.  Set
3209          it up.  */
3210       BFD_ASSERT (h->dynindx != -1);
3211
3212       splt = htab->splt;
3213       srela = htab->srelplt;
3214       sgotplt = htab->sgotplt;
3215       BFD_ASSERT (splt != NULL && srela != NULL && sgotplt != NULL);
3216
3217       plt_index = h->plt.offset / PLT_ENTRY_SIZE - 1; /* first entry reserved.  */
3218       got_offset = (plt_index + 3) * 4; /* 3 reserved ???  */
3219       got_addr = got_offset;
3220
3221       /* For non-PIC objects we need absolute address of the GOT entry.  */
3222       if (!bfd_link_pic (info))
3223         got_addr += htab->sgotplt->output_section->vma + sgotplt->output_offset;
3224
3225       /* Fill in the entry in the procedure linkage table.  */
3226       bfd_put_32 (output_bfd, PLT_ENTRY_WORD_0 + ((got_addr >> 16) & 0xffff),
3227                   splt->contents + h->plt.offset);
3228       if (bfd_link_pic (info))
3229         bfd_put_32 (output_bfd, PLT_ENTRY_WORD_1 + (got_addr & 0xffff),
3230                     splt->contents + h->plt.offset + 4);
3231       else
3232         bfd_put_32 (output_bfd, PLT_ENTRY_WORD_1_NOPIC + (got_addr & 0xffff),
3233                     splt->contents + h->plt.offset + 4);
3234       bfd_put_32 (output_bfd, (bfd_vma) PLT_ENTRY_WORD_2,
3235                   splt->contents + h->plt.offset + 8);
3236       bfd_put_32 (output_bfd, (bfd_vma) PLT_ENTRY_WORD_3,
3237                   splt->contents + h->plt.offset + 12);
3238
3239       /* Any additions to the .got section??? */
3240       /*      bfd_put_32 (output_bfd,
3241               splt->output_section->vma + splt->output_offset + h->plt.offset + 4,
3242               sgotplt->contents + got_offset); */
3243
3244       /* Fill in the entry in the .rela.plt section.  */
3245       rela.r_offset = (sgotplt->output_section->vma
3246                        + sgotplt->output_offset
3247                        + got_offset);
3248       rela.r_info = ELF32_R_INFO (h->dynindx, R_MICROBLAZE_JUMP_SLOT);
3249       rela.r_addend = 0;
3250       loc = srela->contents;
3251       loc += plt_index * sizeof (Elf32_External_Rela);
3252       bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
3253
3254       if (!h->def_regular)
3255         {
3256           /* Mark the symbol as undefined, rather than as defined in
3257              the .plt section.  Zero the value.  */
3258           sym->st_shndx = SHN_UNDEF;
3259           sym->st_value = 0;
3260         }
3261     }
3262
3263   /* h->got.refcount to be checked ? */
3264   if (h->got.offset != (bfd_vma) -1 &&
3265       ! ((h->got.offset & 1) ||
3266           IS_TLS_LD(eh->tls_mask) || IS_TLS_GD(eh->tls_mask)))
3267     {
3268       asection *sgot;
3269       asection *srela;
3270       bfd_vma offset;
3271
3272       /* This symbol has an entry in the global offset table.  Set it
3273          up.  */
3274
3275       sgot = htab->sgot;
3276       srela = htab->srelgot;
3277       BFD_ASSERT (sgot != NULL && srela != NULL);
3278
3279       offset = (sgot->output_section->vma + sgot->output_offset
3280                 + (h->got.offset &~ (bfd_vma) 1));
3281
3282       /* If this is a -Bsymbolic link, and the symbol is defined
3283          locally, we just want to emit a RELATIVE reloc.  Likewise if
3284          the symbol was forced to be local because of a version file.
3285          The entry in the global offset table will already have been
3286          initialized in the relocate_section function.  */
3287       if (bfd_link_pic (info)
3288           && ((info->symbolic && h->def_regular)
3289               || h->dynindx == -1))
3290         {
3291           asection *sec = h->root.u.def.section;
3292           microblaze_elf_output_dynamic_relocation (output_bfd,
3293                                                     srela, srela->reloc_count++,
3294                                                     /* symindex= */ 0,
3295                                                     R_MICROBLAZE_REL, offset,
3296                                                     h->root.u.def.value
3297                                                     + sec->output_section->vma
3298                                                     + sec->output_offset);
3299         }
3300       else
3301         {
3302           microblaze_elf_output_dynamic_relocation (output_bfd,
3303                                                     srela, srela->reloc_count++,
3304                                                     h->dynindx,
3305                                                     R_MICROBLAZE_GLOB_DAT,
3306                                                     offset, 0);
3307         }
3308
3309       bfd_put_32 (output_bfd, (bfd_vma) 0,
3310                   sgot->contents + (h->got.offset &~ (bfd_vma) 1));
3311     }
3312
3313   if (h->needs_copy)
3314     {
3315       asection *s;
3316       Elf_Internal_Rela rela;
3317       bfd_byte *loc;
3318
3319       /* This symbols needs a copy reloc.  Set it up.  */
3320
3321       BFD_ASSERT (h->dynindx != -1);
3322
3323       s = bfd_get_linker_section (htab->elf.dynobj, ".rela.bss");
3324       BFD_ASSERT (s != NULL);
3325
3326       rela.r_offset = (h->root.u.def.value
3327                        + h->root.u.def.section->output_section->vma
3328                        + h->root.u.def.section->output_offset);
3329       rela.r_info = ELF32_R_INFO (h->dynindx, R_MICROBLAZE_COPY);
3330       rela.r_addend = 0;
3331       loc = s->contents + s->reloc_count++ * sizeof (Elf32_External_Rela);
3332       bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
3333     }
3334
3335   /* Mark some specially defined symbols as absolute.  */
3336   if (h == htab->elf.hdynamic
3337       || h == htab->elf.hgot
3338       || h == htab->elf.hplt)
3339     sym->st_shndx = SHN_ABS;
3340
3341   return TRUE;
3342 }
3343
3344
3345 /* Finish up the dynamic sections.  */
3346
3347 static bfd_boolean
3348 microblaze_elf_finish_dynamic_sections (bfd *output_bfd,
3349                                         struct bfd_link_info *info)
3350 {
3351   bfd *dynobj;
3352   asection *sdyn, *sgot;
3353   struct elf32_mb_link_hash_table *htab;
3354
3355   htab = elf32_mb_hash_table (info);
3356   if (htab == NULL)
3357     return FALSE;
3358
3359   dynobj = htab->elf.dynobj;
3360
3361   sdyn = bfd_get_linker_section (dynobj, ".dynamic");
3362
3363   if (htab->elf.dynamic_sections_created)
3364     {
3365       asection *splt;
3366       Elf32_External_Dyn *dyncon, *dynconend;
3367
3368       splt = bfd_get_linker_section (dynobj, ".plt");
3369       BFD_ASSERT (splt != NULL && sdyn != NULL);
3370
3371       dyncon = (Elf32_External_Dyn *) sdyn->contents;
3372       dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
3373       for (; dyncon < dynconend; dyncon++)
3374         {
3375           Elf_Internal_Dyn dyn;
3376           const char *name;
3377           bfd_boolean size;
3378
3379           bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
3380
3381           switch (dyn.d_tag)
3382             {
3383             case DT_PLTGOT:   name = ".got.plt"; size = FALSE; break;
3384             case DT_PLTRELSZ: name = ".rela.plt"; size = TRUE; break;
3385             case DT_JMPREL:   name = ".rela.plt"; size = FALSE; break;
3386             case DT_RELA:     name = ".rela.dyn"; size = FALSE; break;
3387             case DT_RELASZ:   name = ".rela.dyn"; size = TRUE; break;
3388             default:      name = NULL; size = FALSE; break;
3389             }
3390
3391           if (name != NULL)
3392             {
3393               asection *s;
3394
3395               s = bfd_get_linker_section (dynobj, name);
3396               if (s == NULL)
3397                 dyn.d_un.d_val = 0;
3398               else
3399                 {
3400                   if (! size)
3401                     dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
3402                   else
3403                     dyn.d_un.d_val = s->size;
3404                 }
3405               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
3406             }
3407         }
3408
3409       /* Clear the first entry in the procedure linkage table,
3410          and put a nop in the last four bytes.  */
3411       if (splt->size > 0)
3412         {
3413           memset (splt->contents, 0, PLT_ENTRY_SIZE);
3414           bfd_put_32 (output_bfd, (bfd_vma) 0x80000000 /* nop.  */,
3415                       splt->contents + splt->size - 4);
3416         }
3417
3418       elf_section_data (splt->output_section)->this_hdr.sh_entsize = 4;
3419     }
3420
3421   /* Set the first entry in the global offset table to the address of
3422      the dynamic section.  */
3423   sgot = bfd_get_linker_section (dynobj, ".got.plt");
3424   if (sgot && sgot->size > 0)
3425     {
3426       if (sdyn == NULL)
3427         bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents);
3428       else
3429         bfd_put_32 (output_bfd,
3430                     sdyn->output_section->vma + sdyn->output_offset,
3431                     sgot->contents);
3432       elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4;
3433     }
3434
3435   if (htab->sgot && htab->sgot->size > 0)
3436     elf_section_data (htab->sgot->output_section)->this_hdr.sh_entsize = 4;
3437
3438   return TRUE;
3439 }
3440
3441 /* Hook called by the linker routine which adds symbols from an object
3442    file.  We use it to put .comm items in .sbss, and not .bss.  */
3443
3444 static bfd_boolean
3445 microblaze_elf_add_symbol_hook (bfd *abfd,
3446                                 struct bfd_link_info *info,
3447                                 Elf_Internal_Sym *sym,
3448                                 const char **namep ATTRIBUTE_UNUSED,
3449                                 flagword *flagsp ATTRIBUTE_UNUSED,
3450                                 asection **secp,
3451                                 bfd_vma *valp)
3452 {
3453   if (sym->st_shndx == SHN_COMMON
3454       && !bfd_link_relocatable (info)
3455       && sym->st_size <= elf_gp_size (abfd))
3456     {
3457       /* Common symbols less than or equal to -G nn bytes are automatically
3458          put into .sbss.  */
3459       *secp = bfd_make_section_old_way (abfd, ".sbss");
3460       if (*secp == NULL
3461           || ! bfd_set_section_flags (abfd, *secp, SEC_IS_COMMON))
3462         return FALSE;
3463
3464       *valp = sym->st_size;
3465     }
3466
3467   return TRUE;
3468 }
3469
3470 #define TARGET_LITTLE_SYM      microblaze_elf32_le_vec
3471 #define TARGET_LITTLE_NAME     "elf32-microblazeel"
3472
3473 #define TARGET_BIG_SYM          microblaze_elf32_vec
3474 #define TARGET_BIG_NAME         "elf32-microblaze"
3475
3476 #define ELF_ARCH                bfd_arch_microblaze
3477 #define ELF_TARGET_ID           MICROBLAZE_ELF_DATA
3478 #define ELF_MACHINE_CODE        EM_MICROBLAZE
3479 #define ELF_MACHINE_ALT1        EM_MICROBLAZE_OLD
3480 #define ELF_MAXPAGESIZE         0x1000
3481 #define elf_info_to_howto       microblaze_elf_info_to_howto
3482 #define elf_info_to_howto_rel   NULL
3483
3484 #define bfd_elf32_bfd_reloc_type_lookup         microblaze_elf_reloc_type_lookup
3485 #define bfd_elf32_bfd_is_local_label_name       microblaze_elf_is_local_label_name
3486 #define elf_backend_relocate_section            microblaze_elf_relocate_section
3487 #define bfd_elf32_bfd_relax_section             microblaze_elf_relax_section
3488 #define bfd_elf32_bfd_merge_private_bfd_data    _bfd_generic_verify_endian_match
3489 #define bfd_elf32_bfd_reloc_name_lookup         microblaze_elf_reloc_name_lookup
3490
3491 #define elf_backend_gc_mark_hook                microblaze_elf_gc_mark_hook
3492 #define elf_backend_gc_sweep_hook               microblaze_elf_gc_sweep_hook
3493 #define elf_backend_check_relocs                microblaze_elf_check_relocs
3494 #define elf_backend_copy_indirect_symbol        microblaze_elf_copy_indirect_symbol
3495 #define bfd_elf32_bfd_link_hash_table_create    microblaze_elf_link_hash_table_create
3496 #define elf_backend_can_gc_sections             1
3497 #define elf_backend_can_refcount                1
3498 #define elf_backend_want_got_plt                1
3499 #define elf_backend_plt_readonly                1
3500 #define elf_backend_got_header_size             12
3501 #define elf_backend_rela_normal                 1
3502
3503 #define elf_backend_adjust_dynamic_symbol       microblaze_elf_adjust_dynamic_symbol
3504 #define elf_backend_create_dynamic_sections     microblaze_elf_create_dynamic_sections
3505 #define elf_backend_finish_dynamic_sections     microblaze_elf_finish_dynamic_sections
3506 #define elf_backend_finish_dynamic_symbol       microblaze_elf_finish_dynamic_symbol
3507 #define elf_backend_size_dynamic_sections       microblaze_elf_size_dynamic_sections
3508 #define elf_backend_add_symbol_hook             microblaze_elf_add_symbol_hook
3509
3510 #include "elf32-target.h"