bfd/elf32-bfin.c

   1 /* ADI Blackfin BFD support for 32-bit ELF.
   2    Copyright 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
   3
   4    This file is part of BFD, the Binary File Descriptor library.
   5
   6    This program is free software; you can redistribute it and/or modify
   7    it under the terms of the GNU General Public License as published by
   8    the Free Software Foundation; either version 3 of the License, or
   9    (at your option) any later version.
  10
  11    This program is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14    GNU General Public License for more details.
  15
  16    You should have received a copy of the GNU General Public License
  17    along with this program; if not, write to the Free Software
  18    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  19    MA 02110-1301, USA.  */
  20
  21 #include "sysdep.h"
  22 #include "bfd.h"
  23 #include "libbfd.h"
  24 #include "elf-bfd.h"
  25 #include "elf/bfin.h"
  26 #include "dwarf2.h"
  27 #include "hashtab.h"
  28
  29 /* FUNCTION : bfin_pltpc_reloc
  30    ABSTRACT : TODO : figure out how to handle pltpc relocs.  */
  31 static bfd_reloc_status_type
  32 bfin_pltpc_reloc (
  33      bfd *abfd ATTRIBUTE_UNUSED,
  34      arelent *reloc_entry ATTRIBUTE_UNUSED,
  35      asymbol *symbol ATTRIBUTE_UNUSED,
  36      PTR data ATTRIBUTE_UNUSED,
  37      asection *input_section ATTRIBUTE_UNUSED,
  38      bfd *output_bfd ATTRIBUTE_UNUSED,
  39      char **error_message ATTRIBUTE_UNUSED)
  40 {
  41   bfd_reloc_status_type flag = bfd_reloc_ok;
  42   return flag;
  43 }
  44 \f
  45
  46 static bfd_reloc_status_type
  47 bfin_pcrel24_reloc (bfd *abfd,
  48                     arelent *reloc_entry,
  49                     asymbol *symbol,
  50                     PTR data,
  51                     asection *input_section,
  52                     bfd *output_bfd,
  53                     char **error_message ATTRIBUTE_UNUSED)
  54 {
  55   bfd_vma relocation;
  56   bfd_size_type addr = reloc_entry->address;
  57   bfd_vma output_base = 0;
  58   reloc_howto_type *howto = reloc_entry->howto;
  59   asection *output_section;
  60   bfd_boolean relocatable = (output_bfd != NULL);
  61
  62   if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
  63     return bfd_reloc_outofrange;
  64
  65   if (bfd_is_und_section (symbol->section)
  66       && (symbol->flags & BSF_WEAK) == 0
  67       && !relocatable)
  68     return bfd_reloc_undefined;
  69
  70   if (bfd_is_com_section (symbol->section))
  71     relocation = 0;
  72   else
  73     relocation = symbol->value;
  74
  75   output_section = symbol->section->output_section;
  76
  77   if (relocatable)
  78     output_base = 0;
  79   else
  80     output_base = output_section->vma;
  81
  82   if (!relocatable || !strcmp (symbol->name, symbol->section->name))
  83     relocation += output_base + symbol->section->output_offset;
  84
  85   if (!relocatable && !strcmp (symbol->name, symbol->section->name))
  86     relocation += reloc_entry->addend;
  87
  88   relocation -= input_section->output_section->vma + input_section->output_offset;
  89   relocation -= reloc_entry->address;
  90
  91   if (howto->complain_on_overflow != complain_overflow_dont)
  92     {
  93       bfd_reloc_status_type status;
  94       status = bfd_check_overflow (howto->complain_on_overflow,
  95                                    howto->bitsize,
  96                                    howto->rightshift,
  97                                    bfd_arch_bits_per_address(abfd),
  98                                    relocation);
  99       if (status != bfd_reloc_ok)
 100         return status;
 101     }
 102
 103   /* if rightshift is 1 and the number odd, return error.  */
 104   if (howto->rightshift && (relocation & 0x01))
 105     {
 106       fprintf(stderr, "relocation should be even number\n");
 107       return bfd_reloc_overflow;
 108     }
 109
 110   relocation >>= (bfd_vma) howto->rightshift;
 111   /* Shift everything up to where it's going to be used.  */
 112
 113   relocation <<= (bfd_vma) howto->bitpos;
 114
 115   if (relocatable)
 116     {
 117       reloc_entry->address += input_section->output_offset;
 118       reloc_entry->addend += symbol->section->output_offset;
 119     }
 120
 121   {
 122     short x;
 123
 124     /* We are getting reloc_entry->address 2 byte off from
 125        the start of instruction. Assuming absolute postion
 126        of the reloc data. But, following code had been written assuming
 127        reloc address is starting at begining of instruction.
 128        To compensate that I have increased the value of
 129        relocation by 1 (effectively 2) and used the addr -2 instead of addr.  */
 130
 131     relocation += 1;
 132     x = bfd_get_16 (abfd, (bfd_byte *) data + addr - 2);
 133     x = (x & 0xff00) | ((relocation >> 16) & 0xff);
 134     bfd_put_16 (abfd, x, (unsigned char *) data + addr - 2);
 135
 136     x = bfd_get_16 (abfd, (bfd_byte *) data + addr);
 137     x = relocation & 0xFFFF;
 138     bfd_put_16 (abfd, x, (unsigned char *) data + addr );
 139   }
 140   return bfd_reloc_ok;
 141 }
 142
 143 static bfd_reloc_status_type
 144 bfin_imm16_reloc (bfd *abfd,
 145                   arelent *reloc_entry,
 146                   asymbol *symbol,
 147                   PTR data,
 148                   asection *input_section,
 149                   bfd *output_bfd,
 150                   char **error_message ATTRIBUTE_UNUSED)
 151 {
 152   bfd_vma relocation, x;
 153   bfd_size_type reloc_addr = reloc_entry->address;
 154   bfd_vma output_base = 0;
 155   reloc_howto_type *howto = reloc_entry->howto;
 156   asection *output_section;
 157   bfd_boolean relocatable = (output_bfd != NULL);
 158
 159   /* Is the address of the relocation really within the section?  */
 160   if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
 161     return bfd_reloc_outofrange;
 162
 163   if (bfd_is_und_section (symbol->section)
 164       && (symbol->flags & BSF_WEAK) == 0
 165       && !relocatable)
 166     return bfd_reloc_undefined;
 167
 168   output_section = symbol->section->output_section;
 169   relocation = symbol->value;
 170
 171   /* Convert input-section-relative symbol value to absolute.  */
 172   if (relocatable)
 173     output_base = 0;
 174   else
 175     output_base = output_section->vma;
 176
 177   if (!relocatable || !strcmp (symbol->name, symbol->section->name))
 178     relocation += output_base + symbol->section->output_offset;
 179
 180   /* Add in supplied addend.  */
 181   relocation += reloc_entry->addend;
 182
 183   if (relocatable)
 184     {
 185       reloc_entry->address += input_section->output_offset;
 186       reloc_entry->addend += symbol->section->output_offset;
 187     }
 188   else
 189     {
 190       reloc_entry->addend = 0;
 191     }
 192
 193   if (howto->complain_on_overflow != complain_overflow_dont)
 194     {
 195       bfd_reloc_status_type flag;
 196       flag = bfd_check_overflow (howto->complain_on_overflow,
 197                                  howto->bitsize,
 198                                  howto->rightshift,
 199                                  bfd_arch_bits_per_address(abfd),
 200                                  relocation);
 201       if (flag != bfd_reloc_ok)
 202         return flag;
 203     }
 204
 205   /* Here the variable relocation holds the final address of the
 206      symbol we are relocating against, plus any addend.  */
 207
 208   relocation >>= (bfd_vma) howto->rightshift;
 209   x = relocation;
 210   bfd_put_16 (abfd, x, (unsigned char *) data + reloc_addr);
 211   return bfd_reloc_ok;
 212 }
 213
 214
 215 static bfd_reloc_status_type
 216 bfin_byte4_reloc (bfd *abfd,
 217                   arelent *reloc_entry,
 218                   asymbol *symbol,
 219                   PTR data,
 220                   asection *input_section,
 221                   bfd *output_bfd,
 222                   char **error_message ATTRIBUTE_UNUSED)
 223 {
 224   bfd_vma relocation, x;
 225   bfd_size_type addr = reloc_entry->address;
 226   bfd_vma output_base = 0;
 227   asection *output_section;
 228   bfd_boolean relocatable = (output_bfd != NULL);
 229
 230   /* Is the address of the relocation really within the section?  */
 231   if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
 232     return bfd_reloc_outofrange;
 233
 234   if (bfd_is_und_section (symbol->section)
 235       && (symbol->flags & BSF_WEAK) == 0
 236       && !relocatable)
 237     return bfd_reloc_undefined;
 238
 239   output_section = symbol->section->output_section;
 240   relocation = symbol->value;
 241   /* Convert input-section-relative symbol value to absolute.  */
 242   if (relocatable)
 243     output_base = 0;
 244   else
 245     output_base = output_section->vma;
 246
 247   if ((symbol->name
 248        && symbol->section->name
 249        && !strcmp (symbol->name, symbol->section->name))
 250       || !relocatable)
 251     {
 252       relocation += output_base + symbol->section->output_offset;
 253     }
 254
 255   relocation += reloc_entry->addend;
 256
 257   if (relocatable)
 258     {
 259       /* This output will be relocatable ... like ld -r. */
 260       reloc_entry->address += input_section->output_offset;
 261       reloc_entry->addend += symbol->section->output_offset;
 262     }
 263   else
 264     {
 265       reloc_entry->addend = 0;
 266     }
 267
 268   /* Here the variable relocation holds the final address of the
 269      symbol we are relocating against, plus any addend.  */
 270   x = relocation & 0xFFFF0000;
 271   x >>=16;
 272   bfd_put_16 (abfd, x, (unsigned char *) data + addr + 2);
 273
 274   x = relocation & 0x0000FFFF;
 275   bfd_put_16 (abfd, x, (unsigned char *) data + addr);
 276   return bfd_reloc_ok;
 277 }
 278
 279 /* bfin_bfd_reloc handles the blackfin arithmetic relocations.
 280    Use this instead of bfd_perform_relocation.  */
 281 static bfd_reloc_status_type
 282 bfin_bfd_reloc (bfd *abfd,
 283                 arelent *reloc_entry,
 284                 asymbol *symbol,
 285                 PTR data,
 286                 asection *input_section,
 287                 bfd *output_bfd,
 288                 char **error_message ATTRIBUTE_UNUSED)
 289 {
 290   bfd_vma relocation;
 291   bfd_size_type addr = reloc_entry->address;
 292   bfd_vma output_base = 0;
 293   reloc_howto_type *howto = reloc_entry->howto;
 294   asection *output_section;
 295   bfd_boolean relocatable = (output_bfd != NULL);
 296
 297   /* Is the address of the relocation really within the section?  */
 298   if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
 299     return bfd_reloc_outofrange;
 300
 301   if (bfd_is_und_section (symbol->section)
 302       && (symbol->flags & BSF_WEAK) == 0
 303       && !relocatable)
 304     return bfd_reloc_undefined;
 305
 306   /* Get symbol value.  (Common symbols are special.)  */
 307   if (bfd_is_com_section (symbol->section))
 308     relocation = 0;
 309   else
 310     relocation = symbol->value;
 311
 312   output_section = symbol->section->output_section;
 313
 314   /* Convert input-section-relative symbol value to absolute.  */
 315   if (relocatable)
 316     output_base = 0;
 317   else
 318     output_base = output_section->vma;
 319
 320   if (!relocatable || !strcmp (symbol->name, symbol->section->name))
 321     relocation += output_base + symbol->section->output_offset;
 322
 323   if (!relocatable && !strcmp (symbol->name, symbol->section->name))
 324     {
 325       /* Add in supplied addend.  */
 326       relocation += reloc_entry->addend;
 327     }
 328
 329   /* Here the variable relocation holds the final address of the
 330      symbol we are relocating against, plus any addend.  */
 331
 332   if (howto->pc_relative == TRUE)
 333     {
 334       relocation -= input_section->output_section->vma + input_section->output_offset;
 335
 336       if (howto->pcrel_offset == TRUE)
 337         relocation -= reloc_entry->address;
 338     }
 339
 340   if (relocatable)
 341     {
 342       reloc_entry->address += input_section->output_offset;
 343       reloc_entry->addend += symbol->section->output_offset;
 344     }
 345
 346   if (howto->complain_on_overflow != complain_overflow_dont)
 347     {
 348       bfd_reloc_status_type status;
 349
 350       status = bfd_check_overflow (howto->complain_on_overflow,
 351                                   howto->bitsize,
 352                                   howto->rightshift,
 353                                   bfd_arch_bits_per_address(abfd),
 354                                   relocation);
 355       if (status != bfd_reloc_ok)
 356         return status;
 357     }
 358
 359   /* If rightshift is 1 and the number odd, return error.  */
 360   if (howto->rightshift && (relocation & 0x01))
 361     {
 362       fprintf(stderr, "relocation should be even number\n");
 363       return bfd_reloc_overflow;
 364     }
 365
 366   relocation >>= (bfd_vma) howto->rightshift;
 367
 368   /* Shift everything up to where it's going to be used.  */
 369
 370   relocation <<= (bfd_vma) howto->bitpos;
 371
 372 #define DOIT(x)                                                         \
 373   x = ( (x & ~howto->dst_mask) | (relocation & howto->dst_mask))
 374
 375   /* handle 8 and 16 bit relocations here. */
 376   switch (howto->size)
 377     {
 378     case 0:
 379       {
 380         char x = bfd_get_8 (abfd, (char *) data + addr);
 381         DOIT (x);
 382         bfd_put_8 (abfd, x, (unsigned char *) data + addr);
 383       }
 384       break;
 385
 386     case 1:
 387       {
 388         unsigned short x = bfd_get_16 (abfd, (bfd_byte *) data + addr);
 389         DOIT (x);
 390         bfd_put_16 (abfd, (bfd_vma) x, (unsigned char *) data + addr);
 391       }
 392       break;
 393
 394     default:
 395       return bfd_reloc_other;
 396     }
 397
 398   return bfd_reloc_ok;
 399 }
 400
 401 /* HOWTO Table for blackfin.
 402    Blackfin relocations are fairly complicated.
 403    Some of the salient features are
 404    a. Even numbered offsets. A number of (not all) relocations are
 405       even numbered. This means that the rightmost bit is not stored.
 406       Needs to right shift by 1 and check to see if value is not odd
 407    b. A relocation can be an expression. An expression takes on
 408       a variety of relocations arranged in a stack.
 409    As a result, we cannot use the standard generic function as special
 410    function. We will have our own, which is very similar to the standard
 411    generic function except that it understands how to get the value from
 412    the relocation stack. .  */
 413
 414 #define BFIN_RELOC_MIN 0
 415 #define BFIN_RELOC_MAX 0x21
 416 #define BFIN_GNUEXT_RELOC_MIN 0x40
 417 #define BFIN_GNUEXT_RELOC_MAX 0x43
 418 #define BFIN_ARELOC_MIN 0xE0
 419 #define BFIN_ARELOC_MAX 0xF3
 420
 421 static reloc_howto_type bfin_howto_table [] =
 422 {
 423   /* This reloc does nothing. .  */
 424   HOWTO (R_BFIN_UNUSED0,        /* type.  */
 425          0,                     /* rightshift.  */
 426          2,                     /* size (0 = byte, 1 = short, 2 = long).  */
 427          32,                    /* bitsize.  */
 428          FALSE,                 /* pc_relative.  */
 429          0,                     /* bitpos.  */
 430          complain_overflow_bitfield, /* complain_on_overflow.  */
 431          bfd_elf_generic_reloc, /* special_function.  */
 432          "R_BFIN_UNUSED0",      /* name.  */
 433          FALSE,                 /* partial_inplace.  */
 434          0,                     /* src_mask.  */
 435          0,                     /* dst_mask.  */
 436          FALSE),                /* pcrel_offset.  */
 437
 438   HOWTO (R_BFIN_PCREL5M2,       /* type.  */
 439          1,                     /* rightshift.  */
 440          1,                     /* size (0 = byte, 1 = short, 2 = long)..  */
 441          4,                     /* bitsize.  */
 442          TRUE,                  /* pc_relative.  */
 443          0,                     /* bitpos.  */
 444          complain_overflow_unsigned, /* complain_on_overflow.  */
 445          bfin_bfd_reloc,        /* special_function.  */
 446          "R_BFIN_PCREL5M2",     /* name.  */
 447          FALSE,                 /* partial_inplace.  */
 448          0,                     /* src_mask.  */
 449          0x0000000F,            /* dst_mask.  */
 450          FALSE),                /* pcrel_offset.  */
 451
 452   HOWTO (R_BFIN_UNUSED1,        /* type.  */
 453          0,                     /* rightshift.  */
 454          2,                     /* size (0 = byte, 1 = short, 2 = long).  */
 455          32,                    /* bitsize.  */
 456          FALSE,                 /* pc_relative.  */
 457          0,                     /* bitpos.  */
 458          complain_overflow_bitfield, /* complain_on_overflow.  */
 459          bfd_elf_generic_reloc, /* special_function.  */
 460          "R_BFIN_UNUSED1",      /* name.  */
 461          FALSE,                 /* partial_inplace.  */
 462          0,                     /* src_mask.  */
 463          0,                     /* dst_mask.  */
 464          FALSE),                /* pcrel_offset.  */
 465
 466   HOWTO (R_BFIN_PCREL10,        /* type.  */
 467          1,                     /* rightshift.  */
 468          1,                     /* size (0 = byte, 1 = short, 2 = long).  */
 469          10,                    /* bitsize.  */
 470          TRUE,                  /* pc_relative.  */
 471          0,                     /* bitpos.  */
 472          complain_overflow_signed, /* complain_on_overflow.  */
 473          bfin_bfd_reloc,        /* special_function.  */
 474          "R_BFIN_PCREL10",      /* name.  */
 475          FALSE,                 /* partial_inplace.  */
 476          0,                     /* src_mask.  */
 477          0x000003FF,            /* dst_mask.  */
 478          TRUE),                 /* pcrel_offset.  */
 479
 480   HOWTO (R_BFIN_PCREL12_JUMP,   /* type.  */
 481          1,                     /* rightshift.  */
 482                                 /* the offset is actually 13 bit
 483                                    aligned on a word boundary so
 484                                    only 12 bits have to be used.
 485                                    Right shift the rightmost bit..  */
 486          1,                     /* size (0 = byte, 1 = short, 2 = long).  */
 487          12,                    /* bitsize.  */
 488          TRUE,                  /* pc_relative.  */
 489          0,                     /* bitpos.  */
 490          complain_overflow_signed, /* complain_on_overflow.  */
 491          bfin_bfd_reloc,        /* special_function.  */
 492          "R_BFIN_PCREL12_JUMP", /* name.  */
 493          FALSE,                 /* partial_inplace.  */
 494          0,                     /* src_mask.  */
 495          0x0FFF,                /* dst_mask.  */
 496          TRUE),                 /* pcrel_offset.  */
 497
 498   HOWTO (R_BFIN_RIMM16,         /* type.  */
 499          0,                     /* rightshift.  */
 500          1,                     /* size (0 = byte, 1 = short, 2 = long).  */
 501          16,                    /* bitsize.  */
 502          FALSE,                 /* pc_relative.  */
 503          0,                     /* bitpos.  */
 504          complain_overflow_signed, /* complain_on_overflow.  */
 505          bfin_imm16_reloc,      /* special_function.  */
 506          "R_BFIN_RIMM16",       /* name.  */
 507          FALSE,                 /* partial_inplace.  */
 508          0,                     /* src_mask.  */
 509          0x0000FFFF,            /* dst_mask.  */
 510          TRUE),                 /* pcrel_offset.  */
 511
 512   HOWTO (R_BFIN_LUIMM16,        /* type.  */
 513          0,                     /* rightshift.  */
 514          1,                     /* size (0 = byte, 1 = short, 2 = long).  */
 515          16,                    /* bitsize.  */
 516          FALSE,                 /* pc_relative.  */
 517          0,                     /* bitpos.  */
 518          complain_overflow_dont, /* complain_on_overflow.  */
 519          bfin_imm16_reloc,      /* special_function.  */
 520          "R_BFIN_LUIMM16",      /* name.  */
 521          FALSE,                 /* partial_inplace.  */
 522          0,                     /* src_mask.  */
 523          0x0000FFFF,            /* dst_mask.  */
 524          TRUE),                 /* pcrel_offset.  */
 525
 526   HOWTO (R_BFIN_HUIMM16,        /* type.  */
 527          16,                    /* rightshift.  */
 528          1,                     /* size (0 = byte, 1 = short, 2 = long).  */
 529          16,                    /* bitsize.  */
 530          FALSE,                 /* pc_relative.  */
 531          0,                     /* bitpos.  */
 532          complain_overflow_unsigned, /* complain_on_overflow.  */
 533          bfin_imm16_reloc,      /* special_function.  */
 534          "R_BFIN_HUIMM16",      /* name.  */
 535          FALSE,                 /* partial_inplace.  */
 536          0,                     /* src_mask.  */
 537          0x0000FFFF,            /* dst_mask.  */
 538          TRUE),                 /* pcrel_offset.  */
 539
 540   HOWTO (R_BFIN_PCREL12_JUMP_S, /* type.  */
 541          1,                     /* rightshift.  */
 542          1,                     /* size (0 = byte, 1 = short, 2 = long).  */
 543          12,                    /* bitsize.  */
 544          TRUE,                  /* pc_relative.  */
 545          0,                     /* bitpos.  */
 546          complain_overflow_signed, /* complain_on_overflow.  */
 547          bfin_bfd_reloc,        /* special_function.  */
 548          "R_BFIN_PCREL12_JUMP_S", /* name.  */
 549          FALSE,                 /* partial_inplace.  */
 550          0,                     /* src_mask.  */
 551          0x00000FFF,            /* dst_mask.  */
 552          TRUE),                 /* pcrel_offset.  */
 553
 554   HOWTO (R_BFIN_PCREL24_JUMP_X, /* type.  */
 555          1,                     /* rightshift.  */
 556          2,                     /* size (0 = byte, 1 = short, 2 = long).  */
 557          24,                    /* bitsize.  */
 558          TRUE,                  /* pc_relative.  */
 559          0,                     /* bitpos.  */
 560          complain_overflow_signed, /* complain_on_overflow.  */
 561          bfin_pcrel24_reloc,    /* special_function.  */
 562         "R_BFIN_PCREL24_JUMP_X", /* name.  */
 563          FALSE,                 /* partial_inplace.  */
 564          0,                     /* src_mask.  */
 565          0x00FFFFFF,            /* dst_mask.  */
 566          TRUE),                 /* pcrel_offset.  */
 567
 568   HOWTO (R_BFIN_PCREL24,        /* type.  */
 569          1,                     /* rightshift.  */
 570          2,                     /* size (0 = byte, 1 = short, 2 = long).  */
 571          24,                    /* bitsize.  */
 572          TRUE,                  /* pc_relative.  */
 573          0,                     /* bitpos.  */
 574          complain_overflow_signed, /* complain_on_overflow.  */
 575          bfin_pcrel24_reloc,    /* special_function.  */
 576          "R_BFIN_PCREL24",      /* name.  */
 577          FALSE,                 /* partial_inplace.  */
 578          0,                     /* src_mask.  */
 579          0x00FFFFFF,            /* dst_mask.  */
 580          TRUE),                 /* pcrel_offset.  */
 581
 582   HOWTO (R_BFIN_UNUSEDB,        /* type.  */
 583          0,                     /* rightshift.  */
 584          2,                     /* size (0 = byte, 1 = short, 2 = long).  */
 585          32,                    /* bitsize.  */
 586          FALSE,                 /* pc_relative.  */
 587          0,                     /* bitpos.  */
 588          complain_overflow_dont, /* complain_on_overflow.  */
 589          bfd_elf_generic_reloc, /* special_function.  */
 590          "R_BFIN_UNUSEDB",      /* name.  */
 591          FALSE,                 /* partial_inplace.  */
 592          0,                     /* src_mask.  */
 593          0,                     /* dst_mask.  */
 594          FALSE),                /* pcrel_offset.  */
 595
 596   HOWTO (R_BFIN_UNUSEDC,        /* type.  */
 597          0,                     /* rightshift.  */
 598          2,                     /* size (0 = byte, 1 = short, 2 = long).  */
 599          32,                    /* bitsize.  */
 600          FALSE,                 /* pc_relative.  */
 601          0,                     /* bitpos.  */
 602          complain_overflow_dont, /* complain_on_overflow.  */
 603          bfd_elf_generic_reloc, /* special_function.  */
 604          "R_BFIN_UNUSEDC",      /* name.  */
 605          FALSE,                 /* partial_inplace.  */
 606          0,                     /* src_mask.  */
 607          0,                     /* dst_mask.  */
 608          FALSE),                /* pcrel_offset.  */
 609
 610   HOWTO (R_BFIN_PCREL24_JUMP_L, /* type.  */
 611          1,                     /* rightshift.  */
 612          2,                     /* size (0 = byte, 1 = short, 2 = long).  */
 613          24,                    /* bitsize.  */
 614          TRUE,                  /* pc_relative.  */
 615          0,                     /* bitpos.  */
 616          complain_overflow_signed, /* complain_on_overflow.  */
 617          bfin_pcrel24_reloc,    /* special_function.  */
 618          "R_BFIN_PCREL24_JUMP_L", /* name.  */
 619          FALSE,                 /* partial_inplace.  */
 620          0,                     /* src_mask.  */
 621          0x00FFFFFF,            /* dst_mask.  */
 622          TRUE),                 /* pcrel_offset.  */
 623
 624   HOWTO (R_BFIN_PCREL24_CALL_X, /* type.  */
 625          1,                     /* rightshift.  */
 626          2,                     /* size (0 = byte, 1 = short, 2 = long).  */
 627          24,                    /* bitsize.  */
 628          TRUE,                  /* pc_relative.  */
 629          0,                     /* bitpos.  */
 630          complain_overflow_signed, /* complain_on_overflow.  */
 631          bfin_pcrel24_reloc,    /* special_function.  */
 632          "R_BFIN_PCREL24_CALL_X", /* name.  */
 633          FALSE,                 /* partial_inplace.  */
 634          0,                     /* src_mask.  */
 635          0x00FFFFFF,            /* dst_mask.  */
 636          TRUE),                 /* pcrel_offset.  */
 637
 638   HOWTO (R_BFIN_VAR_EQ_SYMB,    /* type.  */
 639          0,                     /* rightshift.  */
 640          2,                     /* size (0 = byte, 1 = short, 2 = long).  */
 641          32,                    /* bitsize.  */
 642          FALSE,                 /* pc_relative.  */
 643          0,                     /* bitpos.  */
 644          complain_overflow_bitfield, /* complain_on_overflow.  */
 645          bfin_bfd_reloc,        /* special_function.  */
 646          "R_BFIN_VAR_EQ_SYMB",  /* name.  */
 647          FALSE,                 /* partial_inplace.  */
 648          0,                     /* src_mask.  */
 649          0,                     /* dst_mask.  */
 650          FALSE),                /* pcrel_offset.  */
 651
 652   HOWTO (R_BFIN_BYTE_DATA,      /* type.  */
 653          0,                     /* rightshift.  */
 654          0,                     /* size (0 = byte, 1 = short, 2 = long).  */
 655          8,                     /* bitsize.  */
 656          FALSE,                 /* pc_relative.  */
 657          0,                     /* bitpos.  */
 658          complain_overflow_unsigned, /* complain_on_overflow.  */
 659          bfin_bfd_reloc,        /* special_function.  */
 660          "R_BFIN_BYTE_DATA",    /* name.  */
 661          FALSE,                 /* partial_inplace.  */
 662          0,                     /* src_mask.  */
 663          0xFF,                  /* dst_mask.  */
 664          TRUE),                 /* pcrel_offset.  */
 665
 666   HOWTO (R_BFIN_BYTE2_DATA,     /* type.  */
 667          0,                     /* rightshift.  */
 668          1,                     /* size (0 = byte, 1 = short, 2 = long).  */
 669          16,                    /* bitsize.  */
 670          FALSE,                 /* pc_relative.  */
 671          0,                     /* bitpos.  */
 672          complain_overflow_signed, /* complain_on_overflow.  */
 673          bfin_bfd_reloc,        /* special_function.  */
 674          "R_BFIN_BYTE2_DATA",   /* name.  */
 675          FALSE,                 /* partial_inplace.  */
 676          0,                     /* src_mask.  */
 677          0xFFFF,                /* dst_mask.  */
 678          TRUE),                 /* pcrel_offset.  */
 679
 680   HOWTO (R_BFIN_BYTE4_DATA,     /* type.  */
 681          0,                     /* rightshift.  */
 682          2,                     /* size (0 = byte, 1 = short, 2 = long).  */
 683          32,                    /* bitsize.  */
 684          FALSE,                 /* pc_relative.  */
 685          0,                     /* bitpos.  */
 686          complain_overflow_unsigned, /* complain_on_overflow.  */
 687          bfin_byte4_reloc,      /* special_function.  */
 688          "R_BFIN_BYTE4_DATA",   /* name.  */
 689          FALSE,                 /* partial_inplace.  */
 690          0,                     /* src_mask.  */
 691          0xFFFFFFFF,            /* dst_mask.  */
 692          TRUE),                 /* pcrel_offset.  */
 693
 694   HOWTO (R_BFIN_PCREL11,        /* type.  */
 695          1,                     /* rightshift.  */
 696          1,                     /* size (0 = byte, 1 = short, 2 = long).  */
 697          10,                    /* bitsize.  */
 698          TRUE,                  /* pc_relative.  */
 699          0,                     /* bitpos.  */
 700          complain_overflow_unsigned, /* complain_on_overflow.  */
 701          bfin_bfd_reloc,        /* special_function.  */
 702          "R_BFIN_PCREL11",      /* name.  */
 703          FALSE,                 /* partial_inplace.  */
 704          0,                     /* src_mask.  */
 705          0x000003FF,            /* dst_mask.  */
 706          FALSE),                /* pcrel_offset.  */
 707
 708
 709   /* A 18-bit signed operand with the GOT offset for the address of
 710      the symbol.  */
 711   HOWTO (R_BFIN_GOT17M4,        /* type */
 712          2,                     /* rightshift */
 713          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 714          16,                    /* bitsize */
 715          FALSE,                 /* pc_relative */
 716          0,                     /* bitpos */
 717          complain_overflow_signed, /* complain_on_overflow */
 718          bfd_elf_generic_reloc, /* special_function */
 719          "R_BFIN_GOT17M4",      /* name */
 720          FALSE,                 /* partial_inplace */
 721          0xffff,                /* src_mask */
 722          0xffff,                /* dst_mask */
 723          FALSE),                /* pcrel_offset */
 724
 725   /* The upper 16 bits of the GOT offset for the address of the
 726      symbol.  */
 727   HOWTO (R_BFIN_GOTHI,          /* type */
 728          0,                     /* rightshift */
 729          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 730          16,                    /* bitsize */
 731          FALSE,                 /* pc_relative */
 732          0,                     /* bitpos */
 733          complain_overflow_dont, /* complain_on_overflow */
 734          bfd_elf_generic_reloc, /* special_function */
 735          "R_BFIN_GOTHI",                /* name */
 736          FALSE,                 /* partial_inplace */
 737          0xffff,                        /* src_mask */
 738          0xffff,                /* dst_mask */
 739          FALSE),                /* pcrel_offset */
 740
 741   /* The lower 16 bits of the GOT offset for the address of the
 742      symbol.  */
 743   HOWTO (R_BFIN_GOTLO,          /* type */
 744          0,                     /* rightshift */
 745          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 746          16,                    /* bitsize */
 747          FALSE,                 /* pc_relative */
 748          0,                     /* bitpos */
 749          complain_overflow_dont, /* complain_on_overflow */
 750          bfd_elf_generic_reloc, /* special_function */
 751          "R_BFIN_GOTLO",                /* name */
 752          FALSE,                 /* partial_inplace */
 753          0xffff,                /* src_mask */
 754          0xffff,                /* dst_mask */
 755          FALSE),                /* pcrel_offset */
 756
 757   /* The 32-bit address of the canonical descriptor of a function.  */
 758   HOWTO (R_BFIN_FUNCDESC,       /* type */
 759          0,                     /* rightshift */
 760          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 761          32,                    /* bitsize */
 762          FALSE,                 /* pc_relative */
 763          0,                     /* bitpos */
 764          complain_overflow_bitfield, /* complain_on_overflow */
 765          bfd_elf_generic_reloc, /* special_function */
 766          "R_BFIN_FUNCDESC",     /* name */
 767          FALSE,                 /* partial_inplace */
 768          0xffffffff,            /* src_mask */
 769          0xffffffff,            /* dst_mask */
 770          FALSE),                /* pcrel_offset */
 771
 772   /* A 12-bit signed operand with the GOT offset for the address of
 773      canonical descriptor of a function.  */
 774   HOWTO (R_BFIN_FUNCDESC_GOT17M4,       /* type */
 775          2,                     /* rightshift */
 776          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 777          16,                    /* bitsize */
 778          FALSE,                 /* pc_relative */
 779          0,                     /* bitpos */
 780          complain_overflow_signed, /* complain_on_overflow */
 781          bfd_elf_generic_reloc, /* special_function */
 782          "R_BFIN_FUNCDESC_GOT17M4", /* name */
 783          FALSE,                 /* partial_inplace */
 784          0xffff,                /* src_mask */
 785          0xffff,                /* dst_mask */
 786          FALSE),                /* pcrel_offset */
 787
 788   /* The upper 16 bits of the GOT offset for the address of the
 789      canonical descriptor of a function.  */
 790   HOWTO (R_BFIN_FUNCDESC_GOTHI, /* type */
 791          0,                     /* rightshift */
 792          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 793          16,                    /* bitsize */
 794          FALSE,                 /* pc_relative */
 795          0,                     /* bitpos */
 796          complain_overflow_dont, /* complain_on_overflow */
 797          bfd_elf_generic_reloc, /* special_function */
 798          "R_BFIN_FUNCDESC_GOTHI", /* name */
 799          FALSE,                 /* partial_inplace */
 800          0xffff,                /* src_mask */
 801          0xffff,                /* dst_mask */
 802          FALSE),                /* pcrel_offset */
 803
 804   /* The lower 16 bits of the GOT offset for the address of the
 805      canonical descriptor of a function.  */
 806   HOWTO (R_BFIN_FUNCDESC_GOTLO, /* type */
 807          0,                     /* rightshift */
 808          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 809          16,                    /* bitsize */
 810          FALSE,                 /* pc_relative */
 811          0,                     /* bitpos */
 812          complain_overflow_dont, /* complain_on_overflow */
 813          bfd_elf_generic_reloc, /* special_function */
 814          "R_BFIN_FUNCDESC_GOTLO", /* name */
 815          FALSE,                 /* partial_inplace */
 816          0xffff,                /* src_mask */
 817          0xffff,                /* dst_mask */
 818          FALSE),                /* pcrel_offset */
 819
 820   /* The 32-bit address of the canonical descriptor of a function.  */
 821   HOWTO (R_BFIN_FUNCDESC_VALUE, /* type */
 822          0,                     /* rightshift */
 823          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 824          64,                    /* bitsize */
 825          FALSE,                 /* pc_relative */
 826          0,                     /* bitpos */
 827          complain_overflow_bitfield, /* complain_on_overflow */
 828          bfd_elf_generic_reloc, /* special_function */
 829          "R_BFIN_FUNCDESC_VALUE", /* name */
 830          FALSE,                 /* partial_inplace */
 831          0xffffffff,            /* src_mask */
 832          0xffffffff,            /* dst_mask */
 833          FALSE),                /* pcrel_offset */
 834
 835   /* A 12-bit signed operand with the GOT offset for the address of
 836      canonical descriptor of a function.  */
 837   HOWTO (R_BFIN_FUNCDESC_GOTOFF17M4, /* type */
 838          2,                     /* rightshift */
 839          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 840          16,                    /* bitsize */
 841          FALSE,                 /* pc_relative */
 842          0,                     /* bitpos */
 843          complain_overflow_signed, /* complain_on_overflow */
 844          bfd_elf_generic_reloc, /* special_function */
 845          "R_BFIN_FUNCDESC_GOTOFF17M4", /* name */
 846          FALSE,                 /* partial_inplace */
 847          0xffff,                /* src_mask */
 848          0xffff,                /* dst_mask */
 849          FALSE),                /* pcrel_offset */
 850
 851   /* The upper 16 bits of the GOT offset for the address of the
 852      canonical descriptor of a function.  */
 853   HOWTO (R_BFIN_FUNCDESC_GOTOFFHI, /* type */
 854          0,                     /* rightshift */
 855          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 856          16,                    /* bitsize */
 857          FALSE,                 /* pc_relative */
 858          0,                     /* bitpos */
 859          complain_overflow_dont, /* complain_on_overflow */
 860          bfd_elf_generic_reloc, /* special_function */
 861          "R_BFIN_FUNCDESC_GOTOFFHI", /* name */
 862          FALSE,                 /* partial_inplace */
 863          0xffff,                /* src_mask */
 864          0xffff,                /* dst_mask */
 865          FALSE),                /* pcrel_offset */
 866
 867   /* The lower 16 bits of the GOT offset for the address of the
 868      canonical descriptor of a function.  */
 869   HOWTO (R_BFIN_FUNCDESC_GOTOFFLO, /* type */
 870          0,                     /* rightshift */
 871          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 872          16,                    /* bitsize */
 873          FALSE,                 /* pc_relative */
 874          0,                     /* bitpos */
 875          complain_overflow_dont, /* complain_on_overflow */
 876          bfd_elf_generic_reloc, /* special_function */
 877          "R_BFIN_FUNCDESC_GOTOFFLO", /* name */
 878          FALSE,                 /* partial_inplace */
 879          0xffff,                /* src_mask */
 880          0xffff,                /* dst_mask */
 881          FALSE),                /* pcrel_offset */
 882
 883   /* A 12-bit signed operand with the GOT offset for the address of
 884      the symbol.  */
 885   HOWTO (R_BFIN_GOTOFF17M4,     /* type */
 886          2,                     /* rightshift */
 887          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 888          16,                    /* bitsize */
 889          FALSE,                 /* pc_relative */
 890          0,                     /* bitpos */
 891          complain_overflow_signed, /* complain_on_overflow */
 892          bfd_elf_generic_reloc, /* special_function */
 893          "R_BFIN_GOTOFF17M4",   /* name */
 894          FALSE,                 /* partial_inplace */
 895          0xffff,                /* src_mask */
 896          0xffff,                /* dst_mask */
 897          FALSE),                /* pcrel_offset */
 898
 899   /* The upper 16 bits of the GOT offset for the address of the
 900      symbol.  */
 901   HOWTO (R_BFIN_GOTOFFHI,        /* type */
 902          0,                     /* rightshift */
 903          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 904          16,                    /* bitsize */
 905          FALSE,                 /* pc_relative */
 906          0,                     /* bitpos */
 907          complain_overflow_dont, /* complain_on_overflow */
 908          bfd_elf_generic_reloc, /* special_function */
 909          "R_BFIN_GOTOFFHI",     /* name */
 910          FALSE,                 /* partial_inplace */
 911          0xffff,                /* src_mask */
 912          0xffff,                /* dst_mask */
 913          FALSE),                /* pcrel_offset */
 914
 915   /* The lower 16 bits of the GOT offset for the address of the
 916      symbol.  */
 917   HOWTO (R_BFIN_GOTOFFLO,       /* type */
 918          0,                     /* rightshift */
 919          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 920          16,                    /* bitsize */
 921          FALSE,                 /* pc_relative */
 922          0,                     /* bitpos */
 923          complain_overflow_dont, /* complain_on_overflow */
 924          bfd_elf_generic_reloc, /* special_function */
 925          "R_BFIN_GOTOFFLO",     /* name */
 926          FALSE,                 /* partial_inplace */
 927          0xffff,                /* src_mask */
 928          0xffff,                /* dst_mask */
 929          FALSE),                /* pcrel_offset */
 930 };
 931
 932 static reloc_howto_type bfin_gnuext_howto_table [] =
 933 {
 934   HOWTO (R_BFIN_PLTPC,          /* type.  */
 935          0,                     /* rightshift.  */
 936          1,                     /* size (0 = byte, 1 = short, 2 = long).  */
 937          16,                    /* bitsize.  */
 938          FALSE,                 /* pc_relative.  */
 939          0,                     /* bitpos.  */
 940          complain_overflow_bitfield, /* complain_on_overflow.  */
 941          bfin_pltpc_reloc,      /* special_function.  */
 942          "R_BFIN_PLTPC",        /* name.  */
 943          FALSE,                 /* partial_inplace.  */
 944          0xffff,                /* src_mask.  */
 945          0xffff,                /* dst_mask.  */
 946          FALSE),                /* pcrel_offset.  */
 947
 948   HOWTO (R_BFIN_GOT,            /* type.  */
 949          0,                     /* rightshift.  */
 950          1,                     /* size (0 = byte, 1 = short, 2 = long).  */
 951          16,                    /* bitsize.  */
 952          FALSE,                 /* pc_relative.  */
 953          0,                     /* bitpos.  */
 954          complain_overflow_bitfield, /* complain_on_overflow.  */
 955          bfd_elf_generic_reloc, /* special_function.  */
 956          "R_BFIN_GOT",          /* name.  */
 957          FALSE,                 /* partial_inplace.  */
 958          0x7fff,                /* src_mask.  */
 959          0x7fff,                /* dst_mask.  */
 960          FALSE),                /* pcrel_offset.  */
 961
 962 /* GNU extension to record C++ vtable hierarchy.  */
 963   HOWTO (R_BFIN_GNU_VTINHERIT, /* type.  */
 964          0,                     /* rightshift.  */
 965          2,                     /* size (0 = byte, 1 = short, 2 = long).  */
 966          0,                     /* bitsize.  */
 967          FALSE,                 /* pc_relative.  */
 968          0,                     /* bitpos.  */
 969          complain_overflow_dont, /* complain_on_overflow.  */
 970          NULL,                  /* special_function.  */
 971          "R_BFIN_GNU_VTINHERIT", /* name.  */
 972          FALSE,                 /* partial_inplace.  */
 973          0,                     /* src_mask.  */
 974          0,                     /* dst_mask.  */
 975          FALSE),                /* pcrel_offset.  */
 976
 977 /* GNU extension to record C++ vtable member usage.  */
 978   HOWTO (R_BFIN_GNU_VTENTRY,    /* type.  */
 979          0,                     /* rightshift.  */
 980          2,                     /* size (0 = byte, 1 = short, 2 = long).  */
 981          0,                     /* bitsize.  */
 982          FALSE,                 /* pc_relative.  */
 983          0,                     /* bitpos.  */
 984          complain_overflow_dont, /* complain_on_overflow.  */
 985          _bfd_elf_rel_vtable_reloc_fn, /* special_function.  */
 986          "R_BFIN_GNU_VTENTRY",  /* name.  */
 987          FALSE,                 /* partial_inplace.  */
 988          0,                     /* src_mask.  */
 989          0,                     /* dst_mask.  */
 990          FALSE)                 /* pcrel_offset.  */
 991 };
 992
 993 struct bfin_reloc_map
 994 {
 995   bfd_reloc_code_real_type      bfd_reloc_val;
 996   unsigned int                  bfin_reloc_val;
 997 };
 998
 999 static const struct bfin_reloc_map bfin_reloc_map [] =
1000 {
1001   { BFD_RELOC_NONE,                     R_BFIN_UNUSED0 },
1002   { BFD_RELOC_BFIN_5_PCREL,             R_BFIN_PCREL5M2 },
1003   { BFD_RELOC_NONE,                     R_BFIN_UNUSED1 },
1004   { BFD_RELOC_BFIN_10_PCREL,            R_BFIN_PCREL10 },
1005   { BFD_RELOC_BFIN_12_PCREL_JUMP,       R_BFIN_PCREL12_JUMP },
1006   { BFD_RELOC_BFIN_16_IMM,              R_BFIN_RIMM16 },
1007   { BFD_RELOC_BFIN_16_LOW,              R_BFIN_LUIMM16 },
1008   { BFD_RELOC_BFIN_16_HIGH,             R_BFIN_HUIMM16 },
1009   { BFD_RELOC_BFIN_12_PCREL_JUMP_S,     R_BFIN_PCREL12_JUMP_S },
1010   { BFD_RELOC_24_PCREL,                 R_BFIN_PCREL24 },
1011   { BFD_RELOC_24_PCREL,                 R_BFIN_PCREL24 },
1012   { BFD_RELOC_BFIN_24_PCREL_JUMP_L,     R_BFIN_PCREL24_JUMP_L },
1013   { BFD_RELOC_NONE,                     R_BFIN_UNUSEDB },
1014   { BFD_RELOC_NONE,                     R_BFIN_UNUSEDC },
1015   { BFD_RELOC_BFIN_24_PCREL_CALL_X,     R_BFIN_PCREL24_CALL_X },
1016   { BFD_RELOC_8,                        R_BFIN_BYTE_DATA },
1017   { BFD_RELOC_16,                       R_BFIN_BYTE2_DATA },
1018   { BFD_RELOC_32,                       R_BFIN_BYTE4_DATA },
1019   { BFD_RELOC_BFIN_11_PCREL,            R_BFIN_PCREL11 },
1020   { BFD_RELOC_BFIN_GOT,                 R_BFIN_GOT },
1021   { BFD_RELOC_BFIN_PLTPC,               R_BFIN_PLTPC },
1022
1023   { BFD_RELOC_BFIN_GOT17M4,      R_BFIN_GOT17M4 },
1024   { BFD_RELOC_BFIN_GOTHI,      R_BFIN_GOTHI },
1025   { BFD_RELOC_BFIN_GOTLO,      R_BFIN_GOTLO },
1026   { BFD_RELOC_BFIN_FUNCDESC,   R_BFIN_FUNCDESC },
1027   { BFD_RELOC_BFIN_FUNCDESC_GOT17M4, R_BFIN_FUNCDESC_GOT17M4 },
1028   { BFD_RELOC_BFIN_FUNCDESC_GOTHI, R_BFIN_FUNCDESC_GOTHI },
1029   { BFD_RELOC_BFIN_FUNCDESC_GOTLO, R_BFIN_FUNCDESC_GOTLO },
1030   { BFD_RELOC_BFIN_FUNCDESC_VALUE, R_BFIN_FUNCDESC_VALUE },
1031   { BFD_RELOC_BFIN_FUNCDESC_GOTOFF17M4, R_BFIN_FUNCDESC_GOTOFF17M4 },
1032   { BFD_RELOC_BFIN_FUNCDESC_GOTOFFHI, R_BFIN_FUNCDESC_GOTOFFHI },
1033   { BFD_RELOC_BFIN_FUNCDESC_GOTOFFLO, R_BFIN_FUNCDESC_GOTOFFLO },
1034   { BFD_RELOC_BFIN_GOTOFF17M4,   R_BFIN_GOTOFF17M4 },
1035   { BFD_RELOC_BFIN_GOTOFFHI,   R_BFIN_GOTOFFHI },
1036   { BFD_RELOC_BFIN_GOTOFFLO,   R_BFIN_GOTOFFLO },
1037
1038   { BFD_RELOC_VTABLE_INHERIT,           R_BFIN_GNU_VTINHERIT },
1039   { BFD_RELOC_VTABLE_ENTRY,             R_BFIN_GNU_VTENTRY },
1040 };
1041
1042
1043 static void
1044 bfin_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
1045                     arelent *cache_ptr,
1046                     Elf_Internal_Rela *dst)
1047 {
1048   unsigned int r_type;
1049
1050   r_type = ELF32_R_TYPE (dst->r_info);
1051
1052   if (r_type <= BFIN_RELOC_MAX)
1053     cache_ptr->howto = &bfin_howto_table [r_type];
1054
1055   else if (r_type >= BFIN_GNUEXT_RELOC_MIN && r_type <= BFIN_GNUEXT_RELOC_MAX)
1056     cache_ptr->howto = &bfin_gnuext_howto_table [r_type - BFIN_GNUEXT_RELOC_MIN];
1057
1058   else
1059     cache_ptr->howto = (reloc_howto_type *) NULL;
1060 }
1061
1062 /* Given a BFD reloc type, return the howto.  */
1063 static reloc_howto_type *
1064 bfin_bfd_reloc_type_lookup (bfd * abfd ATTRIBUTE_UNUSED,
1065                             bfd_reloc_code_real_type code)
1066 {
1067   unsigned int i;
1068   unsigned int r_type = BFIN_RELOC_MIN;
1069
1070   for (i = sizeof (bfin_reloc_map) / sizeof (bfin_reloc_map[0]); --i;)
1071     if (bfin_reloc_map[i].bfd_reloc_val == code)
1072       r_type = bfin_reloc_map[i].bfin_reloc_val;
1073
1074   if (r_type <= BFIN_RELOC_MAX && r_type > BFIN_RELOC_MIN)
1075     return &bfin_howto_table [r_type];
1076
1077   else if (r_type >= BFIN_GNUEXT_RELOC_MIN && r_type <= BFIN_GNUEXT_RELOC_MAX)
1078    return &bfin_gnuext_howto_table [r_type - BFIN_GNUEXT_RELOC_MIN];
1079
1080   return (reloc_howto_type *) NULL;
1081 }
1082
1083 static reloc_howto_type *
1084 bfin_bfd_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1085                             const char *r_name)
1086 {
1087   unsigned int i;
1088
1089   for (i = 0;
1090        i < (sizeof (bfin_howto_table)
1091             / sizeof (bfin_howto_table[0]));
1092        i++)
1093     if (bfin_howto_table[i].name != NULL
1094         && strcasecmp (bfin_howto_table[i].name, r_name) == 0)
1095       return &bfin_howto_table[i];
1096
1097   for (i = 0;
1098        i < (sizeof (bfin_gnuext_howto_table)
1099             / sizeof (bfin_gnuext_howto_table[0]));
1100        i++)
1101     if (bfin_gnuext_howto_table[i].name != NULL
1102         && strcasecmp (bfin_gnuext_howto_table[i].name, r_name) == 0)
1103       return &bfin_gnuext_howto_table[i];
1104
1105   return NULL;
1106 }
1107
1108 /* Given a bfin relocation type, return the howto.  */
1109 static reloc_howto_type *
1110 bfin_reloc_type_lookup (bfd * abfd ATTRIBUTE_UNUSED,
1111                             unsigned int r_type)
1112 {
1113   if (r_type <= BFIN_RELOC_MAX)
1114     return &bfin_howto_table [r_type];
1115
1116   else if (r_type >= BFIN_GNUEXT_RELOC_MIN && r_type <= BFIN_GNUEXT_RELOC_MAX)
1117    return &bfin_gnuext_howto_table [r_type - BFIN_GNUEXT_RELOC_MIN];
1118
1119   return (reloc_howto_type *) NULL;
1120 }
1121
1122 /* Return TRUE if the name is a local label.
1123    bfin local labels begin with L$.  */
1124 static bfd_boolean
1125 bfin_is_local_label_name (
1126      bfd *abfd,
1127      const char *label)
1128 {
1129   if (label[0] == 'L' && label[1] == '$' )
1130     return TRUE;
1131
1132   return _bfd_elf_is_local_label_name (abfd, label);
1133 }
1134 \f
1135 /* Look through the relocs for a section during the first phase, and
1136    allocate space in the global offset table or procedure linkage
1137    table.  */
1138
1139 static bfd_boolean
1140 bfin_check_relocs (bfd * abfd,
1141                    struct bfd_link_info *info,
1142                    asection *sec,
1143                    const Elf_Internal_Rela *relocs)
1144 {
1145   bfd *dynobj;
1146   Elf_Internal_Shdr *symtab_hdr;
1147   struct elf_link_hash_entry **sym_hashes;
1148   bfd_signed_vma *local_got_refcounts;
1149   const Elf_Internal_Rela *rel;
1150   const Elf_Internal_Rela *rel_end;
1151   asection *sgot;
1152   asection *srelgot;
1153   if (info->relocatable)
1154     return TRUE;
1155
1156   dynobj = elf_hash_table (info)->dynobj;
1157   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1158   sym_hashes = elf_sym_hashes (abfd);
1159   local_got_refcounts = elf_local_got_refcounts (abfd);
1160
1161   sgot = NULL;
1162   srelgot = NULL;
1163
1164   rel_end = relocs + sec->reloc_count;
1165   for (rel = relocs; rel < rel_end; rel++)
1166     {
1167       unsigned long r_symndx;
1168       struct elf_link_hash_entry *h;
1169
1170       r_symndx = ELF32_R_SYM (rel->r_info);
1171       if (r_symndx < symtab_hdr->sh_info)
1172         h = NULL;
1173       else
1174         h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1175
1176       switch (ELF32_R_TYPE (rel->r_info))
1177         {
1178        /* This relocation describes the C++ object vtable hierarchy.
1179            Reconstruct it for later use during GC.  */
1180         case R_BFIN_GNU_VTINHERIT:
1181           if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
1182             return FALSE;
1183           break;
1184
1185         /* This relocation describes which C++ vtable entries
1186            are actually used.  Record for later use during GC.  */
1187         case R_BFIN_GNU_VTENTRY:
1188           BFD_ASSERT (h != NULL);
1189           if (h != NULL
1190               && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
1191             return FALSE;
1192           break;
1193
1194         case R_BFIN_GOT:
1195           if (h != NULL
1196               && strcmp (h->root.root.string, "__GLOBAL_OFFSET_TABLE_") == 0)
1197             break;
1198           /* Fall through.  */
1199
1200           if (dynobj == NULL)
1201             {
1202               /* Create the .got section.  */
1203               elf_hash_table (info)->dynobj = dynobj = abfd;
1204               if (!_bfd_elf_create_got_section (dynobj, info))
1205                 return FALSE;
1206             }
1207
1208           if (sgot == NULL)
1209             {
1210               sgot = bfd_get_section_by_name (dynobj, ".got");
1211               BFD_ASSERT (sgot != NULL);
1212             }
1213
1214           if (srelgot == NULL && (h != NULL || info->shared))
1215             {
1216               srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
1217               if (srelgot == NULL)
1218                 {
1219                   flagword flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS
1220                                     | SEC_IN_MEMORY | SEC_LINKER_CREATED
1221                                     | SEC_READONLY);
1222                   srelgot = bfd_make_section_with_flags (dynobj, ".rela.got",
1223                                                          flags);
1224                   if (srelgot == NULL
1225                       || !bfd_set_section_alignment (dynobj, srelgot, 2))
1226                     return FALSE;
1227                 }
1228             }
1229
1230           if (h != NULL)
1231             {
1232               if (h->got.refcount == 0)
1233                 {
1234                   /* Make sure this symbol is output as a dynamic symbol.  */
1235                   if (h->dynindx == -1 && !h->forced_local)
1236                     {
1237                       if (!bfd_elf_link_record_dynamic_symbol (info, h))
1238                         return FALSE;
1239                     }
1240
1241                   /* Allocate space in the .got section.  */
1242                   sgot->size += 4;
1243                   /* Allocate relocation space.  */
1244                   srelgot->size += sizeof (Elf32_External_Rela);
1245                 }
1246               h->got.refcount++;
1247             }
1248           else
1249             {
1250               /* This is a global offset table entry for a local symbol.  */
1251               if (local_got_refcounts == NULL)
1252                 {
1253                   bfd_size_type size;
1254
1255                   size = symtab_hdr->sh_info;
1256                   size *= sizeof (bfd_signed_vma);
1257                   local_got_refcounts = ((bfd_signed_vma *)
1258                                          bfd_zalloc (abfd, size));
1259                   if (local_got_refcounts == NULL)
1260                     return FALSE;
1261                   elf_local_got_refcounts (abfd) = local_got_refcounts;
1262                 }
1263               if (local_got_refcounts[r_symndx] == 0)
1264                 {
1265                   sgot->size += 4;
1266                   if (info->shared)
1267                     {
1268                       /* If we are generating a shared object, we need to
1269                          output a R_68K_RELATIVE reloc so that the dynamic
1270                          linker can adjust this GOT entry.  */
1271                       srelgot->size += sizeof (Elf32_External_Rela);
1272                     }
1273                 }
1274               local_got_refcounts[r_symndx]++;
1275             }
1276           break;
1277
1278         default:
1279           break;
1280         }
1281     }
1282
1283   return TRUE;
1284 }
1285
1286 static enum elf_reloc_type_class
1287 elf32_bfin_reloc_type_class (const Elf_Internal_Rela * rela)
1288 {
1289   switch ((int) ELF32_R_TYPE (rela->r_info))
1290     {
1291     default:
1292       return reloc_class_normal;
1293     }
1294 }
1295 \f
1296 static bfd_reloc_status_type
1297 bfin_final_link_relocate (Elf_Internal_Rela *rel, reloc_howto_type *howto,
1298                           bfd *input_bfd, asection *input_section,
1299                           bfd_byte *contents, bfd_vma address,
1300                           bfd_vma value, bfd_vma addend)
1301 {
1302   int r_type = ELF32_R_TYPE (rel->r_info);
1303
1304   if (r_type == R_BFIN_PCREL24 || r_type == R_BFIN_PCREL24_JUMP_L)
1305     {
1306       bfd_reloc_status_type r = bfd_reloc_ok;
1307       bfd_vma x;
1308
1309       if (address > bfd_get_section_limit (input_bfd, input_section))
1310         return bfd_reloc_outofrange;
1311
1312       value += addend;
1313
1314       /* Perform usual pc-relative correction.  */
1315       value -= input_section->output_section->vma + input_section->output_offset;
1316       value -= address;
1317
1318       /* We are getting reloc_entry->address 2 byte off from
1319          the start of instruction. Assuming absolute postion
1320          of the reloc data. But, following code had been written assuming
1321          reloc address is starting at begining of instruction.
1322          To compensate that I have increased the value of
1323          relocation by 1 (effectively 2) and used the addr -2 instead of addr.  */
1324
1325       value += 2;
1326       address -= 2;
1327
1328       if ((value & 0xFF000000) != 0
1329           && (value & 0xFF000000) != 0xFF000000)
1330         r = bfd_reloc_overflow;
1331
1332       value >>= 1;
1333
1334       x = bfd_get_16 (input_bfd, contents + address);
1335       x = (x & 0xff00) | ((value >> 16) & 0xff);
1336       bfd_put_16 (input_bfd, x, contents + address);
1337
1338       x = bfd_get_16 (input_bfd, contents + address + 2);
1339       x = value & 0xFFFF;
1340       bfd_put_16 (input_bfd, x, contents + address + 2);
1341       return r;
1342     }
1343
1344   return _bfd_final_link_relocate (howto, input_bfd, input_section, contents,
1345                                    rel->r_offset, value, addend);
1346
1347 }
1348
1349 static bfd_boolean
1350 bfin_relocate_section (bfd * output_bfd,
1351                        struct bfd_link_info *info,
1352                        bfd * input_bfd,
1353                        asection * input_section,
1354                        bfd_byte * contents,
1355                        Elf_Internal_Rela * relocs,
1356                        Elf_Internal_Sym * local_syms,
1357                        asection ** local_sections)
1358 {
1359   bfd *dynobj;
1360   Elf_Internal_Shdr *symtab_hdr;
1361   struct elf_link_hash_entry **sym_hashes;
1362   bfd_vma *local_got_offsets;
1363   asection *sgot;
1364   Elf_Internal_Rela *rel;
1365   Elf_Internal_Rela *relend;
1366   int i = 0;
1367
1368   dynobj = elf_hash_table (info)->dynobj;
1369   symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
1370   sym_hashes = elf_sym_hashes (input_bfd);
1371   local_got_offsets = elf_local_got_offsets (input_bfd);
1372
1373   sgot = NULL;
1374
1375   rel = relocs;
1376   relend = relocs + input_section->reloc_count;
1377   for (; rel < relend; rel++, i++)
1378     {
1379       int r_type;
1380       reloc_howto_type *howto;
1381       unsigned long r_symndx;
1382       struct elf_link_hash_entry *h;
1383       Elf_Internal_Sym *sym;
1384       asection *sec;
1385       bfd_vma relocation = 0;
1386       bfd_boolean unresolved_reloc;
1387       bfd_reloc_status_type r;
1388       bfd_vma address;
1389
1390       r_type = ELF32_R_TYPE (rel->r_info);
1391       if (r_type < 0 || r_type >= 243)
1392         {
1393           bfd_set_error (bfd_error_bad_value);
1394           return FALSE;
1395         }
1396
1397       if (r_type == R_BFIN_GNU_VTENTRY
1398           || r_type == R_BFIN_GNU_VTINHERIT)
1399         continue;
1400
1401       howto = bfin_reloc_type_lookup (input_bfd, r_type);
1402       if (howto == NULL)
1403         {
1404           bfd_set_error (bfd_error_bad_value);
1405           return FALSE;
1406         }
1407       r_symndx = ELF32_R_SYM (rel->r_info);
1408
1409       h = NULL;
1410       sym = NULL;
1411       sec = NULL;
1412       unresolved_reloc = FALSE;
1413
1414       if (r_symndx < symtab_hdr->sh_info)
1415         {
1416           sym = local_syms + r_symndx;
1417           sec = local_sections[r_symndx];
1418           relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
1419         }
1420       else
1421         {
1422           bfd_boolean warned;
1423
1424           RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
1425                                    r_symndx, symtab_hdr, sym_hashes,
1426                                    h, sec, relocation,
1427                                    unresolved_reloc, warned);
1428         }
1429
1430       if (sec != NULL && elf_discarded_section (sec))
1431         {
1432           /* For relocs against symbols from removed linkonce sections,
1433              or sections discarded by a linker script, we just want the
1434              section contents zeroed.  Avoid any special processing.  */
1435           _bfd_clear_contents (howto, input_bfd, contents + rel->r_offset);
1436           rel->r_info = 0;
1437           rel->r_addend = 0;
1438           continue;
1439         }
1440
1441       if (info->relocatable)
1442         continue;
1443
1444       address = rel->r_offset;
1445
1446       /* Then, process normally.  */
1447       switch (r_type)
1448         {
1449         case R_BFIN_GNU_VTINHERIT:
1450         case R_BFIN_GNU_VTENTRY:
1451           return bfd_reloc_ok;
1452
1453         case R_BFIN_GOT:
1454           /* Relocation is to the address of the entry for this symbol
1455              in the global offset table.  */
1456           if (h != NULL
1457               && strcmp (h->root.root.string, "__GLOBAL_OFFSET_TABLE_") == 0)
1458             goto do_default;
1459           /* Fall through.  */
1460           /* Relocation is the offset of the entry for this symbol in
1461              the global offset table.  */
1462
1463           {
1464             bfd_vma off;
1465
1466           if (dynobj == NULL)
1467             {
1468               /* Create the .got section.  */
1469               elf_hash_table (info)->dynobj = dynobj = output_bfd;
1470               if (!_bfd_elf_create_got_section (dynobj, info))
1471                 return FALSE;
1472             }
1473
1474             if (sgot == NULL)
1475               {
1476                 sgot = bfd_get_section_by_name (dynobj, ".got");
1477                 BFD_ASSERT (sgot != NULL);
1478               }
1479
1480             if (h != NULL)
1481               {
1482                 bfd_boolean dyn;
1483
1484                 off = h->got.offset;
1485                 BFD_ASSERT (off != (bfd_vma) - 1);
1486                 dyn = elf_hash_table (info)->dynamic_sections_created;
1487
1488                 if (!WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
1489                     || (info->shared
1490                         && (info->symbolic
1491                             || h->dynindx == -1
1492                             || h->forced_local)
1493                         && h->def_regular))
1494                   {
1495                     /* This is actually a static link, or it is a
1496                        -Bsymbolic link and the symbol is defined
1497                        locally, or the symbol was forced to be local
1498                        because of a version file..  We must initialize
1499                        this entry in the global offset table.  Since
1500                        the offset must always be a multiple of 4, we
1501                        use the least significant bit to record whether
1502                        we have initialized it already.
1503
1504                        When doing a dynamic link, we create a .rela.got
1505                        relocation entry to initialize the value.  This
1506                        is done in the finish_dynamic_symbol routine.  */
1507                     if ((off & 1) != 0)
1508                       off &= ~1;
1509                     else
1510                       {
1511                         bfd_put_32 (output_bfd, relocation,
1512                                     sgot->contents + off);
1513                         h->got.offset |= 1;
1514                       }
1515                   }
1516                 else
1517                   unresolved_reloc = FALSE;
1518               }
1519             else
1520               {
1521                 BFD_ASSERT (local_got_offsets != NULL);
1522                 off = local_got_offsets[r_symndx];
1523                 BFD_ASSERT (off != (bfd_vma) - 1);
1524
1525                 /* The offset must always be a multiple of 4.  We use
1526                    the least significant bit to record whether we have
1527                    already generated the necessary reloc.  */
1528                 if ((off & 1) != 0)
1529                   off &= ~1;
1530                 else
1531                   {
1532                     bfd_put_32 (output_bfd, relocation, sgot->contents + off);
1533
1534                     if (info->shared)
1535                       {
1536                         asection *s;
1537                         Elf_Internal_Rela outrel;
1538                         bfd_byte *loc;
1539
1540                         s = bfd_get_section_by_name (dynobj, ".rela.got");
1541                         BFD_ASSERT (s != NULL);
1542
1543                         outrel.r_offset = (sgot->output_section->vma
1544                                            + sgot->output_offset + off);
1545                         outrel.r_info =
1546                           ELF32_R_INFO (0, R_BFIN_PCREL24);
1547                         outrel.r_addend = relocation;
1548                         loc = s->contents;
1549                         loc +=
1550                           s->reloc_count++ * sizeof (Elf32_External_Rela);
1551                         bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
1552                       }
1553
1554                     local_got_offsets[r_symndx] |= 1;
1555                   }
1556               }
1557
1558             relocation = sgot->output_offset + off;
1559             rel->r_addend = 0;
1560             /* bfin : preg = [preg + 17bitdiv4offset] relocation is div by 4.  */
1561             relocation /= 4;
1562           }
1563           goto do_default;
1564
1565         default:
1566         do_default:
1567           r = bfin_final_link_relocate (rel, howto, input_bfd, input_section,
1568                                         contents, address,
1569                                         relocation, rel->r_addend);
1570
1571           break;
1572         }
1573
1574       /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
1575          because such sections are not SEC_ALLOC and thus ld.so will
1576          not process them.  */
1577       if (unresolved_reloc
1578           && !((input_section->flags & SEC_DEBUGGING) != 0 && h->def_dynamic))
1579         {
1580           (*_bfd_error_handler)
1581             (_("%B(%A+0x%lx): unresolvable relocation against symbol `%s'"),
1582              input_bfd,
1583              input_section, (long) rel->r_offset, h->root.root.string);
1584           return FALSE;
1585         }
1586
1587       if (r != bfd_reloc_ok)
1588         {
1589           const char *name;
1590
1591           if (h != NULL)
1592             name = h->root.root.string;
1593           else
1594             {
1595               name = bfd_elf_string_from_elf_section (input_bfd,
1596                                                       symtab_hdr->sh_link,
1597                                                       sym->st_name);
1598               if (name == NULL)
1599                 return FALSE;
1600               if (*name == '\0')
1601                 name = bfd_section_name (input_bfd, sec);
1602             }
1603
1604           if (r == bfd_reloc_overflow)
1605             {
1606               if (!(info->callbacks->reloc_overflow
1607                     (info, (h ? &h->root : NULL), name, howto->name,
1608                      (bfd_vma) 0, input_bfd, input_section, rel->r_offset)))
1609                 return FALSE;
1610             }
1611           else
1612             {
1613               (*_bfd_error_handler)
1614                 (_("%B(%A+0x%lx): reloc against `%s': error %d"),
1615                  input_bfd, input_section,
1616                  (long) rel->r_offset, name, (int) r);
1617               return FALSE;
1618             }
1619         }
1620     }
1621
1622   return TRUE;
1623 }
1624
1625 static asection *
1626 bfin_gc_mark_hook (asection * sec,
1627                    struct bfd_link_info *info,
1628                    Elf_Internal_Rela * rel,
1629                    struct elf_link_hash_entry *h,
1630                    Elf_Internal_Sym * sym)
1631 {
1632   if (h != NULL)
1633     switch (ELF32_R_TYPE (rel->r_info))
1634       {
1635       case R_BFIN_GNU_VTINHERIT:
1636       case R_BFIN_GNU_VTENTRY:
1637         return NULL;
1638       }
1639
1640   return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
1641 }
1642
1643 /* Update the got entry reference counts for the section being removed.  */
1644
1645 static bfd_boolean
1646 bfin_gc_sweep_hook (bfd * abfd,
1647                     struct bfd_link_info *info,
1648                     asection * sec,
1649                     const Elf_Internal_Rela * relocs)
1650 {
1651   Elf_Internal_Shdr *symtab_hdr;
1652   struct elf_link_hash_entry **sym_hashes;
1653   bfd_signed_vma *local_got_refcounts;
1654   const Elf_Internal_Rela *rel, *relend;
1655   bfd *dynobj;
1656   asection *sgot;
1657   asection *srelgot;
1658
1659   dynobj = elf_hash_table (info)->dynobj;
1660   if (dynobj == NULL)
1661     return TRUE;
1662
1663   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1664   sym_hashes = elf_sym_hashes (abfd);
1665   local_got_refcounts = elf_local_got_refcounts (abfd);
1666
1667   sgot = bfd_get_section_by_name (dynobj, ".got");
1668   srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
1669
1670   relend = relocs + sec->reloc_count;
1671   for (rel = relocs; rel < relend; rel++)
1672     {
1673       unsigned long r_symndx;
1674       struct elf_link_hash_entry *h;
1675
1676       switch (ELF32_R_TYPE (rel->r_info))
1677         {
1678         case R_BFIN_GOT:
1679           r_symndx = ELF32_R_SYM (rel->r_info);
1680           if (r_symndx >= symtab_hdr->sh_info)
1681             {
1682               h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1683               if (h->got.refcount > 0)
1684                 {
1685                   --h->got.refcount;
1686                   if (h->got.refcount == 0)
1687                     {
1688                       /* We don't need the .got entry any more.  */
1689                       sgot->size -= 4;
1690                       srelgot->size -= sizeof (Elf32_External_Rela);
1691                     }
1692                 }
1693             }
1694           else if (local_got_refcounts != NULL)
1695             {
1696               if (local_got_refcounts[r_symndx] > 0)
1697                 {
1698                   --local_got_refcounts[r_symndx];
1699                   if (local_got_refcounts[r_symndx] == 0)
1700                     {
1701                       /* We don't need the .got entry any more.  */
1702                       sgot->size -= 4;
1703                       if (info->shared)
1704                         srelgot->size -= sizeof (Elf32_External_Rela);
1705                     }
1706                 }
1707             }
1708           break;
1709         default:
1710           break;
1711         }
1712     }
1713   return TRUE;
1714 }
1715 \f
1716 extern const bfd_target bfd_elf32_bfinfdpic_vec;
1717 #define IS_FDPIC(bfd) ((bfd)->xvec == &bfd_elf32_bfinfdpic_vec)
1718
1719 /* An extension of the elf hash table data structure, containing some
1720    additional Blackfin-specific data.  */
1721 struct bfinfdpic_elf_link_hash_table
1722 {
1723   struct elf_link_hash_table elf;
1724
1725   /* A pointer to the .got section.  */
1726   asection *sgot;
1727   /* A pointer to the .rel.got section.  */
1728   asection *sgotrel;
1729   /* A pointer to the .rofixup section.  */
1730   asection *sgotfixup;
1731   /* A pointer to the .plt section.  */
1732   asection *splt;
1733   /* A pointer to the .rel.plt section.  */
1734   asection *spltrel;
1735   /* GOT base offset.  */
1736   bfd_vma got0;
1737   /* Location of the first non-lazy PLT entry, i.e., the number of
1738      bytes taken by lazy PLT entries.  */
1739   bfd_vma plt0;
1740   /* A hash table holding information about which symbols were
1741      referenced with which PIC-related relocations.  */
1742   struct htab *relocs_info;
1743   /* Summary reloc information collected by
1744      _bfinfdpic_count_got_plt_entries.  */
1745   struct _bfinfdpic_dynamic_got_info *g;
1746 };
1747
1748 /* Get the Blackfin ELF linker hash table from a link_info structure.  */
1749
1750 #define bfinfdpic_hash_table(info) \
1751   ((struct bfinfdpic_elf_link_hash_table *) ((info)->hash))
1752
1753 #define bfinfdpic_got_section(info) \
1754   (bfinfdpic_hash_table (info)->sgot)
1755 #define bfinfdpic_gotrel_section(info) \
1756   (bfinfdpic_hash_table (info)->sgotrel)
1757 #define bfinfdpic_gotfixup_section(info) \
1758   (bfinfdpic_hash_table (info)->sgotfixup)
1759 #define bfinfdpic_plt_section(info) \
1760   (bfinfdpic_hash_table (info)->splt)
1761 #define bfinfdpic_pltrel_section(info) \
1762   (bfinfdpic_hash_table (info)->spltrel)
1763 #define bfinfdpic_relocs_info(info) \
1764   (bfinfdpic_hash_table (info)->relocs_info)
1765 #define bfinfdpic_got_initial_offset(info) \
1766   (bfinfdpic_hash_table (info)->got0)
1767 #define bfinfdpic_plt_initial_offset(info) \
1768   (bfinfdpic_hash_table (info)->plt0)
1769 #define bfinfdpic_dynamic_got_plt_info(info) \
1770   (bfinfdpic_hash_table (info)->g)
1771
1772 /* The name of the dynamic interpreter.  This is put in the .interp
1773    section.  */
1774
1775 #define ELF_DYNAMIC_INTERPRETER "/lib/ld.so.1"
1776
1777 #define DEFAULT_STACK_SIZE 0x20000
1778
1779 /* This structure is used to collect the number of entries present in
1780    each addressable range of the got.  */
1781 struct _bfinfdpic_dynamic_got_info
1782 {
1783   /* Several bits of information about the current link.  */
1784   struct bfd_link_info *info;
1785   /* Total size needed for GOT entries within the 18- or 32-bit
1786      ranges.  */
1787   bfd_vma got17m4, gothilo;
1788   /* Total size needed for function descriptor entries within the 18-
1789      or 32-bit ranges.  */
1790   bfd_vma fd17m4, fdhilo;
1791   /* Total size needed function descriptor entries referenced in PLT
1792      entries, that would be profitable to place in offsets close to
1793      the PIC register.  */
1794   bfd_vma fdplt;
1795   /* Total size needed by lazy PLT entries.  */
1796   bfd_vma lzplt;
1797   /* Number of relocations carried over from input object files.  */
1798   unsigned long relocs;
1799   /* Number of fixups introduced by relocations in input object files.  */
1800   unsigned long fixups;
1801 };
1802
1803 /* Create a Blackfin ELF linker hash table.  */
1804
1805 static struct bfd_link_hash_table *
1806 bfinfdpic_elf_link_hash_table_create (bfd *abfd)
1807 {
1808   struct bfinfdpic_elf_link_hash_table *ret;
1809   bfd_size_type amt = sizeof (struct bfinfdpic_elf_link_hash_table);
1810
1811   ret = bfd_zalloc (abfd, amt);
1812   if (ret == NULL)
1813     return NULL;
1814
1815   if (!_bfd_elf_link_hash_table_init (&ret->elf, abfd,
1816                                       _bfd_elf_link_hash_newfunc,
1817                                       sizeof (struct elf_link_hash_entry)))
1818     {
1819       free (ret);
1820       return NULL;
1821     }
1822
1823   return &ret->elf.root;
1824 }
1825
1826 /* Decide whether a reference to a symbol can be resolved locally or
1827    not.  If the symbol is protected, we want the local address, but
1828    its function descriptor must be assigned by the dynamic linker.  */
1829 #define BFINFDPIC_SYM_LOCAL(INFO, H) \
1830   (_bfd_elf_symbol_refs_local_p ((H), (INFO), 1) \
1831    || ! elf_hash_table (INFO)->dynamic_sections_created)
1832 #define BFINFDPIC_FUNCDESC_LOCAL(INFO, H) \
1833   ((H)->dynindx == -1 || ! elf_hash_table (INFO)->dynamic_sections_created)
1834
1835 /* This structure collects information on what kind of GOT, PLT or
1836    function descriptors are required by relocations that reference a
1837    certain symbol.  */
1838 struct bfinfdpic_relocs_info
1839 {
1840   /* The index of the symbol, as stored in the relocation r_info, if
1841      we have a local symbol; -1 otherwise.  */
1842   long symndx;
1843   union
1844   {
1845     /* The input bfd in which the symbol is defined, if it's a local
1846        symbol.  */
1847     bfd *abfd;
1848     /* If symndx == -1, the hash table entry corresponding to a global
1849        symbol (even if it turns out to bind locally, in which case it
1850        should ideally be replaced with section's symndx + addend).  */
1851     struct elf_link_hash_entry *h;
1852   } d;
1853   /* The addend of the relocation that references the symbol.  */
1854   bfd_vma addend;
1855
1856   /* The fields above are used to identify an entry.  The fields below
1857      contain information on how an entry is used and, later on, which
1858      locations it was assigned.  */
1859   /* The following 2 fields record whether the symbol+addend above was
1860      ever referenced with a GOT relocation.  The 17M4 suffix indicates a
1861      GOT17M4 relocation; hilo is used for GOTLO/GOTHI pairs.  */
1862   unsigned got17m4;
1863   unsigned gothilo;
1864   /* Whether a FUNCDESC relocation references symbol+addend.  */
1865   unsigned fd;
1866   /* Whether a FUNCDESC_GOT relocation references symbol+addend.  */
1867   unsigned fdgot17m4;
1868   unsigned fdgothilo;
1869   /* Whether a FUNCDESC_GOTOFF relocation references symbol+addend.  */
1870   unsigned fdgoff17m4;
1871   unsigned fdgoffhilo;
1872   /* Whether symbol+addend is referenced with GOTOFF17M4, GOTOFFLO or
1873      GOTOFFHI relocations.  The addend doesn't really matter, since we
1874      envision that this will only be used to check whether the symbol
1875      is mapped to the same segment as the got.  */
1876   unsigned gotoff;
1877   /* Whether symbol+addend is referenced by a LABEL24 relocation.  */
1878   unsigned call;
1879   /* Whether symbol+addend is referenced by a 32 or FUNCDESC_VALUE
1880      relocation.  */
1881   unsigned sym;
1882   /* Whether we need a PLT entry for a symbol.  Should be implied by
1883      something like:
1884      (call && symndx == -1 && ! BFINFDPIC_SYM_LOCAL (info, d.h))  */
1885   unsigned plt:1;
1886   /* Whether a function descriptor should be created in this link unit
1887      for symbol+addend.  Should be implied by something like:
1888      (plt || fdgotoff17m4 || fdgotofflohi
1889       || ((fd || fdgot17m4 || fdgothilo)
1890           && (symndx != -1 || BFINFDPIC_FUNCDESC_LOCAL (info, d.h))))  */
1891   unsigned privfd:1;
1892   /* Whether a lazy PLT entry is needed for this symbol+addend.
1893      Should be implied by something like:
1894      (privfd && symndx == -1 && ! BFINFDPIC_SYM_LOCAL (info, d.h)
1895       && ! (info->flags & DF_BIND_NOW))  */
1896   unsigned lazyplt:1;
1897   /* Whether we've already emitted GOT relocations and PLT entries as
1898      needed for this symbol.  */
1899   unsigned done:1;
1900
1901   /* The number of R_BFIN_BYTE4_DATA, R_BFIN_FUNCDESC and R_BFIN_FUNCDESC_VALUE
1902      relocations referencing the symbol.  */
1903   unsigned relocs32, relocsfd, relocsfdv;
1904
1905   /* The number of .rofixups entries and dynamic relocations allocated
1906      for this symbol, minus any that might have already been used.  */
1907   unsigned fixups, dynrelocs;
1908
1909   /* The offsets of the GOT entries assigned to symbol+addend, to the
1910      function descriptor's address, and to a function descriptor,
1911      respectively.  Should be zero if unassigned.  The offsets are
1912      counted from the value that will be assigned to the PIC register,
1913      not from the beginning of the .got section.  */
1914   bfd_signed_vma got_entry, fdgot_entry, fd_entry;
1915   /* The offsets of the PLT entries assigned to symbol+addend,
1916      non-lazy and lazy, respectively.  If unassigned, should be
1917      (bfd_vma)-1.  */
1918   bfd_vma plt_entry, lzplt_entry;
1919 };
1920
1921 /* Compute a hash with the key fields of an bfinfdpic_relocs_info entry.  */
1922 static hashval_t
1923 bfinfdpic_relocs_info_hash (const void *entry_)
1924 {
1925   const struct bfinfdpic_relocs_info *entry = entry_;
1926
1927   return (entry->symndx == -1
1928           ? (long) entry->d.h->root.root.hash
1929           : entry->symndx + (long) entry->d.abfd->id * 257) + entry->addend;
1930 }
1931
1932 /* Test whether the key fields of two bfinfdpic_relocs_info entries are
1933    identical.  */
1934 static int
1935 bfinfdpic_relocs_info_eq (const void *entry1, const void *entry2)
1936 {
1937   const struct bfinfdpic_relocs_info *e1 = entry1;
1938   const struct bfinfdpic_relocs_info *e2 = entry2;
1939
1940   return e1->symndx == e2->symndx && e1->addend == e2->addend
1941     && (e1->symndx == -1 ? e1->d.h == e2->d.h : e1->d.abfd == e2->d.abfd);
1942 }
1943
1944 /* Find or create an entry in a hash table HT that matches the key
1945    fields of the given ENTRY.  If it's not found, memory for a new
1946    entry is allocated in ABFD's obstack.  */
1947 static struct bfinfdpic_relocs_info *
1948 bfinfdpic_relocs_info_find (struct htab *ht,
1949                            bfd *abfd,
1950                            const struct bfinfdpic_relocs_info *entry,
1951                            enum insert_option insert)
1952 {
1953   struct bfinfdpic_relocs_info **loc =
1954     (struct bfinfdpic_relocs_info **) htab_find_slot (ht, entry, insert);
1955
1956   if (! loc)
1957     return NULL;
1958
1959   if (*loc)
1960     return *loc;
1961
1962   *loc = bfd_zalloc (abfd, sizeof (**loc));
1963
1964   if (! *loc)
1965     return *loc;
1966
1967   (*loc)->symndx = entry->symndx;
1968   (*loc)->d = entry->d;
1969   (*loc)->addend = entry->addend;
1970   (*loc)->plt_entry = (bfd_vma)-1;
1971   (*loc)->lzplt_entry = (bfd_vma)-1;
1972
1973   return *loc;
1974 }
1975
1976 /* Obtain the address of the entry in HT associated with H's symbol +
1977    addend, creating a new entry if none existed.  ABFD is only used
1978    for memory allocation purposes.  */
1979 inline static struct bfinfdpic_relocs_info *
1980 bfinfdpic_relocs_info_for_global (struct htab *ht,
1981                                  bfd *abfd,
1982                                  struct elf_link_hash_entry *h,
1983                                  bfd_vma addend,
1984                                  enum insert_option insert)
1985 {
1986   struct bfinfdpic_relocs_info entry;
1987
1988   entry.symndx = -1;
1989   entry.d.h = h;
1990   entry.addend = addend;
1991
1992   return bfinfdpic_relocs_info_find (ht, abfd, &entry, insert);
1993 }
1994
1995 /* Obtain the address of the entry in HT associated with the SYMNDXth
1996    local symbol of the input bfd ABFD, plus the addend, creating a new
1997    entry if none existed.  */
1998 inline static struct bfinfdpic_relocs_info *
1999 bfinfdpic_relocs_info_for_local (struct htab *ht,
2000                                 bfd *abfd,
2001                                 long symndx,
2002                                 bfd_vma addend,
2003                                 enum insert_option insert)
2004 {
2005   struct bfinfdpic_relocs_info entry;
2006
2007   entry.symndx = symndx;
2008   entry.d.abfd = abfd;
2009   entry.addend = addend;
2010
2011   return bfinfdpic_relocs_info_find (ht, abfd, &entry, insert);
2012 }
2013
2014 /* Merge fields set by check_relocs() of two entries that end up being
2015    mapped to the same (presumably global) symbol.  */
2016
2017 inline static void
2018 bfinfdpic_pic_merge_early_relocs_info (struct bfinfdpic_relocs_info *e2,
2019                                       struct bfinfdpic_relocs_info const *e1)
2020 {
2021   e2->got17m4 |= e1->got17m4;
2022   e2->gothilo |= e1->gothilo;
2023   e2->fd |= e1->fd;
2024   e2->fdgot17m4 |= e1->fdgot17m4;
2025   e2->fdgothilo |= e1->fdgothilo;
2026   e2->fdgoff17m4 |= e1->fdgoff17m4;
2027   e2->fdgoffhilo |= e1->fdgoffhilo;
2028   e2->gotoff |= e1->gotoff;
2029   e2->call |= e1->call;
2030   e2->sym |= e1->sym;
2031 }
2032
2033 /* Every block of 65535 lazy PLT entries shares a single call to the
2034    resolver, inserted in the 32768th lazy PLT entry (i.e., entry #
2035    32767, counting from 0).  All other lazy PLT entries branch to it
2036    in a single instruction.  */
2037
2038 #define LZPLT_RESOLVER_EXTRA 10
2039 #define LZPLT_NORMAL_SIZE 6
2040 #define LZPLT_ENTRIES 1362
2041
2042 #define BFINFDPIC_LZPLT_BLOCK_SIZE ((bfd_vma) LZPLT_NORMAL_SIZE * LZPLT_ENTRIES + LZPLT_RESOLVER_EXTRA)
2043 #define BFINFDPIC_LZPLT_RESOLV_LOC (LZPLT_NORMAL_SIZE * LZPLT_ENTRIES / 2)
2044
2045 /* Add a dynamic relocation to the SRELOC section.  */
2046
2047 inline static bfd_vma
2048 _bfinfdpic_add_dyn_reloc (bfd *output_bfd, asection *sreloc, bfd_vma offset,
2049                          int reloc_type, long dynindx, bfd_vma addend,
2050                          struct bfinfdpic_relocs_info *entry)
2051 {
2052   Elf_Internal_Rela outrel;
2053   bfd_vma reloc_offset;
2054
2055   outrel.r_offset = offset;
2056   outrel.r_info = ELF32_R_INFO (dynindx, reloc_type);
2057   outrel.r_addend = addend;
2058
2059   reloc_offset = sreloc->reloc_count * sizeof (Elf32_External_Rel);
2060   BFD_ASSERT (reloc_offset < sreloc->size);
2061   bfd_elf32_swap_reloc_out (output_bfd, &outrel,
2062                             sreloc->contents + reloc_offset);
2063   sreloc->reloc_count++;
2064
2065   /* If the entry's index is zero, this relocation was probably to a
2066      linkonce section that got discarded.  We reserved a dynamic
2067      relocation, but it was for another entry than the one we got at
2068      the time of emitting the relocation.  Unfortunately there's no
2069      simple way for us to catch this situation, since the relocation
2070      is cleared right before calling relocate_section, at which point
2071      we no longer know what the relocation used to point to.  */
2072   if (entry->symndx)
2073     {
2074       BFD_ASSERT (entry->dynrelocs > 0);
2075       entry->dynrelocs--;
2076     }
2077
2078   return reloc_offset;
2079 }
2080
2081 /* Add a fixup to the ROFIXUP section.  */
2082
2083 static bfd_vma
2084 _bfinfdpic_add_rofixup (bfd *output_bfd, asection *rofixup, bfd_vma offset,
2085                        struct bfinfdpic_relocs_info *entry)
2086 {
2087   bfd_vma fixup_offset;
2088
2089   if (rofixup->flags & SEC_EXCLUDE)
2090     return -1;
2091
2092   fixup_offset = rofixup->reloc_count * 4;
2093   if (rofixup->contents)
2094     {
2095       BFD_ASSERT (fixup_offset < rofixup->size);
2096       bfd_put_32 (output_bfd, offset, rofixup->contents + fixup_offset);
2097     }
2098   rofixup->reloc_count++;
2099
2100   if (entry && entry->symndx)
2101     {
2102       /* See discussion about symndx == 0 in _bfinfdpic_add_dyn_reloc
2103          above.  */
2104       BFD_ASSERT (entry->fixups > 0);
2105       entry->fixups--;
2106     }
2107
2108   return fixup_offset;
2109 }
2110
2111 /* Find the segment number in which OSEC, and output section, is
2112    located.  */
2113
2114 static unsigned
2115 _bfinfdpic_osec_to_segment (bfd *output_bfd, asection *osec)
2116 {
2117   Elf_Internal_Phdr *p = _bfd_elf_find_segment_containing_section (output_bfd, osec);
2118
2119   return (p != NULL) ? p - elf_tdata (output_bfd)->phdr : -1;
2120 }
2121
2122 inline static bfd_boolean
2123 _bfinfdpic_osec_readonly_p (bfd *output_bfd, asection *osec)
2124 {
2125   unsigned seg = _bfinfdpic_osec_to_segment (output_bfd, osec);
2126
2127   return ! (elf_tdata (output_bfd)->phdr[seg].p_flags & PF_W);
2128 }
2129
2130 /* Generate relocations for GOT entries, function descriptors, and
2131    code for PLT and lazy PLT entries.  */
2132
2133 inline static bfd_boolean
2134 _bfinfdpic_emit_got_relocs_plt_entries (struct bfinfdpic_relocs_info *entry,
2135                                         bfd *output_bfd,
2136                                         struct bfd_link_info *info,
2137                                         asection *sec,
2138                                         Elf_Internal_Sym *sym,
2139                                         bfd_vma addend)
2140
2141 {
2142   bfd_vma fd_lazy_rel_offset = (bfd_vma)-1;
2143   int dynindx = -1;
2144
2145   if (entry->done)
2146     return TRUE;
2147   entry->done = 1;
2148
2149   if (entry->got_entry || entry->fdgot_entry || entry->fd_entry)
2150     {
2151       /* If the symbol is dynamic, consider it for dynamic
2152          relocations, otherwise decay to section + offset.  */
2153       if (entry->symndx == -1 && entry->d.h->dynindx != -1)
2154         dynindx = entry->d.h->dynindx;
2155       else
2156         {
2157           if (sec
2158               && sec->output_section
2159               && ! bfd_is_abs_section (sec->output_section)
2160               && ! bfd_is_und_section (sec->output_section))
2161             dynindx = elf_section_data (sec->output_section)->dynindx;
2162           else
2163             dynindx = 0;
2164         }
2165     }
2166
2167   /* Generate relocation for GOT entry pointing to the symbol.  */
2168   if (entry->got_entry)
2169     {
2170       int idx = dynindx;
2171       bfd_vma ad = addend;
2172
2173       /* If the symbol is dynamic but binds locally, use
2174          section+offset.  */
2175       if (sec && (entry->symndx != -1
2176                   || BFINFDPIC_SYM_LOCAL (info, entry->d.h)))
2177         {
2178           if (entry->symndx == -1)
2179             ad += entry->d.h->root.u.def.value;
2180           else
2181             ad += sym->st_value;
2182           ad += sec->output_offset;
2183           if (sec->output_section && elf_section_data (sec->output_section))
2184             idx = elf_section_data (sec->output_section)->dynindx;
2185           else
2186             idx = 0;
2187         }
2188
2189       /* If we're linking an executable at a fixed address, we can
2190          omit the dynamic relocation as long as the symbol is local to
2191          this module.  */
2192       if (info->executable && !info->pie
2193           && (entry->symndx != -1
2194               || BFINFDPIC_SYM_LOCAL (info, entry->d.h)))
2195         {
2196           if (sec)
2197             ad += sec->output_section->vma;
2198           if (entry->symndx != -1
2199               || entry->d.h->root.type != bfd_link_hash_undefweak)
2200             _bfinfdpic_add_rofixup (output_bfd,
2201                                    bfinfdpic_gotfixup_section (info),
2202                                    bfinfdpic_got_section (info)->output_section
2203                                    ->vma
2204                                    + bfinfdpic_got_section (info)->output_offset
2205                                    + bfinfdpic_got_initial_offset (info)
2206                                    + entry->got_entry, entry);
2207         }
2208       else
2209         _bfinfdpic_add_dyn_reloc (output_bfd, bfinfdpic_gotrel_section (info),
2210                                  _bfd_elf_section_offset
2211                                  (output_bfd, info,
2212                                   bfinfdpic_got_section (info),
2213                                   bfinfdpic_got_initial_offset (info)
2214                                   + entry->got_entry)
2215                                  + bfinfdpic_got_section (info)
2216                                  ->output_section->vma
2217                                  + bfinfdpic_got_section (info)->output_offset,
2218                                  R_BFIN_BYTE4_DATA, idx, ad, entry);
2219
2220       bfd_put_32 (output_bfd, ad,
2221                   bfinfdpic_got_section (info)->contents
2222                   + bfinfdpic_got_initial_offset (info)
2223                   + entry->got_entry);
2224     }
2225
2226   /* Generate relocation for GOT entry pointing to a canonical
2227      function descriptor.  */
2228   if (entry->fdgot_entry)
2229     {
2230       int reloc, idx;
2231       bfd_vma ad = 0;
2232
2233       if (! (entry->symndx == -1
2234              && entry->d.h->root.type == bfd_link_hash_undefweak
2235              && BFINFDPIC_SYM_LOCAL (info, entry->d.h)))
2236         {
2237           /* If the symbol is dynamic and there may be dynamic symbol
2238              resolution because we are, or are linked with, a shared
2239              library, emit a FUNCDESC relocation such that the dynamic
2240              linker will allocate the function descriptor.  If the
2241              symbol needs a non-local function descriptor but binds
2242              locally (e.g., its visibility is protected, emit a
2243              dynamic relocation decayed to section+offset.  */
2244           if (entry->symndx == -1
2245               && ! BFINFDPIC_FUNCDESC_LOCAL (info, entry->d.h)
2246               && BFINFDPIC_SYM_LOCAL (info, entry->d.h)
2247               && !(info->executable && !info->pie))
2248             {
2249               reloc = R_BFIN_FUNCDESC;
2250               idx = elf_section_data (entry->d.h->root.u.def.section
2251                                       ->output_section)->dynindx;
2252               ad = entry->d.h->root.u.def.section->output_offset
2253                 + entry->d.h->root.u.def.value;
2254             }
2255           else if (entry->symndx == -1
2256                    && ! BFINFDPIC_FUNCDESC_LOCAL (info, entry->d.h))
2257             {
2258               reloc = R_BFIN_FUNCDESC;
2259               idx = dynindx;
2260               ad = addend;
2261               if (ad)
2262                 return FALSE;
2263             }
2264           else
2265             {
2266               /* Otherwise, we know we have a private function descriptor,
2267                  so reference it directly.  */
2268               if (elf_hash_table (info)->dynamic_sections_created)
2269                 BFD_ASSERT (entry->privfd);
2270               reloc = R_BFIN_BYTE4_DATA;
2271               idx = elf_section_data (bfinfdpic_got_section (info)
2272                                       ->output_section)->dynindx;
2273               ad = bfinfdpic_got_section (info)->output_offset
2274                 + bfinfdpic_got_initial_offset (info) + entry->fd_entry;
2275             }
2276
2277           /* If there is room for dynamic symbol resolution, emit the
2278              dynamic relocation.  However, if we're linking an
2279              executable at a fixed location, we won't have emitted a
2280              dynamic symbol entry for the got section, so idx will be
2281              zero, which means we can and should compute the address
2282              of the private descriptor ourselves.  */
2283           if (info->executable && !info->pie
2284               && (entry->symndx != -1
2285                   || BFINFDPIC_FUNCDESC_LOCAL (info, entry->d.h)))
2286             {
2287               ad += bfinfdpic_got_section (info)->output_section->vma;
2288               _bfinfdpic_add_rofixup (output_bfd,
2289                                      bfinfdpic_gotfixup_section (info),
2290                                      bfinfdpic_got_section (info)
2291                                      ->output_section->vma
2292                                      + bfinfdpic_got_section (info)
2293                                      ->output_offset
2294                                      + bfinfdpic_got_initial_offset (info)
2295                                      + entry->fdgot_entry, entry);
2296             }
2297           else
2298             _bfinfdpic_add_dyn_reloc (output_bfd,
2299                                      bfinfdpic_gotrel_section (info),
2300                                      _bfd_elf_section_offset
2301                                      (output_bfd, info,
2302                                       bfinfdpic_got_section (info),
2303                                       bfinfdpic_got_initial_offset (info)
2304                                       + entry->fdgot_entry)
2305                                      + bfinfdpic_got_section (info)
2306                                      ->output_section->vma
2307                                      + bfinfdpic_got_section (info)
2308                                      ->output_offset,
2309                                      reloc, idx, ad, entry);
2310         }
2311
2312       bfd_put_32 (output_bfd, ad,
2313                   bfinfdpic_got_section (info)->contents
2314                   + bfinfdpic_got_initial_offset (info)
2315                   + entry->fdgot_entry);
2316     }
2317
2318   /* Generate relocation to fill in a private function descriptor in
2319      the GOT.  */
2320   if (entry->fd_entry)
2321     {
2322       int idx = dynindx;
2323       bfd_vma ad = addend;
2324       bfd_vma ofst;
2325       long lowword, highword;
2326
2327       /* If the symbol is dynamic but binds locally, use
2328          section+offset.  */
2329       if (sec && (entry->symndx != -1
2330                   || BFINFDPIC_SYM_LOCAL (info, entry->d.h)))
2331         {
2332           if (entry->symndx == -1)
2333             ad += entry->d.h->root.u.def.value;
2334           else
2335             ad += sym->st_value;
2336           ad += sec->output_offset;
2337           if (sec->output_section && elf_section_data (sec->output_section))
2338             idx = elf_section_data (sec->output_section)->dynindx;
2339           else
2340             idx = 0;
2341         }
2342
2343       /* If we're linking an executable at a fixed address, we can
2344          omit the dynamic relocation as long as the symbol is local to
2345          this module.  */
2346       if (info->executable && !info->pie
2347           && (entry->symndx != -1 || BFINFDPIC_SYM_LOCAL (info, entry->d.h)))
2348         {
2349           if (sec)
2350             ad += sec->output_section->vma;
2351           ofst = 0;
2352           if (entry->symndx != -1
2353               || entry->d.h->root.type != bfd_link_hash_undefweak)
2354             {
2355               _bfinfdpic_add_rofixup (output_bfd,
2356                                      bfinfdpic_gotfixup_section (info),
2357                                      bfinfdpic_got_section (info)
2358                                      ->output_section->vma
2359                                      + bfinfdpic_got_section (info)
2360                                      ->output_offset
2361                                      + bfinfdpic_got_initial_offset (info)
2362                                      + entry->fd_entry, entry);
2363               _bfinfdpic_add_rofixup (output_bfd,
2364                                      bfinfdpic_gotfixup_section (info),
2365                                      bfinfdpic_got_section (info)
2366                                      ->output_section->vma
2367                                      + bfinfdpic_got_section (info)
2368                                      ->output_offset
2369                                      + bfinfdpic_got_initial_offset (info)
2370                                      + entry->fd_entry + 4, entry);
2371             }
2372         }
2373       else
2374         {
2375           ofst
2376             = _bfinfdpic_add_dyn_reloc (output_bfd,
2377                                         entry->lazyplt
2378                                         ? bfinfdpic_pltrel_section (info)
2379                                         : bfinfdpic_gotrel_section (info),
2380                                         _bfd_elf_section_offset
2381                                         (output_bfd, info,
2382                                          bfinfdpic_got_section (info),
2383                                          bfinfdpic_got_initial_offset (info)
2384                                          + entry->fd_entry)
2385                                         + bfinfdpic_got_section (info)
2386                                         ->output_section->vma
2387                                         + bfinfdpic_got_section (info)
2388                                         ->output_offset,
2389                                         R_BFIN_FUNCDESC_VALUE, idx, ad, entry);
2390         }
2391
2392       /* If we've omitted the dynamic relocation, just emit the fixed
2393          addresses of the symbol and of the local GOT base offset.  */
2394       if (info->executable && !info->pie && sec && sec->output_section)
2395         {
2396           lowword = ad;
2397           highword = bfinfdpic_got_section (info)->output_section->vma
2398             + bfinfdpic_got_section (info)->output_offset
2399             + bfinfdpic_got_initial_offset (info);
2400         }
2401       else if (entry->lazyplt)
2402         {
2403           if (ad)
2404             return FALSE;
2405
2406           fd_lazy_rel_offset = ofst;
2407
2408           /* A function descriptor used for lazy or local resolving is
2409              initialized such that its high word contains the output
2410              section index in which the PLT entries are located, and
2411              the low word contains the address of the lazy PLT entry
2412              entry point, that must be within the memory region
2413              assigned to that section.  */
2414           lowword = entry->lzplt_entry + 4
2415             + bfinfdpic_plt_section (info)->output_offset
2416             + bfinfdpic_plt_section (info)->output_section->vma;
2417           highword = _bfinfdpic_osec_to_segment
2418             (output_bfd, bfinfdpic_plt_section (info)->output_section);
2419         }
2420       else
2421         {
2422           /* A function descriptor for a local function gets the index
2423              of the section.  For a non-local function, it's
2424              disregarded.  */
2425           lowword = ad;
2426           if (sec == NULL
2427               || (entry->symndx == -1 && entry->d.h->dynindx != -1
2428                   && entry->d.h->dynindx == idx))
2429             highword = 0;
2430           else
2431             highword = _bfinfdpic_osec_to_segment
2432               (output_bfd, sec->output_section);
2433         }
2434
2435       bfd_put_32 (output_bfd, lowword,
2436                   bfinfdpic_got_section (info)->contents
2437                   + bfinfdpic_got_initial_offset (info)
2438                   + entry->fd_entry);
2439       bfd_put_32 (output_bfd, highword,
2440                   bfinfdpic_got_section (info)->contents
2441                   + bfinfdpic_got_initial_offset (info)
2442                   + entry->fd_entry + 4);
2443     }
2444
2445   /* Generate code for the PLT entry.  */
2446   if (entry->plt_entry != (bfd_vma) -1)
2447     {
2448       bfd_byte *plt_code = bfinfdpic_plt_section (info)->contents
2449         + entry->plt_entry;
2450
2451       BFD_ASSERT (entry->fd_entry);
2452
2453       /* Figure out what kind of PLT entry we need, depending on the
2454          location of the function descriptor within the GOT.  */
2455       if (entry->fd_entry >= -(1 << (18 - 1))
2456           && entry->fd_entry + 4 < (1 << (18 - 1)))
2457         {
2458           /* P1 = [P3 + fd_entry]; P3 = [P3 + fd_entry + 4] */
2459           bfd_put_32 (output_bfd,
2460                       0xe519 | ((entry->fd_entry << 14) & 0xFFFF0000),
2461                       plt_code);
2462           bfd_put_32 (output_bfd,
2463                       0xe51b | (((entry->fd_entry + 4) << 14) & 0xFFFF0000),
2464                       plt_code + 4);
2465           plt_code += 8;
2466         }
2467       else
2468         {
2469           /* P1.L = fd_entry; P1.H = fd_entry;
2470              P3 = P3 + P1;
2471              P1 = [P3];
2472              P3 = [P3 + 4];  */
2473           bfd_put_32 (output_bfd,
2474                       0xe109 | (entry->fd_entry << 16),
2475                       plt_code);
2476           bfd_put_32 (output_bfd,
2477                       0xe149 | (entry->fd_entry & 0xFFFF0000),
2478                       plt_code + 4);
2479           bfd_put_16 (output_bfd, 0x5ad9, plt_code + 8);
2480           bfd_put_16 (output_bfd, 0x9159, plt_code + 10);
2481           bfd_put_16 (output_bfd, 0xac5b, plt_code + 12);
2482           plt_code += 14;
2483         }
2484       /* JUMP (P1) */
2485       bfd_put_16 (output_bfd, 0x0051, plt_code);
2486     }
2487
2488   /* Generate code for the lazy PLT entry.  */
2489   if (entry->lzplt_entry != (bfd_vma) -1)
2490     {
2491       bfd_byte *lzplt_code = bfinfdpic_plt_section (info)->contents
2492         + entry->lzplt_entry;
2493       bfd_vma resolverStub_addr;
2494
2495       bfd_put_32 (output_bfd, fd_lazy_rel_offset, lzplt_code);
2496       lzplt_code += 4;
2497
2498       resolverStub_addr = entry->lzplt_entry / BFINFDPIC_LZPLT_BLOCK_SIZE
2499         * BFINFDPIC_LZPLT_BLOCK_SIZE + BFINFDPIC_LZPLT_RESOLV_LOC;
2500       if (resolverStub_addr >= bfinfdpic_plt_initial_offset (info))
2501         resolverStub_addr = bfinfdpic_plt_initial_offset (info) - LZPLT_NORMAL_SIZE - LZPLT_RESOLVER_EXTRA;
2502
2503       if (entry->lzplt_entry == resolverStub_addr)
2504         {
2505           /* This is a lazy PLT entry that includes a resolver call.
2506              P2 = [P3];
2507              R3 = [P3 + 4];
2508              JUMP (P2);  */
2509           bfd_put_32 (output_bfd,
2510                       0xa05b915a,
2511                       lzplt_code);
2512           bfd_put_16 (output_bfd, 0x0052, lzplt_code + 4);
2513         }
2514       else
2515         {
2516           /* JUMP.S  resolverStub */
2517           bfd_put_16 (output_bfd,
2518                       0x2000
2519                       | (((resolverStub_addr - entry->lzplt_entry)
2520                           / 2) & (((bfd_vma)1 << 12) - 1)),
2521                       lzplt_code);
2522         }
2523     }
2524
2525   return TRUE;
2526 }
2527 \f
2528 /* Relocate an Blackfin ELF section.
2529
2530    The RELOCATE_SECTION function is called by the new ELF backend linker
2531    to handle the relocations for a section.
2532
2533    The relocs are always passed as Rela structures; if the section
2534    actually uses Rel structures, the r_addend field will always be
2535    zero.
2536
2537    This function is responsible for adjusting the section contents as
2538    necessary, and (if using Rela relocs and generating a relocatable
2539    output file) adjusting the reloc addend as necessary.
2540
2541    This function does not have to worry about setting the reloc
2542    address or the reloc symbol index.
2543
2544    LOCAL_SYMS is a pointer to the swapped in local symbols.
2545
2546    LOCAL_SECTIONS is an array giving the section in the input file
2547    corresponding to the st_shndx field of each local symbol.
2548
2549    The global hash table entry for the global symbols can be found
2550    via elf_sym_hashes (input_bfd).
2551
2552    When generating relocatable output, this function must handle
2553    STB_LOCAL/STT_SECTION symbols specially.  The output symbol is
2554    going to be the section symbol corresponding to the output
2555    section, which means that the addend must be adjusted
2556    accordingly.  */
2557
2558 static bfd_boolean
2559 bfinfdpic_relocate_section (bfd * output_bfd,
2560                             struct bfd_link_info *info,
2561                             bfd * input_bfd,
2562                             asection * input_section,
2563                             bfd_byte * contents,
2564                             Elf_Internal_Rela * relocs,
2565                             Elf_Internal_Sym * local_syms,
2566                             asection ** local_sections)
2567 {
2568   Elf_Internal_Shdr *symtab_hdr;
2569   struct elf_link_hash_entry **sym_hashes;
2570   Elf_Internal_Rela *rel;
2571   Elf_Internal_Rela *relend;
2572   unsigned isec_segment, got_segment, plt_segment,
2573     check_segment[2];
2574   int silence_segment_error = !(info->shared || info->pie);
2575
2576   symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
2577   sym_hashes = elf_sym_hashes (input_bfd);
2578   relend     = relocs + input_section->reloc_count;
2579
2580   isec_segment = _bfinfdpic_osec_to_segment (output_bfd,
2581                                              input_section->output_section);
2582   if (IS_FDPIC (output_bfd) && bfinfdpic_got_section (info))
2583     got_segment = _bfinfdpic_osec_to_segment (output_bfd,
2584                                               bfinfdpic_got_section (info)
2585                                               ->output_section);
2586   else
2587     got_segment = -1;
2588   if (IS_FDPIC (output_bfd) && elf_hash_table (info)->dynamic_sections_created)
2589     plt_segment = _bfinfdpic_osec_to_segment (output_bfd,
2590                                               bfinfdpic_plt_section (info)
2591                                               ->output_section);
2592   else
2593     plt_segment = -1;
2594
2595   for (rel = relocs; rel < relend; rel ++)
2596     {
2597       reloc_howto_type *howto;
2598       unsigned long r_symndx;
2599       Elf_Internal_Sym *sym;
2600       asection *sec;
2601       struct elf_link_hash_entry *h;
2602       bfd_vma relocation;
2603       bfd_reloc_status_type r;
2604       const char * name = NULL;
2605       int r_type;
2606       asection *osec;
2607       struct bfinfdpic_relocs_info *picrel;
2608       bfd_vma orig_addend = rel->r_addend;
2609
2610       r_type = ELF32_R_TYPE (rel->r_info);
2611
2612       if (r_type == R_BFIN_GNU_VTINHERIT
2613           || r_type == R_BFIN_GNU_VTENTRY)
2614         continue;
2615
2616       r_symndx = ELF32_R_SYM (rel->r_info);
2617       howto = bfin_reloc_type_lookup (input_bfd, r_type);
2618       if (howto == NULL)
2619         {
2620           bfd_set_error (bfd_error_bad_value);
2621           return FALSE;
2622         }
2623
2624       h      = NULL;
2625       sym    = NULL;
2626       sec    = NULL;
2627
2628       if (r_symndx < symtab_hdr->sh_info)
2629         {
2630           sym = local_syms + r_symndx;
2631           osec = sec = local_sections [r_symndx];
2632           relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
2633
2634           name = bfd_elf_string_from_elf_section
2635             (input_bfd, symtab_hdr->sh_link, sym->st_name);
2636           name = (name == NULL) ? bfd_section_name (input_bfd, sec) : name;
2637         }
2638       else
2639         {
2640           bfd_boolean warned;
2641           bfd_boolean unresolved_reloc;
2642
2643           RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
2644                                    r_symndx, symtab_hdr, sym_hashes,
2645                                    h, sec, relocation,
2646                                    unresolved_reloc, warned);
2647           osec = sec;
2648         }
2649
2650       if (sec != NULL && elf_discarded_section (sec))
2651         {
2652           /* For relocs against symbols from removed linkonce sections,
2653              or sections discarded by a linker script, we just want the
2654              section contents zeroed.  Avoid any special processing.  */
2655           _bfd_clear_contents (howto, input_bfd, contents + rel->r_offset);
2656           rel->r_info = 0;
2657           rel->r_addend = 0;
2658           continue;
2659         }
2660
2661       if (info->relocatable)
2662         continue;
2663
2664       if (h != NULL
2665           && (h->root.type == bfd_link_hash_defined
2666               || h->root.type == bfd_link_hash_defweak)
2667           && !BFINFDPIC_SYM_LOCAL (info, h))
2668         {
2669           osec = sec = NULL;
2670           relocation = 0;
2671         }
2672
2673       switch (r_type)
2674         {
2675         case R_BFIN_PCREL24:
2676         case R_BFIN_PCREL24_JUMP_L:
2677         case R_BFIN_BYTE4_DATA:
2678           if (! IS_FDPIC (output_bfd))
2679             goto non_fdpic;
2680
2681         case R_BFIN_GOT17M4:
2682         case R_BFIN_GOTHI:
2683         case R_BFIN_GOTLO:
2684         case R_BFIN_FUNCDESC_GOT17M4:
2685         case R_BFIN_FUNCDESC_GOTHI:
2686         case R_BFIN_FUNCDESC_GOTLO:
2687         case R_BFIN_GOTOFF17M4:
2688         case R_BFIN_GOTOFFHI:
2689         case R_BFIN_GOTOFFLO:
2690         case R_BFIN_FUNCDESC_GOTOFF17M4:
2691         case R_BFIN_FUNCDESC_GOTOFFHI:
2692         case R_BFIN_FUNCDESC_GOTOFFLO:
2693         case R_BFIN_FUNCDESC:
2694         case R_BFIN_FUNCDESC_VALUE:
2695           if (h != NULL)
2696             picrel = bfinfdpic_relocs_info_for_global (bfinfdpic_relocs_info
2697                                                        (info), input_bfd, h,
2698                                                        orig_addend, INSERT);
2699           else
2700             /* In order to find the entry we created before, we must
2701                use the original addend, not the one that may have been
2702                modified by _bfd_elf_rela_local_sym().  */
2703             picrel = bfinfdpic_relocs_info_for_local (bfinfdpic_relocs_info
2704                                                       (info), input_bfd, r_symndx,
2705                                                       orig_addend, INSERT);
2706           if (! picrel)
2707             return FALSE;
2708
2709           if (!_bfinfdpic_emit_got_relocs_plt_entries (picrel, output_bfd, info,
2710                                                        osec, sym,
2711                                                        rel->r_addend))
2712             {
2713               (*_bfd_error_handler)
2714                 (_("%B: relocation at `%A+0x%x' references symbol `%s' with nonzero addend"),
2715                  input_bfd, input_section, rel->r_offset, name);
2716               return FALSE;
2717
2718             }
2719
2720           break;
2721
2722         default:
2723         non_fdpic:
2724           picrel = NULL;
2725           if (h && ! BFINFDPIC_SYM_LOCAL (info, h))
2726             {
2727               info->callbacks->warning
2728                 (info, _("relocation references symbol not defined in the module"),
2729                  name, input_bfd, input_section, rel->r_offset);
2730               return FALSE;
2731             }
2732           break;
2733         }
2734
2735       switch (r_type)
2736         {
2737         case R_BFIN_PCREL24:
2738         case R_BFIN_PCREL24_JUMP_L:
2739           check_segment[0] = isec_segment;
2740           if (! IS_FDPIC (output_bfd))
2741             check_segment[1] = isec_segment;
2742           else if (picrel->plt)
2743             {
2744               relocation = bfinfdpic_plt_section (info)->output_section->vma
2745                 + bfinfdpic_plt_section (info)->output_offset
2746                 + picrel->plt_entry;
2747               check_segment[1] = plt_segment;
2748             }
2749           /* We don't want to warn on calls to undefined weak symbols,
2750              as calls to them must be protected by non-NULL tests
2751              anyway, and unprotected calls would invoke undefined
2752              behavior.  */
2753           else if (picrel->symndx == -1
2754                    && picrel->d.h->root.type == bfd_link_hash_undefweak)
2755             check_segment[1] = check_segment[0];
2756           else
2757             check_segment[1] = sec
2758               ? _bfinfdpic_osec_to_segment (output_bfd, sec->output_section)
2759               : (unsigned)-1;
2760           break;
2761
2762         case R_BFIN_GOT17M4:
2763         case R_BFIN_GOTHI:
2764         case R_BFIN_GOTLO:
2765           relocation = picrel->got_entry;
2766           check_segment[0] = check_segment[1] = got_segment;
2767           break;
2768
2769         case R_BFIN_FUNCDESC_GOT17M4:
2770         case R_BFIN_FUNCDESC_GOTHI:
2771         case R_BFIN_FUNCDESC_GOTLO:
2772           relocation = picrel->fdgot_entry;
2773           check_segment[0] = check_segment[1] = got_segment;
2774           break;
2775
2776         case R_BFIN_GOTOFFHI:
2777         case R_BFIN_GOTOFF17M4:
2778         case R_BFIN_GOTOFFLO:
2779           relocation -= bfinfdpic_got_section (info)->output_section->vma
2780             + bfinfdpic_got_section (info)->output_offset
2781             + bfinfdpic_got_initial_offset (info);
2782           check_segment[0] = got_segment;
2783           check_segment[1] = sec
2784             ? _bfinfdpic_osec_to_segment (output_bfd, sec->output_section)
2785             : (unsigned)-1;
2786           break;
2787
2788         case R_BFIN_FUNCDESC_GOTOFF17M4:
2789         case R_BFIN_FUNCDESC_GOTOFFHI:
2790         case R_BFIN_FUNCDESC_GOTOFFLO:
2791           relocation = picrel->fd_entry;
2792           check_segment[0] = check_segment[1] = got_segment;
2793           break;
2794
2795         case R_BFIN_FUNCDESC:
2796           {
2797             int dynindx;
2798             bfd_vma addend = rel->r_addend;
2799
2800             if (! (h && h->root.type == bfd_link_hash_undefweak
2801                    && BFINFDPIC_SYM_LOCAL (info, h)))
2802               {
2803                 /* If the symbol is dynamic and there may be dynamic
2804                    symbol resolution because we are or are linked with a
2805                    shared library, emit a FUNCDESC relocation such that
2806                    the dynamic linker will allocate the function
2807                    descriptor.  If the symbol needs a non-local function
2808                    descriptor but binds locally (e.g., its visibility is
2809                    protected, emit a dynamic relocation decayed to
2810                    section+offset.  */
2811                 if (h && ! BFINFDPIC_FUNCDESC_LOCAL (info, h)
2812                     && BFINFDPIC_SYM_LOCAL (info, h)
2813                     && !(info->executable && !info->pie))
2814                   {
2815                     dynindx = elf_section_data (h->root.u.def.section
2816                                                 ->output_section)->dynindx;
2817                     addend += h->root.u.def.section->output_offset
2818                       + h->root.u.def.value;
2819                   }
2820                 else if (h && ! BFINFDPIC_FUNCDESC_LOCAL (info, h))
2821                   {
2822                     if (addend)
2823                       {
2824                         info->callbacks->warning
2825                           (info, _("R_BFIN_FUNCDESC references dynamic symbol with nonzero addend"),
2826                            name, input_bfd, input_section, rel->r_offset);
2827                         return FALSE;
2828                       }
2829                     dynindx = h->dynindx;
2830                   }
2831                 else
2832                   {
2833                     /* Otherwise, we know we have a private function
2834                        descriptor, so reference it directly.  */
2835                     BFD_ASSERT (picrel->privfd);
2836                     r_type = R_BFIN_BYTE4_DATA;
2837                     dynindx = elf_section_data (bfinfdpic_got_section (info)
2838                                                 ->output_section)->dynindx;
2839                     addend = bfinfdpic_got_section (info)->output_offset
2840                       + bfinfdpic_got_initial_offset (info)
2841                       + picrel->fd_entry;
2842                   }
2843
2844                 /* If there is room for dynamic symbol resolution, emit
2845                    the dynamic relocation.  However, if we're linking an
2846                    executable at a fixed location, we won't have emitted a
2847                    dynamic symbol entry for the got section, so idx will
2848                    be zero, which means we can and should compute the
2849                    address of the private descriptor ourselves.  */
2850                 if (info->executable && !info->pie
2851                     && (!h || BFINFDPIC_FUNCDESC_LOCAL (info, h)))
2852                   {
2853                     bfd_vma offset;
2854
2855                     addend += bfinfdpic_got_section (info)->output_section->vma;
2856                     if ((bfd_get_section_flags (output_bfd,
2857                                                 input_section->output_section)
2858                          & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
2859                       {
2860                         if (_bfinfdpic_osec_readonly_p (output_bfd,
2861                                                        input_section
2862                                                        ->output_section))
2863                           {
2864                             info->callbacks->warning
2865                               (info,
2866                                _("cannot emit fixups in read-only section"),
2867                                name, input_bfd, input_section, rel->r_offset);
2868                             return FALSE;
2869                           }
2870
2871                         offset = _bfd_elf_section_offset
2872                           (output_bfd, info,
2873                            input_section, rel->r_offset);
2874
2875                         if (offset != (bfd_vma)-1)
2876                           _bfinfdpic_add_rofixup (output_bfd,
2877                                                   bfinfdpic_gotfixup_section
2878                                                   (info),
2879                                                   offset + input_section
2880                                                   ->output_section->vma
2881                                                   + input_section->output_offset,
2882                                                   picrel);
2883                       }
2884                   }
2885                 else if ((bfd_get_section_flags (output_bfd,
2886                                                  input_section->output_section)
2887                           & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
2888                   {
2889                     bfd_vma offset;
2890
2891                     if (_bfinfdpic_osec_readonly_p (output_bfd,
2892                                                    input_section
2893                                                    ->output_section))
2894                       {
2895                         info->callbacks->warning
2896                           (info,
2897                            _("cannot emit dynamic relocations in read-only section"),
2898                            name, input_bfd, input_section, rel->r_offset);
2899                         return FALSE;
2900                       }
2901                     offset = _bfd_elf_section_offset (output_bfd, info,
2902                                                       input_section, rel->r_offset);
2903
2904                     if (offset != (bfd_vma)-1)
2905                       _bfinfdpic_add_dyn_reloc (output_bfd,
2906                                                 bfinfdpic_gotrel_section (info),
2907                                                 offset + input_section
2908                                                 ->output_section->vma
2909                                                 + input_section->output_offset,
2910                                                 r_type,
2911                                                 dynindx, addend, picrel);
2912                   }
2913                 else
2914                   addend += bfinfdpic_got_section (info)->output_section->vma;
2915               }
2916
2917             /* We want the addend in-place because dynamic
2918                relocations are REL.  Setting relocation to it should
2919                arrange for it to be installed.  */
2920             relocation = addend - rel->r_addend;
2921           }
2922           check_segment[0] = check_segment[1] = got_segment;
2923           break;
2924
2925         case R_BFIN_BYTE4_DATA:
2926           if (! IS_FDPIC (output_bfd))
2927             {
2928               check_segment[0] = check_segment[1] = -1;
2929               break;
2930             }
2931           /* Fall through.  */
2932         case R_BFIN_FUNCDESC_VALUE:
2933           {
2934             int dynindx;
2935             bfd_vma addend = rel->r_addend;
2936             bfd_vma offset;
2937             offset = _bfd_elf_section_offset (output_bfd, info,
2938                                               input_section, rel->r_offset);
2939
2940             /* If the symbol is dynamic but binds locally, use
2941                section+offset.  */
2942             if (h && ! BFINFDPIC_SYM_LOCAL (info, h))
2943               {
2944                 if (addend && r_type == R_BFIN_FUNCDESC_VALUE)
2945                   {
2946                     info->callbacks->warning
2947                       (info, _("R_BFIN_FUNCDESC_VALUE references dynamic symbol with nonzero addend"),
2948                        name, input_bfd, input_section, rel->r_offset);
2949                     return FALSE;
2950                   }
2951                 dynindx = h->dynindx;
2952               }
2953             else
2954               {
2955                 if (h)
2956                   addend += h->root.u.def.value;
2957                 else
2958                   addend += sym->st_value;
2959                 if (osec)
2960                   addend += osec->output_offset;
2961                 if (osec && osec->output_section
2962                     && ! bfd_is_abs_section (osec->output_section)
2963                     && ! bfd_is_und_section (osec->output_section))
2964                   dynindx = elf_section_data (osec->output_section)->dynindx;
2965                 else
2966                   dynindx = 0;
2967               }
2968
2969             /* If we're linking an executable at a fixed address, we
2970                can omit the dynamic relocation as long as the symbol
2971                is defined in the current link unit (which is implied
2972                by its output section not being NULL).  */
2973             if (info->executable && !info->pie
2974                 && (!h || BFINFDPIC_SYM_LOCAL (info, h)))
2975               {
2976                 if (osec)
2977                   addend += osec->output_section->vma;
2978                 if (IS_FDPIC (input_bfd)
2979                     && (bfd_get_section_flags (output_bfd,
2980                                                input_section->output_section)
2981                         & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
2982                   {
2983                     if (_bfinfdpic_osec_readonly_p (output_bfd,
2984                                                    input_section
2985                                                    ->output_section))
2986                       {
2987                         info->callbacks->warning
2988                           (info,
2989                            _("cannot emit fixups in read-only section"),
2990                            name, input_bfd, input_section, rel->r_offset);
2991                         return FALSE;
2992                       }
2993                     if (!h || h->root.type != bfd_link_hash_undefweak)
2994                       {
2995                         if (offset != (bfd_vma)-1)
2996                           {
2997                             _bfinfdpic_add_rofixup (output_bfd,
2998                                                     bfinfdpic_gotfixup_section
2999                                                     (info),
3000                                                     offset + input_section
3001                                                     ->output_section->vma
3002                                                     + input_section->output_offset,
3003                                                     picrel);
3004
3005                             if (r_type == R_BFIN_FUNCDESC_VALUE)
3006                               _bfinfdpic_add_rofixup
3007                                 (output_bfd,
3008                                  bfinfdpic_gotfixup_section (info),
3009                                  offset + input_section->output_section->vma
3010                                  + input_section->output_offset + 4, picrel);
3011                           }
3012                       }
3013                   }
3014               }
3015             else
3016               {
3017                 if ((bfd_get_section_flags (output_bfd,
3018                                             input_section->output_section)
3019                      & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
3020                   {
3021                     if (_bfinfdpic_osec_readonly_p (output_bfd,
3022                                                    input_section
3023                                                    ->output_section))
3024                       {
3025                         info->callbacks->warning
3026                           (info,
3027                            _("cannot emit dynamic relocations in read-only section"),
3028                            name, input_bfd, input_section, rel->r_offset);
3029                         return FALSE;
3030                       }
3031
3032                     if (offset != (bfd_vma)-1)
3033                       _bfinfdpic_add_dyn_reloc (output_bfd,
3034                                                 bfinfdpic_gotrel_section (info),
3035                                                 offset
3036                                                 + input_section->output_section->vma
3037                                                 + input_section->output_offset,
3038                                                 r_type, dynindx, addend, picrel);
3039                   }
3040                 else if (osec)
3041                   addend += osec->output_section->vma;
3042                 /* We want the addend in-place because dynamic
3043                    relocations are REL.  Setting relocation to it
3044                    should arrange for it to be installed.  */
3045                 relocation = addend - rel->r_addend;
3046               }
3047
3048             if (r_type == R_BFIN_FUNCDESC_VALUE)
3049               {
3050                 /* If we've omitted the dynamic relocation, just emit
3051                    the fixed addresses of the symbol and of the local
3052                    GOT base offset.  */
3053                 if (info->executable && !info->pie
3054                     && (!h || BFINFDPIC_SYM_LOCAL (info, h)))
3055                   bfd_put_32 (output_bfd,
3056                               bfinfdpic_got_section (info)->output_section->vma
3057                               + bfinfdpic_got_section (info)->output_offset
3058                               + bfinfdpic_got_initial_offset (info),
3059                               contents + rel->r_offset + 4);
3060                 else
3061                   /* A function descriptor used for lazy or local
3062                      resolving is initialized such that its high word
3063                      contains the output section index in which the
3064                      PLT entries are located, and the low word
3065                      contains the offset of the lazy PLT entry entry
3066                      point into that section.  */
3067                   bfd_put_32 (output_bfd,
3068                               h && ! BFINFDPIC_SYM_LOCAL (info, h)
3069                               ? 0
3070                               : _bfinfdpic_osec_to_segment (output_bfd,
3071                                                             sec
3072                                                             ->output_section),
3073                               contents + rel->r_offset + 4);
3074               }
3075           }
3076           check_segment[0] = check_segment[1] = got_segment;
3077           break;
3078
3079         default:
3080           check_segment[0] = isec_segment;
3081           check_segment[1] = sec
3082             ? _bfinfdpic_osec_to_segment (output_bfd, sec->output_section)
3083             : (unsigned)-1;
3084           break;
3085         }
3086
3087       if (check_segment[0] != check_segment[1] && IS_FDPIC (output_bfd))
3088         {
3089 #if 1 /* If you take this out, remove the #error from fdpic-static-6.d
3090          in the ld testsuite.  */
3091           /* This helps catch problems in GCC while we can't do more
3092              than static linking.  The idea is to test whether the
3093              input file basename is crt0.o only once.  */
3094           if (silence_segment_error == 1)
3095             silence_segment_error =
3096               (strlen (input_bfd->filename) == 6
3097                && strcmp (input_bfd->filename, "crt0.o") == 0)
3098               || (strlen (input_bfd->filename) > 6
3099                   && strcmp (input_bfd->filename
3100                              + strlen (input_bfd->filename) - 7,
3101                              "/crt0.o") == 0)
3102               ? -1 : 0;
3103 #endif
3104           if (!silence_segment_error
3105               /* We don't want duplicate errors for undefined
3106                  symbols.  */
3107               && !(picrel && picrel->symndx == -1
3108                    && picrel->d.h->root.type == bfd_link_hash_undefined))
3109             info->callbacks->warning
3110               (info,
3111                (info->shared || info->pie)
3112                ? _("relocations between different segments are not supported")
3113                : _("warning: relocation references a different segment"),
3114                name, input_bfd, input_section, rel->r_offset);
3115           if (!silence_segment_error && (info->shared || info->pie))
3116             return FALSE;
3117           elf_elfheader (output_bfd)->e_flags |= EF_BFIN_PIC;
3118         }
3119
3120       switch (r_type)
3121         {
3122         case R_BFIN_GOTOFFHI:
3123           /* We need the addend to be applied before we shift the
3124              value right.  */
3125           relocation += rel->r_addend;
3126           /* Fall through.  */
3127         case R_BFIN_GOTHI:
3128         case R_BFIN_FUNCDESC_GOTHI:
3129         case R_BFIN_FUNCDESC_GOTOFFHI:
3130           relocation >>= 16;
3131           /* Fall through.  */
3132
3133         case R_BFIN_GOTLO:
3134         case R_BFIN_FUNCDESC_GOTLO:
3135         case R_BFIN_GOTOFFLO:
3136         case R_BFIN_FUNCDESC_GOTOFFLO:
3137           relocation &= 0xffff;
3138           break;
3139
3140         default:
3141           break;
3142         }
3143
3144       switch (r_type)
3145         {
3146         case R_BFIN_PCREL24:
3147         case R_BFIN_PCREL24_JUMP_L:
3148           if (! IS_FDPIC (output_bfd) || ! picrel->plt)
3149             break;
3150           /* Fall through.  */
3151
3152           /* When referencing a GOT entry, a function descriptor or a
3153              PLT, we don't want the addend to apply to the reference,
3154              but rather to the referenced symbol.  The actual entry
3155              will have already been created taking the addend into
3156              account, so cancel it out here.  */
3157         case R_BFIN_GOT17M4:
3158         case R_BFIN_GOTHI:
3159         case R_BFIN_GOTLO:
3160         case R_BFIN_FUNCDESC_GOT17M4:
3161         case R_BFIN_FUNCDESC_GOTHI:
3162         case R_BFIN_FUNCDESC_GOTLO:
3163         case R_BFIN_FUNCDESC_GOTOFF17M4:
3164         case R_BFIN_FUNCDESC_GOTOFFHI:
3165         case R_BFIN_FUNCDESC_GOTOFFLO:
3166           /* Note that we only want GOTOFFHI, not GOTOFFLO or GOTOFF17M4
3167              here, since we do want to apply the addend to the others.
3168              Note that we've applied the addend to GOTOFFHI before we
3169              shifted it right.  */
3170         case R_BFIN_GOTOFFHI:
3171           relocation -= rel->r_addend;
3172           break;
3173
3174         default:
3175           break;
3176         }
3177
3178       r = bfin_final_link_relocate (rel, howto, input_bfd, input_section,
3179                                     contents, rel->r_offset,
3180                                     relocation, rel->r_addend);
3181
3182       if (r != bfd_reloc_ok)
3183         {
3184           const char * msg = (const char *) NULL;
3185
3186           switch (r)
3187             {
3188             case bfd_reloc_overflow:
3189               r = info->callbacks->reloc_overflow
3190                 (info, (h ? &h->root : NULL), name, howto->name,
3191                  (bfd_vma) 0, input_bfd, input_section, rel->r_offset);
3192               break;
3193
3194             case bfd_reloc_undefined:
3195               r = info->callbacks->undefined_symbol
3196                 (info, name, input_bfd, input_section, rel->r_offset, TRUE);
3197               break;
3198
3199             case bfd_reloc_outofrange:
3200               msg = _("internal error: out of range error");
3201               break;
3202
3203             case bfd_reloc_notsupported:
3204               msg = _("internal error: unsupported relocation error");
3205               break;
3206
3207             case bfd_reloc_dangerous:
3208               msg = _("internal error: dangerous relocation");
3209               break;
3210
3211             default:
3212               msg = _("internal error: unknown error");
3213               break;
3214             }
3215
3216           if (msg)
3217             r = info->callbacks->warning
3218               (info, msg, name, input_bfd, input_section, rel->r_offset);
3219
3220           if (! r)
3221             return FALSE;
3222         }
3223     }
3224
3225   return TRUE;
3226 }
3227
3228 /* Update the relocation information for the relocations of the section
3229    being removed.  */
3230
3231 static bfd_boolean
3232 bfinfdpic_gc_sweep_hook (bfd *abfd,
3233                          struct bfd_link_info *info,
3234                          asection *sec,
3235                          const Elf_Internal_Rela *relocs)
3236 {
3237   Elf_Internal_Shdr *symtab_hdr;
3238   struct elf_link_hash_entry **sym_hashes, **sym_hashes_end;
3239   const Elf_Internal_Rela *rel;
3240   const Elf_Internal_Rela *rel_end;
3241   struct bfinfdpic_relocs_info *picrel;
3242
3243   BFD_ASSERT (IS_FDPIC (abfd));
3244
3245   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
3246   sym_hashes = elf_sym_hashes (abfd);
3247   sym_hashes_end = sym_hashes + symtab_hdr->sh_size/sizeof(Elf32_External_Sym);
3248   if (!elf_bad_symtab (abfd))
3249     sym_hashes_end -= symtab_hdr->sh_info;
3250
3251   rel_end = relocs + sec->reloc_count;
3252   for (rel = relocs; rel < rel_end; rel++)
3253     {
3254       struct elf_link_hash_entry *h;
3255       unsigned long r_symndx;
3256
3257       r_symndx = ELF32_R_SYM (rel->r_info);
3258       if (r_symndx < symtab_hdr->sh_info)
3259         h = NULL;
3260       else
3261         h = sym_hashes[r_symndx - symtab_hdr->sh_info];
3262
3263       if (h != NULL)
3264         picrel = bfinfdpic_relocs_info_for_global (bfinfdpic_relocs_info (info),
3265                                                    abfd, h,
3266                                                    rel->r_addend, NO_INSERT);
3267       else
3268         picrel = bfinfdpic_relocs_info_for_local (bfinfdpic_relocs_info
3269                                                   (info), abfd, r_symndx,
3270                                                   rel->r_addend, NO_INSERT);
3271
3272       if (!picrel)
3273         return TRUE;
3274
3275       switch (ELF32_R_TYPE (rel->r_info))
3276         {
3277         case R_BFIN_PCREL24:
3278         case R_BFIN_PCREL24_JUMP_L:
3279           picrel->call--;
3280           break;
3281
3282         case R_BFIN_FUNCDESC_VALUE:
3283           picrel->relocsfdv--;
3284           if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC)
3285             picrel->relocs32++;
3286           /* Fall through.  */
3287
3288         case R_BFIN_BYTE4_DATA:
3289           picrel->sym--;
3290           if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC)
3291             picrel->relocs32--;
3292           break;
3293
3294         case R_BFIN_GOT17M4:
3295           picrel->got17m4--;
3296           break;
3297
3298         case R_BFIN_GOTHI:
3299         case R_BFIN_GOTLO:
3300           picrel->gothilo--;
3301           break;
3302
3303         case R_BFIN_FUNCDESC_GOT17M4:
3304           picrel->fdgot17m4--;
3305           break;
3306
3307         case R_BFIN_FUNCDESC_GOTHI:
3308         case R_BFIN_FUNCDESC_GOTLO:
3309           picrel->fdgothilo--;
3310           break;
3311
3312         case R_BFIN_GOTOFF17M4:
3313         case R_BFIN_GOTOFFHI:
3314         case R_BFIN_GOTOFFLO:
3315           picrel->gotoff--;
3316           break;
3317
3318         case R_BFIN_FUNCDESC_GOTOFF17M4:
3319           picrel->fdgoff17m4--;
3320           break;
3321
3322         case R_BFIN_FUNCDESC_GOTOFFHI:
3323         case R_BFIN_FUNCDESC_GOTOFFLO:
3324           picrel->fdgoffhilo--;
3325           break;
3326
3327         case R_BFIN_FUNCDESC:
3328           picrel->fd--;
3329           picrel->relocsfd--;
3330           break;
3331
3332         default:
3333           break;
3334         }
3335     }
3336
3337   return TRUE;
3338 }
3339
3340 /* We need dynamic symbols for every section, since segments can
3341    relocate independently.  */
3342 static bfd_boolean
3343 _bfinfdpic_link_omit_section_dynsym (bfd *output_bfd ATTRIBUTE_UNUSED,
3344                                     struct bfd_link_info *info ATTRIBUTE_UNUSED,
3345                                     asection *p)
3346 {
3347   switch (elf_section_data (p)->this_hdr.sh_type)
3348     {
3349     case SHT_PROGBITS:
3350     case SHT_NOBITS:
3351       /* If sh_type is yet undecided, assume it could be
3352          SHT_PROGBITS/SHT_NOBITS.  */
3353     case SHT_NULL:
3354       return FALSE;
3355
3356       /* There shouldn't be section relative relocations
3357          against any other section.  */
3358     default:
3359       return TRUE;
3360     }
3361 }
3362
3363 /* Create  a .got section, as well as its additional info field.  This
3364    is almost entirely copied from
3365    elflink.c:_bfd_elf_create_got_section().  */
3366
3367 static bfd_boolean
3368 _bfin_create_got_section (bfd *abfd, struct bfd_link_info *info)
3369 {
3370   flagword flags, pltflags;
3371   asection *s;
3372   struct elf_link_hash_entry *h;
3373   const struct elf_backend_data *bed = get_elf_backend_data (abfd);
3374   int ptralign;
3375   int offset;
3376
3377   /* This function may be called more than once.  */
3378   s = bfd_get_section_by_name (abfd, ".got");
3379   if (s != NULL && (s->flags & SEC_LINKER_CREATED) != 0)
3380     return TRUE;
3381
3382   /* Machine specific: although pointers are 32-bits wide, we want the
3383      GOT to be aligned to a 64-bit boundary, such that function
3384      descriptors in it can be accessed with 64-bit loads and
3385      stores.  */
3386   ptralign = 3;
3387
3388   flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
3389            | SEC_LINKER_CREATED);
3390   pltflags = flags;
3391
3392   s = bfd_make_section_with_flags (abfd, ".got", flags);
3393   if (s == NULL
3394       || !bfd_set_section_alignment (abfd, s, ptralign))
3395     return FALSE;
3396
3397   if (bed->want_got_plt)
3398     {
3399       s = bfd_make_section_with_flags (abfd, ".got.plt", flags);
3400       if (s == NULL
3401           || !bfd_set_section_alignment (abfd, s, ptralign))
3402         return FALSE;
3403     }
3404
3405   if (bed->want_got_sym)
3406     {
3407       /* Define the symbol _GLOBAL_OFFSET_TABLE_ at the start of the .got
3408          (or .got.plt) section.  We don't do this in the linker script
3409          because we don't want to define the symbol if we are not creating
3410          a global offset table.  */
3411       h = _bfd_elf_define_linkage_sym (abfd, info, s, "__GLOBAL_OFFSET_TABLE_");
3412       elf_hash_table (info)->hgot = h;
3413       if (h == NULL)
3414         return FALSE;
3415
3416       /* Machine-specific: we want the symbol for executables as
3417          well.  */
3418       if (! bfd_elf_link_record_dynamic_symbol (info, h))
3419         return FALSE;
3420     }
3421
3422   /* The first bit of the global offset table is the header.  */
3423   s->size += bed->got_header_size;
3424
3425   /* This is the machine-specific part.  Create and initialize section
3426      data for the got.  */
3427   if (IS_FDPIC (abfd))
3428     {
3429       bfinfdpic_got_section (info) = s;
3430       bfinfdpic_relocs_info (info) = htab_try_create (1,
3431                                                       bfinfdpic_relocs_info_hash,
3432                                                       bfinfdpic_relocs_info_eq,
3433                                                       (htab_del) NULL);
3434       if (! bfinfdpic_relocs_info (info))
3435         return FALSE;
3436
3437       s = bfd_make_section_with_flags (abfd, ".rel.got",
3438                                        (flags | SEC_READONLY));
3439       if (s == NULL
3440           || ! bfd_set_section_alignment (abfd, s, 2))
3441         return FALSE;
3442
3443       bfinfdpic_gotrel_section (info) = s;
3444
3445       /* Machine-specific.  */
3446       s = bfd_make_section_with_flags (abfd, ".rofixup",
3447                                        (flags | SEC_READONLY));
3448       if (s == NULL
3449           || ! bfd_set_section_alignment (abfd, s, 2))
3450         return FALSE;
3451
3452       bfinfdpic_gotfixup_section (info) = s;
3453       offset = -2048;
3454       flags = BSF_GLOBAL;
3455     }
3456   else
3457     {
3458       offset = 2048;
3459       flags = BSF_GLOBAL | BSF_WEAK;
3460     }
3461
3462   flags = pltflags;
3463   pltflags |= SEC_CODE;
3464   if (bed->plt_not_loaded)
3465     pltflags &= ~ (SEC_CODE | SEC_LOAD | SEC_HAS_CONTENTS);
3466   if (bed->plt_readonly)
3467     pltflags |= SEC_READONLY;
3468
3469   s = bfd_make_section_with_flags (abfd, ".plt", pltflags);
3470   if (s == NULL
3471       || ! bfd_set_section_alignment (abfd, s, bed->plt_alignment))
3472     return FALSE;
3473   /* Blackfin-specific: remember it.  */
3474   bfinfdpic_plt_section (info) = s;
3475
3476   if (bed->want_plt_sym)
3477     {
3478       /* Define the symbol _PROCEDURE_LINKAGE_TABLE_ at the start of the
3479          .plt section.  */
3480       struct elf_link_hash_entry *h;
3481       struct bfd_link_hash_entry *bh = NULL;
3482
3483       if (! (_bfd_generic_link_add_one_symbol
3484              (info, abfd, "__PROCEDURE_LINKAGE_TABLE_", BSF_GLOBAL, s, 0, NULL,
3485               FALSE, get_elf_backend_data (abfd)->collect, &bh)))
3486         return FALSE;
3487       h = (struct elf_link_hash_entry *) bh;
3488       h->def_regular = 1;
3489       h->type = STT_OBJECT;
3490
3491       if (! info->executable
3492           && ! bfd_elf_link_record_dynamic_symbol (info, h))
3493         return FALSE;
3494     }
3495
3496   /* Blackfin-specific: we want rel relocations for the plt.  */
3497   s = bfd_make_section_with_flags (abfd, ".rel.plt", flags | SEC_READONLY);
3498   if (s == NULL
3499       || ! bfd_set_section_alignment (abfd, s, bed->s->log_file_align))
3500     return FALSE;
3501   /* Blackfin-specific: remember it.  */
3502   bfinfdpic_pltrel_section (info) = s;
3503
3504   return TRUE;
3505 }
3506
3507 /* Make sure the got and plt sections exist, and that our pointers in
3508    the link hash table point to them.  */
3509
3510 static bfd_boolean
3511 elf32_bfinfdpic_create_dynamic_sections (bfd *abfd, struct bfd_link_info *info)
3512 {
3513   /* This is mostly copied from
3514      elflink.c:_bfd_elf_create_dynamic_sections().  */
3515   flagword flags;
3516   asection *s;
3517   const struct elf_backend_data *bed = get_elf_backend_data (abfd);
3518
3519   flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
3520            | SEC_LINKER_CREATED);
3521
3522   /* We need to create .plt, .rel[a].plt, .got, .got.plt, .dynbss, and
3523      .rel[a].bss sections.  */
3524
3525   /* Blackfin-specific: we want to create the GOT in the Blackfin way.  */
3526   if (! _bfin_create_got_section (abfd, info))
3527     return FALSE;
3528
3529   /* Blackfin-specific: make sure we created everything we wanted.  */
3530   BFD_ASSERT (bfinfdpic_got_section (info) && bfinfdpic_gotrel_section (info)
3531               /* && bfinfdpic_gotfixup_section (info) */
3532               && bfinfdpic_plt_section (info)
3533               && bfinfdpic_pltrel_section (info));
3534
3535   if (bed->want_dynbss)
3536     {
3537       /* The .dynbss section is a place to put symbols which are defined
3538          by dynamic objects, are referenced by regular objects, and are
3539          not functions.  We must allocate space for them in the process
3540          image and use a R_*_COPY reloc to tell the dynamic linker to
3541          initialize them at run time.  The linker script puts the .dynbss
3542          section into the .bss section of the final image.  */
3543       s = bfd_make_section_with_flags (abfd, ".dynbss",
3544                                        SEC_ALLOC | SEC_LINKER_CREATED);
3545       if (s == NULL)
3546         return FALSE;
3547
3548       /* The .rel[a].bss section holds copy relocs.  This section is not
3549      normally needed.  We need to create it here, though, so that the
3550      linker will map it to an output section.  We can't just create it
3551      only if we need it, because we will not know whether we need it
3552      until we have seen all the input files, and the first time the
3553      main linker code calls BFD after examining all the input files
3554      (size_dynamic_sections) the input sections have already been
3555      mapped to the output sections.  If the section turns out not to
3556      be needed, we can discard it later.  We will never need this
3557      section when generating a shared object, since they do not use
3558      copy relocs.  */
3559       if (! info->shared)
3560         {
3561           s = bfd_make_section_with_flags (abfd,
3562                                            ".rela.bss",
3563                                            flags | SEC_READONLY);
3564           if (s == NULL
3565               || ! bfd_set_section_alignment (abfd, s, bed->s->log_file_align))
3566             return FALSE;
3567         }
3568     }
3569
3570   return TRUE;
3571 }
3572
3573 /* Compute the total GOT size required by each symbol in each range.
3574    Symbols may require up to 4 words in the GOT: an entry pointing to
3575    the symbol, an entry pointing to its function descriptor, and a
3576    private function descriptors taking two words.  */
3577
3578 static void
3579 _bfinfdpic_count_nontls_entries (struct bfinfdpic_relocs_info *entry,
3580                                  struct _bfinfdpic_dynamic_got_info *dinfo)
3581 {
3582   /* Allocate space for a GOT entry pointing to the symbol.  */
3583   if (entry->got17m4)
3584     dinfo->got17m4 += 4;
3585   else if (entry->gothilo)
3586     dinfo->gothilo += 4;
3587   else
3588     entry->relocs32--;
3589   entry->relocs32++;
3590
3591   /* Allocate space for a GOT entry pointing to the function
3592      descriptor.  */
3593   if (entry->fdgot17m4)
3594     dinfo->got17m4 += 4;
3595   else if (entry->fdgothilo)
3596     dinfo->gothilo += 4;
3597   else
3598     entry->relocsfd--;
3599   entry->relocsfd++;
3600
3601   /* Decide whether we need a PLT entry, a function descriptor in the
3602      GOT, and a lazy PLT entry for this symbol.  */
3603   entry->plt = entry->call
3604     && entry->symndx == -1 && ! BFINFDPIC_SYM_LOCAL (dinfo->info, entry->d.h)
3605     && elf_hash_table (dinfo->info)->dynamic_sections_created;
3606   entry->privfd = entry->plt
3607     || entry->fdgoff17m4 || entry->fdgoffhilo
3608     || ((entry->fd || entry->fdgot17m4 || entry->fdgothilo)
3609         && (entry->symndx != -1
3610             || BFINFDPIC_FUNCDESC_LOCAL (dinfo->info, entry->d.h)));
3611   entry->lazyplt = entry->privfd
3612     && entry->symndx == -1 && ! BFINFDPIC_SYM_LOCAL (dinfo->info, entry->d.h)
3613     && ! (dinfo->info->flags & DF_BIND_NOW)
3614     && elf_hash_table (dinfo->info)->dynamic_sections_created;
3615
3616   /* Allocate space for a function descriptor.  */
3617   if (entry->fdgoff17m4)
3618     dinfo->fd17m4 += 8;
3619   else if (entry->privfd && entry->plt)
3620     dinfo->fdplt += 8;
3621   else if (entry->privfd)
3622     dinfo->fdhilo += 8;
3623   else
3624     entry->relocsfdv--;
3625   entry->relocsfdv++;
3626
3627   if (entry->lazyplt)
3628     dinfo->lzplt += LZPLT_NORMAL_SIZE;
3629 }
3630
3631 /* Compute the number of dynamic relocations and fixups that a symbol
3632    requires, and add (or subtract) from the grand and per-symbol
3633    totals.  */
3634
3635 static void
3636 _bfinfdpic_count_relocs_fixups (struct bfinfdpic_relocs_info *entry,
3637                                 struct _bfinfdpic_dynamic_got_info *dinfo,
3638                                 bfd_boolean subtract)
3639 {
3640   bfd_vma relocs = 0, fixups = 0;
3641
3642   if (!dinfo->info->executable || dinfo->info->pie)
3643     relocs = entry->relocs32 + entry->relocsfd + entry->relocsfdv;
3644   else
3645     {
3646       if (entry->symndx != -1 || BFINFDPIC_SYM_LOCAL (dinfo->info, entry->d.h))
3647         {
3648           if (entry->symndx != -1
3649               || entry->d.h->root.type != bfd_link_hash_undefweak)
3650             fixups += entry->relocs32 + 2 * entry->relocsfdv;
3651         }
3652       else
3653         relocs += entry->relocs32 + entry->relocsfdv;
3654
3655       if (entry->symndx != -1
3656           || BFINFDPIC_FUNCDESC_LOCAL (dinfo->info, entry->d.h))
3657         {
3658           if (entry->symndx != -1
3659               || entry->d.h->root.type != bfd_link_hash_undefweak)
3660             fixups += entry->relocsfd;
3661         }
3662       else
3663         relocs += entry->relocsfd;
3664     }
3665
3666   if (subtract)
3667     {
3668       relocs = - relocs;
3669       fixups = - fixups;
3670     }
3671
3672   entry->dynrelocs += relocs;
3673   entry->fixups += fixups;
3674   dinfo->relocs += relocs;
3675   dinfo->fixups += fixups;
3676 }
3677
3678 /* Compute the total GOT and PLT size required by each symbol in each range. *
3679    Symbols may require up to 4 words in the GOT: an entry pointing to
3680    the symbol, an entry pointing to its function descriptor, and a
3681    private function descriptors taking two words.  */
3682
3683 static int
3684 _bfinfdpic_count_got_plt_entries (void **entryp, void *dinfo_)
3685 {
3686   struct bfinfdpic_relocs_info *entry = *entryp;
3687   struct _bfinfdpic_dynamic_got_info *dinfo = dinfo_;
3688
3689   _bfinfdpic_count_nontls_entries (entry, dinfo);
3690
3691   _bfinfdpic_count_relocs_fixups (entry, dinfo, FALSE);
3692
3693   return 1;
3694 }
3695
3696 /* This structure is used to assign offsets to got entries, function
3697    descriptors, plt entries and lazy plt entries.  */
3698
3699 struct _bfinfdpic_dynamic_got_plt_info
3700 {
3701   /* Summary information collected with _bfinfdpic_count_got_plt_entries.  */
3702   struct _bfinfdpic_dynamic_got_info g;
3703
3704   /* For each addressable range, we record a MAX (positive) and MIN
3705      (negative) value.  CUR is used to assign got entries, and it's
3706      incremented from an initial positive value to MAX, then from MIN
3707      to FDCUR (unless FDCUR wraps around first).  FDCUR is used to
3708      assign function descriptors, and it's decreased from an initial
3709      non-positive value to MIN, then from MAX down to CUR (unless CUR
3710      wraps around first).  All of MIN, MAX, CUR and FDCUR always point
3711      to even words.  ODD, if non-zero, indicates an odd word to be
3712      used for the next got entry, otherwise CUR is used and
3713      incremented by a pair of words, wrapping around when it reaches
3714      MAX.  FDCUR is decremented (and wrapped) before the next function
3715      descriptor is chosen.  FDPLT indicates the number of remaining
3716      slots that can be used for function descriptors used only by PLT
3717      entries.  */
3718   struct _bfinfdpic_dynamic_got_alloc_data
3719   {
3720     bfd_signed_vma max, cur, odd, fdcur, min;
3721     bfd_vma fdplt;
3722   } got17m4, gothilo;
3723 };
3724
3725 /* Determine the positive and negative ranges to be used by each
3726    offset range in the GOT.  FDCUR and CUR, that must be aligned to a
3727    double-word boundary, are the minimum (negative) and maximum
3728    (positive) GOT offsets already used by previous ranges, except for
3729    an ODD entry that may have been left behind.  GOT and FD indicate
3730    the size of GOT entries and function descriptors that must be
3731    placed within the range from -WRAP to WRAP.  If there's room left,
3732    up to FDPLT bytes should be reserved for additional function
3733    descriptors.  */
3734
3735 inline static bfd_signed_vma
3736 _bfinfdpic_compute_got_alloc_data (struct _bfinfdpic_dynamic_got_alloc_data *gad,
3737                                    bfd_signed_vma fdcur,
3738                                    bfd_signed_vma odd,
3739                                    bfd_signed_vma cur,
3740                                    bfd_vma got,
3741                                    bfd_vma fd,
3742                                    bfd_vma fdplt,
3743                                    bfd_vma wrap)
3744 {
3745   bfd_signed_vma wrapmin = -wrap;
3746
3747   /* Start at the given initial points.  */
3748   gad->fdcur = fdcur;
3749   gad->cur = cur;
3750
3751   /* If we had an incoming odd word and we have any got entries that
3752      are going to use it, consume it, otherwise leave gad->odd at
3753      zero.  We might force gad->odd to zero and return the incoming
3754      odd such that it is used by the next range, but then GOT entries
3755      might appear to be out of order and we wouldn't be able to
3756      shorten the GOT by one word if it turns out to end with an
3757      unpaired GOT entry.  */
3758   if (odd && got)
3759     {
3760       gad->odd = odd;
3761       got -= 4;
3762       odd = 0;
3763     }
3764   else
3765     gad->odd = 0;
3766
3767   /* If we're left with an unpaired GOT entry, compute its location
3768      such that we can return it.  Otherwise, if got doesn't require an
3769      odd number of words here, either odd was already zero in the
3770      block above, or it was set to zero because got was non-zero, or
3771      got was already zero.  In the latter case, we want the value of
3772      odd to carry over to the return statement, so we don't want to
3773      reset odd unless the condition below is true.  */
3774   if (got & 4)
3775     {
3776       odd = cur + got;
3777       got += 4;
3778     }
3779
3780   /* Compute the tentative boundaries of this range.  */
3781   gad->max = cur + got;
3782   gad->min = fdcur - fd;
3783   gad->fdplt = 0;
3784
3785   /* If function descriptors took too much space, wrap some of them
3786      around.  */
3787   if (gad->min < wrapmin)
3788     {
3789       gad->max += wrapmin - gad->min;
3790       gad->min = wrapmin;
3791     }
3792   /* If there is space left and we have function descriptors
3793      referenced in PLT entries that could take advantage of shorter
3794      offsets, place them here.  */
3795   else if (fdplt && gad->min > wrapmin)
3796     {
3797       bfd_vma fds;
3798       if ((bfd_vma) (gad->min - wrapmin) < fdplt)
3799         fds = gad->min - wrapmin;
3800       else
3801         fds = fdplt;
3802
3803       fdplt -= fds;
3804       gad->min -= fds;
3805       gad->fdplt += fds;
3806     }
3807
3808   /* If GOT entries took too much space, wrap some of them around.
3809      This may well cause gad->min to become lower than wrapmin.  This
3810      will cause a relocation overflow later on, so we don't have to
3811      report it here . */
3812   if ((bfd_vma) gad->max > wrap)
3813     {
3814       gad->min -= gad->max - wrap;
3815       gad->max = wrap;
3816     }
3817   /* If there is more space left, try to place some more function
3818      descriptors for PLT entries.  */
3819   else if (fdplt && (bfd_vma) gad->max < wrap)
3820     {
3821       bfd_vma fds;
3822       if ((bfd_vma) (wrap - gad->max) < fdplt)
3823         fds = wrap - gad->max;
3824       else
3825         fds = fdplt;
3826
3827       fdplt -= fds;
3828       gad->max += fds;
3829       gad->fdplt += fds;
3830     }
3831
3832   /* If odd was initially computed as an offset past the wrap point,
3833      wrap it around.  */
3834   if (odd > gad->max)
3835     odd = gad->min + odd - gad->max;
3836
3837   /* _bfinfdpic_get_got_entry() below will always wrap gad->cur if needed
3838      before returning, so do it here too.  This guarantees that,
3839      should cur and fdcur meet at the wrap point, they'll both be
3840      equal to min.  */
3841   if (gad->cur == gad->max)
3842     gad->cur = gad->min;
3843
3844   return odd;
3845 }
3846
3847 /* Compute the location of the next GOT entry, given the allocation
3848    data for a range.  */
3849
3850 inline static bfd_signed_vma
3851 _bfinfdpic_get_got_entry (struct _bfinfdpic_dynamic_got_alloc_data *gad)
3852 {
3853   bfd_signed_vma ret;
3854
3855   if (gad->odd)
3856     {
3857       /* If there was an odd word left behind, use it.  */
3858       ret = gad->odd;
3859       gad->odd = 0;
3860     }
3861   else
3862     {
3863       /* Otherwise, use the word pointed to by cur, reserve the next
3864          as an odd word, and skip to the next pair of words, possibly
3865          wrapping around.  */
3866       ret = gad->cur;
3867       gad->odd = gad->cur + 4;
3868       gad->cur += 8;
3869       if (gad->cur == gad->max)
3870         gad->cur = gad->min;
3871     }
3872
3873   return ret;
3874 }
3875
3876 /* Compute the location of the next function descriptor entry in the
3877    GOT, given the allocation data for a range.  */
3878
3879 inline static bfd_signed_vma
3880 _bfinfdpic_get_fd_entry (struct _bfinfdpic_dynamic_got_alloc_data *gad)
3881 {
3882   /* If we're at the bottom, wrap around, and only then allocate the
3883      next pair of words.  */
3884   if (gad->fdcur == gad->min)
3885     gad->fdcur = gad->max;
3886   return gad->fdcur -= 8;
3887 }
3888
3889 /* Assign GOT offsets for every GOT entry and function descriptor.
3890    Doing everything in a single pass is tricky.  */
3891
3892 static int
3893 _bfinfdpic_assign_got_entries (void **entryp, void *info_)
3894 {
3895   struct bfinfdpic_relocs_info *entry = *entryp;
3896   struct _bfinfdpic_dynamic_got_plt_info *dinfo = info_;
3897
3898   if (entry->got17m4)
3899     entry->got_entry = _bfinfdpic_get_got_entry (&dinfo->got17m4);
3900   else if (entry->gothilo)
3901     entry->got_entry = _bfinfdpic_get_got_entry (&dinfo->gothilo);
3902
3903   if (entry->fdgot17m4)
3904     entry->fdgot_entry = _bfinfdpic_get_got_entry (&dinfo->got17m4);
3905   else if (entry->fdgothilo)
3906     entry->fdgot_entry = _bfinfdpic_get_got_entry (&dinfo->gothilo);
3907
3908   if (entry->fdgoff17m4)
3909     entry->fd_entry = _bfinfdpic_get_fd_entry (&dinfo->got17m4);
3910   else if (entry->plt && dinfo->got17m4.fdplt)
3911     {
3912       dinfo->got17m4.fdplt -= 8;
3913       entry->fd_entry = _bfinfdpic_get_fd_entry (&dinfo->got17m4);
3914     }
3915   else if (entry->plt)
3916     {
3917       dinfo->gothilo.fdplt -= 8;
3918       entry->fd_entry = _bfinfdpic_get_fd_entry (&dinfo->gothilo);
3919     }
3920   else if (entry->privfd)
3921     entry->fd_entry = _bfinfdpic_get_fd_entry (&dinfo->gothilo);
3922
3923   return 1;
3924 }
3925
3926 /* Assign GOT offsets to private function descriptors used by PLT
3927    entries (or referenced by 32-bit offsets), as well as PLT entries
3928    and lazy PLT entries.  */
3929
3930 static int
3931 _bfinfdpic_assign_plt_entries (void **entryp, void *info_)
3932 {
3933   struct bfinfdpic_relocs_info *entry = *entryp;
3934   struct _bfinfdpic_dynamic_got_plt_info *dinfo = info_;
3935
3936   /* If this symbol requires a local function descriptor, allocate
3937      one.  */
3938   if (entry->privfd && entry->fd_entry == 0)
3939     {
3940       if (dinfo->got17m4.fdplt)
3941         {
3942           entry->fd_entry = _bfinfdpic_get_fd_entry (&dinfo->got17m4);
3943           dinfo->got17m4.fdplt -= 8;
3944         }
3945       else
3946         {
3947           BFD_ASSERT (dinfo->gothilo.fdplt);
3948           entry->fd_entry = _bfinfdpic_get_fd_entry (&dinfo->gothilo);
3949           dinfo->gothilo.fdplt -= 8;
3950         }
3951     }
3952
3953   if (entry->plt)
3954     {
3955       int size;
3956
3957       /* We use the section's raw size to mark the location of the
3958          next PLT entry.  */
3959       entry->plt_entry = bfinfdpic_plt_section (dinfo->g.info)->size;
3960
3961       /* Figure out the length of this PLT entry based on the
3962          addressing mode we need to reach the function descriptor.  */
3963       BFD_ASSERT (entry->fd_entry);
3964       if (entry->fd_entry >= -(1 << (18 - 1))
3965           && entry->fd_entry + 4 < (1 << (18 - 1)))
3966         size = 10;
3967       else
3968         size = 16;
3969
3970       bfinfdpic_plt_section (dinfo->g.info)->size += size;
3971     }
3972
3973   if (entry->lazyplt)
3974     {
3975       entry->lzplt_entry = dinfo->g.lzplt;
3976       dinfo->g.lzplt += LZPLT_NORMAL_SIZE;
3977       /* If this entry is the one that gets the resolver stub, account
3978          for the additional instruction.  */
3979       if (entry->lzplt_entry % BFINFDPIC_LZPLT_BLOCK_SIZE
3980           == BFINFDPIC_LZPLT_RESOLV_LOC)
3981         dinfo->g.lzplt += LZPLT_RESOLVER_EXTRA;
3982     }
3983
3984   return 1;
3985 }
3986
3987 /* Cancel out any effects of calling _bfinfdpic_assign_got_entries and
3988    _bfinfdpic_assign_plt_entries.  */
3989
3990 static int
3991 _bfinfdpic_reset_got_plt_entries (void **entryp, void *ignore ATTRIBUTE_UNUSED)
3992 {
3993   struct bfinfdpic_relocs_info *entry = *entryp;
3994
3995   entry->got_entry = 0;
3996   entry->fdgot_entry = 0;
3997   entry->fd_entry = 0;
3998   entry->plt_entry = (bfd_vma)-1;
3999   entry->lzplt_entry = (bfd_vma)-1;
4000
4001   return 1;
4002 }
4003
4004 /* Follow indirect and warning hash entries so that each got entry
4005    points to the final symbol definition.  P must point to a pointer
4006    to the hash table we're traversing.  Since this traversal may
4007    modify the hash table, we set this pointer to NULL to indicate
4008    we've made a potentially-destructive change to the hash table, so
4009    the traversal must be restarted.  */
4010 static int
4011 _bfinfdpic_resolve_final_relocs_info (void **entryp, void *p)
4012 {
4013   struct bfinfdpic_relocs_info *entry = *entryp;
4014   htab_t *htab = p;
4015
4016   if (entry->symndx == -1)
4017     {
4018       struct elf_link_hash_entry *h = entry->d.h;
4019       struct bfinfdpic_relocs_info *oentry;
4020
4021       while (h->root.type == bfd_link_hash_indirect
4022              || h->root.type == bfd_link_hash_warning)
4023         h = (struct elf_link_hash_entry *)h->root.u.i.link;
4024
4025       if (entry->d.h == h)
4026         return 1;
4027
4028       oentry = bfinfdpic_relocs_info_for_global (*htab, 0, h, entry->addend,
4029                                                 NO_INSERT);
4030
4031       if (oentry)
4032         {
4033           /* Merge the two entries.  */
4034           bfinfdpic_pic_merge_early_relocs_info (oentry, entry);
4035           htab_clear_slot (*htab, entryp);
4036           return 1;
4037         }
4038
4039       entry->d.h = h;
4040
4041       /* If we can't find this entry with the new bfd hash, re-insert
4042          it, and get the traversal restarted.  */
4043       if (! htab_find (*htab, entry))
4044         {
4045           htab_clear_slot (*htab, entryp);
4046           entryp = htab_find_slot (*htab, entry, INSERT);
4047           if (! *entryp)
4048             *entryp = entry;
4049           /* Abort the traversal, since the whole table may have
4050              moved, and leave it up to the parent to restart the
4051              process.  */
4052           *(htab_t *)p = NULL;
4053           return 0;
4054         }
4055     }
4056
4057   return 1;
4058 }
4059
4060 /* Compute the total size of the GOT, the PLT, the dynamic relocations
4061    section and the rofixup section.  Assign locations for GOT and PLT
4062    entries.  */
4063
4064 static bfd_boolean
4065 _bfinfdpic_size_got_plt (bfd *output_bfd,
4066                          struct _bfinfdpic_dynamic_got_plt_info *gpinfop)
4067 {
4068   bfd_signed_vma odd;
4069   bfd_vma limit;
4070   struct bfd_link_info *info = gpinfop->g.info;
4071   bfd *dynobj = elf_hash_table (info)->dynobj;
4072
4073   memcpy (bfinfdpic_dynamic_got_plt_info (info), &gpinfop->g,
4074           sizeof (gpinfop->g));
4075
4076   odd = 12;
4077   /* Compute the total size taken by entries in the 18-bit range,
4078      to tell how many PLT function descriptors we can bring into it
4079      without causing it to overflow.  */
4080   limit = odd + gpinfop->g.got17m4 + gpinfop->g.fd17m4;
4081   if (limit < (bfd_vma)1 << 18)
4082     limit = ((bfd_vma)1 << 18) - limit;
4083   else
4084     limit = 0;
4085   if (gpinfop->g.fdplt < limit)
4086     limit = gpinfop->g.fdplt;
4087
4088   /* Determine the ranges of GOT offsets that we can use for each
4089      range of addressing modes.  */
4090   odd = _bfinfdpic_compute_got_alloc_data (&gpinfop->got17m4,
4091                                           0,
4092                                           odd,
4093                                           16,
4094                                           gpinfop->g.got17m4,
4095                                           gpinfop->g.fd17m4,
4096                                           limit,
4097                                           (bfd_vma)1 << (18-1));
4098   odd = _bfinfdpic_compute_got_alloc_data (&gpinfop->gothilo,
4099                                           gpinfop->got17m4.min,
4100                                           odd,
4101                                           gpinfop->got17m4.max,
4102                                           gpinfop->g.gothilo,
4103                                           gpinfop->g.fdhilo,
4104                                           gpinfop->g.fdplt - gpinfop->got17m4.fdplt,
4105                                           (bfd_vma)1 << (32-1));
4106
4107   /* Now assign (most) GOT offsets.  */
4108   htab_traverse (bfinfdpic_relocs_info (info), _bfinfdpic_assign_got_entries,
4109                  gpinfop);
4110
4111   bfinfdpic_got_section (info)->size = gpinfop->gothilo.max
4112     - gpinfop->gothilo.min
4113     /* If an odd word is the last word of the GOT, we don't need this
4114        word to be part of the GOT.  */
4115     - (odd + 4 == gpinfop->gothilo.max ? 4 : 0);
4116   if (bfinfdpic_got_section (info)->size == 0)
4117     bfinfdpic_got_section (info)->flags |= SEC_EXCLUDE;
4118   else if (bfinfdpic_got_section (info)->size == 12
4119            && ! elf_hash_table (info)->dynamic_sections_created)
4120     {
4121       bfinfdpic_got_section (info)->flags |= SEC_EXCLUDE;
4122       bfinfdpic_got_section (info)->size = 0;
4123     }
4124   else
4125     {
4126       bfinfdpic_got_section (info)->contents =
4127         (bfd_byte *) bfd_zalloc (dynobj,
4128                                  bfinfdpic_got_section (info)->size);
4129       if (bfinfdpic_got_section (info)->contents == NULL)
4130         return FALSE;
4131     }
4132
4133   if (elf_hash_table (info)->dynamic_sections_created)
4134     /* Subtract the number of lzplt entries, since those will generate
4135        relocations in the pltrel section.  */
4136     bfinfdpic_gotrel_section (info)->size =
4137       (gpinfop->g.relocs - gpinfop->g.lzplt / LZPLT_NORMAL_SIZE)
4138       * get_elf_backend_data (output_bfd)->s->sizeof_rel;
4139   else
4140     BFD_ASSERT (gpinfop->g.relocs == 0);
4141   if (bfinfdpic_gotrel_section (info)->size == 0)
4142     bfinfdpic_gotrel_section (info)->flags |= SEC_EXCLUDE;
4143   else
4144     {
4145       bfinfdpic_gotrel_section (info)->contents =
4146         (bfd_byte *) bfd_zalloc (dynobj,
4147                                  bfinfdpic_gotrel_section (info)->size);
4148       if (bfinfdpic_gotrel_section (info)->contents == NULL)
4149         return FALSE;
4150     }
4151
4152   bfinfdpic_gotfixup_section (info)->size = (gpinfop->g.fixups + 1) * 4;
4153   if (bfinfdpic_gotfixup_section (info)->size == 0)
4154     bfinfdpic_gotfixup_section (info)->flags |= SEC_EXCLUDE;
4155   else
4156     {
4157       bfinfdpic_gotfixup_section (info)->contents =
4158         (bfd_byte *) bfd_zalloc (dynobj,
4159                                  bfinfdpic_gotfixup_section (info)->size);
4160       if (bfinfdpic_gotfixup_section (info)->contents == NULL)
4161         return FALSE;
4162     }
4163
4164   if (elf_hash_table (info)->dynamic_sections_created)
4165     {
4166       bfinfdpic_pltrel_section (info)->size =
4167         gpinfop->g.lzplt / LZPLT_NORMAL_SIZE * get_elf_backend_data (output_bfd)->s->sizeof_rel;
4168       if (bfinfdpic_pltrel_section (info)->size == 0)
4169         bfinfdpic_pltrel_section (info)->flags |= SEC_EXCLUDE;
4170       else
4171         {
4172           bfinfdpic_pltrel_section (info)->contents =
4173             (bfd_byte *) bfd_zalloc (dynobj,
4174                                      bfinfdpic_pltrel_section (info)->size);
4175           if (bfinfdpic_pltrel_section (info)->contents == NULL)
4176             return FALSE;
4177         }
4178     }
4179
4180   /* Add 4 bytes for every block of at most 65535 lazy PLT entries,
4181      such that there's room for the additional instruction needed to
4182      call the resolver.  Since _bfinfdpic_assign_got_entries didn't
4183      account for them, our block size is 4 bytes smaller than the real
4184      block size.  */
4185   if (elf_hash_table (info)->dynamic_sections_created)
4186     {
4187       bfinfdpic_plt_section (info)->size = gpinfop->g.lzplt
4188         + ((gpinfop->g.lzplt + (BFINFDPIC_LZPLT_BLOCK_SIZE - 4) - LZPLT_NORMAL_SIZE)
4189            / (BFINFDPIC_LZPLT_BLOCK_SIZE - 4) * LZPLT_RESOLVER_EXTRA);
4190     }
4191
4192   /* Reset it, such that _bfinfdpic_assign_plt_entries() can use it to
4193      actually assign lazy PLT entries addresses.  */
4194   gpinfop->g.lzplt = 0;
4195
4196   /* Save information that we're going to need to generate GOT and PLT
4197      entries.  */
4198   bfinfdpic_got_initial_offset (info) = -gpinfop->gothilo.min;
4199
4200   if (get_elf_backend_data (output_bfd)->want_got_sym)
4201     elf_hash_table (info)->hgot->root.u.def.value
4202       = bfinfdpic_got_initial_offset (info);
4203
4204   if (elf_hash_table (info)->dynamic_sections_created)
4205     bfinfdpic_plt_initial_offset (info) =
4206       bfinfdpic_plt_section (info)->size;
4207
4208   htab_traverse (bfinfdpic_relocs_info (info), _bfinfdpic_assign_plt_entries,
4209                  gpinfop);
4210
4211   /* Allocate the PLT section contents only after
4212      _bfinfdpic_assign_plt_entries has a chance to add the size of the
4213      non-lazy PLT entries.  */
4214   if (elf_hash_table (info)->dynamic_sections_created)
4215     {
4216       if (bfinfdpic_plt_section (info)->size == 0)
4217         bfinfdpic_plt_section (info)->flags |= SEC_EXCLUDE;
4218       else
4219         {
4220           bfinfdpic_plt_section (info)->contents =
4221             (bfd_byte *) bfd_zalloc (dynobj,
4222                                      bfinfdpic_plt_section (info)->size);
4223           if (bfinfdpic_plt_section (info)->contents == NULL)
4224             return FALSE;
4225         }
4226     }
4227
4228   return TRUE;
4229 }
4230
4231 /* Set the sizes of the dynamic sections.  */
4232
4233 static bfd_boolean
4234 elf32_bfinfdpic_size_dynamic_sections (bfd *output_bfd,
4235                                       struct bfd_link_info *info)
4236 {
4237   struct elf_link_hash_table *htab;
4238   bfd *dynobj;
4239   asection *s;
4240   struct _bfinfdpic_dynamic_got_plt_info gpinfo;
4241
4242   htab = elf_hash_table (info);
4243   dynobj = htab->dynobj;
4244   BFD_ASSERT (dynobj != NULL);
4245
4246   if (htab->dynamic_sections_created)
4247     {
4248       /* Set the contents of the .interp section to the interpreter.  */
4249       if (info->executable)
4250         {
4251           s = bfd_get_section_by_name (dynobj, ".interp");
4252           BFD_ASSERT (s != NULL);
4253           s->size = sizeof ELF_DYNAMIC_INTERPRETER;
4254           s->contents = (bfd_byte *) ELF_DYNAMIC_INTERPRETER;
4255         }
4256     }
4257
4258   memset (&gpinfo, 0, sizeof (gpinfo));
4259   gpinfo.g.info = info;
4260
4261   for (;;)
4262     {
4263       htab_t relocs = bfinfdpic_relocs_info (info);
4264
4265       htab_traverse (relocs, _bfinfdpic_resolve_final_relocs_info, &relocs);
4266
4267       if (relocs == bfinfdpic_relocs_info (info))
4268         break;
4269     }
4270
4271   htab_traverse (bfinfdpic_relocs_info (info), _bfinfdpic_count_got_plt_entries,
4272                  &gpinfo.g);
4273
4274   /* Allocate space to save the summary information, we're going to
4275      use it if we're doing relaxations.  */
4276   bfinfdpic_dynamic_got_plt_info (info) = bfd_alloc (dynobj, sizeof (gpinfo.g));
4277
4278   if (!_bfinfdpic_size_got_plt (output_bfd, &gpinfo))
4279       return FALSE;
4280
4281   if (elf_hash_table (info)->dynamic_sections_created)
4282     {
4283       if (bfinfdpic_got_section (info)->size)
4284         if (!_bfd_elf_add_dynamic_entry (info, DT_PLTGOT, 0))
4285           return FALSE;
4286
4287       if (bfinfdpic_pltrel_section (info)->size)
4288         if (!_bfd_elf_add_dynamic_entry (info, DT_PLTRELSZ, 0)
4289             || !_bfd_elf_add_dynamic_entry (info, DT_PLTREL, DT_REL)
4290             || !_bfd_elf_add_dynamic_entry (info, DT_JMPREL, 0))
4291           return FALSE;
4292
4293       if (bfinfdpic_gotrel_section (info)->size)
4294         if (!_bfd_elf_add_dynamic_entry (info, DT_REL, 0)
4295             || !_bfd_elf_add_dynamic_entry (info, DT_RELSZ, 0)
4296             || !_bfd_elf_add_dynamic_entry (info, DT_RELENT,
4297                                             sizeof (Elf32_External_Rel)))
4298           return FALSE;
4299     }
4300
4301
4302   s = bfd_get_section_by_name (dynobj, ".rela.bss");
4303   if (s && s->size == 0)
4304     s->flags |= SEC_EXCLUDE;
4305
4306   s = bfd_get_section_by_name (dynobj, ".rel.plt");
4307   if (s && s->size == 0)
4308     s->flags |= SEC_EXCLUDE;
4309
4310   return TRUE;
4311 }
4312
4313 static bfd_boolean
4314 elf32_bfinfdpic_always_size_sections (bfd *output_bfd,
4315                                      struct bfd_link_info *info)
4316 {
4317   if (!info->relocatable)
4318     {
4319       struct elf_link_hash_entry *h;
4320
4321       /* Force a PT_GNU_STACK segment to be created.  */
4322       if (! elf_tdata (output_bfd)->stack_flags)
4323         elf_tdata (output_bfd)->stack_flags = PF_R | PF_W | PF_X;
4324
4325       /* Define __stacksize if it's not defined yet.  */
4326       h = elf_link_hash_lookup (elf_hash_table (info), "__stacksize",
4327                                 FALSE, FALSE, FALSE);
4328       if (! h || h->root.type != bfd_link_hash_defined
4329           || h->type != STT_OBJECT
4330           || !h->def_regular)
4331         {
4332           struct bfd_link_hash_entry *bh = NULL;
4333
4334           if (!(_bfd_generic_link_add_one_symbol
4335                 (info, output_bfd, "__stacksize",
4336                  BSF_GLOBAL, bfd_abs_section_ptr, DEFAULT_STACK_SIZE,
4337                  (const char *) NULL, FALSE,
4338                  get_elf_backend_data (output_bfd)->collect, &bh)))
4339             return FALSE;
4340
4341           h = (struct elf_link_hash_entry *) bh;
4342           h->def_regular = 1;
4343           h->type = STT_OBJECT;
4344         }
4345     }
4346
4347   return TRUE;
4348 }
4349
4350 /* Check whether any of the relocations was optimized away, and
4351    subtract it from the relocation or fixup count.  */
4352 static bfd_boolean
4353 _bfinfdpic_check_discarded_relocs (bfd *abfd, asection *sec,
4354                                   struct bfd_link_info *info,
4355
4356                                   bfd_boolean *changed)
4357 {
4358   Elf_Internal_Shdr *symtab_hdr;
4359   struct elf_link_hash_entry **sym_hashes, **sym_hashes_end;
4360   Elf_Internal_Rela *rel, *erel;
4361
4362   if ((sec->flags & SEC_RELOC) == 0
4363       || sec->reloc_count == 0)
4364     return TRUE;
4365
4366   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
4367   sym_hashes = elf_sym_hashes (abfd);
4368   sym_hashes_end = sym_hashes + symtab_hdr->sh_size/sizeof(Elf32_External_Sym);
4369   if (!elf_bad_symtab (abfd))
4370     sym_hashes_end -= symtab_hdr->sh_info;
4371
4372   rel = elf_section_data (sec)->relocs;
4373
4374   /* Now examine each relocation.  */
4375   for (erel = rel + sec->reloc_count; rel < erel; rel++)
4376     {
4377       struct elf_link_hash_entry *h;
4378       unsigned long r_symndx;
4379       struct bfinfdpic_relocs_info *picrel;
4380       struct _bfinfdpic_dynamic_got_info *dinfo;
4381
4382       if (ELF32_R_TYPE (rel->r_info) != R_BFIN_BYTE4_DATA
4383           && ELF32_R_TYPE (rel->r_info) != R_BFIN_FUNCDESC)
4384         continue;
4385
4386       if (_bfd_elf_section_offset (sec->output_section->owner,
4387                                    info, sec, rel->r_offset)
4388           != (bfd_vma)-1)
4389         continue;
4390
4391       r_symndx = ELF32_R_SYM (rel->r_info);
4392       if (r_symndx < symtab_hdr->sh_info)
4393         h = NULL;
4394       else
4395         {
4396           h = sym_hashes[r_symndx - symtab_hdr->sh_info];
4397           while (h->root.type == bfd_link_hash_indirect
4398                  || h->root.type == bfd_link_hash_warning)
4399             h = (struct elf_link_hash_entry *)h->root.u.i.link;
4400         }
4401
4402       if (h != NULL)
4403         picrel = bfinfdpic_relocs_info_for_global (bfinfdpic_relocs_info (info),
4404                                                   abfd, h,
4405                                                   rel->r_addend, NO_INSERT);
4406       else
4407         picrel = bfinfdpic_relocs_info_for_local (bfinfdpic_relocs_info (info),
4408                                                  abfd, r_symndx,
4409                                                  rel->r_addend, NO_INSERT);
4410
4411       if (! picrel)
4412         return FALSE;
4413
4414       *changed = TRUE;
4415       dinfo = bfinfdpic_dynamic_got_plt_info (info);
4416
4417       _bfinfdpic_count_relocs_fixups (picrel, dinfo, TRUE);
4418       if (ELF32_R_TYPE (rel->r_info) == R_BFIN_BYTE4_DATA)
4419         picrel->relocs32--;
4420       else /* we know (ELF32_R_TYPE (rel->r_info) == R_BFIN_FUNCDESC) */
4421         picrel->relocsfd--;
4422       _bfinfdpic_count_relocs_fixups (picrel, dinfo, FALSE);
4423     }
4424
4425   return TRUE;
4426 }
4427
4428 static bfd_boolean
4429 bfinfdpic_elf_discard_info (bfd *ibfd,
4430                            struct elf_reloc_cookie *cookie ATTRIBUTE_UNUSED,
4431                            struct bfd_link_info *info)
4432 {
4433   bfd_boolean changed = FALSE;
4434   asection *s;
4435   bfd *obfd = NULL;
4436
4437   /* Account for relaxation of .eh_frame section.  */
4438   for (s = ibfd->sections; s; s = s->next)
4439     if (s->sec_info_type == ELF_INFO_TYPE_EH_FRAME)
4440       {
4441         if (!_bfinfdpic_check_discarded_relocs (ibfd, s, info, &changed))
4442           return FALSE;
4443         obfd = s->output_section->owner;
4444       }
4445
4446   if (changed)
4447     {
4448       struct _bfinfdpic_dynamic_got_plt_info gpinfo;
4449
4450       memset (&gpinfo, 0, sizeof (gpinfo));
4451       memcpy (&gpinfo.g, bfinfdpic_dynamic_got_plt_info (info),
4452               sizeof (gpinfo.g));
4453
4454       /* Clear GOT and PLT assignments.  */
4455       htab_traverse (bfinfdpic_relocs_info (info),
4456                      _bfinfdpic_reset_got_plt_entries,
4457                      NULL);
4458
4459       if (!_bfinfdpic_size_got_plt (obfd, &gpinfo))
4460         return FALSE;
4461     }
4462
4463   return TRUE;
4464 }
4465
4466 static bfd_boolean
4467 elf32_bfinfdpic_modify_program_headers (bfd *output_bfd,
4468                                         struct bfd_link_info *info)
4469 {
4470   struct elf_obj_tdata *tdata = elf_tdata (output_bfd);
4471   struct elf_segment_map *m;
4472   Elf_Internal_Phdr *p;
4473
4474   /* objcopy and strip preserve what's already there using
4475      elf32_bfinfdpic_copy_private_bfd_data ().  */
4476   if (! info)
4477     return TRUE;
4478
4479   for (p = tdata->phdr, m = tdata->segment_map; m != NULL; m = m->next, p++)
4480     if (m->p_type == PT_GNU_STACK)
4481       break;
4482
4483   if (m)
4484     {
4485       struct elf_link_hash_entry *h;
4486
4487       /* Obtain the pointer to the __stacksize symbol.  */
4488       h = elf_link_hash_lookup (elf_hash_table (info), "__stacksize",
4489                                 FALSE, FALSE, FALSE);
4490       if (h)
4491         {
4492           while (h->root.type == bfd_link_hash_indirect
4493                  || h->root.type == bfd_link_hash_warning)
4494             h = (struct elf_link_hash_entry *) h->root.u.i.link;
4495           BFD_ASSERT (h->root.type == bfd_link_hash_defined);
4496         }
4497
4498       /* Set the header p_memsz from the symbol value.  We
4499          intentionally ignore the symbol section.  */
4500       if (h && h->root.type == bfd_link_hash_defined)
4501         p->p_memsz = h->root.u.def.value;
4502       else
4503         p->p_memsz = DEFAULT_STACK_SIZE;
4504
4505       p->p_align = 8;
4506     }
4507
4508   return TRUE;
4509 }
4510
4511 static bfd_boolean
4512 elf32_bfinfdpic_finish_dynamic_sections (bfd *output_bfd,
4513                                         struct bfd_link_info *info)
4514 {
4515   bfd *dynobj;
4516   asection *sdyn;
4517
4518   dynobj = elf_hash_table (info)->dynobj;
4519
4520   if (bfinfdpic_got_section (info))
4521     {
4522       BFD_ASSERT (bfinfdpic_gotrel_section (info)->size
4523                   == (bfinfdpic_gotrel_section (info)->reloc_count
4524                       * sizeof (Elf32_External_Rel)));
4525
4526       if (bfinfdpic_gotfixup_section (info))
4527         {
4528           struct elf_link_hash_entry *hgot = elf_hash_table (info)->hgot;
4529           bfd_vma got_value = hgot->root.u.def.value
4530             + hgot->root.u.def.section->output_section->vma
4531             + hgot->root.u.def.section->output_offset;
4532
4533           _bfinfdpic_add_rofixup (output_bfd, bfinfdpic_gotfixup_section (info),
4534                                  got_value, 0);
4535
4536           if (bfinfdpic_gotfixup_section (info)->size
4537               != (bfinfdpic_gotfixup_section (info)->reloc_count * 4))
4538             {
4539               (*_bfd_error_handler)
4540                 ("LINKER BUG: .rofixup section size mismatch");
4541               return FALSE;
4542             }
4543         }
4544     }
4545   if (elf_hash_table (info)->dynamic_sections_created)
4546     {
4547       BFD_ASSERT (bfinfdpic_pltrel_section (info)->size
4548                   == (bfinfdpic_pltrel_section (info)->reloc_count
4549                       * sizeof (Elf32_External_Rel)));
4550     }
4551
4552   sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
4553
4554   if (elf_hash_table (info)->dynamic_sections_created)
4555     {
4556       Elf32_External_Dyn * dyncon;
4557       Elf32_External_Dyn * dynconend;
4558
4559       BFD_ASSERT (sdyn != NULL);
4560
4561       dyncon = (Elf32_External_Dyn *) sdyn->contents;
4562       dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
4563
4564       for (; dyncon < dynconend; dyncon++)
4565         {
4566           Elf_Internal_Dyn dyn;
4567
4568           bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
4569
4570           switch (dyn.d_tag)
4571             {
4572             default:
4573               break;
4574
4575             case DT_PLTGOT:
4576               dyn.d_un.d_ptr = bfinfdpic_got_section (info)->output_section->vma
4577                 + bfinfdpic_got_section (info)->output_offset
4578                 + bfinfdpic_got_initial_offset (info);
4579               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4580               break;
4581
4582             case DT_JMPREL:
4583               dyn.d_un.d_ptr = bfinfdpic_pltrel_section (info)
4584                 ->output_section->vma
4585                 + bfinfdpic_pltrel_section (info)->output_offset;
4586               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4587               break;
4588
4589             case DT_PLTRELSZ:
4590               dyn.d_un.d_val = bfinfdpic_pltrel_section (info)->size;
4591               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4592               break;
4593             }
4594         }
4595     }
4596
4597   return TRUE;
4598 }
4599
4600 /* Adjust a symbol defined by a dynamic object and referenced by a
4601    regular object.  */
4602
4603 static bfd_boolean
4604 elf32_bfinfdpic_adjust_dynamic_symbol
4605 (struct bfd_link_info *info,
4606  struct elf_link_hash_entry *h)
4607 {
4608   bfd * dynobj;
4609
4610   dynobj = elf_hash_table (info)->dynobj;
4611
4612   /* Make sure we know what is going on here.  */
4613   BFD_ASSERT (dynobj != NULL
4614               && (h->u.weakdef != NULL
4615                   || (h->def_dynamic
4616                       && h->ref_regular
4617                       && !h->def_regular)));
4618
4619   /* If this is a weak symbol, and there is a real definition, the
4620      processor independent code will have arranged for us to see the
4621      real definition first, and we can just use the same value.  */
4622   if (h->u.weakdef != NULL)
4623     {
4624       BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
4625                   || h->u.weakdef->root.type == bfd_link_hash_defweak);
4626       h->root.u.def.section = h->u.weakdef->root.u.def.section;
4627       h->root.u.def.value = h->u.weakdef->root.u.def.value;
4628     }
4629
4630   return TRUE;
4631 }
4632
4633 /* Perform any actions needed for dynamic symbols.  */
4634
4635 static bfd_boolean
4636 elf32_bfinfdpic_finish_dynamic_symbol
4637 (bfd *output_bfd ATTRIBUTE_UNUSED,
4638  struct bfd_link_info *info ATTRIBUTE_UNUSED,
4639  struct elf_link_hash_entry *h ATTRIBUTE_UNUSED,
4640  Elf_Internal_Sym *sym ATTRIBUTE_UNUSED)
4641 {
4642   return TRUE;
4643 }
4644
4645 /* Decide whether to attempt to turn absptr or lsda encodings in
4646    shared libraries into pcrel within the given input section.  */
4647
4648 static bfd_boolean
4649 bfinfdpic_elf_use_relative_eh_frame
4650 (bfd *input_bfd ATTRIBUTE_UNUSED,
4651  struct bfd_link_info *info ATTRIBUTE_UNUSED,
4652  asection *eh_frame_section ATTRIBUTE_UNUSED)
4653 {
4654   /* We can't use PC-relative encodings in FDPIC binaries, in general.  */
4655   return FALSE;
4656 }
4657
4658 /* Adjust the contents of an eh_frame_hdr section before they're output.  */
4659
4660 static bfd_byte
4661 bfinfdpic_elf_encode_eh_address (bfd *abfd,
4662                                 struct bfd_link_info *info,
4663                                 asection *osec, bfd_vma offset,
4664                                 asection *loc_sec, bfd_vma loc_offset,
4665                                 bfd_vma *encoded)
4666 {
4667   struct elf_link_hash_entry *h;
4668
4669   h = elf_hash_table (info)->hgot;
4670   BFD_ASSERT (h && h->root.type == bfd_link_hash_defined);
4671
4672   if (! h || (_bfinfdpic_osec_to_segment (abfd, osec)
4673               == _bfinfdpic_osec_to_segment (abfd, loc_sec->output_section)))
4674     return _bfd_elf_encode_eh_address (abfd, info, osec, offset,
4675                                        loc_sec, loc_offset, encoded);
4676
4677   BFD_ASSERT (_bfinfdpic_osec_to_segment (abfd, osec)
4678               == (_bfinfdpic_osec_to_segment
4679                   (abfd, h->root.u.def.section->output_section)));
4680
4681   *encoded = osec->vma + offset
4682     - (h->root.u.def.value
4683        + h->root.u.def.section->output_section->vma
4684        + h->root.u.def.section->output_offset);
4685
4686   return DW_EH_PE_datarel | DW_EH_PE_sdata4;
4687 }
4688
4689
4690
4691 /* Look through the relocs for a section during the first phase.
4692
4693    Besides handling virtual table relocs for gc, we have to deal with
4694    all sorts of PIC-related relocations.  We describe below the
4695    general plan on how to handle such relocations, even though we only
4696    collect information at this point, storing them in hash tables for
4697    perusal of later passes.
4698
4699    32 relocations are propagated to the linker output when creating
4700    position-independent output.  LO16 and HI16 relocations are not
4701    supposed to be encountered in this case.
4702
4703    LABEL16 should always be resolvable by the linker, since it's only
4704    used by branches.
4705
4706    LABEL24, on the other hand, is used by calls.  If it turns out that
4707    the target of a call is a dynamic symbol, a PLT entry must be
4708    created for it, which triggers the creation of a private function
4709    descriptor and, unless lazy binding is disabled, a lazy PLT entry.
4710
4711    GPREL relocations require the referenced symbol to be in the same
4712    segment as _gp, but this can only be checked later.
4713
4714    All GOT, GOTOFF and FUNCDESC relocations require a .got section to
4715    exist.  LABEL24 might as well, since it may require a PLT entry,
4716    that will require a got.
4717
4718    Non-FUNCDESC GOT relocations require a GOT entry to be created
4719    regardless of whether the symbol is dynamic.  However, since a
4720    global symbol that turns out to not be exported may have the same
4721    address of a non-dynamic symbol, we don't assign GOT entries at
4722    this point, such that we can share them in this case.  A relocation
4723    for the GOT entry always has to be created, be it to offset a
4724    private symbol by the section load address, be it to get the symbol
4725    resolved dynamically.
4726
4727    FUNCDESC GOT relocations require a GOT entry to be created, and
4728    handled as if a FUNCDESC relocation was applied to the GOT entry in
4729    an object file.
4730
4731    FUNCDESC relocations referencing a symbol that turns out to NOT be
4732    dynamic cause a private function descriptor to be created.  The
4733    FUNCDESC relocation then decays to a 32 relocation that points at
4734    the private descriptor.  If the symbol is dynamic, the FUNCDESC
4735    relocation is propagated to the linker output, such that the
4736    dynamic linker creates the canonical descriptor, pointing to the
4737    dynamically-resolved definition of the function.
4738
4739    Non-FUNCDESC GOTOFF relocations must always refer to non-dynamic
4740    symbols that are assigned to the same segment as the GOT, but we
4741    can only check this later, after we know the complete set of
4742    symbols defined and/or exported.
4743
4744    FUNCDESC GOTOFF relocations require a function descriptor to be
4745    created and, unless lazy binding is disabled or the symbol is not
4746    dynamic, a lazy PLT entry.  Since we can't tell at this point
4747    whether a symbol is going to be dynamic, we have to decide later
4748    whether to create a lazy PLT entry or bind the descriptor directly
4749    to the private function.
4750
4751    FUNCDESC_VALUE relocations are not supposed to be present in object
4752    files, but they may very well be simply propagated to the linker
4753    output, since they have no side effect.
4754
4755
4756    A function descriptor always requires a FUNCDESC_VALUE relocation.
4757    Whether it's in .plt.rel or not depends on whether lazy binding is
4758    enabled and on whether the referenced symbol is dynamic.
4759
4760    The existence of a lazy PLT requires the resolverStub lazy PLT
4761    entry to be present.
4762
4763
4764    As for assignment of GOT, PLT and lazy PLT entries, and private
4765    descriptors, we might do them all sequentially, but we can do
4766    better than that.  For example, we can place GOT entries and
4767    private function descriptors referenced using 12-bit operands
4768    closer to the PIC register value, such that these relocations don't
4769    overflow.  Those that are only referenced with LO16 relocations
4770    could come next, but we may as well place PLT-required function
4771    descriptors in the 12-bit range to make them shorter.  Symbols
4772    referenced with LO16/HI16 may come next, but we may place
4773    additional function descriptors in the 16-bit range if we can
4774    reliably tell that we've already placed entries that are ever
4775    referenced with only LO16.  PLT entries are therefore generated as
4776    small as possible, while not introducing relocation overflows in
4777    GOT or FUNCDESC_GOTOFF relocations.  Lazy PLT entries could be
4778    generated before or after PLT entries, but not intermingled with
4779    them, such that we can have more lazy PLT entries in range for a
4780    branch to the resolverStub.  The resolverStub should be emitted at
4781    the most distant location from the first lazy PLT entry such that
4782    it's still in range for a branch, or closer, if there isn't a need
4783    for so many lazy PLT entries.  Additional lazy PLT entries may be
4784    emitted after the resolverStub, as long as branches are still in
4785    range.  If the branch goes out of range, longer lazy PLT entries
4786    are emitted.
4787
4788    We could further optimize PLT and lazy PLT entries by giving them
4789    priority in assignment to closer-to-gr17 locations depending on the
4790    number of occurrences of references to them (assuming a function
4791    that's called more often is more important for performance, so its
4792    PLT entry should be faster), or taking hints from the compiler.
4793    Given infinite time and money... :-)  */
4794
4795 static bfd_boolean
4796 bfinfdpic_check_relocs (bfd *abfd, struct bfd_link_info *info,
4797                         asection *sec, const Elf_Internal_Rela *relocs)
4798 {
4799   Elf_Internal_Shdr *symtab_hdr;
4800   struct elf_link_hash_entry **sym_hashes;
4801   const Elf_Internal_Rela *rel;
4802   const Elf_Internal_Rela *rel_end;
4803   bfd *dynobj;
4804   struct bfinfdpic_relocs_info *picrel;
4805
4806   if (info->relocatable)
4807     return TRUE;
4808
4809   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
4810   sym_hashes = elf_sym_hashes (abfd);
4811
4812   dynobj = elf_hash_table (info)->dynobj;
4813   rel_end = relocs + sec->reloc_count;
4814   for (rel = relocs; rel < rel_end; rel++)
4815     {
4816       struct elf_link_hash_entry *h;
4817       unsigned long r_symndx;
4818
4819       r_symndx = ELF32_R_SYM (rel->r_info);
4820       if (r_symndx < symtab_hdr->sh_info)
4821         h = NULL;
4822       else
4823         h = sym_hashes[r_symndx - symtab_hdr->sh_info];
4824
4825       switch (ELF32_R_TYPE (rel->r_info))
4826         {
4827         case R_BFIN_GOT17M4:
4828         case R_BFIN_GOTHI:
4829         case R_BFIN_GOTLO:
4830         case R_BFIN_FUNCDESC_GOT17M4:
4831         case R_BFIN_FUNCDESC_GOTHI:
4832         case R_BFIN_FUNCDESC_GOTLO:
4833         case R_BFIN_GOTOFF17M4:
4834         case R_BFIN_GOTOFFHI:
4835         case R_BFIN_GOTOFFLO:
4836         case R_BFIN_FUNCDESC_GOTOFF17M4:
4837         case R_BFIN_FUNCDESC_GOTOFFHI:
4838         case R_BFIN_FUNCDESC_GOTOFFLO:
4839         case R_BFIN_FUNCDESC:
4840         case R_BFIN_FUNCDESC_VALUE:
4841           if (! IS_FDPIC (abfd))
4842             goto bad_reloc;
4843           /* Fall through.  */
4844         case R_BFIN_PCREL24:
4845         case R_BFIN_PCREL24_JUMP_L:
4846         case R_BFIN_BYTE4_DATA:
4847           if (IS_FDPIC (abfd) && ! dynobj)
4848             {
4849               elf_hash_table (info)->dynobj = dynobj = abfd;
4850               if (! _bfin_create_got_section (abfd, info))
4851                 return FALSE;
4852             }
4853           if (! IS_FDPIC (abfd))
4854             {
4855               picrel = NULL;
4856               break;
4857             }
4858           if (h != NULL)
4859             {
4860               if (h->dynindx == -1)
4861                 switch (ELF_ST_VISIBILITY (h->other))
4862                   {
4863                   case STV_INTERNAL:
4864                   case STV_HIDDEN:
4865                     break;
4866                   default:
4867                     bfd_elf_link_record_dynamic_symbol (info, h);
4868                     break;
4869                   }
4870               picrel
4871                 = bfinfdpic_relocs_info_for_global (bfinfdpic_relocs_info (info),
4872                                                    abfd, h,
4873                                                    rel->r_addend, INSERT);
4874             }
4875           else
4876             picrel = bfinfdpic_relocs_info_for_local (bfinfdpic_relocs_info
4877                                                      (info), abfd, r_symndx,
4878                                                      rel->r_addend, INSERT);
4879           if (! picrel)
4880             return FALSE;
4881           break;
4882
4883         default:
4884           picrel = NULL;
4885           break;
4886         }
4887
4888       switch (ELF32_R_TYPE (rel->r_info))
4889         {
4890         case R_BFIN_PCREL24:
4891         case R_BFIN_PCREL24_JUMP_L:
4892           if (IS_FDPIC (abfd))
4893             picrel->call++;
4894           break;
4895
4896         case R_BFIN_FUNCDESC_VALUE:
4897           picrel->relocsfdv++;
4898           if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC)
4899             picrel->relocs32--;
4900           /* Fall through.  */
4901
4902         case R_BFIN_BYTE4_DATA:
4903           if (! IS_FDPIC (abfd))
4904             break;
4905
4906           picrel->sym++;
4907           if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC)
4908             picrel->relocs32++;
4909           break;
4910
4911         case R_BFIN_GOT17M4:
4912           picrel->got17m4++;
4913           break;
4914
4915         case R_BFIN_GOTHI:
4916         case R_BFIN_GOTLO:
4917           picrel->gothilo++;
4918           break;
4919
4920         case R_BFIN_FUNCDESC_GOT17M4:
4921           picrel->fdgot17m4++;
4922           break;
4923
4924         case R_BFIN_FUNCDESC_GOTHI:
4925         case R_BFIN_FUNCDESC_GOTLO:
4926           picrel->fdgothilo++;
4927           break;
4928
4929         case R_BFIN_GOTOFF17M4:
4930         case R_BFIN_GOTOFFHI:
4931         case R_BFIN_GOTOFFLO:
4932           picrel->gotoff++;
4933           break;
4934
4935         case R_BFIN_FUNCDESC_GOTOFF17M4:
4936           picrel->fdgoff17m4++;
4937           break;
4938
4939         case R_BFIN_FUNCDESC_GOTOFFHI:
4940         case R_BFIN_FUNCDESC_GOTOFFLO:
4941           picrel->fdgoffhilo++;
4942           break;
4943
4944         case R_BFIN_FUNCDESC:
4945           picrel->fd++;
4946           picrel->relocsfd++;
4947           break;
4948
4949         /* This relocation describes the C++ object vtable hierarchy.
4950            Reconstruct it for later use during GC.  */
4951         case R_BFIN_GNU_VTINHERIT:
4952           if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
4953             return FALSE;
4954           break;
4955
4956         /* This relocation describes which C++ vtable entries are actually
4957            used.  Record for later use during GC.  */
4958         case R_BFIN_GNU_VTENTRY:
4959           BFD_ASSERT (h != NULL);
4960           if (h != NULL
4961               && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
4962             return FALSE;
4963           break;
4964
4965         case R_BFIN_HUIMM16:
4966         case R_BFIN_LUIMM16:
4967         case R_BFIN_PCREL12_JUMP_S:
4968         case R_BFIN_PCREL10:
4969           break;
4970
4971         default:
4972         bad_reloc:
4973           (*_bfd_error_handler)
4974             (_("%B: unsupported relocation type %i"),
4975              abfd, ELF32_R_TYPE (rel->r_info));
4976           return FALSE;
4977         }
4978     }
4979
4980   return TRUE;
4981 }
4982
4983 /* Set the right machine number for a Blackfin ELF file.  */
4984
4985 static bfd_boolean
4986 elf32_bfin_object_p (bfd *abfd)
4987 {
4988   bfd_default_set_arch_mach (abfd, bfd_arch_bfin, 0);
4989   return (((elf_elfheader (abfd)->e_flags & EF_BFIN_FDPIC) != 0)
4990           == (IS_FDPIC (abfd)));
4991 }
4992
4993 static bfd_boolean
4994 elf32_bfin_set_private_flags (bfd * abfd, flagword flags)
4995 {
4996   elf_elfheader (abfd)->e_flags = flags;
4997   elf_flags_init (abfd) = TRUE;
4998   return TRUE;
4999 }
5000
5001 /* Copy backend specific data from one object module to another.  */
5002
5003 static bfd_boolean
5004 bfin_elf_copy_private_bfd_data (bfd *ibfd, bfd *obfd)
5005 {
5006   if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
5007       || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
5008     return TRUE;
5009
5010   BFD_ASSERT (!elf_flags_init (obfd)
5011               || elf_elfheader (obfd)->e_flags == elf_elfheader (ibfd)->e_flags);
5012
5013   elf_elfheader (obfd)->e_flags = elf_elfheader (ibfd)->e_flags;
5014   elf_flags_init (obfd) = TRUE;
5015
5016   /* Copy object attributes.  */
5017   _bfd_elf_copy_obj_attributes (ibfd, obfd);
5018
5019   return TRUE;
5020 }
5021
5022 static bfd_boolean
5023 elf32_bfinfdpic_copy_private_bfd_data (bfd *ibfd, bfd *obfd)
5024 {
5025   unsigned i;
5026
5027   if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
5028       || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
5029     return TRUE;
5030
5031   if (! bfin_elf_copy_private_bfd_data (ibfd, obfd))
5032     return FALSE;
5033
5034   if (! elf_tdata (ibfd) || ! elf_tdata (ibfd)->phdr
5035       || ! elf_tdata (obfd) || ! elf_tdata (obfd)->phdr)
5036     return TRUE;
5037
5038   /* Copy the stack size.  */
5039   for (i = 0; i < elf_elfheader (ibfd)->e_phnum; i++)
5040     if (elf_tdata (ibfd)->phdr[i].p_type == PT_GNU_STACK)
5041       {
5042         Elf_Internal_Phdr *iphdr = &elf_tdata (ibfd)->phdr[i];
5043
5044         for (i = 0; i < elf_elfheader (obfd)->e_phnum; i++)
5045           if (elf_tdata (obfd)->phdr[i].p_type == PT_GNU_STACK)
5046             {
5047               memcpy (&elf_tdata (obfd)->phdr[i], iphdr, sizeof (*iphdr));
5048
5049               /* Rewrite the phdrs, since we're only called after they
5050                  were first written.  */
5051               if (bfd_seek (obfd, (bfd_signed_vma) get_elf_backend_data (obfd)
5052                             ->s->sizeof_ehdr, SEEK_SET) != 0
5053                   || get_elf_backend_data (obfd)->s
5054                   ->write_out_phdrs (obfd, elf_tdata (obfd)->phdr,
5055                                      elf_elfheader (obfd)->e_phnum) != 0)
5056                 return FALSE;
5057               break;
5058             }
5059
5060         break;
5061       }
5062
5063   return TRUE;
5064 }
5065
5066
5067 /* Display the flags field.  */
5068 static bfd_boolean
5069 elf32_bfin_print_private_bfd_data (bfd * abfd, PTR ptr)
5070 {
5071   FILE *file = (FILE *) ptr;
5072   flagword flags;
5073
5074   BFD_ASSERT (abfd != NULL && ptr != NULL);
5075
5076   /* Print normal ELF private data.  */
5077   _bfd_elf_print_private_bfd_data (abfd, ptr);
5078
5079   flags = elf_elfheader (abfd)->e_flags;
5080
5081   /* xgettext:c-format */
5082   fprintf (file, _("private flags = %lx:"), elf_elfheader (abfd)->e_flags);
5083
5084   if (flags & EF_BFIN_PIC)
5085     fprintf (file, " -fpic");
5086
5087   if (flags & EF_BFIN_FDPIC)
5088     fprintf (file, " -mfdpic");
5089
5090   fputc ('\n', file);
5091
5092   return TRUE;
5093 }
5094
5095 /* Merge backend specific data from an object file to the output
5096    object file when linking.  */
5097
5098 static bfd_boolean
5099 elf32_bfin_merge_private_bfd_data (bfd *ibfd, bfd *obfd)
5100 {
5101   flagword old_flags, new_flags;
5102   bfd_boolean error = FALSE;
5103
5104   new_flags = elf_elfheader (ibfd)->e_flags;
5105   old_flags = elf_elfheader (obfd)->e_flags;
5106
5107   if (new_flags & EF_BFIN_FDPIC)
5108     new_flags &= ~EF_BFIN_PIC;
5109
5110 #ifdef DEBUG
5111   (*_bfd_error_handler) ("old_flags = 0x%.8lx, new_flags = 0x%.8lx, init = %s, filename = %s",
5112                          old_flags, new_flags, elf_flags_init (obfd) ? "yes" : "no",
5113                          bfd_get_filename (ibfd));
5114 #endif
5115
5116   if (!elf_flags_init (obfd))                   /* First call, no flags set.  */
5117     {
5118       elf_flags_init (obfd) = TRUE;
5119       elf_elfheader (obfd)->e_flags = new_flags;
5120     }
5121
5122   if (((new_flags & EF_BFIN_FDPIC) == 0) != (! IS_FDPIC (obfd)))
5123     {
5124       error = TRUE;
5125       if (IS_FDPIC (obfd))
5126         (*_bfd_error_handler)
5127           (_("%s: cannot link non-fdpic object file into fdpic executable"),
5128            bfd_get_filename (ibfd));
5129       else
5130         (*_bfd_error_handler)
5131           (_("%s: cannot link fdpic object file into non-fdpic executable"),
5132            bfd_get_filename (ibfd));
5133     }
5134
5135   if (error)
5136     bfd_set_error (bfd_error_bad_value);
5137
5138   return !error;
5139 }
5140 \f
5141 /* bfin ELF linker hash entry.  */
5142
5143 struct bfin_link_hash_entry
5144 {
5145   struct elf_link_hash_entry root;
5146
5147   /* Number of PC relative relocs copied for this symbol.  */
5148   struct bfin_pcrel_relocs_copied *pcrel_relocs_copied;
5149 };
5150
5151 /* bfin ELF linker hash table.  */
5152
5153 struct bfin_link_hash_table
5154 {
5155   struct elf_link_hash_table root;
5156
5157   /* Small local sym cache.  */
5158   struct sym_cache sym_cache;
5159 };
5160
5161 #define bfin_hash_entry(ent) ((struct bfin_link_hash_entry *) (ent))
5162
5163 static struct bfd_hash_entry *
5164 bfin_link_hash_newfunc (struct bfd_hash_entry *entry,
5165                         struct bfd_hash_table *table, const char *string)
5166 {
5167   struct bfd_hash_entry *ret = entry;
5168
5169   /* Allocate the structure if it has not already been allocated by a
5170      subclass.  */
5171   if (ret == NULL)
5172     ret = bfd_hash_allocate (table, sizeof (struct bfin_link_hash_entry));
5173   if (ret == NULL)
5174     return ret;
5175
5176   /* Call the allocation method of the superclass.  */
5177   ret = _bfd_elf_link_hash_newfunc (ret, table, string);
5178   if (ret != NULL)
5179     bfin_hash_entry (ret)->pcrel_relocs_copied = NULL;
5180
5181   return ret;
5182 }
5183
5184 /* Create an bfin ELF linker hash table.  */
5185
5186 static struct bfd_link_hash_table *
5187 bfin_link_hash_table_create (bfd * abfd)
5188 {
5189   struct bfin_link_hash_table *ret;
5190   bfd_size_type amt = sizeof (struct bfin_link_hash_table);
5191
5192   ret = bfd_zalloc (abfd, amt);
5193   if (ret == NULL)
5194     return NULL;
5195
5196   if (!_bfd_elf_link_hash_table_init (&ret->root, abfd,
5197                                       bfin_link_hash_newfunc,
5198                                       sizeof (struct elf_link_hash_entry)))
5199     {
5200       free (ret);
5201       return NULL;
5202     }
5203
5204   ret->sym_cache.abfd = NULL;
5205
5206   return &ret->root.root;
5207 }
5208
5209 /* The size in bytes of an entry in the procedure linkage table.  */
5210
5211 /* Finish up the dynamic sections.  */
5212
5213 static bfd_boolean
5214 bfin_finish_dynamic_sections (bfd * output_bfd ATTRIBUTE_UNUSED,
5215                                   struct bfd_link_info *info)
5216 {
5217   bfd *dynobj;
5218   asection *sdyn;
5219
5220   dynobj = elf_hash_table (info)->dynobj;
5221
5222   sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
5223
5224   if (elf_hash_table (info)->dynamic_sections_created)
5225     {
5226       Elf32_External_Dyn *dyncon, *dynconend;
5227
5228       BFD_ASSERT (sdyn != NULL);
5229
5230       dyncon = (Elf32_External_Dyn *) sdyn->contents;
5231       dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
5232       for (; dyncon < dynconend; dyncon++)
5233         {
5234           Elf_Internal_Dyn dyn;
5235
5236           bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
5237
5238         }
5239
5240     }
5241   return TRUE;
5242 }
5243
5244 /* Finish up dynamic symbol handling.  We set the contents of various
5245    dynamic sections here.  */
5246
5247 static bfd_boolean
5248 bfin_finish_dynamic_symbol (bfd * output_bfd,
5249                                 struct bfd_link_info *info,
5250                                 struct elf_link_hash_entry *h,
5251                                 Elf_Internal_Sym * sym)
5252 {
5253   bfd *dynobj;
5254
5255   dynobj = elf_hash_table (info)->dynobj;
5256
5257   if (h->got.offset != (bfd_vma) - 1)
5258     {
5259       asection *sgot;
5260       asection *srela;
5261       Elf_Internal_Rela rela;
5262       bfd_byte *loc;
5263
5264       /* This symbol has an entry in the global offset table.
5265          Set it up.  */
5266
5267       sgot = bfd_get_section_by_name (dynobj, ".got");
5268       srela = bfd_get_section_by_name (dynobj, ".rela.got");
5269       BFD_ASSERT (sgot != NULL && srela != NULL);
5270
5271       rela.r_offset = (sgot->output_section->vma
5272                        + sgot->output_offset
5273                        + (h->got.offset & ~(bfd_vma) 1));
5274
5275       /* If this is a -Bsymbolic link, and the symbol is defined
5276          locally, we just want to emit a RELATIVE reloc.  Likewise if
5277          the symbol was forced to be local because of a version file.
5278          The entry in the global offset table will already have been
5279          initialized in the relocate_section function.  */
5280       if (info->shared
5281           && (info->symbolic
5282               || h->dynindx == -1 || h->forced_local) && h->def_regular)
5283         {
5284           fprintf(stderr, "*** check this relocation %s\n", __FUNCTION__);
5285           rela.r_info = ELF32_R_INFO (0, R_BFIN_PCREL24);
5286           rela.r_addend = bfd_get_signed_32 (output_bfd,
5287                                              (sgot->contents
5288                                               +
5289                                               (h->got.
5290                                                offset & ~(bfd_vma) 1)));
5291         }
5292       else
5293         {
5294           bfd_put_32 (output_bfd, (bfd_vma) 0,
5295                       sgot->contents + (h->got.offset & ~(bfd_vma) 1));
5296           rela.r_info = ELF32_R_INFO (h->dynindx, R_BFIN_GOT);
5297           rela.r_addend = 0;
5298         }
5299
5300       loc = srela->contents;
5301       loc += srela->reloc_count++ * sizeof (Elf32_External_Rela);
5302       bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
5303     }
5304
5305   if (h->needs_copy)
5306     {
5307       BFD_ASSERT (0);
5308     }
5309   /* Mark _DYNAMIC and _GLOBAL_OFFSET_TABLE_ as absolute.  */
5310   if (strcmp (h->root.root.string, "__DYNAMIC") == 0
5311       || h == elf_hash_table (info)->hgot)
5312     sym->st_shndx = SHN_ABS;
5313
5314   return TRUE;
5315 }
5316
5317 /* Adjust a symbol defined by a dynamic object and referenced by a
5318    regular object.  The current definition is in some section of the
5319    dynamic object, but we're not including those sections.  We have to
5320    change the definition to something the rest of the link can
5321    understand.  */
5322
5323 static bfd_boolean
5324 bfin_adjust_dynamic_symbol (struct bfd_link_info *info,
5325                                 struct elf_link_hash_entry *h)
5326 {
5327   bfd *dynobj;
5328   asection *s;
5329   unsigned int power_of_two;
5330
5331   dynobj = elf_hash_table (info)->dynobj;
5332
5333   /* Make sure we know what is going on here.  */
5334   BFD_ASSERT (dynobj != NULL
5335               && (h->needs_plt
5336                   || h->u.weakdef != NULL
5337                   || (h->def_dynamic && h->ref_regular && !h->def_regular)));
5338
5339   /* If this is a function, put it in the procedure linkage table.  We
5340      will fill in the contents of the procedure linkage table later,
5341      when we know the address of the .got section.  */
5342   if (h->type == STT_FUNC || h->needs_plt)
5343     {
5344       BFD_ASSERT(0);
5345     }
5346
5347   /* If this is a weak symbol, and there is a real definition, the
5348      processor independent code will have arranged for us to see the
5349      real definition first, and we can just use the same value.  */
5350   if (h->u.weakdef != NULL)
5351     {
5352       BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
5353                   || h->u.weakdef->root.type == bfd_link_hash_defweak);
5354       h->root.u.def.section = h->u.weakdef->root.u.def.section;
5355       h->root.u.def.value = h->u.weakdef->root.u.def.value;
5356       return TRUE;
5357     }
5358
5359   /* This is a reference to a symbol defined by a dynamic object which
5360      is not a function.  */
5361
5362   /* If we are creating a shared library, we must presume that the
5363      only references to the symbol are via the global offset table.
5364      For such cases we need not do anything here; the relocations will
5365      be handled correctly by relocate_section.  */
5366   if (info->shared)
5367     return TRUE;
5368
5369   /* We must allocate the symbol in our .dynbss section, which will
5370      become part of the .bss section of the executable.  There will be
5371      an entry for this symbol in the .dynsym section.  The dynamic
5372      object will contain position independent code, so all references
5373      from the dynamic object to this symbol will go through the global
5374      offset table.  The dynamic linker will use the .dynsym entry to
5375      determine the address it must put in the global offset table, so
5376      both the dynamic object and the regular object will refer to the
5377      same memory location for the variable.  */
5378
5379   s = bfd_get_section_by_name (dynobj, ".dynbss");
5380   BFD_ASSERT (s != NULL);
5381
5382   /* We must generate a R_68K_COPY reloc to tell the dynamic linker to
5383      copy the initial value out of the dynamic object and into the
5384      runtime process image.  We need to remember the offset into the
5385      .rela.bss section we are going to use.  */
5386   if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
5387     {
5388       asection *srel;
5389
5390       srel = bfd_get_section_by_name (dynobj, ".rela.bss");
5391       BFD_ASSERT (srel != NULL);
5392       srel->size += sizeof (Elf32_External_Rela);
5393       h->needs_copy = 1;
5394     }
5395
5396   /* We need to figure out the alignment required for this symbol.  I
5397      have no idea how ELF linkers handle this.  */
5398   power_of_two = bfd_log2 (h->size);
5399   if (power_of_two > 3)
5400     power_of_two = 3;
5401
5402   /* Apply the required alignment.  */
5403   s->size = BFD_ALIGN (s->size, (bfd_size_type) (1 << power_of_two));
5404   if (power_of_two > bfd_get_section_alignment (dynobj, s))
5405     {
5406       if (!bfd_set_section_alignment (dynobj, s, power_of_two))
5407         return FALSE;
5408     }
5409
5410   /* Define the symbol as being at this point in the section.  */
5411   h->root.u.def.section = s;
5412   h->root.u.def.value = s->size;
5413
5414   /* Increment the section size to make room for the symbol.  */
5415   s->size += h->size;
5416
5417   return TRUE;
5418 }
5419
5420 /* The bfin linker needs to keep track of the number of relocs that it
5421    decides to copy in check_relocs for each symbol.  This is so that it
5422    can discard PC relative relocs if it doesn't need them when linking
5423    with -Bsymbolic.  We store the information in a field extending the
5424    regular ELF linker hash table.  */
5425
5426 /* This structure keeps track of the number of PC relative relocs we have
5427    copied for a given symbol.  */
5428
5429 struct bfin_pcrel_relocs_copied
5430 {
5431   /* Next section.  */
5432   struct bfin_pcrel_relocs_copied *next;
5433   /* A section in dynobj.  */
5434   asection *section;
5435   /* Number of relocs copied in this section.  */
5436   bfd_size_type count;
5437 };
5438
5439 /* This function is called via elf_link_hash_traverse if we are
5440    creating a shared object.  In the -Bsymbolic case it discards the
5441    space allocated to copy PC relative relocs against symbols which
5442    are defined in regular objects.  For the normal shared case, it
5443    discards space for pc-relative relocs that have become local due to
5444    symbol visibility changes.  We allocated space for them in the
5445    check_relocs routine, but we won't fill them in in the
5446    relocate_section routine.
5447
5448    We also check whether any of the remaining relocations apply
5449    against a readonly section, and set the DF_TEXTREL flag in this
5450    case.  */
5451
5452 static bfd_boolean
5453 bfin_discard_copies (struct elf_link_hash_entry *h, PTR inf)
5454 {
5455   struct bfd_link_info *info = (struct bfd_link_info *) inf;
5456   struct bfin_pcrel_relocs_copied *s;
5457
5458   if (h->root.type == bfd_link_hash_warning)
5459     h = (struct elf_link_hash_entry *) h->root.u.i.link;
5460
5461   if (!h->def_regular || (!info->symbolic && !h->forced_local))
5462     {
5463       if ((info->flags & DF_TEXTREL) == 0)
5464         {
5465           /* Look for relocations against read-only sections.  */
5466           for (s = bfin_hash_entry (h)->pcrel_relocs_copied;
5467                s != NULL; s = s->next)
5468             if ((s->section->flags & SEC_READONLY) != 0)
5469               {
5470                 info->flags |= DF_TEXTREL;
5471                 break;
5472               }
5473         }
5474
5475       return TRUE;
5476     }
5477
5478   for (s = bfin_hash_entry (h)->pcrel_relocs_copied;
5479        s != NULL; s = s->next)
5480     s->section->size -= s->count * sizeof (Elf32_External_Rela);
5481
5482   return TRUE;
5483 }
5484
5485 static bfd_boolean
5486 bfin_size_dynamic_sections (bfd * output_bfd ATTRIBUTE_UNUSED,
5487                                 struct bfd_link_info *info)
5488 {
5489   bfd *dynobj;
5490   asection *s;
5491   bfd_boolean relocs;
5492
5493   dynobj = elf_hash_table (info)->dynobj;
5494   BFD_ASSERT (dynobj != NULL);
5495
5496   if (elf_hash_table (info)->dynamic_sections_created)
5497     {
5498       /* Set the contents of the .interp section to the interpreter.  */
5499       if (info->executable)
5500         {
5501           s = bfd_get_section_by_name (dynobj, ".interp");
5502           BFD_ASSERT (s != NULL);
5503           s->size = sizeof ELF_DYNAMIC_INTERPRETER;
5504           s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
5505         }
5506     }
5507   else
5508     {
5509       /* We may have created entries in the .rela.got section.
5510          However, if we are not creating the dynamic sections, we will
5511          not actually use these entries.  Reset the size of .rela.got,
5512          which will cause it to get stripped from the output file
5513          below.  */
5514       s = bfd_get_section_by_name (dynobj, ".rela.got");
5515       if (s != NULL)
5516         s->size = 0;
5517     }
5518
5519   /* If this is a -Bsymbolic shared link, then we need to discard all
5520      PC relative relocs against symbols defined in a regular object.
5521      For the normal shared case we discard the PC relative relocs
5522      against symbols that have become local due to visibility changes.
5523      We allocated space for them in the check_relocs routine, but we
5524      will not fill them in in the relocate_section routine.  */
5525   if (info->shared)
5526     elf_link_hash_traverse (elf_hash_table (info),
5527                             bfin_discard_copies, (PTR) info);
5528
5529   /* The check_relocs and adjust_dynamic_symbol entry points have
5530      determined the sizes of the various dynamic sections.  Allocate
5531      memory for them.  */
5532   relocs = FALSE;
5533   for (s = dynobj->sections; s != NULL; s = s->next)
5534     {
5535       const char *name;
5536       bfd_boolean strip;
5537
5538       if ((s->flags & SEC_LINKER_CREATED) == 0)
5539         continue;
5540
5541       /* It's OK to base decisions on the section name, because none
5542          of the dynobj section names depend upon the input files.  */
5543       name = bfd_get_section_name (dynobj, s);
5544
5545       strip = FALSE;
5546
5547        if (CONST_STRNEQ (name, ".rela"))
5548         {
5549           if (s->size == 0)
5550             {
5551               /* If we don't need this section, strip it from the
5552                  output file.  This is mostly to handle .rela.bss and
5553                  .rela.plt.  We must create both sections in
5554                  create_dynamic_sections, because they must be created
5555                  before the linker maps input sections to output
5556                  sections.  The linker does that before
5557                  adjust_dynamic_symbol is called, and it is that
5558                  function which decides whether anything needs to go
5559                  into these sections.  */
5560               strip = TRUE;
5561             }
5562           else
5563             {
5564               relocs = TRUE;
5565
5566               /* We use the reloc_count field as a counter if we need
5567                  to copy relocs into the output file.  */
5568               s->reloc_count = 0;
5569             }
5570         }
5571       else if (! CONST_STRNEQ (name, ".got"))
5572         {
5573           /* It's not one of our sections, so don't allocate space.  */
5574           continue;
5575         }
5576
5577       if (strip)
5578         {
5579           s->flags |= SEC_EXCLUDE;
5580           continue;
5581         }
5582
5583       /* Allocate memory for the section contents.  */
5584       /* FIXME: This should be a call to bfd_alloc not bfd_zalloc.
5585          Unused entries should be reclaimed before the section's contents
5586          are written out, but at the moment this does not happen.  Thus in
5587          order to prevent writing out garbage, we initialise the section's
5588          contents to zero.  */
5589       s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->size);
5590       if (s->contents == NULL && s->size != 0)
5591         return FALSE;
5592     }
5593
5594   if (elf_hash_table (info)->dynamic_sections_created)
5595     {
5596       /* Add some entries to the .dynamic section.  We fill in the
5597          values later, in bfin_finish_dynamic_sections, but we
5598          must add the entries now so that we get the correct size for
5599          the .dynamic section.  The DT_DEBUG entry is filled in by the
5600          dynamic linker and used by the debugger.  */
5601 #define add_dynamic_entry(TAG, VAL) \
5602   _bfd_elf_add_dynamic_entry (info, TAG, VAL)
5603
5604       if (!info->shared)
5605         {
5606           if (!add_dynamic_entry (DT_DEBUG, 0))
5607             return FALSE;
5608         }
5609
5610
5611       if (relocs)
5612         {
5613           if (!add_dynamic_entry (DT_RELA, 0)
5614               || !add_dynamic_entry (DT_RELASZ, 0)
5615               || !add_dynamic_entry (DT_RELAENT,
5616                                      sizeof (Elf32_External_Rela)))
5617             return FALSE;
5618         }
5619
5620       if ((info->flags & DF_TEXTREL) != 0)
5621         {
5622           if (!add_dynamic_entry (DT_TEXTREL, 0))
5623             return FALSE;
5624         }
5625     }
5626 #undef add_dynamic_entry
5627
5628   return TRUE;
5629 }
5630 \f
5631 /* Given a .data section and a .emreloc in-memory section, store
5632    relocation information into the .emreloc section which can be
5633    used at runtime to relocate the section.  This is called by the
5634    linker when the --embedded-relocs switch is used.  This is called
5635    after the add_symbols entry point has been called for all the
5636    objects, and before the final_link entry point is called.  */
5637
5638 bfd_boolean bfd_bfin_elf32_create_embedded_relocs
5639   PARAMS ((bfd *, struct bfd_link_info *, asection *, asection *, char **));
5640
5641 bfd_boolean
5642 bfd_bfin_elf32_create_embedded_relocs (
5643      bfd *abfd,
5644      struct bfd_link_info *info,
5645      asection *datasec,
5646      asection *relsec,
5647      char **errmsg)
5648 {
5649   Elf_Internal_Shdr *symtab_hdr;
5650   Elf_Internal_Sym *isymbuf = NULL;
5651   Elf_Internal_Rela *internal_relocs = NULL;
5652   Elf_Internal_Rela *irel, *irelend;
5653   bfd_byte *p;
5654   bfd_size_type amt;
5655
5656   BFD_ASSERT (! info->relocatable);
5657
5658   *errmsg = NULL;
5659
5660   if (datasec->reloc_count == 0)
5661     return TRUE;
5662
5663   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
5664
5665   /* Get a copy of the native relocations.  */
5666   internal_relocs = (_bfd_elf_link_read_relocs
5667                      (abfd, datasec, (PTR) NULL, (Elf_Internal_Rela *) NULL,
5668                       info->keep_memory));
5669   if (internal_relocs == NULL)
5670     goto error_return;
5671
5672   amt = (bfd_size_type) datasec->reloc_count * 12;
5673   relsec->contents = (bfd_byte *) bfd_alloc (abfd, amt);
5674   if (relsec->contents == NULL)
5675     goto error_return;
5676
5677   p = relsec->contents;
5678
5679   irelend = internal_relocs + datasec->reloc_count;
5680   for (irel = internal_relocs; irel < irelend; irel++, p += 12)
5681     {
5682       asection *targetsec;
5683
5684       /* We are going to write a four byte longword into the runtime
5685        reloc section.  The longword will be the address in the data
5686        section which must be relocated.  It is followed by the name
5687        of the target section NUL-padded or truncated to 8
5688        characters.  */
5689
5690       /* We can only relocate absolute longword relocs at run time.  */
5691       if (ELF32_R_TYPE (irel->r_info) != (int) R_BFIN_BYTE4_DATA)
5692         {
5693           *errmsg = _("unsupported reloc type");
5694           bfd_set_error (bfd_error_bad_value);
5695           goto error_return;
5696         }
5697
5698       /* Get the target section referred to by the reloc.  */
5699       if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
5700         {
5701           /* A local symbol.  */
5702           Elf_Internal_Sym *isym;
5703
5704           /* Read this BFD's local symbols if we haven't done so already.  */
5705           if (isymbuf == NULL)
5706             {
5707               isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
5708               if (isymbuf == NULL)
5709                 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
5710                                                 symtab_hdr->sh_info, 0,
5711                                                 NULL, NULL, NULL);
5712               if (isymbuf == NULL)
5713                 goto error_return;
5714             }
5715
5716           isym = isymbuf + ELF32_R_SYM (irel->r_info);
5717           targetsec = bfd_section_from_elf_index (abfd, isym->st_shndx);
5718         }
5719       else
5720         {
5721           unsigned long indx;
5722           struct elf_link_hash_entry *h;
5723
5724           /* An external symbol.  */
5725           indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
5726           h = elf_sym_hashes (abfd)[indx];
5727           BFD_ASSERT (h != NULL);
5728           if (h->root.type == bfd_link_hash_defined
5729               || h->root.type == bfd_link_hash_defweak)
5730             targetsec = h->root.u.def.section;
5731           else
5732             targetsec = NULL;
5733         }
5734
5735       bfd_put_32 (abfd, irel->r_offset + datasec->output_offset, p);
5736       memset (p + 4, 0, 8);
5737       if (targetsec != NULL)
5738         strncpy ((char *) p + 4, targetsec->output_section->name, 8);
5739     }
5740
5741   if (isymbuf != NULL && symtab_hdr->contents != (unsigned char *) isymbuf)
5742     free (isymbuf);
5743   if (internal_relocs != NULL
5744       && elf_section_data (datasec)->relocs != internal_relocs)
5745     free (internal_relocs);
5746   return TRUE;
5747
5748 error_return:
5749   if (isymbuf != NULL && symtab_hdr->contents != (unsigned char *) isymbuf)
5750     free (isymbuf);
5751   if (internal_relocs != NULL
5752       && elf_section_data (datasec)->relocs != internal_relocs)
5753     free (internal_relocs);
5754   return FALSE;
5755 }
5756
5757 struct bfd_elf_special_section const elf32_bfin_special_sections[] =
5758 {
5759   { ".l1.text",         8, -2, SHT_PROGBITS, SHF_ALLOC + SHF_EXECINSTR },
5760   { ".l1.data",         8, -2, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE },
5761   { NULL,               0,  0, 0,            0 }
5762 };
5763
5764 \f
5765 #define TARGET_LITTLE_SYM               bfd_elf32_bfin_vec
5766 #define TARGET_LITTLE_NAME              "elf32-bfin"
5767 #define ELF_ARCH                        bfd_arch_bfin
5768 #define ELF_MACHINE_CODE                EM_BLACKFIN
5769 #define ELF_MAXPAGESIZE                 0x1000
5770 #define elf_symbol_leading_char         '_'
5771
5772 #define bfd_elf32_bfd_reloc_type_lookup bfin_bfd_reloc_type_lookup
5773 #define bfd_elf32_bfd_reloc_name_lookup \
5774                                         bfin_bfd_reloc_name_lookup
5775 #define elf_info_to_howto               bfin_info_to_howto
5776 #define elf_info_to_howto_rel           0
5777 #define elf_backend_object_p            elf32_bfin_object_p
5778
5779 #define bfd_elf32_bfd_is_local_label_name \
5780                                         bfin_is_local_label_name
5781 #define bfin_hash_table(p) \
5782   ((struct bfin_link_hash_table *) (p)->hash)
5783
5784
5785
5786 #define elf_backend_create_dynamic_sections \
5787                                         _bfd_elf_create_dynamic_sections
5788 #define bfd_elf32_bfd_link_hash_table_create \
5789                                         bfin_link_hash_table_create
5790 #define bfd_elf32_bfd_final_link        bfd_elf_gc_common_final_link
5791
5792 #define elf_backend_check_relocs        bfin_check_relocs
5793 #define elf_backend_adjust_dynamic_symbol \
5794                                         bfin_adjust_dynamic_symbol
5795 #define elf_backend_size_dynamic_sections \
5796                                         bfin_size_dynamic_sections
5797 #define elf_backend_relocate_section    bfin_relocate_section
5798 #define elf_backend_finish_dynamic_symbol \
5799                                         bfin_finish_dynamic_symbol
5800 #define elf_backend_finish_dynamic_sections \
5801                                         bfin_finish_dynamic_sections
5802 #define elf_backend_gc_mark_hook        bfin_gc_mark_hook
5803 #define elf_backend_gc_sweep_hook       bfin_gc_sweep_hook
5804 #define bfd_elf32_bfd_merge_private_bfd_data \
5805                                         elf32_bfin_merge_private_bfd_data
5806 #define bfd_elf32_bfd_set_private_flags \
5807                                         elf32_bfin_set_private_flags
5808 #define bfd_elf32_bfd_print_private_bfd_data \
5809                                         elf32_bfin_print_private_bfd_data
5810 #define elf_backend_reloc_type_class    elf32_bfin_reloc_type_class
5811 #define elf_backend_can_gc_sections 1
5812 #define elf_backend_special_sections    elf32_bfin_special_sections
5813 #define elf_backend_can_refcount 1
5814 #define elf_backend_want_got_plt 0
5815 #define elf_backend_plt_readonly 1
5816 #define elf_backend_want_plt_sym 0
5817 #define elf_backend_got_header_size     12
5818 #define elf_backend_rela_normal         1
5819
5820 #include "elf32-target.h"
5821
5822 #undef TARGET_LITTLE_SYM
5823 #define TARGET_LITTLE_SYM          bfd_elf32_bfinfdpic_vec
5824 #undef TARGET_LITTLE_NAME
5825 #define TARGET_LITTLE_NAME              "elf32-bfinfdpic"
5826 #undef  elf32_bed
5827 #define elf32_bed               elf32_bfinfdpic_bed
5828
5829 #undef elf_backend_gc_sweep_hook
5830 #define elf_backend_gc_sweep_hook       bfinfdpic_gc_sweep_hook
5831
5832 #undef elf_backend_got_header_size
5833 #define elf_backend_got_header_size     0
5834
5835 #undef elf_backend_relocate_section
5836 #define elf_backend_relocate_section    bfinfdpic_relocate_section
5837 #undef elf_backend_check_relocs
5838 #define elf_backend_check_relocs        bfinfdpic_check_relocs
5839
5840 #undef bfd_elf32_bfd_link_hash_table_create
5841 #define bfd_elf32_bfd_link_hash_table_create \
5842                 bfinfdpic_elf_link_hash_table_create
5843 #undef elf_backend_always_size_sections
5844 #define elf_backend_always_size_sections \
5845                 elf32_bfinfdpic_always_size_sections
5846 #undef elf_backend_modify_program_headers
5847 #define elf_backend_modify_program_headers \
5848                 elf32_bfinfdpic_modify_program_headers
5849 #undef bfd_elf32_bfd_copy_private_bfd_data
5850 #define bfd_elf32_bfd_copy_private_bfd_data \
5851                 elf32_bfinfdpic_copy_private_bfd_data
5852
5853 #undef elf_backend_create_dynamic_sections
5854 #define elf_backend_create_dynamic_sections \
5855                 elf32_bfinfdpic_create_dynamic_sections
5856 #undef elf_backend_adjust_dynamic_symbol
5857 #define elf_backend_adjust_dynamic_symbol \
5858                 elf32_bfinfdpic_adjust_dynamic_symbol
5859 #undef elf_backend_size_dynamic_sections
5860 #define elf_backend_size_dynamic_sections \
5861                 elf32_bfinfdpic_size_dynamic_sections
5862 #undef elf_backend_finish_dynamic_symbol
5863 #define elf_backend_finish_dynamic_symbol \
5864                 elf32_bfinfdpic_finish_dynamic_symbol
5865 #undef elf_backend_finish_dynamic_sections
5866 #define elf_backend_finish_dynamic_sections \
5867                 elf32_bfinfdpic_finish_dynamic_sections
5868
5869 #undef elf_backend_discard_info
5870 #define elf_backend_discard_info \
5871                 bfinfdpic_elf_discard_info
5872 #undef elf_backend_can_make_relative_eh_frame
5873 #define elf_backend_can_make_relative_eh_frame \
5874                 bfinfdpic_elf_use_relative_eh_frame
5875 #undef elf_backend_can_make_lsda_relative_eh_frame
5876 #define elf_backend_can_make_lsda_relative_eh_frame \
5877                 bfinfdpic_elf_use_relative_eh_frame
5878 #undef elf_backend_encode_eh_address
5879 #define elf_backend_encode_eh_address \
5880                 bfinfdpic_elf_encode_eh_address
5881
5882 #undef elf_backend_may_use_rel_p
5883 #define elf_backend_may_use_rel_p       1
5884 #undef elf_backend_may_use_rela_p
5885 #define elf_backend_may_use_rela_p      1
5886 /* We use REL for dynamic relocations only.  */
5887 #undef elf_backend_default_use_rela_p
5888 #define elf_backend_default_use_rela_p  1
5889
5890 #undef elf_backend_omit_section_dynsym
5891 #define elf_backend_omit_section_dynsym _bfinfdpic_link_omit_section_dynsym
5892
5893 #include "elf32-target.h"