bfd/elf32-bfin.c

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