bfd/elf32-lm32.c

   1 /* Lattice Mico32-specific support for 32-bit ELF
   2    Copyright (C) 2008-2021 Free Software Foundation, Inc.
   3    Contributed by Jon Beniston <[email protected]>
   4
   5    This file is part of BFD, the Binary File Descriptor library.
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 3 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, write to the Free Software
  19    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  20    MA 02110-1301, USA.  */
  21
  22 #include "sysdep.h"
  23 #include "bfd.h"
  24 #include "libbfd.h"
  25 #include "elf-bfd.h"
  26 #include "elf/lm32.h"
  27
  28 #define DEFAULT_STACK_SIZE 0x20000
  29
  30 #define PLT_ENTRY_SIZE 20
  31
  32 #define PLT0_ENTRY_WORD0  0
  33 #define PLT0_ENTRY_WORD1  0
  34 #define PLT0_ENTRY_WORD2  0
  35 #define PLT0_ENTRY_WORD3  0
  36 #define PLT0_ENTRY_WORD4  0
  37
  38 #define PLT0_PIC_ENTRY_WORD0  0
  39 #define PLT0_PIC_ENTRY_WORD1  0
  40 #define PLT0_PIC_ENTRY_WORD2  0
  41 #define PLT0_PIC_ENTRY_WORD3  0
  42 #define PLT0_PIC_ENTRY_WORD4  0
  43
  44 #define ELF_DYNAMIC_INTERPRETER "/usr/lib/libc.so.1"
  45
  46 extern const bfd_target lm32_elf32_fdpic_vec;
  47
  48 #define IS_FDPIC(bfd) ((bfd)->xvec == &lm32_elf32_fdpic_vec)
  49
  50 static bfd_reloc_status_type lm32_elf_gprel_reloc
  51   (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
  52
  53 /* lm32 ELF linker hash table.  */
  54
  55 struct elf_lm32_link_hash_table
  56 {
  57   struct elf_link_hash_table root;
  58
  59   /* Short-cuts to get to dynamic linker sections.  */
  60   asection *sfixup32;
  61   asection *sdynbss;
  62   asection *srelbss;
  63
  64   int relocs32;
  65 };
  66
  67 /* Get the lm32 ELF linker hash table from a link_info structure.  */
  68
  69 #define lm32_elf_hash_table(p) \
  70   ((is_elf_hash_table ((p)->hash)                                       \
  71     && elf_hash_table_id (elf_hash_table (p)) == LM32_ELF_DATA)         \
  72    ? (struct elf_lm32_link_hash_table *) (p)->hash : NULL)
  73
  74 #define lm32fdpic_got_section(info) \
  75   (lm32_elf_hash_table (info)->root.sgot)
  76 #define lm32fdpic_gotrel_section(info) \
  77   (lm32_elf_hash_table (info)->root.srelgot)
  78 #define lm32fdpic_fixup32_section(info) \
  79   (lm32_elf_hash_table (info)->sfixup32)
  80
  81 struct weak_symbol_list
  82 {
  83   const char *name;
  84   struct weak_symbol_list *next;
  85 };
  86
  87 /* Create an lm32 ELF linker hash table.  */
  88
  89 static struct bfd_link_hash_table *
  90 lm32_elf_link_hash_table_create (bfd *abfd)
  91 {
  92   struct elf_lm32_link_hash_table *ret;
  93   size_t amt = sizeof (struct elf_lm32_link_hash_table);
  94
  95   ret = bfd_zmalloc (amt);
  96   if (ret == NULL)
  97     return NULL;
  98
  99   if (!_bfd_elf_link_hash_table_init (&ret->root, abfd,
 100                                       _bfd_elf_link_hash_newfunc,
 101                                       sizeof (struct elf_link_hash_entry),
 102                                       LM32_ELF_DATA))
 103     {
 104       free (ret);
 105       return NULL;
 106     }
 107
 108   return &ret->root.root;
 109 }
 110
 111 /* Add a fixup to the ROFIXUP section.  */
 112
 113 static bfd_vma
 114 _lm32fdpic_add_rofixup (bfd *output_bfd, asection *rofixup, bfd_vma relocation)
 115 {
 116   bfd_vma fixup_offset;
 117
 118   if (rofixup->flags & SEC_EXCLUDE)
 119     return -1;
 120
 121   fixup_offset = rofixup->reloc_count * 4;
 122   if (rofixup->contents)
 123     {
 124       BFD_ASSERT (fixup_offset < rofixup->size);
 125       if (fixup_offset < rofixup->size)
 126       bfd_put_32 (output_bfd, relocation, rofixup->contents + fixup_offset);
 127     }
 128   rofixup->reloc_count++;
 129
 130   return fixup_offset;
 131 }
 132
 133 /* Create .rofixup sections in DYNOBJ, and set up
 134    shortcuts to them in our hash table.  */
 135
 136 static bool
 137 create_rofixup_section (bfd *dynobj, struct bfd_link_info *info)
 138 {
 139   struct elf_lm32_link_hash_table *htab;
 140   htab = lm32_elf_hash_table (info);
 141
 142   if (htab == NULL)
 143     return false;
 144
 145   /* Fixup section for R_LM32_32 relocs.  */
 146   lm32fdpic_fixup32_section (info)
 147     = bfd_make_section_anyway_with_flags (dynobj,
 148                                           ".rofixup",
 149                                           (SEC_ALLOC
 150                                            | SEC_LOAD
 151                                            | SEC_HAS_CONTENTS
 152                                            | SEC_IN_MEMORY
 153                                            | SEC_LINKER_CREATED
 154                                            | SEC_READONLY));
 155   if (lm32fdpic_fixup32_section (info) == NULL
 156       || !bfd_set_section_alignment (lm32fdpic_fixup32_section (info), 2))
 157     return false;
 158
 159   return true;
 160 }
 161
 162 static reloc_howto_type lm32_elf_howto_table [] =
 163 {
 164   /* This reloc does nothing.  */
 165   HOWTO (R_LM32_NONE,               /* type */
 166          0,                         /* rightshift */
 167          3,                         /* size (0 = byte, 1 = short, 2 = long) */
 168          0,                         /* bitsize */
 169          false,                     /* pc_relative */
 170          0,                         /* bitpos */
 171          complain_overflow_dont,    /* complain_on_overflow */
 172          bfd_elf_generic_reloc,     /* special_function */
 173          "R_LM32_NONE",             /* name */
 174          false,                     /* partial_inplace */
 175          0,                         /* src_mask */
 176          0,                         /* dst_mask */
 177          false),                    /* pcrel_offset */
 178
 179   /* An 8 bit absolute relocation.  */
 180   HOWTO (R_LM32_8,                  /* type */
 181          0,                         /* rightshift */
 182          0,                         /* size (0 = byte, 1 = short, 2 = long) */
 183          8,                         /* bitsize */
 184          false,                     /* pc_relative */
 185          0,                         /* bitpos */
 186          complain_overflow_bitfield,/* complain_on_overflow */
 187          bfd_elf_generic_reloc,     /* special_function */
 188          "R_LM32_8",                /* name */
 189          false,                     /* partial_inplace */
 190          0,                         /* src_mask */
 191          0xff,                      /* dst_mask */
 192          false),                    /* pcrel_offset */
 193
 194   /* A 16 bit absolute relocation.  */
 195   HOWTO (R_LM32_16,                 /* type */
 196          0,                         /* rightshift */
 197          1,                         /* size (0 = byte, 1 = short, 2 = long) */
 198          16,                        /* bitsize */
 199          false,                     /* pc_relative */
 200          0,                         /* bitpos */
 201          complain_overflow_bitfield,/* complain_on_overflow */
 202          bfd_elf_generic_reloc,     /* special_function */
 203          "R_LM32_16",               /* name */
 204          false,                     /* partial_inplace */
 205          0,                         /* src_mask */
 206          0xffff,                    /* dst_mask */
 207          false),                    /* pcrel_offset */
 208
 209   /* A 32 bit absolute relocation.  */
 210   HOWTO (R_LM32_32,                 /* type */
 211          0,                         /* rightshift */
 212          2,                         /* size (0 = byte, 1 = short, 2 = long) */
 213          32,                        /* bitsize */
 214          false,                     /* pc_relative */
 215          0,                         /* bitpos */
 216          complain_overflow_bitfield,/* complain_on_overflow */
 217          bfd_elf_generic_reloc,     /* special_function */
 218          "R_LM32_32",               /* name */
 219          false,                     /* partial_inplace */
 220          0,                         /* src_mask */
 221          0xffffffff,                /* dst_mask */
 222          false),                    /* pcrel_offset */
 223
 224   HOWTO (R_LM32_HI16,               /* type */
 225          16,                        /* rightshift */
 226          2,                         /* size (0 = byte, 1 = short, 2 = long) */
 227          16,                        /* bitsize */
 228          false,                     /* pc_relative */
 229          0,                         /* bitpos */
 230          complain_overflow_bitfield,/* complain_on_overflow */
 231          bfd_elf_generic_reloc,     /* special_function */
 232          "R_LM32_HI16",             /* name */
 233          false,                     /* partial_inplace */
 234          0,                         /* src_mask */
 235          0xffff,                    /* dst_mask */
 236          false),                    /* pcrel_offset */
 237
 238   HOWTO (R_LM32_LO16,               /* type */
 239          0,                         /* rightshift */
 240          2,                         /* size (0 = byte, 1 = short, 2 = long) */
 241          16,                        /* bitsize */
 242          false,                     /* pc_relative */
 243          0,                         /* bitpos */
 244          complain_overflow_dont,    /* complain_on_overflow */
 245          bfd_elf_generic_reloc,     /* special_function */
 246          "R_LM32_LO16",             /* name */
 247          false,                     /* partial_inplace */
 248          0,                         /* src_mask */
 249          0xffff,                    /* dst_mask */
 250          false),                    /* pcrel_offset */
 251
 252   HOWTO (R_LM32_GPREL16,            /* type */
 253          0,                         /* rightshift */
 254          2,                         /* size (0 = byte, 1 = short, 2 = long) */
 255          16,                        /* bitsize */
 256          false,                     /* pc_relative */
 257          0,                         /* bitpos */
 258          complain_overflow_dont,    /* complain_on_overflow */
 259          lm32_elf_gprel_reloc,      /* special_function */
 260          "R_LM32_GPREL16",          /* name */
 261          false,                     /* partial_inplace */
 262          0,                         /* src_mask */
 263          0xffff,                    /* dst_mask */
 264          false),                    /* pcrel_offset */
 265
 266   HOWTO (R_LM32_CALL,               /* type */
 267          2,                         /* rightshift */
 268          2,                         /* size (0 = byte, 1 = short, 2 = long) */
 269          26,                        /* bitsize */
 270          true,                      /* pc_relative */
 271          0,                         /* bitpos */
 272          complain_overflow_signed,  /* complain_on_overflow */
 273          bfd_elf_generic_reloc,     /* special_function */
 274          "R_LM32_CALL",             /* name */
 275          false,                     /* partial_inplace */
 276          0,                         /* src_mask */
 277          0x3ffffff,                 /* dst_mask */
 278          true),                     /* pcrel_offset */
 279
 280   HOWTO (R_LM32_BRANCH,             /* type */
 281          2,                         /* rightshift */
 282          2,                         /* size (0 = byte, 1 = short, 2 = long) */
 283          16,                        /* bitsize */
 284          true,                      /* pc_relative */
 285          0,                         /* bitpos */
 286          complain_overflow_signed,  /* complain_on_overflow */
 287          bfd_elf_generic_reloc,     /* special_function */
 288          "R_LM32_BRANCH",           /* name */
 289          false,                     /* partial_inplace */
 290          0,                         /* src_mask */
 291          0xffff,                    /* dst_mask */
 292          true),                     /* pcrel_offset */
 293
 294   /* GNU extension to record C++ vtable hierarchy.  */
 295   HOWTO (R_LM32_GNU_VTINHERIT,      /* type */
 296          0,                         /* rightshift */
 297          2,                         /* size (0 = byte, 1 = short, 2 = long) */
 298          0,                         /* bitsize */
 299          false,                     /* pc_relative */
 300          0,                         /* bitpos */
 301          complain_overflow_dont,    /* complain_on_overflow */
 302          NULL,                      /* special_function */
 303          "R_LM32_GNU_VTINHERIT",    /* name */
 304          false,                     /* partial_inplace */
 305          0,                         /* src_mask */
 306          0,                         /* dst_mask */
 307          false),                    /* pcrel_offset */
 308
 309   /* GNU extension to record C++ vtable member usage.  */
 310   HOWTO (R_LM32_GNU_VTENTRY,        /* type */
 311          0,                         /* rightshift */
 312          2,                         /* size (0 = byte, 1 = short, 2 = long) */
 313          0,                         /* bitsize */
 314          false,                     /* pc_relative */
 315          0,                         /* bitpos */
 316          complain_overflow_dont,    /* complain_on_overflow */
 317          _bfd_elf_rel_vtable_reloc_fn,/* special_function */
 318          "R_LM32_GNU_VTENTRY",      /* name */
 319          false,                     /* partial_inplace */
 320          0,                         /* src_mask */
 321          0,                         /* dst_mask */
 322          false),                    /* pcrel_offset */
 323
 324   HOWTO (R_LM32_16_GOT,             /* type */
 325          0,                         /* rightshift */
 326          2,                         /* size (0 = byte, 1 = short, 2 = long) */
 327          16,                        /* bitsize */
 328          false,                     /* pc_relative */
 329          0,                         /* bitpos */
 330          complain_overflow_signed,  /* complain_on_overflow */
 331          bfd_elf_generic_reloc,     /* special_function */
 332          "R_LM32_16_GOT",           /* name */
 333          false,                     /* partial_inplace */
 334          0,                         /* src_mask */
 335          0xffff,                    /* dst_mask */
 336          false),                    /* pcrel_offset */
 337
 338   HOWTO (R_LM32_GOTOFF_HI16,        /* type */
 339          16,                        /* rightshift */
 340          2,                         /* size (0 = byte, 1 = short, 2 = long) */
 341          16,                        /* bitsize */
 342          false,                     /* pc_relative */
 343          0,                         /* bitpos */
 344          complain_overflow_dont,    /* complain_on_overflow */
 345          bfd_elf_generic_reloc,     /* special_function */
 346          "R_LM32_GOTOFF_HI16",      /* name */
 347          false,                     /* partial_inplace */
 348          0xffff,                    /* src_mask */
 349          0xffff,                    /* dst_mask */
 350          false),                    /* pcrel_offset */
 351
 352   HOWTO (R_LM32_GOTOFF_LO16,        /* type */
 353          0,                         /* rightshift */
 354          2,                         /* size (0 = byte, 1 = short, 2 = long) */
 355          16,                        /* bitsize */
 356          false,                     /* pc_relative */
 357          0,                         /* bitpos */
 358          complain_overflow_dont,    /* complain_on_overflow */
 359          bfd_elf_generic_reloc,     /* special_function */
 360          "R_LM32_GOTOFF_LO16",      /* name */
 361          false,                     /* partial_inplace */
 362          0xffff,                    /* src_mask */
 363          0xffff,                    /* dst_mask */
 364          false),                    /* pcrel_offset */
 365
 366   HOWTO (R_LM32_COPY,           /* type */
 367          0,                     /* rightshift */
 368          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 369          32,                    /* bitsize */
 370          false,                 /* pc_relative */
 371          0,                     /* bitpos */
 372          complain_overflow_bitfield, /* complain_on_overflow */
 373          bfd_elf_generic_reloc, /* special_function */
 374          "R_LM32_COPY",         /* name */
 375          false,                 /* partial_inplace */
 376          0xffffffff,            /* src_mask */
 377          0xffffffff,            /* dst_mask */
 378          false),                /* pcrel_offset */
 379
 380   HOWTO (R_LM32_GLOB_DAT,       /* type */
 381          0,                     /* rightshift */
 382          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 383          32,                    /* bitsize */
 384          false,                 /* pc_relative */
 385          0,                     /* bitpos */
 386          complain_overflow_bitfield, /* complain_on_overflow */
 387          bfd_elf_generic_reloc, /* special_function */
 388          "R_LM32_GLOB_DAT",     /* name */
 389          false,                 /* partial_inplace */
 390          0xffffffff,            /* src_mask */
 391          0xffffffff,            /* dst_mask */
 392          false),                /* pcrel_offset */
 393
 394   HOWTO (R_LM32_JMP_SLOT,       /* type */
 395          0,                     /* rightshift */
 396          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 397          32,                    /* bitsize */
 398          false,                 /* pc_relative */
 399          0,                     /* bitpos */
 400          complain_overflow_bitfield, /* complain_on_overflow */
 401          bfd_elf_generic_reloc, /* special_function */
 402          "R_LM32_JMP_SLOT",     /* name */
 403          false,                 /* partial_inplace */
 404          0xffffffff,            /* src_mask */
 405          0xffffffff,            /* dst_mask */
 406          false),                /* pcrel_offset */
 407
 408   HOWTO (R_LM32_RELATIVE,       /* type */
 409          0,                     /* rightshift */
 410          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 411          32,                    /* bitsize */
 412          false,                 /* pc_relative */
 413          0,                     /* bitpos */
 414          complain_overflow_bitfield, /* complain_on_overflow */
 415          bfd_elf_generic_reloc, /* special_function */
 416          "R_LM32_RELATIVE",     /* name */
 417          false,                 /* partial_inplace */
 418          0xffffffff,            /* src_mask */
 419          0xffffffff,            /* dst_mask */
 420          false),                /* pcrel_offset */
 421
 422 };
 423
 424 /* Map BFD reloc types to lm32 ELF reloc types. */
 425
 426 struct lm32_reloc_map
 427 {
 428     bfd_reloc_code_real_type bfd_reloc_val;
 429     unsigned char elf_reloc_val;
 430 };
 431
 432 static const struct lm32_reloc_map lm32_reloc_map[] =
 433 {
 434   { BFD_RELOC_NONE,             R_LM32_NONE },
 435   { BFD_RELOC_8,                R_LM32_8 },
 436   { BFD_RELOC_16,               R_LM32_16 },
 437   { BFD_RELOC_32,               R_LM32_32 },
 438   { BFD_RELOC_HI16,             R_LM32_HI16 },
 439   { BFD_RELOC_LO16,             R_LM32_LO16 },
 440   { BFD_RELOC_GPREL16,          R_LM32_GPREL16 },
 441   { BFD_RELOC_LM32_CALL,        R_LM32_CALL },
 442   { BFD_RELOC_LM32_BRANCH,      R_LM32_BRANCH },
 443   { BFD_RELOC_VTABLE_INHERIT,   R_LM32_GNU_VTINHERIT },
 444   { BFD_RELOC_VTABLE_ENTRY,     R_LM32_GNU_VTENTRY },
 445   { BFD_RELOC_LM32_16_GOT,      R_LM32_16_GOT },
 446   { BFD_RELOC_LM32_GOTOFF_HI16, R_LM32_GOTOFF_HI16 },
 447   { BFD_RELOC_LM32_GOTOFF_LO16, R_LM32_GOTOFF_LO16 },
 448   { BFD_RELOC_LM32_COPY,        R_LM32_COPY },
 449   { BFD_RELOC_LM32_GLOB_DAT,    R_LM32_GLOB_DAT },
 450   { BFD_RELOC_LM32_JMP_SLOT,    R_LM32_JMP_SLOT },
 451   { BFD_RELOC_LM32_RELATIVE,    R_LM32_RELATIVE },
 452 };
 453
 454 static reloc_howto_type *
 455 lm32_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
 456                         bfd_reloc_code_real_type code)
 457 {
 458   unsigned int i;
 459
 460   for (i = 0; i < sizeof (lm32_reloc_map) / sizeof (lm32_reloc_map[0]); i++)
 461     if (lm32_reloc_map[i].bfd_reloc_val == code)
 462       return &lm32_elf_howto_table[lm32_reloc_map[i].elf_reloc_val];
 463   return NULL;
 464 }
 465
 466 static reloc_howto_type *
 467 lm32_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
 468                         const char *r_name)
 469 {
 470   unsigned int i;
 471
 472   for (i = 0;
 473        i < sizeof (lm32_elf_howto_table) / sizeof (lm32_elf_howto_table[0]);
 474        i++)
 475     if (lm32_elf_howto_table[i].name != NULL
 476         && strcasecmp (lm32_elf_howto_table[i].name, r_name) == 0)
 477       return &lm32_elf_howto_table[i];
 478
 479   return NULL;
 480 }
 481
 482
 483 /* Set the howto pointer for an Lattice Mico32 ELF reloc.  */
 484
 485 static bool
 486 lm32_info_to_howto_rela (bfd *abfd,
 487                          arelent *cache_ptr,
 488                          Elf_Internal_Rela *dst)
 489 {
 490   unsigned int r_type;
 491
 492   r_type = ELF32_R_TYPE (dst->r_info);
 493   if (r_type >= (unsigned int) R_LM32_max)
 494     {
 495       /* xgettext:c-format */
 496       _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
 497                           abfd, r_type);
 498       bfd_set_error (bfd_error_bad_value);
 499       return false;
 500     }
 501   cache_ptr->howto = &lm32_elf_howto_table[r_type];
 502   return true;
 503 }
 504
 505 /* Set the right machine number for an Lattice Mico32 ELF file. */
 506
 507 static bool
 508 lm32_elf_object_p (bfd *abfd)
 509 {
 510   return bfd_default_set_arch_mach (abfd, bfd_arch_lm32, bfd_mach_lm32);
 511 }
 512
 513 /* Set machine type flags just before file is written out. */
 514
 515 static bool
 516 lm32_elf_final_write_processing (bfd *abfd)
 517 {
 518   elf_elfheader (abfd)->e_machine = EM_LATTICEMICO32;
 519   elf_elfheader (abfd)->e_flags &=~ EF_LM32_MACH;
 520   switch (bfd_get_mach (abfd))
 521     {
 522       case bfd_mach_lm32:
 523         elf_elfheader (abfd)->e_flags |= E_LM32_MACH;
 524         break;
 525       default:
 526         abort ();
 527     }
 528   return _bfd_elf_final_write_processing (abfd);
 529 }
 530
 531 /* Set the GP value for OUTPUT_BFD.  Returns FALSE if this is a
 532    dangerous relocation.  */
 533
 534 static bool
 535 lm32_elf_assign_gp (bfd *output_bfd, bfd_vma *pgp)
 536 {
 537   unsigned int count;
 538   asymbol **sym;
 539   unsigned int i;
 540
 541   /* If we've already figured out what GP will be, just return it. */
 542   *pgp = _bfd_get_gp_value (output_bfd);
 543   if (*pgp)
 544     return true;
 545
 546   count = bfd_get_symcount (output_bfd);
 547   sym = bfd_get_outsymbols (output_bfd);
 548
 549   /* The linker script will have created a symbol named `_gp' with the
 550      appropriate value.  */
 551   if (sym == NULL)
 552     i = count;
 553   else
 554     {
 555       for (i = 0; i < count; i++, sym++)
 556         {
 557           const char *name;
 558
 559           name = bfd_asymbol_name (*sym);
 560           if (*name == '_' && strcmp (name, "_gp") == 0)
 561             {
 562               *pgp = bfd_asymbol_value (*sym);
 563               _bfd_set_gp_value (output_bfd, *pgp);
 564               break;
 565             }
 566         }
 567     }
 568
 569   if (i >= count)
 570     {
 571       /* Only get the error once.  */
 572       *pgp = 4;
 573       _bfd_set_gp_value (output_bfd, *pgp);
 574       return false;
 575     }
 576
 577   return true;
 578 }
 579
 580 /* We have to figure out the gp value, so that we can adjust the
 581    symbol value correctly.  We look up the symbol _gp in the output
 582    BFD.  If we can't find it, we're stuck.  We cache it in the ELF
 583    target data.  We don't need to adjust the symbol value for an
 584    external symbol if we are producing relocatable output.  */
 585
 586 static bfd_reloc_status_type
 587 lm32_elf_final_gp (bfd *output_bfd, asymbol *symbol, bool relocatable,
 588                     char **error_message, bfd_vma *pgp)
 589 {
 590   if (bfd_is_und_section (symbol->section) && !relocatable)
 591     {
 592       *pgp = 0;
 593       return bfd_reloc_undefined;
 594     }
 595
 596   *pgp = _bfd_get_gp_value (output_bfd);
 597   if (*pgp == 0 && (!relocatable || (symbol->flags & BSF_SECTION_SYM) != 0))
 598     {
 599       if (relocatable)
 600         {
 601           /* Make up a value.  */
 602           *pgp = symbol->section->output_section->vma + 0x4000;
 603           _bfd_set_gp_value (output_bfd, *pgp);
 604         }
 605       else if (!lm32_elf_assign_gp (output_bfd, pgp))
 606         {
 607           *error_message =
 608             (char *)
 609             _("global pointer relative relocation when _gp not defined");
 610           return bfd_reloc_dangerous;
 611         }
 612     }
 613
 614   return bfd_reloc_ok;
 615 }
 616
 617 static bfd_reloc_status_type
 618 lm32_elf_do_gprel_relocate (bfd *abfd,
 619                             reloc_howto_type *howto,
 620                             asection *input_section ATTRIBUTE_UNUSED,
 621                             bfd_byte *data,
 622                             bfd_vma offset,
 623                             bfd_vma symbol_value,
 624                             bfd_vma addend)
 625 {
 626   return _bfd_final_link_relocate (howto, abfd, input_section,
 627                                    data, offset, symbol_value, addend);
 628 }
 629
 630 static bfd_reloc_status_type
 631 lm32_elf_gprel_reloc (bfd *abfd,
 632                       arelent *reloc_entry,
 633                       asymbol *symbol,
 634                       void *data,
 635                       asection *input_section,
 636                       bfd *output_bfd,
 637                       char **msg)
 638 {
 639   bfd_vma relocation;
 640   bfd_vma gp;
 641   bfd_reloc_status_type r;
 642
 643   if (output_bfd != (bfd *) NULL
 644       && (symbol->flags & BSF_SECTION_SYM) == 0
 645       && (!reloc_entry->howto->partial_inplace || reloc_entry->addend == 0))
 646     {
 647       reloc_entry->address += input_section->output_offset;
 648       return bfd_reloc_ok;
 649     }
 650
 651   if (output_bfd != NULL)
 652     return bfd_reloc_ok;
 653
 654   relocation = symbol->value
 655     + symbol->section->output_section->vma + symbol->section->output_offset;
 656
 657   if ((r =
 658        lm32_elf_final_gp (abfd, symbol, false, msg, &gp)) == bfd_reloc_ok)
 659     {
 660       relocation = relocation + reloc_entry->addend - gp;
 661       reloc_entry->addend = 0;
 662       if ((signed) relocation < -32768 || (signed) relocation > 32767)
 663         {
 664           *msg = _("global pointer relative address out of range");
 665           r = bfd_reloc_outofrange;
 666         }
 667       else
 668         {
 669           r = lm32_elf_do_gprel_relocate (abfd, reloc_entry->howto,
 670                                              input_section,
 671                                              data, reloc_entry->address,
 672                                              relocation, reloc_entry->addend);
 673         }
 674     }
 675
 676   return r;
 677 }
 678
 679 /* Find the segment number in which OSEC, and output section, is
 680    located.  */
 681
 682 static unsigned
 683 _lm32fdpic_osec_to_segment (bfd *output_bfd, asection *osec)
 684 {
 685   struct elf_segment_map *m;
 686   Elf_Internal_Phdr *p;
 687
 688   /* Find the segment that contains the output_section.  */
 689   for (m = elf_seg_map (output_bfd), p = elf_tdata (output_bfd)->phdr;
 690        m != NULL;
 691        m = m->next, p++)
 692     {
 693       int i;
 694
 695       for (i = m->count - 1; i >= 0; i--)
 696         if (m->sections[i] == osec)
 697           break;
 698
 699       if (i >= 0)
 700         break;
 701     }
 702
 703   return p - elf_tdata (output_bfd)->phdr;
 704 }
 705
 706 /* Determine if an output section is read-only.  */
 707
 708 inline static bool
 709 _lm32fdpic_osec_readonly_p (bfd *output_bfd, asection *osec)
 710 {
 711   unsigned seg = _lm32fdpic_osec_to_segment (output_bfd, osec);
 712
 713   return ! (elf_tdata (output_bfd)->phdr[seg].p_flags & PF_W);
 714 }
 715
 716 /* Relocate a section */
 717
 718 static int
 719 lm32_elf_relocate_section (bfd *output_bfd,
 720                            struct bfd_link_info *info,
 721                            bfd *input_bfd,
 722                            asection *input_section,
 723                            bfd_byte *contents,
 724                            Elf_Internal_Rela *relocs,
 725                            Elf_Internal_Sym *local_syms,
 726                            asection **local_sections)
 727 {
 728   Elf_Internal_Shdr *symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
 729   struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (input_bfd);
 730   Elf_Internal_Rela *rel, *relend;
 731   struct elf_lm32_link_hash_table *htab = lm32_elf_hash_table (info);
 732   bfd_vma *local_got_offsets;
 733   asection *sgot;
 734
 735   if (htab == NULL)
 736     return false;
 737
 738   local_got_offsets = elf_local_got_offsets (input_bfd);
 739
 740   sgot = htab->root.sgot;
 741
 742   symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
 743   sym_hashes = elf_sym_hashes (input_bfd);
 744
 745   rel = relocs;
 746   relend = relocs + input_section->reloc_count;
 747   for (; rel < relend; rel++)
 748     {
 749       reloc_howto_type *howto;
 750       unsigned int r_type;
 751       unsigned long r_symndx;
 752       Elf_Internal_Sym *sym;
 753       asection *sec;
 754       struct elf_link_hash_entry *h;
 755       bfd_vma relocation;
 756       bfd_vma gp;
 757       bfd_reloc_status_type r;
 758       const char *name = NULL;
 759
 760       r_symndx = ELF32_R_SYM (rel->r_info);
 761       r_type = ELF32_R_TYPE (rel->r_info);
 762
 763       if (r_type == R_LM32_GNU_VTENTRY
 764           || r_type == R_LM32_GNU_VTINHERIT )
 765         continue;
 766
 767       h = NULL;
 768       sym = NULL;
 769       sec = NULL;
 770
 771       howto = lm32_elf_howto_table + r_type;
 772
 773       if (r_symndx < symtab_hdr->sh_info)
 774         {
 775           /* It's a local symbol.  */
 776           sym = local_syms + r_symndx;
 777           sec = local_sections[r_symndx];
 778           relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
 779           name = bfd_elf_string_from_elf_section
 780             (input_bfd, symtab_hdr->sh_link, sym->st_name);
 781           name = name == NULL ? bfd_section_name (sec) : name;
 782         }
 783       else
 784         {
 785           /* It's a global symbol.  */
 786           bool unresolved_reloc;
 787           bool warned, ignored;
 788
 789           RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
 790                                    r_symndx, symtab_hdr, sym_hashes,
 791                                    h, sec, relocation,
 792                                    unresolved_reloc, warned, ignored);
 793           name = h->root.root.string;
 794         }
 795
 796       if (sec != NULL && discarded_section (sec))
 797         RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
 798                                          rel, 1, relend, howto, 0, contents);
 799
 800       if (bfd_link_relocatable (info))
 801         {
 802           /* This is a relocatable link.  We don't have to change
 803              anything, unless the reloc is against a section symbol,
 804              in which case we have to adjust according to where the
 805              section symbol winds up in the output section.  */
 806           if (sym == NULL || ELF_ST_TYPE (sym->st_info) != STT_SECTION)
 807             continue;
 808
 809           /* If partial_inplace, we need to store any additional addend
 810              back in the section.  */
 811           if (! howto->partial_inplace)
 812             continue;
 813
 814           /* Shouldn't reach here.  */
 815           abort ();
 816           r = bfd_reloc_ok;
 817         }
 818       else
 819         {
 820           switch (howto->type)
 821             {
 822             case R_LM32_GPREL16:
 823               if (!lm32_elf_assign_gp (output_bfd, &gp))
 824                 r = bfd_reloc_dangerous;
 825               else
 826                 {
 827                   relocation = relocation + rel->r_addend - gp;
 828                   rel->r_addend = 0;
 829                   if ((signed)relocation < -32768 || (signed)relocation > 32767)
 830                     r = bfd_reloc_outofrange;
 831                   else
 832                     {
 833                       r = _bfd_final_link_relocate (howto, input_bfd,
 834                                                     input_section, contents,
 835                                                     rel->r_offset, relocation,
 836                                                     rel->r_addend);
 837                     }
 838                 }
 839               break;
 840             case R_LM32_16_GOT:
 841               /* Relocation is to the entry for this symbol in the global
 842                  offset table.  */
 843               BFD_ASSERT (sgot != NULL);
 844               if (h != NULL)
 845                 {
 846                   bool dyn;
 847                   bfd_vma off;
 848
 849                   off = h->got.offset;
 850                   BFD_ASSERT (off != (bfd_vma) -1);
 851
 852                   dyn = htab->root.dynamic_sections_created;
 853                   if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn,
 854                                                          bfd_link_pic (info),
 855                                                          h)
 856                       || (bfd_link_pic (info)
 857                           && (info->symbolic
 858                               || h->dynindx == -1
 859                               || h->forced_local)
 860                           && h->def_regular))
 861                     {
 862                       /* This is actually a static link, or it is a
 863                          -Bsymbolic link and the symbol is defined
 864                          locally, or the symbol was forced to be local
 865                          because of a version file.  We must initialize
 866                          this entry in the global offset table.  Since the
 867                          offset must always be a multiple of 4, we use the
 868                          least significant bit to record whether we have
 869                          initialized it already.
 870
 871                          When doing a dynamic link, we create a .rela.got
 872                          relocation entry to initialize the value.  This
 873                          is done in the finish_dynamic_symbol routine.  */
 874                       if ((off & 1) != 0)
 875                         off &= ~1;
 876                       else
 877                         {
 878                           /* Write entry in GOT */
 879                           bfd_put_32 (output_bfd, relocation,
 880                                       sgot->contents + off);
 881                           /* Create entry in .rofixup pointing to GOT entry.  */
 882                            if (IS_FDPIC (output_bfd) && h->root.type != bfd_link_hash_undefweak)
 883                              {
 884                                _lm32fdpic_add_rofixup (output_bfd,
 885                                                        lm32fdpic_fixup32_section
 886                                                         (info),
 887                                                        sgot->output_section->vma
 888                                                         + sgot->output_offset
 889                                                         + off);
 890                              }
 891                           /* Mark GOT entry as having been written.  */
 892                           h->got.offset |= 1;
 893                         }
 894                     }
 895
 896                   relocation = sgot->output_offset + off;
 897                 }
 898               else
 899                 {
 900                   bfd_vma off;
 901                   bfd_byte *loc;
 902
 903                   BFD_ASSERT (local_got_offsets != NULL
 904                               && local_got_offsets[r_symndx] != (bfd_vma) -1);
 905
 906                   /* Get offset into GOT table.  */
 907                   off = local_got_offsets[r_symndx];
 908
 909                   /* The offset must always be a multiple of 4.  We use
 910                      the least significant bit to record whether we have
 911                      already processed this entry.  */
 912                   if ((off & 1) != 0)
 913                     off &= ~1;
 914                   else
 915                     {
 916                       /* Write entry in GOT.  */
 917                       bfd_put_32 (output_bfd, relocation, sgot->contents + off);
 918                       /* Create entry in .rofixup pointing to GOT entry.  */
 919                       if (IS_FDPIC (output_bfd))
 920                         {
 921                           _lm32fdpic_add_rofixup (output_bfd,
 922                                                   lm32fdpic_fixup32_section
 923                                                    (info),
 924                                                   sgot->output_section->vma
 925                                                    + sgot->output_offset
 926                                                    + off);
 927                         }
 928
 929                       if (bfd_link_pic (info))
 930                         {
 931                           asection *srelgot;
 932                           Elf_Internal_Rela outrel;
 933
 934                           /* We need to generate a R_LM32_RELATIVE reloc
 935                              for the dynamic linker.  */
 936                           srelgot = htab->root.srelgot;
 937                           BFD_ASSERT (srelgot != NULL);
 938
 939                           outrel.r_offset = (sgot->output_section->vma
 940                                              + sgot->output_offset
 941                                              + off);
 942                           outrel.r_info = ELF32_R_INFO (0, R_LM32_RELATIVE);
 943                           outrel.r_addend = relocation;
 944                           loc = srelgot->contents;
 945                           loc += srelgot->reloc_count * sizeof (Elf32_External_Rela);
 946                           bfd_elf32_swap_reloca_out (output_bfd, &outrel,loc);
 947                           ++srelgot->reloc_count;
 948                         }
 949
 950                       local_got_offsets[r_symndx] |= 1;
 951                     }
 952
 953
 954                   relocation = sgot->output_offset + off;
 955                 }
 956
 957               /* Addend should be zero.  */
 958               if (rel->r_addend != 0)
 959                 _bfd_error_handler
 960                   (_("internal error: addend should be zero for %s"),
 961                    "R_LM32_16_GOT");
 962
 963               r = _bfd_final_link_relocate (howto,
 964                                             input_bfd,
 965                                             input_section,
 966                                             contents,
 967                                             rel->r_offset,
 968                                             relocation,
 969                                             rel->r_addend);
 970               break;
 971
 972             case R_LM32_GOTOFF_LO16:
 973             case R_LM32_GOTOFF_HI16:
 974               /* Relocation is offset from GOT.  */
 975               BFD_ASSERT (sgot != NULL);
 976               relocation -= sgot->output_section->vma;
 977               /* Account for sign-extension.  */
 978               if ((r_type == R_LM32_GOTOFF_HI16)
 979                   && ((relocation + rel->r_addend) & 0x8000))
 980                 rel->r_addend += 0x10000;
 981               r = _bfd_final_link_relocate (howto,
 982                                             input_bfd,
 983                                             input_section,
 984                                             contents,
 985                                             rel->r_offset,
 986                                             relocation,
 987                                             rel->r_addend);
 988               break;
 989
 990             case R_LM32_32:
 991               if (IS_FDPIC (output_bfd))
 992                 {
 993                   if ((!h) || (h && h->root.type != bfd_link_hash_undefweak))
 994                     {
 995                       /* Only create .rofixup entries for relocs in loadable sections.  */
 996                       if ((bfd_section_flags (input_section->output_section)
 997                           & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
 998
 999                         {
1000                           /* Check address to be modified is writable.  */
1001                           if (_lm32fdpic_osec_readonly_p (output_bfd,
1002                                                           input_section
1003                                                            ->output_section))
1004                             {
1005                               info->callbacks->warning
1006                                 (info,
1007                                  _("cannot emit dynamic relocations in read-only section"),
1008                                  name, input_bfd, input_section, rel->r_offset);
1009                                return false;
1010                             }
1011                           /* Create entry in .rofixup section.  */
1012                           _lm32fdpic_add_rofixup (output_bfd,
1013                                                   lm32fdpic_fixup32_section (info),
1014                                                   input_section->output_section->vma
1015                                                    + input_section->output_offset
1016                                                    + rel->r_offset);
1017                         }
1018                     }
1019                 }
1020               /* Fall through.  */
1021
1022             default:
1023               r = _bfd_final_link_relocate (howto,
1024                                             input_bfd,
1025                                             input_section,
1026                                             contents,
1027                                             rel->r_offset,
1028                                             relocation,
1029                                             rel->r_addend);
1030               break;
1031             }
1032         }
1033
1034       if (r != bfd_reloc_ok)
1035         {
1036           const char *msg = NULL;
1037           arelent bfd_reloc;
1038
1039           if (! lm32_info_to_howto_rela (input_bfd, &bfd_reloc, rel))
1040             continue;
1041           howto = bfd_reloc.howto;
1042
1043           if (h != NULL)
1044             name = h->root.root.string;
1045           else
1046             {
1047               name = (bfd_elf_string_from_elf_section
1048                       (input_bfd, symtab_hdr->sh_link, sym->st_name));
1049               if (name == NULL || *name == '\0')
1050                 name = bfd_section_name (sec);
1051             }
1052
1053           switch (r)
1054             {
1055             case bfd_reloc_overflow:
1056               if ((h != NULL)
1057                  && (h->root.type == bfd_link_hash_undefweak))
1058                 break;
1059               (*info->callbacks->reloc_overflow)
1060                 (info, (h ? &h->root : NULL), name, howto->name,
1061                  (bfd_vma) 0, input_bfd, input_section, rel->r_offset);
1062               break;
1063
1064             case bfd_reloc_undefined:
1065               (*info->callbacks->undefined_symbol)
1066                 (info, name, input_bfd, input_section, rel->r_offset, true);
1067               break;
1068
1069             case bfd_reloc_outofrange:
1070               msg = _("internal error: out of range error");
1071               goto common_error;
1072
1073             case bfd_reloc_notsupported:
1074               msg = _("internal error: unsupported relocation error");
1075               goto common_error;
1076
1077             case bfd_reloc_dangerous:
1078               msg = _("internal error: dangerous error");
1079               goto common_error;
1080
1081             default:
1082               msg = _("internal error: unknown error");
1083               /* fall through */
1084
1085             common_error:
1086               (*info->callbacks->warning) (info, msg, name, input_bfd,
1087                                            input_section, rel->r_offset);
1088               break;
1089             }
1090         }
1091     }
1092
1093   return true;
1094 }
1095
1096 static asection *
1097 lm32_elf_gc_mark_hook (asection *sec,
1098                        struct bfd_link_info *info,
1099                        Elf_Internal_Rela *rel,
1100                        struct elf_link_hash_entry *h,
1101                        Elf_Internal_Sym *sym)
1102 {
1103   if (h != NULL)
1104     switch (ELF32_R_TYPE (rel->r_info))
1105       {
1106       case R_LM32_GNU_VTINHERIT:
1107       case R_LM32_GNU_VTENTRY:
1108         return NULL;
1109       }
1110
1111   return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
1112 }
1113
1114 /* Look through the relocs for a section during the first phase.  */
1115
1116 static bool
1117 lm32_elf_check_relocs (bfd *abfd,
1118                        struct bfd_link_info *info,
1119                        asection *sec,
1120                        const Elf_Internal_Rela *relocs)
1121 {
1122   Elf_Internal_Shdr *symtab_hdr;
1123   struct elf_link_hash_entry **sym_hashes, **sym_hashes_end;
1124   const Elf_Internal_Rela *rel;
1125   const Elf_Internal_Rela *rel_end;
1126   struct elf_lm32_link_hash_table *htab;
1127   bfd *dynobj;
1128
1129   if (bfd_link_relocatable (info))
1130     return true;
1131
1132   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1133   sym_hashes = elf_sym_hashes (abfd);
1134   sym_hashes_end = sym_hashes + symtab_hdr->sh_size/sizeof (Elf32_External_Sym);
1135   if (!elf_bad_symtab (abfd))
1136     sym_hashes_end -= symtab_hdr->sh_info;
1137
1138   htab = lm32_elf_hash_table (info);
1139   if (htab == NULL)
1140     return false;
1141
1142   dynobj = htab->root.dynobj;
1143
1144   rel_end = relocs + sec->reloc_count;
1145   for (rel = relocs; rel < rel_end; rel++)
1146     {
1147       int r_type;
1148       struct elf_link_hash_entry *h;
1149       unsigned long r_symndx;
1150
1151       r_symndx = ELF32_R_SYM (rel->r_info);
1152       r_type = ELF32_R_TYPE (rel->r_info);
1153       if (r_symndx < symtab_hdr->sh_info)
1154         h = NULL;
1155       else
1156         {
1157           h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1158           while (h->root.type == bfd_link_hash_indirect
1159                  || h->root.type == bfd_link_hash_warning)
1160             h = (struct elf_link_hash_entry *) h->root.u.i.link;
1161         }
1162
1163       /* Some relocs require a global offset table.  */
1164       if (htab->root.sgot == NULL)
1165         {
1166           switch (r_type)
1167             {
1168             case R_LM32_16_GOT:
1169             case R_LM32_GOTOFF_HI16:
1170             case R_LM32_GOTOFF_LO16:
1171               if (dynobj == NULL)
1172                 htab->root.dynobj = dynobj = abfd;
1173               if (!_bfd_elf_create_got_section (dynobj, info))
1174                 return false;
1175               break;
1176             }
1177         }
1178
1179       /* Some relocs require a rofixup table. */
1180       if (IS_FDPIC (abfd))
1181         {
1182           switch (r_type)
1183             {
1184             case R_LM32_32:
1185               /* FDPIC requires a GOT if there is a .rofixup section
1186                  (Normal ELF doesn't). */
1187               if (dynobj == NULL)
1188                 htab->root.dynobj = dynobj = abfd;
1189               if (!_bfd_elf_create_got_section (dynobj, info))
1190                 return false;
1191               /* Create .rofixup section */
1192               if (htab->sfixup32 == NULL)
1193                 {
1194                   if (! create_rofixup_section (dynobj, info))
1195                     return false;
1196                 }
1197               break;
1198             case R_LM32_16_GOT:
1199             case R_LM32_GOTOFF_HI16:
1200             case R_LM32_GOTOFF_LO16:
1201               /* Create .rofixup section.  */
1202               if (htab->sfixup32 == NULL)
1203                 {
1204                   if (dynobj == NULL)
1205                     htab->root.dynobj = dynobj = abfd;
1206                   if (! create_rofixup_section (dynobj, info))
1207                     return false;
1208                 }
1209               break;
1210             }
1211         }
1212
1213       switch (r_type)
1214         {
1215         case R_LM32_16_GOT:
1216           if (h != NULL)
1217             h->got.refcount += 1;
1218           else
1219             {
1220               bfd_signed_vma *local_got_refcounts;
1221
1222               /* This is a global offset table entry for a local symbol.  */
1223               local_got_refcounts = elf_local_got_refcounts (abfd);
1224               if (local_got_refcounts == NULL)
1225                 {
1226                   bfd_size_type size;
1227
1228                   size = symtab_hdr->sh_info;
1229                   size *= sizeof (bfd_signed_vma);
1230                   local_got_refcounts = bfd_zalloc (abfd, size);
1231                   if (local_got_refcounts == NULL)
1232                     return false;
1233                   elf_local_got_refcounts (abfd) = local_got_refcounts;
1234                 }
1235               local_got_refcounts[r_symndx] += 1;
1236             }
1237           break;
1238
1239         /* This relocation describes the C++ object vtable hierarchy.
1240            Reconstruct it for later use during GC.  */
1241         case R_LM32_GNU_VTINHERIT:
1242           if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
1243             return false;
1244           break;
1245
1246         /* This relocation describes which C++ vtable entries are actually
1247            used.  Record for later use during GC.  */
1248         case R_LM32_GNU_VTENTRY:
1249           if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
1250             return false;
1251           break;
1252
1253         }
1254     }
1255
1256   return true;
1257 }
1258
1259 /* Finish up the dynamic sections.  */
1260
1261 static bool
1262 lm32_elf_finish_dynamic_sections (bfd *output_bfd,
1263                                   struct bfd_link_info *info)
1264 {
1265   struct elf_lm32_link_hash_table *htab;
1266   bfd *dynobj;
1267   asection *sdyn;
1268   asection *sgot;
1269
1270   htab = lm32_elf_hash_table (info);
1271   if (htab == NULL)
1272     return false;
1273
1274   dynobj = htab->root.dynobj;
1275
1276   sgot = htab->root.sgotplt;
1277   sdyn = bfd_get_linker_section (dynobj, ".dynamic");
1278
1279   if (htab->root.dynamic_sections_created)
1280     {
1281       asection *splt;
1282       Elf32_External_Dyn *dyncon, *dynconend;
1283
1284       BFD_ASSERT (sgot != NULL && sdyn != NULL);
1285
1286       dyncon = (Elf32_External_Dyn *) sdyn->contents;
1287       dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
1288
1289       for (; dyncon < dynconend; dyncon++)
1290         {
1291           Elf_Internal_Dyn dyn;
1292           asection *s;
1293
1294           bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
1295
1296           switch (dyn.d_tag)
1297             {
1298             default:
1299               break;
1300
1301             case DT_PLTGOT:
1302               s = htab->root.sgotplt;
1303               goto get_vma;
1304             case DT_JMPREL:
1305               s = htab->root.srelplt;
1306             get_vma:
1307               dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
1308               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
1309               break;
1310
1311             case DT_PLTRELSZ:
1312               s = htab->root.srelplt;
1313               dyn.d_un.d_val = s->size;
1314               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
1315               break;
1316             }
1317         }
1318
1319       /* Fill in the first entry in the procedure linkage table.  */
1320       splt = htab->root.splt;
1321       if (splt && splt->size > 0)
1322         {
1323           if (bfd_link_pic (info))
1324             {
1325               bfd_put_32 (output_bfd, PLT0_PIC_ENTRY_WORD0, splt->contents);
1326               bfd_put_32 (output_bfd, PLT0_PIC_ENTRY_WORD1, splt->contents + 4);
1327               bfd_put_32 (output_bfd, PLT0_PIC_ENTRY_WORD2, splt->contents + 8);
1328               bfd_put_32 (output_bfd, PLT0_PIC_ENTRY_WORD3, splt->contents + 12);
1329               bfd_put_32 (output_bfd, PLT0_PIC_ENTRY_WORD4, splt->contents + 16);
1330             }
1331           else
1332             {
1333               unsigned long addr;
1334               /* addr = .got + 4 */
1335               addr = sgot->output_section->vma + sgot->output_offset + 4;
1336               bfd_put_32 (output_bfd,
1337                           PLT0_ENTRY_WORD0 | ((addr >> 16) & 0xffff),
1338                           splt->contents);
1339               bfd_put_32 (output_bfd,
1340                           PLT0_ENTRY_WORD1 | (addr & 0xffff),
1341                           splt->contents + 4);
1342               bfd_put_32 (output_bfd, PLT0_ENTRY_WORD2, splt->contents + 8);
1343               bfd_put_32 (output_bfd, PLT0_ENTRY_WORD3, splt->contents + 12);
1344               bfd_put_32 (output_bfd, PLT0_ENTRY_WORD4, splt->contents + 16);
1345             }
1346
1347           elf_section_data (splt->output_section)->this_hdr.sh_entsize =
1348             PLT_ENTRY_SIZE;
1349         }
1350     }
1351
1352   /* Fill in the first three entries in the global offset table.  */
1353   if (sgot && sgot->size > 0)
1354     {
1355       if (sdyn == NULL)
1356         bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents);
1357       else
1358         bfd_put_32 (output_bfd,
1359                     sdyn->output_section->vma + sdyn->output_offset,
1360                     sgot->contents);
1361       bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 4);
1362       bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 8);
1363
1364       /* FIXME:  This can be null if create_dynamic_sections wasn't called. */
1365       if (elf_section_data (sgot->output_section) != NULL)
1366         elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4;
1367     }
1368
1369   if (lm32fdpic_fixup32_section (info))
1370     {
1371       struct elf_link_hash_entry *hgot = elf_hash_table (info)->hgot;
1372       bfd_vma got_value = hgot->root.u.def.value
1373             + hgot->root.u.def.section->output_section->vma
1374             + hgot->root.u.def.section->output_offset;
1375       struct bfd_link_hash_entry *hend;
1376
1377       /* Last entry is pointer to GOT.  */
1378       _lm32fdpic_add_rofixup (output_bfd, lm32fdpic_fixup32_section (info), got_value);
1379
1380       /* Check we wrote enough entries.  */
1381       if (lm32fdpic_fixup32_section (info)->size
1382               != (lm32fdpic_fixup32_section (info)->reloc_count * 4))
1383         {
1384           _bfd_error_handler
1385             ("LINKER BUG: .rofixup section size mismatch: size/4 %" PRId64
1386              " != relocs %d",
1387             (int64_t) (lm32fdpic_fixup32_section (info)->size / 4),
1388             lm32fdpic_fixup32_section (info)->reloc_count);
1389           return false;
1390         }
1391
1392       hend = bfd_link_hash_lookup (info->hash, "__ROFIXUP_END__",
1393               false, false, true);
1394       if (hend
1395           && (hend->type == bfd_link_hash_defined
1396               || hend->type == bfd_link_hash_defweak)
1397           && hend->u.def.section->output_section != NULL)
1398         {
1399           bfd_vma value =
1400             lm32fdpic_fixup32_section (info)->output_section->vma
1401             + lm32fdpic_fixup32_section (info)->output_offset
1402             + lm32fdpic_fixup32_section (info)->size
1403             - hend->u.def.section->output_section->vma
1404             - hend->u.def.section->output_offset;
1405           BFD_ASSERT (hend->u.def.value == value);
1406           if (hend->u.def.value != value)
1407             {
1408               _bfd_error_handler
1409                 ("LINKER BUG: .rofixup section hend->u.def.value != value: %"
1410                  PRId64 " != %" PRId64,
1411                  (int64_t) hend->u.def.value, (int64_t) value);
1412               return false;
1413             }
1414         }
1415     }
1416
1417   return true;
1418 }
1419
1420 /* Finish up dynamic symbol handling.  We set the contents of various
1421    dynamic sections here.  */
1422
1423 static bool
1424 lm32_elf_finish_dynamic_symbol (bfd *output_bfd,
1425                                 struct bfd_link_info *info,
1426                                 struct elf_link_hash_entry *h,
1427                                 Elf_Internal_Sym *sym)
1428 {
1429   struct elf_lm32_link_hash_table *htab;
1430   bfd_byte *loc;
1431
1432   htab = lm32_elf_hash_table (info);
1433   if (htab == NULL)
1434     return false;
1435
1436   if (h->plt.offset != (bfd_vma) -1)
1437     {
1438       asection *splt;
1439       asection *sgot;
1440       asection *srela;
1441
1442       bfd_vma plt_index;
1443       bfd_vma got_offset;
1444       Elf_Internal_Rela rela;
1445
1446       /* This symbol has an entry in the procedure linkage table.  Set
1447          it up.  */
1448       BFD_ASSERT (h->dynindx != -1);
1449
1450       splt = htab->root.splt;
1451       sgot = htab->root.sgotplt;
1452       srela = htab->root.srelplt;
1453       BFD_ASSERT (splt != NULL && sgot != NULL && srela != NULL);
1454
1455       /* Get the index in the procedure linkage table which
1456          corresponds to this symbol.  This is the index of this symbol
1457          in all the symbols for which we are making plt entries.  The
1458          first entry in the procedure linkage table is reserved.  */
1459       plt_index = h->plt.offset / PLT_ENTRY_SIZE - 1;
1460
1461       /* Get the offset into the .got table of the entry that
1462         corresponds to this function.  Each .got entry is 4 bytes.
1463         The first three are reserved.  */
1464       got_offset = (plt_index + 3) * 4;
1465
1466       /* Fill in the entry in the procedure linkage table.  */
1467       if (! bfd_link_pic (info))
1468         {
1469           /* TODO */
1470         }
1471       else
1472         {
1473           /* TODO */
1474         }
1475
1476       /* Fill in the entry in the global offset table.  */
1477       bfd_put_32 (output_bfd,
1478                   (splt->output_section->vma
1479                    + splt->output_offset
1480                    + h->plt.offset
1481                    + 12), /* same offset */
1482                   sgot->contents + got_offset);
1483
1484       /* Fill in the entry in the .rela.plt section.  */
1485       rela.r_offset = (sgot->output_section->vma
1486                        + sgot->output_offset
1487                        + got_offset);
1488       rela.r_info = ELF32_R_INFO (h->dynindx, R_LM32_JMP_SLOT);
1489       rela.r_addend = 0;
1490       loc = srela->contents;
1491       loc += plt_index * sizeof (Elf32_External_Rela);
1492       bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
1493
1494       if (!h->def_regular)
1495         {
1496           /* Mark the symbol as undefined, rather than as defined in
1497              the .plt section.  Leave the value alone.  */
1498           sym->st_shndx = SHN_UNDEF;
1499         }
1500
1501     }
1502
1503   if (h->got.offset != (bfd_vma) -1)
1504     {
1505       asection *sgot;
1506       asection *srela;
1507       Elf_Internal_Rela rela;
1508
1509       /* This symbol has an entry in the global offset table.  Set it
1510          up.  */
1511       sgot = htab->root.sgot;
1512       srela = htab->root.srelgot;
1513       BFD_ASSERT (sgot != NULL && srela != NULL);
1514
1515       rela.r_offset = (sgot->output_section->vma
1516                        + sgot->output_offset
1517                        + (h->got.offset &~ 1));
1518
1519       /* If this is a -Bsymbolic link, and the symbol is defined
1520          locally, we just want to emit a RELATIVE reloc.  Likewise if
1521          the symbol was forced to be local because of a version file.
1522          The entry in the global offset table will already have been
1523          initialized in the relocate_section function.  */
1524       if (bfd_link_pic (info)
1525           && (info->symbolic
1526               || h->dynindx == -1
1527               || h->forced_local)
1528           && h->def_regular)
1529         {
1530           rela.r_info = ELF32_R_INFO (0, R_LM32_RELATIVE);
1531           rela.r_addend = (h->root.u.def.value
1532                            + h->root.u.def.section->output_section->vma
1533                            + h->root.u.def.section->output_offset);
1534         }
1535       else
1536         {
1537           BFD_ASSERT ((h->got.offset & 1) == 0);
1538           bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + h->got.offset);
1539           rela.r_info = ELF32_R_INFO (h->dynindx, R_LM32_GLOB_DAT);
1540           rela.r_addend = 0;
1541         }
1542
1543       loc = srela->contents;
1544       loc += srela->reloc_count * sizeof (Elf32_External_Rela);
1545       bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
1546       ++srela->reloc_count;
1547     }
1548
1549   if (h->needs_copy)
1550     {
1551       asection *s;
1552       Elf_Internal_Rela rela;
1553
1554       /* This symbols needs a copy reloc.  Set it up.  */
1555       BFD_ASSERT (h->dynindx != -1
1556                   && (h->root.type == bfd_link_hash_defined
1557                       || h->root.type == bfd_link_hash_defweak));
1558
1559       s = bfd_get_linker_section (htab->root.dynobj, ".rela.bss");
1560       BFD_ASSERT (s != NULL);
1561
1562       rela.r_offset = (h->root.u.def.value
1563                        + h->root.u.def.section->output_section->vma
1564                        + h->root.u.def.section->output_offset);
1565       rela.r_info = ELF32_R_INFO (h->dynindx, R_LM32_COPY);
1566       rela.r_addend = 0;
1567       loc = s->contents;
1568       loc += s->reloc_count * sizeof (Elf32_External_Rela);
1569       bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
1570       ++s->reloc_count;
1571     }
1572
1573   /* Mark some specially defined symbols as absolute.  */
1574   if (h == htab->root.hdynamic || h == htab->root.hgot)
1575     sym->st_shndx = SHN_ABS;
1576
1577   return true;
1578 }
1579
1580 static enum elf_reloc_type_class
1581 lm32_elf_reloc_type_class (const struct bfd_link_info *info ATTRIBUTE_UNUSED,
1582                            const asection *rel_sec ATTRIBUTE_UNUSED,
1583                            const Elf_Internal_Rela *rela)
1584 {
1585   switch ((int) ELF32_R_TYPE (rela->r_info))
1586     {
1587     case R_LM32_RELATIVE:  return reloc_class_relative;
1588     case R_LM32_JMP_SLOT:  return reloc_class_plt;
1589     case R_LM32_COPY:      return reloc_class_copy;
1590     default:               return reloc_class_normal;
1591     }
1592 }
1593
1594 /* Adjust a symbol defined by a dynamic object and referenced by a
1595    regular object.  The current definition is in some section of the
1596    dynamic object, but we're not including those sections.  We have to
1597    change the definition to something the rest of the link can
1598    understand.  */
1599
1600 static bool
1601 lm32_elf_adjust_dynamic_symbol (struct bfd_link_info *info,
1602                                 struct elf_link_hash_entry *h)
1603 {
1604   struct elf_lm32_link_hash_table *htab;
1605   bfd *dynobj;
1606   asection *s;
1607
1608   dynobj = elf_hash_table (info)->dynobj;
1609
1610   /* Make sure we know what is going on here.  */
1611   BFD_ASSERT (dynobj != NULL
1612               && (h->needs_plt
1613                   || h->is_weakalias
1614                   || (h->def_dynamic
1615                       && h->ref_regular
1616                       && !h->def_regular)));
1617
1618   /* If this is a function, put it in the procedure linkage table.  We
1619      will fill in the contents of the procedure linkage table later,
1620      when we know the address of the .got section.  */
1621   if (h->type == STT_FUNC
1622       || h->needs_plt)
1623     {
1624       if (! bfd_link_pic (info)
1625           && !h->def_dynamic
1626           && !h->ref_dynamic
1627           && h->root.type != bfd_link_hash_undefweak
1628           && h->root.type != bfd_link_hash_undefined)
1629         {
1630           /* This case can occur if we saw a PLT reloc in an input
1631              file, but the symbol was never referred to by a dynamic
1632              object.  In such a case, we don't actually need to build
1633              a procedure linkage table, and we can just do a PCREL
1634              reloc instead.  */
1635           h->plt.offset = (bfd_vma) -1;
1636           h->needs_plt = 0;
1637         }
1638
1639       return true;
1640     }
1641   else
1642     h->plt.offset = (bfd_vma) -1;
1643
1644   /* If this is a weak symbol, and there is a real definition, the
1645      processor independent code will have arranged for us to see the
1646      real definition first, and we can just use the same value.  */
1647   if (h->is_weakalias)
1648     {
1649       struct elf_link_hash_entry *def = weakdef (h);
1650       BFD_ASSERT (def->root.type == bfd_link_hash_defined);
1651       h->root.u.def.section = def->root.u.def.section;
1652       h->root.u.def.value = def->root.u.def.value;
1653       return true;
1654     }
1655
1656   /* This is a reference to a symbol defined by a dynamic object which
1657      is not a function.  */
1658
1659   /* If we are creating a shared library, we must presume that the
1660      only references to the symbol are via the global offset table.
1661      For such cases we need not do anything here; the relocations will
1662      be handled correctly by relocate_section.  */
1663   if (bfd_link_pic (info))
1664     return true;
1665
1666   /* If there are no references to this symbol that do not use the
1667      GOT, we don't need to generate a copy reloc.  */
1668   if (!h->non_got_ref)
1669     return true;
1670
1671   /* If -z nocopyreloc was given, we won't generate them either.  */
1672   if (0 && info->nocopyreloc)
1673     {
1674       h->non_got_ref = 0;
1675       return true;
1676     }
1677
1678   /* If we don't find any dynamic relocs in read-only sections, then
1679      we'll be keeping the dynamic relocs and avoiding the copy reloc.  */
1680   if (0 && !_bfd_elf_readonly_dynrelocs (h))
1681     {
1682       h->non_got_ref = 0;
1683       return true;
1684     }
1685
1686   /* We must allocate the symbol in our .dynbss section, which will
1687      become part of the .bss section of the executable.  There will be
1688      an entry for this symbol in the .dynsym section.  The dynamic
1689      object will contain position independent code, so all references
1690      from the dynamic object to this symbol will go through the global
1691      offset table.  The dynamic linker will use the .dynsym entry to
1692      determine the address it must put in the global offset table, so
1693      both the dynamic object and the regular object will refer to the
1694      same memory location for the variable.  */
1695
1696   htab = lm32_elf_hash_table (info);
1697   if (htab == NULL)
1698     return false;
1699
1700   s = htab->sdynbss;
1701   BFD_ASSERT (s != NULL);
1702
1703   /* We must generate a R_LM32_COPY reloc to tell the dynamic linker
1704      to copy the initial value out of the dynamic object and into the
1705      runtime process image.  We need to remember the offset into the
1706      .rela.bss section we are going to use.  */
1707   if ((h->root.u.def.section->flags & SEC_ALLOC) != 0 && h->size != 0)
1708     {
1709       asection *srel;
1710
1711       srel = htab->srelbss;
1712       BFD_ASSERT (srel != NULL);
1713       srel->size += sizeof (Elf32_External_Rela);
1714       h->needs_copy = 1;
1715     }
1716
1717   return _bfd_elf_adjust_dynamic_copy (info, h, s);
1718 }
1719
1720 /* Allocate space in .plt, .got and associated reloc sections for
1721    dynamic relocs.  */
1722
1723 static bool
1724 allocate_dynrelocs (struct elf_link_hash_entry *h, void * inf)
1725 {
1726   struct bfd_link_info *info;
1727   struct elf_lm32_link_hash_table *htab;
1728   struct elf_dyn_relocs *p;
1729
1730   if (h->root.type == bfd_link_hash_indirect)
1731     return true;
1732
1733   info = (struct bfd_link_info *) inf;
1734   htab = lm32_elf_hash_table (info);
1735   if (htab == NULL)
1736     return false;
1737
1738   if (htab->root.dynamic_sections_created
1739       && h->plt.refcount > 0)
1740     {
1741       /* Make sure this symbol is output as a dynamic symbol.
1742          Undefined weak syms won't yet be marked as dynamic.  */
1743       if (h->dynindx == -1
1744           && !h->forced_local)
1745         {
1746           if (! bfd_elf_link_record_dynamic_symbol (info, h))
1747             return false;
1748         }
1749
1750       if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, bfd_link_pic (info), h))
1751         {
1752           asection *s = htab->root.splt;
1753
1754           /* If this is the first .plt entry, make room for the special
1755              first entry.  */
1756           if (s->size == 0)
1757             s->size += PLT_ENTRY_SIZE;
1758
1759           h->plt.offset = s->size;
1760
1761           /* If this symbol is not defined in a regular file, and we are
1762              not generating a shared library, then set the symbol to this
1763              location in the .plt.  This is required to make function
1764              pointers compare as equal between the normal executable and
1765              the shared library.  */
1766           if (! bfd_link_pic (info)
1767               && !h->def_regular)
1768             {
1769               h->root.u.def.section = s;
1770               h->root.u.def.value = h->plt.offset;
1771             }
1772
1773           /* Make room for this entry.  */
1774           s->size += PLT_ENTRY_SIZE;
1775
1776           /* We also need to make an entry in the .got.plt section, which
1777              will be placed in the .got section by the linker script.  */
1778           htab->root.sgotplt->size += 4;
1779
1780           /* We also need to make an entry in the .rel.plt section.  */
1781           htab->root.srelplt->size += sizeof (Elf32_External_Rela);
1782         }
1783       else
1784         {
1785           h->plt.offset = (bfd_vma) -1;
1786           h->needs_plt = 0;
1787         }
1788     }
1789   else
1790     {
1791       h->plt.offset = (bfd_vma) -1;
1792       h->needs_plt = 0;
1793     }
1794
1795   if (h->got.refcount > 0)
1796     {
1797       asection *s;
1798       bool dyn;
1799
1800       /* Make sure this symbol is output as a dynamic symbol.
1801          Undefined weak syms won't yet be marked as dynamic.  */
1802       if (h->dynindx == -1
1803           && !h->forced_local)
1804         {
1805           if (! bfd_elf_link_record_dynamic_symbol (info, h))
1806             return false;
1807         }
1808
1809       s = htab->root.sgot;
1810
1811       h->got.offset = s->size;
1812       s->size += 4;
1813       dyn = htab->root.dynamic_sections_created;
1814       if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, bfd_link_pic (info), h))
1815         htab->root.srelgot->size += sizeof (Elf32_External_Rela);
1816     }
1817   else
1818     h->got.offset = (bfd_vma) -1;
1819
1820   if (h->dyn_relocs == NULL)
1821     return true;
1822
1823   /* In the shared -Bsymbolic case, discard space allocated for
1824      dynamic pc-relative relocs against symbols which turn out to be
1825      defined in regular objects.  For the normal shared case, discard
1826      space for pc-relative relocs that have become local due to symbol
1827      visibility changes.  */
1828
1829   if (bfd_link_pic (info))
1830     {
1831       if (h->def_regular
1832           && (h->forced_local
1833               || info->symbolic))
1834         {
1835           struct elf_dyn_relocs **pp;
1836
1837           for (pp = &h->dyn_relocs; (p = *pp) != NULL;)
1838             {
1839               p->count -= p->pc_count;
1840               p->pc_count = 0;
1841               if (p->count == 0)
1842                 *pp = p->next;
1843               else
1844                 pp = &p->next;
1845             }
1846         }
1847
1848       /* Also discard relocs on undefined weak syms with non-default
1849          visibility.  */
1850       if (h->dyn_relocs != NULL
1851           && h->root.type == bfd_link_hash_undefweak)
1852         {
1853           if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
1854             h->dyn_relocs = NULL;
1855
1856           /* Make sure undefined weak symbols are output as a dynamic
1857              symbol in PIEs.  */
1858           else if (h->dynindx == -1
1859                    && !h->forced_local)
1860             {
1861               if (! bfd_elf_link_record_dynamic_symbol (info, h))
1862                 return false;
1863             }
1864         }
1865     }
1866   else
1867     {
1868       /* For the non-shared case, discard space for relocs against
1869          symbols which turn out to need copy relocs or are not
1870          dynamic.  */
1871
1872       if (!h->non_got_ref
1873           && ((h->def_dynamic
1874                && !h->def_regular)
1875               || (htab->root.dynamic_sections_created
1876                   && (h->root.type == bfd_link_hash_undefweak
1877                       || h->root.type == bfd_link_hash_undefined))))
1878         {
1879           /* Make sure this symbol is output as a dynamic symbol.
1880              Undefined weak syms won't yet be marked as dynamic.  */
1881           if (h->dynindx == -1
1882               && !h->forced_local)
1883             {
1884               if (! bfd_elf_link_record_dynamic_symbol (info, h))
1885                 return false;
1886             }
1887
1888           /* If that succeeded, we know we'll be keeping all the
1889              relocs.  */
1890           if (h->dynindx != -1)
1891             goto keep;
1892         }
1893
1894       h->dyn_relocs = NULL;
1895
1896     keep: ;
1897     }
1898
1899   /* Finally, allocate space.  */
1900   for (p = h->dyn_relocs; p != NULL; p = p->next)
1901     {
1902       asection *sreloc = elf_section_data (p->sec)->sreloc;
1903       sreloc->size += p->count * sizeof (Elf32_External_Rela);
1904     }
1905
1906   return true;
1907 }
1908
1909 /* Set the sizes of the dynamic sections.  */
1910
1911 static bool
1912 lm32_elf_size_dynamic_sections (bfd *output_bfd,
1913                                 struct bfd_link_info *info)
1914 {
1915   struct elf_lm32_link_hash_table *htab;
1916   bfd *dynobj;
1917   asection *s;
1918   bool relocs;
1919   bfd *ibfd;
1920
1921   htab = lm32_elf_hash_table (info);
1922   if (htab == NULL)
1923     return false;
1924
1925   dynobj = htab->root.dynobj;
1926   BFD_ASSERT (dynobj != NULL);
1927
1928   if (htab->root.dynamic_sections_created)
1929     {
1930       /* Set the contents of the .interp section to the interpreter.  */
1931       if (bfd_link_executable (info) && !info->nointerp)
1932         {
1933           s = bfd_get_linker_section (dynobj, ".interp");
1934           BFD_ASSERT (s != NULL);
1935           s->size = sizeof ELF_DYNAMIC_INTERPRETER;
1936           s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
1937         }
1938     }
1939
1940   /* Set up .got offsets for local syms, and space for local dynamic
1941      relocs.  */
1942   for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
1943     {
1944       bfd_signed_vma *local_got;
1945       bfd_signed_vma *end_local_got;
1946       bfd_size_type locsymcount;
1947       Elf_Internal_Shdr *symtab_hdr;
1948       asection *srel;
1949
1950       if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour)
1951         continue;
1952
1953       for (s = ibfd->sections; s != NULL; s = s->next)
1954         {
1955           struct elf_dyn_relocs *p;
1956
1957           for (p = ((struct elf_dyn_relocs *)
1958                     elf_section_data (s)->local_dynrel);
1959                p != NULL;
1960                p = p->next)
1961             {
1962               if (! bfd_is_abs_section (p->sec)
1963                   && bfd_is_abs_section (p->sec->output_section))
1964                 {
1965                   /* Input section has been discarded, either because
1966                      it is a copy of a linkonce section or due to
1967                      linker script /DISCARD/, so we'll be discarding
1968                      the relocs too.  */
1969                 }
1970               else if (p->count != 0)
1971                 {
1972                   srel = elf_section_data (p->sec)->sreloc;
1973                   srel->size += p->count * sizeof (Elf32_External_Rela);
1974                   if ((p->sec->output_section->flags & SEC_READONLY) != 0)
1975                     info->flags |= DF_TEXTREL;
1976                 }
1977             }
1978         }
1979
1980       local_got = elf_local_got_refcounts (ibfd);
1981       if (!local_got)
1982         continue;
1983
1984       symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
1985       locsymcount = symtab_hdr->sh_info;
1986       end_local_got = local_got + locsymcount;
1987       s = htab->root.sgot;
1988       srel = htab->root.srelgot;
1989       for (; local_got < end_local_got; ++local_got)
1990         {
1991           if (*local_got > 0)
1992             {
1993               *local_got = s->size;
1994               s->size += 4;
1995               if (bfd_link_pic (info))
1996                 srel->size += sizeof (Elf32_External_Rela);
1997             }
1998           else
1999             *local_got = (bfd_vma) -1;
2000         }
2001     }
2002
2003   /* Allocate global sym .plt and .got entries, and space for global
2004      sym dynamic relocs.  */
2005   elf_link_hash_traverse (&htab->root, allocate_dynrelocs, info);
2006
2007   /* We now have determined the sizes of the various dynamic sections.
2008      Allocate memory for them.  */
2009   relocs = false;
2010   for (s = dynobj->sections; s != NULL; s = s->next)
2011     {
2012       if ((s->flags & SEC_LINKER_CREATED) == 0)
2013         continue;
2014
2015       if (s == htab->root.splt
2016           || s == htab->root.sgot
2017           || s == htab->root.sgotplt
2018           || s == htab->sdynbss)
2019         {
2020           /* Strip this section if we don't need it; see the
2021              comment below.  */
2022         }
2023       else if (startswith (bfd_section_name (s), ".rela"))
2024         {
2025           if (s->size != 0 && s != htab->root.srelplt)
2026             relocs = true;
2027
2028           /* We use the reloc_count field as a counter if we need
2029              to copy relocs into the output file.  */
2030           s->reloc_count = 0;
2031         }
2032       else
2033         /* It's not one of our sections, so don't allocate space.  */
2034         continue;
2035
2036       if (s->size == 0)
2037         {
2038           /* If we don't need this section, strip it from the
2039              output file.  This is mostly to handle .rela.bss and
2040              .rela.plt.  We must create both sections in
2041              create_dynamic_sections, because they must be created
2042              before the linker maps input sections to output
2043              sections.  The linker does that before
2044              adjust_dynamic_symbol is called, and it is that
2045              function which decides whether anything needs to go
2046              into these sections.  */
2047           s->flags |= SEC_EXCLUDE;
2048           continue;
2049         }
2050
2051       if ((s->flags & SEC_HAS_CONTENTS) == 0)
2052         continue;
2053
2054       /* Allocate memory for the section contents.  We use bfd_zalloc
2055          here in case unused entries are not reclaimed before the
2056          section's contents are written out.  This should not happen,
2057          but this way if it does, we get a R_LM32_NONE reloc instead
2058          of garbage.  */
2059       s->contents = bfd_zalloc (dynobj, s->size);
2060       if (s->contents == NULL)
2061         return false;
2062     }
2063
2064   if (!_bfd_elf_add_dynamic_tags (output_bfd, info, relocs))
2065     return false;
2066
2067   /* Allocate .rofixup section.  */
2068   if (IS_FDPIC (output_bfd))
2069     {
2070       struct weak_symbol_list *list_start = NULL, *list_end = NULL;
2071       int rgot_weak_count = 0;
2072       int r32_count = 0;
2073       int rgot_count = 0;
2074       /* Look for deleted sections.  */
2075       for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
2076         {
2077           for (s = ibfd->sections; s != NULL; s = s->next)
2078             {
2079               if (s->reloc_count)
2080                 {
2081                   /* Count relocs that need .rofixup entires.  */
2082                   Elf_Internal_Rela *internal_relocs, *end;
2083                   internal_relocs = elf_section_data (s)->relocs;
2084                   if (internal_relocs == NULL)
2085                     internal_relocs = (_bfd_elf_link_read_relocs (ibfd, s, NULL, NULL, false));
2086                   if (internal_relocs != NULL)
2087                     {
2088                       end = internal_relocs + s->reloc_count;
2089                       while (internal_relocs < end)
2090                         {
2091                           Elf_Internal_Shdr *symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
2092                           struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (ibfd);
2093                           unsigned long r_symndx;
2094                           struct elf_link_hash_entry *h;
2095
2096                           symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
2097                           sym_hashes = elf_sym_hashes (ibfd);
2098                           r_symndx = ELF32_R_SYM (internal_relocs->r_info);
2099                           h = NULL;
2100                           if (r_symndx < symtab_hdr->sh_info)
2101                             {
2102                             }
2103                           else
2104                             {
2105                               h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2106                               while (h->root.type == bfd_link_hash_indirect
2107                                      || h->root.type == bfd_link_hash_warning)
2108                                 h = (struct elf_link_hash_entry *) h->root.u.i.link;
2109                               }
2110
2111                           /* Don't generate entries for weak symbols.  */
2112                           if (!h || (h && h->root.type != bfd_link_hash_undefweak))
2113                             {
2114                               if (!discarded_section (s) && !((bfd_section_flags (s) & SEC_ALLOC) == 0))
2115                                 {
2116                                   switch (ELF32_R_TYPE (internal_relocs->r_info))
2117                                     {
2118                                     case R_LM32_32:
2119                                       r32_count++;
2120                                       break;
2121                                     case R_LM32_16_GOT:
2122                                       rgot_count++;
2123                                       break;
2124                                     }
2125                                 }
2126                             }
2127                           else
2128                             {
2129                               struct weak_symbol_list *current, *new_entry;
2130                               /* Is this symbol already in the list?  */
2131                               for (current = list_start; current; current = current->next)
2132                                 {
2133                                   if (!strcmp (current->name, h->root.root.string))
2134                                     break;
2135                                 }
2136                               if (!current && !discarded_section (s) && (bfd_section_flags (s) & SEC_ALLOC))
2137                                 {
2138                                   /* Will this have an entry in the GOT.  */
2139                                   if (ELF32_R_TYPE (internal_relocs->r_info) == R_LM32_16_GOT)
2140                                     {
2141                                       /* Create a new entry.  */
2142                                       new_entry = malloc (sizeof (struct weak_symbol_list));
2143                                       if (!new_entry)
2144                                         return false;
2145                                       new_entry->name = h->root.root.string;
2146                                       new_entry->next = NULL;
2147                                       /* Add to list */
2148                                       if (list_start == NULL)
2149                                         {
2150                                           list_start = new_entry;
2151                                           list_end = new_entry;
2152                                         }
2153                                       else
2154                                         {
2155                                           list_end->next = new_entry;
2156                                           list_end = new_entry;
2157                                         }
2158                                       /* Increase count of undefined weak symbols in the got.  */
2159                                       rgot_weak_count++;
2160                                     }
2161                                 }
2162                             }
2163                           internal_relocs++;
2164                         }
2165                     }
2166                   else
2167                     return false;
2168                 }
2169             }
2170         }
2171       /* Free list.  */
2172       while (list_start)
2173         {
2174           list_end = list_start->next;
2175           free (list_start);
2176           list_start = list_end;
2177         }
2178
2179       /* Size sections.  */
2180       lm32fdpic_fixup32_section (info)->size
2181         = (r32_count + (htab->root.sgot->size / 4) - rgot_weak_count + 1) * 4;
2182       if (lm32fdpic_fixup32_section (info)->size == 0)
2183         lm32fdpic_fixup32_section (info)->flags |= SEC_EXCLUDE;
2184       else
2185         {
2186           lm32fdpic_fixup32_section (info)->contents =
2187              bfd_zalloc (dynobj, lm32fdpic_fixup32_section (info)->size);
2188           if (lm32fdpic_fixup32_section (info)->contents == NULL)
2189             return false;
2190         }
2191     }
2192
2193   return true;
2194 }
2195
2196 /* Create dynamic sections when linking against a dynamic object.  */
2197
2198 static bool
2199 lm32_elf_create_dynamic_sections (bfd *abfd, struct bfd_link_info *info)
2200 {
2201   struct elf_lm32_link_hash_table *htab;
2202   flagword flags, pltflags;
2203   asection *s;
2204   const struct elf_backend_data *bed = get_elf_backend_data (abfd);
2205   int ptralign = 2; /* 32bit */
2206
2207   htab = lm32_elf_hash_table (info);
2208   if (htab == NULL)
2209     return false;
2210
2211   /* Make sure we have a GOT - For the case where we have a dynamic object
2212      but none of the relocs in check_relocs */
2213   if (!_bfd_elf_create_got_section (abfd, info))
2214     return false;
2215   if (IS_FDPIC (abfd) && (htab->sfixup32 == NULL))
2216     {
2217       if (! create_rofixup_section (abfd, info))
2218         return false;
2219     }
2220
2221   /* We need to create .plt, .rel[a].plt, .got, .got.plt, .dynbss, and
2222      .rel[a].bss sections.  */
2223   flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
2224            | SEC_LINKER_CREATED);
2225
2226   pltflags = flags;
2227   pltflags |= SEC_CODE;
2228   if (bed->plt_not_loaded)
2229     pltflags &= ~ (SEC_LOAD | SEC_HAS_CONTENTS);
2230   if (bed->plt_readonly)
2231     pltflags |= SEC_READONLY;
2232
2233   s = bfd_make_section_anyway_with_flags (abfd, ".plt", pltflags);
2234   htab->root.splt = s;
2235   if (s == NULL
2236       || !bfd_set_section_alignment (s, bed->plt_alignment))
2237     return false;
2238
2239   if (bed->want_plt_sym)
2240     {
2241       /* Define the symbol _PROCEDURE_LINKAGE_TABLE_ at the start of the
2242          .plt section.  */
2243       struct bfd_link_hash_entry *bh = NULL;
2244       struct elf_link_hash_entry *h;
2245
2246       if (! (_bfd_generic_link_add_one_symbol
2247              (info, abfd, "_PROCEDURE_LINKAGE_TABLE_", BSF_GLOBAL, s,
2248               (bfd_vma) 0, NULL, false,
2249               get_elf_backend_data (abfd)->collect, &bh)))
2250         return false;
2251       h = (struct elf_link_hash_entry *) bh;
2252       h->def_regular = 1;
2253       h->type = STT_OBJECT;
2254       htab->root.hplt = h;
2255
2256       if (bfd_link_pic (info)
2257           && ! bfd_elf_link_record_dynamic_symbol (info, h))
2258         return false;
2259     }
2260
2261   s = bfd_make_section_anyway_with_flags (abfd,
2262                                           bed->default_use_rela_p
2263                                           ? ".rela.plt" : ".rel.plt",
2264                                           flags | SEC_READONLY);
2265   htab->root.srelplt = s;
2266   if (s == NULL
2267       || !bfd_set_section_alignment (s, ptralign))
2268     return false;
2269
2270   if (htab->root.sgot == NULL
2271       && !_bfd_elf_create_got_section (abfd, info))
2272     return false;
2273
2274   if (bed->want_dynbss)
2275     {
2276       /* The .dynbss section is a place to put symbols which are defined
2277          by dynamic objects, are referenced by regular objects, and are
2278          not functions.  We must allocate space for them in the process
2279          image and use a R_*_COPY reloc to tell the dynamic linker to
2280          initialize them at run time.  The linker script puts the .dynbss
2281          section into the .bss section of the final image.  */
2282       s = bfd_make_section_anyway_with_flags (abfd, ".dynbss",
2283                                               SEC_ALLOC | SEC_LINKER_CREATED);
2284       htab->sdynbss = s;
2285       if (s == NULL)
2286         return false;
2287       /* The .rel[a].bss section holds copy relocs.  This section is not
2288          normally needed.  We need to create it here, though, so that the
2289          linker will map it to an output section.  We can't just create it
2290          only if we need it, because we will not know whether we need it
2291          until we have seen all the input files, and the first time the
2292          main linker code calls BFD after examining all the input files
2293          (size_dynamic_sections) the input sections have already been
2294          mapped to the output sections.  If the section turns out not to
2295          be needed, we can discard it later.  We will never need this
2296          section when generating a shared object, since they do not use
2297          copy relocs.  */
2298       if (! bfd_link_pic (info))
2299         {
2300           s = bfd_make_section_anyway_with_flags (abfd,
2301                                                   (bed->default_use_rela_p
2302                                                    ? ".rela.bss" : ".rel.bss"),
2303                                                   flags | SEC_READONLY);
2304           htab->srelbss = s;
2305           if (s == NULL
2306               || !bfd_set_section_alignment (s, ptralign))
2307             return false;
2308         }
2309     }
2310
2311   return true;
2312 }
2313
2314 static bool
2315 lm32_elf_always_size_sections (bfd *output_bfd, struct bfd_link_info *info)
2316 {
2317   if (!bfd_link_relocatable (info))
2318     {
2319       if (!bfd_elf_stack_segment_size (output_bfd, info,
2320                                        "__stacksize", DEFAULT_STACK_SIZE))
2321         return false;
2322
2323       asection *sec = bfd_get_section_by_name (output_bfd, ".stack");
2324       if (sec)
2325         sec->size = info->stacksize >= 0 ? info->stacksize : 0;
2326     }
2327
2328   return true;
2329 }
2330
2331 static bool
2332 lm32_elf_fdpic_copy_private_bfd_data (bfd *ibfd, bfd *obfd)
2333 {
2334   unsigned i;
2335
2336   if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
2337       || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
2338     return true;
2339
2340   if (! _bfd_elf_copy_private_bfd_data (ibfd, obfd))
2341     return false;
2342
2343   if (! elf_tdata (ibfd) || ! elf_tdata (ibfd)->phdr
2344       || ! elf_tdata (obfd) || ! elf_tdata (obfd)->phdr)
2345     return true;
2346
2347   /* Copy the stack size.  */
2348   for (i = 0; i < elf_elfheader (ibfd)->e_phnum; i++)
2349     if (elf_tdata (ibfd)->phdr[i].p_type == PT_GNU_STACK)
2350       {
2351         Elf_Internal_Phdr *iphdr = &elf_tdata (ibfd)->phdr[i];
2352
2353         for (i = 0; i < elf_elfheader (obfd)->e_phnum; i++)
2354           if (elf_tdata (obfd)->phdr[i].p_type == PT_GNU_STACK)
2355             {
2356               memcpy (&elf_tdata (obfd)->phdr[i], iphdr, sizeof (*iphdr));
2357
2358               /* Rewrite the phdrs, since we're only called after they were first written.  */
2359               if (bfd_seek (obfd, (bfd_signed_vma) get_elf_backend_data (obfd)
2360                             ->s->sizeof_ehdr, SEEK_SET) != 0
2361                   || get_elf_backend_data (obfd)->s->write_out_phdrs (obfd, elf_tdata (obfd)->phdr,
2362                                      elf_elfheader (obfd)->e_phnum) != 0)
2363                 return false;
2364               break;
2365             }
2366
2367         break;
2368       }
2369
2370   return true;
2371 }
2372
2373
2374 #define ELF_ARCH                bfd_arch_lm32
2375 #define ELF_TARGET_ID           LM32_ELF_DATA
2376 #define ELF_MACHINE_CODE        EM_LATTICEMICO32
2377 #define ELF_MAXPAGESIZE         0x1000
2378
2379 #define TARGET_BIG_SYM          lm32_elf32_vec
2380 #define TARGET_BIG_NAME         "elf32-lm32"
2381
2382 #define bfd_elf32_bfd_reloc_type_lookup         lm32_reloc_type_lookup
2383 #define bfd_elf32_bfd_reloc_name_lookup         lm32_reloc_name_lookup
2384 #define elf_info_to_howto                       lm32_info_to_howto_rela
2385 #define elf_info_to_howto_rel                   NULL
2386 #define elf_backend_rela_normal                 1
2387 #define elf_backend_object_p                    lm32_elf_object_p
2388 #define elf_backend_final_write_processing      lm32_elf_final_write_processing
2389 #define elf_backend_stack_align                 8
2390 #define elf_backend_can_gc_sections             1
2391 #define elf_backend_can_refcount                1
2392 #define elf_backend_gc_mark_hook                lm32_elf_gc_mark_hook
2393 #define elf_backend_plt_readonly                1
2394 #define elf_backend_want_got_plt                1
2395 #define elf_backend_want_plt_sym                0
2396 #define elf_backend_got_header_size             12
2397 #define elf_backend_dtrel_excludes_plt          1
2398 #define bfd_elf32_bfd_link_hash_table_create    lm32_elf_link_hash_table_create
2399 #define elf_backend_check_relocs                lm32_elf_check_relocs
2400 #define elf_backend_reloc_type_class            lm32_elf_reloc_type_class
2401 #define elf_backend_size_dynamic_sections       lm32_elf_size_dynamic_sections
2402 #define elf_backend_omit_section_dynsym         _bfd_elf_omit_section_dynsym_all
2403 #define elf_backend_create_dynamic_sections     lm32_elf_create_dynamic_sections
2404 #define elf_backend_finish_dynamic_sections     lm32_elf_finish_dynamic_sections
2405 #define elf_backend_adjust_dynamic_symbol       lm32_elf_adjust_dynamic_symbol
2406 #define elf_backend_finish_dynamic_symbol       lm32_elf_finish_dynamic_symbol
2407 #define elf_backend_relocate_section            lm32_elf_relocate_section
2408
2409 #include "elf32-target.h"
2410
2411 #undef  ELF_MAXPAGESIZE
2412 #define ELF_MAXPAGESIZE         0x4000
2413
2414
2415 #undef  TARGET_BIG_SYM
2416 #define TARGET_BIG_SYM          lm32_elf32_fdpic_vec
2417 #undef  TARGET_BIG_NAME
2418 #define TARGET_BIG_NAME         "elf32-lm32fdpic"
2419 #undef  elf32_bed
2420 #define elf32_bed               elf32_lm32fdpic_bed
2421
2422 #undef  elf_backend_always_size_sections
2423 #define elf_backend_always_size_sections        lm32_elf_always_size_sections
2424 #undef  bfd_elf32_bfd_copy_private_bfd_data
2425 #define bfd_elf32_bfd_copy_private_bfd_data     lm32_elf_fdpic_copy_private_bfd_data
2426
2427 #include "elf32-target.h"