bfd/elf32-bfin.c

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